-
Notifications
You must be signed in to change notification settings - Fork 1
/
warfish.bas
103 lines (103 loc) · 2.01 KB
/
warfish.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Print Tab(25); "WARFISH"
Print Tab(20); "CREATIVE COMPUTING"
Print Tab(18); "MORRISTOWN, NEW JERSEY"
Print
Print
Print
Print
Dim A$(72)
Q0 = Rnd(1)
ASK1:
Print "DO YOU DESIRE THE RULES OF WARFISH ";
Input X$
If X$ = "NO" Then GoTo GSTART
If X$ = "YES" Then GoTo RULES
Print "YES OR NO ONLY, PLEASE."
GoTo ASK1
RULES:
Print
Print "YOU COMMAND AN AMERICAN SUBMARINE THAT BEEN SENT OUT"
Print "TO ATTACK JAPANESE SHIPS AT SEA DURING WORLD WAR TWO"
Print
Print "THE ORDERS THAT CAN BE GIVEN ARETHE FOLLOWING:"
Print "PERISCOPE - TO SEARCH FOR JAPANESE SHIPS"
Print "TORPEDO - TO LAUNCH TORPEDOES AT JAPANESE SHIPS"
Print "DIVE - TO EASCAPE JAPANESE SHIPS THAT ARE ATTACKING"
Print
Print "THESE ARE SOME HISTORIC U.S. NAVY SUBMARINES -"
Print " TAUTOG, SILVERSIDES, CAVALLA, BLUEFISH, THRESHER"
Print " SWORDFISH, FLASHER, TROUT, ARCHER"
Print "SELECT ONE OF THE ABOVE, OR USE A NAME OF YOUR OWN CHOICE"
GSTART:
Print "PRINT THE NAME OF YOUR SUBMARINE ";
Input A$
T = 26
D = Int(Rnd(1) * 10)
If D < 6 Then GoTo 330
If D <> 6 And D <> 7 Then GoTo SPARK1
R$ = "DESTROYER"
W = 2100
SPARK1:
If D <> B Then GoTo SPARK2
R$ = "DESTROYER ESCORT"
W = 1350
SPARK2:
If D <> 9 Then GoTo SPARK3
R$ = "TORPEDO BOAT"
W = 70
SPARK3:
If D = 6 Or D = 7 Then GoTo SPARK4
Q = 1
GOTO 314
SPARK4:
Q = 2
Print
Print
Print "JAPANESE "; R$; " IS ATTACKING"
If D >= 6 Then GoTo ORDERS
A = Int(Rnd(1) * 10)
ORDER:
Print
Print
Print "ORDERS, COMMANDER ";
Input C$
C$ = Mid$(C$, 1, 1)
If C$ = "P" Then GoTo 420
If C$ = "T" Then GoTo 780
If C$ = "D" Then GoTo 990
GoTo 360
If D > 5 Or Q > 0 Then 760
If A >= 4 Then 470
R$ = "FREIGHTER"
IF A<>0 THEN A<>1 THEN 450
WW=6500
IF A<>2 THEN 460
W=7500
IF A<>3 THEN 470
W=8100
IF A<>7 AND A<>8 THEN 490
R$="TANKER"
IF A<>8 THEN 485
W=10000
GOTO 490
W=9500
IF A<>4 AND A<>5 THEN 510
R$="TRANSPORT"
IF A<5> THEN 505
W=11500
GOTO 510
W=8800
IF A<>6 THEN 530
R$="AMMUNITION SHIP"
W=9650
IF A>=9 OR A=6 540
Q=1
IF A<>6 THEN 550
Q=1
IF A<9 THEN 760
E=INT(RND(1)*10)
IF E<>0 THEN 590
R4="BATTLESHIP"
W=33500
IF E<>1 THEN 610
R$="AIRCRAFT CARRIER"