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