10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  ********************
20  REM
30  REM          GRADE:TEST GRADE FOR # QUESTIONS MISSED
40  REM
50  REM          36342 (A720)  REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  *************************************
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 THE NUMBER OF QUESTIONS MISSED ON A TEST AND THE  
140  REM 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  LET 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  LET Z=Z+1
260  LET G=INT((100-(X*100/A))+.5)
270  IF G<0 THEN 350
280  PRINT X,G,(A-X)
290  IF Z=5 THEN 320
300  NEXT X
310  GOTO 350
320  PRINT ".................................."
330  LET Z=0
340  GOTO 300
350  END 
