�"CLOSE":�"Error "+�$:�
ie%=184
M�b%512,b2% 256,i% ie%,name%12,ci% 3276,cc% 13104,vs% 204,m1% 196,m2% 1880
(�link$(32),link%(32)
2�q%=�:$(vs%)="R5,3":nx%=�:msk%=1:wfns%=-1:MO%=0:firstopen%=�:lchr%=0:mf1%=0:mf2%=-1:�LA%=0�15:$(vs%+((LA%+1)*12))="R5,3;F1"+�~(LA%):�LA%
<.ș262336,300,&4B534154,"Custom Characters"
F)ș262361,,"<CustomChr$Dir>.Templates"
PS$name%="Info":ș262363,,b%,i%,i%+ie%,-1,name%,0�,,ni%,,,,ne%:ș262337,,b%�info%
Zwindow%=�ltmp("Window")
dș262362
n_!b%=-1:b%!4=0:b%!8=0:b%!12=72:b%!16=68:b%!20=&3002:$(b%+24)="!CustomChr":ș262338,,b% � ib%
x#�load:�nfontinit:�fmi:�cm:�scan
�)fh%=0:�font$<>deff$:�findfont:�findmf
�"�magic%=0:m1%!124=3:�m1%!124=2
� �shift%:m1%!100=1:�m1%!100=0
�
�selit
��lchr(cur$,�)
�	��er
�	ȕ�q%
�ș262343,msk%,b%�r%
�0�wfns%>-1:�:���-1:�desel(cw%,wfns%):wfns%=-1
�r�-1 � shift%:ș262351,,b2%:�b2%!12=cw%�b2%!16>-1:�sel(cw%,b2%!16):�process(?(ci%+b2%!16),b2%!16):wfns%=b2%!16
��magic%=0 � nx%=�:nx%=�:�st
�	Ȏr%�
��0:�lchr%>0 �

;�deselit:cur$=link$(lchr%):�selit:�lchr(cur$,�):lchr%=0

.ș262351,,b2%:�b2%!12=cw% � magic%=0:nx%=�

�

"�2:ș262341,,b%

,#�3:ș262342,,b%:�!b%=cw%:msk%=1

6 �5:�magic%=0 � !b%=cw%:nx%=�

@�6:�cl(b%!8,b%!12,b%!16)

J�9:�ms(!b%,b%!4,b%!8)

T�17,18:�rm

^�

h�

r�fh%>0:ș262274,fh%

|ș262365

��

���rm

�Ȏb%!16�

��0:q%=�

��

��

�I��er:!b%=�:$(b%+4)=�$+�0:ș262367,b%,1,"Custom Characters":�"CLOSE":�

���cl(but%,w%,i%)

�	Ȏw%�

��-2:Ȏbut%�

�T�1,4:�firstopen%=�:!b%=cw%:ș262347,,b%:b%!28=-1:ș262341,,b%:msk%=0:��firstopen

�1�2:�fmi:MO%=1:ș262356,,m1%,!b%-64,96+44*7+48

��
�cw%:Ȏbut%�
&�1,4:�i%>-1:�process(?(ci%+i%),i%)
&�2:MO%=2:ș262356,,m2%,!b%-64,b%!4
&�
0�
:�
Dݤltmp(tname$)
NZ$name%=tname$:ș262363,,b%,ni%,i%+ie%,-1,name%,ne% �,,ni%,,,,ne%:ș262337,,b% � thand%
X=thand%
bn��lchr(f$,fg%):�FI%,title$,type%,dwidth%,line$,cnt%,disp%,width%,chr%,temp$,str$,colour%,minx%,maxy%,last%
lC�fg%=�:!b%=cw%:ș262347,,b%:minx%=b%!4:maxy%=b%!16:ș262339,,b%
v8FI%=�("<CustomChr$Dir>.Characters."+f$):title$=�#FI%
�Q!b%=window%:ș262348,,b%:$(b%!76)=title$:b%!84=�($(b%!76)):ș262337,,b%+4�cw%
�dwidth%=�(�#FI%)
�x%=8:y%=-8:maxline%=0
�cip%=ci%
�ccp%=cc%
�links%=0
��
�line$=�#FI%
��line$,2)="L:" �
�'links%+=1:�link(�line$,�(line$)-2))
��
��line$,2)="\\" �
��y%<-8 � x%>8:y%-=52
)�(line$)>2:y%-=�(�line$,�(line$)-2))
x%=8
�
 �line$,3)=">>>" �
*x%+=�(�line$,�(line$)-3))
4�
>cnt%=0:str$="":�
Hcnt%+=1
Rtmp$=�line$,cnt%,1)
\�tmp$<>",":str$+=tmp$
f�tmp$=","�cnt%>�line$
p+�(str$)=1:disp%=�(str$):�disp%=�(str$)
z
colour%=7
��disp%>255 �
�'colour%=disp%�1000:disp%=disp%�1000
�*�colour%=0�colour%=7:colour%=7-colour%
��
�
str$="":�
�cnt%+=1
�tmp$=�line$,cnt%,1)
��tmp$<>",":str$+=tmp$
��tmp$=","�cnt%>�line$
��(str$)>0 �
�)�(str$)=1:chr%=�(str$):�chr%=�(str$)
��
�chr%=disp%
�

str$="":�
cnt%+=1
$tmp$=�line$,cnt%,1)
.�tmp$<>",":str$+=tmp$
8�tmp$=","�cnt%>�line$
B-�(str$)>0:width%=�(str$):�width%=dwidth%
L/?cip%=chr%:cip%+=1:$(ccp%)=�(disp%):ccp%+=4
V;!b%=cw%:b%!4=x%:b%!8=y%-52:x%+=width%:b%!12=x%:b%!16=y%
`d�fh%=0:b%!20=&1000213D+(colour%<<24):b%!28=vs%:�b%!20=&217D+(fh%<<24):b%!28=vs%+((colour%+1)*12)
jb%!24=ccp%-4:b%!32=2
tș262338,,b% �last%
~�
��
��x%>maxline%:maxline%=x%
��
�
��#FI%
�	�#FI%
�!geny%=y%:genmaxline%=maxline%
��fg%=� �
��firstopen%=� �
��firstopen
��
�!b%=cw%:ș262347,,b%
�b%!4=minx%:b%!16=maxy%
b%!12=b%!4+maxline%+8

b%!8=b%!16+y%-60
ș262341,,b%:msk%=0
�
(�
2�
<��firstopen
F!b%=cw%:ș262347,,b%
Pb%!4=dx%:b%!16=dy%
Zb%!12=b%!4+genmaxline%+8
db%!8=b%!16+geny%-60
nș262341,,b%
xfirstopen%=�:msk%=0
��
�-��st:�x%,y%,z%,x1%,x2%,y1%,y2%,e%,a%,opm%
� ș262377,36,,"ptr_chr",2,5,0
�cx%=-1:cy%=-1:e%=�:opm%=�
�!b%=cw%:ș262347,,b%
�1x1%=b%!4-2:y1%=b%!8-4:x2%=b%!12+2:y2%=b%!16+4
��:ȗx%,y%,z%:�z%=0
��:ȗx%,y%,z%:a%=�0
��z%=2:opm%=�:e%=�
��a%>-1:ș262364,a%:�fp
�h�-1 � shift%:�fp:�fp:ș262351,,b2%:�b2%!12=cw%�b2%!16>-1:�process(?(ci%+b2%!16),b2%!16):�:���-1:�fp
��z%>0 � z%<>2 �
�^�:ȗx%,y%,z%:�z%=0:�fp:�fp:ș262351,,b%:�b%!12<>cw%:e%=�:��process(?(ci%+b%!16),b%!16):�fp
�
7�x%<x1% � y%<y1% � x%>x2% � y%>y2% � e%=� � lchr%>0
$ș262377,36,,"ptr_default",2,0,0
"=�opm%=�:MO%=2:ș262356,,m2%,x%-64,y%-4:�:ȗx%,y%,z%:�z%=0
,�
6O��sel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=1<<21:b%!12=1<<21:ș262349,,b%:�
@M��desel(win%,icon%):!b%=win%:b%!4=icon%:b%!8=0:b%!12=1<<21:ș262349,,b%:�
J��cm
T�flg%,smp%,md$,ptr%
^@$m1%="CustomChr":m1%!12=&70207:m1%!16=192:m1%!20=44:m1%!24=0
h$�+1:ptr%=m1%+28:�:�flg%,smp%,md$
r9!ptr%=flg%:ptr%!4=smp%:ptr%!8=&7000021:$(ptr%+12)=md$
|�0,info%,"Info"
��2,m2%,"Characters"
��0,fb1%,"Font"
��0,-1,"Shift entry"
��2,-1,"Magic entry"
��0,-1,"Save status"
��&80,-1,"Quit"
�ptr%+=24
��flg% � 128
�"�magic%=0:m1%!124=3:�m1%!124=2
� �shift%:m1%!100=1:�m1%!100=0
��
���ms(ms0%,ms1%,ms2%):�but%
�ș262351,,b%:but%=b%!8
�MO%=1 �
Ȏms0% �
D�1:�ms1%>-1:�deselit:cur$=$(m2%+40+ms1%*24):�selit:�lchr(cur$,�)
&#�2:�ms1%>-1:�fontsel(ms1%,ms2%)
0�3:shift%=�shift%
: �shift%:m1%!100=1:�m1%!100=0
D#�4:�magic%=0:magic%=1:�magic%=0
N"�magic%=0:m1%!124=3:�m1%!124=2
X�5:�save
b�6:q%=�
l�
v�but%=1:ș262356,,m1%,0,0
��
��MO%=2 �
�8�deselit:cur$=$(m2%+40+ms0%*24):�selit:�lchr(cur$,�)
��but%=1:ș262356,,m2%,0,0
��
��
���scan:�n%,r%,ptr%,max%
�6$m2%="Characters":m2%!12=&70207:m2%!20=44:m2%!24=0
�ptr%=m2%+28
�n%=0:max%=7
��
�Dș12,10,"<CustomChr$Dir>.Characters",b%,1,n%,&100,"*" � ,,,r%,n%
��r%=1 � n%>=0 �
JS$=�sg(b%+20):$(ptr%+12)=S$:!ptr%=0:ptr%!4=-1:ptr%!8=&7000021:ptr%+=24
�(S$)>max%:max%=�(S$)
�
 
�n%=-1
*ptr%-=24
4
!ptr%=&80
>no%=(ptr%-m2%)/24
Hmax%+=1:m2%!16=max%*16
R�
\ݤsg(a%)
f� a$
pȕ ?a%>=32
z a$=a$+�?a%
�
 a%+=1
��
�=a$
���selit:�ptr%
�ptr%=m2%+4
��:ptr%+=24
� �$(ptr%+12)=cur$ � !ptr%=&80
�1�$(ptr%+12)<>cur$:ptr%=m2%+28:cur$=$(ptr%+12)
�!ptr%=!ptr%+1
��
���deselit:�ptr%
�ptr%=m2%+4
��:ptr%+=24
	�!ptr%�1
	!ptr%=!ptr%-1
	�
	$��save:�FI%,minx%,maxy%
	.R�firstopen%=�:!b%=cw%:ș262347,,b%:minx%=b%!4:maxy%=b%!16:�minx%=dx%:maxy%=dy%
	8+ș5,"Access <CustomChr$Dir>.Status WR/"
	B!FI%=�"<CustomChr$Dir>.Status"
	L.�#FI%,minx%,maxy%,magic%,shift%,font$,cur$
	V	�#FI%
	`�
	jW��load:FI%=�"<CustomChr$Dir>.Status":�#FI%,dx%,dy%,magic%,shift%,font$,cur$:�#FI%:�
	t��link(S$):�ptr%,cnt%
	~ptr%=m2%+4:cnt%=-1
	�9�:ptr%+=24:cnt%+=1:�$(ptr%+12)=S$ � ((!ptr% � &80)=�)
	�U?(cip%-1)=0:link%(links%)=last%:�$(ptr%+12)=S$:link$(links%)=S$:�link$(links%)=""
	��
	���dolink(i%):�no%,LA%
	�
