3 IFPEEK(56)=56THEN100
4 POKE56,56:POKE55,0:CLR
5 DV=PEEK(186):IFDV<8THENDV=8
6 PRINT"[156][145][145][145]";
10 A$="C2C.OBJ"
20 SYS57812A$,DV,0:POKE780,0:POKE781,0:POKE782,71:SYS65493:PRINT
100 PRINT"[145][145][145][145][144]LOAD"CHR$(34)"C2C.BT2"CHR$(34)","DV
110 PRINT"RUN[145][145][145][145][145][145][145][145]"
115 FORX=0TO1:POKE631+X,13:NEXT:POKE198,X
120 END
59999 END
60000 OPEN15,8,15,"S0:C2C.BT1":CLOSE15:SAVE"C2C.BT1",8