CLR:CLOSE #1 :DN=PEEK(769):DIM DN$(8),Z$(42):DN$="D1:ERROR":DN$(2,2)=STR$(DN)›? "}Enter ERROR # ";:FOR I=1 TO 5:GET #16,Z:IF Z<155 THEN Z$(I,I)=CHR$(Z):NEXT I›? "}":Z=VAL(Z$)›? "}":IF Z=1 THEN Z$="No Error"›? "}":IF Z=2 THEN Z$="Insufficient Memory"›? "}":IF Z=3 THEN Z$="Value Error"›? "}":IF Z=4 THEN Z$="Too Many Variables"›? "}":IF Z=5 THEN Z$="String Length Error"›? "}":IF Z=6 THEN Z$="Out of Data Error"›? "}":IF Z=7 THEN Z$="Number Greater than 32767"›? "}":IF Z=8 THEN Z$="Input Statement Error"›? "}":IF Z=9 THEN Z$="Array or String DIM Error"›? "}":IF Z=10 THEN Z$="Argument Stack Overflow"›? "}":IF Z=11 THEN Z$="Floating Point Overflow or Underflow Error"›? "}":IF Z=12 THEN Z$="Line Not Found"›? "}":IF Z=13 THEN Z$="No Matching FOR Statement"›? "}":IF Z=14 THEN Z$="Line Too Long"›? "}":IF Z=15 THEN Z$="GOSUB or FOR Line Deleted"›? "}":IF Z=16 THEN Z$="RETURN Error"›? "}":IF Z=17 THEN Z$="Garbage Error"›? "}":IF Z=18 THEN Z$="Invalid String Character"›? "}":IF Z=19 THEN Z$="LOAD Program Too Long"›? "}":IF Z=20 THEN Z$="Bad Channel Number"›? "}":IF Z=21 THEN Z$="LOAD File Error"›? "}":IF Z=128 THEN Z$="BREAK Abort"›? "}":IF Z=129 THEN Z$="IOCB Already Opened"›? "}":IF Z=130 THEN Z$="Nonexistent Device"›? "}":IF Z=131 THEN Z$="IOCB Opened for WRITE Only"›? "}":IF Z=132 THEN Z$="Invalid Command"›? "}":IF Z=133 THEN Z$="Device or File Not Open"›? "}":IF Z=134 THEN Z$="Bad IOCB Number"›? "}":IF Z=135 THEN Z$="IOCB Opened for READ Only"›? "}":IF Z=136 THEN Z$="EOF (End of File)"›? "}":IF Z=137 THEN Z$="Truncated Record"›? "}":IF Z=138 THEN Z$="Device Timeout"›? "}":IF Z=139 THEN Z$="Device NAK"›? "}":IF Z=140 THEN Z$="Serial Bus Framing Error"›? "}":IF Z=141 THEN Z$="Cursor Out of Range"›? "}":IF Z=142 THEN Z$="Serial Bus Overrun"›? "}":IF Z=143 THEN Z$="Serial Bus Checksum Error"›? "}":IF Z=144 THEN Z$="Device Done Error"›? "}":IF Z=145 THEN Z$="Read After Write Compare  Error"›? "}":IF Z=146 THEN Z$="Function Not Implemented"›? "}":IF Z=147 THEN Z$="Insufficient RAM"›? "}":IF Z=150 THEN Z$="Serial Port Already Open"›? "}":IF Z=151 THEN Z$="Concurrent Mode Not Enabled"›? "}":IF Z=152 THEN Z$="Illegal User-Supplied Buffer"›? "}":IF Z=153 THEN Z$="Active Concurrent Mode Error"›? "}":IF Z=154 THEN Z$="Concurrent Mode Not Active"›? "}":IF Z=160 THEN Z$="Device Number Error"›? "}":IF Z=161 THEN Z$="Too Many OPEN Files"›? "}":IF Z=162 THEN Z$="Disk Full"›? "}":IF Z=163 THEN Z$="Fatal System Error"›? "}":IF Z=164 THEN Z$="File Number Mismatch"›? "}":IF Z=165 THEN Z$="Bad File Name"›? "}":IF Z=166 THEN Z$="POINT Data Length Error"›? "}":IF Z=167 THEN Z$="File Locked"›? "}":IF Z=168 THEN Z$="Invalid XIO Command"›? "}":IF Z=169 THEN Z$="Directory Full"›? "}":IF Z=170 THEN Z$="File Not Found"›? "}":IF Z=171 THEN Z$="POINT Invalid"›? "}":IF Z=172 THEN Z$="DOS 1 File"›? "}":IF Z=173 THEN Z$="Bad Sector"›? "}":IF Z=255 THEN Z$="FORMATTING Error (DOS 2.5)"›? "}ERROR ";Z;" = ";Z$:? ""›? "œPress SPACE BAR to Continue.":? "Any Other KEY to QUIT."›OPEN #1,4,0,"K:":? "œ":GET #1,Z:CLOSE #1:IF Z=32 THEN ENTER DN$›