Listing of file='ARTILERY' on disk='vmedia/games.wvd.zip'
# Sector 506, program filename = 'ARTILERY' 0010 % ##,###.## MILES 0020 % ##,### FEET 0025 V=1200 : A=30 : SELECT D 0030 SELECT PRINT 005 : PRINT HEX(03) 0040 PRINT " ################# ARTILLERY GAME ################" 0050 PRINT 0060 D1=20*RND(1) 0070 PRINT "YOUR TARGET IS"; : PRINTUSING 10,D1; 0075 D=D1*5280 0078 PRINT " THAT IS "; : PRINTUSING 20,D 0080 PRINT "ANGLES IN DEGREES=";A;" OR"; : INPUT A 0090 PRINT "VELOCITY IN FEET PER SECOND=";V;" OR"; : INPUT V 0120 Y=V*V*SIN(A)*COS(A) 0130 X=Y/16 0140 IF X<1 THEN 410 0150 C=C+1 0160 IF X=D THEN 520 0170 IF X>D THEN 470 0180 M=D-X 0190 IF M=D THEN 410 0200 IF ABS(M)<4 THEN 520 0210 IF ABS(M)<200 THEN 330 0220 IF ABS(M)<1000 THEN 350 0230 IF ABS(M)<3000 THEN 370 0232 IF ABS(M)<5000THEN 390 0240 IF ABS(M)<10000 THEN 450 0250 GOTO 430 0260 IF X>D THEN 490 0270 PRINT "YOU UNDERSHOT BY", 0275 IF M>10000 THEN 280 : PRINTUSING 20,M : GOTO 290 0280 PRINTUSING 10,M/5280 0290 PRINT 0300 PRINT "YOUR NEW ANGLE AND VELOCITY ARE?" 0310 GOTO 80 0320 REM ***RESULTS 0330 PRINT "VERY CLOSE! - TRY AGAIN SHARPSHOOTER!" 0340 GOTO 260 0350 PRINT "GETTING CLOSER - TRY AGAIN." 0360 GOTO 260 0370 PRINT "YOU NEED MORE PRACTICE - TRY AGAIN." 0380 GOTO 260 0390 PRINT "WAY OFF - MAYBE YOU NEED GLASSES!?" 0400 GOTO 260 0410 PRINT "DUMMY!! YOU BLEW UP YOUR OWN ENPLACEMENT!!!!" 0420 GOTO 680 0430 PRINT "CITIZENS TAKE COVER!! THIS GUY IS DANGEROUS!!!!" 0440 GOTO 260 0450 PRINT "OFF BY MILES! TRY AGAIN." 0460 GOTO 260 0470 M=X-D 0480 GOTO 190 0490 PRINT "YOU OVERSHOT BY"; : GOTO 275 0520 PRINT "BOOM!!!! TARGET DISTROYED!!!!!" 0530 PRINT "CONGRATULATIONS! YOUR RANK IS:" 0540 IF C<5 THEN 600 0550 IF C<8 THEN 620 0560 IF C<12 THEN 640 0570 IF C<15 THEN 660 0580 PRINT "RECRUIT IN CHARGE OF K.P." 0590 GOTO 690 0600 PRINT "GENERAL IN CHARGE OF ARTILLERY DIVISION!" 0610 GOTO 690 0620 PRINT "CAPTAIN IN CHARGE OF ARTILLERY COMPANY." 0630 GOTO 690 0640 PRINT "SARGENT IN CHARGE OF EMPLACEMENT." 0650 GOTO 690 0660 PRINT "PFC IN CHARGE OF LOADING GUN." 0670 GOTO 690 0680 PRINT "YOUR RANK IS DEAD - YOU BLEW YOUR SELF UP!!!!!" 0690 PRINT 0695 PRINT "WHY NOT TRY ANOTHER ROUND" : GOTO 60 0700 PRINT "DO YOU WISH TO PLAY AGAIN? 1=YES,0=NO" 0710 INPUT Z 0720 PRINT 0730 IF Z=1 THEN 60 0740 END