/*
** $VER: objectfile 0.001 (10 Sep 1994) ***
**
** (c) © 1994 Oliver Clouth
**
** FUNCTION : Speichern als Objectfile
**
*/

host = ADDRESS()                              /* get GED's port    */

IF show('p', 'MPASCAL') THEN

    do
        ADDRESS MPASCAL
        "objectfile"
    end
else 
    do
        ADDRESS (host)
        'REQUEST BODY "Couldn''t launch MPascal ?!"'
    end

EXIT