10  COM N$[72],F$[72],X$[3],D,R,V1,V2,P,Q,F,T,A
20  COM Q$[1],K4,W,P$[1],A2
30  COM A3,L,T1
40  REM PROGRAM NAME = MECHAG, PLOTS PATH FOR 'MECHAN'
50  REM CHAINED TO MECHAN,MECHA1,MECHA4,MECHA5,MECHA6,MECHA7,MECHAT
60  GOTO 110
70  CHAIN "$MECHA1"
80  CHAIN "$MECHA5"
90  CHAIN "$MECHA6"
100  CHAIN "$MECHA7"
110  D1=D/6
120  R1=R/5
130  PRINT 
140  PRINT "                      ----PROJECTED PATH OF FLIGHT----"
150  PRINT "Y DISTANCE OF"
160  PRINT "CAPSULE(*) FROM"
170  PRINT "SPACE VEHICLE"
180  PRINT "IN METERS"
190  IF Q$="F" THEN 220
200  IF Q$="C" THEN 220
210  GOTO 250
220  C3=0
230  C9=0
240  GOTO 320
250  IF Q$="G" THEN 270
260  GOTO 320
270  C6=D/6
280  C3=500*V1/R
290  C4=W
300  C2=C8=0
310  C7=R/V1
320  FOR N=1 TO 7
330  E1=INT((N-1)*D1)
340  FOR M=1 TO 6
350  E2=E1/(10^M)
360  IF E2<1 THEN 380
370  NEXT M
380  IF Q$="E" THEN 860
390  IF Q$="G" THEN 950
400  IF Q$="C" THEN 1070
410  IF Q$="D" THEN 1190
420  IF Q$="B" THEN 1270
430  IF Q$="F" THEN 1370
440  R2=(N-1)*D1*V1*50/(R*V2)
450  R2=INT(R2+.5)
460  IF N=1 THEN 480
470  PRINT '13'10'10;
480  PRINT TAB(9-M);E1'13TAB(11);".";
490  IF R2<55 THEN 510
500  GOTO 550
510  PRINT TAB(12+R2)"*";
520  IF E1#0 THEN 560
530  PRINT TAB(13);"(VEHICLE)";
540  GOTO 560
550  PRINT TAB(67);
560  NEXT N
570  PRINT '13;
580  PRINT TAB(12);
590  FOR N=1 TO 51
600  FOR M=1 TO 5
610  IF N=(M*10)+1 THEN 650
620  NEXT M
630  PRINT ".";
640  GOTO 660
650  PRINT "!";
660  NEXT N
670  PRINT "(STATION)"
680  PRINT TAB(12);"0";
690  FOR N=2 TO 6
700  B1=INT((N-1)*R1)
710  FOR M=1 TO 6
720  B2=B1/(10^M)
730  IF B2<1 THEN 750
740  NEXT M
750  PRINT TAB((N-1)*10+12-B2/2);INT((B1/1000)+.5);
760  NEXT N
770  PRINT '13
780  PRINT TAB(14);"X DISTANCE FROM SPACE VEHICLE IN METERS/1000"
790  PRINT 
800  IF P=5 THEN 80
810  IF P=6 THEN 90
820  IF P=7 THEN 100
830  GOTO 70
840  REM Q$="E"
850  REM C1=A, C2=D1, C3=T, C4=R1
860  C1=K4/W
870  C2=D/6
880  C2=(N-1)*C2
890  C3=SQR(2*C2/C1)
900  C4=V1*C3/R
910  R2=C4*50
920  GOTO 450
930  REM Q$="G"
940  REM C1=.5A,C2=V,C3=DM/DT,C4=M,C5=T1,C6=D1,C7=T,C8=T2,C9=R1
950  C9=V1*C8/R
960  R2=50*C9
970  REM F=D/DT(MV) = M(DV/DT) + V(DM/DT) = MA + V(DM/DT)
980  C1=.5*(K4-C2*C3)/C4
990  REM .5 AT^2 + V T - D = 0, T BY QUADRATIC FORMULA
1000  C5=(-C2+SQR(C2^2+4*C1*C6))/(2*C1)
1010  C2=2*C1*C5+C2
1020  C4=C4-500*C5/C7
1030  C8=C8+C5
1040  GOTO 450
1050  REM Q$="C"
1060  REM C2=D1, C3=T1, C4=R1, C5=V2
1070  C1=D/6
1080  C2=(N-1)*C1
1090  IF C3>T THEN 1140
1100  C3=SQR(2*C2/A)
1110  C4=V1*C3
1120  C5=A*C3
1130  GOTO 1150
1140  C4=C4+V1*C1/C5
1150  R2=C4*50/R
1160  GOTO 450
1170  REM Q$="D"
1180  REM C2=D1, C3=T1, C4=R1
1190  C1=D/6
1200  C2=(N-1)*C1
1210  C3=SQR(2*C2/A)
1220  C4=.5*A2*C3^2+V1*C3
1230  C4=C4/R
1240  R2=C4*50
1250  GOTO 450
1260  REM Q$="B"
1270  C1=F/T
1280  R=V1*T
1290  C2=.5*C1*T^2
1300  C3=(N-1)*C2/6
1310  C4=SQR(2*C3/A)
1320  C5=V1*C4/R
1330  R2=C5*50
1340  GOTO 450
1350  REM Q$="F"
1360  REM C1=A,C2=D1,C3=T,C4=R1,C5=V,C6=T1
1370  C1=K4/W
1380  C2=D/6
1390  C2=(N-1)*C2
1400  IF C3 >= T THEN 1460
1410  C3=SQR(2*C2/C1)
1420  C4=V1*C3/R
1430  R2=C4*50
1440  C9=1
1450  GOTO 450
1460  IF C9#1 THEN 1490
1470  C5=C3*C1
1480  C6=(D/6)/C5
1490  C4=C4+(V1*C6)/R
1500  R2=C4*50
1510  C9=2
1520  GOTO 450
1530  END 
