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

10 RECORD X(128)
20 DIM T(5,5) 
30 PRINT "IS DATA TAPE MOUNTED ON D4";
35 LINPUT A$
40 IF A$<>"YES" THEN 30 
45 OPEN 4 
50 M4=0 
55 GET 4,10,M4
60 N1=X(1)
65 N2=X(2)
70 PRINT "ENTER ROW VARIABLE NUMBER"; 
75 INPUT R
80 IF R<=N1 THEN 95 
85 PRINT "ROW VARIABLE TOO LARGE" 
90 GO TO 70 
95 PRINT "ENTER COLUMN VARIABLE NUMBER";
100 INPUT C
105 IF C<=N1 THEN 120
110 PRINT "COLUMN VARIABLE TOO LARGE"
115 GO TO 95 
120 M4=1 
125 FOR I=0 TO 5 
130 FOR J=0 TO 5 
135 T(I,J)=0 
140 NEXT J 
145 NEXT I 
150 GET 4,10,M4
155 R1=X(R)
160 C1=X(C)
165 T(R1,C1)=T(R1,C1)+1
170 IF M4<=N2 THEN 150 
175 PRINT\PRINT
180 PRINT TAB(6);"CROSS TABULATION"
185 PRINT
190 PRINT TAB(10);"ROW VARIABLE";R 
195 PRINT TAB(10);"COLUMN VARIABLE";C
200 PRINT\PRINT"      1   2   3   4   5" 
205 PRINT
210 FOR I=1 TO 5 
212 PRINT I; 
215 FOR J=1 TO 5 
220 PRINT TAB(5+(J-1)*4);T(I,J); 
225 NEXT J 
230 PRINT
235 NEXT I 
238 PRINT\PRINT\PRINT
240 GO TO 70 
250 END