%BEGIN
%RECORDFORMAT F(%BYTE B1,B2,B3,B4)
%RECORD(F)%ARRAY TRIPLES (0:9)
%INTEGER I,J,K
%ROUTINE CHECK(%RECORD(F)%ARRAYNAME T)
%ROUTINESPEC CHECKB2(%INTEGER N)
%INTEGER Z
      %FOR Z=1,1,9 %CYCLE
         CHECKB2(Z)
      %REPEAT
%ROUTINE CHECKB2(%INTEGER N)
%INTEGER VAL
      VAL=T(Z)_B2
      %MONITOR %UNLESS N=VAL
%END
%END
%FOR I=0,1,9 %CYCLE
      TRIPLES(I)_B1=I+1
      TRIPLES(I)_B2=I
%REPEAT
      CHECK(TRIPLES)
      PRINTSTRING("TEST OK")
%ENDOFPROGRAM
