� Error Handler Demo
� By Stephen Ramplin
� (c) The Micro User
(� �error(135,2,2):�
2�135
<�23;8202;0;0;0;
F!� Don't correct the next line
PMistake
Z�
d��error(mode%,back%,fwrd%)
n�22,mode%:�back%<2 back%=2
x�:�:�" at line ";�
�OI%=�:�(I%?1=� �256 �I%?2=� �256) ��:I%=I%+I%?3:�(I%?1=� �256 �I%?2=� �256)
�zJ%=�:�N%(back%-1):�(I%=J%) � �:�N%=0�back%-2:N%(N%)=N%(N%+1):�:N%(back%-1)=J%?1*256+J%?2:J%=J%+J%?3:�(I%=J%):L%=N%(0)
��C%=fwrd%:�:I%=I%+I%?3:C%=C%-1:�C%=� �I%?1=&FF:H%=I%?1*256+I%?2:list$="KEY0 L."+�L%+","+�H%+"|M":$&700=list$:X%=0:Y%=7:�&FFF7:*FX138,0,128
��
�

00000000  0d 00 0a 18 f4 20 45 72  72 6f 72 20 48 61 6e 64  |..... Error Hand|
00000010  6c 65 72 20 44 65 6d 6f  0d 00 14 18 f4 20 42 79  |ler Demo..... By|
00000020  20 53 74 65 70 68 65 6e  20 52 61 6d 70 6c 69 6e  | Stephen Ramplin|
00000030  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000040  63 72 6f 20 55 73 65 72  0d 00 28 18 ee 85 20 f2  |cro User..(... .|
00000050  65 72 72 6f 72 28 31 33  35 2c 32 2c 32 29 3a e0  |error(135,2,2):.|
00000060  0d 00 32 08 eb 31 33 35  0d 00 3c 13 ef 32 33 3b  |..2..135..<..23;|
00000070  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 46 21 f4  |8202;0;0;0;..F!.|
00000080  20 44 6f 6e 27 74 20 63  6f 72 72 65 63 74 20 74  | Don't correct t|
00000090  68 65 20 6e 65 78 74 20  6c 69 6e 65 0d 00 50 0b  |he next line..P.|
000000a0  4d 69 73 74 61 6b 65 0d  00 5a 05 e0 0d 00 64 1e  |Mistake..Z....d.|
000000b0  dd f2 65 72 72 6f 72 28  6d 6f 64 65 25 2c 62 61  |..error(mode%,ba|
000000c0  63 6b 25 2c 66 77 72 64  25 29 0d 00 6e 1e ef 32  |ck%,fwrd%)..n..2|
000000d0  32 2c 6d 6f 64 65 25 3a  e7 62 61 63 6b 25 3c 32  |2,mode%:.back%<2|
000000e0  20 62 61 63 6b 25 3d 32  0d 00 78 16 f1 3a f6 3a  | back%=2..x..:.:|
000000f0  f1 22 20 61 74 20 6c 69  6e 65 20 22 3b 9e 0d 00  |." at line ";...|
00000100  82 4f 49 25 3d 90 3a e7  ac 28 49 25 3f 31 3d 9e  |.OI%=.:..(I%?1=.|
00000110  20 81 32 35 36 20 80 49  25 3f 32 3d 9e 20 83 32  | .256 .I%?2=. .2|
00000120  35 36 29 20 8c f5 3a 49  25 3d 49 25 2b 49 25 3f  |56) ..:I%=I%+I%?|
00000130  33 3a fd 28 49 25 3f 31  3d 9e 20 81 32 35 36 20  |3:.(I%?1=. .256 |
00000140  80 49 25 3f 32 3d 9e 20  83 32 35 36 29 0d 00 8c  |.I%?2=. .256)...|
00000150  7a 4a 25 3d 90 3a de 4e  25 28 62 61 63 6b 25 2d  |zJ%=.:.N%(back%-|
00000160  31 29 3a e7 ac 28 49 25  3d 4a 25 29 20 8c 20 f5  |1):..(I%=J%) . .|
00000170  3a e3 4e 25 3d 30 b8 62  61 63 6b 25 2d 32 3a 4e  |:.N%=0.back%-2:N|
00000180  25 28 4e 25 29 3d 4e 25  28 4e 25 2b 31 29 3a ed  |%(N%)=N%(N%+1):.|
00000190  3a 4e 25 28 62 61 63 6b  25 2d 31 29 3d 4a 25 3f  |:N%(back%-1)=J%?|
000001a0  31 2a 32 35 36 2b 4a 25  3f 32 3a 4a 25 3d 4a 25  |1*256+J%?2:J%=J%|
000001b0  2b 4a 25 3f 33 3a fd 28  49 25 3d 4a 25 29 3a 4c  |+J%?3:.(I%=J%):L|
000001c0  25 3d 4e 25 28 30 29 0d  00 96 8d 43 25 3d 66 77  |%=N%(0)....C%=fw|
000001d0  72 64 25 3a f5 3a 49 25  3d 49 25 2b 49 25 3f 33  |rd%:.:I%=I%+I%?3|
000001e0  3a 43 25 3d 43 25 2d 31  3a fd 43 25 3d a3 20 84  |:C%=C%-1:.C%=. .|
000001f0  49 25 3f 31 3d 26 46 46  3a 48 25 3d 49 25 3f 31  |I%?1=&FF:H%=I%?1|
00000200  2a 32 35 36 2b 49 25 3f  32 3a 6c 69 73 74 24 3d  |*256+I%?2:list$=|
00000210  22 4b 45 59 30 20 4c 2e  22 2b c3 4c 25 2b 22 2c  |"KEY0 L."+.L%+",|
00000220  22 2b c3 48 25 2b 22 7c  4d 22 3a 24 26 37 30 30  |"+.H%+"|M":$&700|
00000230  3d 6c 69 73 74 24 3a 58  25 3d 30 3a 59 25 3d 37  |=list$:X%=0:Y%=7|
00000240  3a d6 26 46 46 46 37 3a  2a 46 58 31 33 38 2c 30  |:.&FFF7:*FX138,0|
00000250  2c 31 32 38 0d 00 a0 05  e1 0d ff                 |,128.......|
0000025b