home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DSKXFER / READTRK.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  2001-10-01  |  253 b   |  11 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  PRINT  CHR$(4)"BLOAD READTRK.OBJ"
  2. 20  HGR : VTAB 24
  3. 100  FOR TK = 0 TO 34
  4. 105  PRINT "READING TRACK:"TK
  5. 110  POKE 24576 +3,TK: POKE 24576 +4,0: POKE 24576 +5,32
  6. 120  CALL 24576
  7. 130  PRINT "TRACK: "TK" RC=" PEEK(24576 +6)
  8. 150 BY = TK *4096
  9. 190  PRINT "SAVING AT BYTE:"BY
  10. 200  PRINT  CHR$(4)"BSAVE DSK.DSK,A$3000,E$3FFF,B"BY
  11. 900  NEXT TK