/* run EGEE program. Check files before starting  */
/* Bahjat Qaqish 5/15/1991   */
arg CtrlFile ft fm;

if CtrlFile = '' then
do
  say 'Syntax:  egee    XXXX';
  say ' where    XXXX  is the control file name';
  say 'The control file type must be EGEE';
  exit;
end;

'state' CtrlFile 'EGEE *';
if rc^=0 then
do
  say CtrlFile 'EGEE   does not exist';
  exit;
end;


'fi CtrlFile disk'   CtrlFile 'egee  * ';
'fi output disk  '   CtrlFile 'output a';
'fi input  disk  egee  exec *';
'exec pr eg21';
'fi CtrlFile clear';
'fi output   clear';
'fi input    clear';
exit (rc);