24 lines
665 B
Text
24 lines
665 B
Text
100 PROGRAM "Nim.bas"
|
|
110 RANDOMIZE
|
|
120 CLEAR SCREEN
|
|
130 LET TOKENS=12
|
|
140 PRINT "Starting with";TOKENS;"tokens.":PRINT
|
|
150 DO
|
|
160 PRINT "How many tokens will you take? (1-3) ";
|
|
170 DO
|
|
180 LET K=VAL(INKEY$)
|
|
190 LOOP UNTIL K>0 AND K<4
|
|
200 LET TOKENS=MAX(TOKENS-K,0):LET G=0
|
|
210 PRINT K:PRINT TAB(19);TOKENS;"remainig.":PRINT
|
|
220 IF TOKENS>0 THEN
|
|
230 LET L=MOD(TOKENS,4)
|
|
240 IF L=0 THEN LET L=MIN(RND(3)+1,TOKENS)
|
|
250 LET TOKENS=TOKENS-L:LET G=-1
|
|
260 PRINT "Computer takes";L;"tokens.";TOKENS;"remaining.":PRINT
|
|
270 END IF
|
|
280 LOOP WHILE TOKENS>0
|
|
290 IF G THEN
|
|
300 PRINT "Computer wins!"
|
|
310 ELSE
|
|
320 PRINT "You win!"
|
|
330 END IF
|