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],A2,A3,L,T1
30  REM PROGRAM NAME = MECHA6, BEGINS WITH 'MECHAN'
40  REM CHAINED TO MECHAN,MECHA1,MECHA4,MECHA5,MECHA7,MECHAG,MECHAT
50  GOTO 80
60  CHAIN "$MECHAG"
70  CHAIN "$MECHA4"
80  IF Q$="Y" THEN 1490
90  IF Q$="F" THEN 720
100  IF P$="A" THEN 180
110  PRINT 
120  PRINT "PART 6:"
130  PRINT 
140  PRINT F$", YOU ENGINE WILL BURN FOR A MAXIMUM OF"T"SECONDS"
150  PRINT "YOU MUST CALCULATE THE FORCE NEEDED IN NEWTONS,"
160  PRINT "AND THE LENGTH(SECONDS) OF THE BURN."
170  GOSUB 1380
180  PRINT 
190  PRINT "DISTANCE YO               ="D"METERS"
200  PRINT "DISTANCE OX              ="R" METERS"
210  PRINT "SPACE VEHICLE'S VELOCITY  ="V1"METERS/SEC IN OX DIRECTION"
220  PRINT "CAPSULE INITIAL MASS      ="W"KILOGRAMS"
230  T1=INT((.5*R/V1)*100)/100
240  L=0
250  IF P$="A" THEN 270
260  GOTO 290
270  K6=D/(1.5*T^2)
280  PRINT K6*4000,T
290  PRINT "WHAT SHOULD THE FORCE(NEWTONS) IN THE YO DIRECTION BE?  ";
300  K2=180
310  ENTER #K1,K2,K3,K4
320  PRINT 
330  L=L+1
340  J=1
350  IF K3>0 THEN 410
360  IF L=3 THEN 520
370  PRINT "YOU ARE"540-L*180"SECONDS FROM THE EJECTION POINT AND CLOSING"
380  PRINT "AT"V1"METERS/SEC."
390  PRINT 
400  GOTO 290
410  L=0
420  PRINT "HOW LONG(SECONDS) DO YOU WANT THE BURN?  ";
430  ENTER #K1,K2,K3,T
440  PRINT 
450  L=L+1
460  J=2
470  IF K3>0 THEN 560
480  IF L=3 THEN 520
490  PRINT "YOU ARE"180-L*60"SECONDS FROM THE EJECTION POINT AND CLOSING"
500  PRINT V1"METERS/SECOND."
510  PRINT 
520  PRINT 
530  PRINT F$", YOU ARE IN NEED OF HELP TO COMPLETE YOUR MISSION."
540  GOTO 620
550  Q$="F"
560  IF T>T1 THEN 580
570  GOTO 600
580  PRINT "YOU HAVE EXCEEDED THE MAXIMUM TIME."
590  GOTO 410
600  Q$="F"
610  GOTO 60
620  PRINT "DO YOU WANT TO USE THE ONBOARD COMPUTER";
630  ENTER 200,W1,X$
640  PRINT 
650  IF J=2 THEN 690
660  IF X$="YES" THEN 760
670  IF X$#"NO" THEN 620
680  GOTO 290
690  IF X$="YES" THEN 760
700  IF X$#"NO" THEN 620
710  GOTO 420
720  K6=.5*(K4/W)*(T^2)+(K4/W)*T*((R/V1)-T)
730  IF ABS(K6-D)<ABS(.01*K6) THEN 1470
740  J=1
750  GOTO 530
760  PRINT 
770  PRINT "      THIS IS HAL  -  READY  -"
780  PRINT 
790  PRINT "   T ="T1"SECONDS"
800  PRINT 
810  PRINT "   D = .5 * A * T^2"
820  PRINT "   D = DISTANCE TRAVELED WHEN ACCELERATING"
830  PRINT "   A = ACCELERATION = FORCE/MASS"
840  PRINT "   T = TIME "
850  PRINT 
860  C1=1
870  PRINT " * DO YOU NEED MORE HELP?  ";
880  ENTER 200,W1,X$
890  PRINT 
900  IF X$="YES" THEN 960
910  IF X$#"NO" THEN 870
920  PRINT "      HAL OUT   -"
930  PRINT 
940  PRINT 
950  GOTO 240
960  GOTO C1 OF 970,1040,1110,1170,1240,1310
970  PRINT 
980  PRINT "   V = A * T  +  (INITIAL V)"
990  PRINT "      INITIAL V = 0"
1000  PRINT "   V = VELOCITY AFTER ACCELERATION"
1010  C1=2
1020  PRINT 
1030  GOTO 870
1040  PRINT 
1050  PRINT "   S = V * T"
1060  PRINT "   S = DISTANCE TRAVELED AFTDR ACCELERATION, AT CONSTANT VELOCITY"
1070  PRINT 
1080  C1=3
1090  PRINT 
1100  GOTO 870
1110  PRINT 
1120  PRINT "   YO = D + S"
1130  PRINT "   "D"METERS = D + S"
1140  PRINT 
1150  C1=4
1160  GOTO 870
1170  PRINT 
1180  PRINT "   Y0 = (.5 * A * T^2)  +  (A * T^2)"
1190  PRINT "   YO = 1.5 * A * T^2"
1200  PRINT "   A = YO/(1.5 * T^2)"
1210  PRINT 
1220  C1=5
1230  GOTO 870
1240  PRINT 
1250  PRINT "   A ="D"METERS/(1.5 * ("T1"SECONDS)^2)"
1260  PRINT "   A ="D/T1^2"METERS/SEC^2"
1270  A=D/(1.5*(.5*R/V1)^2)
1280  PRINT 
1290  C1=6
1300  GOTO 870
1310  PRINT '10"   F = M * A"
1320  PRINT "   F = "W"KILOGRAMS  *"A"METERS/SEC^2"
1330  PRINT "   F ="W*A"NEWTONS"
1340  K4=W*A
1350  T=.5*R/V1
1360  PRINT 
1370  GOTO 920
1380  PRINT 
1390  PRINT "HERE IS A MAP OF YOUR PROBLEM:"
1400  PRINT 
1410  PRINT "Y (SPACE VEHICLE)--->"
1420  FOR N=1 TO 6
1430  PRINT "'"
1440  NEXT N
1450  PRINT "O----------------------------------------X (SPACE STATION)"
1460  RETURN 
1470  PRINT 
1480  PRINT "RIGHT ON, "F$"!!  YOU ARE WITHIN 1% OF THE CORRECT VALUE."
1490  X$="A"
1500  P=7
1510  GOTO 70
1520  END 
