Set of Apple II Hard Drive Images/hard.hdv/HARD/DSKXFER/WRITETRK.BAS

Applesoft BASIC Source Code | 2001-10-01 | 359 b | 14 lines | [FC] Applesoft BASIC Program (0x0801)

1  HOME : PRINT "PUT BLANK FLOPPY IN S6,D1": PRINT
2  PRINT  CHR$(4)"CAT"
5  INPUT "DSK FILE NAME (WITH .DSK):";F$
6 T$ = "BIN"
10  PRINT  CHR$(4)"BLOAD WRITETRK.OBJ"
20  HGR : VTAB 24
100  FOR TK = 0 TO 34
103 BY = TK *4096
104  PRINT "READING AT BYTE:"BY" TO STORE ON TRACK:"TK
105  PRINT  CHR$(4)"BLOAD "F$",A$2000,L$1000,B"BY",T"T$
110  POKE 24576 +3,TK: POKE 24576 +4,0: POKE 24576 +5,48
120  CALL 24576
130  PRINT "TRACK: "TK" RC=" PEEK(24576 +6)
900  NEXT TK