COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "AGL"
C00003 ENDMK
C⊗;
BEGIN "AGL"

ITEMVAR XXX;
ITEM PRC;
LABEL L1,L2,L3,L4;
LIST L;
INTEGER  X,Y,Z;
PROCEDURE ADDAB(INTEGER A,B;REFERENCE INTEGER S);
	BEGIN
	S←A+B;
	END;

X←1;Y←2;Z←0;

ASSIGN(PRC,ADDAB);
XXX←REF_ITEM(X);

L1:

L←ARG_LIST(X,VALUE Y,Z);

L2: APPLY(DATUM(PRC),L);

L3: APPLY(ADDAB,ARG_LIST(X*10,100,Z));
L4:

END;