home *** CD-ROM | disk | FTP | other *** search
/ Antic Magazine 1989 May / Antic_Magazine_1989_05_Antic_Side_A.atr / error < prev    next >
Text File  |  2023-02-26  |  3KB  |  1 lines

  1. 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$¢əəəəəəəəəəəəəəəəəəə