[inherit('rtl.pen','edt.pen')]
PROGRAM edt$edit(input, output);

VAR
    CompletionStatus: unsigned;

BEGIN { edt$edit }
CompletionStatus:= edt$edit(infile:= 'edt$edit.pas',
                            fileio:= edt$fileio,
                            workio:= edt$workio);
IF NOT odd(CompletionStatus) THEN
    lib$signal(CompletionStatus)
END { program edt$edit }.