1 REM "B.CHECKERS" 2000.12.01
2 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB100:D=PEEK(186):IFD<8ORD>29THEND=8
4 POKE53371,0:POKE788,49
5 TQ=TI
6 IFTI<TQ+200THEN6
10 PRINT"[144]LOAD"CHR$(34)"CHECKERS"CHR$(34)","D:PRINT"RUN:"
20 POKE214,17:PRINT:POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
100 Z$=" [152]                                      ":POKE214,5:PRINT
102 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO8:PRINTZ$:NEXT
104 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
106 Z$(0)="[195] [200] [197] [195] [203] [197] [210] [211]":Z$(2)="BY [204]ANCE [195]. [212]HOMAS"
108 Z$(4)="([195]) 2000 BY [202] & [198] [208]UBLISHING, [201]NC."
112 Z$(6)="1-318-868-8727"
114 POKE214,7:PRINT:FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
10000 D=PEEK(186):N$="0:B.CHECKERS":OPEN1,D,15,"S"+N$:SAVEN$,D:END