COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TST"
C00003 ENDMK
C⊗;
BEGIN "TST"
EXTERNAL INTEGER _ERRP_;
EXTERNAL PROCEDURE USERLG;
INTEGER I; INTEGER ARRAY A[1:10];

_ERRP_←LOCATION(USERLG);
USERERR(0,1,"THIS CALL TO USERERR SETS THE LOG, ETC.","LNA");
FOR I←1 STEP 1 UNTIL 5 DO USERERR(I,2,"TEST NUMBER  ");
I←5;
I←A[I+10];
END