10  COM T5,V3,A,N,M1,T1,V1,V2,A1,A2,M2,D$[30],N5,Y$[30]
20  GOTO 70
30  CHAIN "$ZOOM"
40  CHAIN "$ZOOMA"
50  REM PROGRAM NAME = ZTRANS, DIRECTS PROGRAMS
60  REM CHAINED TO ZOOMIE, ZOOMA, ZOOM
70  B=240
80  F4=0
90  PRINT '10"-------- MISSION FOR "D$":"
100  PRINT 
110  PRINT "INPUT THE DISTANCE(METERS) YOU MUST TRAVEL.  ";
120  ENTER B,C,M1
130  PRINT '13
140  IF C<0 THEN 110
150  F4=F4+1
160  IF M1/3=INT(M1/3) THEN 200
170  IF F4>1 THEN 360
180  PRINT "     YOU HAVE INPUT THE WRONG DISTANCE - TRY AGAIN."
190  GOTO 110
200  F4=0
210  PRINT "INPUT THE TIME(SECONDS) YOU ARE ALLOWED.  ";
220  ENTER B,C,T1
230  PRINT '13
240  IF C<0 THEN 210
250  PRINT "INPUT YOUR MISSION NUMBER.  ";
260  ENTER B,C,F7
270  PRINT '13
280  IF C<0 THEN 250
290  F4=F4+1
300  IF F7=INT((M1-T1*99)/2) THEN 350
310  IF F4>1 THEN 360
320  PRINT "     YOU HAVE INPUT EITHER THE WRONG MISSION NUMBER OR "
330  PRINT "     THE WRONG TIME - TRY AGAIN."
340  GOTO 210
350  GOTO 40
360  PRINT 
370  PRINT D$", LET'S START OVER AGAIN."
380  N5=1
390  GOTO 40
400  END 
