10  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY  ********************
20  REM
30  REM           ITEM1: NUMBER FREQUENCIES
40  REM
50  REM           36343  (A720)  REV A -- 10/71
60  REM
70  REM ****  CONTRIBUTED PROGRAM  *************************************
80  REM - ITEM1 - COPYRIGHT 1971, POLYTECHNIC INSTITUTE OF BROOKLYN
100  REM PEREZ-COURT, WALT WHITMAN H.S., REVISED 7/69
105  REM  REVISED BY C.LOSIK  8-26-70 
110  REM 
120  REM PROGRAM COUNTS AND PRINTS NUMBER OF TIMES QUESTIONS ARE MISSED ON 
130  REM A TEST. THE NUMBERS OF THE QUESTIONS MISSED ARE ENTERED ON DATA 
140  REM LINES 600-700. UP TO 200 ITEMS MAY BE ENTERED IN ANY ORDER. 
150  REM YOU MIGHT , FOR EXAMPLE, FEED IN THE NUMBERS OF THE QUESTIONS 
160  REM MISSED BY ONE STUDENT, GO ON TO THE NEXT STUDENT, ETC., UNTIL ALL 
170  REM QUESTIONS MISSED BY A CLASS OR ALL CLASSES HAVE BEEN ENTERED. 
180  REM 
185  LET N=0
190  PRINT " ","ITEM ANALYSIS"
200  PRINT " ","-------------"
205  PRINT 
210  DIM P[200]
215  MAT P=ZER
220  READ X
230  IF X=9999 THEN 260
240  LET N=N+1
250  GOTO 220
260  RESTORE 
262  IF N <= 200 THEN 268
264  PRINT "RE-DIMENSION THE ARRAY. DELETE LINES 262,264,266."
266  STOP 
268  PRINT "NUMBER OF QUESTIONS IN THE TEST IS";
270  INPUT Q
272  PRINT 
274  PRINT "QUESTION","     NUMBER OF TIMES MISSED"
276  PRINT "--------","     ----------------------"
280  FOR I=1 TO N
290  READ X
300  FOR P=1 TO Q
310  IF P=X THEN 330
320  NEXT P
330  LET P[P]=P[P]+1
340  NEXT I
350  FOR P=1 TO Q
360  PRINT "  "P," ",P[P]
390  NEXT P
600  DATA 1,2,3,4,5,2,3,5,6,7,8,9,10,7,8,9,11,13,14,15,10,13,15,10
701  DATA 9999
999  END 
