Back to Main page.
Back to Main tapes page.
10  PRINT "THIS IS THE GAME OF NIM."
20  PRINT "I  ASSUME YOU ALREADY KNOW HOW TO PLAY."
30  DIM A$[72]
40  A=A1=123
50  PRINT "WOULD YOU LIKE TO GO FIRST";
60  INPUT A$
70  IF A$[1,1]="N" THEN 290
80  PRINT "YOUR MOVE ";
90  INPUT A
100  X1=INT(A1/100)
110  Y1=INT(A/100)
120  X2=INT(A1/10)-(X1*10)
130  Y2=INT(A/10)-(Y1*10)
140  X3=A1-(X1*100)-(X2*10)
150  Y3=A-(Y1*100)-(Y2*10)
160  Z1= NOT (X1-Y1)
170  Z2= NOT (X2-Y2)
180  Z3= NOT (X3-Y3)
190  IF Z1<0 OR Z2<0 OR Z3<0 THEN 230
200  IF Z1 AND Z2 AND  NOT Z3 THEN 250
210  IF Z1 AND Z3 AND  NOT Z2 THEN 250
220  IF Z2 AND Z3 AND  NOT Z1 THEN 250
230  PRINT "ILLEGAL MOVE."
240  GOTO 80
250  RESTORE 
260  IF A THEN 290
270  PRINT "YOU WIN"'7'7'7"  YOU LUCKY DOG!!!"
280  STOP 
290  IF TYP(0)=3 THEN 230
300  READ A2,A1
310  IF A2#A THEN 290
320  PRINT "MACHINE'S MOVE IS:"A1
330  IF A1 THEN 80
340  PRINT "MACHINE WINS, OF COURSE."
350  DATA 1,0,2,0,3,0,10,0,11,1,12,11,13,11,20,0,21,11,22,21,23,22,100,0
360  DATA 101,1,102,101,103,101,110,10,111,110,112,110,113,110,120,110
370  DATA 121,101,122,22,123,23
380  END