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