2 PRINT "}":REM CLEARS SCREEN›5 DIM SNAP$(50):TRAP 32500›6 REM ›7 REM ›10 REM <<< ERROR TRAPPING DEMO >>>›20 REM <<< BY DAVID P. ALLEN >>>›30 REM ›40 REM ›50 REM ›60 REM ›70 REM ›80 REM THIS PROGRAM DEMONSTRATES›90 REM THE PRINTOUT OF ERROR›100 REM STATEMENTS. THE FOLLOWING›110 REM LINES ARE DESIGNED TO PRO-›120 REM DUCE ERRORS. AFTER EACH›130 REM ERROR. TYPE 'GOTO' PLUS THE›140 REM THE LINE NUMBER WHERE THE›150 REM ERROR OCCURED +10. I.E.,›160 REM IF THE ERROR MESSAGE SAYS›170 REM THE ERROR OCCURED AT LINE›180 REM 220, THEY TYPE 'GOTO 230' TO›190 REM CONTINUE THE DEMONSTRATION›195 REM ›197 REM ›200 GOTO 1000›210 NEXT X›220 READ Y›230 SAVE "D2:TEST"›240 PRINT #1,A$›250 PRINT "]":POSITION 8,22›260 PRINT "*** ลฮฤ ฯฦ ฤลอฯฮำิามิษฯฮ ***"›270 END ›326 LIST 32660›32490 REM <<< ERROR TRAPPING >>>›32491 REM <<<  SUBROUTINE  >>>›32493 REM ›32494 REM ›32495 REM INSERT 'DIM SNAP$(50):›32496 REM TRAP 32500' AT AN›32497 REM EARLY LINE NUMBER.›32498 REM ›32499 REM ›32500 SNAP=PEEK(195):LNM=256*PEEK(187)+PEEK(186):GOSUB SNAP+32500:PRINT "*** ";SNAP$:PRINT "AT LINE ";LNM;"*"›32501 TRAP 32500:PRINT "   ":END ›32502 SNAP$="INSUFFICENT MEMORY":RETURN ›32503 SNAP$="VALUE ERROR":RETURN ›32504 SNAP$="TOO MANY VARIABLES":RETURN ›32505 SNAP$="STRING LENGTH ERROR":RETURN ›32506 SNAP$="OUT OF DATA":RETURN ›32507 SNAP$="ERROR > 32767":RETURN ›32508 SNAP$="INPUT STATEMENT ERROR":RETURN ›32509 SNAP$="DIM ERROR":RETURN ›32510 SNAP$="ARGUMENT STACK OVERFLOW":RETURN ›32511 SNAP$="FP OVER/UNDERFLO ERROR":RETURN ›32512 SNAP$="LINE NOT FOUND":RETURN ›32513 SNAP$="NEXT WITHOUT FOR":RETURN ›32514 SNAP$="LINE TO LONG":RETURN ›32515 SNAP$="GOSUB/FOR LINE DELETED":RETURN ›32516 SNAP$="RETURN WITHOUT GOSUB":RETURN ›32517 SNAP$="GARBAGE":RETURN ›32518 SNAP$="INVALID STRING CHARACTER":RETURN ›32519 SNAP$="CAN'T LOAD-TOO LONG":RETURN ›32520 SNAP$="DEVICE # >7 OR =0":RETURN ›32521 SNAP$="NON-LOAD FILE":RETURN ›32628 SNAP$="BREAK KEY ABORT":RETURN ›32629 SNAP$="IOCB ALREADY OPEN":RETURN ›32630 SNAP$="NON-EXISTENT DEVICE":RETURN ›32631 SNAP$="IOCB WRITE ONLY":RETURN ›32632 SNAP$="INVALID COMMAND":RETURN ›32633 SNAP$="DEVICE/ FILE NOT OPEN":RETURN ›32634 SNAP$="ILLEGAL IOCB #":RETURN ›32635 SNAP$="IOCB READ ONLY":RETURN ›32636 SNAP$="END OF FILE":RETURN ›32637 SNAP$="RECORD > 256 CHARACTERS":RETURN ›32638 SNAP$="DEVICE DOSEN'T RESPOND":RETURN ›32639 SNAP$="GARBAGE AT SERIAL PORT":RETURN ›32640 SNAP$="SERIAL BUS INPUT FRAMING ERROR":RETURN ›32641 SNAP$="CURSOR OUT OF RANGE":RETURN ›32642 SNAP$="SERIAL BUS DATA FRAME OVERRUN":RETURN ›32643 SNAP$="SERIAL BUS DATA CHECKSUM ERROR":RETURN ›32644 SNAP$="WRITE PROTECTED":RETURN ›32645 SNAP$="DISK/SCREEN MODE HANDLER ERROR":RETURN ›32646 SNAP$="FUNCTION NOT IMPLEMENTED":RETURN ›32647 SNAP$="GRAPHICS MODE NEEDS MORE MEMORY":RETURN ›32660 SNAP$="DRIVE NUMBER ERROR":RETURN ›32661 SNAP$="DISK FULL":RETURN ›32662 SNAP$="DISK FULL":RETURN ›32663 SNAP$="UNRECOVERABLE SYSTEM DATA- I/O ERROR":RETURN ›32664 SNAP$="FILE NUMBER MISMATCH":RETURN ›32665 SNAP$="FILENAME ERROR":RETURN ›32666 SNAP$="POINT DATA LENGTH ERROR":RETURN ›32667 SNAP$="FILE LOCKED":RETURN ›32668 SNAP$="INVALID COMMAND":RETURN ›32669 SNAP$="DIRECTORY FULL":RETURN ›32670 SNAP$="FILE NOT FOUND":RETURN ›32671 SNAP$="POINT INVALID":RETURN ›