RosettaCodeData/Task/Integer-sequence/OpenEdge-Progress/integer-sequence-1.openedge

7 lines
103 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
DEF VAR ii AS INTEGER FORMAT "->>>>>>>>9" NO-UNDO.
DO WHILE TRUE:
ii = ii + 1.
DISPLAY ii.
END.