%BEGIN
%INTEGER COUNT
%INTEGER I
%ROUTINE FRED(%INTEGERNAME I,%INTEGER FIRST,STEP,LAST)
      %CYCLE I=FIRST,STEP,LAST
         COUNT=COUNT+1
      %REPEAT
%END
      COUNT=0
      FRED(I,X'9000',16,X'A000')
      %IF COUNT=257 %AND I=X'A000' %THEN PRINTSTRING("TEST OK") %C
         %ELSE PRINTSTRING("WRONG") %AND %MONITOR
%ENDOFPROGRAM