Source code for ibmerror.rex

/* IBMError.rex,  Version 1.01                                          */

/* Display error type and message for the specified IBM PC error number */

/* Written by Rob van der Woude                                         */

/* http://www.robvanderwoude.com                                        */

```
 
```
```
say
```
```
if ARG( 1, e ) then do
```

	if DATATYPE( ARG( 1 ), "Number" ) \= 1 then do

```
		say "IBMError.rex, Version 1.01"
```

		say "Display error type and message for the specified IBM PC error number."

```
		say
```

		say "Usage:  IBMERROR  [ error_number ]"

```
		say
```

		say "Works interactively when no error number is specified on the command line."

```
		say
```
```
		say "Written by Rob van der Woude"
```
```
		say "http://www.robvanderwoude.com"
```
```
		exit 1
```
```
	end
```
```
	else do
```

		say "Searching IBM error message database, please wait . . ."

```
	end
```
```
end
```
```
else do
```

	say "Loading IBM error message database into memory, please wait . . ."

```
end
```
```
 
```
```
error. = ""
```
```
error.0 = 16540
```
```
do i=1 to error.0
```

        error.i = "* * Sorry, I'm not familiar with this error number * *"

```
end
```
```
do i=100 to 16500 by 100
```
```
	error.i = ""
```
```
end
```
```
 
```

error.10 = "Undetermined problem errors"

```
error.11 = "Undetermined problem error"
```
```
error.12 = "Undetermined problem error"
```
```
error.13 = "Undetermined problem error"
```
```
error.14 = "Undetermined problem error"
```
```
error.15 = "Undetermined problem error"
```
```
error.16 = "Undetermined problem error"
```
```
error.17 = "Undetermined problem error"
```
```
error.18 = "Undetermined problem error"
```
```
error.19 = "Undetermined problem error"
```
```
 
```
```
error.20 = "Power supply errors"
```
```
error.21 = "Power supply error"
```
```
error.22 = "Power supply error"
```
```
error.23 = "Power supply error"
```
```
error.24 = "Power supply error"
```
```
error.25 = "Power supply error"
```
```
error.26 = "Power supply error"
```
```
error.27 = "Power supply error"
```
```
error.28 = "Power supply error"
```
```
error.29 = "Power supply error"
```
```
 
```
```
error.100 = "System board errors"
```

error.101 = "System board error - Interrupt failure"

error.102 = "System board error - Timer failure"

error.103 = "System board error - Timer interrupt failure"

error.104 = "System board error - Protected mode failure"

error.105 = "System board error - Last 8042 command not accepted"

error.106 = "System board error - Converting logic test"

error.107 = "System board error - Hot NMI test"

error.108 = "System board error - Timer bus test"

error.109 = "Direct memory access test error"

```
error.110 = "System board memory"
```
```
error.111 = "Adapter memory"
```

error.112 = "(any adapter in system unit)"

error.113 = "(any adapter in system unit)"

error.121 = "Unexpected hardware interrupts occurred"

```
error.131 = "Cassette wrap test failed"
```

error.151 = "System Board Error; Defective battery"

error.152 = "System Board Error; Real time clock failure"

error.161 = "System Options Error - (Run SETUP) Battery failure"

error.162 = "System options not set correctly-(Run SETUP)"

error.163 = "Time and date not set - (Run SETUP)"

error.164 = "Memory size error - (Run SETUP)"

error.165 = "System options not set - (Run SETUP)"

error.166 = "(any adapter in system unit)"

error.199 = "User-indicated configuration not correct"

```
 
```

error.200 = "Memory (RAM) errors"||"D"x||"A"x||"          (xxyyyy yyzz 201 bad ram chip in bank xx row zz)"

```
error.201 = "Memory test failed"
```
```
error.202 = "Memory address error"
```
```
error.203 = "Memory address error"
```

error.215 = "(system board memory failure)"

error.216 = "(system board memory failure)"

```
 
```
```
error.300 = "Keyboard errors"
```

error.301 = "Keyboard did not respond to software reset correctly, or a stuck key"||"D"x||"A"x||"          failure was detected. If a stuck key was detected, the scan code for"||"D"x||"A"x||"          the key is displayed in hexadecimal."

/* For example, the error code 49 301 indicates that Key 73, the PAGE UP key, has failed (49 hex = 73 decimal)" */

error.302 = "User-indicated error from the keyboard test, or AT keylock is locked"

