RosettaCodeData/Task/Loops-Do-while/OpenEdge-Progress/loops-do-while.openedge

7 lines
123 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
DEFINE VARIABLE ii AS INTEGER.
DO WHILE ii MODULO 6 <> 0 OR ii = 0:
ii = ii + 1.
MESSAGE ii VIEW-AS ALERT-BOX.
END.