Tank

    1 REM SAVE "TANK" LINE 1
    2 RESTORE : DATA 0,1,18,44,40,126,129,126,56,55,49,57,39,32,32,32
    3 FOR I=0 TO 7: READ A: POKE I+USR "A",A: NEXT I: FOR I=0 TO 7: READ A: POKE I+USR "B",A: NEXT I
    4 BORDER 6: PAPER 6: CLS 
    5 LET A=10+INT (RND*20)
    6 ON ERR GO TO 34: GO TO 32
    8 PRINT AT 1,0;"RANGE = ";A;"000 YDS."
   10 PRINT AT 17,0; INK 0;"\a"; INK 4'"████████████████████████████████"
   12 PRINT INK 1;AT 17,A;"\b"
   14 RETURN 
   15 SOUND 6,30;7,7;8,16;9,16;10,16;12,16;13,0
   16 PLOT 8,39
   17 FOR I=10 TO 8*L STEP 2
   18 OVER 1: PLOT I,34+B*SIN (1.57*I/L/4)
   20 PLOT I-2,34+B*SIN (1.57*(I-2)/L/4)
   22 NEXT I
   24 OVER 0
   26 RETURN 
   32 GO SUB 8
   34 INPUT " INPUT ELEVATION (0 TO 90) ";N
   36 IF N<0 THEN ON ERR RESET 
   38 LET B=N
   40 IF N>45 THEN LET N=90-N
   42 CLS 
   44 LET L=INT (N*.68)
   46 GO SUB 8
   48 GO SUB 15
   50 IF A=L THEN GO TO 58
   52 PRINT INK 2;AT 17,L;"*": BEEP 1,-12
   54 PRINT AT 19,0;B;" DEG IS ";INT (.5+1000*ABS (A-N*.68));" YARDS ";"SHORT" AND A>L;"LONG" AND A<L
   56 GO TO 34
   58 PRINT INK 2; FLASH 1;AT 17,L-1;"***"
   60 PRINT '"DIRECT HIT"
   61 SOUND 6,6;7,7;8,16;9,16;10,16;12,56;13,8: PAUSE 90: SOUND 8,0;9,0;10,0
   62 PAUSE 200
   63 CLS 
   64 GO TO 1