!%control x'11111111'
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