error.303 = "Keyboard or system unit error"

error.304 = "Keyboard or system unit error; CMOS does not match system"

error.305 = "Models 50 and 60 fuse or keyboard cable error"

```
error.341 = "Replace keyboard"
```
```
error.342 = "Replace interface cable"
```

error.343 = "Replace enhancement card or cable"

```
 
```
```
error.400 = "Monochrome monitor errors"
```

error.401 = "Monochrome memory test, horizontal synchronous frequency test,"||"D"x||"A"x||"          or video test failed"

error.408 = "User-indicated display attributes failure"

error.416 = "User-indicated character set failure"

error.424 = "User-indicated 80 X 25 mode failure"

error.432 = "Parallel port test failed (monochrome adapter)"

```
 
```
```
error.500 = "Color monitor errors"
```

error.501 = "Color memory test failed, horizontal synchronous frequency test,"||"D"x||"A"x||"          or video test failed"

error.508 = "User-indicated display attribute failure"

error.516 = "User-indicated character set failure"

error.524 = "User-indicated 80 X 25 mode failure"

error.532 = "User-indicated 40 X 25 mode failure"

error.540 = "User-indicated 320 X 200 graphics mode failure"

error.548 = "User-indicated 640 X 200 graphics mode failure"

```
 
```
```
error.600 = "Diskette drive errors"
```

error.601 = "Diskette power-on diagnostics test failed"

error.602 = "Diskette test failed; boot record is not valid"

```
error.603 = "Diskette size error"
```

error.606 = "Diskette verify function failed"

```
error.607 = "Write-protected diskette"
```

error.608 = "Bad command diskette status returned"

error.610 = "Diskette initialization failed"

error.611 = "Timeout - diskette status returned"

error.612 = "Bad NEC (controller) - diskette status returned"

error.613 = "Bad DMA - diskette status returned"

```
error.614 = "DMA Boundary error"
```

error.621 = "Bad seek - diskette status returned"

error.622 = "Bad CRC - diskette status returned"

error.623 = "Record not found - diskette status returned"

error.624 = "Bad address mark - diskette status returned"

error.625 = "Bad NEC (controller) seek - diskette status returned"

error.626 = "Diskette data compare error"

error.627 = "Diskette change line error"

```
error.628 = "Diskette removed"
```
```
 
```

error.700 = "8087 or 80287 math coprocessor errors"

error.701 = "Math coprocessor test failed"

```
 
```

error.900 = "Parallel printer adapter errors"

error.901 = "Parallel printer adapter test failed"

```
 
```

error.1000 = "Reserved for parallel printer adapter"

error.1001 = "Alt printer Adapter test failed"

```
 
```

error.1100 = "Asynchronous communications adapter errors"

error.1101 = "Asynchronous communications adapter test failed"

error.1102 = "Any serial device (system board)"

error.1106 = "Any serial device (system board)"

error.1107 = "Communications cable (system board)"

error.1108 = "Any serial device (system board)"

error.1109 = "Any serial device (system board)"

error.1110 = "Modem status register not clear"

```
error.1111 = "Ring indicate failure"
```

error.1112 = "Trailing edge ring indicate failure"

error.1113 = "Receive and delta receive line signal detect failure"

error.1114 = "Receive line signal detect failure"

error.1115 = "Delta receive line signal detect failure"

error.1116 = "Line control register; all bits cannot be set"

error.1117 = "Line control register; all bits cannot be reset"

error.1118 = "Xmit holding and/or shift register is stuck on"

```
error.1119 = "Data ready stuck on"
```

error.1120 = "Interrupt enable register, all bits cannot be set"

error.1121 = "Interrupt enable register, all bits cannot be reset"

error.1122 = "Interrupt pending stuck on"

error.1123 = "Interrupt ID register stuck on"

error.1124 = "Modem control register, all bits cannot be set"

error.1125 = "Modem control register, all bits cannot be reset"

error.1126 = "Modem status register, all bits cannot be set"

error.1127 = "Modem status register, all bits cannot be reset"

```
error.1128 = "Interrupt ID failure"
```

error.1129 = "Cannot force overrun error"

error.1130 = "No modem status interrupt"

error.1131 = "Invalid interrupt pending"

```
error.1132 = "No data ready"
```

error.1133 = "No data available interrupt"

error.1134 = "No transmit holding interrupt"

```
error.1135 = "No interrupts"
```

error.1136 = "No received line status interrupt"

error.1137 = "No receive data available"

