10 POKE53280,9:POKE53281,9:POKE53272,21:POKE53249,0
20 PRINTCHR$(14)"▒"TAB(18)"▒▒▒▒▒"
30 PRINTTAB(15)"▒▒OHN ▒RAUSE"
40 FORI=16256TO16263:POKEI,192:NEXT
50 FORI=16264TO16383:POKEI,7:NEXT
60 FORI=16285TO16362:READJ:POKEI,J:NEXT
70 FORI=54272TO54296:POKEI,0:NEXT
80 POKE54296,15:POKE54273,34:POKE54277,10
90 POKE53282,8:POKE53283,1
100 POKE2040,14:POKE53287,7:POKE53277,1:POKE53271,1
110 D$=" PNBRQK▒▒▒▒▒▒"
120 PRINT"▒▒NTER SKILL LEVEL (1-5)"
130 GETA$:IFA$=""THEN130
140 IFVAL(A$)=0ORVAL(A$)>5THEN130
150 POKE16201,VAL(A$)
160 PRINT"1▒ ▒EW GAME OR 2▒ SET UP POSITION?"
170 GETE$:IFE$=""THEN170
180 IFVAL(E$)=0ORVAL(E$)>2THEN170
190 PRINT"▒OMPUTER VS. 1▒ YOU OR 2▒ ITSELF?"
200 GETA$:IFA$=""THEN200
210 IFVAL(A$)=0ORVAL(A$)>2THEN200
220 POKE16202,0:B$="2":IFA$="2"THENPOKE16202,16:B$="1":GOTO260
230 PRINT"▒OU HAVE THE 1▒ WHITE OR 2▒ BLACK PIECES?"
240 GETB$:IFB$=""THEN240
250 IFVAL(B$)=0ORVAL(B$)>2THEN240
260 IFPEEK(12288)<>60THENGOSUB380
270 GOSUB490
280 IFA$="1"ANDB$="1"THEN320
290 IFE$="2"THENGOSUB690:POKE53269,0
300 GOTO330
310 IFA$="2"THEN330
320 GOSUB690:POKE53269,0:POKE16202,0
330 SYS15486:IFPEEK(16256)<229ANDPEEK(16256)>150THENI=0:GOTO1070
340 J=PEEK(16252)+16264:R=INT(J/10-1628.5):C=J-16285-10*R:GOSUB930
350 J=PEEK(16253)+16264:R=INT(J/10-1628.5):C=J-16285-10*R:GOSUB980
360 IFPEEK(16256)<99ANDPEEK(16256)>27THENI=1:GOTO1070
370 GOTO310
380 PRINT"▒▒LEASE WAIT..."
390 POKE56334,0:POKE1,51
400 FORI=0TO431:POKEI+12288,PEEK(I+53248):NEXT
410 POKE1,55:POKE56334,1
420 FORI=12792TO12799:POKEI,85:NEXT
430 FORI=0TO383:READJ:POKE12800+I,J
440 POKE13184+I,JOR85
450 POKE13568+I,JAND170
460 POKE13952+I,(J AND170)OR(255-J AND85):NEXT
470 FORI=896TO922:READJ:POKEI,J:NEXT
480 FORI=923TO958:POKEI,0:NEXT:RETURN
490 POKE53272,29:POKE53270,216
500 PRINT"▒"TAB(14)"▒LEVEL"PEEK(16201)
510 PRINT"▒";:IFB$="1"THEN530
520 POKE53283,0:PRINT"▒";:POKE16288,6:POKE16289,5:POKE16358,250:POKE16359,251
530 IFE$="1"THEN560
540 FORI=0TO7:FORJ=0TO7:POKE16285+10*I+J,0:NEXT:NEXT
550 PRINT:GOSUB1170:GOSUB1170:GOTO680
560 PRINT" HIJK▒▒▒▒▒@ABC▒▒▒▒▒XYZ[▒▒▒▒Ӹ▒▒▒▒▒▒▒"
570 PRINT" LMNO▒▒▒▒▒DEFG▒▒▒▒▒\]^_▒▒▒▒׼▒▒▒▒▒▒▒"
580 PRINT" ▒▒▒ð▒▒▒▒▒▒ð▒▒▒▒▒▒ð▒▒▒▒▒▒ð▒▒▒"
590 PRINT" ▒▒▒Ǵ▒▒▒▒▒▒Ǵ▒▒▒▒▒▒Ǵ▒▒▒▒▒▒Ǵ▒▒▒"
600 GOSUB1170
610 C$=CHR$(34):PRINT" ▒▒▒▒ !"C$"#▒▒▒▒ !"C$"#▒▒▒▒ !"C$"#▒▒▒▒ !"C$"#"
620 PRINT" ▒▒▒▒$%&'▒▒▒▒$%&'▒▒▒▒$%&'▒▒▒▒$%&'"
630 PRINT" 89:;▒▒▒▒0123▒▒▒▒▒▒▒ˠ▒▒▒()*+▒▒▒▒"
640 PRINT" <=>?▒▒▒▒4567▒▒▒▒▒▒▒Ϥ▒▒▒,-./▒▒▒▒"
650 IFB$="1"THENRETURN
660 PRINT""SPC(13)"▒▒▒▒PQRS"
670 PRINTSPC(13)"▒▒▒▒▒▒▒▒"
680 RETURN
690 POKE53269,1
700 GETC$:IFC$=""ORFTHEN780
710 N=0
720 IFMID$(D$,N+1,1)=C$THEN750
730 N=N+1:IFN<13THEN720
740 GOTO780
750 J=16285+C+10*R:IFN>6THENN=262-N
760 IFNTHENGOSUB990:GOTO780
770 GOSUB940:FORI=0TO1:FORP=0TO3:POKEK+40*I+P,M:NEXT:NEXT
780 I=NOTPEEK(56320)
790 R=R-SGN((I AND2)-(I AND1))
800 C=C+SGN((I AND8)-(I AND4))
810 IFR<0THENR=0
820 IFR>7THENR=7
830 IFC<0THENC=0
840 IFC>7THENC=7
850 POKE53248,30+32*C:POKE53249,193-16*R
860 IF(PEEK(56320)AND16)THEN700
870 J=16285+C+10*R
880 IFFTHEN970
890 IFPEEK(J)=0ORPEEK(J)>6THEN700
900 F=1:GOSUB930
910 IF(PEEK(56320)AND16)THEN700
920 GOTO910
930 POKE54276,0:POKE54276,17
940 K=1745-80*R+4*C:N=PEEK(J):POKEJ,0
950 M=32:IF(R+C)/2-INT((R+C)/2)THENM=63
960 RETURN
970 F=0
980 FORI=0TO1:FORP=0TO3:POKEK+40*I+P,M:NEXT:NEXT
990 K=1745-80*R+4*C
1000 M=0:IF(R+C)/2-INT((R+C)/2)THENM=48
1010 IFR=0ANDN=255THENN=251
1020 IFR=7ANDN=1THENN=5
1030 IFN<7THENM=M+96
1040 POKEJ,N:IFN>6THENN=256-N
1050 FORI=0TO1:FORJ=0TO3:POKEK+40*I+J,56+M+8*N+4*I+J:NEXT:NEXT
1060 RETURN
1070 IFPEEK(16202)THENI=I+1
1080 I=I+VAL(B$):PRINT"▒CHECKMATE!  ";
1090 IFI/2-INT(I/2)THENPRINT"BLACK WINS.":GOTO1110
1100 PRINT"WHITE WINS."
1110 POKE54273,40:POKE54276,0:POKE54276,17
1120 FORI=0TO999:NEXT
1130 POKE54273,20:POKE54276,0:POKE54276,17
1140 PRINT"PRESS JOYSTICK BUTTON."
1150 IF(PEEK(56320)AND16)THEN1150
1160 RUN
1170 FORI=1TO2:FORJ=1TO2
1180 PRINT" ????    ????    ????    ????    "
1190 NEXT:FORJ=1TO2
1200 PRINT"     ????    ????    ????    ????"
1210 NEXT:NEXT:RETURN
1220 DATA4,2,3,5,6,3,2,4,7,7,1,1,1,1,1,1,1,1,7
1230 DATA7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7
1240 DATA7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7
1250 DATA7,255,255,255,255,255,255,255,255,7
1260 DATA7,252,254,253,251,250,253,254,252
1270 DATA0,0,0,0,0,0,0,0
1280 DATA0,0,0,3,15,15,3,15
1290 DATA0,0,0,192,240,240,192,240
1300 DATA0,0,0,0,0,0,0,0
1310 DATA0,0,0,0,0,0,0,0
1320 DATA3,3,15,63,63,0,0,0
1330 DATA192,192,240,252,252,0,0,0
1340 DATA0,0,0,0,0,0,0,0
1350 DATA0,0,0,0,3,3,3,3
1360 DATA0,192,240,255,255,63,255,255
1370 DATA0,0,0,0,240,252,252,255
1380 DATA0,0,0,0,0,0,0,0
1390 DATA15,15,3,0,0,0,0,0
1400 DATA255,243,3,15,63,255,255,0
1410 DATA255,255,255,255,255,255,255,0
1420 DATA0,192,192,192,192,192,192,0
1430 DATA0,0,0,0,0,0,0,0
1440 DATA0,60,60,255,255,255,255,255
1450 DATA0,60,60,63,207,243,243,243
1460 DATA0,0,0,0,0,0,0,0
1470 DATA0,0,0,0,15,63,48,0
1480 DATA63,48,63,48,255,252,0,0
1490 DATA252,12,252,12,255,63,0,0
1500 DATA0,0,0,0,240,252,12,0
1510 DATA0,3,3,3,0,0,0,0
1520 DATA0,207,207,255,192,255,255,255
1530 DATA0,243,243,255,3,255,255,255
1540 DATA0,192,192,192,0,0,0,0
1550 DATA0,0,0,0,3,15,15,0
1560 DATA255,255,255,192,255,255,255,0
1570 DATA255,255,255,3,255,255,255,0
1580 DATA0,0,0,0,192,240,240,0
1590 DATA0,0,0,0,48,48,12,12
1600 DATA0,48,48,48,48,252,252,252
1610 DATA0,48,48,48,48,252,252,252
1620 DATA0,0,0,0,48,48,192,192
1630 DATA15,3,3,3,3,3,3,0
1640 DATA255,0,255,252,255,0,255,0
1650 DATA255,3,255,255,255,3,255,0
1660 DATA192,0,0,0,0,0,0,0
1670 DATA0,0,0,15,63,63,63,15
1680 DATA0,63,51,60,243,255,240,252
1690 DATA0,240,48,243,63,255,63,255
1700 DATA0,0,0,192,240,240,240,192
1710 DATA15,3,3,3,3,3,3,0
1720 DATA255,0,255,252,255,0,255,0
1730 DATA255,3,255,255,255,3,255,0
1740 DATA192,0,0,0,0,0,0,0
1750 DATA255,255,192,192,0,192,192,0,192
1760 DATA192,0,192,192,0,192,192,0,192
1770 DATA192,0,192,192,0,192,255,255,192