RosettaCodeData/Task/A+B/OpenEdge-Progress/a+b.openedge
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

12 lines
249 B
Text

DEFINE VARIABLE a AS INTEGER NO-UNDO FORMAT "->>>9".
DEFINE VARIABLE b AS INTEGER NO-UNDO FORMAT "->>>9".
IF SESSION:BATCH THEN DO:
INPUT FROM "input.txt".
IMPORT a b.
INPUT CLOSE.
END.
ELSE
UPDATE a b.
MESSAGE a + b VIEW-AS ALERT-BOX