error.1138 = "Transmit holding register not empty"

error.1139 = "No modem status interrupt"

error.1140 = "Transmit holding register not empty"

```
error.1141 = "No interrupts"
```
```
error.1142 = "No IRQ4 interrupt"
```
```
error.1143 = "No IRQ3 interrupt"
```
```
error.1144 = "No data transferred"
```
```
error.1145 = "Maximum BAUD rate failed"
```
```
error.1146 = "Minimum BAUD rate failed"
```
```
error.1148 = "Timeout error"
```
```
error.1149 = "Invalid data returned"
```

error.1150 = "Modem status register error"

```
error.1151 = "No DSR and Delta DSR"
```
```
error.1152 = "No data set ready"
```
```
error.1153 = "No delta"
```

error.1154 = "Modem status register not clear"

```
error.1155 = "No CTS and Delta CTS"
```
```
error.1156 = "No clear to send"
```
```
error.1157 = "No delta CTS"
```
```
 
```

error.1200 = "Alternate asynchronous communications adapter errors"

error.1201 = "Alternate asynchronous communications adapter test failed"

error.1202 = "Dual Asynchronous Adapter/A (Any serial device)"

error.1206 = "Dual Asynchronous Adapter/A (Any serial device)"

error.1207 = "Dual Asynchronous Adapter/A board error"

error.1208 = "Dual Asynchronous Adapter/A (Any serial device)"

error.1209 = "Dual Asynchronous Adapter/A (Any serial device)"

```
 
```

error.1300 = "Game control adapter errors"

error.1301 = "Game control adapter test failed"

```
error.1302 = "Joystick test failed"
```
```
 
```
```
error.1400 = "Printer errors"
```
```
error.1401 = "Printer test failed"
```
```
error.1404 = "Matrix printer failed"
```
```
 
```

error.1500 = "Synchronous data link control (SDLC) communications adapter errors"

```
error.1510 = "8255 Port B failure"
```
```
error.1511 = "8255 Port A failure"
```
```
error.1512 = "8255 Port C failure"
```

error.1513 = "8253 Timer 1 did not reach terminal count"

```
error.1514 = "8253 Timer 1 stuck on"
```

error.1515 = "8253 Timer 0 did not reach terminal count"

```
error.1516 = "8253 Timer 0 stuck on"
```

error.1517 = "8253 Timer 2 did not reach terminal count"

```
error.1518 = "8253 Timer 2 stuck on"
```
```
error.1519 = "8273 Port B error"
```
```
error.1520 = "8273 Port A error"
```

error.1521 = "8273 command/read timeout"

error.1522 = "Interrupt level 4 failure"

```
error.1523 = "Ring Indicate stuck on"
```
```
error.1524 = "Receive clock stuck on"
```
```
error.1525 = "Transmit clock stuck on"
```
```
error.1526 = "Test indicate stuck on"
```
```
error.1527 = "Ring indicate not on"
```
```
error.1528 = "Receive clock not on"
```
```
error.1529 = "Transmit clock not on"
```
```
error.1530 = "Test indicate not on"
```
```
error.1531 = "Data set ready not on"
```
```
error.1532 = "Carrier detect not on"
```
```
error.1533 = "Clear to send not on"
```
```
error.1534 = "Data set ready stuck on"
```
```
error.1536 = "Clear to send stuck on"
```

error.1537 = "Level 3 interrupt failure"

error.1538 = "Receive interrupt results error"

```
error.1539 = "Wrap data miscompare"
```
```
error.1540 = "DMA channel 1 error"
```
```
error.1541 = "DMA channel 1 error"
```

error.1542 = "Error in 8273 error checking or status reporting"

```
error.1547 = "Stray interrupt level 4"
```
```
error.1548 = "Stray interrupt level 3"
```

error.1549 = "Interrupt presentation sequence timeout"

```
 
```

error.1600 = "Display emulation errors (327x, 5520, 525x)"

```
 
```
```
error.1700 = "Fixed disk errors"
```
```
error.1701 = "Fixed Disk/Adapter"
```
```
error.1702 = "Time out error"
```
```
error.1703 = "Seek error"
```
```
error.1704 = "Disk adapter error"
```
```
error.1705 = "No record found"
```
```
error.1706 = "Write fault error"
```
```
error.1707 = "Track 0 error"
```
```
error.1708 = "Head select error"
```
```
error.1709 = "Defective ECC"
```
```
error.1710 = "Read buffer overrun"
```
```
error.1711 = "Bad address mark"
```

