home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
300-399
/
ff338.lzh
/
SASTools
/
WBruise
/
Hardtricks.def
< prev
next >
Wrap
Text File
|
1990-03-23
|
2KB
|
32 lines
(***************************************************************************
* 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 .