DEF VAR ii AS INTEGER FORMAT "->>>>>>>>9" NO-UNDO.

DO WHILE TRUE:
   ii = ii + 1.
   DISPLAY ii.
END.