RosettaCodeData/Task/Integer-sequence/OpenEdge-Progress/integer-sequence-3.openedge
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
143 B
Text

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