
%BEGIN
%RECORDFORMAT F(%INTEGER I,J,%RECORD(F)%NAME LINK)
%INTEGER LB,UB
      LB=0; UB=255
%RECORD(F)%ARRAY A(LB:UB)
%RECORD(F)%NAME RN
%INTEGER I,J
      %CYCLE I=0,1,X'FE'
         A(I)_LINK==A(I+1)
      %REPEAT
      A(x'ff')_LINK==RECORD(0)
      J=0; I=0
      RN==A(0)
      %WHILE RN_LINK\==RECORD(0) %CYCLE
         J=J+1
         RN==RN_LINK
      %REPEAT
      %IF J#255 %THEN PRINTSTRING("WRONG TOTAL") %AND WRITE(J,5) %c
         %else printstring("TEST OK")
%ENDOFPROGRAM
