perm filename PRINT.SAI[NM,BGB] blob sn#078610 filedate 1973-12-22 generic text, type T, neo UTF8
00100	BEGIN
00200	REQUIRE "BAYSAI.SAI" SOURCE!FILE;
00300	INTEGER I,J,K,L,M,N;
00400	REAL ARRAY P[1:32,1:4,1:3];
00500	STRING SAVE;
00550	SETFORMAT(16,7);
00600	OPEN(1,"DSK",'10,4,4,0,0,0);
00700	OPEN(2,"DSK",0,2,2,0,0,0);
00800	SAVE←INCHWL;
00850	ENTER(2,SAVE&".LPT",N);
00900	LOOKUP(1,SAVE,N);
01000	OUTSTR(CVS(N));
01100	ARRYIN(1,P[1,1,1],384);
01200	OUT(2,"FILE "&SAVE&CRLF&CRLF);
01300	FOR I←1 THRU 32 DO BEGIN
01400	OUT(2,CVS(I)&CRLF);
01500	FOR J←1 THRU 4 DO BEGIN
01600	OUT(2,"            ");
01700	FOR K← 1 THRU 3 DO OUT(2,CVF(P[I,J,K]));
01800	OUT(2,CRLF);
01900	END;
02000	OUT(2,CRLF);
02100	END;
02150	CLOSE(1);
02175	CLOSE(2);
02200	END;