d�ARKABLE PROGRAMMING!!
n� THAT COMMENT WAS
x� QUITE UNWARRANTED!!!
��
�*�1,1,23,34,-60,1,2,1,3,-1,-1,-1,126,10
��7
���DDB
��X%20,S%30,F$(31),T%(31)
�
Y%=X%�256
�OSBGBP=&FFD1
�OSCLI=&FFF7
�C$=�129+�157
�X%!1=S%:A%=5
��OSBGBP
� I%=S%?0+1:�I%=I%-1:�S%?I%<>0
�%S%?(I%+1)=13:A$=�131+�141+$(S%+1)

 �1,1)C$;�(40-�(A$))/2,1);A$

 �1,2)C$;�(40-�(A$))/2,2);A$

�'

"
X%!9=0

,
*DIR A

6T%=-1:I%=0

@X%!1=S%

J
X%!5=1

TA%=8

^E%=(�OSBGBP)�&1000000

h�E%<>0�T%=-1��djA

r�E%=0��tdA

|
*DIR Y

�	T%=-1

�
X%!9=0

�	�D@A

�!S%?(S%?0+1)=13:F$(I%)=$(S%+1)

�
T%(I%)=T%

��(I%+65);�5);F$(I%)

�I%=I%+1

��I%=16��28,20,24,39,4

�*FX15,1

�	�D@A

��26

��0,23);"Run which? ";

�
*DIR A
G%=�-65
�G%<0�G%>=I%��7:�THB
�132:�F$(G%);
&�T%(G%)<>0��F$(G%)
0 $X%="RUN B."+F$(G%):�OSCLI:�
:�
D�<>17��:�" at line ";�:�
N�1,1,10,40:�
�

