100 COMMON P0%,N%,M%,P%
110 PRINT "SIRA MATRIX PACKAGE TEST PROGRAM V1.01"
115 REM BOOTSTRAP MODULE -- CREATES AND CHAINS "MATTST1.BAS"
120 DEF FNR%(X)=INT(10*RND(X)+1)
130 M%=FNR%(0) \ N%=FNR%(0) \ P%=FNR%(0) \ P0%=1%
1940 OPEN "MATTST1.BAS" FOR OUTPUT AS FILE 1%
1942 PRINT #1%,"101 DIM A(";M%;",";N%;"),A1(";M%;",";N%;"),S(";M%;",";M%;"),S1(";M%;",";M%;")"
1944 PRINT #1%,"102 DIM T(";N%;",";M%"),B("M%","N%"),C(";M%;",";N%;")"
1946 PRINT #1%,"103 DIM U(";M%;",";P%;"),U1(";P%;",";M%;"),V("P%;",";N%;"),V1(";N%;",";P%;")"
1948 PRINT #1%,"104 DIM D(";M%;"),E(";M%;"),Z%(";M%;")"
1950 OPEN "MATTSTOVL.BAS" FOR INPUT AS FILE 2%
1960 IF END #2% THEN 1990
1970 LINPUT #2%,L$ \ PRINT #1%,L$
1980 GO TO 1960
1990 CLOSE 
1995 CHAIN "MATTST1"
1999 STOP