10 DIM T(20,5)  
20 RECORD X(128)
30 PRINT "IS DATA TAPE ON D4";
35 LINPUT A$
40 IF A$<>"YES" THEN 30 
45 OPEN 4 
50 M4=0 
55 GET 4,20,M4
60 N1=X(1)
65 N2=X(2)
70 PRINT\PRINT\PRINT
75 PRINT "  Q  FREQUENCY OF RESPONSES"; 
80 PRINT TAB(34);"PERCENTAGES"; 
85 PRINT TAB(51);"MEAN  STD.DEV." 
90 PRINT "    OTHR  1   2   3   4   5"; 
95 PRINT TAB(31);"1   2   3   4   5"
100 PRINT
102 I1=1 
103 IF N1>20 THEN 109
104 I2=N1
105 GO TO 110
109 I2=20
110 FOR J1=1 TO 20 
115 FOR J2=0 TO 5
120 T(J1,J2)=0 
125 NEXT J2
130 NEXT J1
140 GET 4,20,M4
145 FOR I=1 TO I2
150 J1=X(I+I1-1) 
155 T(I,J1)=T(I,J1)+1
160 NEXT I 
165 IF M4<=N2 THEN 140 
170 FOR I=1 TO I2
173 S=0\N=0\D=0
175 PRINT I1+I-1;  
180 FOR J1=0 TO 5
185 PRINT TAB(5+(J1)*4);T(I,J1); 
190 S=S+J1*T(I,J1) 
200 IF J1=0 THEN 210 
205 N=N+T(I,J1)
210 NEXT J1
215 FOR J1=1 TO 5
220 IF N=0 THEN 235
225 P=INT((T(I,J1)/N+.005)*100)
230 GO TO 240
235 P=0
240 PRINT TAB(30+(J1-1)*4);P;
245 NEXT J1
250 IF N=0 THEN 265
255 M=INT((S/N+.005)*100)/100
260 GO TO 270
265 M=0
270 PRINT TAB(51);M; 
280 FOR J1=1 TO 5
285 D=D+(M-J1)^2*T(I,J1) 
290 NEXT J1
295 IF N<=1 THEN 310 
300 D=SQR(D/(N-1)) 
305 GO TO 315
310 D=0
315 D=INT((D+.0005)*1000)/1000 
320 PRINT TAB(58);D
325 NEXT I 
330 IF I1+20 
335 I1=I1+20 
340 IF I1>N1 THEN 350
345 GO TO 355
350 I2=N1-I1-20
355 M4=1 
360 GO TO 110
370  PRINT\PRINT 
375 PRINT "END OF TABULATION"
380 END