(***************************************************************************
*  Programme : Hardtricks.def         (This is not a real programme, but a *
*                                      definition module)                  *
*  Usage     : use it together with Hardtricks.mod in own programmes       *
*  Version   : V1.11                                                       *
*  Date      : 01.-04.05.1989                                              *
*  Author    : Jörg Sixt and Martin Murnleiter                             *
*  Purpose   : a nice mix of procedures                                    *
*  Language  : Modula-2,AMSoft  PD-Version from Fish 113                   *
*  Bugs      : using devices would be better                               *
*                                                                          *
*  You may include both modules in your own programmes for free except for *
*  commercial software (send me e.g. this programme then). Leave my name   *
*  in this source and mention me somewhere in the documentation/programme  *
***************************************************************************)

DEFINITION MODULE Hardtricks ; (* my first one ! *)

  TYPE Button = (off,on,toggle) ;

  PROCEDURE PowerLED (How : Button) ;      (* Control the red Power LED *)

  PROCEDURE DriveLED (How : Button) ;      (* and also the green Drive LED *)

  PROCEDURE rightMouseButton() : BOOLEAN ; (* asks the right Mouse Button *)

  PROCEDURE leftMouseButton() : BOOLEAN ;  (* and this asks the left one *)

  PROCEDURE AskRawKey() : CARDINAL ;       (* last not least asking the key-
                                              board is done with this *)
END Hardtricks .