'BEGIN' 'INTEGER' I;
'INTEGER' 'ARRAY' A,B(/1:10/);
'ARRAY' C,D(/1:10/);
'PROCEDURE' TEST(P,Q,R,S); 'VALUE' P,Q,R,S; 'ARRAY' R,S;
'INTEGER' 'ARRAY' P,Q; 'BEGIN' 'INTEGER' I;
'FOR' I:=1'STEP'1'UNTIL' 10 'DO' 'BEGIN'
   'IF' I#P(/I/)'OR' I#Q(/I/)'OR' I#R(/I/)'OR' I#S(/I/) 'THEN' 'BEGIN'
      PRINT(I,2,0); PRINT(P(/I/),2,0); PRINT(Q(/I/),2,0);
      PRINT(R(/I/),2,1); PRINT(S(/I/),2,1); NEWLINE
      'END';
   P(/I/):=Q(/I/):=0; R(/I/):=S(/I/):=0
'END' FOR;
PRINTSTRING(<ARRAY _ PASSED>)
'END' TEST;
'FOR' I:=1 'STEP' 1 'UNTIL' 10 'DO' 'BEGIN'
   A(/I/):=B(/I/):=I; C(/I/):=D(/I/):=I
'END';
TEST(A,C,D,B);
'FOR' I:=1 'STEP' 1 'UNTIL' 10 'DO' 'BEGIN'
   'IF' A(/I/)#I 'OR' B(/I/)#I 'OR' C(/I/)#I 'OR' D(/I/)#I  'THEN' 'BEGIN'
      PRINTSTRING(<ERROR>); PRINT(I,2,0)
   'END'
'END'
'END'