Guess the correct angle of fire to hit the target.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20001 to 20050. These tapes were compiled by Tony Willing.
Gallery
Source Code
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