/
HNOON.BAS
223 lines (221 loc) · 7.17 KB
/
HNOON.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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
LIST
HIGHNOON 16:04 ADVANCED SYSTEMS LABS
100 REM DESIGNED AND PROGRAMMED BY CHRIS GAYLO, SYOSSET H.S...9/12/70
110PRINT" H I G H N O O N"
120PRINT" ----------------"
130PRINT
140PRINT
150PRINT "DO YOU WANT INSTRUCTIONS";
160INPUTD$
170 IF D$="NO" THEN 460
180PRINT
190PRINT
200PRINT"YOU HAVE BEEN CHALLENGED TO A SHOWDOWN BY BLACK BART, ONE OF"
210PRINT"THE MEANEST DESPERADOES WEST OF THE ALLEGHENY MOUNTAINS."
220PRINT"WHILE YOU ARE WALKING DOWN A DUSTY. DESERTED SIDE STREET,"
230PRINT"BLACK BART EMERGES FROM A SALOON ONE HUNDRED PACES AWAY. BY"
240PRINT"AGREEMENT. YOU EACH HAVE FOUR CARTRIDGES IN YOUR SIX-GUNS."
250PRINT"YOUR MARKSMANSHIP EQUALS HIS. AT THE START OF THE WALK. NEI-"
260PRINT"THER OF YOU CAN POSSIBLY HIT THE OTHER, AND AT THE END OF"
270PRINT"THE WALK, NEITHER CAN MISS. THE CLOSER YOU GET. THE BETTER"
280PRINT"YOUR CHANCES OF HITTING BART, BUT HE ALSO HAS BETTER CHANCES"
290PRINT"OF HITTING YOU."
300PRINT"D0 YOU STILL WANT TO CONTINUE";
310 INPUT A$
320 IF A$="NO" THEN 1370
330PRINT"THE MOVES ARE AS FOLLOWS:"
340PRINT
350PRINT
360PRINT *M 0 V E S*"
370PRINT ==========="
380PRINT
390PRINT" 1. ADVANCE"
400PRINT
410PRINT"2. STAND STILL 3. FIRE"
42OPRINT
430PRINT"4. JUMP BEHIND THE WATERING TROUGH 5. GIVE UP."
440PRINT
450PRINT" 6. TURN TAIL AND RUN"
455PRINT
456PRINT
460PRINT"WHAT IS YOUR LUCKY NUMBER FOR TODAY";
470INPUTA
480A=1E4*ABS(SIN(A))
490A=(A-INT(A))*1000
500FORI=ITOA
510B=RND(01)
520NEXTI
530PRINT
540 LETX=100
550PRINT
560PRINT"WHAT IS YOUR STRATEGY";
570INPUT B
580B=INT(B)
590 IFB>6 THEN1340
600 IF B<1THEN 1340
610 GOTO 620,1390,690,1410,1510,1610 ON B
620 PRINT"HOW MANY PACES DO YOU ADVANCE";
630INPUT S
640 IFS<0THEN2000
650IFS>10THEN1980
660X=X-S
670PRINT"YOU ARE NOW";X;"PACES APART."
680GOT01040
690C=C+1
700IFC<=4THEN750
710PRINT"NICE GOING, ACE. YOU'VE RUN OUT OF SHELLS."
720PRINT"NOW BART WON'T SHOOT UNTIL YOU TOUCH NOSES."
730PRINT"YOU BETTER THINK OF SOMETHING FAST. (LIKE RUN)"
740GOTO1040
750W=RND(-1)*10
7601FW>X/10THEN820
770IFC=2THEN1820
7801FC=3THEN1840
790PRINT"WRAT A LOUSY SHOT."
800IFC=4THEN710
810GOTO1460
820PRINT"WHAT A SHOT, YOU GOT BLACK BART RIGHT BETWEEN THE EYES."
830PRINT
840PRINT
850PRINT"AS MAYOR OF DODGE CITY, AND ON BEHALF OF ITS CITIZENS,"
860PRINT"I EXTEND TO YOU OUR THANKS, AND PRESENT YOU WITH THIS"
870PRINT"REWARD, A CHECK FOR $20,000, FOR KILLING BLACK BART."
880PRINT
890PRINT"***************************************************************"
900PRINT
910PRINT"CHECK NO."1000*RND(-1)" AUG."INT(10+10*RND(0))"TH. 1889"
920PRINT" CASHIER'S RECEIT--"BANK OF DODGE CITY"
930PRINT
940PRINT" PAY TO THE BEARER ON DEMAND"
950PRINT
960PRINT" THE SUM OF"
970PRINT
980PRINT" TWENTY THOUSAND DOLLARS $20,000"
990PRINT
1000PRINT"*************************************************************"
1010PRINT
1020PRINT"DON'T SPEND IT ALL IN ONE PLACE."
1030 GOTO2080
1040IFX<10THEN1120
1050Q=RND(-1)*10
1060IFQ>5THEN1120
1070Z=INT(2+RND(-1)*9)
1080PRINT"BLACK BART MOVES"Z"PACES"
1090X=X-Z
1100PRINT"YOU ARE NOW"X"PACES APART"
1110GOTO550
1120P=P+1
1130IFC<4THEN1070
11401FP<=4THEN1200
1150IFP=5THEN1180
1160IFP>6THEN2020
1170GOTO1070
1180PRINT"NOW IS YOUR CHANCE, BART IS OUT OF SHELLS"
1190GOTO1070
1200R=RND(-I)*10
1210PRINT"BART FIRES . . . . . ."
1220IFR>X/10THEN1300
1230PRINT"A MISS . . . ."
1240IFP=2THEN1890
1250IFP=3THEN1940
1260IFP>4THEN1070
1270IFP=4THEN1960
1280PRINT"WHEW, WERE YOU LUCKY. THAT BULLET JUST MISSED YOUR HEAD."
1290GOTO1490
1300IFB=4THEN1910
1310PRINT"BART SHOT YOU RIGHT THROUGH THE HEART THAT TIME."
1320PRINT"YOU WENT KICKIN' WITH YOUR BOOTS ON."
1330GOTO2080
1340PRINT"YOU SURE AREN'T GOING TO LIVE VERY LONGIF YOU CAN'T EVEN"
1350PRINT"FOLLOW DIRECTIONS"
1360GOTO550
1370PRINT"GREENHORN."
1380GOTO2080
1390PRINT"THAT MOVE MADE YOU A PERFECT STATIONARY TARGET"
1400GOTO1040
1410T=T+1
1420IFT>3THEN2060
1430IFT>3THEN2060
1440PRINT"NOT A BAD MANEUVER. YOU THREW BART'S STRATEGY OFF"
1450GOTO1040
1460IFP>4THEN1050
1470PRINT"YOU NOW HAVE";4-C;"SHELLS TO BART'S";4-P;"SHELLS."
1480GOTO1040
1490PRINT"YOU NOW HAVE"4-C"SHELLS TO BART'S"4-P"SHELLS."
1500GOTO550
1510PRINT"BLACK BART ACCEPTS.THE CONDITIONS ARE THAT HE WON'T SHOOT YOU"
1520PRINT"IF YOU TAKE THE FIRST STARE OUT OF TOWN AND NEVER COME BACK"
1530PRINT"AGREED."
1540 INPUT H$
1550 IF H$="NO" THEN 1590
1570PRINT"A VERY WISE DECISION."
1580GOTO2080
1590PRINT"OH WELL, BACK TO THE SHOWDOWN"
1600GOTO550
1610PRINT"HOW FAR DID YOU RUN";
1620INPUTF
1630IFF<50THEN1670
1640PRINT"MAN, DID HE RUN. HE RAN SO FAST EVEN THE DOGS COULDN'T"
1650PRINT"CATCH HIM"
1660GOTO2080
1670IFP>=4THEN1770
1680PRINT"BLACK BART FIRES";4-P;"SHELLS......."
1690IFP>=4THEN1730
1700PRINT"HE GOT YOU RIGHT IN THE BACK. THATS WHAT YOU DESERVE"
1710PRINT"FOR RUNNING."
1720GOTO2080
1730PRINT"BLACK BART UNLOADED HIS GUN,ONCE IN YOUR BACK"
1740PRINT"AND"3-P"TIMES IN YOUR A**, NOW YOU CAN'T EVEN REST IN"
1750PRINT"PEACE."
1760GOTO2080
1770PRINT"YOU WERE LUCKY. BART CAN ONLY THROW HIS GUN AT YOU, HE"
1780PRINT"DOESN'T HAVE ANY SHELLS LEFT. YOU SHOULD REALLY BE DEAD."
1790 GOTO 2080
1800IFP=2THEN1940
1810IFP=3THEN1960
1820PRINT"GRAZED BART IN THE RIGHT ARM."
1830GOTO1040
1840PRINT"HE'S HIT IN THE LEFT SHOULDER,FORCING HIM TO USE HIS RIGHT"
1850PRINT"HAND TO SHOOT WITH"
1860GOTO1040
1870PRINT"THAT WAS YOUR LAST SHOT.YOU MISSED"
1880GOTO1040
1890PRINT"BUT BART GOT YOU IN THE RIGHT SHIN."
1900GOTO550
1910PRINT"THAT TRICK JUST SAVED YOUR LIFE. BART'S BULLET"
1920PRINT"WAS STOPPED BY THE WOOD SIDES OF THE TROUGH."
1930GOTO550
1940PRINT"THOUGH BART GOT YOU ON THE LEFT SIDE OF YOUR JAW."
1950GOTO550
1960PRINT"BART MUST HAVE JERKED THE TRIGGER"
1970GOTO550
1980PRINT"NOBODY CAN WALK THAT FAST"
1990GOTO620
2000PRINT"NONE OF THIS NEGATIVE STUFF PARTNER. ONLY POSITIVE NUMBERS."
2010GOTO620
2020PRINT"BART JUST HI-TAILED IT OUT OF TOWN RATHER THAN FACE YOU WITH-"
2030PRINT"OUT A LOADED GUN. YOU CAN REST ASSURED THAT BART WON'T EVER"
2040PRINT"SHOW HIS FACE AROUND THIS TOWN AGAIN."
2050GOTO2080
2060PRINT"HOW MANY WATERING TROUGHS DO YOU THINK ARE ON THIS STREET"
2070GOTO550
2080PRINT
2090PRINT"C.G. INC."
2100 REM THE VARIABLE USAGE IS AS FOLLOWS"
2110 REM D$--INSTRUCTION NEED
2120 REM A$--INTENT TO CONTIUE THE GAME AFTER RECEIVING INSTRUCTIONS
2130 REM A---STORES YOUR LUCKY NUMBER
2140 REM I---USED FOR THE RANDOM RANDOM GENERATOR
2150 REM X---DENOTES THE DISTANCE BETWEEN YOU
2160 REM B---DENOTES THE NUMBER OF YOUR MOVE
2170 REM S---THE NUMBER OF PACES YOU ADVANCE
2180 REM C---COUNTER FOR THE NUMBER OF YOU SHELLS
2190 REM W---RANDOM NUMBER FOR THE HITTING OF BART
2200 REM O---RANDOM NUMBER FOR BART'S CHOICE OF WALK OR FIRE
2210 REM Z---RANDOM NUMB BOR THE PACES BART ADVANCES
2220 REM P---COUNTER FOR BART'S REMAINING SHELLS
2230 REM R---RANDOM NUMBER FORDART HITTING YOU
2240 REM T---COUNTER FOR THE NUMBER OF WATERING TROUGHS
2250 REM F---DISTANCE YOU RAN
2260 REM H$--DECISION ON GIVING UP
2270 END