RosettaCodeData/Task/A+B/OpenEdge-Progress/a+b.openedge
2023-07-01 13:44:08 -04: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