%BEGIN
%ROUTINE FRED(%INTEGER FIRST,STEP,LAST)
%INTEGER I
      %CYCLE I=FIRST,STEP,LAST
      %REPEAT
%END
      FRED(X'9000',16,X'A000')
%ENDOFPROGRAM