(*---------------------------------------------------------------------------
  :Program.    StopClock.mod
  :Author.     Thomas Igracki
  :Address.    Obstallee 45, 1000 Berlin 20, W-Germany
  :E-Mail.     InterNet -> lokai@cs.tu-berlin.de
  :E-Mail.     Z-Netz   -> T.Igracki@BAMP.ZER
  :E-Mail.     Fido     -> Thomas_Igracki%2:2403_10.40
  :Version.    1.0
  :Date.       10-Nov-1992
  :Copyright.  Thomas Igracki (If you like to use it, contact me!)
  :Language.   Oberon
  :Translator. Amiga Oberon 2.14d
  :Contents.   Interface zur ARexxClock, um sie per OberonProgramm zu bedienen.
  :Usage.      IMPORT Clock;
  :Remark.     OS2.0 Only!
---------------------------------------------------------------------------*)

MODULE StopClock;
IMPORT
   s: SYSTEM, e: Exec, er: EasyRexx;
CONST
   ClockPort = 'CLOCK'; (* ARexxPort von ARexxClock *)
VAR
   res: ARRAY 20 OF CHAR;

PROCEDURE ClockStarted*(): BOOLEAN;
BEGIN     RETURN e.FindPort('CLOCK') # NIL;
END ClockStarted;

PROCEDURE Start*;
BEGIN     s.SETREG(0,er.SendRexx (ClockPort, 'START',res))
END Start;
   
PROCEDURE Stop*;
BEGIN     s.SETREG(0,er.SendRexx (ClockPort, 'STOP',res))
END Stop;
   
PROCEDURE Continue*;
BEGIN     s.SETREG(0,er.SendRexx (ClockPort, 'CONT',res))
END Continue;
   
PROCEDURE Show*;
BEGIN     s.SETREG(0,er.SendRexx (ClockPort, 'SHOW',res))
END Show;
   
PROCEDURE Reset*;
BEGIN     s.SETREG(0,er.SendRexx (ClockPort, 'RESET',res))
END Reset;
   
END StopClock.