Data commit

Task/Nim-game/IS-BASIC/nim-game.basic

@@ -0,0 +1,24 @@
+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