280 POKE -16301,0: FLASH : VTAB 22: HTAB 16: PRINT "** I WIN **"B$B$: NORMAL : VTAB 23: PRINT "PRESS <RETURN> TO CONTINUE";: GET CH$: PRINT CH$: RESTORE : HOME : GOTO 90
290 GOSUB 300: GOSUB 510: GOTO 590
300 REM DRAW APPLE'S MOVE
310 XA = 140 +(R1 -C) *10:YA = 206 -(R1 +C) *11: FOR XX = 1 TO 5: IF XX = 1 THEN POKE 7,30 +R1 *C: CALL 772
320 HCOLOR= W: DRAW 1 AT XA,YA: HCOLOR= B: DRAW 2 AT XA,YA: IF XX = 5 THEN 340
330 FOR ZZ = 1 TO TIME/2: NEXT : HCOLOR= W: DRAW 2 AT XA,YA: HCOLOR= 5: DRAW 1 AT XA,YA: FOR ZZ = 1 TO TIME/2: NEXT
340 NEXT :XA = 140 +(R2 -C2) *10:YA = 206 -(R2 +C2) *11: FOR XX = 1 TO 3: HCOLOR= W: DRAW 2 AT XA,YA: HCOLOR= 5: DRAW 1 AT XA,YA: IF XX = 1 THEN POKE 6,30: POKE 7,30 +R2 *C2: CALL 772
350 IF XX = 3 THEN 370
360 FOR ZZ = 1 TO TIME/2: NEXT : HCOLOR= W: DRAW 1 AT XA,YA: HCOLOR= B: DRAW 2 AT XA,YA: FOR ZZ = 1 TO TIME/2: NEXT
480 IF MA = 10 THEN PRINT "** DRAW **"B$: NORMAL : VTAB 23: PRINT "PRESS <RETURN> TO CONTINUE";: GET CH$: PRINT : RESTORE : HOME : GOTO 90
490 HTAB 14: PRINT "** YOU WIN **"B$B$: NORMAL :: VTAB 23: PRINT "PRESS <RETURN> TO CONTINUE";: GET CH$: PRINT : RESTORE : HOME : GOTO 90
500 RETURN
510 REM APPLE'S END
520 GOSUB 120
530 IF MA < >10 THEN 580
540 IF FI = 0 THEN 560
550 GOSUB 100: IF MA = 9 THEN 570
560 POKE -16301,0: FLASH : VTAB 22: HTAB 15: PRINT "** I WIN **"B$B$: NORMAL : VTAB 23: PRINT "PRESS <RETURN> TO CONTINUE";: GET CH$: PRINT : RESTORE : HOME : GOTO 90
570 HOME : POKE -16301,0: FLASH : VTAB 22: HTAB 2: PRINT "* YOU MUST FINISH THIS TURN FOR DRAW *"B$B$: FOR I = 1 TO 1200: NEXT : POKE -16302,0: HOME :NU = 1: NORMAL
850 HOLE = PEEK(16514 -H *11 -V):XA = 140 +(H -V) *10:YA = 206 -(H +V) *11: IF HOLE < >0 AND HOLE < >4 THEN 870
860 HCOLOR= W: DRAW 2 AT XA,YA
870 HCOLOR= 2: DRAW 1 AT XA,YA: IF NOT KB THEN 900
880 IF X < >160 THEN 960
890 GOTO 910
900 IF PEEK( -16287) <128 THEN 960
910 IF HOLE = 4 AND (H +V) > = (H1 +V1) THEN 1060
920 IF HOLE = 0 AND ABS(H -H1) <2 AND ABS(V -V1) <2 AND (H +V) > = (H1 +V1) AND (H +V) <(H1 +V1 +2) THEN 1060
930 IF HOLE = 3 THEN HCOLOR= B: DRAW 1 AT XA,YA: CALL 2341: POKE 16514 -H *11 -V,1: POKE 6,30: POKE 7,30 +H1 *V1: CALL 772: GOTO 590
940 POKE -16301,0: HOME : FLASH : VTAB 22: HTAB 14: PRINT " ILLEGAL MOVE ": FOR K = 1 TO 2: POKE 6,200: POKE 7,60: CALL 772: FOR J = 1 TO 50: NEXT : POKE 6,200: POKE 7,72: CALL 772: FOR J = 1 TO 100: NEXT : NEXT
950 NORMAL : POKE -16302,0: HOME
960 FOR T = 1 TO TIME/2: NEXT : IF HOLE < >2 THEN 980
970 HCOLOR= 5: DRAW 1 AT XA,YA: GOTO 1030
980 IF HOLE < >1 THEN 1000
990 HCOLOR= B: DRAW 1 AT XA,YA: GOTO 1030
1000 IF HOLE < >3 THEN 1020
1010 HCOLOR= 1: DRAW 1 AT XA,YA: GOTO 1030
1020 HCOLOR= W: DRAW 1 AT XA,YA: HCOLOR= B: DRAW 2 AT XA,YA
1030 FOR T = 1 TO TIME/2: NEXT : IF KB THEN 820
1040 GOTO 840
1050 POKE 16514 -H1 *11 -V1,0: FOR XX = 1 TO 4: HCOLOR= W: DRAW 1 AT XA,YA: HCOLOR= B: DRAW 2 AT XA,YA: IF XX = 4 THEN 1090
1060 HCOLOR= 1: DRAW 1 AT XA,YA: POKE 6,30: POKE 7,30 +H1 *V1: CALL 772: FOR ZZ = 1 TO TIME *2: NEXT :XA = 140 +(H1 -V1) *10:YA = 206 -(H1 +V1) *11: CALL 2341
1070 POKE 16514 -H1 *11 -V1,0: FOR XX = 1 TO 4: HCOLOR= W: DRAW 1 AT XA,YA: HCOLOR= B: DRAW 2 AT XA,YA: IF XX = 4 THEN 1090
1080 FOR ZZ = 1 TO TIME/2: NEXT : HCOLOR= W: DRAW 2 AT XA,YA: HCOLOR= 1: DRAW 1 AT XA,YA: FOR ZZ = 1 TO TIME/2: NEXT
1090 NEXT : POKE 6,30: POKE 7,30 +H1 *V1: CALL 772:XA = 140 +(H -V) *10:YA = 206 -(H +V) *11: FOR XX = 1 TO 3: HCOLOR= W: DRAW 1 AT XA,YA: IF XX = 3 THEN 1110
1100 HCOLOR= B: DRAW 2 AT XA,YA: FOR ZZ = 1 TO TIME/2: NEXT : HCOLOR= W: DRAW 2 AT XA,YA: HCOLOR= 1: DRAW 1 AT XA,YA: FOR ZZ = 1 TO TIME/2: NEXT : NEXT
1130 HGR : TEXT : HOME : PRINT "----------------------------------------CHINESE CHECKERS BY BRUNO CROFT----------------------------------------": REM 41 DASHES EACH
1190 PRINT "----------------------------------------": REM 41 DASHES
1200 PRINT
1210 X = PEEK( -16384): IF X >127 THEN 1230: PRINT
1220 RETURN
1230 IF X = 160 THEN 1280
1240 IF X = 193 THEN V = V +1: IF V >9 THEN V = 9: GOTO 1280
1250 IF X = 211 THEN H = H +1: IF H >9 THEN H = 9: GOTO 1280
1260 IF X = 218 THEN H = H -1: IF H <1 THEN H = 1: GOTO 1280
1270 IF X = 216 THEN V = V -1: IF V <1 THEN V = 1
1280 POKE -16368,0: RETURN
1290 FOR I = 768 TO 823: READ A: POKE I,A: NEXT
1300 GOTO 1330
1310 X = 140 +(H -V) *10:Y = (H +V) *11 -14
1320 RETURN
1330 HGR : HCOLOR= 3: POKE -16302,0
1340 HPLOT 0,0: CALL 62454
1350 HCOLOR= 1
1360 GC = 0
1370 HCOLOR= GC
1380 Y = 96
1390 POKE 232,0: POKE 233,3: SCALE= 1: ROT= 1
1400 FOR X = 60 TO 140 STEP 10
1410 HPLOT X,Y TO X +80,Y +88
1420 HPLOT X,192 -Y TO X +80,104 -Y
1430 HPLOT X,192 -Y TO 280 -X,192 -Y
1440 HPLOT X,Y TO 280 -X,Y
1450 Y = Y -11
1460 NEXT X
1470 HCOLOR= GC
1480 HPLOT 100,140 TO 20,52 TO 260,52 TO 180,140
1490 HCOLOR= 1: FOR I = 2 TO 5: HPLOT 20,52 +I TO 54,90 +I: NEXT
1500 FOR I = 2 TO 5: HPLOT 260,52 +I TO 226,90 +I: NEXT
1510 HCOLOR= 4
1520 HPLOT 100,52 TO 20,140 TO 260,140 TO 180,52
1530 HCOLOR= 1: FOR I = 141 TO 144: HPLOT 20,I TO 96,I: HPLOT 184,I TO 260,I: NEXT : HCOLOR= 4
1540 FOR H = 1 TO 9: FOR V = 1 TO 9
1550 IF (H +V <6) OR (H +V >14) THEN 1590
1560 GOSUB 1310
1570 HCOLOR= 3: DRAW 1 AT X,Y
1580 HCOLOR= 0: DRAW 2 AT X,Y
1590 NEXT : NEXT
1600 GOSUB 1680
1610 HCOLOR= 6
1620 FOR I = 0 TO 50: HPLOT 0,I TO 130,0
1630 HPLOT 279,I TO 150,0
1640 HPLOT 0,191 -I TO 130,191
1650 HPLOT 279,191 -I TO 150,191
1660 NEXT
1670 GOSUB 1810: RETURN
1680 FOR H = 1 TO 4: FOR V = 1 TO 5 -H:A(H,V) = 2: GOSUB 1310
1690 HCOLOR= 3: DRAW 2 AT X,Y: HCOLOR= 5
1700 DRAW 1 AT X,Y: NEXT V
1710 NEXT H
1720 HCOLOR= 0
1730 FOR I = 4 TO 1 STEP -1
1740 FOR J = 1 TO I:A(5 +I,10 -J) = 1:H = 5 +I:V = 10 -J
1750 HCOLOR= 3: GOSUB 1310: DRAW 2 AT X,Y: HCOLOR= 0: DRAW 1 AT X,Y
1760 NEXT : NEXT
1770 RETURN
1780 HOME : VTAB 12: PRINT "UNABLE TO LOAD CHINESE.BIN": PRINT " OR CHINESE.TABLES": PRINT : END
1790 DATA 2,0,6,0,46,0,128,128,192,43,45,117,63,63,63,30,45,45,45,45,62,31,63,63,55,45,45,109,53,255,63,63,55
1800 DATA 45,45,45,45,30,63,63,63,14,45,45,5,0,192,45,14,54,30,63,28,36,4,0
1810 REM POKE SHAPE TABLE
1820 FOR I = 2560 TO 2615: READ A: POKE I,A: NEXT : DATA 2,0,6,0,46,0,128,128,192,43,45,117,63,63,63,30,45,45,45,45,62,31,63,63,55,45,45,109,53,255,63,63,55
1830 DATA 45,45,45,45,30,63,63,63,14,45,45,5,0,192,45,14,54,30,63,28,36,4,0: POKE 232,0: POKE 233,10: GOSUB 1850: RETURN