Artillery

In Artillery the player fires a cannon at a stationary target. The screen displays the gun location, the target site, and the approximate range. To take aim the cannoneer selects the angle at which the cannon is raised, between 0 and 90 degrees. The display then indicates whether the shot was long, short, or on target.

With a maximum range of just over 200,000 yards—the display gives a relative range within approximately 10,000 yards.

 90 RANDOMIZE
100 LET L= 1
110 LET S=9
120 LET A=RND(2030)
130 GO TO 290
140 DIM S(21)
150 FOR Q=1 TO 20
160 LET S(Q)=1
170 NEXT Q
180 LET S(A/100)=2
190 LET S(L/100)=3
200 PRINT X;
210 FOR Q=1 TO 20
220 IF S(Q)=1 THEN PRINT "-SHIFT T-";
230 IF S(Q)=2 THEN PRINT "T";
240 IF S(Q)=3 THEN PRINT "*";
250 NEXT Q
260 PRINT "M/R"
270 RETURN
300 PRINT "TARGET RANGE =";A;"00 YARDS"
310 PRINT
320 GO SUB 140
330 PRINT
350 PRINT "INPUT GUN ELEVATION",,"(0 TO 90 DEGREES)"
360 INPUT N
370 IF N<0 OR N>90 THEN GO TO 360
380 IF N>45 THEN LET N=90-N
390 CLS
500 LET L=(N**2)+5
510 IF ABS(A-L)<50 THEN GO TO 1000
520 LET S=S-1
530 IF S=0 THEN GO TO 2000
540 PRINT "RANGE =";A;"00 YARDS"
545 PRINT
550 GO SUB 150
560 PRINT "YOU WERE ";ABS(A-L);"00 YARDS";
570 IF A-L>0 THEN PRINT "SHORT"
580 IF A-L<0 THEN PRINT "LONG"
590 PRINT
600 PRINT "HIT N/L TO RELOAD"
610 INPUT Z$
615 CLS
620 IF NOT Z$="N" THEN GO TO 300