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

@J RECORD X(128)@@@T DIM T(5,5) @@@^ PRINT "ENTER NAME OF DATA FILE"; @@@
 LINPUT F$@@@( OPEN 8,F$@@@2 M4=0 @@@7 GET 8,10,M4@@@< N1=X(1)@@AA N2=X(2)@@AF PRINT "ENTER ROW VARIABLE NUMBER"; @@AK INPUT R@@AP IF R<=N1 THEN 95 @@AU PRINT "ROW VARIABLE TOO LARGE" @@AZ GO TO 70 @@A
 PRINT "ENTER COLUMN VARIABLE NUMBER";@@A$ INPUT C@@A) IF C<=N1 THEN 120@@A. PRINT "COLUMN VARIABLE TOO LARGE"@@A3 GO TO 95 @@A8 M4=1 @@A= FOR I=0 TO 5 @@BB FOR J=0 TO 5 @@BG T(I,J)=0 @@BL NEXT J @@BQ NEXT I @@BV GET 9,10,M4@@B[ R1=X(R)@@B  C1=X(C)@@B% T(R1,C1)=T(R1,C1)+1@@B* IF M4<=N2 THEN 150 @@B/ PRINT\PRINT@@B4 PRINT TAB(6);"CROSS TABULATION"@@B9 PRINT@@B> PRINT TAB(10);"ROW VARIABLE";R @@CC PRINT TAB(10);"COLUMN VARIABLE";C@@CH PRINT\PRINT"      1   2   3   4   5" @@CM PRINT@@CR FOR I=1 TO 5 @@CT PRINT I; @@CW FOR J=1 TO 5 @@C\ PRINT TAB(5+(J-1)*4);T(I,J); @@C! NEXT J @@C& PRINT@@C+ NEXT I @@C. PRINT\PRINT\PRINT@@C0 GO TO 70 @@C: END@@
?@@C0 GO TO 70 @@C: END@@
?@@@@C>1 THEN 690@@G9 GET 8,10,M8@@G> IF A$="EOF" THEN 700 @@HC CHANGE A$