no%=-1
	��links%=0:ș262364,0:�
	��LA%=1�links%
	��link%(LA%)=i%:no%=LA%
	��LA%
	��no%=-1:ș262364,0:�
	��link$(no%)<>"":lchr%=no%
	��
��process(k%,i%)

�i%<0:�
"�k%=0:�dolink(i%):�ș262364,k%
�
(��fp
2:ș262343,&83972,b%�r%:�(r%=17�r%=18)�b%!16=0:q%=�:e%=�
<�
F4��fmi:�c%,d%:ș262289,,0,&380000,,0,,1�,,,c%,,d%
P#�c%+d%>nfontsize%:�memup(c%,d%)
Z�memal(c%,d%)
d%ș262289,,fb1%,&380000,c%,fb2%,d%
n8�sg(fb1%!40)="System Font":$(fb1%!40)="System font"
x�fonttick(mf1%,mf2%)
�?!b2%=0:b2%!4=-1:ș262357,,fb1%,b2%,b2%+16:deff$=�sg(b2%+16)
��
���findfont:�fg%,fnt$
�Bfg%=�font$,".(Regular)"):�fg%>0:fnt$=�font$,fg%-1):�fnt$=font$
�'ș393345,,fnt$,14*16,14*16 �fh%;fg%
���fg%�1:!b%=0:$(b%+4)="Font '"+fnt$+"' not found; using "+deff$+" instead"+�0:ș262367,b%,17,"Message from Custom Characters":fh%=0:font$=deff$
��
���fontsel(ms1%,ms2%)
�,�ms2%=-1 � !(fb1%+32+ms1%*24)<>-1:ms2%=0
�!!b2%=ms1%:b2%!4=ms2%:b2%!8=-1
�/ș262357,,fb1%,b2%,b2%+16:font$=�sg(b2%+16)
��fh%>0:ș262274,fh%:fh%=0
��font$=deff$:��findfont
*�lchr(cur$,�):mf1%=ms1%:mf2%=ms2%:�fmi
�
��fonttick(ms1%,ms2%):�fbs%
"!(fb1%+28+ms1%*24)+=1
,;�ms2%<>-1:fbs%=!(fb1%+32+ms1%*24):!(fbs%+28+ms2%*24)+=1
6�
@��findmf:�LA%,ft$
J7LA%=�font$,"."):�LA%=0:ft$=font$:�ft$=�font$,LA%-1)
T
LA%=-1
^�:LA%+=1
h!b2%=LA%:b2%!4=-1
rș262357,,fb1%,b2%,b2%+16
|��sg(b2%+16)=ft$:mf1%=LA%
��font$<>ft$ �
�
LA%=-1
��:LA%+=1
� !b2%=mf1%:b2%!4=LA%:b2%!8=-1
�ș262357,,fb1%,b2%,b2%+16
���sg(b2%+16)=font$:mf2%=LA%
��
�mf2%=-1
��
��
���fonterr:�ș262365:�
�^!b%=0:$(b%+4)="Not enough memory"+�0:ș262367,b%,1,"Custom Characters":�fh%>0:ș262274,fh%
�ș262365:�
��nfontinit:�free%
ș262380,-1,-1�slot%,,free%
nfontsize%=0
&nfb0%=�
0�
:��memup(c%,d%)
Dș262380,-1,-1�,,free%
N�slot%+c%+d%>free%:�fonterr
X&ș262380,slot%+c%+d%,-1�nfontsize%
bnfontsize%-=slot%
l�
v��memal(c%,d%)
�&fb1%=nfb0%:fb2%=nfb0%+((c%�4+1)*4)
��
�

