home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
230.lha
/
SPY
/
Sources
/
Snoop.Def
< prev
next >
Wrap
Text File
|
1989-04-08
|
771b
|
28 lines
DEFINITION MODULE Snoop;
(************************************************)
(* Snoop : The core of the Spy program *)
(* *)
(* Written by Steve Faiwiszewski, June 1988 *)
(* *)
(* Not to be used for commercial purpose *)
(************************************************)
FROM Tasks IMPORT TaskPtr;
FROM Intuition IMPORT WindowPtr;
CONST
WINDOWLEFT = 150;
WINDOWTOP = 20;
WIDTH = 300;
HEIGHT = 150;
VAR
SpyWindow : WindowPtr;
PROCEDURE Observe(TargetTask : TaskPtr);
(* Display important info on the target task. *)
(* Repeat doing so until user chooses to exit. *)
END Snoop.