7 lines
746 B
Plaintext
7 lines
746 B
Plaintext
6 DV = 14
|
|
10 TEXT : HOME : NORMAL : PRINT "Copy Floppy to Hard Disk": VTAB 10: PRINT "COMPANION in SLOT SIX,DRIVE ONE
|
|
|
|
DESTINATION VOLUME -->";DV"
|
|
|
|
|
|
PRESS <RETURN> TO CONTINUE...";
|
|
15 GET A$: IF A$ < > CHR$ (13) THEN 15
|
|
20 HOME :IOB = 47080:SL = IOB + 1:DR = IOB + 2:VO = IOB + 3:TR = IOB + 4:SE = IOB + 5:BL = IOB + 8:BH = IOB + 9:CO = IOB + 12:RE = 768: HGR : VTAB 22
|
|
30 POKE 1150,68: PRINT "Downloading volume "DV: FOR T = 34 TO 1 STEP - 7:C = 1: POKE DR,1: POKE SL,96: POKE VO,0: GOSUB 100: POKE 49385 - (T = 6),0:C = 2: POKE SL,112: POKE VO,DV: GOSUB 100: NEXT : CALL - 1052: RUN
|
|
100 POKE CO,C: POKE TR,T - (T = 34): POKE SE,15: POKE 0,7 * 16: POKE BL,0: POKE BH,143: CALL PEEK (175) + 256 * PEEK (176) - 56: RETURN
|