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