Topspeed_JPI/TS/MODBASE/KEY.MOD

IMPLEMENTATION MODULE Key;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/mods/key.mov   1.5   10 Mar 1991 15:29:00   coleb  $
 *
 *)

VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
    END Init;

BEGIN
  Initialized := FALSE;
  Init();
END Key.