LvASE $$ERROR.BAS ver. 1.3, April 1989[ A@+)AR@;@@[@@K:^ A 6($This is a Public Domain program, and^(#I would appreciate it if you do not(O(delete my name from it."(%(B(Hit any key to continue.O)@2_ A 5(#In order to work properly, the main_(%file this program creates is supposed<J*("to be written to a disk from whichJ(no files have been deleted.FE(-("If you are not sure, format a diskE(before you proceed.P0(0(%Pressto continue,to end.Z.)@.@'*AU@d$"@'!AR$np A 6($This error reporting system has been_($tested successfully with Atari-Basicp( and DOS 2.5.x=()(The use of DOS 2.0s or DOS 2.5=(is recommended.Y(%(Four files will be created7@@Y(on your error-reporting disk:k( 1. D:ERROR%(2. D:ERROR.LST5( 3. D:CANCELY(4. D:ERRCODE.BAS (This program)k@@0(0(%Pressto continue,to end..)@.@'*AUA`$"@'!AR$s A 6($To use this utility when you program^(#in BASIC, append the ERROR.LST files(to your program.U(&(This can be done by typing:U(ENTER >:@4, D:ERROR.LST>:@4,n+(#This file is only three lines long..(V(#Make sure that your error reportingn(disk is in drive 1.SS(KWhenever an error occurs, the program you are working with will be stopped,N(( the error line will be displayedN(!along with a clear error message.0(#(Hit any key to continue.0)@_ A -(When your work is finished,_( type: ENTER >:@4,D:CANCEL>:@4,V(0(%When you do this, the Error reportingV(!utility will be cancelled, and an..(&appropriate message will be displayed.0(#(Hit any key to continue.0)@C A -(Insert your disk to drive 1C(and press"$)@$AUA,g()(What disk drive are you using?,(B(1. ATARI 810/1050O(2. OTHERR(g(Your choice >6@A")@@ @I)!@PA@* (>:,*6-+&@H,$A(&@J[ ;,6.>:AU,"67,.167@,.4([("Please wait...writing 256 sectors.Tw(@@D:ERROR<-@AVN@@S(a(@e p@w(^^'(Okay, writing error messages...*(O@@D:ERROR^@hz@n(@NCLR:A=PEEK(195):DIMA$(1000):NOTE#7,C,B:C=C+A:B=0:POINT#7,C,B:I.#7;A$:?A$:CL.#7z6-rU "A '(..../6-%>@K(@U Ap|r@(>@@ D:ERROR.LSTR-@@V"c(@g r@n)@@D:CANCEL=-@@A"N(@R V"c(@n@ D:ERRCODE.BASg*("Okay, your error-reporting disk isR(#ready for work...happy programming.dARgh (}1(#Meaningful Error messages - Ver 1.3O( h(By Yuval Rabinovich. ( ( $X A /6-F:A,%F:A,$AVT(Error #F:A, at line X[AR*#F:A,%A`0"?F:A,B(X(Unexpected error.[ ( ( 2,Insufficient memory3,Value error4,Too many variables5,String length error6,Out of data7,Line # out of range8,INPUT statement error!!9,Array or string DIM error 10,Argument stack overflow**11,Floating point overflow/underflow12,Line not found13,No matching FOR14,Line too long""15,GOSUB or FOR line deleted16,RETURN error17,Garbage error!!18,Invalid string character19,LOAD program too long20,Device number error21,LOAD file errorL128,BREAK abortM129,IOCB already openN130,Nonexistent deviceO131,IOCB write onlyP132,Invalid commandQ133,Device/file not openR134,Bad IOCB numberS135,IOCB read onlyT136,End of fileU137,Truncated recordV138,Device timeoutW139,Device NAKX140,Serial frame errorY141,Cursor out of rangeZ142,Serial bus overrun[143,Checksum error\144,Device done error] 145,Read-after-Write error^""146,Function not implemented_##147,Insufficient graphics RAMb150,Port already openc))151,Concurrent mode I/O not enabledd&&152,Illegal user supplied buffere**153,Active concurrent mode I/O errorf((154,Concurrent mode I/O not activel160,Drive number errorm161,Too many open filesn162,Disk fullo((163,Unrecoverable system I/O errorp164,File number mismatchq165,File name errorr!!166,POINT data length errors167,File lockedt 168,Device command invalidu169,Directory fullv170,File not foundw171,POINT invalidx172,Illegal appendy$$173,Bad sectors at format time 999,0 TRAP 32767CC32766 ? "You just bumped into":? "error check routine.":STOPnn32767 TRAP 32767:A=PEEK(186)+PEEK(187)*256:? "Error #";PEEK(195);" in line ";A:LIST A:? :ENTER "D:ERROR"22TRAP 32767:? "Error message display active!"0,32766,3276755TRAP 40000:? "Error message display cancelled!"D2:ERRCODE.BAS