MISSILE TRAJECTORY

This application takes an angle of direction and an amount of thrust, and then plots the course of a missle fired off with those properties. Pretty simple and actually fairly accurate in it's representation.

I think I wrote this in the late 80s after learning to write a missle-tracking program in ADA while at Cal Poly Pomona.

A=20
B=249
E=.9
F=.9
LINE (A,B)-(A,B),1

100 LINE (10,250)-(470,250)
110 LOCATE 1,1:INPUT "ANGLE";ANG
120 LOCATE 2,1:INPUT "THRUST";THR
130 LET THR=THR/10
140 LET E=E*1.1
150 LET D=THR-E

500 LINE (A,B)-(A,B),1
510 LET A=A+5
511 IF D<=0 THEN GOSUB 1000
512 IF D>0 THEN GOSUB 1100
523 LOCATE 1,20:PRINT D
524 LOCATE 2,20:PRINT E
527 IF A>=500 THEN END
528 IF B>=250 THEN END
529 IF B<=(-100) THEN END
530 LINE (A,B)-(A,B),1
540 GOTO 500

1000 LET E=E*1.1
1010 LET D=THR-E
1015 LET D=ABS(D)
1016 LET B=B+D
1020 RETURN

1100 LET E=E*1.1
1110 LET D=THR-E
1120 LET B=B-D
1130 RETURN