26 lines
409 B
QBasic
26 lines
409 B
QBasic
|
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 ""
|
||
|
|
|