80 REM GRADE - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN 90 REM PEREZ-COURT , WALT WHITMAN H.S., REVISED 8/69 100 REM REVISED BY C. LOSIK 8-26-70 110 REM 120 REM THIS PROGRAM PRINTS OUT THE GRADES OF STUDENTS, IN PERCENTAGES, 130 REM NEXT TO THENUMBER OF QUESTIONS MISSED ON A TEST AND THE 140REM NUMBER ANSWERED CORRECTLY. WHEN THE QUESTION MARK APPEARS, TYPE 150 REM IN THE NUMBER OF QUESTIONS ON THE TEST AND HIT THE RETURN KEY. 160 REM 170 Z=0 180 PRINT'NUMBER OF QUESTIONS IN THIS TEST IS '; 190 INPUT A 200 PRINT 210 PRINT 'NUMBER NUMBER' 220 PRINT'WRONG GRADE RIGHT' 230 PRINT'------ ----- ------' 240 FOR X=0 TO A 250 Z=Z+1 260 G=INT((100-(X*100/A))+.5) 270 IF G<0 THEN 350 280 PRINTX,G,(A-X) 290 IF Z=5 THEN 320 300 NEXT X 310 GOTO 350 320 PRINT'................................' 330 Z=0 340 GOTO 300 350 END