{ Programm:  CloseWB                               
  ~~~~~~~~~
  Sprache:   MaxonPASCAL 3 / KP 2.12 (OS2)
  ~~~~~~~~
  Sinn:      schließt WBScreen wenn keine Windows darauf für 2 Sek
  ~~~~~
  Autor:     PackMAN
  ~~~~~~     c/o Falk Zühlsdorff
             Lindenberg 66
             D-98693 Ilmenau / Thüringen
 
  Kommentar: Version für MAXON
  ~~~~~~~~~                                                             } 

PROGRAM CloseWB;
USES Intuition,Exec;
VAR ok     : long;
    oWB    : boolean;

BEGIN
 ok:=CloseWorkbench;
 IF ok<>0 THEN         { WBScreen ließ sich schließen }
           BEGIN
            delay(100);
            oWB:=OpenWorkbench;
           END;
END.