10 REM THIS IS AN ARTILLERY DUEL GAME:ELEV VS. DIST. TO TARGET
40 PRINT "THIS IS A BATTLESHIP DUEL"
50 PRINT "A HIT WITHIN 100 YARDS OF TARGET WILL WIN THE GAME"
60 PRINT "THE MAX. RANGE IS 46,500 YARDS."
70 PRINT "THE ELEVATION IS IN DEGREES AND TENTHS OF DEGREES"
80 REM T=TARGET DIST.;I=DIST. OF SHOT;E=UNDER(-)OR OVER(+) DIST FROM TGT.
90 LET W2=0
95 RANDOMIZE
100 LET T=43000-30000*RND-1
110 LET S=0
120 PRINT
130 IF W2=0 THEN 550  REM    TO 640
140 GO TO 590
150 PRINT "MIN. ELEV. IS ONE DEGREE"
160 GO TO 600
170 PRINT "MAX. ELEV. IS 89 DEGREES"
180 GO TO 600
190 IF B>45 THEN 320
200 PRINT "OVER TARGET BY ";ABS(E);"YDS-LOWER ELEVATION"
210 GO TO 600
220 PRINT "OVER TARGET BY ";ABS(E);"YDS-RAISE ELEVATION"
230 GO TO 600
240 IF B>45 THEN 370
260 PRINT "SHORT OF TARGET BY ";ABS(E);"YDS-RAISE ELEVATION"
270 GO TO 600
280 PRINT "SHORT OF TARGET";ABS(E);"YDS-LOWER ELEVATION"
290 GO TO 600
300 GO TO 310
310 PRINT "   ***** TARGET DESTROYED ***** ";S;"ROUNDS EXPENDED"
320 IF S>2 THEN 350
330 PRINT " THAT'S DARN GOOD SHOOTING, SON!"
340 GO TO 470
350 IF S>4 THEN 380
360 PRINT "VERY GOOD SHOOTING.  WE NEED MORE LIKE YOU."
370 GO TO 470
380 IF S>7 THEN 410
390 PRINT "ABOUT AVERAGE, TRY TO IMPROVE"
400 GO TO 470
410 IF S>10 THEN 450
420 PRINT "I GUESS YOU KNOW YOU'RE A LOUSY SHOT. YOU SHOULD "
430 PRINT "BE INSIDE WITH THE COOK, FOR ALL OUR SAKES"
440 GO TO 470
450 REM DELETED BAD LINE 
460 PRINT " OUR FATHER WHO ART IN HEAVEN... ! "
470 PRINT
480 PRINT
490 PRINT
500 PRINT "DO YOU WANT TO PLAY ANOTHER GAME?  ENTER YES OR NO"
510 INPUT R$
520 IF R$="Y" THEN 550
530 IF R$="YES" THEN 550
540 GO TO 780
550 PRINT "THE ENEMY HAS BEEN SIGHTED, MAN YOUR GUNS!"
560 LET W2=1
570 PRINT
580 GO TO 100
590 PRINT "DISTANCE TO TARGET IS "; INT(T);"YDS"
600 PRINT
610 PRINT "ELEVATION:";
620 INPUT B
630 IF B=90 THEN 730
640 IF B<1 THEN 150
650 LET S=S+1
660 LET B2=2*B/57.3
670 LET I=46500*SIN(B2)
680 LET X=T-I
690 LET E=INT(X)
695 IF E<-100 THEN 190
700 IF ABS(E)<100 THEN 300
710 IF E>100 THEN 240
730 PRINT 
740 PRINT " #### BANG - YOU BLEW YOURSELF UP ####"
750 PRINT
760 GO TO 470
770 PRINT
780 PRINT
790 PRINT
9999 END