10 RECORD X(128)
20 DIM T(5,5) 
30 PRINT "ENTER NAME OF DATA FILE"; 
35 LINPUT F$
40 OPEN 8,F$
50 M4=0 
55 GET 8,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 9,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