PROGRAM FromWB;

{$I "Include:PCQUtils/Utils.i"}

CONST

    StdOutName : STRING = NIL;
    StdInName  : STRING = NIL;

VAR
    i : INTEGER;

BEGIN
    IF FromWB THEN
        i := EasyReqArgs(NIL,"Started from Workbench","OK")
    ELSE WriteLN("Started from Cli");
END.