00000000  0d 00 0a 1d ee 85 ff 22  43 4c 4f 53 45 22 3a ff  |......."CLOSE":.|
00000010  22 45 72 72 6f 72 20 22  2b f6 24 3a e0 0d 00 14  |"Error "+.$:....|
00000020  0b 69 65 25 3d 31 38 34  0d 00 1e 4d de 62 25 35  |.ie%=184...M.b%5|
00000030  31 32 2c 62 32 25 20 32  35 36 2c 69 25 20 69 65  |12,b2% 256,i% ie|
00000040  25 2c 6e 61 6d 65 25 31  32 2c 63 69 25 20 33 32  |%,name%12,ci% 32|
00000050  37 36 2c 63 63 25 20 31  33 31 30 34 2c 76 73 25  |76,cc% 13104,vs%|
00000060  20 32 30 34 2c 6d 31 25  20 31 39 36 2c 6d 32 25  | 204,m1% 196,m2%|
00000070  20 31 38 38 30 0d 00 28  18 de 6c 69 6e 6b 24 28  | 1880..(..link$(|
00000080  33 32 29 2c 6c 69 6e 6b  25 28 33 32 29 0d 00 32  |32),link%(32)..2|
00000090  8b 71 25 3d a3 3a 24 28  76 73 25 29 3d 22 52 35  |.q%=.:$(vs%)="R5|
000000a0  2c 33 22 3a 6e 78 25 3d  a3 3a 6d 73 6b 25 3d 31  |,3":nx%=.:msk%=1|
000000b0  3a 77 66 6e 73 25 3d 2d  31 3a 4d 4f 25 3d 30 3a  |:wfns%=-1:MO%=0:|
000000c0  66 69 72 73 74 6f 70 65  6e 25 3d a3 3a 6c 63 68  |firstopen%=.:lch|
000000d0  72 25 3d 30 3a 6d 66 31  25 3d 30 3a 6d 66 32 25  |r%=0:mf1%=0:mf2%|
000000e0  3d 2d 31 3a e3 4c 41 25  3d 30 b8 31 35 3a 24 28  |=-1:.LA%=0.15:$(|
000000f0  76 73 25 2b 28 28 4c 41  25 2b 31 29 2a 31 32 29  |vs%+((LA%+1)*12)|
00000100  29 3d 22 52 35 2c 33 3b  46 31 22 2b c3 7e 28 4c  |)="R5,3;F1"+.~(L|
00000110  41 25 29 3a ed 4c 41 25  0d 00 3c 2e c8 99 32 36  |A%):.LA%..<...26|
00000120  32 33 33 36 2c 33 30 30  2c 26 34 42 35 33 34 31  |2336,300,&4B5341|
00000130  35 34 2c 22 43 75 73 74  6f 6d 20 43 68 61 72 61  |54,"Custom Chara|
00000140  63 74 65 72 73 22 0d 00  46 29 c8 99 32 36 32 33  |cters"..F)..2623|
00000150  36 31 2c 2c 22 3c 43 75  73 74 6f 6d 43 68 72 24  |61,,"<CustomChr$|
00000160  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000170  00 50 53 24 6e 61 6d 65  25 3d 22 49 6e 66 6f 22  |.PS$name%="Info"|
00000180  3a c8 99 32 36 32 33 36  33 2c 2c 62 25 2c 69 25  |:..262363,,b%,i%|
00000190  2c 69 25 2b 69 65 25 2c  2d 31 2c 6e 61 6d 65 25  |,i%+ie%,-1,name%|
000001a0  2c 30 b8 2c 2c 6e 69 25  2c 2c 2c 2c 6e 65 25 3a  |,0.,,ni%,,,,ne%:|
000001b0  c8 99 32 36 32 33 33 37  2c 2c 62 25 b8 69 6e 66  |..262337,,b%.inf|
000001c0  6f 25 0d 00 5a 1b 77 69  6e 64 6f 77 25 3d a4 6c  |o%..Z.window%=.l|
000001d0  74 6d 70 28 22 57 69 6e  64 6f 77 22 29 0d 00 64  |tmp("Window")..d|
000001e0  0c c8 99 32 36 32 33 36  32 0d 00 6e 5f 21 62 25  |...262362..n_!b%|
000001f0  3d 2d 31 3a 62 25 21 34  3d 30 3a 62 25 21 38 3d  |=-1:b%!4=0:b%!8=|
00000200  30 3a 62 25 21 31 32 3d  37 32 3a 62 25 21 31 36  |0:b%!12=72:b%!16|
00000210  3d 36 38 3a 62 25 21 32  30 3d 26 33 30 30 32 3a  |=68:b%!20=&3002:|
00000220  24 28 62 25 2b 32 34 29  3d 22 21 43 75 73 74 6f  |$(b%+24)="!Custo|
00000230  6d 43 68 72 22 3a c8 99  32 36 32 33 33 38 2c 2c  |mChr":..262338,,|
00000240  62 25 20 b8 20 69 62 25  0d 00 78 23 f2 6c 6f 61  |b% . ib%..x#.loa|
00000250  64 3a f2 6e 66 6f 6e 74  69 6e 69 74 3a f2 66 6d  |d:.nfontinit:.fm|
00000260  69 3a f2 63 6d 3a f2 73  63 61 6e 0d 00 82 29 66  |i:.cm:.scan...)f|
00000270  68 25 3d 30 3a e7 66 6f  6e 74 24 3c 3e 64 65 66  |h%=0:.font$<>def|
00000280  66 24 3a f2 66 69 6e 64  66 6f 6e 74 3a f2 66 69  |f$:.findfont:.fi|
00000290  6e 64 6d 66 0d 00 8c 22  e7 6d 61 67 69 63 25 3d  |ndmf...".magic%=|
000002a0  30 3a 6d 31 25 21 31 32  34 3d 33 3a 8b 6d 31 25  |0:m1%!124=3:.m1%|
000002b0  21 31 32 34 3d 32 0d 00  96 20 e7 73 68 69 66 74  |!124=2... .shift|
000002c0  25 3a 6d 31 25 21 31 30  30 3d 31 3a 8b 6d 31 25  |%:m1%!100=1:.m1%|
000002d0  21 31 30 30 3d 30 0d 00  a0 0a f2 73 65 6c 69 74  |!100=0.....selit|
000002e0  0d 00 aa 11 f2 6c 63 68  72 28 63 75 72 24 2c a3  |.....lchr(cur$,.|
000002f0  29 0d 00 b4 09 ee 85 f2  65 72 0d 00 be 09 c8 95  |).......er......|
00000300  ac 71 25 0d 00 c8 17 c8  99 32 36 32 33 34 33 2c  |.q%......262343,|
00000310  6d 73 6b 25 2c 62 25 b8  72 25 0d 00 d2 30 e7 77  |msk%,b%.r%...0.w|
00000320  66 6e 73 25 3e 2d 31 3a  f5 3a fd ac a6 2d 31 3a  |fns%>-1:.:...-1:|
00000330  f2 64 65 73 65 6c 28 63  77 25 2c 77 66 6e 73 25  |.desel(cw%,wfns%|
00000340  29 3a 77 66 6e 73 25 3d  2d 31 0d 00 dc 72 e7 a6  |):wfns%=-1...r..|
00000350  2d 31 20 80 20 73 68 69  66 74 25 3a c8 99 32 36  |-1 . shift%:..26|
00000360  32 33 35 31 2c 2c 62 32  25 3a e7 62 32 25 21 31  |2351,,b2%:.b2%!1|
00000370  32 3d 63 77 25 80 62 32  25 21 31 36 3e 2d 31 3a  |2=cw%.b2%!16>-1:|
00000380  f2 73 65 6c 28 63 77 25  2c 62 32 25 21 31 36 29  |.sel(cw%,b2%!16)|
00000390  3a f2 70 72 6f 63 65 73  73 28 3f 28 63 69 25 2b  |:.process(?(ci%+|
000003a0  62 32 25 21 31 36 29 2c  62 32 25 21 31 36 29 3a  |b2%!16),b2%!16):|
000003b0  77 66 6e 73 25 3d 62 32  25 21 31 36 0d 00 e6 1f  |wfns%=b2%!16....|
000003c0  e7 6d 61 67 69 63 25 3d  30 20 80 20 6e 78 25 3d  |.magic%=0 . nx%=|
000003d0  b9 3a 6e 78 25 3d a3 3a  f2 73 74 0d 00 f0 09 c8  |.:nx%=.:.st.....|
000003e0  8e 72 25 ca 0d 00 fa 11  c9 30 3a e7 6c 63 68 72  |.r%......0:.lchr|
000003f0  25 3e 30 20 8c 0d 01 04  3b f2 64 65 73 65 6c 69  |%>0 ....;.deseli|
00000400  74 3a 63 75 72 24 3d 6c  69 6e 6b 24 28 6c 63 68  |t:cur$=link$(lch|
00000410  72 25 29 3a f2 73 65 6c  69 74 3a f2 6c 63 68 72  |r%):.selit:.lchr|
00000420  28 63 75 72 24 2c b9 29  3a 6c 63 68 72 25 3d 30  |(cur$,.):lchr%=0|
00000430  0d 01 0e 2e c8 99 32 36  32 33 35 31 2c 2c 62 32  |......262351,,b2|
00000440  25 3a e7 62 32 25 21 31  32 3d 63 77 25 20 80 20  |%:.b2%!12=cw% . |
00000450  6d 61 67 69 63 25 3d 30  3a 6e 78 25 3d b9 0d 01  |magic%=0:nx%=...|
00000460  18 05 cd 0d 01 22 13 c9  32 3a c8 99 32 36 32 33  |....."..2:..2623|
00000470  34 31 2c 2c 62 25 0d 01  2c 23 c9 33 3a c8 99 32  |41,,b%..,#.3:..2|
00000480  36 32 33 34 32 2c 2c 62  25 3a e7 21 62 25 3d 63  |62342,,b%:.!b%=c|
00000490  77 25 3a 6d 73 6b 25 3d  31 0d 01 36 20 c9 35 3a  |w%:msk%=1..6 .5:|
000004a0  e7 6d 61 67 69 63 25 3d  30 20 80 20 21 62 25 3d  |.magic%=0 . !b%=|
000004b0  63 77 25 3a 6e 78 25 3d  b9 0d 01 40 1c c9 36 3a  |cw%:nx%=...@..6:|
000004c0  f2 63 6c 28 62 25 21 38  2c 62 25 21 31 32 2c 62  |.cl(b%!8,b%!12,b|
000004d0  25 21 31 36 29 0d 01 4a  19 c9 39 3a f2 6d 73 28  |%!16)..J..9:.ms(|
000004e0  21 62 25 2c 62 25 21 34  2c 62 25 21 38 29 0d 01  |!b%,b%!4,b%!8)..|
000004f0  54 0e c9 31 37 2c 31 38  3a f2 72 6d 0d 01 5e 05  |T..17,18:.rm..^.|
00000500  cb 0d 01 68 05 ce 0d 01  72 17 e7 66 68 25 3e 30  |...h....r..fh%>0|
00000510  3a c8 99 32 36 32 32 37  34 2c 66 68 25 0d 01 7c  |:..262274,fh%..||
00000520  0c c8 99 32 36 32 33 36  35 0d 01 86 05 e0 0d 01  |...262365.......|
00000530  90 08 dd f2 72 6d 0d 01  9a 0c c8 8e 62 25 21 31  |....rm......b%!1|
00000540  36 ca 0d 01 a4 0b c9 30  3a 71 25 3d b9 0d 01 ae  |6......0:q%=....|
00000550  05 cb 0d 01 b8 05 e1 0d  01 c2 49 dd f2 65 72 3a  |..........I..er:|
00000560  21 62 25 3d 9f 3a 24 28  62 25 2b 34 29 3d f6 24  |!b%=.:$(b%+4)=.$|
00000570  2b bd 30 3a c8 99 32 36  32 33 36 37 2c 62 25 2c  |+.0:..262367,b%,|
00000580  31 2c 22 43 75 73 74 6f  6d 20 43 68 61 72 61 63  |1,"Custom Charac|
00000590  74 65 72 73 22 3a ff 22  43 4c 4f 53 45 22 3a e1  |ters":."CLOSE":.|
000005a0  0d 01 cc 14 dd f2 63 6c  28 62 75 74 25 2c 77 25  |......cl(but%,w%|
000005b0  2c 69 25 29 0d 01 d6 09  c8 8e 77 25 ca 0d 01 e0  |,i%)......w%....|
000005c0  0f c9 2d 32 3a c8 8e 62  75 74 25 ca 0d 01 ea 54  |..-2:..but%....T|
000005d0  c9 31 2c 34 3a e7 66 69  72 73 74 6f 70 65 6e 25  |.1,4:.firstopen%|
000005e0  3d b9 3a 21 62 25 3d 63  77 25 3a c8 99 32 36 32  |=.:!b%=cw%:..262|
000005f0  33 34 37 2c 2c 62 25 3a  62 25 21 32 38 3d 2d 31  |347,,b%:b%!28=-1|
00000600  3a c8 99 32 36 32 33 34  31 2c 2c 62 25 3a 6d 73  |:..262341,,b%:ms|
00000610  6b 25 3d 30 3a 8b f2 66  69 72 73 74 6f 70 65 6e  |k%=0:..firstopen|
00000620  0d 01 f4 31 c9 32 3a f2  66 6d 69 3a 4d 4f 25 3d  |...1.2:.fmi:MO%=|
00000630  31 3a c8 99 32 36 32 33  35 36 2c 2c 6d 31 25 2c  |1:..262356,,m1%,|
00000640  21 62 25 2d 36 34 2c 39  36 2b 34 34 2a 37 2b 34  |!b%-64,96+44*7+4|
00000650  38 0d 01 fe 05 cb 0d 02  08 10 c9 63 77 25 3a c8  |8..........cw%:.|
00000660  8e 62 75 74 25 ca 0d 02  12 26 c9 31 2c 34 3a e7  |.but%....&.1,4:.|
00000670  69 25 3e 2d 31 3a f2 70  72 6f 63 65 73 73 28 3f  |i%>-1:.process(?|
00000680  28 63 69 25 2b 69 25 29  2c 69 25 29 0d 02 1c 26  |(ci%+i%),i%)...&|
00000690  c9 32 3a 4d 4f 25 3d 32  3a c8 99 32 36 32 33 35  |.2:MO%=2:..26235|
000006a0  36 2c 2c 6d 32 25 2c 21  62 25 2d 36 34 2c 62 25  |6,,m2%,!b%-64,b%|
000006b0  21 34 0d 02 26 05 cb 0d  02 30 05 cb 0d 02 3a 05  |!4..&....0....:.|
000006c0  e1 0d 02 44 12 dd a4 6c  74 6d 70 28 74 6e 61 6d  |...D...ltmp(tnam|
000006d0  65 24 29 0d 02 4e 5a 24  6e 61 6d 65 25 3d 74 6e  |e$)..NZ$name%=tn|
000006e0  61 6d 65 24 3a c8 99 32  36 32 33 36 33 2c 2c 62  |ame$:..262363,,b|
000006f0  25 2c 6e 69 25 2c 69 25  2b 69 65 25 2c 2d 31 2c  |%,ni%,i%+ie%,-1,|
00000700  6e 61 6d 65 25 2c 6e 65  25 20 b8 2c 2c 6e 69 25  |name%,ne% .,,ni%|
00000710  2c 2c 2c 2c 6e 65 25 3a  c8 99 32 36 32 33 33 37  |,,,,ne%:..262337|
00000720  2c 2c 62 25 20 b8 20 74  68 61 6e 64 25 0d 02 58  |,,b% . thand%..X|
00000730  0b 3d 74 68 61 6e 64 25  0d 02 62 6e dd f2 6c 63  |.=thand%..bn..lc|
00000740  68 72 28 66 24 2c 66 67  25 29 3a ea 46 49 25 2c  |hr(f$,fg%):.FI%,|
00000750  74 69 74 6c 65 24 2c 74  79 70 65 25 2c 64 77 69  |title$,type%,dwi|
00000760  64 74 68 25 2c 6c 69 6e  65 24 2c 63 6e 74 25 2c  |dth%,line$,cnt%,|
00000770  64 69 73 70 25 2c 77 69  64 74 68 25 2c 63 68 72  |disp%,width%,chr|
00000780  25 2c 74 65 6d 70 24 2c  73 74 72 24 2c 63 6f 6c  |%,temp$,str$,col|
00000790  6f 75 72 25 2c 6d 69 6e  78 25 2c 6d 61 78 79 25  |our%,minx%,maxy%|
000007a0  2c 6c 61 73 74 25 0d 02  6c 43 e7 66 67 25 3d b9  |,last%..lC.fg%=.|
000007b0  3a 21 62 25 3d 63 77 25  3a c8 99 32 36 32 33 34  |:!b%=cw%:..26234|
000007c0  37 2c 2c 62 25 3a 6d 69  6e 78 25 3d 62 25 21 34  |7,,b%:minx%=b%!4|
000007d0  3a 6d 61 78 79 25 3d 62  25 21 31 36 3a c8 99 32  |:maxy%=b%!16:..2|
000007e0  36 32 33 33 39 2c 2c 62  25 0d 02 76 38 46 49 25  |62339,,b%..v8FI%|
000007f0  3d 8e 28 22 3c 43 75 73  74 6f 6d 43 68 72 24 44  |=.("<CustomChr$D|
00000800  69 72 3e 2e 43 68 61 72  61 63 74 65 72 73 2e 22  |ir>.Characters."|
00000810  2b 66 24 29 3a 74 69 74  6c 65 24 3d be 23 46 49  |+f$):title$=.#FI|
00000820  25 0d 02 80 51 21 62 25  3d 77 69 6e 64 6f 77 25  |%...Q!b%=window%|
00000830  3a c8 99 32 36 32 33 34  38 2c 2c 62 25 3a 24 28  |:..262348,,b%:$(|
00000840  62 25 21 37 36 29 3d 74  69 74 6c 65 24 3a 62 25  |b%!76)=title$:b%|
00000850  21 38 34 3d a9 28 24 28  62 25 21 37 36 29 29 3a  |!84=.($(b%!76)):|
00000860  c8 99 32 36 32 33 33 37  2c 2c 62 25 2b 34 b8 63  |..262337,,b%+4.c|
00000870  77 25 0d 02 8a 14 64 77  69 64 74 68 25 3d bb 28  |w%....dwidth%=.(|
00000880  be 23 46 49 25 29 0d 02  94 19 78 25 3d 38 3a 79  |.#FI%)....x%=8:y|
00000890  25 3d 2d 38 3a 6d 61 78  6c 69 6e 65 25 3d 30 0d  |%=-8:maxline%=0.|
000008a0  02 9e 0c 63 69 70 25 3d  63 69 25 0d 02 a8 0c 63  |...cip%=ci%....c|
000008b0  63 70 25 3d 63 63 25 0d  02 b2 0c 6c 69 6e 6b 73  |cp%=cc%....links|
000008c0  25 3d 30 0d 02 bc 05 f5  0d 02 c6 0f 6c 69 6e 65  |%=0.........line|
000008d0  24 3d be 23 46 49 25 0d  02 d0 15 e7 c0 6c 69 6e  |$=.#FI%......lin|
000008e0  65 24 2c 32 29 3d 22 4c  3a 22 20 8c 0d 02 da 27  |e$,2)="L:" ....'|
000008f0  6c 69 6e 6b 73 25 2b 3d  31 3a f2 6c 69 6e 6b 28  |links%+=1:.link(|
00000900  c2 6c 69 6e 65 24 2c a9  28 6c 69 6e 65 24 29 2d  |.line$,.(line$)-|
00000910  32 29 29 0d 02 e4 05 cc  0d 02 ee 15 e7 c0 6c 69  |2))...........li|
00000920  6e 65 24 2c 32 29 3d 22  5c 5c 22 20 8c 0d 02 f8  |ne$,2)="\\" ....|
00000930  18 e7 79 25 3c 2d 38 20  84 20 78 25 3e 38 3a 79  |..y%<-8 . x%>8:y|
00000940  25 2d 3d 35 32 0d 03 02  29 e7 a9 28 6c 69 6e 65  |%-=52...)..(line|
00000950  24 29 3e 32 3a 79 25 2d  3d bb 28 c2 6c 69 6e 65  |$)>2:y%-=.(.line|
00000960  24 2c a9 28 6c 69 6e 65  24 29 2d 32 29 29 0d 03  |$,.(line$)-2))..|
00000970  0c 08 78 25 3d 38 0d 03  16 05 cc 0d 03 20 16 e7  |..x%=8....... ..|
00000980  c0 6c 69 6e 65 24 2c 33  29 3d 22 3e 3e 3e 22 20  |.line$,3)=">>>" |
00000990  8c 0d 03 2a 1d 78 25 2b  3d bb 28 c2 6c 69 6e 65  |...*.x%+=.(.line|
000009a0  24 2c a9 28 6c 69 6e 65  24 29 2d 33 29 29 0d 03  |$,.(line$)-3))..|
000009b0  34 05 cc 0d 03 3e 14 63  6e 74 25 3d 30 3a 73 74  |4....>.cnt%=0:st|
000009c0  72 24 3d 22 22 3a f5 0d  03 48 0b 63 6e 74 25 2b  |r$="":...H.cnt%+|
000009d0  3d 31 0d 03 52 17 74 6d  70 24 3d c1 6c 69 6e 65  |=1..R.tmp$=.line|
000009e0  24 2c 63 6e 74 25 2c 31  29 0d 03 5c 19 e7 74 6d  |$,cnt%,1)..\..tm|
000009f0  70 24 3c 3e 22 2c 22 3a  73 74 72 24 2b 3d 74 6d  |p$<>",":str$+=tm|
00000a00  70 24 0d 03 66 19 fd 74  6d 70 24 3d 22 2c 22 84  |p$..f..tmp$=",".|
00000a10  63 6e 74 25 3e a9 6c 69  6e 65 24 0d 03 70 2b e7  |cnt%>.line$..p+.|
00000a20  a9 28 73 74 72 24 29 3d  31 3a 64 69 73 70 25 3d  |.(str$)=1:disp%=|
00000a30  97 28 73 74 72 24 29 3a  8b 64 69 73 70 25 3d a0  |.(str$):.disp%=.|
00000a40  28 73 74 72 24 29 0d 03  7a 0d 63 6f 6c 6f 75 72  |(str$)..z.colour|
00000a50  25 3d 37 0d 03 84 10 e7  64 69 73 70 25 3e 32 35  |%=7.....disp%>25|
00000a60  35 20 8c 0d 03 8e 27 63  6f 6c 6f 75 72 25 3d 64  |5 ....'colour%=d|
00000a70  69 73 70 25 81 31 30 30  30 3a 64 69 73 70 25 3d  |isp%.1000:disp%=|
00000a80  64 69 73 70 25 83 31 30  30 30 0d 03 98 2a e7 63  |disp%.1000...*.c|
00000a90  6f 6c 6f 75 72 25 3d 30  84 63 6f 6c 6f 75 72 25  |olour%=0.colour%|
00000aa0  3d 37 3a 63 6f 6c 6f 75  72 25 3d 37 2d 63 6f 6c  |=7:colour%=7-col|
00000ab0  6f 75 72 25 0d 03 a2 05  cd 0d 03 ac 0d 73 74 72  |our%.........str|
00000ac0  24 3d 22 22 3a f5 0d 03  b6 0b 63 6e 74 25 2b 3d  |$="":.....cnt%+=|
00000ad0  31 0d 03 c0 17 74 6d 70  24 3d c1 6c 69 6e 65 24  |1....tmp$=.line$|
00000ae0  2c 63 6e 74 25 2c 31 29  0d 03 ca 19 e7 74 6d 70  |,cnt%,1).....tmp|
00000af0  24 3c 3e 22 2c 22 3a 73  74 72 24 2b 3d 74 6d 70  |$<>",":str$+=tmp|
00000b00  24 0d 03 d4 19 fd 74 6d  70 24 3d 22 2c 22 84 63  |$.....tmp$=",".c|
00000b10  6e 74 25 3e a9 6c 69 6e  65 24 0d 03 de 10 e7 a9  |nt%>.line$......|
00000b20  28 73 74 72 24 29 3e 30  20 8c 0d 03 e8 29 e7 a9  |(str$)>0 ....)..|
00000b30  28 73 74 72 24 29 3d 31  3a 63 68 72 25 3d 97 28  |(str$)=1:chr%=.(|
00000b40  73 74 72 24 29 3a 8b 63  68 72 25 3d a0 28 73 74  |str$):.chr%=.(st|
00000b50  72 24 29 0d 03 f2 05 cc  0d 03 fc 0e 63 68 72 25  |r$).........chr%|
00000b60  3d 64 69 73 70 25 0d 04  06 05 cd 0d 04 10 0d 73  |=disp%.........s|
00000b70  74 72 24 3d 22 22 3a f5  0d 04 1a 0b 63 6e 74 25  |tr$="":.....cnt%|
00000b80  2b 3d 31 0d 04 24 17 74  6d 70 24 3d c1 6c 69 6e  |+=1..$.tmp$=.lin|
00000b90  65 24 2c 63 6e 74 25 2c  31 29 0d 04 2e 19 e7 74  |e$,cnt%,1).....t|
00000ba0  6d 70 24 3c 3e 22 2c 22  3a 73 74 72 24 2b 3d 74  |mp$<>",":str$+=t|
00000bb0  6d 70 24 0d 04 38 19 fd  74 6d 70 24 3d 22 2c 22  |mp$..8..tmp$=","|
00000bc0  84 63 6e 74 25 3e a9 6c  69 6e 65 24 0d 04 42 2d  |.cnt%>.line$..B-|
00000bd0  e7 a9 28 73 74 72 24 29  3e 30 3a 77 69 64 74 68  |..(str$)>0:width|
00000be0  25 3d a0 28 73 74 72 24  29 3a 8b 77 69 64 74 68  |%=.(str$):.width|
00000bf0  25 3d 64 77 69 64 74 68  25 0d 04 4c 2f 3f 63 69  |%=dwidth%..L/?ci|
00000c00  70 25 3d 63 68 72 25 3a  63 69 70 25 2b 3d 31 3a  |p%=chr%:cip%+=1:|
00000c10  24 28 63 63 70 25 29 3d  bd 28 64 69 73 70 25 29  |$(ccp%)=.(disp%)|
00000c20  3a 63 63 70 25 2b 3d 34  0d 04 56 3b 21 62 25 3d  |:ccp%+=4..V;!b%=|
00000c30  63 77 25 3a 62 25 21 34  3d 78 25 3a 62 25 21 38  |cw%:b%!4=x%:b%!8|
00000c40  3d 79 25 2d 35 32 3a 78  25 2b 3d 77 69 64 74 68  |=y%-52:x%+=width|
00000c50  25 3a 62 25 21 31 32 3d  78 25 3a 62 25 21 31 36  |%:b%!12=x%:b%!16|
00000c60  3d 79 25 0d 04 60 64 e7  66 68 25 3d 30 3a 62 25  |=y%..`d.fh%=0:b%|
00000c70  21 32 30 3d 26 31 30 30  30 32 31 33 44 2b 28 63  |!20=&1000213D+(c|
00000c80  6f 6c 6f 75 72 25 3c 3c  32 34 29 3a 62 25 21 32  |olour%<<24):b%!2|
00000c90  38 3d 76 73 25 3a 8b 62  25 21 32 30 3d 26 32 31  |8=vs%:.b%!20=&21|
00000ca0  37 44 2b 28 66 68 25 3c  3c 32 34 29 3a 62 25 21  |7D+(fh%<<24):b%!|
00000cb0  32 38 3d 76 73 25 2b 28  28 63 6f 6c 6f 75 72 25  |28=vs%+((colour%|
00000cc0  2b 31 29 2a 31 32 29 0d  04 6a 18 62 25 21 32 34  |+1)*12)..j.b%!24|
00000cd0  3d 63 63 70 25 2d 34 3a  62 25 21 33 32 3d 32 0d  |=ccp%-4:b%!32=2.|
00000ce0  04 74 17 c8 99 32 36 32  33 33 38 2c 2c 62 25 20  |.t...262338,,b% |
00000cf0  b8 6c 61 73 74 25 0d 04  7e 05 cd 0d 04 88 05 cd  |.last%..~.......|
00000d00  0d 04 92 1c e7 78 25 3e  6d 61 78 6c 69 6e 65 25  |.....x%>maxline%|
00000d10  3a 6d 61 78 6c 69 6e 65  25 3d 78 25 0d 04 9c 05  |:maxline%=x%....|
00000d20  cd 0d 04 a6 0a fd c5 23  46 49 25 0d 04 b0 09 d9  |.......#FI%.....|
00000d30  23 46 49 25 0d 04 ba 21  67 65 6e 79 25 3d 79 25  |#FI%...!geny%=y%|
00000d40  3a 67 65 6e 6d 61 78 6c  69 6e 65 25 3d 6d 61 78  |:genmaxline%=max|
00000d50  6c 69 6e 65 25 0d 04 c4  0c e7 66 67 25 3d b9 20  |line%.....fg%=. |
00000d60  8c 0d 04 ce 13 e7 66 69  72 73 74 6f 70 65 6e 25  |......firstopen%|
00000d70  3d a3 20 8c 0d 04 d8 0e  f2 66 69 72 73 74 6f 70  |=. ......firstop|
00000d80  65 6e 0d 04 e2 05 cc 0d  04 ec 18 21 62 25 3d 63  |en.........!b%=c|
00000d90  77 25 3a c8 99 32 36 32  33 34 37 2c 2c 62 25 0d  |w%:..262347,,b%.|
00000da0  04 f6 1a 62 25 21 34 3d  6d 69 6e 78 25 3a 62 25  |...b%!4=minx%:b%|
00000db0  21 31 36 3d 6d 61 78 79  25 0d 05 00 19 62 25 21  |!16=maxy%....b%!|
00000dc0  31 32 3d 62 25 21 34 2b  6d 61 78 6c 69 6e 65 25  |12=b%!4+maxline%|
00000dd0  2b 38 0d 05 0a 14 62 25  21 38 3d 62 25 21 31 36  |+8....b%!8=b%!16|
00000de0  2b 79 25 2d 36 30 0d 05  14 17 c8 99 32 36 32 33  |+y%-60......2623|
00000df0  34 31 2c 2c 62 25 3a 6d  73 6b 25 3d 30 0d 05 1e  |41,,b%:msk%=0...|
00000e00  05 cd 0d 05 28 05 cd 0d  05 32 05 e1 0d 05 3c 0f  |....(....2....<.|
00000e10  dd f2 66 69 72 73 74 6f  70 65 6e 0d 05 46 18 21  |..firstopen..F.!|
00000e20  62 25 3d 63 77 25 3a c8  99 32 36 32 33 34 37 2c  |b%=cw%:..262347,|
00000e30  2c 62 25 0d 05 50 16 62  25 21 34 3d 64 78 25 3a  |,b%..P.b%!4=dx%:|
00000e40  62 25 21 31 36 3d 64 79  25 0d 05 5a 1c 62 25 21  |b%!16=dy%..Z.b%!|
00000e50  31 32 3d 62 25 21 34 2b  67 65 6e 6d 61 78 6c 69  |12=b%!4+genmaxli|
00000e60  6e 65 25 2b 38 0d 05 64  17 62 25 21 38 3d 62 25  |ne%+8..d.b%!8=b%|
00000e70  21 31 36 2b 67 65 6e 79  25 2d 36 30 0d 05 6e 10  |!16+geny%-60..n.|
00000e80  c8 99 32 36 32 33 34 31  2c 2c 62 25 0d 05 78 17  |..262341,,b%..x.|
00000e90  66 69 72 73 74 6f 70 65  6e 25 3d b9 3a 6d 73 6b  |firstopen%=.:msk|
00000ea0  25 3d 30 0d 05 82 05 e1  0d 05 8c 2d dd f2 73 74  |%=0........-..st|
00000eb0  3a ea 78 25 2c 79 25 2c  7a 25 2c 78 31 25 2c 78  |:.x%,y%,z%,x1%,x|
00000ec0  32 25 2c 79 31 25 2c 79  32 25 2c 65 25 2c 61 25  |2%,y1%,y2%,e%,a%|
00000ed0  2c 6f 70 6d 25 0d 05 96  20 c8 99 32 36 32 33 37  |,opm%... ..26237|
00000ee0  37 2c 33 36 2c 2c 22 70  74 72 5f 63 68 72 22 2c  |7,36,,"ptr_chr",|
00000ef0  32 2c 35 2c 30 0d 05 a0  1d 63 78 25 3d 2d 31 3a  |2,5,0....cx%=-1:|
00000f00  63 79 25 3d 2d 31 3a 65  25 3d a3 3a 6f 70 6d 25  |cy%=-1:e%=.:opm%|
00000f10  3d a3 0d 05 aa 18 21 62  25 3d 63 77 25 3a c8 99  |=.....!b%=cw%:..|
00000f20  32 36 32 33 34 37 2c 2c  62 25 0d 05 b4 31 78 31  |262347,,b%...1x1|
00000f30  25 3d 62 25 21 34 2d 32  3a 79 31 25 3d 62 25 21  |%=b%!4-2:y1%=b%!|
00000f40  38 2d 34 3a 78 32 25 3d  62 25 21 31 32 2b 32 3a  |8-4:x2%=b%!12+2:|
00000f50  79 32 25 3d 62 25 21 31  36 2b 34 0d 05 be 16 f5  |y2%=b%!16+4.....|
00000f60  3a c8 97 78 25 2c 79 25  2c 7a 25 3a fd 7a 25 3d  |:..x%,y%,z%:.z%=|
00000f70  30 0d 05 c8 16 f5 3a c8  97 78 25 2c 79 25 2c 7a  |0.....:..x%,y%,z|
00000f80  25 3a 61 25 3d a6 30 0d  05 d2 15 e7 7a 25 3d 32  |%:a%=.0.....z%=2|
00000f90  3a 6f 70 6d 25 3d b9 3a  65 25 3d b9 0d 05 dc 1a  |:opm%=.:e%=.....|
00000fa0  e7 61 25 3e 2d 31 3a c8  99 32 36 32 33 36 34 2c  |.a%>-1:..262364,|
00000fb0  61 25 3a f2 66 70 0d 05  e6 68 e7 a6 2d 31 20 80  |a%:.fp...h..-1 .|
00000fc0  20 73 68 69 66 74 25 3a  f2 66 70 3a f2 66 70 3a  | shift%:.fp:.fp:|
00000fd0  c8 99 32 36 32 33 35 31  2c 2c 62 32 25 3a e7 62  |..262351,,b2%:.b|
00000fe0  32 25 21 31 32 3d 63 77  25 80 62 32 25 21 31 36  |2%!12=cw%.b2%!16|
00000ff0  3e 2d 31 3a f2 70 72 6f  63 65 73 73 28 3f 28 63  |>-1:.process(?(c|
00001000  69 25 2b 62 32 25 21 31  36 29 2c 62 32 25 21 31  |i%+b2%!16),b2%!1|
00001010  36 29 3a f5 3a fd ac a6  2d 31 3a f2 66 70 0d 05  |6):.:...-1:.fp..|
00001020  f0 13 e7 7a 25 3e 30 20  80 20 7a 25 3c 3e 32 20  |...z%>0 . z%<>2 |
00001030  8c 0d 05 fa 5e f5 3a c8  97 78 25 2c 79 25 2c 7a  |....^.:..x%,y%,z|
00001040  25 3a fd 7a 25 3d 30 3a  f2 66 70 3a f2 66 70 3a  |%:.z%=0:.fp:.fp:|
00001050  c8 99 32 36 32 33 35 31  2c 2c 62 25 3a e7 62 25  |..262351,,b%:.b%|
00001060  21 31 32 3c 3e 63 77 25  3a 65 25 3d b9 3a 8b f2  |!12<>cw%:e%=.:..|
00001070  70 72 6f 63 65 73 73 28  3f 28 63 69 25 2b 62 25  |process(?(ci%+b%|
00001080  21 31 36 29 2c 62 25 21  31 36 29 3a f2 66 70 0d  |!16),b%!16):.fp.|
00001090  06 04 05 cd 0d 06 0e 37  fd 78 25 3c 78 31 25 20  |.......7.x%<x1% |
000010a0  84 20 79 25 3c 79 31 25  20 84 20 78 25 3e 78 32  |. y%<y1% . x%>x2|
000010b0  25 20 84 20 79 25 3e 79  32 25 20 84 20 65 25 3d  |% . y%>y2% . e%=|
000010c0  b9 20 84 20 6c 63 68 72  25 3e 30 0d 06 18 24 c8  |. . lchr%>0...$.|
000010d0  99 32 36 32 33 37 37 2c  33 36 2c 2c 22 70 74 72  |.262377,36,,"ptr|
000010e0  5f 64 65 66 61 75 6c 74  22 2c 32 2c 30 2c 30 0d  |_default",2,0,0.|
000010f0  06 22 3d e7 6f 70 6d 25  3d b9 3a 4d 4f 25 3d 32  |."=.opm%=.:MO%=2|
00001100  3a c8 99 32 36 32 33 35  36 2c 2c 6d 32 25 2c 78  |:..262356,,m2%,x|
00001110  25 2d 36 34 2c 79 25 2d  34 3a f5 3a c8 97 78 25  |%-64,y%-4:.:..x%|
00001120  2c 79 25 2c 7a 25 3a fd  7a 25 3d 30 0d 06 2c 05  |,y%,z%:.z%=0..,.|
00001130  e1 0d 06 36 4f dd f2 73  65 6c 28 77 69 6e 25 2c  |...6O..sel(win%,|
00001140  69 63 6f 6e 25 29 3a 21  62 25 3d 77 69 6e 25 3a  |icon%):!b%=win%:|
00001150  62 25 21 34 3d 69 63 6f  6e 25 3a 62 25 21 38 3d  |b%!4=icon%:b%!8=|
00001160  31 3c 3c 32 31 3a 62 25  21 31 32 3d 31 3c 3c 32  |1<<21:b%!12=1<<2|
00001170  31 3a c8 99 32 36 32 33  34 39 2c 2c 62 25 3a e1  |1:..262349,,b%:.|
00001180  0d 06 40 4d dd f2 64 65  73 65 6c 28 77 69 6e 25  |..@M..desel(win%|
00001190  2c 69 63 6f 6e 25 29 3a  21 62 25 3d 77 69 6e 25  |,icon%):!b%=win%|
000011a0  3a 62 25 21 34 3d 69 63  6f 6e 25 3a 62 25 21 38  |:b%!4=icon%:b%!8|
000011b0  3d 30 3a 62 25 21 31 32  3d 31 3c 3c 32 31 3a c8  |=0:b%!12=1<<21:.|
000011c0  99 32 36 32 33 34 39 2c  2c 62 25 3a e1 0d 06 4a  |.262349,,b%:...J|
000011d0  08 dd f2 63 6d 0d 06 54  17 ea 66 6c 67 25 2c 73  |...cm..T..flg%,s|
000011e0  6d 70 25 2c 6d 64 24 2c  70 74 72 25 0d 06 5e 40  |mp%,md$,ptr%..^@|
000011f0  24 6d 31 25 3d 22 43 75  73 74 6f 6d 43 68 72 22  |$m1%="CustomChr"|
00001200  3a 6d 31 25 21 31 32 3d  26 37 30 32 30 37 3a 6d  |:m1%!12=&70207:m|
00001210  31 25 21 31 36 3d 31 39  32 3a 6d 31 25 21 32 30  |1%!16=192:m1%!20|
00001220  3d 34 34 3a 6d 31 25 21  32 34 3d 30 0d 06 68 24  |=44:m1%!24=0..h$|
00001230  f7 2b 31 3a 70 74 72 25  3d 6d 31 25 2b 32 38 3a  |.+1:ptr%=m1%+28:|
00001240  f5 3a f3 66 6c 67 25 2c  73 6d 70 25 2c 6d 64 24  |.:.flg%,smp%,md$|
00001250  0d 06 72 39 21 70 74 72  25 3d 66 6c 67 25 3a 70  |..r9!ptr%=flg%:p|
00001260  74 72 25 21 34 3d 73 6d  70 25 3a 70 74 72 25 21  |tr%!4=smp%:ptr%!|
00001270  38 3d 26 37 30 30 30 30  32 31 3a 24 28 70 74 72  |8=&7000021:$(ptr|
00001280  25 2b 31 32 29 3d 6d 64  24 0d 06 7c 13 dc 30 2c  |%+12)=md$..|..0,|
00001290  69 6e 66 6f 25 2c 22 49  6e 66 6f 22 0d 06 86 17  |info%,"Info"....|
000012a0  dc 32 2c 6d 32 25 2c 22  43 68 61 72 61 63 74 65  |.2,m2%,"Characte|
000012b0  72 73 22 0d 06 90 12 dc  30 2c 66 62 31 25 2c 22  |rs".....0,fb1%,"|
000012c0  46 6f 6e 74 22 0d 06 9a  17 dc 30 2c 2d 31 2c 22  |Font".....0,-1,"|
000012d0  53 68 69 66 74 20 65 6e  74 72 79 22 0d 06 a4 17  |Shift entry"....|
000012e0  dc 32 2c 2d 31 2c 22 4d  61 67 69 63 20 65 6e 74  |.2,-1,"Magic ent|
000012f0  72 79 22 0d 06 ae 17 dc  30 2c 2d 31 2c 22 53 61  |ry".....0,-1,"Sa|
00001300  76 65 20 73 74 61 74 75  73 22 0d 06 b8 12 dc 26  |ve status".....&|
00001310  38 30 2c 2d 31 2c 22 51  75 69 74 22 0d 06 c2 0c  |80,-1,"Quit"....|
00001320  70 74 72 25 2b 3d 32 34  0d 06 cc 0f fd 66 6c 67  |ptr%+=24.....flg|
00001330  25 20 80 20 31 32 38 0d  06 d6 22 e7 6d 61 67 69  |% . 128...".magi|
00001340  63 25 3d 30 3a 6d 31 25  21 31 32 34 3d 33 3a 8b  |c%=0:m1%!124=3:.|
00001350  6d 31 25 21 31 32 34 3d  32 0d 06 e0 20 e7 73 68  |m1%!124=2... .sh|
00001360  69 66 74 25 3a 6d 31 25  21 31 30 30 3d 31 3a 8b  |ift%:m1%!100=1:.|
00001370  6d 31 25 21 31 30 30 3d  30 0d 06 ea 05 e1 0d 06  |m1%!100=0.......|
00001380  f4 1e dd f2 6d 73 28 6d  73 30 25 2c 6d 73 31 25  |....ms(ms0%,ms1%|
00001390  2c 6d 73 32 25 29 3a ea  62 75 74 25 0d 06 fe 1a  |,ms2%):.but%....|
000013a0  c8 99 32 36 32 33 35 31  2c 2c 62 25 3a 62 75 74  |..262351,,b%:but|
000013b0  25 3d 62 25 21 38 0d 07  08 0c e7 4d 4f 25 3d 31  |%=b%!8.....MO%=1|
000013c0  20 8c 0d 07 12 0c c8 8e  6d 73 30 25 20 ca 0d 07  | .......ms0% ...|
000013d0  1c 44 c9 31 3a e7 6d 73  31 25 3e 2d 31 3a f2 64  |.D.1:.ms1%>-1:.d|
000013e0  65 73 65 6c 69 74 3a 63  75 72 24 3d 24 28 6d 32  |eselit:cur$=$(m2|
000013f0  25 2b 34 30 2b 6d 73 31  25 2a 32 34 29 3a f2 73  |%+40+ms1%*24):.s|
00001400  65 6c 69 74 3a f2 6c 63  68 72 28 63 75 72 24 2c  |elit:.lchr(cur$,|
00001410  b9 29 0d 07 26 23 c9 32  3a e7 6d 73 31 25 3e 2d  |.)..&#.2:.ms1%>-|
00001420  31 3a f2 66 6f 6e 74 73  65 6c 28 6d 73 31 25 2c  |1:.fontsel(ms1%,|
00001430  6d 73 32 25 29 0d 07 30  15 c9 33 3a 73 68 69 66  |ms2%)..0..3:shif|
00001440  74 25 3d ac 73 68 69 66  74 25 0d 07 3a 20 e7 73  |t%=.shift%..: .s|
00001450  68 69 66 74 25 3a 6d 31  25 21 31 30 30 3d 31 3a  |hift%:m1%!100=1:|
00001460  8b 6d 31 25 21 31 30 30  3d 30 0d 07 44 23 c9 34  |.m1%!100=0..D#.4|
00001470  3a e7 6d 61 67 69 63 25  3d 30 3a 6d 61 67 69 63  |:.magic%=0:magic|
00001480  25 3d 31 3a 8b 6d 61 67  69 63 25 3d 30 0d 07 4e  |%=1:.magic%=0..N|
00001490  22 e7 6d 61 67 69 63 25  3d 30 3a 6d 31 25 21 31  |".magic%=0:m1%!1|
000014a0  32 34 3d 33 3a 8b 6d 31  25 21 31 32 34 3d 32 0d  |24=3:.m1%!124=2.|
000014b0  07 58 0c c9 35 3a f2 73  61 76 65 0d 07 62 0b c9  |.X..5:.save..b..|
000014c0  36 3a 71 25 3d b9 0d 07  6c 05 cb 0d 07 76 1d e7  |6:q%=...l....v..|
000014d0  62 75 74 25 3d 31 3a c8  99 32 36 32 33 35 36 2c  |but%=1:..262356,|
000014e0  2c 6d 31 25 2c 30 2c 30  0d 07 80 05 cd 0d 07 8a  |,m1%,0,0........|
000014f0  0c e7 4d 4f 25 3d 32 20  8c 0d 07 94 38 f2 64 65  |..MO%=2 ....8.de|
00001500  73 65 6c 69 74 3a 63 75  72 24 3d 24 28 6d 32 25  |selit:cur$=$(m2%|
00001510  2b 34 30 2b 6d 73 30 25  2a 32 34 29 3a f2 73 65  |+40+ms0%*24):.se|
00001520  6c 69 74 3a f2 6c 63 68  72 28 63 75 72 24 2c b9  |lit:.lchr(cur$,.|
00001530  29 0d 07 9e 1d e7 62 75  74 25 3d 31 3a c8 99 32  |).....but%=1:..2|
00001540  36 32 33 35 36 2c 2c 6d  32 25 2c 30 2c 30 0d 07  |62356,,m2%,0,0..|
00001550  a8 05 cd 0d 07 b2 05 e1  0d 07 bc 1b dd f2 73 63  |..............sc|
00001560  61 6e 3a ea 6e 25 2c 72  25 2c 70 74 72 25 2c 6d  |an:.n%,r%,ptr%,m|
00001570  61 78 25 0d 07 c6 36 24  6d 32 25 3d 22 43 68 61  |ax%...6$m2%="Cha|
00001580  72 61 63 74 65 72 73 22  3a 6d 32 25 21 31 32 3d  |racters":m2%!12=|
00001590  26 37 30 32 30 37 3a 6d  32 25 21 32 30 3d 34 34  |&70207:m2%!20=44|
000015a0  3a 6d 32 25 21 32 34 3d  30 0d 07 d0 0f 70 74 72  |:m2%!24=0....ptr|
000015b0  25 3d 6d 32 25 2b 32 38  0d 07 da 0f 6e 25 3d 30  |%=m2%+28....n%=0|
000015c0  3a 6d 61 78 25 3d 37 0d  07 e4 05 f5 0d 07 ee 44  |:max%=7........D|
000015d0  c8 99 31 32 2c 31 30 2c  22 3c 43 75 73 74 6f 6d  |..12,10,"<Custom|
000015e0  43 68 72 24 44 69 72 3e  2e 43 68 61 72 61 63 74  |Chr$Dir>.Charact|
000015f0  65 72 73 22 2c 62 25 2c  31 2c 6e 25 2c 26 31 30  |ers",b%,1,n%,&10|
00001600  30 2c 22 2a 22 20 b8 20  2c 2c 2c 72 25 2c 6e 25  |0,"*" . ,,,r%,n%|
00001610  0d 07 f8 13 e7 72 25 3d  31 20 80 20 6e 25 3e 3d  |.....r%=1 . n%>=|
00001620  30 20 8c 0d 08 02 4a 53  24 3d a4 73 67 28 62 25  |0 ....JS$=.sg(b%|
00001630  2b 32 30 29 3a 24 28 70  74 72 25 2b 31 32 29 3d  |+20):$(ptr%+12)=|
00001640  53 24 3a 21 70 74 72 25  3d 30 3a 70 74 72 25 21  |S$:!ptr%=0:ptr%!|
00001650  34 3d 2d 31 3a 70 74 72  25 21 38 3d 26 37 30 30  |4=-1:ptr%!8=&700|
00001660  30 30 32 31 3a 70 74 72  25 2b 3d 32 34 0d 08 0c  |0021:ptr%+=24...|
00001670  1a e7 a9 28 53 24 29 3e  6d 61 78 25 3a 6d 61 78  |...(S$)>max%:max|
00001680  25 3d a9 28 53 24 29 0d  08 16 05 cd 0d 08 20 0a  |%=.(S$)....... .|
00001690  fd 6e 25 3d 2d 31 0d 08  2a 0c 70 74 72 25 2d 3d  |.n%=-1..*.ptr%-=|
000016a0  32 34 0d 08 34 0d 21 70  74 72 25 3d 26 38 30 0d  |24..4.!ptr%=&80.|
000016b0  08 3e 15 6e 6f 25 3d 28  70 74 72 25 2d 6d 32 25  |.>.no%=(ptr%-m2%|
000016c0  29 2f 32 34 0d 08 48 1a  6d 61 78 25 2b 3d 31 3a  |)/24..H.max%+=1:|
000016d0  6d 32 25 21 31 36 3d 6d  61 78 25 2a 31 36 0d 08  |m2%!16=max%*16..|
000016e0  52 05 e1 0d 08 5c 0c dd  a4 73 67 28 61 25 29 0d  |R....\...sg(a%).|
000016f0  08 66 08 ea 20 61 24 0d  08 70 0e c8 95 20 3f 61  |.f.. a$..p... ?a|
00001700  25 3e 3d 33 32 0d 08 7a  0f 20 61 24 3d 61 24 2b  |%>=32..z. a$=a$+|
00001710  bd 3f 61 25 0d 08 84 0a  20 61 25 2b 3d 31 0d 08  |.?a%.... a%+=1..|
00001720  8e 05 ce 0d 08 98 07 3d  61 24 0d 08 a2 11 dd f2  |.......=a$......|
00001730  73 65 6c 69 74 3a ea 70  74 72 25 0d 08 ac 0e 70  |selit:.ptr%....p|
00001740  74 72 25 3d 6d 32 25 2b  34 0d 08 b6 0e f5 3a 70  |tr%=m2%+4.....:p|
00001750  74 72 25 2b 3d 32 34 0d  08 c0 20 fd 24 28 70 74  |tr%+=24... .$(pt|
00001760  72 25 2b 31 32 29 3d 63  75 72 24 20 84 20 21 70  |r%+12)=cur$ . !p|
00001770  74 72 25 3d 26 38 30 0d  08 ca 31 e7 24 28 70 74  |tr%=&80...1.$(pt|
00001780  72 25 2b 31 32 29 3c 3e  63 75 72 24 3a 70 74 72  |r%+12)<>cur$:ptr|
00001790  25 3d 6d 32 25 2b 32 38  3a 63 75 72 24 3d 24 28  |%=m2%+28:cur$=$(|
000017a0  70 74 72 25 2b 31 32 29  0d 08 d4 11 21 70 74 72  |ptr%+12)....!ptr|
000017b0  25 3d 21 70 74 72 25 2b  31 0d 08 de 05 e1 0d 08  |%=!ptr%+1.......|
000017c0  e8 13 dd f2 64 65 73 65  6c 69 74 3a ea 70 74 72  |....deselit:.ptr|
000017d0  25 0d 08 f2 0e 70 74 72  25 3d 6d 32 25 2b 34 0d  |%....ptr%=m2%+4.|
000017e0  08 fc 0e f5 3a 70 74 72  25 2b 3d 32 34 0d 09 06  |....:ptr%+=24...|
000017f0  0c fd 21 70 74 72 25 80  31 0d 09 10 11 21 70 74  |..!ptr%.1....!pt|
00001800  72 25 3d 21 70 74 72 25  2d 31 0d 09 1a 05 e1 0d  |r%=!ptr%-1......|
00001810  09 24 1b dd f2 73 61 76  65 3a ea 46 49 25 2c 6d  |.$...save:.FI%,m|
00001820  69 6e 78 25 2c 6d 61 78  79 25 0d 09 2e 52 e7 66  |inx%,maxy%...R.f|
00001830  69 72 73 74 6f 70 65 6e  25 3d b9 3a 21 62 25 3d  |irstopen%=.:!b%=|
00001840  63 77 25 3a c8 99 32 36  32 33 34 37 2c 2c 62 25  |cw%:..262347,,b%|
00001850  3a 6d 69 6e 78 25 3d 62  25 21 34 3a 6d 61 78 79  |:minx%=b%!4:maxy|
00001860  25 3d 62 25 21 31 36 3a  8b 6d 69 6e 78 25 3d 64  |%=b%!16:.minx%=d|
00001870  78 25 3a 6d 61 78 79 25  3d 64 79 25 0d 09 38 2b  |x%:maxy%=dy%..8+|
00001880  c8 99 35 2c 22 41 63 63  65 73 73 20 3c 43 75 73  |..5,"Access <Cus|
00001890  74 6f 6d 43 68 72 24 44  69 72 3e 2e 53 74 61 74  |tomChr$Dir>.Stat|
000018a0  75 73 20 57 52 2f 22 0d  09 42 21 46 49 25 3d ae  |us WR/"..B!FI%=.|
000018b0  22 3c 43 75 73 74 6f 6d  43 68 72 24 44 69 72 3e  |"<CustomChr$Dir>|
000018c0  2e 53 74 61 74 75 73 22  0d 09 4c 2e f1 23 46 49  |.Status"..L..#FI|
000018d0  25 2c 6d 69 6e 78 25 2c  6d 61 78 79 25 2c 6d 61  |%,minx%,maxy%,ma|
000018e0  67 69 63 25 2c 73 68 69  66 74 25 2c 66 6f 6e 74  |gic%,shift%,font|
000018f0  24 2c 63 75 72 24 0d 09  56 09 d9 23 46 49 25 0d  |$,cur$..V..#FI%.|
00001900  09 60 05 e1 0d 09 6a 57  dd f2 6c 6f 61 64 3a 46  |.`....jW..load:F|
00001910  49 25 3d 8e 22 3c 43 75  73 74 6f 6d 43 68 72 24  |I%=."<CustomChr$|
00001920  44 69 72 3e 2e 53 74 61  74 75 73 22 3a e8 23 46  |Dir>.Status":.#F|
00001930  49 25 2c 64 78 25 2c 64  79 25 2c 6d 61 67 69 63  |I%,dx%,dy%,magic|
00001940  25 2c 73 68 69 66 74 25  2c 66 6f 6e 74 24 2c 63  |%,shift%,font$,c|
00001950  75 72 24 3a d9 23 46 49  25 3a e1 0d 09 74 19 dd  |ur$:.#FI%:...t..|
00001960  f2 6c 69 6e 6b 28 53 24  29 3a ea 70 74 72 25 2c  |.link(S$):.ptr%,|
00001970  63 6e 74 25 0d 09 7e 16  70 74 72 25 3d 6d 32 25  |cnt%..~.ptr%=m2%|
00001980  2b 34 3a 63 6e 74 25 3d  2d 31 0d 09 88 39 f5 3a  |+4:cnt%=-1...9.:|
00001990  70 74 72 25 2b 3d 32 34  3a 63 6e 74 25 2b 3d 31  |ptr%+=24:cnt%+=1|
000019a0  3a fd 24 28 70 74 72 25  2b 31 32 29 3d 53 24 20  |:.$(ptr%+12)=S$ |
000019b0  84 20 28 28 21 70 74 72  25 20 80 20 26 38 30 29  |. ((!ptr% . &80)|
000019c0  3d b9 29 0d 09 92 55 3f  28 63 69 70 25 2d 31 29  |=.)...U?(cip%-1)|
000019d0  3d 30 3a 6c 69 6e 6b 25  28 6c 69 6e 6b 73 25 29  |=0:link%(links%)|
000019e0  3d 6c 61 73 74 25 3a e7  24 28 70 74 72 25 2b 31  |=last%:.$(ptr%+1|
000019f0  32 29 3d 53 24 3a 6c 69  6e 6b 24 28 6c 69 6e 6b  |2)=S$:link$(link|
00001a00  73 25 29 3d 53 24 3a 8b  6c 69 6e 6b 24 28 6c 69  |s%)=S$:.link$(li|
00001a10  6e 6b 73 25 29 3d 22 22  0d 09 9c 05 e1 0d 09 a6  |nks%)=""........|
00001a20  19 dd f2 64 6f 6c 69 6e  6b 28 69 25 29 3a ea 6e  |...dolink(i%):.n|
00001a30  6f 25 2c 4c 41 25 0d 09  b0 0a 6e 6f 25 3d 2d 31  |o%,LA%....no%=-1|
00001a40  0d 09 ba 1a e7 6c 69 6e  6b 73 25 3d 30 3a c8 99  |.....links%=0:..|
00001a50  32 36 32 33 36 34 2c 30  3a e1 0d 09 c4 11 e3 4c  |262364,0:......L|
00001a60  41 25 3d 31 b8 6c 69 6e  6b 73 25 0d 09 ce 1a e7  |A%=1.links%.....|
00001a70  6c 69 6e 6b 25 28 4c 41  25 29 3d 69 25 3a 6e 6f  |link%(LA%)=i%:no|
00001a80  25 3d 4c 41 25 0d 09 d8  08 ed 4c 41 25 0d 09 e2  |%=LA%.....LA%...|
00001a90  18 e7 6e 6f 25 3d 2d 31  3a c8 99 32 36 32 33 36  |..no%=-1:..26236|
00001aa0  34 2c 30 3a e1 0d 09 ec  1d e7 6c 69 6e 6b 24 28  |4,0:......link$(|
00001ab0  6e 6f 25 29 3c 3e 22 22  3a 6c 63 68 72 25 3d 6e  |no%)<>"":lchr%=n|
00001ac0  6f 25 0d 09 f6 05 e1 0d  0a 00 14 dd f2 70 72 6f  |o%...........pro|
00001ad0  63 65 73 73 28 6b 25 2c  69 25 29 0d 0a 0a 0b e7  |cess(k%,i%).....|
00001ae0  69 25 3c 30 3a e1 0d 0a  14 22 e7 6b 25 3d 30 3a  |i%<0:....".k%=0:|
00001af0  f2 64 6f 6c 69 6e 6b 28  69 25 29 3a 8b c8 99 32  |.dolink(i%):...2|
00001b00  36 32 33 36 34 2c 6b 25  0d 0a 1e 05 e1 0d 0a 28  |62364,k%.......(|
00001b10  08 dd f2 66 70 0d 0a 32  3a c8 99 32 36 32 33 34  |...fp..2:..26234|
00001b20  33 2c 26 38 33 39 37 32  2c 62 25 b8 72 25 3a e7  |3,&83972,b%.r%:.|
00001b30  28 72 25 3d 31 37 84 72  25 3d 31 38 29 80 62 25  |(r%=17.r%=18).b%|
00001b40  21 31 36 3d 30 3a 71 25  3d b9 3a 65 25 3d b9 0d  |!16=0:q%=.:e%=..|
00001b50  0a 3c 05 e1 0d 0a 46 34  dd f2 66 6d 69 3a ea 63  |.<....F4..fmi:.c|
00001b60  25 2c 64 25 3a c8 99 32  36 32 32 38 39 2c 2c 30  |%,d%:..262289,,0|
00001b70  2c 26 33 38 30 30 30 30  2c 2c 30 2c 2c 31 b8 2c  |,&380000,,0,,1.,|
00001b80  2c 2c 63 25 2c 2c 64 25  0d 0a 50 23 e7 63 25 2b  |,,c%,,d%..P#.c%+|
00001b90  64 25 3e 6e 66 6f 6e 74  73 69 7a 65 25 3a f2 6d  |d%>nfontsize%:.m|
00001ba0  65 6d 75 70 28 63 25 2c  64 25 29 0d 0a 5a 11 f2  |emup(c%,d%)..Z..|
00001bb0  6d 65 6d 61 6c 28 63 25  2c 64 25 29 0d 0a 64 25  |memal(c%,d%)..d%|
00001bc0  c8 99 32 36 32 32 38 39  2c 2c 66 62 31 25 2c 26  |..262289,,fb1%,&|
00001bd0  33 38 30 30 30 30 2c 63  25 2c 66 62 32 25 2c 64  |380000,c%,fb2%,d|
00001be0  25 0d 0a 6e 38 e7 a4 73  67 28 66 62 31 25 21 34  |%..n8..sg(fb1%!4|
00001bf0  30 29 3d 22 53 79 73 74  65 6d 20 46 6f 6e 74 22  |0)="System Font"|
00001c00  3a 24 28 66 62 31 25 21  34 30 29 3d 22 53 79 73  |:$(fb1%!40)="Sys|
00001c10  74 65 6d 20 66 6f 6e 74  22 0d 0a 78 18 f2 66 6f  |tem font"..x..fo|
00001c20  6e 74 74 69 63 6b 28 6d  66 31 25 2c 6d 66 32 25  |nttick(mf1%,mf2%|
00001c30  29 0d 0a 82 3f 21 62 32  25 3d 30 3a 62 32 25 21  |)...?!b2%=0:b2%!|
00001c40  34 3d 2d 31 3a c8 99 32  36 32 33 35 37 2c 2c 66  |4=-1:..262357,,f|
00001c50  62 31 25 2c 62 32 25 2c  62 32 25 2b 31 36 3a 64  |b1%,b2%,b2%+16:d|
00001c60  65 66 66 24 3d a4 73 67  28 62 32 25 2b 31 36 29  |eff$=.sg(b2%+16)|
00001c70  0d 0a 8c 05 e1 0d 0a 96  18 dd f2 66 69 6e 64 66  |...........findf|
00001c80  6f 6e 74 3a ea 66 67 25  2c 66 6e 74 24 0d 0a a0  |ont:.fg%,fnt$...|
00001c90  42 66 67 25 3d a7 66 6f  6e 74 24 2c 22 2e 28 52  |Bfg%=.font$,".(R|
00001ca0  65 67 75 6c 61 72 29 22  29 3a e7 66 67 25 3e 30  |egular)"):.fg%>0|
00001cb0  3a 66 6e 74 24 3d c0 66  6f 6e 74 24 2c 66 67 25  |:fnt$=.font$,fg%|
00001cc0  2d 31 29 3a 8b 66 6e 74  24 3d 66 6f 6e 74 24 0d  |-1):.fnt$=font$.|
00001cd0  0a aa 27 c8 99 33 39 33  33 34 35 2c 2c 66 6e 74  |..'..393345,,fnt|
00001ce0  24 2c 31 34 2a 31 36 2c  31 34 2a 31 36 20 b8 66  |$,14*16,14*16 .f|
00001cf0  68 25 3b 66 67 25 0d 0a  b4 92 e7 66 67 25 80 31  |h%;fg%.....fg%.1|
00001d00  3a 21 62 25 3d 30 3a 24  28 62 25 2b 34 29 3d 22  |:!b%=0:$(b%+4)="|
00001d10  46 6f 6e 74 20 27 22 2b  66 6e 74 24 2b 22 27 20  |Font '"+fnt$+"' |
00001d20  6e 6f 74 20 66 6f 75 6e  64 3b 20 75 73 69 6e 67  |not found; using|
00001d30  20 22 2b 64 65 66 66 24  2b 22 20 69 6e 73 74 65  | "+deff$+" inste|
00001d40  61 64 22 2b bd 30 3a c8  99 32 36 32 33 36 37 2c  |ad"+.0:..262367,|
00001d50  62 25 2c 31 37 2c 22 4d  65 73 73 61 67 65 20 66  |b%,17,"Message f|
00001d60  72 6f 6d 20 43 75 73 74  6f 6d 20 43 68 61 72 61  |rom Custom Chara|
00001d70  63 74 65 72 73 22 3a 66  68 25 3d 30 3a 66 6f 6e  |cters":fh%=0:fon|
00001d80  74 24 3d 64 65 66 66 24  0d 0a be 05 e1 0d 0a c8  |t$=deff$........|
00001d90  18 dd f2 66 6f 6e 74 73  65 6c 28 6d 73 31 25 2c  |...fontsel(ms1%,|
00001da0  6d 73 32 25 29 0d 0a d2  2c e7 6d 73 32 25 3d 2d  |ms2%)...,.ms2%=-|
00001db0  31 20 80 20 21 28 66 62  31 25 2b 33 32 2b 6d 73  |1 . !(fb1%+32+ms|
00001dc0  31 25 2a 32 34 29 3c 3e  2d 31 3a 6d 73 32 25 3d  |1%*24)<>-1:ms2%=|
00001dd0  30 0d 0a dc 21 21 62 32  25 3d 6d 73 31 25 3a 62  |0...!!b2%=ms1%:b|
00001de0  32 25 21 34 3d 6d 73 32  25 3a 62 32 25 21 38 3d  |2%!4=ms2%:b2%!8=|
00001df0  2d 31 0d 0a e6 2f c8 99  32 36 32 33 35 37 2c 2c  |-1.../..262357,,|
00001e00  66 62 31 25 2c 62 32 25  2c 62 32 25 2b 31 36 3a  |fb1%,b2%,b2%+16:|
00001e10  66 6f 6e 74 24 3d a4 73  67 28 62 32 25 2b 31 36  |font$=.sg(b2%+16|
00001e20  29 0d 0a f0 1d e7 66 68  25 3e 30 3a c8 99 32 36  |).....fh%>0:..26|
00001e30  32 32 37 34 2c 66 68 25  3a 66 68 25 3d 30 0d 0a  |2274,fh%:fh%=0..|
00001e40  fa 1b e7 66 6f 6e 74 24  3d 64 65 66 66 24 3a 8b  |...font$=deff$:.|
00001e50  f2 66 69 6e 64 66 6f 6e  74 0d 0b 04 2a f2 6c 63  |.findfont...*.lc|
00001e60  68 72 28 63 75 72 24 2c  b9 29 3a 6d 66 31 25 3d  |hr(cur$,.):mf1%=|
00001e70  6d 73 31 25 3a 6d 66 32  25 3d 6d 73 32 25 3a f2  |ms1%:mf2%=ms2%:.|
00001e80  66 6d 69 0d 0b 0e 05 e1  0d 0b 18 1f dd f2 66 6f  |fmi...........fo|
00001e90  6e 74 74 69 63 6b 28 6d  73 31 25 2c 6d 73 32 25  |nttick(ms1%,ms2%|
00001ea0  29 3a ea 66 62 73 25 0d  0b 22 19 21 28 66 62 31  |):.fbs%..".!(fb1|
00001eb0  25 2b 32 38 2b 6d 73 31  25 2a 32 34 29 2b 3d 31  |%+28+ms1%*24)+=1|
00001ec0  0d 0b 2c 3b e7 6d 73 32  25 3c 3e 2d 31 3a 66 62  |..,;.ms2%<>-1:fb|
00001ed0  73 25 3d 21 28 66 62 31  25 2b 33 32 2b 6d 73 31  |s%=!(fb1%+32+ms1|
00001ee0  25 2a 32 34 29 3a 21 28  66 62 73 25 2b 32 38 2b  |%*24):!(fbs%+28+|
00001ef0  6d 73 32 25 2a 32 34 29  2b 3d 31 0d 0b 36 05 e1  |ms2%*24)+=1..6..|
00001f00  0d 0b 40 15 dd f2 66 69  6e 64 6d 66 3a ea 4c 41  |..@...findmf:.LA|
00001f10  25 2c 66 74 24 0d 0b 4a  37 4c 41 25 3d a7 66 6f  |%,ft$..J7LA%=.fo|
00001f20  6e 74 24 2c 22 2e 22 29  3a e7 4c 41 25 3d 30 3a  |nt$,"."):.LA%=0:|
00001f30  66 74 24 3d 66 6f 6e 74  24 3a 8b 66 74 24 3d c0  |ft$=font$:.ft$=.|
00001f40  66 6f 6e 74 24 2c 4c 41  25 2d 31 29 0d 0b 54 0a  |font$,LA%-1)..T.|
00001f50  4c 41 25 3d 2d 31 0d 0b  5e 0c f5 3a 4c 41 25 2b  |LA%=-1..^..:LA%+|
00001f60  3d 31 0d 0b 68 15 21 62  32 25 3d 4c 41 25 3a 62  |=1..h.!b2%=LA%:b|
00001f70  32 25 21 34 3d 2d 31 0d  0b 72 1d c8 99 32 36 32  |2%!4=-1..r...262|
00001f80  33 35 37 2c 2c 66 62 31  25 2c 62 32 25 2c 62 32  |357,,fb1%,b2%,b2|
00001f90  25 2b 31 36 0d 0b 7c 1d  fd a4 73 67 28 62 32 25  |%+16..|...sg(b2%|
00001fa0  2b 31 36 29 3d 66 74 24  3a 6d 66 31 25 3d 4c 41  |+16)=ft$:mf1%=LA|
00001fb0  25 0d 0b 86 11 e7 66 6f  6e 74 24 3c 3e 66 74 24  |%.....font$<>ft$|
00001fc0  20 8c 0d 0b 90 0a 4c 41  25 3d 2d 31 0d 0b 9a 0c  | .....LA%=-1....|
00001fd0  f5 3a 4c 41 25 2b 3d 31  0d 0b a4 20 21 62 32 25  |.:LA%+=1... !b2%|
00001fe0  3d 6d 66 31 25 3a 62 32  25 21 34 3d 4c 41 25 3a  |=mf1%:b2%!4=LA%:|
00001ff0  62 32 25 21 38 3d 2d 31  0d 0b ae 1d c8 99 32 36  |b2%!8=-1......26|
00002000  32 33 35 37 2c 2c 66 62  31 25 2c 62 32 25 2c 62  |2357,,fb1%,b2%,b|
00002010  32 25 2b 31 36 0d 0b b8  1f fd a4 73 67 28 62 32  |2%+16......sg(b2|
00002020  25 2b 31 36 29 3d 66 6f  6e 74 24 3a 6d 66 32 25  |%+16)=font$:mf2%|
00002030  3d 4c 41 25 0d 0b c2 05  cc 0d 0b cc 0b 6d 66 32  |=LA%.........mf2|
00002040  25 3d 2d 31 0d 0b d6 05  cd 0d 0b e0 05 e1 0d 0b  |%=-1............|
00002050  ea 1a dd f2 66 6f 6e 74  65 72 72 3a ee 85 c8 99  |....fonterr:....|
00002060  32 36 32 33 36 35 3a e0  0d 0b f4 5e 21 62 25 3d  |262365:....^!b%=|
00002070  30 3a 24 28 62 25 2b 34  29 3d 22 4e 6f 74 20 65  |0:$(b%+4)="Not e|
00002080  6e 6f 75 67 68 20 6d 65  6d 6f 72 79 22 2b bd 30  |nough memory"+.0|
00002090  3a c8 99 32 36 32 33 36  37 2c 62 25 2c 31 2c 22  |:..262367,b%,1,"|
000020a0  43 75 73 74 6f 6d 20 43  68 61 72 61 63 74 65 72  |Custom Character|
000020b0  73 22 3a e7 66 68 25 3e  30 3a c8 99 32 36 32 32  |s":.fh%>0:..2622|
000020c0  37 34 2c 66 68 25 0d 0b  fe 0e c8 99 32 36 32 33  |74,fh%......2623|
000020d0  36 35 3a e0 0d 0c 08 16  dd f2 6e 66 6f 6e 74 69  |65:.......nfonti|
000020e0  6e 69 74 3a ea 66 72 65  65 25 0d 0c 12 1f c8 99  |nit:.free%......|
000020f0  32 36 32 33 38 30 2c 2d  31 2c 2d 31 b8 73 6c 6f  |262380,-1,-1.slo|
00002100  74 25 2c 2c 66 72 65 65  25 0d 0c 1c 10 6e 66 6f  |t%,,free%....nfo|
00002110  6e 74 73 69 7a 65 25 3d  30 0d 0c 26 0b 6e 66 62  |ntsize%=0..&.nfb|
00002120  30 25 3d 93 0d 0c 30 05  e1 0d 0c 3a 12 dd f2 6d  |0%=...0....:...m|
00002130  65 6d 75 70 28 63 25 2c  64 25 29 0d 0c 44 1a c8  |emup(c%,d%)..D..|
00002140  99 32 36 32 33 38 30 2c  2d 31 2c 2d 31 b8 2c 2c  |.262380,-1,-1.,,|
00002150  66 72 65 65 25 0d 0c 4e  1f e7 73 6c 6f 74 25 2b  |free%..N..slot%+|
00002160  63 25 2b 64 25 3e 66 72  65 65 25 3a f2 66 6f 6e  |c%+d%>free%:.fon|
00002170  74 65 72 72 0d 0c 58 26  c8 99 32 36 32 33 38 30  |terr..X&..262380|
00002180  2c 73 6c 6f 74 25 2b 63  25 2b 64 25 2c 2d 31 b8  |,slot%+c%+d%,-1.|
00002190  6e 66 6f 6e 74 73 69 7a  65 25 0d 0c 62 15 6e 66  |nfontsize%..b.nf|
000021a0  6f 6e 74 73 69 7a 65 25  2d 3d 73 6c 6f 74 25 0d  |ontsize%-=slot%.|
000021b0  0c 6c 05 e1 0d 0c 76 12  dd f2 6d 65 6d 61 6c 28  |.l....v...memal(|
000021c0  63 25 2c 64 25 29 0d 0c  80 26 66 62 31 25 3d 6e  |c%,d%)...&fb1%=n|
000021d0  66 62 30 25 3a 66 62 32  25 3d 6e 66 62 30 25 2b  |fb0%:fb2%=nfb0%+|
000021e0  28 28 63 25 81 34 2b 31  29 2a 34 29 0d 0c 8a 05  |((c%.4+1)*4)....|
000021f0  e1 0d ff                                          |...|
000021f3