10  COM N$[72],F$[72],X$[3],D,R,V1,V2,P,Q,F,T,A,Q$[1],K4
20  COM W,P$[1]
30  REM PROGRAM NAME = MECHA5, BEGINS WITH 'MECHAN'
40  REM CHAINED TO MECHAN,MECHA1,MECHA4,MECHA6,MECHA7,MECHAG,MECHAT
50  GOTO 80
60  CHAIN "$MECHAG"
70  CHAIN "$MECHA4"
80  IF Q$="X" THEN 1150
90  IF Q$="E" THEN 510
100  IF P$="A" THEN 200
110  PRINT 
120  PRINT "PART 5:"
130  PRINT 
140  PRINT F$", YOU ARE THE PILOT IN THE SELF-PROPELLED CAPSULE."
150  PRINT "THE PROPULSION SYSTEM OF THE CAPSULE WILL PROVIDE A "
160  PRINT "UNIFORM FORCE TO THE CAPSULE IN THE YO DIRECTION"
170  PRINT "FROM THE TIME OF EJECTION FROM THE VEHICLE UNTIL DOCKING"
180  PRINT "WITH THE STATION.  YOU MUST CALCULATE THE FORCE IN NEWTONS."
190  GOSUB 1040
200  PRINT 
210  PRINT "DISTANCE YO               ="D"METERS"
220  PRINT "DISTANCE OX              ="R" METERS"
230  PRINT "SPACE VEHICLE'S VELOCITY  ="V1"METERS/SEC IN OX DIRECTION"
240  PRINT "CAPSULE MASS              ="W"KILOGRAMS"
250  T=0
260  IF P$="A" THEN 280
270  GOTO 310
280  K4=W*2*D*V1^2/(R^2)
290  PRINT K4
300  IF T=3 THEN 410
310  PRINT "WHAT SHOULD THE FORCE(NEWTONS) IN THE YO DIRECTION BE?  ";
320  K2=60
330  ENTER #K1,K2,K3,K4
340  PRINT 
350  T=T+1
360  IF K3>0 THEN 440
370  PRINT "YOU ARE"180-T*60"SECONDS FROM THE EJECTION POINT AND CLOSING"
380  PRINT "AT"V1"METERS/SEC."
390  PRINT 
400  GOTO 300
410  PRINT 
420  PRINT F$", YOU ARE IN NEED OF HELP TO COMPLETE YOUR MISSION."
430  GOTO 460
440  Q$="E"
450  GOTO 60
460  PRINT "DO YOU WANT TO USE THE ONBOARD COMPUTER?  ";
470  INPUT X$
480  IF X$="YES" THEN 540
490  IF X$#"NO" THEN 460
500  GOTO 310
510  K5=(W*2*D*V1^2)/R^2
520  IF ABS(K5-K4)<ABS(.01*K5) THEN 1130
530  GOTO 420
540  PRINT 
550  PRINT "       THIS IS HAL  -  READY  -"
560  PRINT 
570  PRINT "   F = M * A"
580  PRINT "   F = FORCE IN NEWTONS"
590  PRINT "   M = MASS IN KILOGRAMS"
600  PRINT "   A = ACCELERATION IN (M/SEC)/SEC"
610  C1=1
620  PRINT 
630  PRINT " * DO YOU WANT MORE HELP?  ";
640  ENTER 200,W1,X$
650  PRINT 
660  IF X$="YES" THEN 750
670  IF X$#"NO" THEN 630
680  PRINT 
690  PRINT 
700  PRINT "       HAL OUT  -"
710  PRINT 
720  PRINT 
730  PRINT 
740  GOTO 310
750  GOTO C1 OF 760,820,920,990
760  PRINT 
770  PRINT "   A = 2 * D/T^2"
780  PRINT "   D = DISTANCE IN YO DIRECTION IN METERS"
790  C1=2
800  PRINT 
810  GOTO 630
820  PRINT 
830  PRINT "   T = R/V1"
840  PRINT "   R = DISTANCE IN OX DIRECTION"
850  PRINT "   V1 = VELOCITY IN OX DIRECTION"
860  PRINT 
870  PRINT "   T ="R"METERS/"V1"(METERS/SEC) ="R/V1"SECONDS"
880  T=R/V1
890  C1=3
900  PRINT 
910  GOTO 630
920  PRINT 
930  PRINT "   A = 2 * D/T^2"
940  PRINT "   A = 2 *"D"METERS/("T"SECONDS)^2 = "2*D/T^2"METERS/SEC^2"
950  A=2*D/T^2
960  C1=4
970  PRINT 
980  GOTO 630
990  PRINT 
1000  PRINT "   F = M * A"
1010  PRINT "   R =("W"KILOGRAMS)*("A"M/SEC^2) = "W*A"NEWTONS"
1020  PRINT 
1030  GOTO 690
1040  PRINT 
1050  PRINT "HERE IS A MAP OF YOUR PROBLEM:"
1060  PRINT 
1070  PRINT "Y (SPACE VEHICLE) --->"
1080  FOR N=1 TO 6
1090  PRINT "'"
1100  NEXT N
1110  PRINT "O----------------------------------------X (SPACE STATION)"
1120  RETURN 
1130  PRINT 
1140  PRINT "RIGHT ON, "F$"!!  YOU ARE WITHIN 1% OF THE CORRECT VALUE!"
1150  X$="A"
1160  P=6
1170  GOTO 70
1180  END 
