RosettaCodeData/Task/Integer-sequence/OpenEdge-Progress/integer-sequence-2.openedge
2023-07-01 13:44:08 -04:00

6 lines
111 B
Text

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