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