image of READY prompt

Wang2200.org

Listing of file='29B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 567, program filename = '29B'
0010 PRINT "ENTER DISTANCE,ANGLE,VELOCITY"
0020 INPUT D1,A1,V
0022 C=0
0025 D=D1*5280
0027 A=A1*.17477372E-1
0030 Y=V*V*SIN(A)*COS(A)
0031 X=Y/16
0032 IF X<1 THEN 88
0035 C=C+1
0040 IF X=D THEN 200
0045 IF X>D THEN 100
0048 M=D-X
0049 IF M=D THEN 88
0050 IF M<4 THEN 200
0052 IF M<200 THEN 80
0054 IF M<1000 THEN 82
0056 IF M<3000 THEN 84
0058 IF M<20000 THEN 94
0059 IF M<20000 THEN 94
0060 GOTO 90
0062 IF X>D THEN 110
0064 PRINT "YOU UNDERSHOT BY",M,"FT."
0066 PRINT
0067 PRINT "YOUR NEW ANGLE AND VELOCITY ARE?"
0068 INPUT A1,V
0074 GOTO 27
0080 PRINT "VERY CLOSE! - TRY AGAIN SHARPSHOOTER!"
0081 GOTO 62
0082 PRINT "GETTING CLOSER - TRY AGAIN."
0083 GOTO 62
0084 PRINT "YOU NEED MORE PRACTICE - TRY AGAIN"
0085 GOTO 62
0086 PRINT "WAY OFF - MAYBE YOU NEED GLASSES!?"
0087 GOTO 62
0088 PRINT "DUMMY!! YOU BLEW UP YOUR OWN EMPLACEMENT!!!!"
0089 GOTO 222
0090 PRINT "CITIZENS TAKE COVER!! THIS GUY IS DANGEROUS!!!"
0091 GOTO 62
0094 PRINT "OFF BY MILES! TRY AGAIN."
0095 GOTO 62
0100 M=X-D
0105 GOTO 50
0110 PRINT "YOU OVERSHOT BY",M,"FT."
0115 GOTO 66
0200 PRINT "BOOM!!! TARGET DESTROYED!!!!"
0203 PRINT "CONGRATULATIONS! YOUR RANK IS:"
0205 IF C<5 THEN 214
0206 IF C<8 THEN 216
0207 IF C<12 THEN 218
0208 IF C<15 THEN 220
0210 PRINT "RECRUIT IN CHARGE OF K.P."
0212 GOTO 223
0214 PRINT "GENERAL IN CHARGE OF ARTILLERY DIVISION!"
0215 GOTO 223
0216 PRINT "CAPTAIN IN CHARGE OF ARTILLERY  COMPANY."
0217 GOTO 223
0218 PRINT "SERGEANT IN CHARGE OF EMPLACEMENT."
0219 GOTO 223
0220 PRINT "PFC 	N CHARGE OF LOADING GUN."
0221 GOTO 223
0222 PRINT "YOUR RANK IS DEAD - YOU BLEW YOURSELF UP SHARPSHOOTER!!"
0223 PRINT
0224 PRINT "DO YOU WISH TO PLAY AGAIN? 1=YES,0=NO"
0225 INPUT Z
0227 PRINT
0230 IF Z=1 THEN 10
0235 END