image of READY prompt

Wang2200.org

Listing of file='ARTY' on disk='vmedia/gamesall.wvd.zip'

# Sector 432, program filename = 'ARTY'
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