10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  *******************
20  REM
30  REM            KINERV:  REVIEW OF KINEMATICS
40  REM
50  REM            36315 (A833)  REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  ************************************
80  REM KINERV-COPYRIGHT 1970, POLYTECHNIC INSTITUTE OF BROOKLYN
90  REM RICHARD F. PAV; PATCHOGUE H.S.; 1-24-69; PHYSICS 
100  REM THIS PROGRAM IS DESIGNED TO SERVE AS A REVIEW TEST IN KINEMATICS. 
110  REM  REVISED BY C.LOSIK  8-25-70 
120  REM  V IS VERTICAL VELOCITY, ALL ELSE IS 'A' (FOR COMPARISONS) 
130  REM  WE GENERATE A V RANDOMLY AND RANDOMLY PICK A QUESTION 
140  LET Q=C=0
150  LET P=0
160  LET R=0
170  PRINT "                 ---REVIEW OF KINEMATICS---"
180  PRINT 
190  PRINT "     A BALL IS THROWN STRAIGHT UP AT VARIOUS VELOCITIES."
200  PRINT "AIR FRICTION IS NEGLIGIBLE. THE UPWARD DIRECTION IS TAKEN"
210  PRINT "AS POSITIVE, AND THE DOWNWARD DIRECTION AS NEGATIVE."
220  PRINT 
230  PRINT "THE LOCAL ACCELERATION DUE TO GRAVITY IS -10 METERS/SECOND/SEC."
240  PRINT 
250  PRINT "ALL VALUES ARE IN M.K.S. METRIC UNITS."
260  PRINT 
270  PRINT "     FOR VARIOUS THROWING SPEEDS, YOU MUST ANSWER CERTAIN"
280  PRINT "QUESTIONS ABOUT THE BALL IN FLIGHT."
290  PRINT 
300  PRINT 
310  LET U=RND(0)
320  IF Q=0 THEN 340
330  IF Q/5=INT(Q/5) THEN 750
340  LET V=5+INT(35*U)
350  LET Z=1+INT(4.999*U)
360  IF (Z-P)*(V-R)=0 THEN 310
370  LET P=Z
380  LET Q=Q+1
390  LET R=V
400  PRINT 
410  PRINT Q". THE UPWARD THROWING SPEED IS "V" METERS/SECOND."
420  IF Z=1 THEN 520
430  IF Z=2 THEN 570
440  IF Z=3 THEN 610
450  IF Z=4 THEN 490
460  LET A=.05*V*V
470  PRINT "HOW HIGH ABOVE THE GROUND WILL THE BALL GO";
480  GOTO 650
490  LET A=V/5
500  PRINT "HOW LONG WILL IT TAKE THE BALL TO RETURN TO THE GROUND";
510  GOTO 650
520  LET T=1+INT(2*V*U)/10
530  LET A=V*T-5*T*T
540  PRINT "HOW HIGH ABOVE THE GROUND WILL THE BALL BE AFTER ";T
550  PRINT "SECONDS OF FLIGHT";
560  GOTO 650
570  LET T=1+INT(2*V*U)/10
580  LET A=V-10*T
590  PRINT "WHAT IS THE VELOCITY AFTER "T" SECONDS OF FLIGHT";
600  GOTO 650
610  LET S=.5*INT(V*V*U)/10
620  LET A=SQR(V*V-20*S)
630  PRINT "WHAT IS THE VELOCITY WHEN IT REACHES A HEIGHT OF ";S
640  PRINT "METERS ABOVE THE GROUND ";
650  INPUT G
660  PRINT "YOU'RE";
670  IF ABS((G-A)/A)>.05 THEN 710
680  LET C=C+1
690  PRINT " CORRECT WITHIN ";
700  GOTO 720
710  PRINT " OFF MORE THAN ";
720  PRINT "5 PERCENT. THE CORRECT ANSWER IS "A" ."
730  PRINT 
740  GOTO 310
750  PRINT 
760  PRINT "OUT OF "Q" QUESTIONS, YOU GOT "C" RIGHT."
770  IF C/Q >= .7 THEN 790
780  PRINT "DON'T YOU KNOW ANYTHING ABOUT THROWING THINGS UP???"
790  PRINT 
800  PRINT "WANT TO TRY ANOTHER 5 PROBLEMS (1=YES, 0=NO) : ";
810  INPUT M
820  LET U=RND(0)
830  IF M=1 THEN 340
840  IF M <> 0 THEN 790
850  END 
