ERtabLE = ARRAY('31') ERtabLE< 1> = 'Illegal data type' ERtabLE< 2> = 'Error in arithmetic operation' ERtabLE< 3> = 'Erroneous array or table reference' ERtabLE< 4> = 'Null string in illegal context' ERtabLE< 5> = 'Undefined function or operation' ERtabLE< 6> = 'Erroneous prototype' ERtabLE< 7> = 'Unknown keyword' ERtabLE< 8> = 'Variable not present where required' ERtabLE< 9> = 'Entry point of function not label' ERtabLE<10> = 'Illegal argument to primitive function' ERtabLE<11> = 'Reading error' ERtabLE<12> = 'Illegal I/O unit' ERtabLE<13> = 'Limit on defined data types eceeded' ERtabLE<14> = 'Negative number in illegal context' ERtabLE<15> = 'String overflow' ERtabLE<16> = 'Overflow during pattern matching' ERtabLE<17> = 'Error in SNOBOL5 system' ERtabLE<18> = 'Return from zero level' ERtabLE<19> = 'Failure during goto evaluation' ERtabLE<21> = 'Stack overflow' ERtabLE<22> = 'Limit on statement execution exceeded' ERtabLE<23> = 'Object exceeds size limit' ERtabLE<24> = 'Undefined or erroneous goto' ERtabLE<25> = 'Incorrect number of arguments' ERtabLE<26> = 'Limit on compilation errors exceeded' ERtabLE<27> = 'Erroneous END statement' ERtabLE<28> = 'Execution of statement with a compilation error' ERtabLE<29> = 'NAN used in illegal context' ERtabLE<30> = 'Error during write' ERtabLE<31> = CODE('end') ENDFILE(5) DETACH('INPUT') INPUT('INPUT',5,128,'IN','-std') :F(bad) &ERRLIMIT = 100 LoOp OUTPUT = NE(&ERRLIMIT,100) "Error " &ERRTYPE ": " ERtabLE<&ERRTYPE> OUTPUT = 'type a statement' &ERRLIMIT = 100 CoDe = CODE(INPUT ' ; :(LoOp)') :S OUTPUT = 'Syntax error in above' :(LoOp) END extra line