00000000  0d 00 64 1a f4 41 52 4b  41 42 4c 45 20 50 52 4f  |..d..ARKABLE PRO|
00000010  47 52 41 4d 4d 49 4e 47  21 21 0d 00 6e 16 f4 20  |GRAMMING!!..n.. |
00000020  54 48 41 54 20 43 4f 4d  4d 45 4e 54 20 57 41 53  |THAT COMMENT WAS|
00000030  0d 00 78 1a f4 20 51 55  49 54 45 20 55 4e 57 41  |..x.. QUITE UNWA|
00000040  52 52 41 4e 54 45 44 21  21 21 0d 00 82 05 f4 0d  |RRANTED!!!......|
00000050  00 8c 2a e2 31 2c 31 2c  32 33 2c 33 34 2c 2d 36  |..*.1,1,23,34,-6|
00000060  30 2c 31 2c 32 2c 31 2c  33 2c 2d 31 2c 2d 31 2c  |0,1,2,1,3,-1,-1,|
00000070  2d 31 2c 31 32 36 2c 31  30 0d 00 96 06 eb 37 0d  |-1,126,10.....7.|
00000080  00 a0 0b ee 85 e5 8d 44  44 42 0d 00 aa 1c de 58  |.......DDB.....X|
00000090  25 32 30 2c 53 25 33 30  2c 46 24 28 33 31 29 2c  |%20,S%30,F$(31),|
000000a0  54 25 28 33 31 29 0d 00  b4 0d 59 25 3d 58 25 81  |T%(31)....Y%=X%.|
000000b0  32 35 36 0d 00 be 10 4f  53 42 47 42 50 3d 26 46  |256....OSBGBP=&F|
000000c0  46 44 31 0d 00 c8 0f 4f  53 43 4c 49 3d 26 46 46  |FD1....OSCLI=&FF|
000000d0  46 37 0d 00 d2 10 43 24  3d bd 31 32 39 2b bd 31  |F7....C$=.129+.1|
000000e0  35 37 0d 00 dc 10 58 25  21 31 3d 53 25 3a 41 25  |57....X%!1=S%:A%|
000000f0  3d 35 0d 00 e6 0b d6 4f  53 42 47 42 50 0d 00 f0  |=5.....OSBGBP...|
00000100  20 49 25 3d 53 25 3f 30  2b 31 3a f5 49 25 3d 49  | I%=S%?0+1:.I%=I|
00000110  25 2d 31 3a fd 53 25 3f  49 25 3c 3e 30 0d 00 fa  |%-1:.S%?I%<>0...|
00000120  25 53 25 3f 28 49 25 2b  31 29 3d 31 33 3a 41 24  |%S%?(I%+1)=13:A$|
00000130  3d bd 31 33 31 2b bd 31  34 31 2b 24 28 53 25 2b  |=.131+.141+$(S%+|
00000140  31 29 0d 01 04 20 f1 8a  31 2c 31 29 43 24 3b 8a  |1)... ..1,1)C$;.|
00000150  28 34 30 2d a9 28 41 24  29 29 2f 32 2c 31 29 3b  |(40-.(A$))/2,1);|
00000160  41 24 0d 01 0e 20 f1 8a  31 2c 32 29 43 24 3b 8a  |A$... ..1,2)C$;.|
00000170  28 34 30 2d a9 28 41 24  29 29 2f 32 2c 32 29 3b  |(40-.(A$))/2,2);|
00000180  41 24 0d 01 18 06 f1 27  0d 01 22 0a 58 25 21 39  |A$.....'..".X%!9|
00000190  3d 30 0d 01 2c 0a 2a 44  49 52 20 41 0d 01 36 0e  |=0..,.*DIR A..6.|
000001a0  54 25 3d 2d 31 3a 49 25  3d 30 0d 01 40 0b 58 25  |T%=-1:I%=0..@.X%|
000001b0  21 31 3d 53 25 0d 01 4a  0a 58 25 21 35 3d 31 0d  |!1=S%..J.X%!5=1.|
000001c0  01 54 08 41 25 3d 38 0d  01 5e 19 45 25 3d 28 ba  |.T.A%=8..^.E%=(.|
000001d0  4f 53 42 47 42 50 29 80  26 31 30 30 30 30 30 30  |OSBGBP).&1000000|
000001e0  0d 01 68 15 e7 45 25 3c  3e 30 80 54 25 3d 2d 31  |..h..E%<>0.T%=-1|
000001f0  8c 8d 64 6a 41 0d 01 72  0e e7 45 25 3d 30 8c 8d  |..djA..r..E%=0..|
00000200  74 64 41 0d 01 7c 0a 2a  44 49 52 20 59 0d 01 86  |tdA..|.*DIR Y...|
00000210  09 54 25 3d 2d 31 0d 01  90 0a 58 25 21 39 3d 30  |.T%=-1....X%!9=0|
00000220  0d 01 9a 09 e5 8d 44 40  41 0d 01 a4 21 53 25 3f  |......D@A...!S%?|
00000230  28 53 25 3f 30 2b 31 29  3d 31 33 3a 46 24 28 49  |(S%?0+1)=13:F$(I|
00000240  25 29 3d 24 28 53 25 2b  31 29 0d 01 ae 0d 54 25  |%)=$(S%+1)....T%|
00000250  28 49 25 29 3d 54 25 0d  01 b8 18 f1 bd 28 49 25  |(I%)=T%......(I%|
00000260  2b 36 35 29 3b 8a 35 29  3b 46 24 28 49 25 29 0d  |+65);.5);F$(I%).|
00000270  01 c2 0b 49 25 3d 49 25  2b 31 0d 01 cc 19 e7 49  |...I%=I%+1.....I|
00000280  25 3d 31 36 8c ef 32 38  2c 32 30 2c 32 34 2c 33  |%=16..28,20,24,3|
00000290  39 2c 34 0d 01 d6 0b 2a  46 58 31 35 2c 31 0d 01  |9,4....*FX15,1..|
000002a0  e0 09 e5 8d 44 40 41 0d  01 ea 07 ef 32 36 0d 01  |....D@A.....26..|
000002b0  f4 1a f1 8a 30 2c 32 33  29 3b 22 52 75 6e 20 77  |....0,23);"Run w|
000002c0  68 69 63 68 3f 20 22 3b  0d 01 fe 0a 2a 44 49 52  |hich? ";....*DIR|
000002d0  20 41 0d 02 08 0b 47 25  3d a5 2d 36 35 0d 02 12  | A....G%=.-65...|
000002e0  19 e7 47 25 3c 30 84 47  25 3e 3d 49 25 8c ef 37  |..G%<0.G%>=I%..7|
000002f0  3a e5 8d 54 48 42 0d 02  1c 11 ef 31 33 32 3a f1  |:..THB.....132:.|
00000300  46 24 28 47 25 29 3b 0d  02 26 16 e7 54 25 28 47  |F$(G%);..&..T%(G|
00000310  25 29 3c 3e 30 8c d7 46  24 28 47 25 29 0d 02 30  |%)<>0..F$(G%)..0|
00000320  20 24 58 25 3d 22 52 55  4e 20 42 2e 22 2b 46 24  | $X%="RUN B."+F$|
00000330  28 47 25 29 3a d6 4f 53  43 4c 49 3a e0 0d 02 3a  |(G%):.OSCLI:...:|
00000340  05 e0 0d 02 44 1d e7 9f  3c 3e 31 37 8c f6 3a f1  |....D...<>17..:.|
00000350  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000360  02 4e 10 d4 31 2c 31 2c  31 30 2c 34 30 3a f9 0d  |.N..1,1,10,40:..|
00000370  ff                                                |.|
00000371