new qb64projects

qb64/Artillery3.bas

@@ -0,0 +1,25 @@
+PRINT "Artillery 3"
+PRINT TAB(7); "Copyright 1979 Creative Computing"
+INPUT "Do you need instructions?"; I$
+t = 0
+DIM S(2, 9)
+DIM V(3), X(3), P(3), R(3, 3)
+DATA 1,2,2,3,3,1,1,3,3,2,2,1,2,3,3,1,1,2,0
+IF LEFT$(I$, 1) = "Y" THEN 1240 ELSE CLS
+
+players:
+
+PRINT
+PRINT "No. of Players"
+INPUT N
+IF N = 2 THEN 170
+IF N = 3 THEN 200
+PRINT "Error -- Two or Three Players!"
+PRINT
+RETURN
+
+GOSUB players
+
+N1 = 1
+PRINT ""
+