(*
  .name       EdtOS37
  .task       support-library for systems running OS 2.04 (interface)
  .release    1.0
  .language   Oberon-2
  .translator Amiga Oberon 3.2
  .system     AmigaOS 2.04/2.1/3.0
  .author     J. Barheine
  .address    Hochgrevestr. 3
  .copyright  38640 Goslar
*)

(* .info: 28/02/95, 19:35:05, version 2 *)

MODULE EdtOS37;

IMPORT
  Exec,
  Intuition,
  K:= Kernel;

VAR
  base- : Exec.LibraryPtr;

PROCEDURE ReqScreen* {base, -30} (w{8}: Intuition.WindowPtr;
                                  VAR mode{1}: LONGINT;
                                  VAR depth{2}: INTEGER): BOOLEAN;

BEGIN
  IF K.aslVer < 38 THEN
    base:= Exec.OpenLibrary("edt_os37.library", 1);
  ELSE
    base:= NIL;
  END;

CLOSE
  IF base # NIL THEN Exec.CloseLibrary(base) END;
END EdtOS37.