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