DEF VAR ii AS INT64 FORMAT "->>>>>>>>>>>>>>>>>>9" NO-UNDO.
DO WHILE TRUE:
ii = ii + 1.
DISPLAY ii.
END.