Directory of image this file is from
This file as a plain text file

5 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC
10 RANDOMIZE
100 PRINT 
105 PRINT 
106 Q=0
110 V=5+INT(35*RND(0))
111 PRINT "A BALL IS THROWN UPWARDS AT";V;"METERS PER SECOND"
112 PRINT 
115 A=.05*V^2
116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
117 GOSUB 500 
120 A=V/5
122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
124 GOSUB 500 
130 T=1+INT(2*V*RND(1))/10
132 A=V-10*T
134 PRINT "WHAT WILL ITS VELOCITY BE AFTER";T;"SECONDS";
136 GOSUB 500 
140 PRINT 
150 PRINT Q;"RIGHT OUT OF 3.";
160 IF Q<2 THEN 100 
170 PRINT "  NOT BAD."
180 GO TO 100 
500 INPUT G
502 IF ABS((G-A)/A)<.15 THEN 510 
504 PRINT "NOT EVEN CLOSE...."
506 GOTO 512
510 PRINT "CLOSE ENOUGH."
511 Q=Q+1
512 PRINT "CORRECT ANSWER IS";A
520 PRINT
530 RETURN
999 END