error.1712 = "Error-cause not determined"

```
error.1713 = "Data compare error"
```
```
error.1714 = "Drive not ready"
```
```
error.1780 = "Disk 0 failure"
```
```
error.1781 = "Disk 1 failure"
```
```
error.1782 = "Disk adapter error"
```
```
error.1790 = "Disk 0 error"
```
```
error.1791 = "Disk 1 error"
```
```
 
```

error.1800 = "I/O expansion unit errors"

error.1801 = "I/O expansion unit POST error"

```
error.1810 = "Enable/Disable failure"
```

error.1811 = "Extender card warp test failed (disabled)"

error.1812 = "High order address lines failure (disabled)"

error.1813 = "Wait state failure (disabled)"

error.1814 = "Enable/Disable could not be set on"

error.1815 = "Wait state failure (disabled)"

error.1816 = "Extender card warp test failed (enabled)"

error.1817 = "High order address lines failure (enabled)"

```
error.1818 = "Disable not functioning"
```

error.1819 = "Wait request switch not set correctly"

error.1820 = "Receiver card wrap test failure"

error.1821 = "Receiver high order address lines failure"

```
 
```

error.1900 = "3270 PC attachment card errors"

```
 
```

error.2000 = "Binary synchronous communications (BSC) adapter errors"

```
error.2010 = "8255 Port A failure"
```
```
error.2011 = "8255 Port B failure"
```
```
error.2012 = "8255 Port C failure"
```

error.2013 = "8253 Timer 1 did not reach terminal count"

```
error.2014 = "8253 Timer 1 stuck on"
```

error.2016 = "8253 Timer 2 did not reach terminal count, or timer 2 stuck on"

error.2017 = "8251 Data set ready failed to come on"

error.2018 = "8251 Clear to send not sensed"

error.2019 = "8251 Data set ready stuck on"

error.2020 = "8251 Clear to send stuck on"

error.2021 = "8251 Hardware reset failed"

error.2022 = "8251 Software reset failed"

error.2023 = "8251 Software "error reset" failed"

error.2024 = "8251 Transmit ready did not come on"

error.2025 = "8251 Receive ready did not come on"

error.2026 = "8251 Could not force "overrun" error status"

error.2027 = "Interrupt failure - no timer interrupt"

error.2028 = "Interrupt failure - transmit, replace card or planar"

error.2029 = "Interrupt failure - transmit, replace card"

error.2030 = "Interrupt failure - receive, replace card or planar"

error.2031 = "Interrupt failure - receive, replace card"

```
error.2033 = "Ring indicate stuck on"
```
```
error.2034 = "Receive clock stuck on"
```
```
error.2035 = "Transmit clock stuck on"
```
```
error.2036 = "Test indicate stuck on"
```
```
error.2037 = "Ring indicate stuck on"
```
```
error.2038 = "Receive clock not on"
```
```
error.2039 = "Transmit clock not on"
```
```
error.2040 = "Test indicate not on"
```
```
error.2041 = "Data set ready not on"
```
```
error.2042 = "Carrier detect not on"
```
```
error.2043 = "Clear to send not on"
```
```
error.2044 = "Data set ready stuck on"
```
```
error.2045 = "Carrier detect stuck on"
```
```
error.2046 = "Clear to send stuck on"
```

error.2047 = "Unexpected transmit interrupt"

error.2048 = "Unexpected receive interrupt"

error.2049 = "Transmit data did not equal receive data"

error.2050 = "8251 detected overrun error"

error.2051 = "Lost data set ready during data wrap"

error.2052 = "Receive timeout during data wrap"

```
 
```

error.2100 = "Alternate binary synchronous communications adapter errors"

```
error.2110 = "8255 Port A failure"
```
```
error.2111 = "8255 Port B failure"
```
```
error.2112 = "8255 Port C failure"
```

error.2113 = "8253 Timer 1 did not reach terminal count"

```
error.2114 = "8253 Timer 1 stuck on"
```

error.2115 = "8253 Timer 2 did not reach terminal count, or timer 2 stuck on"

error.2116 = "8251 Data set ready failed to come on"

error.2117 = "8251 Clear to send not sensed"

error.2118 = "8251 Data set ready stuck on"

error.2119 = "8251 Clear to send stuck on"

error.2120 = "8251 Hardware reset failed"

error.2121 = "8251 Software reset failed"

