perm filename TEST4.SAI[998,BGB] blob sn#043257 filedate 1973-05-19 generic text, type T, neo UTF8
00100	BEGIN "TEST4"
00200		DEFINE ↓="(13&10)";
00300		STRING PROCEDURE N(INTEGER X);
00400		RETURN(((X%'200)+'100)&(X LAND '177));
00500		DEFINE Q="'177";
00600		OPEN(1,"DSK",0,0,2,0,0,0);
00700		ENTER(1,"XAP4",0);
00800		OUT(1,Q&"I"&N(100)&N(100));
00900		OUT(1,Q&"⊗"&'30);
01000		OUT(1,"CMPAR1.PLT[998,BGB]"&↓);
01100		OUT(1,Q&"I"&N(800)&N(100));
01200		OUT(1,Q&"⊗"&'30);
01300		OUT(1,"CMPAR2.PLT[998,BGB]"&↓);
01400		OUT(1,Q&"I"&N(100)&N(600));
01500		OUT(1,Q&"⊗"&'30);
01600		OUT(1,"CMPAR3.PLT[998,BGB]"&↓);
01700		OUT(1,Q&"I"&N(800)&N(600));
01800		OUT(1,Q&"⊗"&'30);
01900		OUT(1,"CMPAR4.PLT[998,BGB]"&↓);
02600		RELEASE(1);
02700	END "TEST4";