10 CALL CLEAR
20 PRINT TAB(12);"ONE CHECK"
30 PRINT TAB(8);"CREATIVE COMPUTING"
40 PRINT
50 DIM A(64)
60 DIM B$(8,8)
70 PRINT
80 PRINT "48 CHECKERS ARE PLACED THE OUTSIDE TWO SPACES OF A 64 SPACE CHESSBOARD."
90 PRINT "REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS."
100 FOR I=1 TO 8
110 FOR J=1 TO 8
120 B$(I,J)="ee"
130 NEXT J
140 NEXT I
150 PRINT "WHEN YOU HAVE NO POSSIBLE JUMPS LEFT INPUT 0,0"
160 PRINT
170 PRINT
180 GOTO 350
185 REM TRYCKER SPELPLANET
190 C=1
195 GOSUB 710
200 PRINT TAB(6);"1 2 3 4 5 6 7 8"
210 FOR I=1 TO 8
220 PRINT TAB(2);C;
230 C=C+1
240 FOR J=1 TO 8
250 PRINT B$(I,J);
260 NEXT J
270 PRINT
280 PRINT TAB(5);
290 FOR J=1 TO 8
295 IF B$(I,J)<>"ee" THEN 300 ELSE 305
300 PRINT "op";
304 GOTO 310
305 PRINT "ee";
310 NEXT J
320 PRINT
330 NEXT I
340 RETURN
350 FOR I=7 TO 8
360 FOR J=1 TO 8
370 B$(I,J)="mn"
380 NEXT J
390 NEXT I
400 FOR J=1 TO 2
410 FOR I=1 TO 8
420 B$(I,J)="mn"
430 NEXT I
440 NEXT J
450 FOR J=7 TO 8
460 FOR I=1 TO 8
470 B$(I,J)="mn"
480 NEXT I
490 NEXT J
500 FOR I=1 TO 2
510 FOR J=1 TO 8
520 B$(I,J)="mn"
530 NEXT J
540 NEXT I
550 GOSUB 190
560 INPUT "JUMP FROM ":K,L
565 IF ((K=0)*(L=0)) THEN 800
570 IF B$(K,L)="mn" THEN 600
580 PRINT "CAN'T DO THAT"
590 GOTO 560
600 INPUT "TO ":O,P
610 IF B$(O,P)="ee" THEN 640
620 PRINT "CAN't DO THAT"
630 GOTO 600
640 IF ((O=K+2)+(O=K-2)+(P=L+2)+(P=L-2)) THEN 660
650 GOTO 620
660 B$(K,L)="ee"
670 B$(O,P)="mn"
680 B$((K+O)/2,(L+P)/2)="ee"
690 GOSUB 190
700 R=R+1
705 GOTO 560
710 CALL CHAR(101,"")
720 CALL CHAR(109,"00030F1F3F3F7F7F")
730 CALL CHAR(110,"00C0F0F8FCFCFEFE")
735 CALL CHAR(111,"7F7F3F3F1F0F0300")
736 CALL CHAR(112,"FEFEFCFCF8F0C000")
740 CALL COLOR(10,7,1)
750 CALL COLOR(11,7,1)
760 RETURN
790 GOTO 560
800 PRINT "YOU HAVE ";48-R;"COUNTERS LEFT"
1000 STOP