10  COM N$[72],F$[72],I,Q,P,C5,W,Q1,N,A,F,T5
20  GOTO 70
30  CHAIN "$BLINK5"
40  CHAIN "$BLINKD"
50  REM PROGRAM NAME = BLINK6, CHECKS PROBLEMS
60  REM CHAINED TO BLINKY,BLINKD,BLINKM,BLINKP,BLINK2,BLINK3,BLINK5
70  DIM X$[3]
80  PRINT '10"               PROBLEMS:                        YOUR ANSWERS:"'10
90  GOTO Q1 OF 100,610,1200
100  PRINT "1. HOW MANY SECONDS ELAPSED BETWEEN 0 AND"T5"         ";
110  INPUT T2
120  LET T3=T5*F
130  PRINT 
140  PRINT "2. YOUR CALCULATION FOR THE DISTANCE BETWEEN THE POINTS ";
150  INPUT D1
160  LET D3=ABS(A)*T5
170  PRINT 
180  PRINT "3. YOUR CALCULATION FOR THE AVERAGE SPEED               ";
190  INPUT V1
200  LET V3=D3/T3
210  PRINT 
220  PRINT "-----TABLE OF RESULTS:"
230  PRINT 
240  PRINT "  ","DISTANCE","SECONDS","SPEED"
250  PRINT "---------------------------------------------------"
260  PRINT "YOUR VALUES",D1,T2,V1
270  PRINT 
280  PRINT "CORRECT VALUES",D3,T3,V3
290  PRINT '10'10
300  LET T=0
310  LET E=3
320  IF ABS(D3-D1)/D3<.1 THEN 340
330  GOSUB 400
340  IF ABS(T3-T2)/T3<.1 THEN 360
350  GOSUB 400
360  IF ABS(V3-V1)/V3<.1 THEN 420
370  GOSUB 400
380  PRINT 
390  GOTO 420
400  LET T=T+1
410  RETURN 
420  IF T >= 1 THEN 450
430  GOSUB 470
440  GOTO 1880
450  GOSUB 500
460  GOTO 560
470  PRINT E-T"OF YOUR ANSWERS ARE WITHIN 10% OF THE ACCEPTABLE ANSWERS."
480  PRINT '10'10
490  RETURN 
500  PRINT 
510  PRINT F$",YOU MISSED"T" PROBLEMS. CHECK THE TABLE TO SEE WHICH PROBLEMS"
520  PRINT "YOU MISSED."
530  PRINT "LETS TRY A SIMILAR PROBLEM."
540  PRINT '10'10
550  RETURN 
560  C5=5
570  LET P=4
580  LET Q=1
590  LET W=0
600  GOTO 30
610  PRINT "1. YOUR CALCULATION OF THE DISTANCE BETWEEN 0 AND 2  ";
620  D5=.5*ABS(A)
630  D6=.5*ABS(A)*4
640  D7=.5*ABS(A)*9
650  INPUT D1
660  LET D3=D6-D5
670  PRINT 
680  PRINT "2. YOUR CALCULATION OF THE DISTANCE BETWEEN 2 AND 3  ";
690  INPUT D2
700  LET D4=D7-D6
710  PRINT 
720  PRINT "3. YOUR CALCULATION OF AVE. SPEED BETWEEN 1 AND 2    ";
730  PRINT "POINTS 1 AND 2";
740  INPUT V1
750  V3=D3/F
760  PRINT 
770  PRINT "4. YOUR CALCULATION OF AVE. SPEED BETWEEN 2 AND 3    ";
780  INPUT V2
790  V4=D4/F
800  PRINT 
810  PRINT "5. YOUR CALCULATION FOR THE ACCELERATION             ";
820  LET A3=(V4-V3)/F
830  INPUT A1
840  PRINT 
850  PRINT "-----TABLE OF RESULTS:"
860  PRINT 
870  PRINT "----------------------------------------------------------------------"
880  PRINT "  ","DISTANCE","DISTANCE","SPEED","SPEED"
890  PRINT "  ","1 TO 2","2 TO 3","1 TO 2","2 TO 3"
900  PRINT "---------------------------------------------------------------------"
910  PRINT "YOUR VALUES",D1,D2,V1,V2
920  PRINT 
930  PRINT "CORRECT VALUES",D3,D4,V3,V4
940  PRINT '10'10
950  PRINT "  ","ACCELERATION"
960  PRINT "YOUR VALUES",A1
970  PRINT 
980  PRINT "CORRECT VALUES",A3
990  LET T=0
1000  IF ABS(D4-D2)/D4<.1 THEN 1020
1010  GOSUB 400
1020  IF ABS(D3-D1)/D3<.1 THEN 1040
1030  GOSUB 400
1040  IF ABS(V3-V1)/V3<.1 THEN 1060
1050  GOSUB 400
1060  IF ABS(A3-A1)/A3<.1 THEN 1080
1070  GOSUB 400
1080  IF ABS(V4-V2)/V4<.1 THEN 1100
1090  GOSUB 400
1100  LET E=5
1110  IF T >= 2 THEN 1150
1120  PRINT 
1130  GOSUB 470
1140  GOTO 1880
1150  GOSUB 500
1160  LET P=4
1170  LET Q=2
1180  LET W=0
1190  GOTO 40
1200  PRINT "1. BETWEEN POINTS 0 AND 2:"
1210  PRINT "     A. YOUR CALCULATION FOR THE DISTANCE       ";
1220  INPUT D1
1230  PRINT "     B. YOUR CALCULATION FOR THE TIME             ";
1240  INPUT T1
1250  T3=F*2
1260  D3=ABS(A)*2
1270  PRINT "     C. YOUR CALCUALTION FOR THE AVERAGE SPEED    ";
1280  INPUT V1
1290  V3=D3/T3
1300  PRINT 
1310  PRINT "2. YOUR CALCULATION OF SPEED BETWEEN 2 AND 3      ";
1320  INPUT V2
1330  PRINT 
1340  PRINT "3. YOUR CALCULATION OF SPEED BETWEEN 3 AND 4      ";
1350  INPUT V4
1360  A3=ABS(A)
1370  PRINT 
1380  PRINT "4. YOUR CALCULATION OF THE ACCELERATION           ";
1390  INPUT A2
1400  PRINT '13'13
1410  PRINT "-----TABLE OF RESULTS:"
1420  PRINT 
1430  PRINT "-----------------------------------------------------------"
1440  PRINT "   ","BETWEEN POINTS 0 AND 2"
1450  PRINT "  ","DISTANCE","SECONDS","AVERAGE SPEED"
1460  PRINT "--------------------------------------------------------------------"
1470  PRINT "YOUR VALUES",D1,T1,V1
1480  PRINT 
1490  PRINT "CORRECT VALUES",D3,T3,V3
1500  PRINT '13'13
1510  PRINT "-------------------------------------------------------------------"
1520  PRINT "  ","SPEED","SPEED","ACCELERATION"
1530  PRINT "  ","POINTS 2 AND 3","POINTS 3 AND 4","  "
1540  PRINT "--------------------------------------------------------------------"
1550  LET D5=.5*ABS(A)+ABS(A)
1560  LET D6=.5*ABS(A)*4+2*ABS(A)
1570  LET D7=D6-D5
1580  LET V5=D5/F
1590  LET V6=D7/F
1600  A3=(V6-V5)/F
1610  PRINT "YOUR VALUES",V2,V4,A2
1620  PRINT 
1630  PRINT "CORRECT VALUES",V5,V6,A3
1640  LET T=0
1650  IF ABS(D3-D1)/D3<.1 THEN 1670
1660  GOSUB 400
1670  IF ABS(T3-T1)/T3<.1 THEN 1690
1680  GOSUB 400
1690  IF ABS(V3-V1)/V3<.1 THEN 1710
1700  GOSUB 400
1710  IF ABS(V2-V5)/V5<.1 THEN 1730
1720  GOSUB 400
1730  IF ABS(V4-V6)/V6<.1 THEN 1750
1740  GOSUB 400
1750  IF ABS(A3-A2)/A3<.1 THEN 1770
1760  GOSUB 400
1770  LET E=6
1780  IF T >= 2 THEN 1820
1790  PRINT 
1800  GOSUB 470
1810  GOTO 1880
1820  GOSUB 500
1830  LET P=4
1840  LET Q=3
1850  LET W=0
1860  GOTO 30
1870  PRINT 
1880  PRINT "DO YOU WANT TO CHECK ANOTHER PROBLEM";
1890  INPUT X$
1900  PRINT '10'10'10
1910  IF X$="NO" THEN 1970
1920  LET C5=5
1930  LET W=1
1940  GOTO 40
1950  PRINT '10'10'10
1960  GOTO 30
1970  END 
