Topspeed_JPI/TS-V3/GRAPHIX/META.MOD

(******************************************************************************)
(*                    META.MOD  -  MetaWINDOW Initialisation.                 *)
(*                                                                            *)
(*  This module initialises the MetaWINDOW or MetaWINDOW Plus v3.6a interface.*)
(*                                                                            *)
(*  PSW 10/31/90 02:44am                                                      *)
(******************************************************************************)

IMPLEMENTATION MODULE Meta;
(*
 *  Graphix
 *  Release 3.7
 *  (c) Copyright 1986-1992 PMI
 *  Green Bay, Wisconsin
 *  (414) 468-6040
 *  All rights reserved
 *
 *)

  IMPORT MW;

  VAR
    FarPTR: FarADDRESS;

BEGIN
  (*** Ensure the library is properly linked in.  The Meta_DPL byte seems   ***)
  (*** always to be zero at first but this may not always be true.          ***)
  FarPTR := FarADR(MW.Meta_DPL);

  IF (FarPTR = FarNIL) THEN
    HALT
  END;
END Meta.