10  COM N$[72],F$[72],I,Q,P,C5,W,Q1,N,A,F,T5
20  GOTO 70
30  CHAIN "$BLINK6"
40  CHAIN "$BLINKD"
50  REM PROGRAM NAME = BLINK5,GIVES PROBLEMS
60  REM CHAINED TO BLINKY,BLINKD,BLINKM,BLINKP,BLINK2,BLINK3,BLINK6
70  DIM X$[3]
80  IF W=0 THEN 390
90  PRINT '10'10
100  PRINT "WHAT IS YOUR PROBLEM NUMBER";
110  INPUT I
120  LET I=I+93457.
130  LET Q1=INT(I/100000.)
140  LET Q=Q1
150  IF Q<1 THEN 340
160  LET F=INT((I-Q1*100000.)/10000)
170  IF F>7 THEN 340
180  IF F <= 0 THEN 340
190  IF F=1 THEN 200
200  LET N=INT((I-(Q1*100000.+F*10000))/100)
210  IF N<1 THEN 230
220  IF N <= 50 THEN 240
230  GOTO 340
240  LET A=INT((I-(Q1*100000.+F*10000+N*100))/10)
250  IF A<1 THEN 270
260  IF A <= 10 THEN 280
270  GOTO 340
280  LET C1=I-(Q1*100000.+F*10000+N*100+A*10)
290  IF C1=0 THEN 320
300  IF C1=1 THEN 320
310  GOTO 340
320  PRINT 
330  GOTO 390
340  PRINT 
350  PRINT "YOU HAVE INPUT AN ILLEGAL PROBLEM NUMBER."
360  PRINT "TRY AGAIN!"
370  PRINT 
380  GOTO 100
390  PRINT "HERE IS YOUR PROBLEM, "N$":"
400  PRINT '10'10"-----SIMULATED PHOTOGRAPH:"'10
410  LET T1=0
420  DIM A$[72],B$[72],C$[72]
430  LET B$="0123456789"
440  IF N>40 THEN 480
450  LET A$="0    5    10   15   20   25   30   35   40   45   50"
460  PRINT A$;
470  GOTO 500
480  LET C$="50   45   40   35   30   25   20   15   10    5   0"
490  PRINT C$;
500  PRINT "   (METERS)"
510  PRINT '13;
520  FOR C=5 TO 55
530  IF C/5=INT(C/5) THEN 560
540  PRINT "'";
550  GOTO 570
560  PRINT "!";
570  NEXT C
580  DIM A[72]
590  MAT A=CON
600  LET T=0
610  GOTO Q1 OF 620,730,810
620  LET B=50
630  IF N>40 THEN 660
640  IF N<15 THEN 680
650  IF F=1 THEN 680
660  LET A=-A
670  LET B=0
680  FOR Y=N TO B STEP A
690  GOSUB 950
700  NEXT Y
710  GOTO 1040
720  LET F=1
730  IF N>40 THEN 750
740  IF N<10 THEN 760
750  LET A=-A
760  LET Y=INT(.5*A*T^2+.5)+N
770  IF Y>50 THEN 1040
780  IF Y <= 0 THEN 1040
790  GOSUB 950
800  GOTO 760
810  REM INITIAL VEL
820  IF N<6 THEN 850
830  IF N>44 THEN 840
840  LET A=-A
850  LET Y=N+A*T
860  GOSUB 950
870  IF T=2 THEN 890
880  GOTO 850
890  LET T1=0
900  LET Y=N+A*T+INT(.5*A*T1^2+.5)
910  IF Y<0 THEN 1040
920  IF Y>50 THEN 1040
930  GOSUB 950
940  GOTO 900
950  FOR X=1 TO 50
960  IF X#Y THEN 1020
970  LET A[X]=2
980  LET T=T+1
990  LET T5=T-1
1000  IF Q#3 THEN 1020
1010  LET T1=T1+1
1020  NEXT X
1030  RETURN 
1040  LET R=0
1050  PRINT 
1060  LET N2=1
1070  FOR Y=1 TO 51
1080  GOTO A[Y] OF 1090,1140
1090  IF R=1 THEN 1120
1100  PRINT " ";
1110  GOTO 1230
1120  PRINT " ";
1130  GOTO 1230
1140  IF R=1 THEN 1170
1150  PRINT "*";
1160  GOTO 1230
1170  IF A<0 THEN 1210
1180  PRINT B$[N2,N2];
1190  LET N2=N2+1
1200  GOTO 1230
1210  PRINT B$[T,T];
1220  LET T=T-1
1230  NEXT Y
1240  IF R=1 THEN 1270
1250  LET R=1
1260  GOTO 1050
1270  PRINT "   (FLASH SEQUENCE)"
1280  PRINT 
1290  PRINT 
1300  PRINT F"SECOND(S) BETWEEN FLASHES."
1310  IF W=0 THEN 1330
1320  GOTO 30
1330  IF A>0 THEN 1360
1340  LET C1=0
1350  GOTO 1370
1360  LET C1=1
1370  LET C2=ABS(10*A)
1380  LET C3=100*N
1390  LET C4=10000*F
1400  LET C5=100000.*Q
1410  PRINT 
1420  LET I2=C5+C4+C3+C2+C1
1430  LET I=I2-93457.
1440  PRINT "YOUR PROBLEM NUMBER IS -------"I
1450  PRINT '10"-----PROBLEMS:                     ANSWERS:"'10
1460  GOTO Q1 OF 1470,1580,1770
1470  PRINT 
1480  PRINT "1. CALCULATE THE TIME LAPSE"
1490  PRINT "BETWEEN POINTS 0 AND"T5"    -------------------"
1500  PRINT 
1510  PRINT "2. CALCULATE THE DISTANCE"
1520  PRINT "BETWEEN POINTS 0 AND"T5".   -------------------"
1530  PRINT 
1540  PRINT "3. CALCULATE THE AVERAGE SPEED"
1550  PRINT "BETWEEN POINTS 0 AND"T5".   -------------------"
1560  PRINT 
1570  GOTO 1930
1580  PRINT 
1590  PRINT "1. CALCULATE THE DISTANCE"
1600  PRINT "IN METERS BETWEEN POINTS"
1610  PRINT "1 AND 2                        ----------------------"
1620  PRINT 
1630  PRINT "2. CALCULATE THE DISTANCE"
1640  PRINT "IN METERS BETWEEN POINTS"
1650  PRINT "2 AND 3                        ----------------------"
1660  PRINT 
1670  PRINT "3. CALCULATE THE AVERAGE SPEED"
1680  PRINT "BETWEEN POINTS 1 AND 2         ----------------------"
1690  PRINT 
1700  PRINT "4. CALCULATE THE AVERAGE SPEED"
1710  PRINT "BETWEEN POINTS 2 AND 3         ----------------------"
1720  PRINT 
1730  PRINT "5. CALCULATE THE"
1740  PRINT "ACCELERATION                   ----------------------"
1750  PRINT 
1760  GOTO 1930
1770  PRINT 
1780  PRINT "1. BETWEEN POINTS 0 AND 2, CALCULATE:"
1790  PRINT 
1800  PRINT "     A. THE DISTANCE IN METERS         ---------------"
1810  PRINT 
1820  PRINT "     B. THE NUMBER OF SECONDS ELAPSED  ---------------"
1830  PRINT 
1840  PRINT "     C. THE AVERAGE SPEED (M/SEC)      ---------------"
1850  PRINT '10'10
1860  PRINT "2. CALCULATE THE SPEED BETWEEN"
1870  PRINT "POINTS 2 AND 3                         ---------------"
1880  PRINT 
1890  PRINT "3. CALCULATE THE SPEED BETWEEN"
1900  PRINT "POINTS 3 AND 4                         ---------------"
1910  PRINT 
1920  PRINT "4. CALCULATE THE ACCELERATION           ---------------"
1930  PRINT '10"-----------------------------------------------------------"'10
1940  PRINT "DO YOU WANT ANOTHER PROBLEM";
1950  INPUT X$
1960  PRINT 
1970  IF X$="NO" THEN 2020
1980  IF X$#"YES" THEN 1940
1990  LET C5=5
2000  LET P=3
2010  GOTO 40
2020  PRINT "DO THE CALCULATIONS AWAY FROM THE TELETYPE.  WHEN YOU HAVE"
2030  PRINT "FINISHED THE CALCULATIONS, RUN BLINKY AGAIN TO CHECK YOUR ANSWERS."
2040  PRINT "GOOD LUCK, "F$"."
2050  END 
