diff options
Diffstat (limited to 'ipl/progs/irunerr.icn')
-rw-r--r-- | ipl/progs/irunerr.icn | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/ipl/progs/irunerr.icn b/ipl/progs/irunerr.icn new file mode 100644 index 0000000..8036713 --- /dev/null +++ b/ipl/progs/irunerr.icn @@ -0,0 +1,30 @@ +############################################################################ +# +# File: irunerr.icn +# +# Subject: Program to print Icon runtime errors +# +# Author: Robert J. Alexander +# +# Date: September 22, 1993 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# Program to list Icon runtime errors. +# +############################################################################ + +procedure main() + local i + + every i := 100 to 500 do { + &error := 1 + runerr(i) + write(&errornumber," ","" ~== &errortext) + } + +end |