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