10  COM N$[72],F$[72],A$[3],D,R,V1,V2,P,Q
20  COM F,T,A,Q$[1],K4,W,P$[1]
30  REM PROGRAM NAME = MECHAN, TO BEGIN MECHANICS PROGRAMS
40  REM CHAINED TO MECHA1,MECHA4,MECHA5,MECHA6,MECHA7,MECHAG,MECHAT
50  GOTO 80
60  CHAIN "$MECHA4"
70  CHAIN "$MECHA1"
80  P$=" "
90  Q$=" "
100  GOTO 120
110  P$="A"
120  PRINT "PLEASE TYPE YOUR NAME:  ";
130  ENTER 200,W1,N$
140  PRINT 
150  FOR N1=1 TO LEN(N$)
160  IF N$[N1,N1]=" " THEN 200
170  NEXT N1
180  LET F$=N$[1,N1]
190  GOTO 210
200  LET F$=N$[1,N1-1]
210  PRINT 
220  PRINT F$", DO YOU WANT INSTRUCTIONS FOR RUNNING MECHAN?   ";
230  ENTER 200,W1,A$
240  PRINT 
250  PRINT 
260  IF A$="NO" THEN 410
270  IF A$#"YES" THEN 210
280  PRINT "MECHAN IS A SIX PART PROBLEM, WHICH IS A SIMULATION OF A SPACE SHIP"
290  PRINT "PASSING BY A SPACE STATION.  AS IT PASSES BY, A CAPSULE IS EJECTED"
300  PRINT "FROM THE SHIP, AND MUST BE DOCKED WITH THE STATION.  THE DOCKING"
310  PRINT "SYSTEM REQUIRES THAT THE CAPSULE APPEAR TO COLLIDE WITH THE STATION."
320  PRINT '10"WHICH OF THE FOLLOWING PARTS DO YOU WANT:"
330  PRINT "     1. CALCULATE AN EJECTION VELOCITY,"
340  PRINT "     2. CALCULATE A UNIFORM ACCELERATION,"
350  PRINT "     3. CALCULATE AN ACCELERATION FOR A PERIOD OF TIME,"
360  PRINT "     4. CONSIDER ACCELERATIONS IN TWO DIRECTIONS AT THE SAME TIME,"
370  PRINT "     5. CALCULATE A UNIFORM EJECTION FORCE, OR"
380  PRINT "     6. CALCULATE A FORCE FOR A PERIOD OF TIME.  ";
390  GOTO 410
400  GOTO 470
410  PRINT "WHICH PART DO YOU WANT?  ";
420  ENTER 200,W1,P
430  PRINT 
440  IF P<5 THEN 470
450  A$="A"
460  GOTO 60
470  GOTO 70
480  END 
