Data update

Task/21-game/PureBasic/21-game.basic

@@ -0,0 +1,40 @@
+If OpenConsole()
+  PLAYER.i = 1
+  COMP.i   = 0
+
+  sum.i = 0
+  total.i = 0
+  turn.i = Random(1) + 0.5
+  Dim precomp.i(3)
+  precomp(0) = 1
+  precomp(1) = 1
+  precomp(2) = 3
+  precomp(3) = 2
+
+  While sum < 21
+    turn = 1 - turn
+    PrintN("The sum is " + Str(sum))
+    If turn = PLAYER
+      PrintN("It is your turn.")
+      While total < 1 Or total > 3 Or total + sum > 21
+        Print("How many would you like to total? ")
+        total = Val(Input())
+      Wend
+    Else
+      PrintN("It is the computer's turn.")
+      total = precomp(sum % 4)
+      PrintN("The computer totals " + Str(total) + ".")
+    EndIf
+    PrintN("")
+    sum + total
+    total = 0
+  Wend
+
+  If turn = PLAYER
+    PrintN("Congratulations. You win.")
+  Else
+    PrintN("Bad luck. The computer wins.")
+  EndIf
+
+  Input()
+EndIf