mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Integer-sequence/OpenEdge-Progress/integer-sequence-1.openedge

7 lines
103 B
Plaintext
Raw Blame History

DEF VAR ii AS INTEGER FORMAT "->>>>>>>>9" NO-UNDO.
DO WHILE TRUE:
ii = ii + 1.
DISPLAY ii.
END.
Reference in New Issue View Git Blame Copy Permalink