error.2122 = "8251 Software "error reset" failed"

error.2123 = "8251 Transmit ready did not come on"

error.2124 = "8251 Receive ready did not come on"

error.2125 = "8251 Could not force "overrun" error status"

error.2126 = "Interrupt failure - no timer interrupt"

error.2128 = "Interrupt failure - transmit, replace card or planar"

error.2129 = "Interrupt failure - transmit, replace card"

error.2130 = "Interrupt failure - receive, replace card or planar"

error.2131 = "Interrupt failure - receive, replace card"

```
error.2133 = "Ring indicate stuck on"
```
```
error.2134 = "Receive clock stuck on"
```
```
error.2135 = "Transmit clock stuck on"
```
```
error.2136 = "Test indicate stuck on"
```
```
error.2137 = "Ring indicate stuck on"
```
```
error.2138 = "Receive clock not on"
```
```
error.2139 = "Transmit clock not on"
```
```
error.2140 = "Test indicate not on"
```
```
error.2141 = "Data set ready not on"
```
```
error.2142 = "Carrier detect not on"
```
```
error.2143 = "Clear to send not on"
```
```
error.2144 = "Data set ready stuck on"
```
```
error.2145 = "Carrier detect stuck on"
```
```
error.2146 = "Clear to send stuck on"
```

error.2147 = "Unexpected transmit interrupt"

error.2148 = "Unexpected receive interrupt"

error.2149 = "Transmit data did not equal receive data"

error.2150 = "8251 detected overrun error"

error.2151 = "Lost data set ready during data wrap"

error.2152 = "Receive timeout during data wrap"

```
 
```
```
error.2200 = "Cluster adapter errors"
```
```
 
```

error.2400 = "Enhanced graphics adapter errors"

```
 
```
```
error.2600 = "XT/370 error codes"
```
```
 
```
```
error.2700 = "XT/370 error codes"
```
```
 
```

error.2900 = "Color matrix printer errors"

error.2901 = "Color matrix printer error"

error.2902 = "Color matrix printer error"

error.2904 = "Color matrix printer error"

```
 
```

error.3000 = "Primary PC Network Adapter Error"

```
error.3001 = "CPU Failure"
```
```
error.3002 = "ROM Failure"
```
```
error.3003 = "ID Failure"
```
```
error.3004 = "RAM Failure"
```
```
error.3005 = "HIC Failure"
```
```
error.3006 = "+/- 12v Failed"
```
```
error.3007 = "Digital Loopback Failure"
```

error.3008 = "Host Detected HIC Failure"

error.3009 = "Synchronous Fail & No Go Bit"

```
error.3010 = "HIC Test OK & No Go Bit"
```
```
error.3011 = "Go Bit & No CMD 41"
```
```
error.3012 = "Card not present"
```

error.3013 = "Digital Failure ( Fall Through )"

```
error.3015 = "Analog Failure"
```

error.3041 = "Hot Carrier (not this card)"

```
error.3042 = "Hot Carrier (This Card)"
```
```
 
```

error.3100 = "Secondary PC Network Adapter Error"

```
error.3101 = "CPU Failure"
```
```
error.3102 = "ROM Failure"
```
```
error.3103 = "ID Failure"
```
```
error.3104 = "RAM Failure"
```
```
error.3105 = "HIC Failure"
```
```
error.3106 = "+/- 12v Failed"
```
```
error.3107 = "Digital Loopback Failure"
```

error.3108 = "Host Detected HIC Failure"

error.3109 = "Synchronous Fail & No Go Bit"

```
error.3110 = "HIC Test OK & No Go Bit"
```
```
error.3111 = "Go Bit & No CMD 41"
```
```
error.3112 = "Card not present"
```

error.3113 = "Digital Failure ( Fall Through )"

```
error.3115 = "Analog Failure"
```

error.3141 = "Hot Carrier (not this card)"

error.3142 = "Hot Carrier (THIS CARD !!)"

```
 
```
```
error.3300 = "Compact printer errors"
```
```
 
```
```
error.7400 = "Display adapter 8514/A"
```
```
 
```

error.8500 = "80286 Expanded Memory Adapter/A"

error.8500 = "80286 Expanded Memory Adapter/A"

error.8502 = "80286 Expanded Memory Adapter/A"

error.8503 = "80286 Expanded Memory Adapter/A"

error.8504 = "80286 Expanded Memory Adapter/A"

