-- Copyright (C) 1983, 1985  by Xerox Corporation. All rights reserved. 
-- GPIBServer.mesa, Tim Diebert,    2-Oct-85 11:09:33

DIRECTORY
  GPIB USING [DevicesClear, InitializeController, InterfaceClear],
  -- GPIBRpcControl USING [ExportInterface],
  Watchdog USING [Deactivate];
 
GPIBServer: PROGRAM
  IMPORTS GPIB, -- GPIBRpcControl, -- Watchdog = BEGIN
  
  Watchdog.Deactivate[];
  [] ← GPIB.InitializeController[];
  GPIB.InterfaceClear[];
  GPIB.DevicesClear[];
--  GPIBRpcControl.ExportInterface[user: NIL, password: TRASH ];

  END..