summaryrefslogtreecommitdiff
path: root/ipl/mprogs/listev.icn
diff options
context:
space:
mode:
Diffstat (limited to 'ipl/mprogs/listev.icn')
-rw-r--r--ipl/mprogs/listev.icn46
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