error.8505 = "80286 Expanded Memory Adapter/A"

error.8506 = "80286 Expanded Memory Adapter/A"

error.8507 = "80286 Expanded Memory Adapter/A"

error.8508 = "80286 Expanded Memory Adapter/A"

error.8509 = "80286 Expanded Memory Adapter/A"

error.8510 = "80286 Expanded Memory Adapter/A"

error.8511 = "80286 Expanded Memory Adapter/A"

error.8512 = "80286 Expanded Memory Adapter/A"

error.8513 = "80286 Expanded Memory Adapter/A"

error.8514 = "80286 Expanded Memory Adapter/A"

error.8515 = "80286 Expanded Memory Adapter/A"

error.8516 = "80286 Expanded Memory Adapter/A"

error.8517 = "80286 Expanded Memory Adapter/A"

error.8518 = "80286 Expanded Memory Adapter/A"

error.8519 = "80286 Expanded Memory Adapter/A"

error.8520 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8521 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8522 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8523 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8524 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8525 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8526 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8527 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8528 = "Memory module package on the 80286 Expanded Memory Adapter/A"

error.8529 = "Memory module package on the 80286 Expanded Memory Adapter/A"

```
 
```

error.8600 = "PS/2 pointing device errors"

error.8601 = "Pointing device (IBM mouse)"

```
error.8602 = "Pointing device"
```
```
error.8603 = "System board error"
```

error.8604 = "System board : Pointing device"

```
 
```
```
error.10000 = "Multiprotocol Adapter/A"
```

error.10002 = "Multiprotocol Adapter/A any serial device"

error.10006 = "Multiprotocol Adapter/A any serial device"

error.10007 = "Communications cable Multiprotocol Adapter/A"

error.10008 = "Multiprotocol Adapter/A any serial device"

error.10009 = "Multiprotocol Adapter/A any serial device"

```
 
```
```
error.10100 = "Modem Adapter/A"
```

error.10102 = "Modem Adapter/A any serial device"

error.10106 = "Modem Adapter/A any serial device"

error.10108 = "Modem Adapter/A any serial device"

error.10109 = "Modem Adapter/A any serial device"

```
 
```

error.10400 = "Fixed disk adapter (ESDI) drives 0 or 1 (C or D)"

error.10480 = "Fixed disk C, adapter (ESDI) or system board error"

error.10481 = "Fixed disk D, adapter (ESDI) or system board error"

error.10482 = "Fixed disk C or system board error"

error.10483 = "Fixed disk adapter (ESDI) or system board error"

error.10490 = "Fixed disk C or adapter (ESDI) error"

error.10491 = "Fixed disk C or adapter (ESDI) error"

```
 
```

error.16500  = "6157 Tape Attachment Adapter"

error.16520  = "6157 Streaming Tape Drive"

error.16540  = "6157 Streaming Tape Drive or tape attachment adapter"

```
 
```
```
if ARG( 1, e ) then do
```
```
	number = ARG( 1 )
```
```
	number = FORMAT( number )
```

        type = 100 * trunc( number / 100 )

```
	if type = 0 then do
```
```
		type = 10
```

		if number > 19 & number < 30 then type = 20

```
	end
```
```
	"@CLS"
```
```
	say
```
```
	say "Number  : "||number
```
```
	if error.type = "" then do
```

		say "Type    : * * Sorry, unknown error type * *"

```
	end
```
```
	else do
```
```
	        say "Type    : "||error.type
```

	        if number \= type then say "Message : "||error.number

```
	end
```
```
        say
```
```
end
```
```
else do 
```
```
	"@CLS"
```
```
	do forever
```

	        say "Enter an error number (or press Return to quit):"

```
        	pull number
```
```
	        if number = "" then leave
```

		if DATATYPE( number, "Number" ) \= 1 then do

			say "Enter error NUMBERS only"||X2C( "07" )

```
		end
```
```
		else do
```
```
			number = FORMAT( number )
```
```
			type = 100 * trunc( number / 100 )
```
```
			if type = 0 then do
```
```
				type = 10
```

				if number > 19 & number < 30 then type = 20

```
			end
```
```
			if error.type = "" then do
```

				say "Type    : * * Sorry, unknown error type * *"

```
			end
```
```
			else do
```
```
			        say "Type    : "||error.type
```

        			if number \= type then say "Message : "||error.number

```
			end
```
```
		end
```
```
	        say
```
```
	end
```
```
end
```
```
 
```