10  COM N$[72],F$[72],I,Q,P,C5,W,Q1,N,A,F,T5
20  GOTO 90
30  CHAIN "$BLINK2"
40  CHAIN "$BLINK3"
50  CHAIN "$BLINK5"
60  CHAIN "$BLINKM"
70  REM PROGRAM NAME = BLINKD, DIRECTS THE PACKAGE
80  REM CHAINED TO BLINKY,BLINKM,BLINKP,BLINK2,BLINK3,BLINK5,BLINK6
90  B1=100
100  DIM B$[5]
110  GOTO P OF 570,270,350,450
120  PRINT "HAVE YOU RUN THE UNIFORM SPEED PROGRAM?  ";
130  ENTER B1,B,B$
140  PRINT '13
150  IF B<0 THEN 120
160  IF B$="YES" THEN 190
170  IF B$#"NO" THEN 120
180  GOTO 30
190  PRINT "HAVE YOU RUN THE UNIFORM ACCELERATION PROGRAM?  ";
200  ENTER B1,B,B$
210  PRINT '13
220  IF B<0 THEN 190
230  IF B$="YES" THEN 570
240  IF B$#"NO" THEN 180
250  GOTO 40
260  GOTO 340
270  PRINT '10;
280  LET W=1
290  PRINT 
300  GOTO 50
310  IF P=2 THEN 340
320  PRINT '10;
330  GOTO 120
340  W=0
350  PRINT "WHICH OF THE FOLLOWING PROBLEMS DO YOU WANT TO TRY:"
360  PRINT "     1)UNIFORM SPEED,"
370  PRINT "     2)ZERO INITIAL SPEED WITH UNIFORM ACCELERATION, OR"
380  PRINT "     3)INITIAL SPEED WITH UNIFORM ACCELERATION?  ";
390  GOTO 410
400  PRINT "INPUT EITHER 1, 2, OR 3.   ";
410  ENTER B1,B,Q
420  PRINT '13
430  IF B<0 THEN 400
440  IF Q<0 OR Q>3 THEN 400
450  GOTO Q OF 470,500,530
460  GOTO 60
470  PRINT "--------UNIFORM SPEED PROBLEM:"
480  PRINT 
490  GOTO 60
500  PRINT '10"--------ZERO INITIAL SPEED WITH UNIFORM ACCELERATION PROBLEM:"
510  PRINT 
520  GOTO 60
530  PRINT '10"--------INITIAL SPEED WITH UNIFORM ACCELERATION PROBLEM:"
540  PRINT 
550  GOTO 60
560  END 
570  PRINT '10"WHICH OF THE FOLLOWING DO YOU WANT:"
580  PRINT "     1)PROGRAMS FOR SPEED AND ACCELERATION,"
590  PRINT "     2)PROBLEMS INVOLVING SPEED AND ACCELERATION, OR"
600  PRINT "     3)CHECKING ASSIGNED PROBLEMS?  ";
610  ENTER B1,B,J
620  PRINT '10
630  GOTO J OF 660,340,280
640  GOTO 610
650  END 
660  PRINT F$", YOU WILL BE ABLE TO CONTROL THE AMOUNT OF TIME THE OBJECT"
670  PRINT "MOVES.  WHEN YOU ARE ASKED FOR THE AMOUNT OF TIME, MEASUREMENT OF THE"
680  PRINT "AMOUNT BEGINS WHEN YOU PRESS THE RETURN KEY, AND STOPS WHEN YOU"
690  PRINT "PRESS IT AGAIN - LIKE A STOPWATCH.  PLEASE PRACTICE THIS TIMING "
700  PRINT "DEVICE NOW.  SEE HOW CLOSE YOU CAN GET TO 5 SECONDS."
710  PRINT 
720  PRINT "TIME (WITH RETURN KEY):";
730  ENTER 100,K3,Q$
740  IF K3>0 THEN 770
750  PRINT '13
760  GOTO 720
770  ENTER 100,K3,Q$
780  PRINT '10"TIME USED ="K3"SECONDS.  COMPARE THIS WITH THE TIME"
790  PRINT "YOU THOUGHT YOU HAD USED."'10
800  GOTO 120
810  END 
