perm filename Z.SAI[S,AIL] blob sn#000810 filedate 1972-10-20 generic text, type T, neo UTF8
00100	BEGIN "Z"
00200		SIMPLE INTEGER PROCEDURE Q; RETURN(100);
00300		INTEGER A,B,X;
00400		A←1;
00500		QUICK_CODE JFCL END;
00600		X←Q;
00700		B←A;
00800		OUTSTR(9&CVS(B)&13&10);
00900	END;