1 &"GAME OF EVEN WINS -- CYBERNETIC VERSION":& 2 REM *** WRITTEN BY ERIC PETERS, BASIC-PLUS VERSION BY DAVE AHL 3 INPUT "DO YOU WANT INSTRUCTIONS (Y OR N)";A$:IF A$="N" THEN 20 4 &:&"THE GAME IS PLAYED AS FOLLOWS:" 5 &"AT THE BEGINNING OF A GAME, A RANDOM NUMBER OF CHIPS ARE" 6 &"PLACED ON THE BOARD. THE NUMBER OF CHIPS ALWAYS STARTS" 7 &"AS AN ODD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE," 8 &"TWO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO" 9 &"FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN." 10 &"THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE" 11 &"GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE" 12 &"DIFFICULT TO BEAT THE COMPUTER TWENTY GAMES IN A ROW." 13 &"TRY IT !!!":& 14 &"TO QUIT AT ANY TIME, TYPE '0' AS YOUR MOVE.":& 20 DIM R(1,5):RANDOMIZE 25 L,E,G,W=0 30 FOR I=0 TO 5:R(1,I)=4:R(0,I)=4:NEXT I 70 A,B=0 75 G=G+1 90 P=INT((13*RND+9)/2)*2+1 100 IF P=1 THEN 530 110 &"THERE ARE"P"CHIPS ON THE BOARD." 120 E1=E:L1=L 140 E=(A/2-INT(A/2))*2 150 L=INT((P/6-INT(P/6))*6+.5) 160 IF R(E,L)>=P THEN 320 170 M=R(E,L) 180 IF M<=0 THEN 370 190 P=P-M 200 IF M=1 THEN 510 210 &"COMPUTER TAKES"M"CHIPS LEAVING"P" ...YOUR MOVE"; 220 B=B+M:INPUT M:M=INT(M) 250 IF M<1 THEN 450 260 IF M>4 OR M>P THEN 460 280 IF M=P THEN 360 290 P=P-M:A=A+M:GOTO 100 320 IF P=1 THEN 550 330 &"COMPUTER TAKES"P"CHIPS" 340 R(E,L)=P:B=B+P 360 IF B/2=INT(B/2) THEN 420 370 &"GAME OVER ... YOU WIN !!":& 375 W=W+1 380 IF R(E,L)=1 THEN 480 390 R(E,L)=R(E,L)-1 400 GOTO 500 420 &"GAME OVER ... I WIN !!":&:GOTO 500 450 IF M=0 THEN 570 460 & M"IS AN ILLEGAL MOVE ... YOUR MOVE";:GOTO 230 480 IF R(E1,L1)=1 THEN 500 490 R(E1,L1)=R(E1,L1)-1 500 & CHR$(7); FOR N=1 TO 10:&"THAT WAS FUN! LET'S PLAY AGAIN...":&:GOTO 70 510 &"COMPUTER TAKES 1 CHIP LEAVING"P" ...YOUR MOVE";:GOTO 220 530 &"THERE IS 1 CHIP ON THE BOARD":GOTO 120 550 &"COMPUTER TAKES 1 CHIP":GOTO 340 570 &:&"YOU PLAYED"G-1"GAMES AND WON"W"GAMES, I.E.,"100*W/(G-1)"PERCENT." 580 &"HOPE YOU HAD FUN !!":END