perm filename TEST32.SAI[998,BGB]1 blob sn#041536 filedate 1973-05-14 generic text, type T, neo UTF8
00100	BEGIN "TEST32"
00200		INTEGER ROW,COL,IMG;
00300		DEFINE ↓="(13&10)";
00400	
00500		STRING PROCEDURE N(INTEGER X);
00600			RETURN(((X%'200)+'100)&(X LAND '177));
00700	
00800		DEFINE Q="'177";
00900	
01000		OPEN(1,"DSK",0,0,2,0,0,0);
01100		ENTER(1,"XAP32",0);
01200	
01300		IMG ← 0;
01400	FOR COL ← 0 STEP 1 UNTIL 3 DO
01500	FOR ROW ← 0 STEP 1 UNTIL 7 DO
01600	BEGIN
01700		OUT(1,Q&"I"&N(140+COL*300)&N(1+ROW*210));
01800		OUT(1,Q&"⊗"&'12);
01900		OUT(1,"Q"&CVS(IMG)&".PLT"&↓);
02000		IMG ← IMG + 1;
02100	END;
02200	
02300		RELEASE(1);
02400	
02500	END "TEST32";