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"