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