Directory of image this file is from
This file as a plain text file

@J DIM T(20,5)  @@@T RECORD X(128)@@@^ PRINT "IS DATA TAPE ON D4";@@@
 LINPUT A$@@@( IF A$<>"YES" THEN 30 @@@- OPEN 4 @@@2 M4=0 @@@7 GET 4,20,M4@@@< N1=X(1)@@AA N2=X(2)@@AF PRINT\PRINT\PRINT@@AK PRINT "  Q  FREQUENCY OF RESPONSES"; @@AP PRINT TAB(34);"PERCENTAGES"; @@AU PRINT TAB(51);"MEAN  STD.DEV." @@AZ PRINT "    OTHR  1   2   3   4   5"; @@A
 PRINT TAB(31);"1   2   3   4   5"@@A$ PRINT@@A& I1=1 @@A' IF N1>20 THEN 109@@A( I2=N1@@A) GO TO 110@@A- I2=20@@A. FOR J1=1 TO 20 @@A3 FOR J2=0 TO 5@@A8 T(J1,J2)=0 @@A= NEXT J2@@BB NEXT J1@@BL GET 4,20,M4@@BQ FOR I=1 TO I2@@BV J1=X(I+I1-1) @@B[ T(I,J1)=T(I,J1)+1@@B  NEXT I @@B% IF M4<=N2 THEN 140 @@B* FOR I=1 TO I2@@B- S=0\N=0\D=0@@B/ PRINT I1+I-1;  @@B4 FOR J1=0 TO 5@@B9 PRINT TAB(5+(J1)*4);T(I,J1); @@B> S=S+J1*T(I,J1) @@CH IF J1=0 THEN 210 @@CM N=N+T(I,J1)@@CR NEXT J1@@CW FOR J1=1 TO 5@@C\ IF N=0 THEN 235@@C! P=INT((T(I,J1)/N+.005)*100)@@C& GO TO 240@@C+ P=0@@C0 PRINT TAB(30+(J1-1)*4);P;@@C5 NEXT J1@@C: IF N=0 THEN 265@@C? M=INT((S/N+.005)*100)/100@@DD GO TO 270@@DI M=0@@DN PRINT TAB(51);M; @@DX FOR J1=1 TO 5@@D] D=D+(M-J1)^2*T(I,J1) @@D" NEXT J1@@D' IF N<=1 THEN 310 @@D, D=SQR(D/(N-1)) @@D1 GO TO 315@@D6 D=0@@D; D=INT((D+.0005)*1000)/1000 @@E@ PRINT TAB(58);D@@EE NEXT I @@EJ IF I1+20 @@EO I1=I1+20 @@ET IF I1>N1 THEN 350@@EY GO TO 355@@E^ I2=N1-I1-20@@E
 M4=1 @@E( GO TO 110@@E2  PRINT\PRINT @@E7 PRINT "END OF TABULATION"@@E< END@@
?@@0 @@IQ N(I)=9 @@IX NEXT I @@I] RETURN @@I" FOR I=1 TO 6 @@I' IF N(I)=64 THEN 650@@I, IF N(I)=65 THEN 655@@I1 IF N(8)=67 THEN 660@@I6 IF