10  COM T5,V3,A,N,M1,T1,V1,V2,A1,A2,M2,D$[30],N5
20  COM Y$[30]
30  GOTO 90
40  CHAIN "$ZOOM"
50  CHAIN "$ZTRANS"
60  CHAIN "$ZOOMA"
70  REM PROGRAM NAME = ZOOMIE, BEGINS ZOOMIE
80  REM CHAINED TO ZTRANS, ZOOM, ZOOMA
90  DIM C$[3],K$[10]
100  B=K1=240
110  PRINT "PLEASE TYPE YOUR NAME:  ";
120  ENTER B,C,D$
130  PRINT '13
140  IF C<0 THEN 110
150  FOR G1=1 TO LEN(D$)
160  IF D$[G1,G1]#" " THEN 180
170  GOTO 210
180  NEXT G1
190  Y$=D$
200  GOTO 220
210  Y$=D$[1,G1-1]
220  PRINT 
230  PRINT "HI "Y$".  DO YOU WANT A DEMONSTRATION OF ZOOMIE?  ";
240  GOTO 260
250  PRINT "DO YOU WANT A DEMONSTRATION OF ZOOMIE?  ";
260  ENTER B,C,C$
270  PRINT '13
280  IF C<0 THEN 250
290  IF C$="NO" THEN 750
300  IF C$#"YES" THEN 250
310  M1=300000.
320  LET T1=100
330  LET V1=0
340  LET V2=4500
350  LET A1=450
360  LET A2=-450
370  PRINT "DO YOU HAVE A COPY OF THE DESIGN CHARACTERISTICS OF THE MACHINE?  ";
380  ENTER B,C,C$
390  PRINT '13
400  IF C<0 THEN 370
410  IF C$="YES" THEN 930
420  IF C$#"NO" THEN 370
430  PRINT 
440  PRINT "1. MISSION ASSIGNMENT:"'10
450  PRINT "DISTANCE TO DESTINATION = 300,000 METERS."
460  PRINT "TIME ALLOWED FOR TRAVEL =     100 SECONDS."
470  PRINT 
480  PRINT "2. DESIGN CHARACTERISTICS OF THE MACHINE:"
490  PRINT 
500  PRINT "MINIMUM VELOCITY =    0 METERS/SECOND."
510  PRINT "MAXIMUM VELOCITY = 4500 METERS/SECOND."
520  PRINT 
530  PRINT "MINIMUM ACCELERATION = -450 (METERS/SECOND)/SECOND."
540  PRINT "MAXIMUM ACCELERATION =  450 (METERS/SECOND)/SECOND."
550  PRINT 
560  PRINT "3. PILOTING THE MACHINE:"'10
570  PRINT Y$", YOU WILL BE ABLE TO CONTROL THE AMOUNT OF TIME"
580  PRINT "THAT YOUR MACHINE IS ACCELERATING OR TRAVELING AT A UNIFORM VELOCITY"
590  PRINT "BY USING THE RETURN KEY ON YOUR TELETYPE.  WHEN YOU ARE ASKED FOR THE"
600  PRINT "AMOUNT OF TIME, MEASUREMENT OF THE AMOUNT BEGINS WHEN YOU PRESS THE"
610  PRINT "RETURN KEY, AND STOPS WHEN YOU PRESS IT AGAIN - LIKE A STOP WATCH."
620  PRINT "PLEASE PRACTICE THIS TIMING DEVICE NOW.  SEE HOW CLOSE YOU CAN GET"
630  PRINT "TO 5 SECONDS.  "
640  PRINT 
650  PRINT "TIME (WITH RETURN KEY):";
660  ENTER K1,K2,K$
670  IF K2>0 THEN 700
680  PRINT '10
690  GOTO 590
700  ENTER K1,K2,K$
710  PRINT '10"TIME USED ="K2"SECONDS.  COMPARE THIS WITH THE TIME"
720  PRINT "YOU THOUGHT YOU HAD USED."
730  GOTO 40
740  PRINT 
750  PRINT "HAVE YOU DESIGNED A TRANSPORT MACHINE?  ";
760  ENTER B,C,C$
770  PRINT '13
780  IF C<0 THEN 750
790  IF C$="YES" THEN 830
800  IF C$#"NO" THEN 750
810  LET N5=1
820  GOTO 60
830  PRINT "HAVE YOU WRITTEN A MISSION PLAN?  ";
840  ENTER B,C,C$
850  PRINT '13
860  IF C<0 THEN 830
870  IF C$="YES" THEN 910
880  IF C$#"NO" THEN 830
890  LET N5=2
900  GOTO 50
910  LET N5=3
920  GOTO 50
930  PRINT '10"PILOTING THE MACHINE:"
940  GOTO 570
950  END 
