7 lines
706 B
Plaintext
7 lines
706 B
Plaintext
10 TEXT : HOME : NORMAL : PRINT "UPDATE COMPANION PROGRAM": VTAB 10: PRINT "PUT NEW COMPANION DISK IN DRIVE 1
|
||
|
||
AND PUT COMPANION TO BE UPDATED
|
||
|
||
IN DRIVE 2 AND PRESS <RETURN>...";
|
||
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 VO,0: POKE 1150,68: PRINT "COPYING DRIVE 1 TO 2": FOR T = 34 TO 1 STEP - 7:C = 1: GOSUB 100:C = 2: GOSUB 100: NEXT : CALL - 1052: RUN
|
||
100 POKE CO,C: POKE DR,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
|
||
63999 PRINT "SAVE CC"
|