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";