%BEGIN
%owninteger fail=0
%RECORDFORMAT LEVELF(%INTEGER I,J,K)
%RECORDFORMAT WORKAF(%INTEGER NNAMES,CCSIZE,DSIZE,ASL MAX,ASL CUR BTM,
      CONST PTR,CONST BTM,DICTBASE,WKFILEAD,WKFILEK,FILE ADDR,RELEASE,
      AASL0,CONST LIMIT,RTCOUNT,ARTOP,SP1,SP2,SP3,
      %INTEGERNAME LINE,%STRING(9)LADATE,
      %BYTEINTEGERARRAYNAME CC,A,
      %INTEGERARRAYNAME WORD,TAGS,CTABLE,
      %RECORD(LEVELF)%ARRAYNAME LEVELINF,
      %INTEGERARRAY PLABS,PLINK(0:31))
%OWNRECORD(WORKAF)%name WORKA
%record(workaf) work
%BYTEINTEGERARRAY A(0:100)
%BYTEINTEGERARRAYFORMAT AF(0:100)
%INTEGER I
%BYTEINTEGERARRAYNAME B,C
      WORK=0
      worka==work
      B==ARRAY(ADDR(A(0)),AF)
         WORKA_CC==B
         C==WORKA_CC
         %CYCLE I=0,1,9
            A(I)='0'+I
            %REPEAT
         %CYCLE I=0,1,9
            %UNLESS A(I)=I+'0' %AND A(I)=B(I) %AND %C
               A(I)=C(I) %AND A(I)=WORKA_CC(I) %START
               WRITE(A(I),5); WRITE(B(I),5)
               WRITE(WORKA_CC(I),5)
               WRITE(C(I),5); fail=1; NEWLINE
            %FINISH
         %REPEAT
      %if fail=0 %then printstring("TEST OK")
%ENDOFPROGRAM
