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