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

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