diff options
Diffstat (limited to 'ipl/mprogs/listev.icn')
-rw-r--r-- | ipl/mprogs/listev.icn | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/ipl/mprogs/listev.icn b/ipl/mprogs/listev.icn deleted file mode 100644 index 6372ac0..0000000 --- a/ipl/mprogs/listev.icn +++ /dev/null @@ -1,46 +0,0 @@ -############################################################################ -# -# File: listev.icn -# -# Subject: Program to list events -# -# Author: Ralph E. Griswold -# -# Date: August 16, 1994 -# -############################################################################ -# -# This file is in the public domain. -# -############################################################################ -# -# This program list events. Event information is written -# by using image(). -# -# This program is called as -# -# listev tp args -# -############################################################################ -# -# Requires: Version 9.0 MT Icon with event monitoring -# -############################################################################ -# -# Links: evinit, options -# -############################################################################ - -$include "etdefs.icn" - -link evinit -link options - -procedure main(args) - - EvInit(args) | stop("*** cannot load TP") - - while EvGet(T_Mask1) do - write(image(&eventcode), " : ", image(&eventvalue)) - -end |