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;