7 V1 = 0:V0 = V1:VT = 2:M = V1:S = V1: FOR V0 = 1 TO 64:A(V0) = 1: NEXT : FOR V1 = 19 TO 43 STEP 8: FOR V0 = V1 TO V1 +3:A(V0) = 0: NEXT : NEXT
10 HOME : VTAB (5): PRINT SPC( 9)"SOLITAIRE CHECKER PUZZLE" SPC( 47)"48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SQAURES OF A STANDARD 64-SQUARE CHECKER-";
20 PRINT "BOARD. THE OBJECT IS TO REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS TO EMPTY SQUARES. WHEN YOU HAVE NO POSSIBLE JUMPS REMAINING INPUT A 'E' IN RESPONSE TO QUESTION 'JUMP FROM?'
30 POKE -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT PT$
40 HOME :VT = 2: PRINT "HERE IS THE NUMERICAL BOARD": FOR V0 = 1 TO 57 STEP 8:VT = VT +1: FOR V1 = 0 TO 7: VTAB (VT): HTAB (V1 *4 +5): PRINT V0 +V1: NEXT : NEXT
50 PRINT : PRINT "HERE IS THE CHECKERS CURRENT POSITION.": PRINT
60 FOR V1 = 1 TO 57 STEP 8: FOR V0 = V1 TO V1 +7: IF A(V0) = 0 THEN INVERSE
65 PRINT A(V0);: NORMAL : NEXT : PRINT : NEXT : PRINT
70 VTAB (23): INPUT "JUMP FROM ";CHOICE$: IF CHOICE$ = "0" THEN 400
80 CHOICE = VAL(CHOICE$): IF CHOICE <1 OR CHOICE >64 THEN V1 = V1: VTAB (14): HTAB (10): PRINT "PLEASE ENTER A # FROM 1 TO 64." CHR$(7): GOTO 70
85 VTAB (14): HTAB (10): PRINT SPC( 30)
90 VTAB (23): HTAB (20): INPUT "JUMP TO ";CHOICE$:C2 = VAL(CHOICE$): IF C2 <1 OR C2 >64 THEN V1 = V1: VTAB (14): HTAB (10): PRINT "PLEASE ENTER A # FROM 1 TO 64." CHR$(7): GOTO 90
95 VTAB (14): HTAB (10): PRINT SPC( 30)
100 IF ABS(CH -C2) < >14 AND ABS(CH -C2) < >18 THEN 130
110 IF A((C2 +CH)/2) = 0 OR A(CH) = 0 OR A(C2) = 1 THEN 130
