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

7 lines
143 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
DEF VAR de AS DECIMAL FORMAT "->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>9" NO-UNDO.
DO WHILE TRUE:
de = de + 1.
DISPLAY de.
END.