10  COM N$[72],F$[72],A$[3],D,R,V1,V2,P,Q,F,T,A
20  COM Q$[1],K4,W,P$[1]
30  REM PROGRAM NAME = MECHAT, BEGINS WITH 'MECHAN' - FOR MECHA1
40  REM CHAINED TO MECHAN,MECHA1,MECHA4,MECHA5,MECHA6,MECHA7,MECHAG
50  GOTO 70
60  CHAIN "$MECHA1"
70  GOTO P OF 80,280,400
80  PRINT F$", THE SOLUTION TO THIS PROBLEM DEPENDS ON THE TIME THAT THE"
90  PRINT "CAPSULE TAKES TO TRAVEL THE DISTANCE OX."
100  PRINT 
110  PRINT "STEPS TO SOLVE THE PROBLEM."
120  PRINT "  1. CALCULATE THE MAXIMUM TIME FROM CAPSULE'S OX"
130  PRINT "    VELOCITY AND THE DISTANCE OX."
140  PRINT '10"     TIME = DISTANCE OX/VELOCITY ALONG OX"
150  PRINT 
160  PRINT "    TIME = ("R"METERS)/("V1"M/SEC)"
170  PRINT 
180  PRINT "    TIME = "R/V1"SECONDS"
190  PRINT 
200  PRINT "  2. CALCULATE THE YO VELOCITY FROM THE MAXIMUM TIME"
210  PRINT "     AND DISTANCE YO."
220  PRINT 
230  PRINT "    VELOCITY = ("D"METERS)/("R/V1"SECONDS)"
240  PRINT 
250  PRINT "    VELOCITY = "D/(R/V1)"METERS/SECOND"
260  PRINT 
270  GOTO 750
280  PRINT 
290  PRINT F$", THE ACCELERATION DEPENDS ON THE CHANGE IN VELOCITY"
300  PRINT "AND THE TIME."
310  PRINT 
320  PRINT 
330  PRINT "   ACCELERATION = (FINAL VELOCITY - INITIAL VELOCITY)/ TIME"
340  PRINT '10"                = (FINAL VELOCITY - 0)/ TIME"
350  PRINT 
360  PRINT "                = ("F"METERS/SEC)/"T"SECONDS"
370  PRINT '10" =              = "F/T"M/SEC/SEC"
380  PRINT 
390  GOTO 750
400  PRINT 
410  PRINT F$", THE SOLUTION TO THIS PROBLEM DEPENDS ON TWO DERIVED"
420  PRINT "QUANTITIES: 1. TIME UNTIL DOCKING, AND 2. ACCELERATION."
430  PRINT 
440  PRINT "STEPS TO A SOLUTION:"
450  PRINT "  1. CALCULATE THE TIME REQUIRED FOR THE CAPSULE TO TRAVEL"
460  PRINT "  DISTANCE OX."
470  PRINT "TIME TO TRAVEL OX = (DISTANCE OX)/(VELOCITY OF SPACE SHIP)"
480  PRINT 
490  PRINT "                   ="R"METERS/("V1"METERS/SECOND)"
500  PRINT "                   ="R/V1"SECONDS"
510  PRINT 
520  PRINT "  2. DETERMINE THE ACCELERATION NECESSARY TO TRAVEL DISTANCE"
530  PRINT "       YO IN "R/V1"SECONDS."
540  PRINT 
550  PRINT "DISTANCE YO = (1/2) * A * (T^2)   +   (INITIAL V) * T"
560  PRINT 
570  PRINT "     INITIAL V = 0"
580  PRINT 
590  PRINT "SOLVING THE EQUATION FOR A,"
600  PRINT 
610  PRINT "ACCELERATION = (2*(DISTANCE YO))/(TIME)^2"
620  PRINT 
630  PRINT "             = (2*("D"METERS))/("(R/V1)^2"SECONDS)^2"
640  PRINT 
650  PRINT "                ="2*D/((R/V1)^2)"(M/SEC)/SEC"
660  PRINT 
670  GOTO 750
680  PRINT 
690  PRINT 
700  PRINT 
710  PRINT 
720  PRINT 
730  PRINT 
740  PRINT 
750  PRINT F$", DO YOU WANT TO TRY A SIMILAR PROBLEM?  ";
760  ENTER 200,W1,A$
770  PRINT 
780  IF A$="YES" THEN 820
790  IF A$#"NO" THEN 750
800  GOTO 840
810  LET P=1
820  Q$=""
830  GOTO 60
840  Q$=""
850  P=P+1
860  GOTO 60
870  END 
