%BEGIN %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) %INTEGER I %BYTEINTEGERARRAYNAME B,C WORK=0 worka==work B==ARRAY(ADDR(A(0)),A) 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); NEWLINE %FINISH %REPEAT %ENDOFPROGRAM