� >$.!AMFBase.!RunImage
*� Main program code for RISCOS AMFBase
%� Version 1.00 Last Update 2/7/91
( � � AMF the Doomwatcher 1991
2�
<:
F7� block &2000, menu% 1024,curbuf% &4000,icond &2000
P:
Zendbuf%=curbuf%+&4000
dCș "Wimp_Initialise",200,&4B534154,"AMFBase" � version%,mytask%
n
�template
x $version%="1.00 (02-Jul-91)"
�Cinitic=�iconbar(%11010,-1,7,0,"!AMFBase"+�13,0,0,0,3,0,0,68,68)
�Aend%=�:drag%=0:saving%=0:ack%=�:max=256:bot=0:cur=1:findcur=0
�Ifindbot=0:stage=1:prefcon=-1:prefload=0:prefload$="None":prefdefine=0
�Aprefindent=0:prefcards=256:max=prefcards:�loadprefs:�setprefs
�� �
�� � � �getoutandquit:�
�F� data$(max,10),name$(10),sort$(10),found(max),find$(10),puzzle(9)
�� �
�name$()="123456789012345"
�
�check
�*� prefload � load$=prefload$:�loadfile
�� prefdefine � �loaddefine
�� prefindent � �loadindent

�setdata(cur)

:

�

"&ș "Wimp_Poll",0,block � eventcode

,Ȏ eventcode �

6� 0:

@-� 1:ș "Wimp_RedrawWindow",,block � more%

J� !block=data% � �draww1

T#� 2:ș "Wimp_OpenWindow",,block

^$� 3:ș "Wimp_CloseWindow",,block

h� 6:�buttons(block)

r
� 7:�drag

|� 8:�processkey

�� 9:�decode

�� 17,18:�mess

��

�
� end%

��

�4��open(handle,vminx,vminy,vmaxx,vmaxy,xoff,yoff)

�<!block=handle:block!4=vminx:block!8=vminy:block!12=vmaxx

�:block!16=vmaxy:block!20=xoff:block!24=yoff:block!28=-1

�ș "Wimp_OpenWindow",,block

��

�Kݤiconbar(flags,part,for,bac,data$,add,add2,length,mouse,xs1,ys1,xs,ys)

�!icond=part

�icond!4=xs1
'icond!8=ys1:icond!12=xs:icond!16=ys
5icond!20=flags+((2^12)*mouse):icond?23=for+bac*16
P� data$<>"" � $(icond+24)=data$ � icond!24=add:icond!28=add2:icond!32=length
&&ș "Wimp_CreateIcon",,icond � icon
0	=icon
:ݤtemplate(a$)
DGș "Wimp_LoadTemplate",,block,indir,endbuf%,-1,a$,0 � ,,indir,,,,c%
N2� c%=0 � �moan("Template ";a$;" not found."):�
Xblock!64=1
b*ș "Wimp_CreateWindow",,block � handle
l=handle
v��moan(a$)
�!icond=0:$(icond+4)=a$+�0
�+ș "Wimp_ReportError",icond,1,"AMFBase"
��
�
ݤstr(a%)
�� b$
�ȕ ?a%>=32
�b$+=�(?a%)
�	a%+=1
��
�=b$
�ݤtad(handle,icon)
��gii(handle,icon)
�
=icond!28
��gii(handle,icon)
!icond=handle:icond!4=icon
!ș "Wimp_GetIconState",,icond
 �
*��openwindow(handle%)
4!icond=handle%
>"ș "Wimp_GetWindowInfo",,icond
Hș "Wimp_OpenWindow",,icond
R�
\ ��alter(hand,icon,eor,clear)
f!icond=hand:icond!4=icon
picond!8=eor:icond!12=clear
z!ș "Wimp_SetIconState",,icond
��
���state(wi,ic)
�!block=wi:block!4=ic
�!ș "Wimp_GetIconState",,block
��
�ݤselect(wi,ic)
��state(wi,ic)
�"� ((block!24) � 1<<21)>0 � =-1
�=0
�
ݤbit(a$)
�ȕ �a$,":")>0
�a$=�a$,�a$,":")+1)
��
ȕ �a$,".")>0
a$=�a$,�a$,".")+1)
�
$=a$
.��openmenu(x,y)
8&ș "Wimp_CreateMenu",,topmenu%,x,y
B�
Lݤmenu(title$,width,menu$)
Vmenu$+=","
`oldmenu=menuptr
j$menuptr=title$
tmenuptr?12=7
~menuptr?13=2
�menuptr?14=7
�menuptr?15=0
�menuptr!16=width
�menuptr!20=48
�menuptr!24=0
�menuptr+=28
��
��item(menu$)
�menu$=�menu$,�menu$,",")+1)
�menuptr+=24
�� menu$=""
�)menuptr!-24=(menuptr!-24) � %10000000
=oldmenu

��item(m$)
m$=�m$,�m$,",")-1)
i$="":j$=""
(� �m$,"[")>0 �
2i$=�m$,�m$,"]")-1)
<m$=�m$,�m$,"]")+1)
Fj$=�i$,�i$,"/")-1)
Pi$=�i$,�i$,"/")+1)
Z�
diflags=&07000021
nmflags=0
xsubmenu=-1
� � �j$,"w")>0 � submenu=�(i$)
� � �j$,"s")>0 � submenu=�(i$)
�$� �j$,"t")>0 � mflags=mflags � 1
�$� �j$,"l")>0 � mflags=mflags � 2
�(� �j$,"n")>0 � iflags=iflags � 1<<22
�!menuptr=mflags
�menuptr!4=submenu
�menuptr!8=iflags
�$(menuptr+12)=m$
��
�	��isd
�!block=save%
�#ș "Wimp_GetWindowState",,block
ysize%=block!16-block!8
#x%=block!4:y%=block!8:block!4=9
!ș "Wimp_GetIconState",,block
"#block!8+=x%:block!12+=y%+ysize%
,$block!16+=x%:block!20+=y%+ysize%
65block!24=0:block!28=0:block!32=1279:block!36=1023
@)!block=0:block!4=5:drag%=�:saving%=-1
Jș "Wimp_DragBox",,block
T�
^
��isd2
h!block=save2%
r#ș "Wimp_GetWindowState",,block
|ysize%=block!16-block!8
�#x%=block!4:y%=block!8:block!4=9
�!ș "Wimp_GetIconState",,block
�#block!8+=x%:block!12+=y%+ysize%
�$block!16+=x%:block!20+=y%+ysize%
�5block!24=0:block!28=0:block!32=1279:block!36=1023
�)!block=0:block!4=5:drag%=�:saving%=-2
�ș "Wimp_DragBox",,block
��
�
��isd3
�!block=save3%
�#ș "Wimp_GetWindowState",,block
�ysize%=block!16-block!8
�#x%=block!4:y%=block!8:block!4=9
!ș "Wimp_GetIconState",,block
#block!8+=x%:block!12+=y%+ysize%
$block!16+=x%:block!20+=y%+ysize%
&5block!24=0:block!28=0:block!32=1279:block!36=1023
0)!block=0:block!4=5:drag%=�:saving%=-3
:ș "Wimp_DragBox",,block
D�
N
��drag
X� saving%=-1 �
b#ș "Wimp_GetPointerInfo",,block
l$block!32=block!4:block!28=!block
v'block!24=block!16:block!20=block!12
�/block!16=1:block!12=0:block!36=0:block!40=0
�)� I=0 � 255:� I?stext<32 � I?stext=13
��
�)$(block+44)=�bit($stext)+�0:!block=60
�+ș "Wimp_SendMessage",17,block,block!20
�drag%=0
��
�� saving%=-2 �
�#ș "Wimp_GetPointerInfo",,block
�$block!32=block!4:block!28=!block
�'block!24=block!16:block!20=block!12
�/block!16=1:block!12=0:block!36=0:block!40=0
�+� I=0 � 255:� I?stext2<32 � I?stext2=13
�
*$(block+44)=�bit($stext2)+�0:!block=60
+ș "Wimp_SendMessage",17,block,block!20
 drag%=0
*�
4� saving%=-3 �
>#ș "Wimp_GetPointerInfo",,block
H$block!32=block!4:block!28=!block
R'block!24=block!16:block!20=block!12
\/block!16=1:block!12=0:block!36=0:block!40=0
f+� I=0 � 255:� I?stext3<32 � I?stext3=13
p�
z*$(block+44)=�bit($stext3)+�0:!block=60
�+ș "Wimp_SendMessage",17,block,block!20
�drag%=0
��
��
���buttons(block)
�icon=block!16
�&� block!12=-2 � block!8=2 �menus:�
�3� block!12=-2 � block!8<>2 �openwindow(data%):�
�*� block!12=data% � block!8=2 �menus2:�
�&� block!12=save% � block!16=9 �isd
�(� block!12=save2% � block!16=9 �isd2
�(� block!12=save3% � block!16=9 �isd3
�6� block!12=save% � block!16=8 � �save(�str(stext))
	9� block!12=save2% � block!16=8 � �save2(�str(stext2))
	9� block!12=save3% � block!16=8 � �save3(�str(stext3))
	!� block!12=data% � �dataclick
	$!� block!12=sort% � �sortclick
	.!� block!12=find% � �findclick
	8%� block!12=define% � �defineclick
	B/� block!12=preferences% � �preferencesclick
	L%� block!12=puzzle% � �puzzleclick
	V'� block!12=confirm% � �confirmclick
	`�
	j��processkey
	t1� block!0=save% � block!24=13 � �save($stext)
	~4� block!0=save2% � block!24=13 � �save2($stext2)
	�B� block!0=save3% � block!24=13 � block!4=0 � �save3($stext3):�
	�� block!0=data% � �datakey
	�� block!0=find% � �findkey
	�"� block!0=define% � �definekey
	� � block!0=save3% � �save3key
	�!ș "Wimp_ProcessKey",block!24
	��
	���menus
	�menuopen=-44
	�menuptr=menu%
	�ȗ x,y,b
	�Ptopmenu%=�menu("AMFBase",200,"[w/info%]Info,Preferences,[w/save%]Save,Quit")
�openmenu(x-100,288)

�
��menus2
2$�tad(save2%,22)="1":$�tad(save2%,23)=�(bot+1)
(4$�tad(save3%,124)="1":$�tad(save3%,125)=�(bot+1)
2menuopen=-45
<menuptr=menu%
Fȗ x,y,b
PJsmenu%=�menu("Save",150,"[w/save%]Data,[w/save2%]Part,[w/save3%]Text")
ZEtopmenu%=�menu("AMFBase",150,"[w/info%]Info,[w/smenu%]Save,Quit")
d�openmenu(x-75,y)
n�
x��decode
�.ș "Wimp_DecodeMenu",,topmenu%,block,icond
�� $icond="Quit" � end%=�
�6� $icond="Preferences" � �openwindow(preferences%)
�#ș "Wimp_GetPointerInfo",,block
�� block!8=1 �
�%� menuopen=-44 � �menus � �menus2
�"ș "Wimp_CreateMenu",,topmenu%
��
�ș "Wimp_CreateMenu",,-1
��
��
���template
�5ș "Wimp_OpenTemplate",,"<AMFBase$Dir>.Templates"
indir=curbuf%
info%=�template("ProgInfo")
save%=�template("Save")
"save2%=�template("Save2")
,save3%=�template("Save3")
6data%=�template("Data")
@sort%=�template("Sort")
Jfind%=�template("Find")
Tdefine%=�template("Define")
^puzzle%=�template("Puzzle")
h)preferences%=�template("Preferences")
r'convention%=�template("Convention")
|%amfwindow%=�template("AMFWindow")
�$confirm%=�template("ConfirmDel")
�ș "Wimp_CloseTemplate"
�stext=�tad(save%,0)
�stext2=�tad(save2%,0)
�stext3=�tad(save3%,0)
�version%=�tad(info%,12)
��
�
��mess
�task=block!4:ref=block!8
�Ȏ block!16 �
�� 0:end%=�
�� 2:
�� saving%=-1 �
�save(�str(block+44))
�
� saving%=-2 �
&�save2(�str(block+44))
0�
:� saving%=-3 �
D�save3(�str(block+44))
N�
X� 3:
bload$=�str(block+44)
l� block!40=&FFD �
v1� �:� � � �moan("Couldn't load : "+�$):� �t^L
�ș "Hourglass_On"
�
�loadfile
�ș "Hourglass_Off"
�� �
��
�� 4:ack%=�
��
��
���cmenu
�#ș "Wimp_GetPointerInfo",,icond
�� icond!8=1 �
�� menuopen=-44 � �menu
�"ș "Wimp_CreateMenu",,topmenu%

�

ș "Wimp_CreateMenu",,-1

�

 �

*��save(a$)

4\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�

>� �

H6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �TZN

Rsave$=a$

\file=�(a$)

f�#file,"eliF esaBFMA"

p�#file,bot

z�#file,cur

��#file,max

�� I=1 � 10

��#file,name$(I)

��

�� I=1 � bot+1

�� J=1 � 10

��#file,data$(I,J)

��

��

��#file,"dehsiniF"

�
�#file

��("SETTYPE "+a$+" FFD")

�
�cmenu
$stext=save$
modified=0
� �
$�
.��save2(a$)
8\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
Bstart=�($�tad(save2%,22))
Lend=�($�tad(save2%,23))
Vsavetype=0
`,� �select(save2%,10) � savetype=1:� �DnO
j%� �select(save2%,11) � savetype=2
t7� �select(save2%,21) � savetype=3:start=1:end=bot+1
~C� savetype=0 � �moan("Couldn't save : No save type selected"):�
�� �
�6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �TZN
�save$=a$
�file=�(a$)
��#file,"eliF esaBFMA"
��#file,end-start
��#file,1
��#file,max
�� I=1 � 10
��#file,name$(I)
��
�� I=start � end
� J=1 � 10

�#file,data$(I,J)
�
�
(�#file,"dehsiniF"
2
�#file
<�("SETTYPE "+a$+" FFD")
F
�cmenu
P$stext2=save$
Z� �
d�
n� �
x6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �TZN
�save$=a$
�file=�(a$)
��#file,"eliF esaBFMA"
��#file,findbot-1
��#file,findcur
��#file,max
�� I=1 � 10
��#file,name$(I)
��
�� I=1 � findbot
�� J=1 � 10
��#file,data$(found(I),J)
��
�
�#file,"dehsiniF"

�#file
"�("SETTYPE "+a$+" FFD")
,
�cmenu
6$stext2=save$
@� �
J�
T��save3(a$)
^\� �a$,".")<1 � �a$,":")<1 � �moan("To save, drag the save icon to a directory viewer"):�
hstart=�($�tad(save3%,124))
rend=�($�tad(save3%,125))
|savetype=0
�%� �select(save3%,10) � savetype=1
�%� �select(save3%,11) � savetype=2
�7� �select(save3%,21) � savetype=3:start=1:end=bot+1
�C� savetype=0 � �moan("Couldn't save : No save type selected"):�
�� �
�6� � � �moan("Couldn't save : "+�$+" "+�(�)):� �TZN
�save$=a$
�file=�(a$)
�� savetype=2 � savetype=3 �
�� I=start � end
��sendastext(I)
��
��
� savetype=1 �
� I=1 � findbot
�sendastext(found(I))
&�
0�
:
�#file
D�("SETTYPE "+save$+" FFF")
N
�cmenu
X$stext3=save$
b� �
l�
v��loadfile
�max2=max
�� �
�6� � � �moan("Couldn't load : "+�$+" "+�(�)):� �tNR
�file=�(load$)
��#file,start$
�1� start$<>"eliF esaBFMA" � � 4,"Corrupt file"
��#file,bot
��#file,cur
��#file,max2
�� I=1 � 10
��#file,name$(I)
��
�� I=1 � bot+1
� J=1 � 10
�#file,data$(I,J)
�
 �
*�#file,start$
4-� start$<>"dehsiniF" � � 4,"Corrupt file"
>
�#file
H
�cmenu
R$stext=load$
\$� bot>max � � 4,"Too many cards"
f�setalldefine
p�setdata(cur)
z�openwindow(data%)
�modified=0
�� �
��
���check
�1� ��$,5,6)="23 Nov" � �openwindow(amfwindow%)
�.� ��$,5,6)="01 Apr" � �openwindow(puzzle%)
�S$�tad(convention%,0)=�code("Uinrd!ui`u-mhjd!xnt-`sd!b`q`cmd!ng!bnlqmduhof!uid")
�P$�tad(convention%,1)=�code("lxrudshntr!qt{{md!ui`u!hr!q`su!ng! @LGc`rd!`sd")
�R$�tad(convention%,2)=�code("vnsuix!ng!uid!houdmmhfdobd!ui`u!xnt!`sd!cdrunvde")
�R$�tad(convention%,3)=�code("vhui/Un!xnt-uidsdgnsd!H!r`x!uid!gnmmnvhof!vnser;")
�=$�tad(convention%,4)=�code("Q`y!Wnchrbtl-R`m``l!@mdhjtl")
�(� $�tad(info%,9)<>"� AMFsoft 1991" �
��moan("Pax vobiscum")
�
�
�
$��draww1
.bx=block!4-block!20
8by=block!16-block!24
Bȕ more%
L	�draw
V)ș "Wimp_GetRectangle",,block � more%
`�
j�
t
��draw
~9miny=block!32:maxy=block!40:miny=miny-32:maxy=maxy+32
�px=((bot+1)/(max-1))*262
�ș "Wimp_SetColour",7
�ȓ Ȑ bx+14,by-614,px,0
�ș "Wimp_SetColour",2
�"ȓ Ȑ bx+14+px,by-614,262-px,0
�ș "Wimp_SetColour",11
�px=((cur-1)/(max-1))*262
�px2=(1/(max-1))*262
�ȓ Ȑ bx+14+px,by-614,px2,0
��
�
��datakey
�key=block!24:icon=block!4
� key=&18E �

!� icon=60 �setcaret(data%,61)
!� icon=61 �setcaret(data%,62)
!� icon=62 �setcaret(data%,63)
(!� icon=63 �setcaret(data%,64)
2!� icon=64 �setcaret(data%,65)
<!� icon=65 �setcaret(data%,66)
F!� icon=66 �setcaret(data%,67)
P!� icon=67 �setcaret(data%,68)
Z!� icon=68 �setcaret(data%,69)
d� icon=69 �
n�setcaret(data%,60)
x5� cur<bot+1 � �grabdata(cur):cur+=1:�setdata(cur)
��
��
��
�� key=&18F �
�� icon=60 �
��setcaret(data%,69)
�1� cur>1 � �grabdata(cur):cur-=1:�setdata(cur)
��
�!� icon=61 �setcaret(data%,60)
�!� icon=62 �setcaret(data%,61)
�!� icon=63 �setcaret(data%,62)
�!� icon=64 �setcaret(data%,63)
�!� icon=65 �setcaret(data%,64)
!� icon=66 �setcaret(data%,65)
!� icon=67 �setcaret(data%,66)
!� icon=68 �setcaret(data%,67)
"!� icon=69 �setcaret(data%,68)
,�
6�
@� key=13 �
J!� icon=60 �setcaret(data%,61)
T!� icon=61 �setcaret(data%,62)
^!� icon=62 �setcaret(data%,63)
h!� icon=63 �setcaret(data%,64)
r!� icon=64 �setcaret(data%,65)
|!� icon=65 �setcaret(data%,66)
�!� icon=66 �setcaret(data%,67)
�!� icon=67 �setcaret(data%,68)
�!� icon=68 �setcaret(data%,69)
�� icon=69 �
�� cur>=bot+1 �
�� cur+1=max � �
� bot+=1:�alter(data%,131,0,0)
��
�'�grabdata(cur):cur+=1:�setdata(cur)
��setcaret(data%,60)
��
�� icon=80 �
��grabdata(cur)
cur=�($�tad(data%,80))
� cur>bot+1 � cur=bot+1
� cur<1 � cur=1
&�setdata(cur)
0�setcaret(data%,80)
:�
D�
N�
X�
b��definekey
lkey=block!24:icon=block!4
v� key=&18E � key=13 �
�!� icon=0 �setcaret(define%,1)
�!� icon=1 �setcaret(define%,2)
�!� icon=2 �setcaret(define%,3)
�!� icon=3 �setcaret(define%,4)
�!� icon=4 �setcaret(define%,5)
�!� icon=5 �setcaret(define%,6)
�!� icon=6 �setcaret(define%,7)
�!� icon=7 �setcaret(define%,8)
�!� icon=8 �setcaret(define%,9)
�!� icon=9 �setcaret(define%,0)
��
��
�� key=&18F �
!� icon=0 �setcaret(define%,9)
!� icon=1 �setcaret(define%,0)
!� icon=2 �setcaret(define%,1)
 !� icon=3 �setcaret(define%,2)
*!� icon=4 �setcaret(define%,3)
4!� icon=5 �setcaret(define%,4)
>!� icon=6 �setcaret(define%,5)
H!� icon=7 �setcaret(define%,6)
R!� icon=8 �setcaret(define%,7)
\!� icon=9 �setcaret(define%,8)
f�
p�
z�
�
��findkey
�key=block!24:icon=block!4
�� key=&18E � key=13 �
�!� icon=60 �setcaret(find%,61)
�!� icon=61 �setcaret(find%,62)
�!� icon=62 �setcaret(find%,63)
�!� icon=63 �setcaret(find%,64)
�!� icon=64 �setcaret(find%,65)
�!� icon=65 �setcaret(find%,66)
�!� icon=66 �setcaret(find%,67)
�!� icon=67 �setcaret(find%,68)
�!� icon=68 �setcaret(find%,69)
�!� icon=69 �setcaret(find%,60)
� icon=80 �
� findbot=0 � �
findcur=�($�tad(find%,80))
$'� findcur>findbot � findcur=findbot
.� findcur<1 � findcur=1
8$�tad(find%,80)=�(findcur)
B�alter(find%,80,0,0)
L�setdata(found(findcur))
V�
`�
j�
t� key=&18F �
~!� icon=60 �setcaret(find%,69)
�!� icon=61 �setcaret(find%,60)
�!� icon=62 �setcaret(find%,61)
�!� icon=63 �setcaret(find%,62)
�!� icon=64 �setcaret(find%,63)
�!� icon=65 �setcaret(find%,64)
�!� icon=66 �setcaret(find%,65)
�!� icon=67 �setcaret(find%,66)
�!� icon=68 �setcaret(find%,67)
�!� icon=69 �setcaret(find%,68)
��
��
��
��setcaret(wind%,icon%)

Gș "Wimp_SetCaretPosition",wind%,icon%,0,0,-1,�($�tad(wind%,icon%))
�
��setdata(c)
(	cur=c
2$�tad(data%,80)=�(cur)
<=$�tad(data%,60)=data$(cur,1):$�tad(data%,61)=data$(cur,2)
F=$�tad(data%,62)=data$(cur,3):$�tad(data%,63)=data$(cur,4)
P=$�tad(data%,64)=data$(cur,5):$�tad(data%,65)=data$(cur,6)
Z=$�tad(data%,66)=data$(cur,7):$�tad(data%,67)=data$(cur,8)
d>$�tad(data%,68)=data$(cur,9):$�tad(data%,69)=data$(cur,10)
nB�alter(data%,80,0,0):�alter(data%,60,0,0):�alter(data%,61,0,0)
xB�alter(data%,62,0,0):�alter(data%,63,0,0):�alter(data%,64,0,0)
�B�alter(data%,65,0,0):�alter(data%,66,0,0):�alter(data%,67,0,0)
�C�alter(data%,68,0,0):�alter(data%,69,0,0):�alter(data%,131,0,0)
��
���grabdata(c)
�9data$(c,1)=$�tad(data%,60):data$(c,2)=$�tad(data%,61)
�9data$(c,3)=$�tad(data%,62):data$(c,4)=$�tad(data%,63)
�9data$(c,5)=$�tad(data%,64):data$(c,6)=$�tad(data%,65)
�9data$(c,7)=$�tad(data%,66):data$(c,8)=$�tad(data%,67)
�:data$(c,9)=$�tad(data%,68):data$(c,10)=$�tad(data%,69)
��
���dataclick
�icon=block!16
�� icon=76 �
1� cur>1 � �grabdata(cur):cur-=1:�setdata(cur)
�
� icon=77 �
":� cur<bot+1 � �grabdata(cur):cur+=1:� cur=max � cur-=1
,�setdata(cur)
6�
@� icon=87 �
J&�grabdata(cur):cur=1:�setdata(cur)
T�
^� icon=88 �
h*�grabdata(cur):cur=bot+1:�setdata(cur)
r�
|� icon=120 �
�� cur>=bot+1 �
�� cur+1=max � �
� bot+=1:�alter(data%,131,0,0)
��
�,�grabdata(cur):cur+=1:� cur=max � cur-=1
��setdata(cur)
��setcaret(data%,60)
��
�� icon=119 � �setdata(cur)
�� icon=118 �
�<$�tad(data%,60)="":$�tad(data%,61)="":$�tad(data%,62)=""
�<$�tad(data%,63)="":$�tad(data%,64)="":$�tad(data%,65)=""
�<$�tad(data%,66)="":$�tad(data%,67)="":$�tad(data%,68)=""
$�tad(data%,69)=""
B�alter(data%,80,0,0):�alter(data%,60,0,0):�alter(data%,61,0,0)
B�alter(data%,62,0,0):�alter(data%,63,0,0):�alter(data%,64,0,0)
&B�alter(data%,65,0,0):�alter(data%,66,0,0):�alter(data%,67,0,0)
0-�alter(data%,68,0,0):�alter(data%,69,0,0)
:�
D� icon=116 �
N�openwindow(define%)
X�setdefine
b�setcaret(define%,0)
l�
v� icon=113 � �insert
�� icon=114 � �delete
�#� icon=117 � �openwindow(sort%)
�� icon=115 �
��openwindow(find%)
�$�tad(find%,89)=""
�$�tad(find%,80)=""
��setcaret(find%,60)
�!findcur=0:findbot=0:found()=0
��
��
���defineclick
�� icon=30 �
��setdefine
/!block=define%:ș "Wimp_CloseWindow",,block
�
� icon=31 �
 /!block=define%:ș "Wimp_CloseWindow",,block
*� I=1 � 10
4name$(I)=$�tad(define%,I-1)
>�
H�setalldefine
R�
\�
f��setdefine
p� I=1 � 10
z$�tad(define%,I-1)=name$(I)
��alter(define%,I,0,0)
��
��
���setalldefine
�� I=1 � 10
�$�tad(define%,I-1)=name$(I)
�$�tad(data%,I-1)=name$(I)
�$�tad(find%,I-1)=name$(I)
�0$�tad(sort%,I+9)="Sort using '"+name$(I)+"'"
�'� I>1 � $�tad(save3%,I+37)=name$(I)
��alter(define%,I-1,0,0)
��alter(data%,I-1,0,0)
��
$�tad(save3%,23)=name$(1)
�
��insert
$)� bot=max-2 � bot=max-1 � bot=max � �
.ș "Hourglass_On"
8� I=max � cur+1 � -1
B� J=1 � 10
Ldata$(I,J)=data$(I-1,J)
V�
`�
j� J=1 � 10
tdata$(cur,J)=""
~�
�
bot+=1
�ș "Hourglass_Off"
��setdata(cur)
��
���delete
�� bot=0 � bot=1 � �
�S� prefcon � �openwindow(confirm%):$�tad(confirm%,2)="Delete card "+�(cur)+"?":�
�ș "Hourglass_On"
�� I=cur � max-1
�� J=1 � 10
�data$(I,J)=data$(I+1,J)
��
�

 � J=1 � 10:data$(max,J)="":�

bot-=1
� cur>=bot+1 � cur-=1
(ș "Hourglass_Off"
2�setdata(cur)
<�
F��confirmclick
P� icon=10 �
Zș "Hourglass_On"
d� I=cur � max-1
n� J=1 � 10
xdata$(I,J)=data$(I+1,J)
��
��
� � J=1 � 10:data$(max,J)="":�
�
bot-=1
�ș "Hourglass_Off"
��setdata(cur)
��
�0!block=confirm%:ș "Wimp_CloseWindow",,block
��
���sortclick
�� icon=36 �
�-!block=sort%:ș "Wimp_CloseWindow",,block
��
�
� icon=37 �
sorton=0
"� i=1 � 10
,#� �select(sort%,i-1) � sorton=i
6�
@<� sorton=0 � �moan("Couldn't sort : No sort selected"):�
Jsorttype=0
T$� �select(sort%,28) � sorttype=1
^$� �select(sort%,29) � sorttype=2
hsortstyl=0
r$� �select(sort%,42) � sortstyl=1
|$� �select(sort%,43) � sortstyl=2
�>� sorttype=0 � �moan("Couldn't sort : No sort selected"):�
�>� sortstyl=0 � �moan("Couldn't sort : No sort selected"):�
�-� sorttype=1 � sortstyl=1 � �ascsortalpha
�-� sorttype=1 � sortstyl=2 � �ascsortnumer
�-� sorttype=2 � sortstyl=1 � �dessortalpha
�-� sorttype=2 � sortstyl=2 � �dessortnumer
��setdata(cur)
�-!block=sort%:ș "Wimp_CloseWindow",,block
��
��
���ascsortalpha
�ș "Hourglass_On"
�� pass=1 � bot+1
 low$=�255,"�"):lownum=0
 � thro=pass � bot+1
 C� data$(thro,sorton)<low$ � low$=data$(thro,sorton):lownum=thro
 &
� thro
 0� lownum<>0 �
 :*� J%=1 � 10:sort$(J%)=data$(pass,J%):�
 D1� J%=1 � 10:data$(pass,J%)=data$(lownum,J%):�
 N,� J%=1 � 10:data$(lownum,J%)=sort$(J%):�
 X�
 b
� pass
 lș "Hourglass_Off"
 v�
 ���dessortalpha
 �ș "Hourglass_On"
 �� pass=1 � bot+1
 �low$="":lownum=0
 �� thro=pass � bot+1
 �C� data$(thro,sorton)>low$ � low$=data$(thro,sorton):lownum=thro
 �
� thro
 �� lownum<>0 �
 �*� J%=1 � 10:sort$(J%)=data$(pass,J%):�
 �1� J%=1 � 10:data$(pass,J%)=data$(lownum,J%):�
 �,� J%=1 � 10:data$(lownum,J%)=sort$(J%):�
 ��
 �
� pass
!ș "Hourglass_Off"
!�
!��ascsortnumer
! ș "Hourglass_On"
!*� pass=1 � bot+1
!4low=1E38:lownum=0
!>� thro=pass � bot+1
!HG� �(data$(thro,sorton))<low � low=�(data$(thro,sorton)):lownum=thro
!R
� thro
!\� lownum<>0 �
!f*� J%=1 � 10:sort$(J%)=data$(pass,J%):�
!p1� J%=1 � 10:data$(pass,J%)=data$(lownum,J%):�
!z,� J%=1 � 10:data$(lownum,J%)=sort$(J%):�
!��
!�
� pass
!�ș "Hourglass_Off"
!��
!���dessortnumer
!�ș "Hourglass_On"
!�� pass=1 � bot+1
!�low=0:lownum=0
!�� thro=pass � bot+1
!�G� �(data$(thro,sorton))>low � low=�(data$(thro,sorton)):lownum=thro
!�
� thro
!�� lownum<>0 �
!�*� J%=1 � 10:sort$(J%)=data$(pass,J%):�
"1� J%=1 � 10:data$(pass,J%)=data$(lownum,J%):�
",� J%=1 � 10:data$(lownum,J%)=sort$(J%):�
"�
"$
� pass
".ș "Hourglass_Off"
"8�
"B��findclick
"L� icon=99 �
"V<$�tad(find%,60)="":$�tad(find%,61)="":$�tad(find%,62)=""
"`<$�tad(find%,63)="":$�tad(find%,64)="":$�tad(find%,65)=""
"j<$�tad(find%,66)="":$�tad(find%,67)="":$�tad(find%,68)=""
"t<$�tad(find%,69)="":$�tad(find%,89)="":$�tad(find%,80)=""
"~B�alter(find%,60,0,0):�alter(find%,61,0,0):�alter(find%,62,0,0)
"�B�alter(find%,63,0,0):�alter(find%,64,0,0):�alter(find%,65,0,0)
"�B�alter(find%,66,0,0):�alter(find%,67,0,0):�alter(find%,68,0,0)
"�B�alter(find%,69,0,0):�alter(find%,89,0,0):�alter(find%,80,0,0)
"��
"�� icon=100 �
"�-!block=find%:ș "Wimp_CloseWindow",,block
"��
"�� icon=101 �
"�	�find
"��
"�� findbot>0 �
"�:
#� icon=76 �
#
� findcur>1 � findcur-=1
#$�tad(find%,80)=�(findcur)
#�alter(find%,80,0,0)
#(�setdata(found(findcur))
#2�
#<� icon=77 �
#F"� findcur<findbot � findcur+=1
#P$�tad(find%,80)=�(findcur)
#Z�alter(find%,80,0,0)
#d�setdata(found(findcur))
#n�
#x� icon=87 �
#�
findcur=1
#�$�tad(find%,80)=�(findcur)
#��alter(find%,80,0,0)
#��setdata(found(findcur))
#��
#�� icon=88 �
#�findcur=findbot
#�$�tad(find%,80)=�(findcur)
#��alter(find%,80,0,0)
#��setdata(found(findcur))
#��
#�:
#��
$�
$
��find
$!findbot=0:findcur=0:found()=0
$"ș "Hourglass_On"
$,� I=1 � 10
$6find$(I)=$�tad(find%,59+I)
$@�
$J� I%=1 � bot+1
$Tok=0
$^4� find$(1)="" � �data$(I%,1),find$(1))>0 � ok+=1
$h4� find$(2)="" � �data$(I%,2),find$(2))>0 � ok+=1
$r4� find$(3)="" � �data$(I%,3),find$(3))>0 � ok+=1
$|4� find$(4)="" � �data$(I%,4),find$(4))>0 � ok+=1
$�4� find$(5)="" � �data$(I%,5),find$(5))>0 � ok+=1
$�4� find$(6)="" � �data$(I%,6),find$(6))>0 � ok+=1
$�4� find$(7)="" � �data$(I%,7),find$(7))>0 � ok+=1
$�4� find$(8)="" � �data$(I%,8),find$(8))>0 � ok+=1
$�4� find$(9)="" � �data$(I%,9),find$(9))>0 � ok+=1
$�7� find$(10)="" � �data$(I%,10),find$(10))>0 � ok+=1
$�*� ok=10 � findbot+=1:found(findbot)=I%
$��
$�ș "Hourglass_Off"
$�G� findbot=0 � �7:$�tad(find%,89)="Not found":�alter(find%,89,0,0):�
$�<$�tad(find%,89)=�(findbot)+" found":�alter(find%,89,0,0)
$�=findcur=1:$�tad(find%,80)=�(findcur):�alter(find%,80,0,0)
$��setdata(found(findcur))
%�
%��save3key
%icon=block!4
%&#� block!24=13 � block!24=&18E �
%0$� icon=28 � �setcaret(save3%,84)
%:$� icon=84 � �setcaret(save3%,85)
%D$� icon=85 � �setcaret(save3%,86)
%N$� icon=86 � �setcaret(save3%,87)
%X$� icon=87 � �setcaret(save3%,88)
%b$� icon=88 � �setcaret(save3%,89)
%l$� icon=89 � �setcaret(save3%,90)
%v$� icon=90 � �setcaret(save3%,91)
%�$� icon=91 � �setcaret(save3%,92)
%�$� icon=92 � �setcaret(save3%,28)
%�%� icon=93 � �setcaret(save3%,103)
%�&� icon=103 � �setcaret(save3%,104)
%�&� icon=104 � �setcaret(save3%,105)
%�&� icon=105 � �setcaret(save3%,106)
%�&� icon=106 � �setcaret(save3%,107)
%�&� icon=107 � �setcaret(save3%,108)
%�&� icon=108 � �setcaret(save3%,109)
%�&� icon=109 � �setcaret(save3%,110)
%�&� icon=110 � �setcaret(save3%,111)
%�%� icon=111 � �setcaret(save3%,93)
%��
&� block!24=&18F �
&$� icon=28 � �setcaret(save3%,92)
&$� icon=84 � �setcaret(save3%,28)
& $� icon=85 � �setcaret(save3%,84)
&*$� icon=86 � �setcaret(save3%,85)
&4$� icon=87 � �setcaret(save3%,86)
&>$� icon=88 � �setcaret(save3%,87)
&H$� icon=89 � �setcaret(save3%,88)
&R$� icon=90 � �setcaret(save3%,89)
&\$� icon=91 � �setcaret(save3%,90)
&f$� icon=92 � �setcaret(save3%,91)
&p%� icon=93 � �setcaret(save3%,111)
&z%� icon=103 � �setcaret(save3%,93)
&�&� icon=104 � �setcaret(save3%,103)
&�&� icon=105 � �setcaret(save3%,104)
&�&� icon=106 � �setcaret(save3%,105)
&�&� icon=107 � �setcaret(save3%,106)
&�&� icon=108 � �setcaret(save3%,107)
&�&� icon=109 � �setcaret(save3%,108)
&�&� icon=110 � �setcaret(save3%,109)
&�&� icon=111 � �setcaret(save3%,110)
&��
&��
&���sendastext(n)
&�|� �select(save3%,22) � �send(�select(save3%,26),�select(save3%,25),�($�tad(save3%,28)),�($�tad(save3%,93)),data$(n,1),1)
&�}� �select(save3%,30) � �send(�select(save3%,66),�select(save3%,57),�($�tad(save3%,84)),�($�tad(save3%,103)),data$(n,2),2)
'}� �select(save3%,31) � �send(�select(save3%,67),�select(save3%,58),�($�tad(save3%,85)),�($�tad(save3%,104)),data$(n,3),3)
'}� �select(save3%,32) � �send(�select(save3%,68),�select(save3%,59),�($�tad(save3%,86)),�($�tad(save3%,105)),data$(n,4),4)
'}� �select(save3%,33) � �send(�select(save3%,69),�select(save3%,60),�($�tad(save3%,87)),�($�tad(save3%,106)),data$(n,5),5)
'$}� �select(save3%,34) � �send(�select(save3%,70),�select(save3%,61),�($�tad(save3%,88)),�($�tad(save3%,107)),data$(n,6),6)
'.}� �select(save3%,35) � �send(�select(save3%,71),�select(save3%,62),�($�tad(save3%,89)),�($�tad(save3%,108)),data$(n,7),7)
'8}� �select(save3%,36) � �send(�select(save3%,72),�select(save3%,63),�($�tad(save3%,90)),�($�tad(save3%,109)),data$(n,8),8)
'B}� �select(save3%,37) � �send(�select(save3%,73),�select(save3%,64),�($�tad(save3%,91)),�($�tad(save3%,110)),data$(n,9),9)
'L� �select(save3%,38) � �send(�select(save3%,74),�select(save3%,65),�($�tad(save3%,92)),�($�tad(save3%,111)),data$(n,10),10)
'V�#file," "
'`�
'j+��send(indent,title,ind1,ind2,data$,no)
't	a$=""
'~
� title �
'�� indent a$+=�ind2," ")
'�a$+=name$(no)+":"
'��
'�� indent a$+=�ind1," ")
'�
a$+=data$
'�
�#file,a$
'��
'���preferencesclick
'�� icon=26 �
'�
�setprefs
'�4!block=preferences%:ș "Wimp_CloseWindow",,block
'��
(�
(
� icon=27 � icon=25 �
(#prefcon=�select(preferences%,0)
($prefload=�select(preferences%,1)
((&prefdefine=�select(preferences%,7)
(2&prefindent=�select(preferences%,8)
(<$prefload$=$�tad(preferences%,14)
(F'prefcards=�($�tad(preferences%,15))
(P4!block=preferences%:ș "Wimp_CloseWindow",,block
(Z�
(d� icon=25 �
(n� �
(x;� � � �moan("Couldn't save defaults file : "+�$):� �dph
(�(defaults=�("<AMFBase$Dir>.Defaults")
(�&�#defaults,"eliF stluafeD esaBFMA"
(��#defaults,prefcon
(��#defaults,prefload
(��#defaults,prefdefine
(��#defaults,prefindent
(��#defaults,prefload$
(��#defaults,prefcards
(�� #defaults
(�� prefdefine � �savedefine
(�� prefindent � �saveindent
(�� �
(��
)�
)��setprefs
)$$�tad(preferences%,14)=prefload$
)"S� prefcon � �alter(preferences%,0,1<<21,1<<21) � �alter(preferences%,0,0,1<<21)
),T� prefload � �alter(preferences%,1,1<<21,1<<21) � �alter(preferences%,1,0,1<<21)
)6V� prefdefine � �alter(preferences%,7,1<<21,1<<21) � �alter(preferences%,7,0,1<<21)
)@V� prefindent � �alter(preferences%,8,1<<21,1<<21) � �alter(preferences%,8,0,1<<21)
)J'$�tad(preferences%,15)=�(prefcards)
)T�
)^��puzzleclick
)h	p$=""
)r3�puz(0,"1"):�puz(4,"2"):�puz(2,"3"):�puz(3,"4")
)|?�puz(5,"5"):�puz(6,"6"):�puz(7,"7"):�puz(8,"8"):�puz(9,"9")
)�/$�tad(puzzle%,16)=p$:�alter(puzzle%,16,0,0)
)�+� p$="1 3 5 7 9" � stage=1 � stage=2:�7
)�D� p$=" 2 4 6 8 " � stage=2 � stage=1:�7:�openwindow(convention%)
)��
)���puz(ic,a$)
)�,� �select(puzzle%,ic) � p$+=a$ � p$+=" "
)��
)�ݤcode(a$)
)�	b$=""
)�� I=1 � �(a$)
)�a=�(�a$,I,1))
)�a=a � 1
)�
b$+=�a
*�
*=b$
*��getoutandquit
*&!icond=255
*0j$(icond+4)="As the defaults file is incompatible with the memory available,should I create a new one?"
*:4ș "Wimp_ReportError",icond,3,"AMFBase" � ,click
*D� click=2 � �
*N� �
*X=� � � �moan("Couldn't create defaults file : "+�$):� �dxj
*b(defaults=�("<AMFBase$Dir>.Defaults")
*l&�#defaults,"eliF stluafeD esaBFMA"
*v�#defaults,-1
*��#defaults,0
*��#defaults,0
*��#defaults,0
*��#defaults,"None"
*�.� max<=256 � �#defaults,2 � �#defaults,256
*��#defaults,200
*�� #defaults
*�� �
*�o� maxslides%<256 �moan("Default file created (mininal,2 cards only) - reload and alter your preferences") �
*�g� maxslides%>255 �moan("Default file created (256 cards only) - reload and alter your preferences")
*��
*�� �
*�:�moan("Couldn't get enough memory - reset and reload")
+�
+��loadprefs
+� �
+ ;� � � �moan("Couldn't load defaults file : "+�$):� �tNk
+*(defaults=�("<AMFBase$Dir>.Defaults")
+4�#defaults,start$
+>:� start$<>"eliF stluafeD esaBFMA" � � 4,"Corrupt file"
+H�#defaults,prefcon
+R�#defaults,prefload
+\�#defaults,prefdefine
+f�#defaults,prefindent
+p�#defaults,prefload$
+z�#defaults,prefcards
+�� #defaults
+�� �
+��
+���savedefine
+�� �
+�9� � � �moan("Couldn't save define file : "+�$):� �TFl
+�&defaults=�("<AMFBase$Dir>.Define")
+�$�#defaults,"eliF enifeD esaBFMA"
+�� I=1 � 10
+��#defaults,name$(I)
+��
+��#defaults,"dehsiniF"
+�� #defaults
,� �
,�
,��saveindent
,$� �
,.9� � � �moan("Couldn't save indent file : "+�$):� �TFl
,8&defaults=�("<AMFBase$Dir>.Indent")
,B$�#defaults,"eliF tnednI esaBFMA"
,L�#defaults,"atad esU"
,V$�#defaults,22,�select(save3%,22)
,`� I=30 � 38
,j"�#defaults,I,�select(save3%,I)
,t�
,~�#defaults,"eltit esU"
,�$�#defaults,25,�select(save3%,25)
,�� I=57 � 65
,�"�#defaults,I,�select(save3%,I)
,��
,��#defaults,"tnedni esU"
,�$�#defaults,26,�select(save3%,26)
,�� I=66 � 74
,�"�#defaults,I,�select(save3%,I)
,��
,��#defaults,"eltit tnednI"
,�"�#defaults,28,$�tad(save3%,28)
,�� I=84 � 92
- �#defaults,I,$�tad(save3%,I)
-
�
-�#defaults,"atad tnednI"
-"�#defaults,93,$�tad(save3%,93)
-(� I=103 � 111
-2 �#defaults,I,$�tad(save3%,I)
-<�
-F�#defaults,"dehsiniF"
-P� #defaults
-Z� �
-d�
-n��loaddefine
-x� �
-�9� � � �moan("Couldn't load define file : "+�$):� �TFl
-�&defaults=�("<AMFBase$Dir>.Define")
-��#defaults,start$
-�8� start$<>"eliF enifeD esaBFMA" � � 4,"Corrupt file"
-�� I=1 � 10
-��#defaults,name$(I)
-��
-��#defaults,start$
-�-� start$<>"dehsiniF" � � 4,"Corrupt file"
-�� #defaults
-�� �
-��setalldefine
-��
.��loadindent
.� �
.9� � � �moan("Couldn't load indent file : "+�$):� �TFl
."&defaults=�("<AMFBase$Dir>.Indent")
.,�#defaults,start$
.68� start$<>"eliF tnednI esaBFMA" � � 4,"Corrupt file"
.@�#defaults,a$
.J� I=29 � 38
.T�#defaults,i,v
.^�setindenticon(i,v)
.h�
.r�#defaults,a$
.|� I=56 � 65
.��#defaults,i,v
.��setindenticon(i,v)
.��
.��#defaults,a$
.�� I=65 � 74
.��#defaults,i,v
.��setindenticon(i,v)
.��
.��#defaults,a$
.�� I=102 � 111
.�&�#defaults,i,a$:$�tad(save3%,i)=a$
.��
.��#defaults,a$
/� I=102 � 111
/&�#defaults,i,a$:$�tad(save3%,i)=a$
/�
/&�#defaults,a$
/0� #defaults
/:� �
/D�
/N��setindenticon(i,v)
/XA� v � �alter(save3%,i,1<<21,1<<21) � �alter(save3%,i,0,1<<21)
/b�
�

00000000  0d 00 0a 1b f4 20 3e 24  2e 21 41 4d 46 42 61 73  |..... >$.!AMFBas|
00000010  65 2e 21 52 75 6e 49 6d  61 67 65 0d 00 14 2a f4  |e.!RunImage...*.|
00000020  20 4d 61 69 6e 20 70 72  6f 67 72 61 6d 20 63 6f  | Main program co|
00000030  64 65 20 66 6f 72 20 52  49 53 43 4f 53 20 41 4d  |de for RISCOS AM|
00000040  46 42 61 73 65 0d 00 1e  25 f4 20 56 65 72 73 69  |FBase...%. Versi|
00000050  6f 6e 20 31 2e 30 30 20  4c 61 73 74 20 55 70 64  |on 1.00 Last Upd|
00000060  61 74 65 20 32 2f 37 2f  39 31 0d 00 28 20 f4 20  |ate 2/7/91..( . |
00000070  a9 20 41 4d 46 20 74 68  65 20 44 6f 6f 6d 77 61  |. AMF the Doomwa|
00000080  74 63 68 65 72 20 31 39  39 31 0d 00 32 05 f4 0d  |tcher 1991..2...|
00000090  00 3c 05 3a 0d 00 46 37  de 20 62 6c 6f 63 6b 20  |.<.:..F7. block |
000000a0  26 32 30 30 30 2c 20 6d  65 6e 75 25 20 31 30 32  |&2000, menu% 102|
000000b0  34 2c 63 75 72 62 75 66  25 20 26 34 30 30 30 2c  |4,curbuf% &4000,|
000000c0  69 63 6f 6e 64 20 26 32  30 30 30 0d 00 50 05 3a  |icond &2000..P.:|
000000d0  0d 00 5a 19 65 6e 64 62  75 66 25 3d 63 75 72 62  |..Z.endbuf%=curb|
000000e0  75 66 25 2b 26 34 30 30  30 0d 00 64 43 c8 99 20  |uf%+&4000..dC.. |
000000f0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000100  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000110  22 41 4d 46 42 61 73 65  22 20 b8 20 76 65 72 73  |"AMFBase" . vers|
00000120  69 6f 6e 25 2c 6d 79 74  61 73 6b 25 0d 00 6e 0d  |ion%,mytask%..n.|
00000130  f2 74 65 6d 70 6c 61 74  65 0d 00 78 20 24 76 65  |.template..x $ve|
00000140  72 73 69 6f 6e 25 3d 22  31 2e 30 30 20 28 30 32  |rsion%="1.00 (02|
00000150  2d 4a 75 6c 2d 39 31 29  22 0d 00 82 43 69 6e 69  |-Jul-91)"...Cini|
00000160  74 69 63 3d a4 69 63 6f  6e 62 61 72 28 25 31 31  |tic=.iconbar(%11|
00000170  30 31 30 2c 2d 31 2c 37  2c 30 2c 22 21 41 4d 46  |010,-1,7,0,"!AMF|
00000180  42 61 73 65 22 2b bd 31  33 2c 30 2c 30 2c 30 2c  |Base"+.13,0,0,0,|
00000190  33 2c 30 2c 30 2c 36 38  2c 36 38 29 0d 00 8c 41  |3,0,0,68,68)...A|
000001a0  65 6e 64 25 3d a3 3a 64  72 61 67 25 3d 30 3a 73  |end%=.:drag%=0:s|
000001b0  61 76 69 6e 67 25 3d 30  3a 61 63 6b 25 3d a3 3a  |aving%=0:ack%=.:|
000001c0  6d 61 78 3d 32 35 36 3a  62 6f 74 3d 30 3a 63 75  |max=256:bot=0:cu|
000001d0  72 3d 31 3a 66 69 6e 64  63 75 72 3d 30 0d 00 96  |r=1:findcur=0...|
000001e0  49 66 69 6e 64 62 6f 74  3d 30 3a 73 74 61 67 65  |Ifindbot=0:stage|
000001f0  3d 31 3a 70 72 65 66 63  6f 6e 3d 2d 31 3a 70 72  |=1:prefcon=-1:pr|
00000200  65 66 6c 6f 61 64 3d 30  3a 70 72 65 66 6c 6f 61  |efload=0:prefloa|
00000210  64 24 3d 22 4e 6f 6e 65  22 3a 70 72 65 66 64 65  |d$="None":prefde|
00000220  66 69 6e 65 3d 30 0d 00  a0 41 70 72 65 66 69 6e  |fine=0...Aprefin|
00000230  64 65 6e 74 3d 30 3a 70  72 65 66 63 61 72 64 73  |dent=0:prefcards|
00000240  3d 32 35 36 3a 6d 61 78  3d 70 72 65 66 63 61 72  |=256:max=prefcar|
00000250  64 73 3a f2 6c 6f 61 64  70 72 65 66 73 3a f2 73  |ds:.loadprefs:.s|
00000260  65 74 70 72 65 66 73 0d  00 aa 07 ea 20 85 0d 00  |etprefs..... ...|
00000270  b4 1a ee 20 85 20 ea 20  f2 67 65 74 6f 75 74 61  |... . . .getouta|
00000280  6e 64 71 75 69 74 3a e0  0d 00 be 46 de 20 64 61  |ndquit:....F. da|
00000290  74 61 24 28 6d 61 78 2c  31 30 29 2c 6e 61 6d 65  |ta$(max,10),name|
000002a0  24 28 31 30 29 2c 73 6f  72 74 24 28 31 30 29 2c  |$(10),sort$(10),|
000002b0  66 6f 75 6e 64 28 6d 61  78 29 2c 66 69 6e 64 24  |found(max),find$|
000002c0  28 31 30 29 2c 70 75 7a  7a 6c 65 28 39 29 0d 00  |(10),puzzle(9)..|
000002d0  c8 07 f7 20 85 0d 00 d2  1d 6e 61 6d 65 24 28 29  |... .....name$()|
000002e0  3d 22 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |="12345678901234|
000002f0  35 22 0d 00 dc 0a f2 63  68 65 63 6b 0d 00 e6 2a  |5".....check...*|
00000300  e7 20 70 72 65 66 6c 6f  61 64 20 8c 20 6c 6f 61  |. prefload . loa|
00000310  64 24 3d 70 72 65 66 6c  6f 61 64 24 3a f2 6c 6f  |d$=prefload$:.lo|
00000320  61 64 66 69 6c 65 0d 00  f0 1e e7 20 70 72 65 66  |adfile..... pref|
00000330  64 65 66 69 6e 65 20 8c  20 f2 6c 6f 61 64 64 65  |define . .loadde|
00000340  66 69 6e 65 0d 00 fa 1e  e7 20 70 72 65 66 69 6e  |fine..... prefin|
00000350  64 65 6e 74 20 8c 20 f2  6c 6f 61 64 69 6e 64 65  |dent . .loadinde|
00000360  6e 74 0d 01 04 11 f2 73  65 74 64 61 74 61 28 63  |nt.....setdata(c|
00000370  75 72 29 0d 01 0e 05 3a  0d 01 18 05 f5 0d 01 22  |ur)....:......."|
00000380  26 c8 99 20 22 57 69 6d  70 5f 50 6f 6c 6c 22 2c  |&.. "Wimp_Poll",|
00000390  30 2c 62 6c 6f 63 6b 20  b8 20 65 76 65 6e 74 63  |0,block . eventc|
000003a0  6f 64 65 0d 01 2c 12 c8  8e 20 65 76 65 6e 74 63  |ode..,... eventc|
000003b0  6f 64 65 20 ca 0d 01 36  08 c9 20 30 3a 0d 01 40  |ode ...6.. 0:..@|
000003c0  2d c9 20 31 3a c8 99 20  22 57 69 6d 70 5f 52 65  |-. 1:.. "Wimp_Re|
000003d0  64 72 61 77 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |drawWindow",,blo|
000003e0  63 6b 20 b8 20 6d 6f 72  65 25 0d 01 4a 1c e7 20  |ck . more%..J.. |
000003f0  21 62 6c 6f 63 6b 3d 64  61 74 61 25 20 8c 20 f2  |!block=data% . .|
00000400  64 72 61 77 77 31 0d 01  54 23 c9 20 32 3a c8 99  |draww1..T#. 2:..|
00000410  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000420  77 22 2c 2c 62 6c 6f 63  6b 0d 01 5e 24 c9 20 33  |w",,block..^$. 3|
00000430  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
00000440  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 0d 01 68  |indow",,block..h|
00000450  17 c9 20 36 3a f2 62 75  74 74 6f 6e 73 28 62 6c  |.. 6:.buttons(bl|
00000460  6f 63 6b 29 0d 01 72 0d  c9 20 37 3a f2 64 72 61  |ock)..r.. 7:.dra|
00000470  67 0d 01 7c 13 c9 20 38  3a f2 70 72 6f 63 65 73  |g..|.. 8:.proces|
00000480  73 6b 65 79 0d 01 86 0f  c9 20 39 3a f2 64 65 63  |skey..... 9:.dec|
00000490  6f 64 65 0d 01 90 11 c9  20 31 37 2c 31 38 3a f2  |ode..... 17,18:.|
000004a0  6d 65 73 73 0d 01 9a 05  cb 0d 01 a4 0a fd 20 65  |mess.......... e|
000004b0  6e 64 25 0d 01 ae 05 e0  0d 01 b8 34 dd f2 6f 70  |nd%........4..op|
000004c0  65 6e 28 68 61 6e 64 6c  65 2c 76 6d 69 6e 78 2c  |en(handle,vminx,|
000004d0  76 6d 69 6e 79 2c 76 6d  61 78 78 2c 76 6d 61 78  |vminy,vmaxx,vmax|
000004e0  79 2c 78 6f 66 66 2c 79  6f 66 66 29 0d 01 c2 3c  |y,xoff,yoff)...<|
000004f0  21 62 6c 6f 63 6b 3d 68  61 6e 64 6c 65 3a 62 6c  |!block=handle:bl|
00000500  6f 63 6b 21 34 3d 76 6d  69 6e 78 3a 62 6c 6f 63  |ock!4=vminx:bloc|
00000510  6b 21 38 3d 76 6d 69 6e  79 3a 62 6c 6f 63 6b 21  |k!8=vminy:block!|
00000520  31 32 3d 76 6d 61 78 78  0d 01 cc 3a 62 6c 6f 63  |12=vmaxx...:bloc|
00000530  6b 21 31 36 3d 76 6d 61  78 79 3a 62 6c 6f 63 6b  |k!16=vmaxy:block|
00000540  21 32 30 3d 78 6f 66 66  3a 62 6c 6f 63 6b 21 32  |!20=xoff:block!2|
00000550  34 3d 79 6f 66 66 3a 62  6c 6f 63 6b 21 32 38 3d  |4=yoff:block!28=|
00000560  2d 31 0d 01 d6 1f c8 99  20 22 57 69 6d 70 5f 4f  |-1...... "Wimp_O|
00000570  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000580  6b 0d 01 e0 05 e1 0d 01  ea 4b dd a4 69 63 6f 6e  |k........K..icon|
00000590  62 61 72 28 66 6c 61 67  73 2c 70 61 72 74 2c 66  |bar(flags,part,f|
000005a0  6f 72 2c 62 61 63 2c 64  61 74 61 24 2c 61 64 64  |or,bac,data$,add|
000005b0  2c 61 64 64 32 2c 6c 65  6e 67 74 68 2c 6d 6f 75  |,add2,length,mou|
000005c0  73 65 2c 78 73 31 2c 79  73 31 2c 78 73 2c 79 73  |se,xs1,ys1,xs,ys|
000005d0  29 0d 01 f4 0f 21 69 63  6f 6e 64 3d 70 61 72 74  |)....!icond=part|
000005e0  0d 01 fe 0f 69 63 6f 6e  64 21 34 3d 78 73 31 0d  |....icond!4=xs1.|
000005f0  02 08 27 69 63 6f 6e 64  21 38 3d 79 73 31 3a 69  |..'icond!8=ys1:i|
00000600  63 6f 6e 64 21 31 32 3d  78 73 3a 69 63 6f 6e 64  |cond!12=xs:icond|
00000610  21 31 36 3d 79 73 0d 02  12 35 69 63 6f 6e 64 21  |!16=ys...5icond!|
00000620  32 30 3d 66 6c 61 67 73  2b 28 28 32 5e 31 32 29  |20=flags+((2^12)|
00000630  2a 6d 6f 75 73 65 29 3a  69 63 6f 6e 64 3f 32 33  |*mouse):icond?23|
00000640  3d 66 6f 72 2b 62 61 63  2a 31 36 0d 02 1c 50 e7  |=for+bac*16...P.|
00000650  20 64 61 74 61 24 3c 3e  22 22 20 8c 20 24 28 69  | data$<>"" . $(i|
00000660  63 6f 6e 64 2b 32 34 29  3d 64 61 74 61 24 20 8b  |cond+24)=data$ .|
00000670  20 69 63 6f 6e 64 21 32  34 3d 61 64 64 3a 69 63  | icond!24=add:ic|
00000680  6f 6e 64 21 32 38 3d 61  64 64 32 3a 69 63 6f 6e  |ond!28=add2:icon|
00000690  64 21 33 32 3d 6c 65 6e  67 74 68 0d 02 26 26 c8  |d!32=length..&&.|
000006a0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000006b0  6f 6e 22 2c 2c 69 63 6f  6e 64 20 b8 20 69 63 6f  |on",,icond . ico|
000006c0  6e 0d 02 30 09 3d 69 63  6f 6e 0d 02 3a 12 dd a4  |n..0.=icon..:...|
000006d0  74 65 6d 70 6c 61 74 65  28 61 24 29 0d 02 44 47  |template(a$)..DG|
000006e0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000006f0  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 2c 69 6e  |plate",,block,in|
00000700  64 69 72 2c 65 6e 64 62  75 66 25 2c 2d 31 2c 61  |dir,endbuf%,-1,a|
00000710  24 2c 30 20 b8 20 2c 2c  69 6e 64 69 72 2c 2c 2c  |$,0 . ,,indir,,,|
00000720  2c 63 25 0d 02 4e 32 e7  20 63 25 3d 30 20 8c 20  |,c%..N2. c%=0 . |
00000730  f2 6d 6f 61 6e 28 22 54  65 6d 70 6c 61 74 65 20  |.moan("Template |
00000740  22 3b 61 24 3b 22 20 6e  6f 74 20 66 6f 75 6e 64  |";a$;" not found|
00000750  2e 22 29 3a e0 0d 02 58  0e 62 6c 6f 63 6b 21 36  |."):...X.block!6|
00000760  34 3d 31 0d 02 62 2a c8  99 20 22 57 69 6d 70 5f  |4=1..b*.. "Wimp_|
00000770  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000780  6c 6f 63 6b 20 b8 20 68  61 6e 64 6c 65 0d 02 6c  |lock . handle..l|
00000790  0b 3d 68 61 6e 64 6c 65  0d 02 76 0e dd f2 6d 6f  |.=handle..v...mo|
000007a0  61 6e 28 61 24 29 0d 02  80 1d 21 69 63 6f 6e 64  |an(a$)....!icond|
000007b0  3d 30 3a 24 28 69 63 6f  6e 64 2b 34 29 3d 61 24  |=0:$(icond+4)=a$|
000007c0  2b bd 30 0d 02 8a 2b c8  99 20 22 57 69 6d 70 5f  |+.0...+.. "Wimp_|
000007d0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 69 63 6f  |ReportError",ico|
000007e0  6e 64 2c 31 2c 22 41 4d  46 42 61 73 65 22 0d 02  |nd,1,"AMFBase"..|
000007f0  94 05 e1 0d 02 9e 0d dd  a4 73 74 72 28 61 25 29  |.........str(a%)|
00000800  0d 02 a8 08 ea 20 62 24  0d 02 b2 0e c8 95 20 3f  |..... b$...... ?|
00000810  61 25 3e 3d 33 32 0d 02  bc 0e 62 24 2b 3d bd 28  |a%>=32....b$+=.(|
00000820  3f 61 25 29 0d 02 c6 09  61 25 2b 3d 31 0d 02 d0  |?a%)....a%+=1...|
00000830  05 ce 0d 02 da 07 3d 62  24 0d 02 e4 16 dd a4 74  |......=b$......t|
00000840  61 64 28 68 61 6e 64 6c  65 2c 69 63 6f 6e 29 0d  |ad(handle,icon).|
00000850  02 ee 15 f2 67 69 69 28  68 61 6e 64 6c 65 2c 69  |....gii(handle,i|
00000860  63 6f 6e 29 0d 02 f8 0d  3d 69 63 6f 6e 64 21 32  |con)....=icond!2|
00000870  38 0d 03 02 16 dd f2 67  69 69 28 68 61 6e 64 6c  |8......gii(handl|
00000880  65 2c 69 63 6f 6e 29 0d  03 0c 1e 21 69 63 6f 6e  |e,icon)....!icon|
00000890  64 3d 68 61 6e 64 6c 65  3a 69 63 6f 6e 64 21 34  |d=handle:icond!4|
000008a0  3d 69 63 6f 6e 0d 03 16  21 c8 99 20 22 57 69 6d  |=icon...!.. "Wim|
000008b0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000008c0  2c 69 63 6f 6e 64 0d 03  20 05 e1 0d 03 2a 19 dd  |,icond.. ....*..|
000008d0  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 68 61 6e 64  |.openwindow(hand|
000008e0  6c 65 25 29 0d 03 34 12  21 69 63 6f 6e 64 3d 68  |le%)..4.!icond=h|
000008f0  61 6e 64 6c 65 25 0d 03  3e 22 c8 99 20 22 57 69  |andle%..>".. "Wi|
00000900  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
00000910  22 2c 2c 69 63 6f 6e 64  0d 03 48 1f c8 99 20 22  |",,icond..H... "|
00000920  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000930  2c 2c 69 63 6f 6e 64 0d  03 52 05 e1 0d 03 5c 20  |,,icond..R....\ |
00000940  dd f2 61 6c 74 65 72 28  68 61 6e 64 2c 69 63 6f  |..alter(hand,ico|
00000950  6e 2c 65 6f 72 2c 63 6c  65 61 72 29 0d 03 66 1c  |n,eor,clear)..f.|
00000960  21 69 63 6f 6e 64 3d 68  61 6e 64 3a 69 63 6f 6e  |!icond=hand:icon|
00000970  64 21 34 3d 69 63 6f 6e  0d 03 70 1e 69 63 6f 6e  |d!4=icon..p.icon|
00000980  64 21 38 3d 65 6f 72 3a  69 63 6f 6e 64 21 31 32  |d!8=eor:icond!12|
00000990  3d 63 6c 65 61 72 0d 03  7a 21 c8 99 20 22 57 69  |=clear..z!.. "Wi|
000009a0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000009b0  2c 2c 69 63 6f 6e 64 0d  03 84 05 e1 0d 03 8e 12  |,,icond.........|
000009c0  dd f2 73 74 61 74 65 28  77 69 2c 69 63 29 0d 03  |..state(wi,ic)..|
000009d0  98 18 21 62 6c 6f 63 6b  3d 77 69 3a 62 6c 6f 63  |..!block=wi:bloc|
000009e0  6b 21 34 3d 69 63 0d 03  a2 21 c8 99 20 22 57 69  |k!4=ic...!.. "Wi|
000009f0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000a00  2c 2c 62 6c 6f 63 6b 0d  03 ac 05 e1 0d 03 b6 13  |,,block.........|
00000a10  dd a4 73 65 6c 65 63 74  28 77 69 2c 69 63 29 0d  |..select(wi,ic).|
00000a20  03 c0 11 f2 73 74 61 74  65 28 77 69 2c 69 63 29  |....state(wi,ic)|
00000a30  0d 03 ca 22 e7 20 28 28  62 6c 6f 63 6b 21 32 34  |...". ((block!24|
00000a40  29 20 80 20 31 3c 3c 32  31 29 3e 30 20 8c 20 3d  |) . 1<<21)>0 . =|
00000a50  2d 31 0d 03 d4 06 3d 30  0d 03 de 0d dd a4 62 69  |-1....=0......bi|
00000a60  74 28 61 24 29 0d 03 e8  11 c8 95 20 a7 61 24 2c  |t(a$)...... .a$,|
00000a70  22 3a 22 29 3e 30 0d 03  f2 16 61 24 3d c1 61 24  |":")>0....a$=.a$|
00000a80  2c a7 61 24 2c 22 3a 22  29 2b 31 29 0d 03 fc 05  |,.a$,":")+1)....|
00000a90  ce 0d 04 06 11 c8 95 20  a7 61 24 2c 22 2e 22 29  |....... .a$,".")|
00000aa0  3e 30 0d 04 10 16 61 24  3d c1 61 24 2c a7 61 24  |>0....a$=.a$,.a$|
00000ab0  2c 22 2e 22 29 2b 31 29  0d 04 1a 05 ce 0d 04 24  |,".")+1).......$|
00000ac0  07 3d 61 24 0d 04 2e 13  dd f2 6f 70 65 6e 6d 65  |.=a$......openme|
00000ad0  6e 75 28 78 2c 79 29 0d  04 38 26 c8 99 20 22 57  |nu(x,y)..8&.. "W|
00000ae0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00000af0  2c 74 6f 70 6d 65 6e 75  25 2c 78 2c 79 0d 04 42  |,topmenu%,x,y..B|
00000b00  05 e1 0d 04 4c 1e dd a4  6d 65 6e 75 28 74 69 74  |....L...menu(tit|
00000b10  6c 65 24 2c 77 69 64 74  68 2c 6d 65 6e 75 24 29  |le$,width,menu$)|
00000b20  0d 04 56 0e 6d 65 6e 75  24 2b 3d 22 2c 22 0d 04  |..V.menu$+=","..|
00000b30  60 13 6f 6c 64 6d 65 6e  75 3d 6d 65 6e 75 70 74  |`.oldmenu=menupt|
00000b40  72 0d 04 6a 13 24 6d 65  6e 75 70 74 72 3d 74 69  |r..j.$menuptr=ti|
00000b50  74 6c 65 24 0d 04 74 10  6d 65 6e 75 70 74 72 3f  |tle$..t.menuptr?|
00000b60  31 32 3d 37 0d 04 7e 10  6d 65 6e 75 70 74 72 3f  |12=7..~.menuptr?|
00000b70  31 33 3d 32 0d 04 88 10  6d 65 6e 75 70 74 72 3f  |13=2....menuptr?|
00000b80  31 34 3d 37 0d 04 92 10  6d 65 6e 75 70 74 72 3f  |14=7....menuptr?|
00000b90  31 35 3d 30 0d 04 9c 14  6d 65 6e 75 70 74 72 21  |15=0....menuptr!|
00000ba0  31 36 3d 77 69 64 74 68  0d 04 a6 11 6d 65 6e 75  |16=width....menu|
00000bb0  70 74 72 21 32 30 3d 34  38 0d 04 b0 10 6d 65 6e  |ptr!20=48....men|
00000bc0  75 70 74 72 21 32 34 3d  30 0d 04 ba 0f 6d 65 6e  |uptr!24=0....men|
00000bd0  75 70 74 72 2b 3d 32 38  0d 04 c4 05 f5 0d 04 ce  |uptr+=28........|
00000be0  10 f2 69 74 65 6d 28 6d  65 6e 75 24 29 0d 04 d8  |..item(menu$)...|
00000bf0  1f 6d 65 6e 75 24 3d c1  6d 65 6e 75 24 2c a7 6d  |.menu$=.menu$,.m|
00000c00  65 6e 75 24 2c 22 2c 22  29 2b 31 29 0d 04 e2 0f  |enu$,",")+1)....|
00000c10  6d 65 6e 75 70 74 72 2b  3d 32 34 0d 04 ec 0e fd  |menuptr+=24.....|
00000c20  20 6d 65 6e 75 24 3d 22  22 0d 04 f6 29 6d 65 6e  | menu$=""...)men|
00000c30  75 70 74 72 21 2d 32 34  3d 28 6d 65 6e 75 70 74  |uptr!-24=(menupt|
00000c40  72 21 2d 32 34 29 20 84  20 25 31 30 30 30 30 30  |r!-24) . %100000|
00000c50  30 30 0d 05 00 0c 3d 6f  6c 64 6d 65 6e 75 0d 05  |00....=oldmenu..|
00000c60  0a 0e dd f2 69 74 65 6d  28 6d 24 29 0d 05 14 16  |....item(m$)....|
00000c70  6d 24 3d c0 6d 24 2c a7  6d 24 2c 22 2c 22 29 2d  |m$=.m$,.m$,",")-|
00000c80  31 29 0d 05 1e 0f 69 24  3d 22 22 3a 6a 24 3d 22  |1)....i$="":j$="|
00000c90  22 0d 05 28 12 e7 20 a7  6d 24 2c 22 5b 22 29 3e  |"..(.. .m$,"[")>|
00000ca0  30 20 8c 0d 05 32 16 69  24 3d c0 6d 24 2c a7 6d  |0 ...2.i$=.m$,.m|
00000cb0  24 2c 22 5d 22 29 2d 31  29 0d 05 3c 16 6d 24 3d  |$,"]")-1)..<.m$=|
00000cc0  c1 6d 24 2c a7 6d 24 2c  22 5d 22 29 2b 31 29 0d  |.m$,.m$,"]")+1).|
00000cd0  05 46 16 6a 24 3d c0 69  24 2c a7 69 24 2c 22 2f  |.F.j$=.i$,.i$,"/|
00000ce0  22 29 2d 31 29 0d 05 50  16 69 24 3d c1 69 24 2c  |")-1)..P.i$=.i$,|
00000cf0  a7 69 24 2c 22 2f 22 29  2b 31 29 0d 05 5a 05 cd  |.i$,"/")+1)..Z..|
00000d00  0d 05 64 14 69 66 6c 61  67 73 3d 26 30 37 30 30  |..d.iflags=&0700|
00000d10  30 30 32 31 0d 05 6e 0c  6d 66 6c 61 67 73 3d 30  |0021..n.mflags=0|
00000d20  0d 05 78 0e 73 75 62 6d  65 6e 75 3d 2d 31 0d 05  |..x.submenu=-1..|
00000d30  82 20 e7 20 a7 6a 24 2c  22 77 22 29 3e 30 20 8c  |. . .j$,"w")>0 .|
00000d40  20 73 75 62 6d 65 6e 75  3d a0 28 69 24 29 0d 05  | submenu=.(i$)..|
00000d50  8c 20 e7 20 a7 6a 24 2c  22 73 22 29 3e 30 20 8c  |. . .j$,"s")>0 .|
00000d60  20 73 75 62 6d 65 6e 75  3d a0 28 69 24 29 0d 05  | submenu=.(i$)..|
00000d70  96 24 e7 20 a7 6a 24 2c  22 74 22 29 3e 30 20 8c  |.$. .j$,"t")>0 .|
00000d80  20 6d 66 6c 61 67 73 3d  6d 66 6c 61 67 73 20 84  | mflags=mflags .|
00000d90  20 31 0d 05 a0 24 e7 20  a7 6a 24 2c 22 6c 22 29  | 1...$. .j$,"l")|
00000da0  3e 30 20 8c 20 6d 66 6c  61 67 73 3d 6d 66 6c 61  |>0 . mflags=mfla|
00000db0  67 73 20 84 20 32 0d 05  aa 28 e7 20 a7 6a 24 2c  |gs . 2...(. .j$,|
00000dc0  22 6e 22 29 3e 30 20 8c  20 69 66 6c 61 67 73 3d  |"n")>0 . iflags=|
00000dd0  69 66 6c 61 67 73 20 84  20 31 3c 3c 32 32 0d 05  |iflags . 1<<22..|
00000de0  b4 13 21 6d 65 6e 75 70  74 72 3d 6d 66 6c 61 67  |..!menuptr=mflag|
00000df0  73 0d 05 be 15 6d 65 6e  75 70 74 72 21 34 3d 73  |s....menuptr!4=s|
00000e00  75 62 6d 65 6e 75 0d 05  c8 14 6d 65 6e 75 70 74  |ubmenu....menupt|
00000e10  72 21 38 3d 69 66 6c 61  67 73 0d 05 d2 14 24 28  |r!8=iflags....$(|
00000e20  6d 65 6e 75 70 74 72 2b  31 32 29 3d 6d 24 0d 05  |menuptr+12)=m$..|
00000e30  dc 05 e1 0d 05 e6 09 dd  f2 69 73 64 0d 05 f0 10  |.........isd....|
00000e40  21 62 6c 6f 63 6b 3d 73  61 76 65 25 0d 05 fa 23  |!block=save%...#|
00000e50  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00000e60  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 0d  |owState",,block.|
00000e70  06 04 1b 79 73 69 7a 65  25 3d 62 6c 6f 63 6b 21  |...ysize%=block!|
00000e80  31 36 2d 62 6c 6f 63 6b  21 38 0d 06 0e 23 78 25  |16-block!8...#x%|
00000e90  3d 62 6c 6f 63 6b 21 34  3a 79 25 3d 62 6c 6f 63  |=block!4:y%=bloc|
00000ea0  6b 21 38 3a 62 6c 6f 63  6b 21 34 3d 39 0d 06 18  |k!8:block!4=9...|
00000eb0  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |!.. "Wimp_GetIco|
00000ec0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 0d 06  |nState",,block..|
00000ed0  22 23 62 6c 6f 63 6b 21  38 2b 3d 78 25 3a 62 6c  |"#block!8+=x%:bl|
00000ee0  6f 63 6b 21 31 32 2b 3d  79 25 2b 79 73 69 7a 65  |ock!12+=y%+ysize|
00000ef0  25 0d 06 2c 24 62 6c 6f  63 6b 21 31 36 2b 3d 78  |%..,$block!16+=x|
00000f00  25 3a 62 6c 6f 63 6b 21  32 30 2b 3d 79 25 2b 79  |%:block!20+=y%+y|
00000f10  73 69 7a 65 25 0d 06 36  35 62 6c 6f 63 6b 21 32  |size%..65block!2|
00000f20  34 3d 30 3a 62 6c 6f 63  6b 21 32 38 3d 30 3a 62  |4=0:block!28=0:b|
00000f30  6c 6f 63 6b 21 33 32 3d  31 32 37 39 3a 62 6c 6f  |lock!32=1279:blo|
00000f40  63 6b 21 33 36 3d 31 30  32 33 0d 06 40 29 21 62  |ck!36=1023..@)!b|
00000f50  6c 6f 63 6b 3d 30 3a 62  6c 6f 63 6b 21 34 3d 35  |lock=0:block!4=5|
00000f60  3a 64 72 61 67 25 3d b9  3a 73 61 76 69 6e 67 25  |:drag%=.:saving%|
00000f70  3d 2d 31 0d 06 4a 1c c8  99 20 22 57 69 6d 70 5f  |=-1..J... "Wimp_|
00000f80  44 72 61 67 42 6f 78 22  2c 2c 62 6c 6f 63 6b 0d  |DragBox",,block.|
00000f90  06 54 05 e1 0d 06 5e 0a  dd f2 69 73 64 32 0d 06  |.T....^...isd2..|
00000fa0  68 11 21 62 6c 6f 63 6b  3d 73 61 76 65 32 25 0d  |h.!block=save2%.|
00000fb0  06 72 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.r#.. "Wimp_GetW|
00000fc0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00000fd0  63 6b 0d 06 7c 1b 79 73  69 7a 65 25 3d 62 6c 6f  |ck..|.ysize%=blo|
00000fe0  63 6b 21 31 36 2d 62 6c  6f 63 6b 21 38 0d 06 86  |ck!16-block!8...|
00000ff0  23 78 25 3d 62 6c 6f 63  6b 21 34 3a 79 25 3d 62  |#x%=block!4:y%=b|
00001000  6c 6f 63 6b 21 38 3a 62  6c 6f 63 6b 21 34 3d 39  |lock!8:block!4=9|
00001010  0d 06 90 21 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...!.. "Wimp_Get|
00001020  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00001030  6b 0d 06 9a 23 62 6c 6f  63 6b 21 38 2b 3d 78 25  |k...#block!8+=x%|
00001040  3a 62 6c 6f 63 6b 21 31  32 2b 3d 79 25 2b 79 73  |:block!12+=y%+ys|
00001050  69 7a 65 25 0d 06 a4 24  62 6c 6f 63 6b 21 31 36  |ize%...$block!16|
00001060  2b 3d 78 25 3a 62 6c 6f  63 6b 21 32 30 2b 3d 79  |+=x%:block!20+=y|
00001070  25 2b 79 73 69 7a 65 25  0d 06 ae 35 62 6c 6f 63  |%+ysize%...5bloc|
00001080  6b 21 32 34 3d 30 3a 62  6c 6f 63 6b 21 32 38 3d  |k!24=0:block!28=|
00001090  30 3a 62 6c 6f 63 6b 21  33 32 3d 31 32 37 39 3a  |0:block!32=1279:|
000010a0  62 6c 6f 63 6b 21 33 36  3d 31 30 32 33 0d 06 b8  |block!36=1023...|
000010b0  29 21 62 6c 6f 63 6b 3d  30 3a 62 6c 6f 63 6b 21  |)!block=0:block!|
000010c0  34 3d 35 3a 64 72 61 67  25 3d b9 3a 73 61 76 69  |4=5:drag%=.:savi|
000010d0  6e 67 25 3d 2d 32 0d 06  c2 1c c8 99 20 22 57 69  |ng%=-2...... "Wi|
000010e0  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 62 6c 6f  |mp_DragBox",,blo|
000010f0  63 6b 0d 06 cc 05 e1 0d  06 d6 0a dd f2 69 73 64  |ck...........isd|
00001100  33 0d 06 e0 11 21 62 6c  6f 63 6b 3d 73 61 76 65  |3....!block=save|
00001110  33 25 0d 06 ea 23 c8 99  20 22 57 69 6d 70 5f 47  |3%...#.. "Wimp_G|
00001120  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001130  62 6c 6f 63 6b 0d 06 f4  1b 79 73 69 7a 65 25 3d  |block....ysize%=|
00001140  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 38  |block!16-block!8|
00001150  0d 06 fe 23 78 25 3d 62  6c 6f 63 6b 21 34 3a 79  |...#x%=block!4:y|
00001160  25 3d 62 6c 6f 63 6b 21  38 3a 62 6c 6f 63 6b 21  |%=block!8:block!|
00001170  34 3d 39 0d 07 08 21 c8  99 20 22 57 69 6d 70 5f  |4=9...!.. "Wimp_|
00001180  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00001190  6c 6f 63 6b 0d 07 12 23  62 6c 6f 63 6b 21 38 2b  |lock...#block!8+|
000011a0  3d 78 25 3a 62 6c 6f 63  6b 21 31 32 2b 3d 79 25  |=x%:block!12+=y%|
000011b0  2b 79 73 69 7a 65 25 0d  07 1c 24 62 6c 6f 63 6b  |+ysize%...$block|
000011c0  21 31 36 2b 3d 78 25 3a  62 6c 6f 63 6b 21 32 30  |!16+=x%:block!20|
000011d0  2b 3d 79 25 2b 79 73 69  7a 65 25 0d 07 26 35 62  |+=y%+ysize%..&5b|
000011e0  6c 6f 63 6b 21 32 34 3d  30 3a 62 6c 6f 63 6b 21  |lock!24=0:block!|
000011f0  32 38 3d 30 3a 62 6c 6f  63 6b 21 33 32 3d 31 32  |28=0:block!32=12|
00001200  37 39 3a 62 6c 6f 63 6b  21 33 36 3d 31 30 32 33  |79:block!36=1023|
00001210  0d 07 30 29 21 62 6c 6f  63 6b 3d 30 3a 62 6c 6f  |..0)!block=0:blo|
00001220  63 6b 21 34 3d 35 3a 64  72 61 67 25 3d b9 3a 73  |ck!4=5:drag%=.:s|
00001230  61 76 69 6e 67 25 3d 2d  33 0d 07 3a 1c c8 99 20  |aving%=-3..:... |
00001240  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00001250  62 6c 6f 63 6b 0d 07 44  05 e1 0d 07 4e 0a dd f2  |block..D....N...|
00001260  64 72 61 67 0d 07 58 12  e7 20 73 61 76 69 6e 67  |drag..X.. saving|
00001270  25 3d 2d 31 20 8c 0d 07  62 23 c8 99 20 22 57 69  |%=-1 ...b#.. "Wi|
00001280  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001290  6f 22 2c 2c 62 6c 6f 63  6b 0d 07 6c 24 62 6c 6f  |o",,block..l$blo|
000012a0  63 6b 21 33 32 3d 62 6c  6f 63 6b 21 34 3a 62 6c  |ck!32=block!4:bl|
000012b0  6f 63 6b 21 32 38 3d 21  62 6c 6f 63 6b 0d 07 76  |ock!28=!block..v|
000012c0  27 62 6c 6f 63 6b 21 32  34 3d 62 6c 6f 63 6b 21  |'block!24=block!|
000012d0  31 36 3a 62 6c 6f 63 6b  21 32 30 3d 62 6c 6f 63  |16:block!20=bloc|
000012e0  6b 21 31 32 0d 07 80 2f  62 6c 6f 63 6b 21 31 36  |k!12.../block!16|
000012f0  3d 31 3a 62 6c 6f 63 6b  21 31 32 3d 30 3a 62 6c  |=1:block!12=0:bl|
00001300  6f 63 6b 21 33 36 3d 30  3a 62 6c 6f 63 6b 21 34  |ock!36=0:block!4|
00001310  30 3d 30 0d 07 8a 29 e3  20 49 3d 30 20 b8 20 32  |0=0...). I=0 . 2|
00001320  35 35 3a e7 20 49 3f 73  74 65 78 74 3c 33 32 20  |55:. I?stext<32 |
00001330  8c 20 49 3f 73 74 65 78  74 3d 31 33 0d 07 94 05  |. I?stext=13....|
00001340  ed 0d 07 9e 29 24 28 62  6c 6f 63 6b 2b 34 34 29  |....)$(block+44)|
00001350  3d a4 62 69 74 28 24 73  74 65 78 74 29 2b bd 30  |=.bit($stext)+.0|
00001360  3a 21 62 6c 6f 63 6b 3d  36 30 0d 07 a8 2b c8 99  |:!block=60...+..|
00001370  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00001380  67 65 22 2c 31 37 2c 62  6c 6f 63 6b 2c 62 6c 6f  |ge",17,block,blo|
00001390  63 6b 21 32 30 0d 07 b2  0b 64 72 61 67 25 3d 30  |ck!20....drag%=0|
000013a0  0d 07 bc 05 cd 0d 07 c6  12 e7 20 73 61 76 69 6e  |.......... savin|
000013b0  67 25 3d 2d 32 20 8c 0d  07 d0 23 c8 99 20 22 57  |g%=-2 ....#.. "W|
000013c0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000013d0  66 6f 22 2c 2c 62 6c 6f  63 6b 0d 07 da 24 62 6c  |fo",,block...$bl|
000013e0  6f 63 6b 21 33 32 3d 62  6c 6f 63 6b 21 34 3a 62  |ock!32=block!4:b|
000013f0  6c 6f 63 6b 21 32 38 3d  21 62 6c 6f 63 6b 0d 07  |lock!28=!block..|
00001400  e4 27 62 6c 6f 63 6b 21  32 34 3d 62 6c 6f 63 6b  |.'block!24=block|
00001410  21 31 36 3a 62 6c 6f 63  6b 21 32 30 3d 62 6c 6f  |!16:block!20=blo|
00001420  63 6b 21 31 32 0d 07 ee  2f 62 6c 6f 63 6b 21 31  |ck!12.../block!1|
00001430  36 3d 31 3a 62 6c 6f 63  6b 21 31 32 3d 30 3a 62  |6=1:block!12=0:b|
00001440  6c 6f 63 6b 21 33 36 3d  30 3a 62 6c 6f 63 6b 21  |lock!36=0:block!|
00001450  34 30 3d 30 0d 07 f8 2b  e3 20 49 3d 30 20 b8 20  |40=0...+. I=0 . |
00001460  32 35 35 3a e7 20 49 3f  73 74 65 78 74 32 3c 33  |255:. I?stext2<3|
00001470  32 20 8c 20 49 3f 73 74  65 78 74 32 3d 31 33 0d  |2 . I?stext2=13.|
00001480  08 02 05 ed 0d 08 0c 2a  24 28 62 6c 6f 63 6b 2b  |.......*$(block+|
00001490  34 34 29 3d a4 62 69 74  28 24 73 74 65 78 74 32  |44)=.bit($stext2|
000014a0  29 2b bd 30 3a 21 62 6c  6f 63 6b 3d 36 30 0d 08  |)+.0:!block=60..|
000014b0  16 2b c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |.+.. "Wimp_SendM|
000014c0  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
000014d0  2c 62 6c 6f 63 6b 21 32  30 0d 08 20 0b 64 72 61  |,block!20.. .dra|
000014e0  67 25 3d 30 0d 08 2a 05  cd 0d 08 34 12 e7 20 73  |g%=0..*....4.. s|
000014f0  61 76 69 6e 67 25 3d 2d  33 20 8c 0d 08 3e 23 c8  |aving%=-3 ...>#.|
00001500  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00001510  65 72 49 6e 66 6f 22 2c  2c 62 6c 6f 63 6b 0d 08  |erInfo",,block..|
00001520  48 24 62 6c 6f 63 6b 21  33 32 3d 62 6c 6f 63 6b  |H$block!32=block|
00001530  21 34 3a 62 6c 6f 63 6b  21 32 38 3d 21 62 6c 6f  |!4:block!28=!blo|
00001540  63 6b 0d 08 52 27 62 6c  6f 63 6b 21 32 34 3d 62  |ck..R'block!24=b|
00001550  6c 6f 63 6b 21 31 36 3a  62 6c 6f 63 6b 21 32 30  |lock!16:block!20|
00001560  3d 62 6c 6f 63 6b 21 31  32 0d 08 5c 2f 62 6c 6f  |=block!12..\/blo|
00001570  63 6b 21 31 36 3d 31 3a  62 6c 6f 63 6b 21 31 32  |ck!16=1:block!12|
00001580  3d 30 3a 62 6c 6f 63 6b  21 33 36 3d 30 3a 62 6c  |=0:block!36=0:bl|
00001590  6f 63 6b 21 34 30 3d 30  0d 08 66 2b e3 20 49 3d  |ock!40=0..f+. I=|
000015a0  30 20 b8 20 32 35 35 3a  e7 20 49 3f 73 74 65 78  |0 . 255:. I?stex|
000015b0  74 33 3c 33 32 20 8c 20  49 3f 73 74 65 78 74 33  |t3<32 . I?stext3|
000015c0  3d 31 33 0d 08 70 05 ed  0d 08 7a 2a 24 28 62 6c  |=13..p....z*$(bl|
000015d0  6f 63 6b 2b 34 34 29 3d  a4 62 69 74 28 24 73 74  |ock+44)=.bit($st|
000015e0  65 78 74 33 29 2b bd 30  3a 21 62 6c 6f 63 6b 3d  |ext3)+.0:!block=|
000015f0  36 30 0d 08 84 2b c8 99  20 22 57 69 6d 70 5f 53  |60...+.. "Wimp_S|
00001600  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
00001610  6c 6f 63 6b 2c 62 6c 6f  63 6b 21 32 30 0d 08 8e  |lock,block!20...|
00001620  0b 64 72 61 67 25 3d 30  0d 08 98 05 cd 0d 08 a2  |.drag%=0........|
00001630  05 e1 0d 08 ac 14 dd f2  62 75 74 74 6f 6e 73 28  |........buttons(|
00001640  62 6c 6f 63 6b 29 0d 08  b6 11 69 63 6f 6e 3d 62  |block)....icon=b|
00001650  6c 6f 63 6b 21 31 36 0d  08 c0 26 e7 20 62 6c 6f  |lock!16...&. blo|
00001660  63 6b 21 31 32 3d 2d 32  20 80 20 62 6c 6f 63 6b  |ck!12=-2 . block|
00001670  21 38 3d 32 20 f2 6d 65  6e 75 73 3a e1 0d 08 ca  |!8=2 .menus:....|
00001680  33 e7 20 62 6c 6f 63 6b  21 31 32 3d 2d 32 20 80  |3. block!12=-2 .|
00001690  20 62 6c 6f 63 6b 21 38  3c 3e 32 20 f2 6f 70 65  | block!8<>2 .ope|
000016a0  6e 77 69 6e 64 6f 77 28  64 61 74 61 25 29 3a e1  |nwindow(data%):.|
000016b0  0d 08 d4 2a e7 20 62 6c  6f 63 6b 21 31 32 3d 64  |...*. block!12=d|
000016c0  61 74 61 25 20 80 20 62  6c 6f 63 6b 21 38 3d 32  |ata% . block!8=2|
000016d0  20 f2 6d 65 6e 75 73 32  3a e1 0d 08 de 26 e7 20  | .menus2:....&. |
000016e0  62 6c 6f 63 6b 21 31 32  3d 73 61 76 65 25 20 80  |block!12=save% .|
000016f0  20 62 6c 6f 63 6b 21 31  36 3d 39 20 f2 69 73 64  | block!16=9 .isd|
00001700  0d 08 e8 28 e7 20 62 6c  6f 63 6b 21 31 32 3d 73  |...(. block!12=s|
00001710  61 76 65 32 25 20 80 20  62 6c 6f 63 6b 21 31 36  |ave2% . block!16|
00001720  3d 39 20 f2 69 73 64 32  0d 08 f2 28 e7 20 62 6c  |=9 .isd2...(. bl|
00001730  6f 63 6b 21 31 32 3d 73  61 76 65 33 25 20 80 20  |ock!12=save3% . |
00001740  62 6c 6f 63 6b 21 31 36  3d 39 20 f2 69 73 64 33  |block!16=9 .isd3|
00001750  0d 08 fc 36 e7 20 62 6c  6f 63 6b 21 31 32 3d 73  |...6. block!12=s|
00001760  61 76 65 25 20 80 20 62  6c 6f 63 6b 21 31 36 3d  |ave% . block!16=|
00001770  38 20 8c 20 f2 73 61 76  65 28 a4 73 74 72 28 73  |8 . .save(.str(s|
00001780  74 65 78 74 29 29 0d 09  06 39 e7 20 62 6c 6f 63  |text))...9. bloc|
00001790  6b 21 31 32 3d 73 61 76  65 32 25 20 80 20 62 6c  |k!12=save2% . bl|
000017a0  6f 63 6b 21 31 36 3d 38  20 8c 20 f2 73 61 76 65  |ock!16=8 . .save|
000017b0  32 28 a4 73 74 72 28 73  74 65 78 74 32 29 29 0d  |2(.str(stext2)).|
000017c0  09 10 39 e7 20 62 6c 6f  63 6b 21 31 32 3d 73 61  |..9. block!12=sa|
000017d0  76 65 33 25 20 80 20 62  6c 6f 63 6b 21 31 36 3d  |ve3% . block!16=|
000017e0  38 20 8c 20 f2 73 61 76  65 33 28 a4 73 74 72 28  |8 . .save3(.str(|
000017f0  73 74 65 78 74 33 29 29  0d 09 1a 21 e7 20 62 6c  |stext3))...!. bl|
00001800  6f 63 6b 21 31 32 3d 64  61 74 61 25 20 8c 20 f2  |ock!12=data% . .|
00001810  64 61 74 61 63 6c 69 63  6b 0d 09 24 21 e7 20 62  |dataclick..$!. b|
00001820  6c 6f 63 6b 21 31 32 3d  73 6f 72 74 25 20 8c 20  |lock!12=sort% . |
00001830  f2 73 6f 72 74 63 6c 69  63 6b 0d 09 2e 21 e7 20  |.sortclick...!. |
00001840  62 6c 6f 63 6b 21 31 32  3d 66 69 6e 64 25 20 8c  |block!12=find% .|
00001850  20 f2 66 69 6e 64 63 6c  69 63 6b 0d 09 38 25 e7  | .findclick..8%.|
00001860  20 62 6c 6f 63 6b 21 31  32 3d 64 65 66 69 6e 65  | block!12=define|
00001870  25 20 8c 20 f2 64 65 66  69 6e 65 63 6c 69 63 6b  |% . .defineclick|
00001880  0d 09 42 2f e7 20 62 6c  6f 63 6b 21 31 32 3d 70  |..B/. block!12=p|
00001890  72 65 66 65 72 65 6e 63  65 73 25 20 8c 20 f2 70  |references% . .p|
000018a0  72 65 66 65 72 65 6e 63  65 73 63 6c 69 63 6b 0d  |referencesclick.|
000018b0  09 4c 25 e7 20 62 6c 6f  63 6b 21 31 32 3d 70 75  |.L%. block!12=pu|
000018c0  7a 7a 6c 65 25 20 8c 20  f2 70 75 7a 7a 6c 65 63  |zzle% . .puzzlec|
000018d0  6c 69 63 6b 0d 09 56 27  e7 20 62 6c 6f 63 6b 21  |lick..V'. block!|
000018e0  31 32 3d 63 6f 6e 66 69  72 6d 25 20 8c 20 f2 63  |12=confirm% . .c|
000018f0  6f 6e 66 69 72 6d 63 6c  69 63 6b 0d 09 60 05 e1  |onfirmclick..`..|
00001900  0d 09 6a 10 dd f2 70 72  6f 63 65 73 73 6b 65 79  |..j...processkey|
00001910  0d 09 74 31 e7 20 62 6c  6f 63 6b 21 30 3d 73 61  |..t1. block!0=sa|
00001920  76 65 25 20 80 20 62 6c  6f 63 6b 21 32 34 3d 31  |ve% . block!24=1|
00001930  33 20 8c 20 f2 73 61 76  65 28 24 73 74 65 78 74  |3 . .save($stext|
00001940  29 0d 09 7e 34 e7 20 62  6c 6f 63 6b 21 30 3d 73  |)..~4. block!0=s|
00001950  61 76 65 32 25 20 80 20  62 6c 6f 63 6b 21 32 34  |ave2% . block!24|
00001960  3d 31 33 20 8c 20 f2 73  61 76 65 32 28 24 73 74  |=13 . .save2($st|
00001970  65 78 74 32 29 0d 09 88  42 e7 20 62 6c 6f 63 6b  |ext2)...B. block|
00001980  21 30 3d 73 61 76 65 33  25 20 80 20 62 6c 6f 63  |!0=save3% . bloc|
00001990  6b 21 32 34 3d 31 33 20  80 20 62 6c 6f 63 6b 21  |k!24=13 . block!|
000019a0  34 3d 30 20 8c 20 f2 73  61 76 65 33 28 24 73 74  |4=0 . .save3($st|
000019b0  65 78 74 33 29 3a e1 0d  09 92 1e e7 20 62 6c 6f  |ext3):...... blo|
000019c0  63 6b 21 30 3d 64 61 74  61 25 20 8c 20 f2 64 61  |ck!0=data% . .da|
000019d0  74 61 6b 65 79 0d 09 9c  1e e7 20 62 6c 6f 63 6b  |takey..... block|
000019e0  21 30 3d 66 69 6e 64 25  20 8c 20 f2 66 69 6e 64  |!0=find% . .find|
000019f0  6b 65 79 0d 09 a6 22 e7  20 62 6c 6f 63 6b 21 30  |key...". block!0|
00001a00  3d 64 65 66 69 6e 65 25  20 8c 20 f2 64 65 66 69  |=define% . .defi|
00001a10  6e 65 6b 65 79 0d 09 b0  20 e7 20 62 6c 6f 63 6b  |nekey... . block|
00001a20  21 30 3d 73 61 76 65 33  25 20 8c 20 f2 73 61 76  |!0=save3% . .sav|
00001a30  65 33 6b 65 79 0d 09 ba  21 c8 99 20 22 57 69 6d  |e3key...!.. "Wim|
00001a40  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 62 6c  |p_ProcessKey",bl|
00001a50  6f 63 6b 21 32 34 0d 09  c4 05 e1 0d 09 ce 0b dd  |ock!24..........|
00001a60  f2 6d 65 6e 75 73 0d 09  d8 10 6d 65 6e 75 6f 70  |.menus....menuop|
00001a70  65 6e 3d 2d 34 34 0d 09  e2 11 6d 65 6e 75 70 74  |en=-44....menupt|
00001a80  72 3d 6d 65 6e 75 25 0d  09 ec 0c c8 97 20 78 2c  |r=menu%...... x,|
00001a90  79 2c 62 0d 09 f6 50 74  6f 70 6d 65 6e 75 25 3d  |y,b...Ptopmenu%=|
00001aa0  a4 6d 65 6e 75 28 22 41  4d 46 42 61 73 65 22 2c  |.menu("AMFBase",|
00001ab0  32 30 30 2c 22 5b 77 2f  69 6e 66 6f 25 5d 49 6e  |200,"[w/info%]In|
00001ac0  66 6f 2c 50 72 65 66 65  72 65 6e 63 65 73 2c 5b  |fo,Preferences,[|
00001ad0  77 2f 73 61 76 65 25 5d  53 61 76 65 2c 51 75 69  |w/save%]Save,Qui|
00001ae0  74 22 29 0d 0a 00 18 f2  6f 70 65 6e 6d 65 6e 75  |t").....openmenu|
00001af0  28 78 2d 31 30 30 2c 32  38 38 29 0d 0a 0a 05 e1  |(x-100,288).....|
00001b00  0d 0a 14 0c dd f2 6d 65  6e 75 73 32 0d 0a 1e 32  |......menus2...2|
00001b10  24 a4 74 61 64 28 73 61  76 65 32 25 2c 32 32 29  |$.tad(save2%,22)|
00001b20  3d 22 31 22 3a 24 a4 74  61 64 28 73 61 76 65 32  |="1":$.tad(save2|
00001b30  25 2c 32 33 29 3d c3 28  62 6f 74 2b 31 29 0d 0a  |%,23)=.(bot+1)..|
00001b40  28 34 24 a4 74 61 64 28  73 61 76 65 33 25 2c 31  |(4$.tad(save3%,1|
00001b50  32 34 29 3d 22 31 22 3a  24 a4 74 61 64 28 73 61  |24)="1":$.tad(sa|
00001b60  76 65 33 25 2c 31 32 35  29 3d c3 28 62 6f 74 2b  |ve3%,125)=.(bot+|
00001b70  31 29 0d 0a 32 10 6d 65  6e 75 6f 70 65 6e 3d 2d  |1)..2.menuopen=-|
00001b80  34 35 0d 0a 3c 11 6d 65  6e 75 70 74 72 3d 6d 65  |45..<.menuptr=me|
00001b90  6e 75 25 0d 0a 46 0c c8  97 20 78 2c 79 2c 62 0d  |nu%..F... x,y,b.|
00001ba0  0a 50 4a 73 6d 65 6e 75  25 3d a4 6d 65 6e 75 28  |.PJsmenu%=.menu(|
00001bb0  22 53 61 76 65 22 2c 31  35 30 2c 22 5b 77 2f 73  |"Save",150,"[w/s|
00001bc0  61 76 65 25 5d 44 61 74  61 2c 5b 77 2f 73 61 76  |ave%]Data,[w/sav|
00001bd0  65 32 25 5d 50 61 72 74  2c 5b 77 2f 73 61 76 65  |e2%]Part,[w/save|
00001be0  33 25 5d 54 65 78 74 22  29 0d 0a 5a 45 74 6f 70  |3%]Text")..ZEtop|
00001bf0  6d 65 6e 75 25 3d a4 6d  65 6e 75 28 22 41 4d 46  |menu%=.menu("AMF|
00001c00  42 61 73 65 22 2c 31 35  30 2c 22 5b 77 2f 69 6e  |Base",150,"[w/in|
00001c10  66 6f 25 5d 49 6e 66 6f  2c 5b 77 2f 73 6d 65 6e  |fo%]Info,[w/smen|
00001c20  75 25 5d 53 61 76 65 2c  51 75 69 74 22 29 0d 0a  |u%]Save,Quit")..|
00001c30  64 15 f2 6f 70 65 6e 6d  65 6e 75 28 78 2d 37 35  |d..openmenu(x-75|
00001c40  2c 79 29 0d 0a 6e 05 e1  0d 0a 78 0c dd f2 64 65  |,y)..n....x...de|
00001c50  63 6f 64 65 0d 0a 82 2e  c8 99 20 22 57 69 6d 70  |code...... "Wimp|
00001c60  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 2c 74 6f  |_DecodeMenu",,to|
00001c70  70 6d 65 6e 75 25 2c 62  6c 6f 63 6b 2c 69 63 6f  |pmenu%,block,ico|
00001c80  6e 64 0d 0a 8c 1c e7 20  24 69 63 6f 6e 64 3d 22  |nd..... $icond="|
00001c90  51 75 69 74 22 20 8c 20  65 6e 64 25 3d b9 0d 0a  |Quit" . end%=...|
00001ca0  96 36 e7 20 24 69 63 6f  6e 64 3d 22 50 72 65 66  |.6. $icond="Pref|
00001cb0  65 72 65 6e 63 65 73 22  20 8c 20 f2 6f 70 65 6e  |erences" . .open|
00001cc0  77 69 6e 64 6f 77 28 70  72 65 66 65 72 65 6e 63  |window(preferenc|
00001cd0  65 73 25 29 0d 0a a0 23  c8 99 20 22 57 69 6d 70  |es%)...#.. "Wimp|
00001ce0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00001cf0  2c 2c 62 6c 6f 63 6b 0d  0a aa 11 e7 20 62 6c 6f  |,,block..... blo|
00001d00  63 6b 21 38 3d 31 20 8c  0d 0a b4 25 e7 20 6d 65  |ck!8=1 ....%. me|
00001d10  6e 75 6f 70 65 6e 3d 2d  34 34 20 8c 20 f2 6d 65  |nuopen=-44 . .me|
00001d20  6e 75 73 20 8b 20 f2 6d  65 6e 75 73 32 0d 0a be  |nus . .menus2...|
00001d30  22 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |".. "Wimp_Create|
00001d40  4d 65 6e 75 22 2c 2c 74  6f 70 6d 65 6e 75 25 0d  |Menu",,topmenu%.|
00001d50  0a c8 05 cc 0d 0a d2 1c  c8 99 20 22 57 69 6d 70  |.......... "Wimp|
00001d60  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
00001d70  0d 0a dc 05 cd 0d 0a e6  05 e1 0d 0a f0 0e dd f2  |................|
00001d80  74 65 6d 70 6c 61 74 65  0d 0a fa 35 c8 99 20 22  |template...5.. "|
00001d90  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00001da0  65 22 2c 2c 22 3c 41 4d  46 42 61 73 65 24 44 69  |e",,"<AMFBase$Di|
00001db0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 0b 04  |r>.Templates"...|
00001dc0  11 69 6e 64 69 72 3d 63  75 72 62 75 66 25 0d 0b  |.indir=curbuf%..|
00001dd0  0e 1f 69 6e 66 6f 25 3d  a4 74 65 6d 70 6c 61 74  |..info%=.templat|
00001de0  65 28 22 50 72 6f 67 49  6e 66 6f 22 29 0d 0b 18  |e("ProgInfo")...|
00001df0  1b 73 61 76 65 25 3d a4  74 65 6d 70 6c 61 74 65  |.save%=.template|
00001e00  28 22 53 61 76 65 22 29  0d 0b 22 1d 73 61 76 65  |("Save")..".save|
00001e10  32 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 53 61  |2%=.template("Sa|
00001e20  76 65 32 22 29 0d 0b 2c  1d 73 61 76 65 33 25 3d  |ve2")..,.save3%=|
00001e30  a4 74 65 6d 70 6c 61 74  65 28 22 53 61 76 65 33  |.template("Save3|
00001e40  22 29 0d 0b 36 1b 64 61  74 61 25 3d a4 74 65 6d  |")..6.data%=.tem|
00001e50  70 6c 61 74 65 28 22 44  61 74 61 22 29 0d 0b 40  |plate("Data")..@|
00001e60  1b 73 6f 72 74 25 3d a4  74 65 6d 70 6c 61 74 65  |.sort%=.template|
00001e70  28 22 53 6f 72 74 22 29  0d 0b 4a 1b 66 69 6e 64  |("Sort")..J.find|
00001e80  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 46 69 6e  |%=.template("Fin|
00001e90  64 22 29 0d 0b 54 1f 64  65 66 69 6e 65 25 3d a4  |d")..T.define%=.|
00001ea0  74 65 6d 70 6c 61 74 65  28 22 44 65 66 69 6e 65  |template("Define|
00001eb0  22 29 0d 0b 5e 1f 70 75  7a 7a 6c 65 25 3d a4 74  |")..^.puzzle%=.t|
00001ec0  65 6d 70 6c 61 74 65 28  22 50 75 7a 7a 6c 65 22  |emplate("Puzzle"|
00001ed0  29 0d 0b 68 29 70 72 65  66 65 72 65 6e 63 65 73  |)..h)preferences|
00001ee0  25 3d a4 74 65 6d 70 6c  61 74 65 28 22 50 72 65  |%=.template("Pre|
00001ef0  66 65 72 65 6e 63 65 73  22 29 0d 0b 72 27 63 6f  |ferences")..r'co|
00001f00  6e 76 65 6e 74 69 6f 6e  25 3d a4 74 65 6d 70 6c  |nvention%=.templ|
00001f10  61 74 65 28 22 43 6f 6e  76 65 6e 74 69 6f 6e 22  |ate("Convention"|
00001f20  29 0d 0b 7c 25 61 6d 66  77 69 6e 64 6f 77 25 3d  |)..|%amfwindow%=|
00001f30  a4 74 65 6d 70 6c 61 74  65 28 22 41 4d 46 57 69  |.template("AMFWi|
00001f40  6e 64 6f 77 22 29 0d 0b  86 24 63 6f 6e 66 69 72  |ndow")...$confir|
00001f50  6d 25 3d a4 74 65 6d 70  6c 61 74 65 28 22 43 6f  |m%=.template("Co|
00001f60  6e 66 69 72 6d 44 65 6c  22 29 0d 0b 90 1b c8 99  |nfirmDel")......|
00001f70  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
00001f80  6c 61 74 65 22 0d 0b 9a  17 73 74 65 78 74 3d a4  |late"....stext=.|
00001f90  74 61 64 28 73 61 76 65  25 2c 30 29 0d 0b a4 19  |tad(save%,0)....|
00001fa0  73 74 65 78 74 32 3d a4  74 61 64 28 73 61 76 65  |stext2=.tad(save|
00001fb0  32 25 2c 30 29 0d 0b ae  19 73 74 65 78 74 33 3d  |2%,0)....stext3=|
00001fc0  a4 74 61 64 28 73 61 76  65 33 25 2c 30 29 0d 0b  |.tad(save3%,0)..|
00001fd0  b8 1b 76 65 72 73 69 6f  6e 25 3d a4 74 61 64 28  |..version%=.tad(|
00001fe0  69 6e 66 6f 25 2c 31 32  29 0d 0b c2 05 e1 0d 0b  |info%,12).......|
00001ff0  cc 0a dd f2 6d 65 73 73  0d 0b d6 1c 74 61 73 6b  |....mess....task|
00002000  3d 62 6c 6f 63 6b 21 34  3a 72 65 66 3d 62 6c 6f  |=block!4:ref=blo|
00002010  63 6b 21 38 0d 0b e0 11  c8 8e 20 62 6c 6f 63 6b  |ck!8...... block|
00002020  21 31 36 20 ca 0d 0b ea  0e c9 20 30 3a 65 6e 64  |!16 ...... 0:end|
00002030  25 3d b9 0d 0b f4 08 c9  20 32 3a 0d 0b fe 12 e7  |%=...... 2:.....|
00002040  20 73 61 76 69 6e 67 25  3d 2d 31 20 8c 0d 0c 08  | saving%=-1 ....|
00002050  19 f2 73 61 76 65 28 a4  73 74 72 28 62 6c 6f 63  |..save(.str(bloc|
00002060  6b 2b 34 34 29 29 0d 0c  12 05 cd 0d 0c 1c 12 e7  |k+44))..........|
00002070  20 73 61 76 69 6e 67 25  3d 2d 32 20 8c 0d 0c 26  | saving%=-2 ...&|
00002080  1a f2 73 61 76 65 32 28  a4 73 74 72 28 62 6c 6f  |..save2(.str(blo|
00002090  63 6b 2b 34 34 29 29 0d  0c 30 05 cd 0d 0c 3a 12  |ck+44))..0....:.|
000020a0  e7 20 73 61 76 69 6e 67  25 3d 2d 33 20 8c 0d 0c  |. saving%=-3 ...|
000020b0  44 1a f2 73 61 76 65 33  28 a4 73 74 72 28 62 6c  |D..save3(.str(bl|
000020c0  6f 63 6b 2b 34 34 29 29  0d 0c 4e 05 cd 0d 0c 58  |ock+44))..N....X|
000020d0  08 c9 20 33 3a 0d 0c 62  18 6c 6f 61 64 24 3d a4  |.. 3:..b.load$=.|
000020e0  73 74 72 28 62 6c 6f 63  6b 2b 34 34 29 0d 0c 6c  |str(block+44)..l|
000020f0  15 e7 20 62 6c 6f 63 6b  21 34 30 3d 26 46 46 44  |.. block!40=&FFD|
00002100  20 8c 0d 0c 76 31 ea 20  85 3a ee 20 85 20 ea 20  | ...v1. .:. . . |
00002110  f2 6d 6f 61 6e 28 22 43  6f 75 6c 64 6e 27 74 20  |.moan("Couldn't |
00002120  6c 6f 61 64 20 3a 20 22  2b f6 24 29 3a e5 20 8d  |load : "+.$):. .|
00002130  74 5e 4c 0d 0c 80 15 c8  99 20 22 48 6f 75 72 67  |t^L...... "Hourg|
00002140  6c 61 73 73 5f 4f 6e 22  0d 0c 8a 0d f2 6c 6f 61  |lass_On".....loa|
00002150  64 66 69 6c 65 0d 0c 94  16 c8 99 20 22 48 6f 75  |dfile...... "Hou|
00002160  72 67 6c 61 73 73 5f 4f  66 66 22 0d 0c 9e 07 f7  |rglass_Off".....|
00002170  20 85 0d 0c a8 05 cd 0d  0c b2 0e c9 20 34 3a 61  | ........... 4:a|
00002180  63 6b 25 3d a3 0d 0c bc  05 cb 0d 0c c6 05 e1 0d  |ck%=............|
00002190  0c d0 0b dd f2 63 6d 65  6e 75 0d 0c da 23 c8 99  |.....cmenu...#..|
000021a0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
000021b0  72 49 6e 66 6f 22 2c 2c  69 63 6f 6e 64 0d 0c e4  |rInfo",,icond...|
000021c0  11 e7 20 69 63 6f 6e 64  21 38 3d 31 20 8c 0d 0c  |.. icond!8=1 ...|
000021d0  ee 1a e7 20 6d 65 6e 75  6f 70 65 6e 3d 2d 34 34  |... menuopen=-44|
000021e0  20 8c 20 f2 6d 65 6e 75  0d 0c f8 22 c8 99 20 22  | . .menu...".. "|
000021f0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00002200  2c 2c 74 6f 70 6d 65 6e  75 25 0d 0d 02 05 cc 0d  |,,topmenu%......|
00002210  0d 0c 1c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..... "Wimp_Crea|
00002220  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 0d 16 05 cd  |teMenu",,-1.....|
00002230  0d 0d 20 05 e1 0d 0d 2a  0e dd f2 73 61 76 65 28  |.. ....*...save(|
00002240  61 24 29 0d 0d 34 5c e7  20 a7 61 24 2c 22 2e 22  |a$)..4\. .a$,"."|
00002250  29 3c 31 20 80 20 a7 61  24 2c 22 3a 22 29 3c 31  |)<1 . .a$,":")<1|
00002260  20 8c 20 f2 6d 6f 61 6e  28 22 54 6f 20 73 61 76  | . .moan("To sav|
00002270  65 2c 20 64 72 61 67 20  74 68 65 20 73 61 76 65  |e, drag the save|
00002280  20 69 63 6f 6e 20 74 6f  20 61 20 64 69 72 65 63  | icon to a direc|
00002290  74 6f 72 79 20 76 69 65  77 65 72 22 29 3a e1 0d  |tory viewer"):..|
000022a0  0d 3e 07 ea 20 85 0d 0d  48 36 ee 20 85 20 ea 20  |.>.. ...H6. . . |
000022b0  f2 6d 6f 61 6e 28 22 43  6f 75 6c 64 6e 27 74 20  |.moan("Couldn't |
000022c0  73 61 76 65 20 3a 20 22  2b f6 24 2b 22 20 22 2b  |save : "+.$+" "+|
000022d0  c3 28 9e 29 29 3a e5 20  8d 54 5a 4e 0d 0d 52 0c  |.(.)):. .TZN..R.|
000022e0  73 61 76 65 24 3d 61 24  0d 0d 5c 0e 66 69 6c 65  |save$=a$..\.file|
000022f0  3d ae 28 61 24 29 0d 0d  66 19 f1 23 66 69 6c 65  |=.(a$)..f..#file|
00002300  2c 22 65 6c 69 46 20 65  73 61 42 46 4d 41 22 0d  |,"eliF esaBFMA".|
00002310  0d 70 0e f1 23 66 69 6c  65 2c 62 6f 74 0d 0d 7a  |.p..#file,bot..z|
00002320  0e f1 23 66 69 6c 65 2c  63 75 72 0d 0d 84 0e f1  |..#file,cur.....|
00002330  23 66 69 6c 65 2c 6d 61  78 0d 0d 8e 0e e3 20 49  |#file,max..... I|
00002340  3d 31 20 b8 20 31 30 0d  0d 98 13 f1 23 66 69 6c  |=1 . 10.....#fil|
00002350  65 2c 6e 61 6d 65 24 28  49 29 0d 0d a2 05 ed 0d  |e,name$(I)......|
00002360  0d ac 11 e3 20 49 3d 31  20 b8 20 62 6f 74 2b 31  |.... I=1 . bot+1|
00002370  0d 0d b6 0e e3 20 4a 3d  31 20 b8 20 31 30 0d 0d  |..... J=1 . 10..|
00002380  c0 15 f1 23 66 69 6c 65  2c 64 61 74 61 24 28 49  |...#file,data$(I|
00002390  2c 4a 29 0d 0d ca 05 ed  0d 0d d4 05 ed 0d 0d de  |,J).............|
000023a0  15 f1 23 66 69 6c 65 2c  22 64 65 68 73 69 6e 69  |..#file,"dehsini|
000023b0  46 22 0d 0d e8 0a d9 23  66 69 6c 65 0d 0d f2 1b  |F".....#file....|
000023c0  ff 28 22 53 45 54 54 59  50 45 20 22 2b 61 24 2b  |.("SETTYPE "+a$+|
000023d0  22 20 46 46 44 22 29 0d  0d fc 0a f2 63 6d 65 6e  |" FFD").....cmen|
000023e0  75 0d 0e 06 10 24 73 74  65 78 74 3d 73 61 76 65  |u....$stext=save|
000023f0  24 0d 0e 10 0e 6d 6f 64  69 66 69 65 64 3d 30 0d  |$....modified=0.|
00002400  0e 1a 07 f7 20 85 0d 0e  24 05 e1 0d 0e 2e 0f dd  |.... ...$.......|
00002410  f2 73 61 76 65 32 28 61  24 29 0d 0e 38 5c e7 20  |.save2(a$)..8\. |
00002420  a7 61 24 2c 22 2e 22 29  3c 31 20 80 20 a7 61 24  |.a$,".")<1 . .a$|
00002430  2c 22 3a 22 29 3c 31 20  8c 20 f2 6d 6f 61 6e 28  |,":")<1 . .moan(|
00002440  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
00002450  68 65 20 73 61 76 65 20  69 63 6f 6e 20 74 6f 20  |he save icon to |
00002460  61 20 64 69 72 65 63 74  6f 72 79 20 76 69 65 77  |a directory view|
00002470  65 72 22 29 3a e1 0d 0e  42 1d 73 74 61 72 74 3d  |er"):...B.start=|
00002480  bb 28 24 a4 74 61 64 28  73 61 76 65 32 25 2c 32  |.($.tad(save2%,2|
00002490  32 29 29 0d 0e 4c 1b 65  6e 64 3d bb 28 24 a4 74  |2))..L.end=.($.t|
000024a0  61 64 28 73 61 76 65 32  25 2c 32 33 29 29 0d 0e  |ad(save2%,23))..|
000024b0  56 0e 73 61 76 65 74 79  70 65 3d 30 0d 0e 60 2c  |V.savetype=0..`,|
000024c0  e7 20 a4 73 65 6c 65 63  74 28 73 61 76 65 32 25  |. .select(save2%|
000024d0  2c 31 30 29 20 8c 20 73  61 76 65 74 79 70 65 3d  |,10) . savetype=|
000024e0  31 3a e5 20 8d 44 6e 4f  0d 0e 6a 25 e7 20 a4 73  |1:. .DnO..j%. .s|
000024f0  65 6c 65 63 74 28 73 61  76 65 32 25 2c 31 31 29  |elect(save2%,11)|
00002500  20 8c 20 73 61 76 65 74  79 70 65 3d 32 0d 0e 74  | . savetype=2..t|
00002510  37 e7 20 a4 73 65 6c 65  63 74 28 73 61 76 65 32  |7. .select(save2|
00002520  25 2c 32 31 29 20 8c 20  73 61 76 65 74 79 70 65  |%,21) . savetype|
00002530  3d 33 3a 73 74 61 72 74  3d 31 3a 65 6e 64 3d 62  |=3:start=1:end=b|
00002540  6f 74 2b 31 0d 0e 7e 43  e7 20 73 61 76 65 74 79  |ot+1..~C. savety|
00002550  70 65 3d 30 20 8c 20 f2  6d 6f 61 6e 28 22 43 6f  |pe=0 . .moan("Co|
00002560  75 6c 64 6e 27 74 20 73  61 76 65 20 3a 20 4e 6f  |uldn't save : No|
00002570  20 73 61 76 65 20 74 79  70 65 20 73 65 6c 65 63  | save type selec|
00002580  74 65 64 22 29 3a e1 0d  0e 88 07 ea 20 85 0d 0e  |ted"):...... ...|
00002590  92 36 ee 20 85 20 ea 20  f2 6d 6f 61 6e 28 22 43  |.6. . . .moan("C|
000025a0  6f 75 6c 64 6e 27 74 20  73 61 76 65 20 3a 20 22  |ouldn't save : "|
000025b0  2b f6 24 2b 22 20 22 2b  c3 28 9e 29 29 3a e5 20  |+.$+" "+.(.)):. |
000025c0  8d 54 5a 4e 0d 0e 9c 0c  73 61 76 65 24 3d 61 24  |.TZN....save$=a$|
000025d0  0d 0e a6 0e 66 69 6c 65  3d ae 28 61 24 29 0d 0e  |....file=.(a$)..|
000025e0  b0 19 f1 23 66 69 6c 65  2c 22 65 6c 69 46 20 65  |...#file,"eliF e|
000025f0  73 61 42 46 4d 41 22 0d  0e ba 14 f1 23 66 69 6c  |saBFMA".....#fil|
00002600  65 2c 65 6e 64 2d 73 74  61 72 74 0d 0e c4 0c f1  |e,end-start.....|
00002610  23 66 69 6c 65 2c 31 0d  0e ce 0e f1 23 66 69 6c  |#file,1.....#fil|
00002620  65 2c 6d 61 78 0d 0e d8  0e e3 20 49 3d 31 20 b8  |e,max..... I=1 .|
00002630  20 31 30 0d 0e e2 13 f1  23 66 69 6c 65 2c 6e 61  | 10.....#file,na|
00002640  6d 65 24 28 49 29 0d 0e  ec 05 ed 0d 0e f6 13 e3  |me$(I)..........|
00002650  20 49 3d 73 74 61 72 74  20 b8 20 65 6e 64 0d 0f  | I=start . end..|
00002660  00 0e e3 20 4a 3d 31 20  b8 20 31 30 0d 0f 0a 15  |... J=1 . 10....|
00002670  f1 23 66 69 6c 65 2c 64  61 74 61 24 28 49 2c 4a  |.#file,data$(I,J|
00002680  29 0d 0f 14 05 ed 0d 0f  1e 05 ed 0d 0f 28 15 f1  |)............(..|
00002690  23 66 69 6c 65 2c 22 64  65 68 73 69 6e 69 46 22  |#file,"dehsiniF"|
000026a0  0d 0f 32 0a d9 23 66 69  6c 65 0d 0f 3c 1b ff 28  |..2..#file..<..(|
000026b0  22 53 45 54 54 59 50 45  20 22 2b 61 24 2b 22 20  |"SETTYPE "+a$+" |
000026c0  46 46 44 22 29 0d 0f 46  0a f2 63 6d 65 6e 75 0d  |FFD")..F..cmenu.|
000026d0  0f 50 11 24 73 74 65 78  74 32 3d 73 61 76 65 24  |.P.$stext2=save$|
000026e0  0d 0f 5a 07 f7 20 85 0d  0f 64 05 e1 0d 0f 6e 07  |..Z.. ...d....n.|
000026f0  ea 20 85 0d 0f 78 36 ee  20 85 20 ea 20 f2 6d 6f  |. ...x6. . . .mo|
00002700  61 6e 28 22 43 6f 75 6c  64 6e 27 74 20 73 61 76  |an("Couldn't sav|
00002710  65 20 3a 20 22 2b f6 24  2b 22 20 22 2b c3 28 9e  |e : "+.$+" "+.(.|
00002720  29 29 3a e5 20 8d 54 5a  4e 0d 0f 82 0c 73 61 76  |)):. .TZN....sav|
00002730  65 24 3d 61 24 0d 0f 8c  0e 66 69 6c 65 3d ae 28  |e$=a$....file=.(|
00002740  61 24 29 0d 0f 96 19 f1  23 66 69 6c 65 2c 22 65  |a$).....#file,"e|
00002750  6c 69 46 20 65 73 61 42  46 4d 41 22 0d 0f a0 14  |liF esaBFMA"....|
00002760  f1 23 66 69 6c 65 2c 66  69 6e 64 62 6f 74 2d 31  |.#file,findbot-1|
00002770  0d 0f aa 12 f1 23 66 69  6c 65 2c 66 69 6e 64 63  |.....#file,findc|
00002780  75 72 0d 0f b4 0e f1 23  66 69 6c 65 2c 6d 61 78  |ur.....#file,max|
00002790  0d 0f be 0e e3 20 49 3d  31 20 b8 20 31 30 0d 0f  |..... I=1 . 10..|
000027a0  c8 13 f1 23 66 69 6c 65  2c 6e 61 6d 65 24 28 49  |...#file,name$(I|
000027b0  29 0d 0f d2 05 ed 0d 0f  dc 13 e3 20 49 3d 31 20  |).......... I=1 |
000027c0  b8 20 66 69 6e 64 62 6f  74 0d 0f e6 0e e3 20 4a  |. findbot..... J|
000027d0  3d 31 20 b8 20 31 30 0d  0f f0 1c f1 23 66 69 6c  |=1 . 10.....#fil|
000027e0  65 2c 64 61 74 61 24 28  66 6f 75 6e 64 28 49 29  |e,data$(found(I)|
000027f0  2c 4a 29 0d 0f fa 05 ed  0d 10 04 05 ed 0d 10 0e  |,J).............|
00002800  15 f1 23 66 69 6c 65 2c  22 64 65 68 73 69 6e 69  |..#file,"dehsini|
00002810  46 22 0d 10 18 0a d9 23  66 69 6c 65 0d 10 22 1b  |F".....#file..".|
00002820  ff 28 22 53 45 54 54 59  50 45 20 22 2b 61 24 2b  |.("SETTYPE "+a$+|
00002830  22 20 46 46 44 22 29 0d  10 2c 0a f2 63 6d 65 6e  |" FFD")..,..cmen|
00002840  75 0d 10 36 11 24 73 74  65 78 74 32 3d 73 61 76  |u..6.$stext2=sav|
00002850  65 24 0d 10 40 07 f7 20  85 0d 10 4a 05 e1 0d 10  |e$..@.. ...J....|
00002860  54 0f dd f2 73 61 76 65  33 28 61 24 29 0d 10 5e  |T...save3(a$)..^|
00002870  5c e7 20 a7 61 24 2c 22  2e 22 29 3c 31 20 80 20  |\. .a$,".")<1 . |
00002880  a7 61 24 2c 22 3a 22 29  3c 31 20 8c 20 f2 6d 6f  |.a$,":")<1 . .mo|
00002890  61 6e 28 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |an("To save, dra|
000028a0  67 20 74 68 65 20 73 61  76 65 20 69 63 6f 6e 20  |g the save icon |
000028b0  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
000028c0  69 65 77 65 72 22 29 3a  e1 0d 10 68 1e 73 74 61  |iewer"):...h.sta|
000028d0  72 74 3d bb 28 24 a4 74  61 64 28 73 61 76 65 33  |rt=.($.tad(save3|
000028e0  25 2c 31 32 34 29 29 0d  10 72 1c 65 6e 64 3d bb  |%,124))..r.end=.|
000028f0  28 24 a4 74 61 64 28 73  61 76 65 33 25 2c 31 32  |($.tad(save3%,12|
00002900  35 29 29 0d 10 7c 0e 73  61 76 65 74 79 70 65 3d  |5))..|.savetype=|
00002910  30 0d 10 86 25 e7 20 a4  73 65 6c 65 63 74 28 73  |0...%. .select(s|
00002920  61 76 65 33 25 2c 31 30  29 20 8c 20 73 61 76 65  |ave3%,10) . save|
00002930  74 79 70 65 3d 31 0d 10  90 25 e7 20 a4 73 65 6c  |type=1...%. .sel|
00002940  65 63 74 28 73 61 76 65  33 25 2c 31 31 29 20 8c  |ect(save3%,11) .|
00002950  20 73 61 76 65 74 79 70  65 3d 32 0d 10 9a 37 e7  | savetype=2...7.|
00002960  20 a4 73 65 6c 65 63 74  28 73 61 76 65 33 25 2c  | .select(save3%,|
00002970  32 31 29 20 8c 20 73 61  76 65 74 79 70 65 3d 33  |21) . savetype=3|
00002980  3a 73 74 61 72 74 3d 31  3a 65 6e 64 3d 62 6f 74  |:start=1:end=bot|
00002990  2b 31 0d 10 a4 43 e7 20  73 61 76 65 74 79 70 65  |+1...C. savetype|
000029a0  3d 30 20 8c 20 f2 6d 6f  61 6e 28 22 43 6f 75 6c  |=0 . .moan("Coul|
000029b0  64 6e 27 74 20 73 61 76  65 20 3a 20 4e 6f 20 73  |dn't save : No s|
000029c0  61 76 65 20 74 79 70 65  20 73 65 6c 65 63 74 65  |ave type selecte|
000029d0  64 22 29 3a e1 0d 10 ae  07 ea 20 85 0d 10 b8 36  |d"):...... ....6|
000029e0  ee 20 85 20 ea 20 f2 6d  6f 61 6e 28 22 43 6f 75  |. . . .moan("Cou|
000029f0  6c 64 6e 27 74 20 73 61  76 65 20 3a 20 22 2b f6  |ldn't save : "+.|
00002a00  24 2b 22 20 22 2b c3 28  9e 29 29 3a e5 20 8d 54  |$+" "+.(.)):. .T|
00002a10  5a 4e 0d 10 c2 0c 73 61  76 65 24 3d 61 24 0d 10  |ZN....save$=a$..|
00002a20  cc 0e 66 69 6c 65 3d ae  28 61 24 29 0d 10 d6 1f  |..file=.(a$)....|
00002a30  e7 20 73 61 76 65 74 79  70 65 3d 32 20 84 20 73  |. savetype=2 . s|
00002a40  61 76 65 74 79 70 65 3d  33 20 8c 0d 10 e0 13 e3  |avetype=3 ......|
00002a50  20 49 3d 73 74 61 72 74  20 b8 20 65 6e 64 0d 10  | I=start . end..|
00002a60  ea 12 f2 73 65 6e 64 61  73 74 65 78 74 28 49 29  |...sendastext(I)|
00002a70  0d 10 f4 05 ed 0d 10 fe  05 cd 0d 11 08 12 e7 20  |............... |
00002a80  73 61 76 65 74 79 70 65  3d 31 20 8c 0d 11 12 13  |savetype=1 .....|
00002a90  e3 20 49 3d 31 20 b8 20  66 69 6e 64 62 6f 74 0d  |. I=1 . findbot.|
00002aa0  11 1c 19 f2 73 65 6e 64  61 73 74 65 78 74 28 66  |....sendastext(f|
00002ab0  6f 75 6e 64 28 49 29 29  0d 11 26 05 ed 0d 11 30  |ound(I))..&....0|
00002ac0  05 cd 0d 11 3a 0a d9 23  66 69 6c 65 0d 11 44 1e  |....:..#file..D.|
00002ad0  ff 28 22 53 45 54 54 59  50 45 20 22 2b 73 61 76  |.("SETTYPE "+sav|
00002ae0  65 24 2b 22 20 46 46 46  22 29 0d 11 4e 0a f2 63  |e$+" FFF")..N..c|
00002af0  6d 65 6e 75 0d 11 58 11  24 73 74 65 78 74 33 3d  |menu..X.$stext3=|
00002b00  73 61 76 65 24 0d 11 62  07 f7 20 85 0d 11 6c 05  |save$..b.. ...l.|
00002b10  e1 0d 11 76 0e dd f2 6c  6f 61 64 66 69 6c 65 0d  |...v...loadfile.|
00002b20  11 80 0c 6d 61 78 32 3d  6d 61 78 0d 11 8a 07 ea  |...max2=max.....|
00002b30  20 85 0d 11 94 36 ee 20  85 20 ea 20 f2 6d 6f 61  | ....6. . . .moa|
00002b40  6e 28 22 43 6f 75 6c 64  6e 27 74 20 6c 6f 61 64  |n("Couldn't load|
00002b50  20 3a 20 22 2b f6 24 2b  22 20 22 2b c3 28 9e 29  | : "+.$+" "+.(.)|
00002b60  29 3a e5 20 8d 74 4e 52  0d 11 9e 11 66 69 6c 65  |):. .tNR....file|
00002b70  3d 8e 28 6c 6f 61 64 24  29 0d 11 a8 11 e8 23 66  |=.(load$).....#f|
00002b80  69 6c 65 2c 73 74 61 72  74 24 0d 11 b2 31 e7 20  |ile,start$...1. |
00002b90  73 74 61 72 74 24 3c 3e  22 65 6c 69 46 20 65 73  |start$<>"eliF es|
00002ba0  61 42 46 4d 41 22 20 8c  20 85 20 34 2c 22 43 6f  |aBFMA" . . 4,"Co|
00002bb0  72 72 75 70 74 20 66 69  6c 65 22 0d 11 bc 0e e8  |rrupt file".....|
00002bc0  23 66 69 6c 65 2c 62 6f  74 0d 11 c6 0e e8 23 66  |#file,bot.....#f|
00002bd0  69 6c 65 2c 63 75 72 0d  11 d0 0f e8 23 66 69 6c  |ile,cur.....#fil|
00002be0  65 2c 6d 61 78 32 0d 11  da 0e e3 20 49 3d 31 20  |e,max2..... I=1 |
00002bf0  b8 20 31 30 0d 11 e4 13  e8 23 66 69 6c 65 2c 6e  |. 10.....#file,n|
00002c00  61 6d 65 24 28 49 29 0d  11 ee 05 ed 0d 11 f8 11  |ame$(I).........|
00002c10  e3 20 49 3d 31 20 b8 20  62 6f 74 2b 31 0d 12 02  |. I=1 . bot+1...|
00002c20  0e e3 20 4a 3d 31 20 b8  20 31 30 0d 12 0c 15 e8  |.. J=1 . 10.....|
00002c30  23 66 69 6c 65 2c 64 61  74 61 24 28 49 2c 4a 29  |#file,data$(I,J)|
00002c40  0d 12 16 05 ed 0d 12 20  05 ed 0d 12 2a 11 e8 23  |....... ....*..#|
00002c50  66 69 6c 65 2c 73 74 61  72 74 24 0d 12 34 2d e7  |file,start$..4-.|
00002c60  20 73 74 61 72 74 24 3c  3e 22 64 65 68 73 69 6e  | start$<>"dehsin|
00002c70  69 46 22 20 8c 20 85 20  34 2c 22 43 6f 72 72 75  |iF" . . 4,"Corru|
00002c80  70 74 20 66 69 6c 65 22  0d 12 3e 0a d9 23 66 69  |pt file"..>..#fi|
00002c90  6c 65 0d 12 48 0a f2 63  6d 65 6e 75 0d 12 52 10  |le..H..cmenu..R.|
00002ca0  24 73 74 65 78 74 3d 6c  6f 61 64 24 0d 12 5c 24  |$stext=load$..\$|
00002cb0  e7 20 62 6f 74 3e 6d 61  78 20 8c 20 85 20 34 2c  |. bot>max . . 4,|
00002cc0  22 54 6f 6f 20 6d 61 6e  79 20 63 61 72 64 73 22  |"Too many cards"|
00002cd0  0d 12 66 11 f2 73 65 74  61 6c 6c 64 65 66 69 6e  |..f..setalldefin|
00002ce0  65 0d 12 70 11 f2 73 65  74 64 61 74 61 28 63 75  |e..p..setdata(cu|
00002cf0  72 29 0d 12 7a 16 f2 6f  70 65 6e 77 69 6e 64 6f  |r)..z..openwindo|
00002d00  77 28 64 61 74 61 25 29  0d 12 84 0e 6d 6f 64 69  |w(data%)....modi|
00002d10  66 69 65 64 3d 30 0d 12  8e 07 f7 20 85 0d 12 98  |fied=0..... ....|
00002d20  05 e1 0d 12 a2 0b dd f2  63 68 65 63 6b 0d 12 ac  |........check...|
00002d30  31 e7 20 c1 91 24 2c 35  2c 36 29 3d 22 32 33 20  |1. ..$,5,6)="23 |
00002d40  4e 6f 76 22 20 8c 20 f2  6f 70 65 6e 77 69 6e 64  |Nov" . .openwind|
00002d50  6f 77 28 61 6d 66 77 69  6e 64 6f 77 25 29 0d 12  |ow(amfwindow%)..|
00002d60  b6 2e e7 20 c1 91 24 2c  35 2c 36 29 3d 22 30 31  |... ..$,5,6)="01|
00002d70  20 41 70 72 22 20 8c 20  f2 6f 70 65 6e 77 69 6e  | Apr" . .openwin|
00002d80  64 6f 77 28 70 75 7a 7a  6c 65 25 29 0d 12 c0 53  |dow(puzzle%)...S|
00002d90  24 a4 74 61 64 28 63 6f  6e 76 65 6e 74 69 6f 6e  |$.tad(convention|
00002da0  25 2c 30 29 3d a4 63 6f  64 65 28 22 55 69 6e 72  |%,0)=.code("Uinr|
00002db0  64 21 75 69 60 75 2d 6d  68 6a 64 21 78 6e 74 2d  |d!ui`u-mhjd!xnt-|
00002dc0  60 73 64 21 62 60 71 60  63 6d 64 21 6e 67 21 62  |`sd!b`q`cmd!ng!b|
00002dd0  6e 6c 71 6d 64 75 68 6f  66 21 75 69 64 22 29 0d  |nlqmduhof!uid").|
00002de0  12 ca 50 24 a4 74 61 64  28 63 6f 6e 76 65 6e 74  |..P$.tad(convent|
00002df0  69 6f 6e 25 2c 31 29 3d  a4 63 6f 64 65 28 22 6c  |ion%,1)=.code("l|
00002e00  78 72 75 64 73 68 6e 74  72 21 71 74 7b 7b 6d 64  |xrudshntr!qt{{md|
00002e10  21 75 69 60 75 21 68 72  21 71 60 73 75 21 6e 67  |!ui`u!hr!q`su!ng|
00002e20  21 20 40 4c 47 63 60 72  64 21 60 73 64 22 29 0d  |! @LGc`rd!`sd").|
00002e30  12 d4 52 24 a4 74 61 64  28 63 6f 6e 76 65 6e 74  |..R$.tad(convent|
00002e40  69 6f 6e 25 2c 32 29 3d  a4 63 6f 64 65 28 22 76  |ion%,2)=.code("v|
00002e50  6e 73 75 69 78 21 6e 67  21 75 69 64 21 68 6f 75  |nsuix!ng!uid!hou|
00002e60  64 6d 6d 68 66 64 6f 62  64 21 75 69 60 75 21 78  |dmmhfdobd!ui`u!x|
00002e70  6e 74 21 60 73 64 21 63  64 72 75 6e 76 64 65 22  |nt!`sd!cdrunvde"|
00002e80  29 0d 12 de 52 24 a4 74  61 64 28 63 6f 6e 76 65  |)...R$.tad(conve|
00002e90  6e 74 69 6f 6e 25 2c 33  29 3d a4 63 6f 64 65 28  |ntion%,3)=.code(|
00002ea0  22 76 68 75 69 2f 55 6e  21 78 6e 74 2d 75 69 64  |"vhui/Un!xnt-uid|
00002eb0  73 64 67 6e 73 64 21 48  21 72 60 78 21 75 69 64  |sdgnsd!H!r`x!uid|
00002ec0  21 67 6e 6d 6d 6e 76 68  6f 66 21 76 6e 73 65 72  |!gnmmnvhof!vnser|
00002ed0  3b 22 29 0d 12 e8 3d 24  a4 74 61 64 28 63 6f 6e  |;")...=$.tad(con|
00002ee0  76 65 6e 74 69 6f 6e 25  2c 34 29 3d a4 63 6f 64  |vention%,4)=.cod|
00002ef0  65 28 22 51 60 79 21 57  6e 63 68 72 62 74 6c 2d  |e("Q`y!Wnchrbtl-|
00002f00  52 60 6d 60 60 6c 21 40  6d 64 68 6a 74 6c 22 29  |R`m``l!@mdhjtl")|
00002f10  0d 12 f2 28 e7 20 24 a4  74 61 64 28 69 6e 66 6f  |...(. $.tad(info|
00002f20  25 2c 39 29 3c 3e 22 a9  20 41 4d 46 73 6f 66 74  |%,9)<>". AMFsoft|
00002f30  20 31 39 39 31 22 20 8c  0d 12 fc 19 f2 6d 6f 61  | 1991" ......moa|
00002f40  6e 28 22 50 61 78 20 76  6f 62 69 73 63 75 6d 22  |n("Pax vobiscum"|
00002f50  29 0d 13 06 05 e0 0d 13  10 05 cd 0d 13 1a 05 e1  |)...............|
00002f60  0d 13 24 0c dd f2 64 72  61 77 77 31 0d 13 2e 17  |..$...draww1....|
00002f70  62 78 3d 62 6c 6f 63 6b  21 34 2d 62 6c 6f 63 6b  |bx=block!4-block|
00002f80  21 32 30 0d 13 38 18 62  79 3d 62 6c 6f 63 6b 21  |!20..8.by=block!|
00002f90  31 36 2d 62 6c 6f 63 6b  21 32 34 0d 13 42 0c c8  |16-block!24..B..|
00002fa0  95 20 6d 6f 72 65 25 0d  13 4c 09 f2 64 72 61 77  |. more%..L..draw|
00002fb0  0d 13 56 29 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..V).. "Wimp_Get|
00002fc0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 62 6c 6f 63  |Rectangle",,bloc|
00002fd0  6b 20 b8 20 6d 6f 72 65  25 0d 13 60 05 ce 0d 13  |k . more%..`....|
00002fe0  6a 05 e1 0d 13 74 0a dd  f2 64 72 61 77 0d 13 7e  |j....t...draw..~|
00002ff0  39 6d 69 6e 79 3d 62 6c  6f 63 6b 21 33 32 3a 6d  |9miny=block!32:m|
00003000  61 78 79 3d 62 6c 6f 63  6b 21 34 30 3a 6d 69 6e  |axy=block!40:min|
00003010  79 3d 6d 69 6e 79 2d 33  32 3a 6d 61 78 79 3d 6d  |y=miny-32:maxy=m|
00003020  61 78 79 2b 33 32 0d 13  88 1c 70 78 3d 28 28 62  |axy+32....px=((b|
00003030  6f 74 2b 31 29 2f 28 6d  61 78 2d 31 29 29 2a 32  |ot+1)/(max-1))*2|
00003040  36 32 0d 13 92 19 c8 99  20 22 57 69 6d 70 5f 53  |62...... "Wimp_S|
00003050  65 74 43 6f 6c 6f 75 72  22 2c 37 0d 13 9c 1b c8  |etColour",7.....|
00003060  93 20 c8 90 20 62 78 2b  31 34 2c 62 79 2d 36 31  |. .. bx+14,by-61|
00003070  34 2c 70 78 2c 30 0d 13  a6 19 c8 99 20 22 57 69  |4,px,0...... "Wi|
00003080  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 32 0d  |mp_SetColour",2.|
00003090  13 b0 22 c8 93 20 c8 90  20 62 78 2b 31 34 2b 70  |..".. .. bx+14+p|
000030a0  78 2c 62 79 2d 36 31 34  2c 32 36 32 2d 70 78 2c  |x,by-614,262-px,|
000030b0  30 0d 13 ba 1a c8 99 20  22 57 69 6d 70 5f 53 65  |0...... "Wimp_Se|
000030c0  74 43 6f 6c 6f 75 72 22  2c 31 31 0d 13 c4 1c 70  |tColour",11....p|
000030d0  78 3d 28 28 63 75 72 2d  31 29 2f 28 6d 61 78 2d  |x=((cur-1)/(max-|
000030e0  31 29 29 2a 32 36 32 0d  13 ce 17 70 78 32 3d 28  |1))*262....px2=(|
000030f0  31 2f 28 6d 61 78 2d 31  29 29 2a 32 36 32 0d 13  |1/(max-1))*262..|
00003100  d8 1f c8 93 20 c8 90 20  62 78 2b 31 34 2b 70 78  |.... .. bx+14+px|
00003110  2c 62 79 2d 36 31 34 2c  70 78 32 2c 30 0d 13 e2  |,by-614,px2,0...|
00003120  05 e1 0d 13 ec 0d dd f2  64 61 74 61 6b 65 79 0d  |........datakey.|
00003130  13 f6 1d 6b 65 79 3d 62  6c 6f 63 6b 21 32 34 3a  |...key=block!24:|
00003140  69 63 6f 6e 3d 62 6c 6f  63 6b 21 34 0d 14 00 10  |icon=block!4....|
00003150  e7 20 6b 65 79 3d 26 31  38 45 20 8c 0d 14 0a 21  |. key=&18E ....!|
00003160  e7 20 69 63 6f 6e 3d 36  30 20 f2 73 65 74 63 61  |. icon=60 .setca|
00003170  72 65 74 28 64 61 74 61  25 2c 36 31 29 0d 14 14  |ret(data%,61)...|
00003180  21 e7 20 69 63 6f 6e 3d  36 31 20 f2 73 65 74 63  |!. icon=61 .setc|
00003190  61 72 65 74 28 64 61 74  61 25 2c 36 32 29 0d 14  |aret(data%,62)..|
000031a0  1e 21 e7 20 69 63 6f 6e  3d 36 32 20 f2 73 65 74  |.!. icon=62 .set|
000031b0  63 61 72 65 74 28 64 61  74 61 25 2c 36 33 29 0d  |caret(data%,63).|
000031c0  14 28 21 e7 20 69 63 6f  6e 3d 36 33 20 f2 73 65  |.(!. icon=63 .se|
000031d0  74 63 61 72 65 74 28 64  61 74 61 25 2c 36 34 29  |tcaret(data%,64)|
000031e0  0d 14 32 21 e7 20 69 63  6f 6e 3d 36 34 20 f2 73  |..2!. icon=64 .s|
000031f0  65 74 63 61 72 65 74 28  64 61 74 61 25 2c 36 35  |etcaret(data%,65|
00003200  29 0d 14 3c 21 e7 20 69  63 6f 6e 3d 36 35 20 f2  |)..<!. icon=65 .|
00003210  73 65 74 63 61 72 65 74  28 64 61 74 61 25 2c 36  |setcaret(data%,6|
00003220  36 29 0d 14 46 21 e7 20  69 63 6f 6e 3d 36 36 20  |6)..F!. icon=66 |
00003230  f2 73 65 74 63 61 72 65  74 28 64 61 74 61 25 2c  |.setcaret(data%,|
00003240  36 37 29 0d 14 50 21 e7  20 69 63 6f 6e 3d 36 37  |67)..P!. icon=67|
00003250  20 f2 73 65 74 63 61 72  65 74 28 64 61 74 61 25  | .setcaret(data%|
00003260  2c 36 38 29 0d 14 5a 21  e7 20 69 63 6f 6e 3d 36  |,68)..Z!. icon=6|
00003270  38 20 f2 73 65 74 63 61  72 65 74 28 64 61 74 61  |8 .setcaret(data|
00003280  25 2c 36 39 29 0d 14 64  0f e7 20 69 63 6f 6e 3d  |%,69)..d.. icon=|
00003290  36 39 20 8c 0d 14 6e 17  f2 73 65 74 63 61 72 65  |69 ...n..setcare|
000032a0  74 28 64 61 74 61 25 2c  36 30 29 0d 14 78 35 e7  |t(data%,60)..x5.|
000032b0  20 63 75 72 3c 62 6f 74  2b 31 20 8c 20 f2 67 72  | cur<bot+1 . .gr|
000032c0  61 62 64 61 74 61 28 63  75 72 29 3a 63 75 72 2b  |abdata(cur):cur+|
000032d0  3d 31 3a f2 73 65 74 64  61 74 61 28 63 75 72 29  |=1:.setdata(cur)|
000032e0  0d 14 82 05 cd 0d 14 8c  05 e1 0d 14 96 05 cd 0d  |................|
000032f0  14 a0 10 e7 20 6b 65 79  3d 26 31 38 46 20 8c 0d  |.... key=&18F ..|
00003300  14 aa 0f e7 20 69 63 6f  6e 3d 36 30 20 8c 0d 14  |.... icon=60 ...|
00003310  b4 17 f2 73 65 74 63 61  72 65 74 28 64 61 74 61  |...setcaret(data|
00003320  25 2c 36 39 29 0d 14 be  31 e7 20 63 75 72 3e 31  |%,69)...1. cur>1|
00003330  20 8c 20 f2 67 72 61 62  64 61 74 61 28 63 75 72  | . .grabdata(cur|
00003340  29 3a 63 75 72 2d 3d 31  3a f2 73 65 74 64 61 74  |):cur-=1:.setdat|
00003350  61 28 63 75 72 29 0d 14  c8 05 cd 0d 14 d2 21 e7  |a(cur)........!.|
00003360  20 69 63 6f 6e 3d 36 31  20 f2 73 65 74 63 61 72  | icon=61 .setcar|
00003370  65 74 28 64 61 74 61 25  2c 36 30 29 0d 14 dc 21  |et(data%,60)...!|
00003380  e7 20 69 63 6f 6e 3d 36  32 20 f2 73 65 74 63 61  |. icon=62 .setca|
00003390  72 65 74 28 64 61 74 61  25 2c 36 31 29 0d 14 e6  |ret(data%,61)...|
000033a0  21 e7 20 69 63 6f 6e 3d  36 33 20 f2 73 65 74 63  |!. icon=63 .setc|
000033b0  61 72 65 74 28 64 61 74  61 25 2c 36 32 29 0d 14  |aret(data%,62)..|
000033c0  f0 21 e7 20 69 63 6f 6e  3d 36 34 20 f2 73 65 74  |.!. icon=64 .set|
000033d0  63 61 72 65 74 28 64 61  74 61 25 2c 36 33 29 0d  |caret(data%,63).|
000033e0  14 fa 21 e7 20 69 63 6f  6e 3d 36 35 20 f2 73 65  |..!. icon=65 .se|
000033f0  74 63 61 72 65 74 28 64  61 74 61 25 2c 36 34 29  |tcaret(data%,64)|
00003400  0d 15 04 21 e7 20 69 63  6f 6e 3d 36 36 20 f2 73  |...!. icon=66 .s|
00003410  65 74 63 61 72 65 74 28  64 61 74 61 25 2c 36 35  |etcaret(data%,65|
00003420  29 0d 15 0e 21 e7 20 69  63 6f 6e 3d 36 37 20 f2  |)...!. icon=67 .|
00003430  73 65 74 63 61 72 65 74  28 64 61 74 61 25 2c 36  |setcaret(data%,6|
00003440  36 29 0d 15 18 21 e7 20  69 63 6f 6e 3d 36 38 20  |6)...!. icon=68 |
00003450  f2 73 65 74 63 61 72 65  74 28 64 61 74 61 25 2c  |.setcaret(data%,|
00003460  36 37 29 0d 15 22 21 e7  20 69 63 6f 6e 3d 36 39  |67).."!. icon=69|
00003470  20 f2 73 65 74 63 61 72  65 74 28 64 61 74 61 25  | .setcaret(data%|
00003480  2c 36 38 29 0d 15 2c 05  e1 0d 15 36 05 cd 0d 15  |,68)..,....6....|
00003490  40 0e e7 20 6b 65 79 3d  31 33 20 8c 0d 15 4a 21  |@.. key=13 ...J!|
000034a0  e7 20 69 63 6f 6e 3d 36  30 20 f2 73 65 74 63 61  |. icon=60 .setca|
000034b0  72 65 74 28 64 61 74 61  25 2c 36 31 29 0d 15 54  |ret(data%,61)..T|
000034c0  21 e7 20 69 63 6f 6e 3d  36 31 20 f2 73 65 74 63  |!. icon=61 .setc|
000034d0  61 72 65 74 28 64 61 74  61 25 2c 36 32 29 0d 15  |aret(data%,62)..|
000034e0  5e 21 e7 20 69 63 6f 6e  3d 36 32 20 f2 73 65 74  |^!. icon=62 .set|
000034f0  63 61 72 65 74 28 64 61  74 61 25 2c 36 33 29 0d  |caret(data%,63).|
00003500  15 68 21 e7 20 69 63 6f  6e 3d 36 33 20 f2 73 65  |.h!. icon=63 .se|
00003510  74 63 61 72 65 74 28 64  61 74 61 25 2c 36 34 29  |tcaret(data%,64)|
00003520  0d 15 72 21 e7 20 69 63  6f 6e 3d 36 34 20 f2 73  |..r!. icon=64 .s|
00003530  65 74 63 61 72 65 74 28  64 61 74 61 25 2c 36 35  |etcaret(data%,65|
00003540  29 0d 15 7c 21 e7 20 69  63 6f 6e 3d 36 35 20 f2  |)..|!. icon=65 .|
00003550  73 65 74 63 61 72 65 74  28 64 61 74 61 25 2c 36  |setcaret(data%,6|
00003560  36 29 0d 15 86 21 e7 20  69 63 6f 6e 3d 36 36 20  |6)...!. icon=66 |
00003570  f2 73 65 74 63 61 72 65  74 28 64 61 74 61 25 2c  |.setcaret(data%,|
00003580  36 37 29 0d 15 90 21 e7  20 69 63 6f 6e 3d 36 37  |67)...!. icon=67|
00003590  20 f2 73 65 74 63 61 72  65 74 28 64 61 74 61 25  | .setcaret(data%|
000035a0  2c 36 38 29 0d 15 9a 21  e7 20 69 63 6f 6e 3d 36  |,68)...!. icon=6|
000035b0  38 20 f2 73 65 74 63 61  72 65 74 28 64 61 74 61  |8 .setcaret(data|
000035c0  25 2c 36 39 29 0d 15 a4  0f e7 20 69 63 6f 6e 3d  |%,69)..... icon=|
000035d0  36 39 20 8c 0d 15 ae 12  e7 20 63 75 72 3e 3d 62  |69 ...... cur>=b|
000035e0  6f 74 2b 31 20 8c 0d 15  b8 13 e7 20 63 75 72 2b  |ot+1 ...... cur+|
000035f0  31 3d 6d 61 78 20 8c 20  e1 0d 15 c2 20 62 6f 74  |1=max . .... bot|
00003600  2b 3d 31 3a f2 61 6c 74  65 72 28 64 61 74 61 25  |+=1:.alter(data%|
00003610  2c 31 33 31 2c 30 2c 30  29 0d 15 cc 05 cd 0d 15  |,131,0,0).......|
00003620  d6 27 f2 67 72 61 62 64  61 74 61 28 63 75 72 29  |.'.grabdata(cur)|
00003630  3a 63 75 72 2b 3d 31 3a  f2 73 65 74 64 61 74 61  |:cur+=1:.setdata|
00003640  28 63 75 72 29 0d 15 e0  17 f2 73 65 74 63 61 72  |(cur).....setcar|
00003650  65 74 28 64 61 74 61 25  2c 36 30 29 0d 15 ea 05  |et(data%,60)....|
00003660  cd 0d 15 f4 0f e7 20 69  63 6f 6e 3d 38 30 20 8c  |...... icon=80 .|
00003670  0d 15 fe 12 f2 67 72 61  62 64 61 74 61 28 63 75  |.....grabdata(cu|
00003680  72 29 0d 16 08 1a 63 75  72 3d bb 28 24 a4 74 61  |r)....cur=.($.ta|
00003690  64 28 64 61 74 61 25 2c  38 30 29 29 0d 16 12 1b  |d(data%,80))....|
000036a0  e7 20 63 75 72 3e 62 6f  74 2b 31 20 8c 20 63 75  |. cur>bot+1 . cu|
000036b0  72 3d 62 6f 74 2b 31 0d  16 1c 13 e7 20 63 75 72  |r=bot+1..... cur|
000036c0  3c 31 20 8c 20 63 75 72  3d 31 0d 16 26 11 f2 73  |<1 . cur=1..&..s|
000036d0  65 74 64 61 74 61 28 63  75 72 29 0d 16 30 17 f2  |etdata(cur)..0..|
000036e0  73 65 74 63 61 72 65 74  28 64 61 74 61 25 2c 38  |setcaret(data%,8|
000036f0  30 29 0d 16 3a 05 cd 0d  16 44 05 e1 0d 16 4e 05  |0)..:....D....N.|
00003700  cd 0d 16 58 05 e1 0d 16  62 0f dd f2 64 65 66 69  |...X....b...defi|
00003710  6e 65 6b 65 79 0d 16 6c  1d 6b 65 79 3d 62 6c 6f  |nekey..l.key=blo|
00003720  63 6b 21 32 34 3a 69 63  6f 6e 3d 62 6c 6f 63 6b  |ck!24:icon=block|
00003730  21 34 0d 16 76 19 e7 20  6b 65 79 3d 26 31 38 45  |!4..v.. key=&18E|
00003740  20 84 20 6b 65 79 3d 31  33 20 8c 0d 16 80 21 e7  | . key=13 ....!.|
00003750  20 69 63 6f 6e 3d 30 20  f2 73 65 74 63 61 72 65  | icon=0 .setcare|
00003760  74 28 64 65 66 69 6e 65  25 2c 31 29 0d 16 8a 21  |t(define%,1)...!|
00003770  e7 20 69 63 6f 6e 3d 31  20 f2 73 65 74 63 61 72  |. icon=1 .setcar|
00003780  65 74 28 64 65 66 69 6e  65 25 2c 32 29 0d 16 94  |et(define%,2)...|
00003790  21 e7 20 69 63 6f 6e 3d  32 20 f2 73 65 74 63 61  |!. icon=2 .setca|
000037a0  72 65 74 28 64 65 66 69  6e 65 25 2c 33 29 0d 16  |ret(define%,3)..|
000037b0  9e 21 e7 20 69 63 6f 6e  3d 33 20 f2 73 65 74 63  |.!. icon=3 .setc|
000037c0  61 72 65 74 28 64 65 66  69 6e 65 25 2c 34 29 0d  |aret(define%,4).|
000037d0  16 a8 21 e7 20 69 63 6f  6e 3d 34 20 f2 73 65 74  |..!. icon=4 .set|
000037e0  63 61 72 65 74 28 64 65  66 69 6e 65 25 2c 35 29  |caret(define%,5)|
000037f0  0d 16 b2 21 e7 20 69 63  6f 6e 3d 35 20 f2 73 65  |...!. icon=5 .se|
00003800  74 63 61 72 65 74 28 64  65 66 69 6e 65 25 2c 36  |tcaret(define%,6|
00003810  29 0d 16 bc 21 e7 20 69  63 6f 6e 3d 36 20 f2 73  |)...!. icon=6 .s|
00003820  65 74 63 61 72 65 74 28  64 65 66 69 6e 65 25 2c  |etcaret(define%,|
00003830  37 29 0d 16 c6 21 e7 20  69 63 6f 6e 3d 37 20 f2  |7)...!. icon=7 .|
00003840  73 65 74 63 61 72 65 74  28 64 65 66 69 6e 65 25  |setcaret(define%|
00003850  2c 38 29 0d 16 d0 21 e7  20 69 63 6f 6e 3d 38 20  |,8)...!. icon=8 |
00003860  f2 73 65 74 63 61 72 65  74 28 64 65 66 69 6e 65  |.setcaret(define|
00003870  25 2c 39 29 0d 16 da 21  e7 20 69 63 6f 6e 3d 39  |%,9)...!. icon=9|
00003880  20 f2 73 65 74 63 61 72  65 74 28 64 65 66 69 6e  | .setcaret(defin|
00003890  65 25 2c 30 29 0d 16 e4  05 e1 0d 16 ee 05 cd 0d  |e%,0)...........|
000038a0  16 f8 10 e7 20 6b 65 79  3d 26 31 38 46 20 8c 0d  |.... key=&18F ..|
000038b0  17 02 21 e7 20 69 63 6f  6e 3d 30 20 f2 73 65 74  |..!. icon=0 .set|
000038c0  63 61 72 65 74 28 64 65  66 69 6e 65 25 2c 39 29  |caret(define%,9)|
000038d0  0d 17 0c 21 e7 20 69 63  6f 6e 3d 31 20 f2 73 65  |...!. icon=1 .se|
000038e0  74 63 61 72 65 74 28 64  65 66 69 6e 65 25 2c 30  |tcaret(define%,0|
000038f0  29 0d 17 16 21 e7 20 69  63 6f 6e 3d 32 20 f2 73  |)...!. icon=2 .s|
00003900  65 74 63 61 72 65 74 28  64 65 66 69 6e 65 25 2c  |etcaret(define%,|
00003910  31 29 0d 17 20 21 e7 20  69 63 6f 6e 3d 33 20 f2  |1).. !. icon=3 .|
00003920  73 65 74 63 61 72 65 74  28 64 65 66 69 6e 65 25  |setcaret(define%|
00003930  2c 32 29 0d 17 2a 21 e7  20 69 63 6f 6e 3d 34 20  |,2)..*!. icon=4 |
00003940  f2 73 65 74 63 61 72 65  74 28 64 65 66 69 6e 65  |.setcaret(define|
00003950  25 2c 33 29 0d 17 34 21  e7 20 69 63 6f 6e 3d 35  |%,3)..4!. icon=5|
00003960  20 f2 73 65 74 63 61 72  65 74 28 64 65 66 69 6e  | .setcaret(defin|
00003970  65 25 2c 34 29 0d 17 3e  21 e7 20 69 63 6f 6e 3d  |e%,4)..>!. icon=|
00003980  36 20 f2 73 65 74 63 61  72 65 74 28 64 65 66 69  |6 .setcaret(defi|
00003990  6e 65 25 2c 35 29 0d 17  48 21 e7 20 69 63 6f 6e  |ne%,5)..H!. icon|
000039a0  3d 37 20 f2 73 65 74 63  61 72 65 74 28 64 65 66  |=7 .setcaret(def|
000039b0  69 6e 65 25 2c 36 29 0d  17 52 21 e7 20 69 63 6f  |ine%,6)..R!. ico|
000039c0  6e 3d 38 20 f2 73 65 74  63 61 72 65 74 28 64 65  |n=8 .setcaret(de|
000039d0  66 69 6e 65 25 2c 37 29  0d 17 5c 21 e7 20 69 63  |fine%,7)..\!. ic|
000039e0  6f 6e 3d 39 20 f2 73 65  74 63 61 72 65 74 28 64  |on=9 .setcaret(d|
000039f0  65 66 69 6e 65 25 2c 38  29 0d 17 66 05 e1 0d 17  |efine%,8)..f....|
00003a00  70 05 cd 0d 17 7a 05 e1  0d 17 84 0d dd f2 66 69  |p....z........fi|
00003a10  6e 64 6b 65 79 0d 17 8e  1d 6b 65 79 3d 62 6c 6f  |ndkey....key=blo|
00003a20  63 6b 21 32 34 3a 69 63  6f 6e 3d 62 6c 6f 63 6b  |ck!24:icon=block|
00003a30  21 34 0d 17 98 19 e7 20  6b 65 79 3d 26 31 38 45  |!4..... key=&18E|
00003a40  20 84 20 6b 65 79 3d 31  33 20 8c 0d 17 a2 21 e7  | . key=13 ....!.|
00003a50  20 69 63 6f 6e 3d 36 30  20 f2 73 65 74 63 61 72  | icon=60 .setcar|
00003a60  65 74 28 66 69 6e 64 25  2c 36 31 29 0d 17 ac 21  |et(find%,61)...!|
00003a70  e7 20 69 63 6f 6e 3d 36  31 20 f2 73 65 74 63 61  |. icon=61 .setca|
00003a80  72 65 74 28 66 69 6e 64  25 2c 36 32 29 0d 17 b6  |ret(find%,62)...|
00003a90  21 e7 20 69 63 6f 6e 3d  36 32 20 f2 73 65 74 63  |!. icon=62 .setc|
00003aa0  61 72 65 74 28 66 69 6e  64 25 2c 36 33 29 0d 17  |aret(find%,63)..|
00003ab0  c0 21 e7 20 69 63 6f 6e  3d 36 33 20 f2 73 65 74  |.!. icon=63 .set|
00003ac0  63 61 72 65 74 28 66 69  6e 64 25 2c 36 34 29 0d  |caret(find%,64).|
00003ad0  17 ca 21 e7 20 69 63 6f  6e 3d 36 34 20 f2 73 65  |..!. icon=64 .se|
00003ae0  74 63 61 72 65 74 28 66  69 6e 64 25 2c 36 35 29  |tcaret(find%,65)|
00003af0  0d 17 d4 21 e7 20 69 63  6f 6e 3d 36 35 20 f2 73  |...!. icon=65 .s|
00003b00  65 74 63 61 72 65 74 28  66 69 6e 64 25 2c 36 36  |etcaret(find%,66|
00003b10  29 0d 17 de 21 e7 20 69  63 6f 6e 3d 36 36 20 f2  |)...!. icon=66 .|
00003b20  73 65 74 63 61 72 65 74  28 66 69 6e 64 25 2c 36  |setcaret(find%,6|
00003b30  37 29 0d 17 e8 21 e7 20  69 63 6f 6e 3d 36 37 20  |7)...!. icon=67 |
00003b40  f2 73 65 74 63 61 72 65  74 28 66 69 6e 64 25 2c  |.setcaret(find%,|
00003b50  36 38 29 0d 17 f2 21 e7  20 69 63 6f 6e 3d 36 38  |68)...!. icon=68|
00003b60  20 f2 73 65 74 63 61 72  65 74 28 66 69 6e 64 25  | .setcaret(find%|
00003b70  2c 36 39 29 0d 17 fc 21  e7 20 69 63 6f 6e 3d 36  |,69)...!. icon=6|
00003b80  39 20 f2 73 65 74 63 61  72 65 74 28 66 69 6e 64  |9 .setcaret(find|
00003b90  25 2c 36 30 29 0d 18 06  0f e7 20 69 63 6f 6e 3d  |%,60)..... icon=|
00003ba0  38 30 20 8c 0d 18 10 13  e7 20 66 69 6e 64 62 6f  |80 ...... findbo|
00003bb0  74 3d 30 20 8c 20 e1 0d  18 1a 1e 66 69 6e 64 63  |t=0 . .....findc|
00003bc0  75 72 3d bb 28 24 a4 74  61 64 28 66 69 6e 64 25  |ur=.($.tad(find%|
00003bd0  2c 38 30 29 29 0d 18 24  27 e7 20 66 69 6e 64 63  |,80))..$'. findc|
00003be0  75 72 3e 66 69 6e 64 62  6f 74 20 8c 20 66 69 6e  |ur>findbot . fin|
00003bf0  64 63 75 72 3d 66 69 6e  64 62 6f 74 0d 18 2e 1b  |dcur=findbot....|
00003c00  e7 20 66 69 6e 64 63 75  72 3c 31 20 8c 20 66 69  |. findcur<1 . fi|
00003c10  6e 64 63 75 72 3d 31 0d  18 38 1e 24 a4 74 61 64  |ndcur=1..8.$.tad|
00003c20  28 66 69 6e 64 25 2c 38  30 29 3d c3 28 66 69 6e  |(find%,80)=.(fin|
00003c30  64 63 75 72 29 0d 18 42  18 f2 61 6c 74 65 72 28  |dcur)..B..alter(|
00003c40  66 69 6e 64 25 2c 38 30  2c 30 2c 30 29 0d 18 4c  |find%,80,0,0)..L|
00003c50  1c f2 73 65 74 64 61 74  61 28 66 6f 75 6e 64 28  |..setdata(found(|
00003c60  66 69 6e 64 63 75 72 29  29 0d 18 56 05 cd 0d 18  |findcur))..V....|
00003c70  60 05 e1 0d 18 6a 05 cd  0d 18 74 10 e7 20 6b 65  |`....j....t.. ke|
00003c80  79 3d 26 31 38 46 20 8c  0d 18 7e 21 e7 20 69 63  |y=&18F ...~!. ic|
00003c90  6f 6e 3d 36 30 20 f2 73  65 74 63 61 72 65 74 28  |on=60 .setcaret(|
00003ca0  66 69 6e 64 25 2c 36 39  29 0d 18 88 21 e7 20 69  |find%,69)...!. i|
00003cb0  63 6f 6e 3d 36 31 20 f2  73 65 74 63 61 72 65 74  |con=61 .setcaret|
00003cc0  28 66 69 6e 64 25 2c 36  30 29 0d 18 92 21 e7 20  |(find%,60)...!. |
00003cd0  69 63 6f 6e 3d 36 32 20  f2 73 65 74 63 61 72 65  |icon=62 .setcare|
00003ce0  74 28 66 69 6e 64 25 2c  36 31 29 0d 18 9c 21 e7  |t(find%,61)...!.|
00003cf0  20 69 63 6f 6e 3d 36 33  20 f2 73 65 74 63 61 72  | icon=63 .setcar|
00003d00  65 74 28 66 69 6e 64 25  2c 36 32 29 0d 18 a6 21  |et(find%,62)...!|
00003d10  e7 20 69 63 6f 6e 3d 36  34 20 f2 73 65 74 63 61  |. icon=64 .setca|
00003d20  72 65 74 28 66 69 6e 64  25 2c 36 33 29 0d 18 b0  |ret(find%,63)...|
00003d30  21 e7 20 69 63 6f 6e 3d  36 35 20 f2 73 65 74 63  |!. icon=65 .setc|
00003d40  61 72 65 74 28 66 69 6e  64 25 2c 36 34 29 0d 18  |aret(find%,64)..|
00003d50  ba 21 e7 20 69 63 6f 6e  3d 36 36 20 f2 73 65 74  |.!. icon=66 .set|
00003d60  63 61 72 65 74 28 66 69  6e 64 25 2c 36 35 29 0d  |caret(find%,65).|
00003d70  18 c4 21 e7 20 69 63 6f  6e 3d 36 37 20 f2 73 65  |..!. icon=67 .se|
00003d80  74 63 61 72 65 74 28 66  69 6e 64 25 2c 36 36 29  |tcaret(find%,66)|
00003d90  0d 18 ce 21 e7 20 69 63  6f 6e 3d 36 38 20 f2 73  |...!. icon=68 .s|
00003da0  65 74 63 61 72 65 74 28  66 69 6e 64 25 2c 36 37  |etcaret(find%,67|
00003db0  29 0d 18 d8 21 e7 20 69  63 6f 6e 3d 36 39 20 f2  |)...!. icon=69 .|
00003dc0  73 65 74 63 61 72 65 74  28 66 69 6e 64 25 2c 36  |setcaret(find%,6|
00003dd0  38 29 0d 18 e2 05 e1 0d  18 ec 05 cd 0d 18 f6 05  |8)..............|
00003de0  e1 0d 19 00 1b dd f2 73  65 74 63 61 72 65 74 28  |.......setcaret(|
00003df0  77 69 6e 64 25 2c 69 63  6f 6e 25 29 0d 19 0a 47  |wind%,icon%)...G|
00003e00  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00003e10  74 50 6f 73 69 74 69 6f  6e 22 2c 77 69 6e 64 25  |tPosition",wind%|
00003e20  2c 69 63 6f 6e 25 2c 30  2c 30 2c 2d 31 2c a9 28  |,icon%,0,0,-1,.(|
00003e30  24 a4 74 61 64 28 77 69  6e 64 25 2c 69 63 6f 6e  |$.tad(wind%,icon|
00003e40  25 29 29 0d 19 14 05 e1  0d 19 1e 10 dd f2 73 65  |%))...........se|
00003e50  74 64 61 74 61 28 63 29  0d 19 28 09 63 75 72 3d  |tdata(c)..(.cur=|
00003e60  63 0d 19 32 1a 24 a4 74  61 64 28 64 61 74 61 25  |c..2.$.tad(data%|
00003e70  2c 38 30 29 3d c3 28 63  75 72 29 0d 19 3c 3d 24  |,80)=.(cur)..<=$|
00003e80  a4 74 61 64 28 64 61 74  61 25 2c 36 30 29 3d 64  |.tad(data%,60)=d|
00003e90  61 74 61 24 28 63 75 72  2c 31 29 3a 24 a4 74 61  |ata$(cur,1):$.ta|
00003ea0  64 28 64 61 74 61 25 2c  36 31 29 3d 64 61 74 61  |d(data%,61)=data|
00003eb0  24 28 63 75 72 2c 32 29  0d 19 46 3d 24 a4 74 61  |$(cur,2)..F=$.ta|
00003ec0  64 28 64 61 74 61 25 2c  36 32 29 3d 64 61 74 61  |d(data%,62)=data|
00003ed0  24 28 63 75 72 2c 33 29  3a 24 a4 74 61 64 28 64  |$(cur,3):$.tad(d|
00003ee0  61 74 61 25 2c 36 33 29  3d 64 61 74 61 24 28 63  |ata%,63)=data$(c|
00003ef0  75 72 2c 34 29 0d 19 50  3d 24 a4 74 61 64 28 64  |ur,4)..P=$.tad(d|
00003f00  61 74 61 25 2c 36 34 29  3d 64 61 74 61 24 28 63  |ata%,64)=data$(c|
00003f10  75 72 2c 35 29 3a 24 a4  74 61 64 28 64 61 74 61  |ur,5):$.tad(data|
00003f20  25 2c 36 35 29 3d 64 61  74 61 24 28 63 75 72 2c  |%,65)=data$(cur,|
00003f30  36 29 0d 19 5a 3d 24 a4  74 61 64 28 64 61 74 61  |6)..Z=$.tad(data|
00003f40  25 2c 36 36 29 3d 64 61  74 61 24 28 63 75 72 2c  |%,66)=data$(cur,|
00003f50  37 29 3a 24 a4 74 61 64  28 64 61 74 61 25 2c 36  |7):$.tad(data%,6|
00003f60  37 29 3d 64 61 74 61 24  28 63 75 72 2c 38 29 0d  |7)=data$(cur,8).|
00003f70  19 64 3e 24 a4 74 61 64  28 64 61 74 61 25 2c 36  |.d>$.tad(data%,6|
00003f80  38 29 3d 64 61 74 61 24  28 63 75 72 2c 39 29 3a  |8)=data$(cur,9):|
00003f90  24 a4 74 61 64 28 64 61  74 61 25 2c 36 39 29 3d  |$.tad(data%,69)=|
00003fa0  64 61 74 61 24 28 63 75  72 2c 31 30 29 0d 19 6e  |data$(cur,10)..n|
00003fb0  42 f2 61 6c 74 65 72 28  64 61 74 61 25 2c 38 30  |B.alter(data%,80|
00003fc0  2c 30 2c 30 29 3a f2 61  6c 74 65 72 28 64 61 74  |,0,0):.alter(dat|
00003fd0  61 25 2c 36 30 2c 30 2c  30 29 3a f2 61 6c 74 65  |a%,60,0,0):.alte|
00003fe0  72 28 64 61 74 61 25 2c  36 31 2c 30 2c 30 29 0d  |r(data%,61,0,0).|
00003ff0  19 78 42 f2 61 6c 74 65  72 28 64 61 74 61 25 2c  |.xB.alter(data%,|
00004000  36 32 2c 30 2c 30 29 3a  f2 61 6c 74 65 72 28 64  |62,0,0):.alter(d|
00004010  61 74 61 25 2c 36 33 2c  30 2c 30 29 3a f2 61 6c  |ata%,63,0,0):.al|
00004020  74 65 72 28 64 61 74 61  25 2c 36 34 2c 30 2c 30  |ter(data%,64,0,0|
00004030  29 0d 19 82 42 f2 61 6c  74 65 72 28 64 61 74 61  |)...B.alter(data|
00004040  25 2c 36 35 2c 30 2c 30  29 3a f2 61 6c 74 65 72  |%,65,0,0):.alter|
00004050  28 64 61 74 61 25 2c 36  36 2c 30 2c 30 29 3a f2  |(data%,66,0,0):.|
00004060  61 6c 74 65 72 28 64 61  74 61 25 2c 36 37 2c 30  |alter(data%,67,0|
00004070  2c 30 29 0d 19 8c 43 f2  61 6c 74 65 72 28 64 61  |,0)...C.alter(da|
00004080  74 61 25 2c 36 38 2c 30  2c 30 29 3a f2 61 6c 74  |ta%,68,0,0):.alt|
00004090  65 72 28 64 61 74 61 25  2c 36 39 2c 30 2c 30 29  |er(data%,69,0,0)|
000040a0  3a f2 61 6c 74 65 72 28  64 61 74 61 25 2c 31 33  |:.alter(data%,13|
000040b0  31 2c 30 2c 30 29 0d 19  96 05 e1 0d 19 a0 11 dd  |1,0,0)..........|
000040c0  f2 67 72 61 62 64 61 74  61 28 63 29 0d 19 aa 39  |.grabdata(c)...9|
000040d0  64 61 74 61 24 28 63 2c  31 29 3d 24 a4 74 61 64  |data$(c,1)=$.tad|
000040e0  28 64 61 74 61 25 2c 36  30 29 3a 64 61 74 61 24  |(data%,60):data$|
000040f0  28 63 2c 32 29 3d 24 a4  74 61 64 28 64 61 74 61  |(c,2)=$.tad(data|
00004100  25 2c 36 31 29 0d 19 b4  39 64 61 74 61 24 28 63  |%,61)...9data$(c|
00004110  2c 33 29 3d 24 a4 74 61  64 28 64 61 74 61 25 2c  |,3)=$.tad(data%,|
00004120  36 32 29 3a 64 61 74 61  24 28 63 2c 34 29 3d 24  |62):data$(c,4)=$|
00004130  a4 74 61 64 28 64 61 74  61 25 2c 36 33 29 0d 19  |.tad(data%,63)..|
00004140  be 39 64 61 74 61 24 28  63 2c 35 29 3d 24 a4 74  |.9data$(c,5)=$.t|
00004150  61 64 28 64 61 74 61 25  2c 36 34 29 3a 64 61 74  |ad(data%,64):dat|
00004160  61 24 28 63 2c 36 29 3d  24 a4 74 61 64 28 64 61  |a$(c,6)=$.tad(da|
00004170  74 61 25 2c 36 35 29 0d  19 c8 39 64 61 74 61 24  |ta%,65)...9data$|
00004180  28 63 2c 37 29 3d 24 a4  74 61 64 28 64 61 74 61  |(c,7)=$.tad(data|
00004190  25 2c 36 36 29 3a 64 61  74 61 24 28 63 2c 38 29  |%,66):data$(c,8)|
000041a0  3d 24 a4 74 61 64 28 64  61 74 61 25 2c 36 37 29  |=$.tad(data%,67)|
000041b0  0d 19 d2 3a 64 61 74 61  24 28 63 2c 39 29 3d 24  |...:data$(c,9)=$|
000041c0  a4 74 61 64 28 64 61 74  61 25 2c 36 38 29 3a 64  |.tad(data%,68):d|
000041d0  61 74 61 24 28 63 2c 31  30 29 3d 24 a4 74 61 64  |ata$(c,10)=$.tad|
000041e0  28 64 61 74 61 25 2c 36  39 29 0d 19 dc 05 e1 0d  |(data%,69)......|
000041f0  19 e6 0f dd f2 64 61 74  61 63 6c 69 63 6b 0d 19  |.....dataclick..|
00004200  f0 11 69 63 6f 6e 3d 62  6c 6f 63 6b 21 31 36 0d  |..icon=block!16.|
00004210  19 fa 0f e7 20 69 63 6f  6e 3d 37 36 20 8c 0d 1a  |.... icon=76 ...|
00004220  04 31 e7 20 63 75 72 3e  31 20 8c 20 f2 67 72 61  |.1. cur>1 . .gra|
00004230  62 64 61 74 61 28 63 75  72 29 3a 63 75 72 2d 3d  |bdata(cur):cur-=|
00004240  31 3a f2 73 65 74 64 61  74 61 28 63 75 72 29 0d  |1:.setdata(cur).|
00004250  1a 0e 05 cd 0d 1a 18 0f  e7 20 69 63 6f 6e 3d 37  |......... icon=7|
00004260  37 20 8c 0d 1a 22 3a e7  20 63 75 72 3c 62 6f 74  |7 ...":. cur<bot|
00004270  2b 31 20 8c 20 f2 67 72  61 62 64 61 74 61 28 63  |+1 . .grabdata(c|
00004280  75 72 29 3a 63 75 72 2b  3d 31 3a e7 20 63 75 72  |ur):cur+=1:. cur|
00004290  3d 6d 61 78 20 8c 20 63  75 72 2d 3d 31 0d 1a 2c  |=max . cur-=1..,|
000042a0  11 f2 73 65 74 64 61 74  61 28 63 75 72 29 0d 1a  |..setdata(cur)..|
000042b0  36 05 cd 0d 1a 40 0f e7  20 69 63 6f 6e 3d 38 37  |6....@.. icon=87|
000042c0  20 8c 0d 1a 4a 26 f2 67  72 61 62 64 61 74 61 28  | ...J&.grabdata(|
000042d0  63 75 72 29 3a 63 75 72  3d 31 3a f2 73 65 74 64  |cur):cur=1:.setd|
000042e0  61 74 61 28 63 75 72 29  0d 1a 54 05 cd 0d 1a 5e  |ata(cur)..T....^|
000042f0  0f e7 20 69 63 6f 6e 3d  38 38 20 8c 0d 1a 68 2a  |.. icon=88 ...h*|
00004300  f2 67 72 61 62 64 61 74  61 28 63 75 72 29 3a 63  |.grabdata(cur):c|
00004310  75 72 3d 62 6f 74 2b 31  3a f2 73 65 74 64 61 74  |ur=bot+1:.setdat|
00004320  61 28 63 75 72 29 0d 1a  72 05 cd 0d 1a 7c 10 e7  |a(cur)..r....|..|
00004330  20 69 63 6f 6e 3d 31 32  30 20 8c 0d 1a 86 12 e7  | icon=120 ......|
00004340  20 63 75 72 3e 3d 62 6f  74 2b 31 20 8c 0d 1a 90  | cur>=bot+1 ....|
00004350  13 e7 20 63 75 72 2b 31  3d 6d 61 78 20 8c 20 e1  |.. cur+1=max . .|
00004360  0d 1a 9a 20 62 6f 74 2b  3d 31 3a f2 61 6c 74 65  |... bot+=1:.alte|
00004370  72 28 64 61 74 61 25 2c  31 33 31 2c 30 2c 30 29  |r(data%,131,0,0)|
00004380  0d 1a a4 05 cd 0d 1a ae  2c f2 67 72 61 62 64 61  |........,.grabda|
00004390  74 61 28 63 75 72 29 3a  63 75 72 2b 3d 31 3a e7  |ta(cur):cur+=1:.|
000043a0  20 63 75 72 3d 6d 61 78  20 8c 20 63 75 72 2d 3d  | cur=max . cur-=|
000043b0  31 0d 1a b8 11 f2 73 65  74 64 61 74 61 28 63 75  |1.....setdata(cu|
000043c0  72 29 0d 1a c2 17 f2 73  65 74 63 61 72 65 74 28  |r).....setcaret(|
000043d0  64 61 74 61 25 2c 36 30  29 0d 1a cc 05 cd 0d 1a  |data%,60).......|
000043e0  d6 1e e7 20 69 63 6f 6e  3d 31 31 39 20 8c 20 f2  |... icon=119 . .|
000043f0  73 65 74 64 61 74 61 28  63 75 72 29 0d 1a e0 10  |setdata(cur)....|
00004400  e7 20 69 63 6f 6e 3d 31  31 38 20 8c 0d 1a ea 3c  |. icon=118 ....<|
00004410  24 a4 74 61 64 28 64 61  74 61 25 2c 36 30 29 3d  |$.tad(data%,60)=|
00004420  22 22 3a 24 a4 74 61 64  28 64 61 74 61 25 2c 36  |"":$.tad(data%,6|
00004430  31 29 3d 22 22 3a 24 a4  74 61 64 28 64 61 74 61  |1)="":$.tad(data|
00004440  25 2c 36 32 29 3d 22 22  0d 1a f4 3c 24 a4 74 61  |%,62)=""...<$.ta|
00004450  64 28 64 61 74 61 25 2c  36 33 29 3d 22 22 3a 24  |d(data%,63)="":$|
00004460  a4 74 61 64 28 64 61 74  61 25 2c 36 34 29 3d 22  |.tad(data%,64)="|
00004470  22 3a 24 a4 74 61 64 28  64 61 74 61 25 2c 36 35  |":$.tad(data%,65|
00004480  29 3d 22 22 0d 1a fe 3c  24 a4 74 61 64 28 64 61  |)=""...<$.tad(da|
00004490  74 61 25 2c 36 36 29 3d  22 22 3a 24 a4 74 61 64  |ta%,66)="":$.tad|
000044a0  28 64 61 74 61 25 2c 36  37 29 3d 22 22 3a 24 a4  |(data%,67)="":$.|
000044b0  74 61 64 28 64 61 74 61  25 2c 36 38 29 3d 22 22  |tad(data%,68)=""|
000044c0  0d 1b 08 16 24 a4 74 61  64 28 64 61 74 61 25 2c  |....$.tad(data%,|
000044d0  36 39 29 3d 22 22 0d 1b  12 42 f2 61 6c 74 65 72  |69)=""...B.alter|
000044e0  28 64 61 74 61 25 2c 38  30 2c 30 2c 30 29 3a f2  |(data%,80,0,0):.|
000044f0  61 6c 74 65 72 28 64 61  74 61 25 2c 36 30 2c 30  |alter(data%,60,0|
00004500  2c 30 29 3a f2 61 6c 74  65 72 28 64 61 74 61 25  |,0):.alter(data%|
00004510  2c 36 31 2c 30 2c 30 29  0d 1b 1c 42 f2 61 6c 74  |,61,0,0)...B.alt|
00004520  65 72 28 64 61 74 61 25  2c 36 32 2c 30 2c 30 29  |er(data%,62,0,0)|
00004530  3a f2 61 6c 74 65 72 28  64 61 74 61 25 2c 36 33  |:.alter(data%,63|
00004540  2c 30 2c 30 29 3a f2 61  6c 74 65 72 28 64 61 74  |,0,0):.alter(dat|
00004550  61 25 2c 36 34 2c 30 2c  30 29 0d 1b 26 42 f2 61  |a%,64,0,0)..&B.a|
00004560  6c 74 65 72 28 64 61 74  61 25 2c 36 35 2c 30 2c  |lter(data%,65,0,|
00004570  30 29 3a f2 61 6c 74 65  72 28 64 61 74 61 25 2c  |0):.alter(data%,|
00004580  36 36 2c 30 2c 30 29 3a  f2 61 6c 74 65 72 28 64  |66,0,0):.alter(d|
00004590  61 74 61 25 2c 36 37 2c  30 2c 30 29 0d 1b 30 2d  |ata%,67,0,0)..0-|
000045a0  f2 61 6c 74 65 72 28 64  61 74 61 25 2c 36 38 2c  |.alter(data%,68,|
000045b0  30 2c 30 29 3a f2 61 6c  74 65 72 28 64 61 74 61  |0,0):.alter(data|
000045c0  25 2c 36 39 2c 30 2c 30  29 0d 1b 3a 05 cd 0d 1b  |%,69,0,0)..:....|
000045d0  44 10 e7 20 69 63 6f 6e  3d 31 31 36 20 8c 0d 1b  |D.. icon=116 ...|
000045e0  4e 18 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 64 65  |N..openwindow(de|
000045f0  66 69 6e 65 25 29 0d 1b  58 0e f2 73 65 74 64 65  |fine%)..X..setde|
00004600  66 69 6e 65 0d 1b 62 18  f2 73 65 74 63 61 72 65  |fine..b..setcare|
00004610  74 28 64 65 66 69 6e 65  25 2c 30 29 0d 1b 6c 05  |t(define%,0)..l.|
00004620  cd 0d 1b 76 18 e7 20 69  63 6f 6e 3d 31 31 33 20  |...v.. icon=113 |
00004630  8c 20 f2 69 6e 73 65 72  74 0d 1b 80 18 e7 20 69  |. .insert..... i|
00004640  63 6f 6e 3d 31 31 34 20  8c 20 f2 64 65 6c 65 74  |con=114 . .delet|
00004650  65 0d 1b 8a 23 e7 20 69  63 6f 6e 3d 31 31 37 20  |e...#. icon=117 |
00004660  8c 20 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 73 6f  |. .openwindow(so|
00004670  72 74 25 29 0d 1b 94 10  e7 20 69 63 6f 6e 3d 31  |rt%)..... icon=1|
00004680  31 35 20 8c 0d 1b 9e 16  f2 6f 70 65 6e 77 69 6e  |15 ......openwin|
00004690  64 6f 77 28 66 69 6e 64  25 29 0d 1b a8 16 24 a4  |dow(find%)....$.|
000046a0  74 61 64 28 66 69 6e 64  25 2c 38 39 29 3d 22 22  |tad(find%,89)=""|
000046b0  0d 1b b2 16 24 a4 74 61  64 28 66 69 6e 64 25 2c  |....$.tad(find%,|
000046c0  38 30 29 3d 22 22 0d 1b  bc 17 f2 73 65 74 63 61  |80)="".....setca|
000046d0  72 65 74 28 66 69 6e 64  25 2c 36 30 29 0d 1b c6  |ret(find%,60)...|
000046e0  21 66 69 6e 64 63 75 72  3d 30 3a 66 69 6e 64 62  |!findcur=0:findb|
000046f0  6f 74 3d 30 3a 66 6f 75  6e 64 28 29 3d 30 0d 1b  |ot=0:found()=0..|
00004700  d0 05 cd 0d 1b da 05 e1  0d 1b e4 11 dd f2 64 65  |..............de|
00004710  66 69 6e 65 63 6c 69 63  6b 0d 1b ee 0f e7 20 69  |fineclick..... i|
00004720  63 6f 6e 3d 33 30 20 8c  0d 1b f8 0e f2 73 65 74  |con=30 ......set|
00004730  64 65 66 69 6e 65 0d 1c  02 2f 21 62 6c 6f 63 6b  |define.../!block|
00004740  3d 64 65 66 69 6e 65 25  3a c8 99 20 22 57 69 6d  |=define%:.. "Wim|
00004750  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00004760  62 6c 6f 63 6b 0d 1c 0c  05 cd 0d 1c 16 0f e7 20  |block.......... |
00004770  69 63 6f 6e 3d 33 31 20  8c 0d 1c 20 2f 21 62 6c  |icon=31 ... /!bl|
00004780  6f 63 6b 3d 64 65 66 69  6e 65 25 3a c8 99 20 22  |ock=define%:.. "|
00004790  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000047a0  22 2c 2c 62 6c 6f 63 6b  0d 1c 2a 0e e3 20 49 3d  |",,block..*.. I=|
000047b0  31 20 b8 20 31 30 0d 1c  34 1f 6e 61 6d 65 24 28  |1 . 10..4.name$(|
000047c0  49 29 3d 24 a4 74 61 64  28 64 65 66 69 6e 65 25  |I)=$.tad(define%|
000047d0  2c 49 2d 31 29 0d 1c 3e  05 ed 0d 1c 48 11 f2 73  |,I-1)..>....H..s|
000047e0  65 74 61 6c 6c 64 65 66  69 6e 65 0d 1c 52 05 cd  |etalldefine..R..|
000047f0  0d 1c 5c 05 e1 0d 1c 66  0f dd f2 73 65 74 64 65  |..\....f...setde|
00004800  66 69 6e 65 0d 1c 70 0e  e3 20 49 3d 31 20 b8 20  |fine..p.. I=1 . |
00004810  31 30 0d 1c 7a 1f 24 a4  74 61 64 28 64 65 66 69  |10..z.$.tad(defi|
00004820  6e 65 25 2c 49 2d 31 29  3d 6e 61 6d 65 24 28 49  |ne%,I-1)=name$(I|
00004830  29 0d 1c 84 19 f2 61 6c  74 65 72 28 64 65 66 69  |).....alter(defi|
00004840  6e 65 25 2c 49 2c 30 2c  30 29 0d 1c 8e 05 ed 0d  |ne%,I,0,0)......|
00004850  1c 98 05 e1 0d 1c a2 12  dd f2 73 65 74 61 6c 6c  |..........setall|
00004860  64 65 66 69 6e 65 0d 1c  ac 0e e3 20 49 3d 31 20  |define..... I=1 |
00004870  b8 20 31 30 0d 1c b6 1f  24 a4 74 61 64 28 64 65  |. 10....$.tad(de|
00004880  66 69 6e 65 25 2c 49 2d  31 29 3d 6e 61 6d 65 24  |fine%,I-1)=name$|
00004890  28 49 29 0d 1c c0 1d 24  a4 74 61 64 28 64 61 74  |(I)....$.tad(dat|
000048a0  61 25 2c 49 2d 31 29 3d  6e 61 6d 65 24 28 49 29  |a%,I-1)=name$(I)|
000048b0  0d 1c ca 1d 24 a4 74 61  64 28 66 69 6e 64 25 2c  |....$.tad(find%,|
000048c0  49 2d 31 29 3d 6e 61 6d  65 24 28 49 29 0d 1c d4  |I-1)=name$(I)...|
000048d0  30 24 a4 74 61 64 28 73  6f 72 74 25 2c 49 2b 39  |0$.tad(sort%,I+9|
000048e0  29 3d 22 53 6f 72 74 20  75 73 69 6e 67 20 27 22  |)="Sort using '"|
000048f0  2b 6e 61 6d 65 24 28 49  29 2b 22 27 22 0d 1c de  |+name$(I)+"'"...|
00004900  27 e7 20 49 3e 31 20 8c  20 24 a4 74 61 64 28 73  |'. I>1 . $.tad(s|
00004910  61 76 65 33 25 2c 49 2b  33 37 29 3d 6e 61 6d 65  |ave3%,I+37)=name|
00004920  24 28 49 29 0d 1c e8 1b  f2 61 6c 74 65 72 28 64  |$(I).....alter(d|
00004930  65 66 69 6e 65 25 2c 49  2d 31 2c 30 2c 30 29 0d  |efine%,I-1,0,0).|
00004940  1c f2 19 f2 61 6c 74 65  72 28 64 61 74 61 25 2c  |....alter(data%,|
00004950  49 2d 31 2c 30 2c 30 29  0d 1c fc 05 ed 0d 1d 06  |I-1,0,0)........|
00004960  1d 24 a4 74 61 64 28 73  61 76 65 33 25 2c 32 33  |.$.tad(save3%,23|
00004970  29 3d 6e 61 6d 65 24 28  31 29 0d 1d 10 05 e1 0d  |)=name$(1)......|
00004980  1d 1a 0c dd f2 69 6e 73  65 72 74 0d 1d 24 29 e7  |.....insert..$).|
00004990  20 62 6f 74 3d 6d 61 78  2d 32 20 84 20 62 6f 74  | bot=max-2 . bot|
000049a0  3d 6d 61 78 2d 31 20 84  20 62 6f 74 3d 6d 61 78  |=max-1 . bot=max|
000049b0  20 8c 20 e1 0d 1d 2e 15  c8 99 20 22 48 6f 75 72  | . ....... "Hour|
000049c0  67 6c 61 73 73 5f 4f 6e  22 0d 1d 38 18 e3 20 49  |glass_On"..8.. I|
000049d0  3d 6d 61 78 20 b8 20 63  75 72 2b 31 20 88 20 2d  |=max . cur+1 . -|
000049e0  31 0d 1d 42 0e e3 20 4a  3d 31 20 b8 20 31 30 0d  |1..B.. J=1 . 10.|
000049f0  1d 4c 1b 64 61 74 61 24  28 49 2c 4a 29 3d 64 61  |.L.data$(I,J)=da|
00004a00  74 61 24 28 49 2d 31 2c  4a 29 0d 1d 56 05 ed 0d  |ta$(I-1,J)..V...|
00004a10  1d 60 05 ed 0d 1d 6a 0e  e3 20 4a 3d 31 20 b8 20  |.`....j.. J=1 . |
00004a20  31 30 0d 1d 74 13 64 61  74 61 24 28 63 75 72 2c  |10..t.data$(cur,|
00004a30  4a 29 3d 22 22 0d 1d 7e  05 ed 0d 1d 88 0a 62 6f  |J)=""..~......bo|
00004a40  74 2b 3d 31 0d 1d 92 16  c8 99 20 22 48 6f 75 72  |t+=1...... "Hour|
00004a50  67 6c 61 73 73 5f 4f 66  66 22 0d 1d 9c 11 f2 73  |glass_Off".....s|
00004a60  65 74 64 61 74 61 28 63  75 72 29 0d 1d a6 05 e1  |etdata(cur).....|
00004a70  0d 1d b0 0c dd f2 64 65  6c 65 74 65 0d 1d ba 17  |......delete....|
00004a80  e7 20 62 6f 74 3d 30 20  84 20 62 6f 74 3d 31 20  |. bot=0 . bot=1 |
00004a90  8c 20 e1 0d 1d c4 53 e7  20 70 72 65 66 63 6f 6e  |. ....S. prefcon|
00004aa0  20 8c 20 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 63  | . .openwindow(c|
00004ab0  6f 6e 66 69 72 6d 25 29  3a 24 a4 74 61 64 28 63  |onfirm%):$.tad(c|
00004ac0  6f 6e 66 69 72 6d 25 2c  32 29 3d 22 44 65 6c 65  |onfirm%,2)="Dele|
00004ad0  74 65 20 63 61 72 64 20  22 2b c3 28 63 75 72 29  |te card "+.(cur)|
00004ae0  2b 22 3f 22 3a e1 0d 1d  ce 15 c8 99 20 22 48 6f  |+"?":....... "Ho|
00004af0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 1d d8 13 e3  |urglass_On".....|
00004b00  20 49 3d 63 75 72 20 b8  20 6d 61 78 2d 31 0d 1d  | I=cur . max-1..|
00004b10  e2 0e e3 20 4a 3d 31 20  b8 20 31 30 0d 1d ec 1b  |... J=1 . 10....|
00004b20  64 61 74 61 24 28 49 2c  4a 29 3d 64 61 74 61 24  |data$(I,J)=data$|
00004b30  28 49 2b 31 2c 4a 29 0d  1d f6 05 ed 0d 1e 00 05  |(I+1,J).........|
00004b40  ed 0d 1e 0a 20 e3 20 4a  3d 31 20 b8 20 31 30 3a  |.... . J=1 . 10:|
00004b50  64 61 74 61 24 28 6d 61  78 2c 4a 29 3d 22 22 3a  |data$(max,J)="":|
00004b60  ed 0d 1e 14 0a 62 6f 74  2d 3d 31 0d 1e 1e 19 e7  |.....bot-=1.....|
00004b70  20 63 75 72 3e 3d 62 6f  74 2b 31 20 8c 20 63 75  | cur>=bot+1 . cu|
00004b80  72 2d 3d 31 0d 1e 28 16  c8 99 20 22 48 6f 75 72  |r-=1..(... "Hour|
00004b90  67 6c 61 73 73 5f 4f 66  66 22 0d 1e 32 11 f2 73  |glass_Off"..2..s|
00004ba0  65 74 64 61 74 61 28 63  75 72 29 0d 1e 3c 05 e1  |etdata(cur)..<..|
00004bb0  0d 1e 46 12 dd f2 63 6f  6e 66 69 72 6d 63 6c 69  |..F...confirmcli|
00004bc0  63 6b 0d 1e 50 0f e7 20  69 63 6f 6e 3d 31 30 20  |ck..P.. icon=10 |
00004bd0  8c 0d 1e 5a 15 c8 99 20  22 48 6f 75 72 67 6c 61  |...Z... "Hourgla|
00004be0  73 73 5f 4f 6e 22 0d 1e  64 13 e3 20 49 3d 63 75  |ss_On"..d.. I=cu|
00004bf0  72 20 b8 20 6d 61 78 2d  31 0d 1e 6e 0e e3 20 4a  |r . max-1..n.. J|
00004c00  3d 31 20 b8 20 31 30 0d  1e 78 1b 64 61 74 61 24  |=1 . 10..x.data$|
00004c10  28 49 2c 4a 29 3d 64 61  74 61 24 28 49 2b 31 2c  |(I,J)=data$(I+1,|
00004c20  4a 29 0d 1e 82 05 ed 0d  1e 8c 05 ed 0d 1e 96 20  |J)............. |
00004c30  e3 20 4a 3d 31 20 b8 20  31 30 3a 64 61 74 61 24  |. J=1 . 10:data$|
00004c40  28 6d 61 78 2c 4a 29 3d  22 22 3a ed 0d 1e a0 0a  |(max,J)="":.....|
00004c50  62 6f 74 2d 3d 31 0d 1e  aa 16 c8 99 20 22 48 6f  |bot-=1...... "Ho|
00004c60  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 1e b4 11  |urglass_Off"....|
00004c70  f2 73 65 74 64 61 74 61  28 63 75 72 29 0d 1e be  |.setdata(cur)...|
00004c80  05 cd 0d 1e c8 30 21 62  6c 6f 63 6b 3d 63 6f 6e  |.....0!block=con|
00004c90  66 69 72 6d 25 3a c8 99  20 22 57 69 6d 70 5f 43  |firm%:.. "Wimp_C|
00004ca0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00004cb0  63 6b 0d 1e d2 05 e1 0d  1e dc 0f dd f2 73 6f 72  |ck...........sor|
00004cc0  74 63 6c 69 63 6b 0d 1e  e6 0f e7 20 69 63 6f 6e  |tclick..... icon|
00004cd0  3d 33 36 20 8c 0d 1e f0  2d 21 62 6c 6f 63 6b 3d  |=36 ....-!block=|
00004ce0  73 6f 72 74 25 3a c8 99  20 22 57 69 6d 70 5f 43  |sort%:.. "Wimp_C|
00004cf0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00004d00  63 6b 0d 1e fa 05 e1 0d  1f 04 05 cd 0d 1f 0e 0f  |ck..............|
00004d10  e7 20 69 63 6f 6e 3d 33  37 20 8c 0d 1f 18 0c 73  |. icon=37 .....s|
00004d20  6f 72 74 6f 6e 3d 30 0d  1f 22 0e e3 20 69 3d 31  |orton=0..".. i=1|
00004d30  20 b8 20 31 30 0d 1f 2c  23 e7 20 a4 73 65 6c 65  | . 10..,#. .sele|
00004d40  63 74 28 73 6f 72 74 25  2c 69 2d 31 29 20 8c 20  |ct(sort%,i-1) . |
00004d50  73 6f 72 74 6f 6e 3d 69  0d 1f 36 05 ed 0d 1f 40  |sorton=i..6....@|
00004d60  3c e7 20 73 6f 72 74 6f  6e 3d 30 20 8c 20 f2 6d  |<. sorton=0 . .m|
00004d70  6f 61 6e 28 22 43 6f 75  6c 64 6e 27 74 20 73 6f  |oan("Couldn't so|
00004d80  72 74 20 3a 20 4e 6f 20  73 6f 72 74 20 73 65 6c  |rt : No sort sel|
00004d90  65 63 74 65 64 22 29 3a  e1 0d 1f 4a 0e 73 6f 72  |ected"):...J.sor|
00004da0  74 74 79 70 65 3d 30 0d  1f 54 24 e7 20 a4 73 65  |ttype=0..T$. .se|
00004db0  6c 65 63 74 28 73 6f 72  74 25 2c 32 38 29 20 8c  |lect(sort%,28) .|
00004dc0  20 73 6f 72 74 74 79 70  65 3d 31 0d 1f 5e 24 e7  | sorttype=1..^$.|
00004dd0  20 a4 73 65 6c 65 63 74  28 73 6f 72 74 25 2c 32  | .select(sort%,2|
00004de0  39 29 20 8c 20 73 6f 72  74 74 79 70 65 3d 32 0d  |9) . sorttype=2.|
00004df0  1f 68 0e 73 6f 72 74 73  74 79 6c 3d 30 0d 1f 72  |.h.sortstyl=0..r|
00004e00  24 e7 20 a4 73 65 6c 65  63 74 28 73 6f 72 74 25  |$. .select(sort%|
00004e10  2c 34 32 29 20 8c 20 73  6f 72 74 73 74 79 6c 3d  |,42) . sortstyl=|
00004e20  31 0d 1f 7c 24 e7 20 a4  73 65 6c 65 63 74 28 73  |1..|$. .select(s|
00004e30  6f 72 74 25 2c 34 33 29  20 8c 20 73 6f 72 74 73  |ort%,43) . sorts|
00004e40  74 79 6c 3d 32 0d 1f 86  3e e7 20 73 6f 72 74 74  |tyl=2...>. sortt|
00004e50  79 70 65 3d 30 20 8c 20  f2 6d 6f 61 6e 28 22 43  |ype=0 . .moan("C|
00004e60  6f 75 6c 64 6e 27 74 20  73 6f 72 74 20 3a 20 4e  |ouldn't sort : N|
00004e70  6f 20 73 6f 72 74 20 73  65 6c 65 63 74 65 64 22  |o sort selected"|
00004e80  29 3a e1 0d 1f 90 3e e7  20 73 6f 72 74 73 74 79  |):....>. sortsty|
00004e90  6c 3d 30 20 8c 20 f2 6d  6f 61 6e 28 22 43 6f 75  |l=0 . .moan("Cou|
00004ea0  6c 64 6e 27 74 20 73 6f  72 74 20 3a 20 4e 6f 20  |ldn't sort : No |
00004eb0  73 6f 72 74 20 73 65 6c  65 63 74 65 64 22 29 3a  |sort selected"):|
00004ec0  e1 0d 1f 9a 2d e7 20 73  6f 72 74 74 79 70 65 3d  |....-. sorttype=|
00004ed0  31 20 80 20 73 6f 72 74  73 74 79 6c 3d 31 20 8c  |1 . sortstyl=1 .|
00004ee0  20 f2 61 73 63 73 6f 72  74 61 6c 70 68 61 0d 1f  | .ascsortalpha..|
00004ef0  a4 2d e7 20 73 6f 72 74  74 79 70 65 3d 31 20 80  |.-. sorttype=1 .|
00004f00  20 73 6f 72 74 73 74 79  6c 3d 32 20 8c 20 f2 61  | sortstyl=2 . .a|
00004f10  73 63 73 6f 72 74 6e 75  6d 65 72 0d 1f ae 2d e7  |scsortnumer...-.|
00004f20  20 73 6f 72 74 74 79 70  65 3d 32 20 80 20 73 6f  | sorttype=2 . so|
00004f30  72 74 73 74 79 6c 3d 31  20 8c 20 f2 64 65 73 73  |rtstyl=1 . .dess|
00004f40  6f 72 74 61 6c 70 68 61  0d 1f b8 2d e7 20 73 6f  |ortalpha...-. so|
00004f50  72 74 74 79 70 65 3d 32  20 80 20 73 6f 72 74 73  |rttype=2 . sorts|
00004f60  74 79 6c 3d 32 20 8c 20  f2 64 65 73 73 6f 72 74  |tyl=2 . .dessort|
00004f70  6e 75 6d 65 72 0d 1f c2  11 f2 73 65 74 64 61 74  |numer.....setdat|
00004f80  61 28 63 75 72 29 0d 1f  cc 2d 21 62 6c 6f 63 6b  |a(cur)...-!block|
00004f90  3d 73 6f 72 74 25 3a c8  99 20 22 57 69 6d 70 5f  |=sort%:.. "Wimp_|
00004fa0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00004fb0  6f 63 6b 0d 1f d6 05 cd  0d 1f e0 05 e1 0d 1f ea  |ock.............|
00004fc0  12 dd f2 61 73 63 73 6f  72 74 61 6c 70 68 61 0d  |...ascsortalpha.|
00004fd0  1f f4 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00004fe0  5f 4f 6e 22 0d 1f fe 14  e3 20 70 61 73 73 3d 31  |_On"..... pass=1|
00004ff0  20 b8 20 62 6f 74 2b 31  0d 20 08 1b 6c 6f 77 24  | . bot+1. ..low$|
00005000  3d c4 32 35 35 2c 22 ff  22 29 3a 6c 6f 77 6e 75  |=.255,"."):lownu|
00005010  6d 3d 30 0d 20 12 17 e3  20 74 68 72 6f 3d 70 61  |m=0. ... thro=pa|
00005020  73 73 20 b8 20 62 6f 74  2b 31 0d 20 1c 43 e7 20  |ss . bot+1. .C. |
00005030  64 61 74 61 24 28 74 68  72 6f 2c 73 6f 72 74 6f  |data$(thro,sorto|
00005040  6e 29 3c 6c 6f 77 24 20  8c 20 6c 6f 77 24 3d 64  |n)<low$ . low$=d|
00005050  61 74 61 24 28 74 68 72  6f 2c 73 6f 72 74 6f 6e  |ata$(thro,sorton|
00005060  29 3a 6c 6f 77 6e 75 6d  3d 74 68 72 6f 0d 20 26  |):lownum=thro. &|
00005070  0a ed 20 74 68 72 6f 0d  20 30 11 e7 20 6c 6f 77  |.. thro. 0.. low|
00005080  6e 75 6d 3c 3e 30 20 8c  0d 20 3a 2a e3 20 4a 25  |num<>0 .. :*. J%|
00005090  3d 31 20 b8 20 31 30 3a  73 6f 72 74 24 28 4a 25  |=1 . 10:sort$(J%|
000050a0  29 3d 64 61 74 61 24 28  70 61 73 73 2c 4a 25 29  |)=data$(pass,J%)|
000050b0  3a ed 0d 20 44 31 e3 20  4a 25 3d 31 20 b8 20 31  |:.. D1. J%=1 . 1|
000050c0  30 3a 64 61 74 61 24 28  70 61 73 73 2c 4a 25 29  |0:data$(pass,J%)|
000050d0  3d 64 61 74 61 24 28 6c  6f 77 6e 75 6d 2c 4a 25  |=data$(lownum,J%|
000050e0  29 3a ed 0d 20 4e 2c e3  20 4a 25 3d 31 20 b8 20  |):.. N,. J%=1 . |
000050f0  31 30 3a 64 61 74 61 24  28 6c 6f 77 6e 75 6d 2c  |10:data$(lownum,|
00005100  4a 25 29 3d 73 6f 72 74  24 28 4a 25 29 3a ed 0d  |J%)=sort$(J%):..|
00005110  20 58 05 cd 0d 20 62 0a  ed 20 70 61 73 73 0d 20  | X... b.. pass. |
00005120  6c 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |l... "Hourglass_|
00005130  4f 66 66 22 0d 20 76 05  e1 0d 20 80 12 dd f2 64  |Off". v... ....d|
00005140  65 73 73 6f 72 74 61 6c  70 68 61 0d 20 8a 15 c8  |essortalpha. ...|
00005150  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00005160  0d 20 94 14 e3 20 70 61  73 73 3d 31 20 b8 20 62  |. ... pass=1 . b|
00005170  6f 74 2b 31 0d 20 9e 14  6c 6f 77 24 3d 22 22 3a  |ot+1. ..low$="":|
00005180  6c 6f 77 6e 75 6d 3d 30  0d 20 a8 17 e3 20 74 68  |lownum=0. ... th|
00005190  72 6f 3d 70 61 73 73 20  b8 20 62 6f 74 2b 31 0d  |ro=pass . bot+1.|
000051a0  20 b2 43 e7 20 64 61 74  61 24 28 74 68 72 6f 2c  | .C. data$(thro,|
000051b0  73 6f 72 74 6f 6e 29 3e  6c 6f 77 24 20 8c 20 6c  |sorton)>low$ . l|
000051c0  6f 77 24 3d 64 61 74 61  24 28 74 68 72 6f 2c 73  |ow$=data$(thro,s|
000051d0  6f 72 74 6f 6e 29 3a 6c  6f 77 6e 75 6d 3d 74 68  |orton):lownum=th|
000051e0  72 6f 0d 20 bc 0a ed 20  74 68 72 6f 0d 20 c6 11  |ro. ... thro. ..|
000051f0  e7 20 6c 6f 77 6e 75 6d  3c 3e 30 20 8c 0d 20 d0  |. lownum<>0 .. .|
00005200  2a e3 20 4a 25 3d 31 20  b8 20 31 30 3a 73 6f 72  |*. J%=1 . 10:sor|
00005210  74 24 28 4a 25 29 3d 64  61 74 61 24 28 70 61 73  |t$(J%)=data$(pas|
00005220  73 2c 4a 25 29 3a ed 0d  20 da 31 e3 20 4a 25 3d  |s,J%):.. .1. J%=|
00005230  31 20 b8 20 31 30 3a 64  61 74 61 24 28 70 61 73  |1 . 10:data$(pas|
00005240  73 2c 4a 25 29 3d 64 61  74 61 24 28 6c 6f 77 6e  |s,J%)=data$(lown|
00005250  75 6d 2c 4a 25 29 3a ed  0d 20 e4 2c e3 20 4a 25  |um,J%):.. .,. J%|
00005260  3d 31 20 b8 20 31 30 3a  64 61 74 61 24 28 6c 6f  |=1 . 10:data$(lo|
00005270  77 6e 75 6d 2c 4a 25 29  3d 73 6f 72 74 24 28 4a  |wnum,J%)=sort$(J|
00005280  25 29 3a ed 0d 20 ee 05  cd 0d 20 f8 0a ed 20 70  |%):.. .... ... p|
00005290  61 73 73 0d 21 02 16 c8  99 20 22 48 6f 75 72 67  |ass.!.... "Hourg|
000052a0  6c 61 73 73 5f 4f 66 66  22 0d 21 0c 05 e1 0d 21  |lass_Off".!....!|
000052b0  16 12 dd f2 61 73 63 73  6f 72 74 6e 75 6d 65 72  |....ascsortnumer|
000052c0  0d 21 20 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.! ... "Hourglas|
000052d0  73 5f 4f 6e 22 0d 21 2a  14 e3 20 70 61 73 73 3d  |s_On".!*.. pass=|
000052e0  31 20 b8 20 62 6f 74 2b  31 0d 21 34 15 6c 6f 77  |1 . bot+1.!4.low|
000052f0  3d 31 45 33 38 3a 6c 6f  77 6e 75 6d 3d 30 0d 21  |=1E38:lownum=0.!|
00005300  3e 17 e3 20 74 68 72 6f  3d 70 61 73 73 20 b8 20  |>.. thro=pass . |
00005310  62 6f 74 2b 31 0d 21 48  47 e7 20 bb 28 64 61 74  |bot+1.!HG. .(dat|
00005320  61 24 28 74 68 72 6f 2c  73 6f 72 74 6f 6e 29 29  |a$(thro,sorton))|
00005330  3c 6c 6f 77 20 8c 20 6c  6f 77 3d bb 28 64 61 74  |<low . low=.(dat|
00005340  61 24 28 74 68 72 6f 2c  73 6f 72 74 6f 6e 29 29  |a$(thro,sorton))|
00005350  3a 6c 6f 77 6e 75 6d 3d  74 68 72 6f 0d 21 52 0a  |:lownum=thro.!R.|
00005360  ed 20 74 68 72 6f 0d 21  5c 11 e7 20 6c 6f 77 6e  |. thro.!\.. lown|
00005370  75 6d 3c 3e 30 20 8c 0d  21 66 2a e3 20 4a 25 3d  |um<>0 ..!f*. J%=|
00005380  31 20 b8 20 31 30 3a 73  6f 72 74 24 28 4a 25 29  |1 . 10:sort$(J%)|
00005390  3d 64 61 74 61 24 28 70  61 73 73 2c 4a 25 29 3a  |=data$(pass,J%):|
000053a0  ed 0d 21 70 31 e3 20 4a  25 3d 31 20 b8 20 31 30  |..!p1. J%=1 . 10|
000053b0  3a 64 61 74 61 24 28 70  61 73 73 2c 4a 25 29 3d  |:data$(pass,J%)=|
000053c0  64 61 74 61 24 28 6c 6f  77 6e 75 6d 2c 4a 25 29  |data$(lownum,J%)|
000053d0  3a ed 0d 21 7a 2c e3 20  4a 25 3d 31 20 b8 20 31  |:..!z,. J%=1 . 1|
000053e0  30 3a 64 61 74 61 24 28  6c 6f 77 6e 75 6d 2c 4a  |0:data$(lownum,J|
000053f0  25 29 3d 73 6f 72 74 24  28 4a 25 29 3a ed 0d 21  |%)=sort$(J%):..!|
00005400  84 05 cd 0d 21 8e 0a ed  20 70 61 73 73 0d 21 98  |....!... pass.!.|
00005410  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00005420  66 66 22 0d 21 a2 05 e1  0d 21 ac 12 dd f2 64 65  |ff".!....!....de|
00005430  73 73 6f 72 74 6e 75 6d  65 72 0d 21 b6 15 c8 99  |ssortnumer.!....|
00005440  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00005450  21 c0 14 e3 20 70 61 73  73 3d 31 20 b8 20 62 6f  |!... pass=1 . bo|
00005460  74 2b 31 0d 21 ca 12 6c  6f 77 3d 30 3a 6c 6f 77  |t+1.!..low=0:low|
00005470  6e 75 6d 3d 30 0d 21 d4  17 e3 20 74 68 72 6f 3d  |num=0.!... thro=|
00005480  70 61 73 73 20 b8 20 62  6f 74 2b 31 0d 21 de 47  |pass . bot+1.!.G|
00005490  e7 20 bb 28 64 61 74 61  24 28 74 68 72 6f 2c 73  |. .(data$(thro,s|
000054a0  6f 72 74 6f 6e 29 29 3e  6c 6f 77 20 8c 20 6c 6f  |orton))>low . lo|
000054b0  77 3d bb 28 64 61 74 61  24 28 74 68 72 6f 2c 73  |w=.(data$(thro,s|
000054c0  6f 72 74 6f 6e 29 29 3a  6c 6f 77 6e 75 6d 3d 74  |orton)):lownum=t|
000054d0  68 72 6f 0d 21 e8 0a ed  20 74 68 72 6f 0d 21 f2  |hro.!... thro.!.|
000054e0  11 e7 20 6c 6f 77 6e 75  6d 3c 3e 30 20 8c 0d 21  |.. lownum<>0 ..!|
000054f0  fc 2a e3 20 4a 25 3d 31  20 b8 20 31 30 3a 73 6f  |.*. J%=1 . 10:so|
00005500  72 74 24 28 4a 25 29 3d  64 61 74 61 24 28 70 61  |rt$(J%)=data$(pa|
00005510  73 73 2c 4a 25 29 3a ed  0d 22 06 31 e3 20 4a 25  |ss,J%):..".1. J%|
00005520  3d 31 20 b8 20 31 30 3a  64 61 74 61 24 28 70 61  |=1 . 10:data$(pa|
00005530  73 73 2c 4a 25 29 3d 64  61 74 61 24 28 6c 6f 77  |ss,J%)=data$(low|
00005540  6e 75 6d 2c 4a 25 29 3a  ed 0d 22 10 2c e3 20 4a  |num,J%):..".,. J|
00005550  25 3d 31 20 b8 20 31 30  3a 64 61 74 61 24 28 6c  |%=1 . 10:data$(l|
00005560  6f 77 6e 75 6d 2c 4a 25  29 3d 73 6f 72 74 24 28  |ownum,J%)=sort$(|
00005570  4a 25 29 3a ed 0d 22 1a  05 cd 0d 22 24 0a ed 20  |J%):.."...."$.. |
00005580  70 61 73 73 0d 22 2e 16  c8 99 20 22 48 6f 75 72  |pass.".... "Hour|
00005590  67 6c 61 73 73 5f 4f 66  66 22 0d 22 38 05 e1 0d  |glass_Off"."8...|
000055a0  22 42 0f dd f2 66 69 6e  64 63 6c 69 63 6b 0d 22  |"B...findclick."|
000055b0  4c 0f e7 20 69 63 6f 6e  3d 39 39 20 8c 0d 22 56  |L.. icon=99 .."V|
000055c0  3c 24 a4 74 61 64 28 66  69 6e 64 25 2c 36 30 29  |<$.tad(find%,60)|
000055d0  3d 22 22 3a 24 a4 74 61  64 28 66 69 6e 64 25 2c  |="":$.tad(find%,|
000055e0  36 31 29 3d 22 22 3a 24  a4 74 61 64 28 66 69 6e  |61)="":$.tad(fin|
000055f0  64 25 2c 36 32 29 3d 22  22 0d 22 60 3c 24 a4 74  |d%,62)=""."`<$.t|
00005600  61 64 28 66 69 6e 64 25  2c 36 33 29 3d 22 22 3a  |ad(find%,63)="":|
00005610  24 a4 74 61 64 28 66 69  6e 64 25 2c 36 34 29 3d  |$.tad(find%,64)=|
00005620  22 22 3a 24 a4 74 61 64  28 66 69 6e 64 25 2c 36  |"":$.tad(find%,6|
00005630  35 29 3d 22 22 0d 22 6a  3c 24 a4 74 61 64 28 66  |5)=""."j<$.tad(f|
00005640  69 6e 64 25 2c 36 36 29  3d 22 22 3a 24 a4 74 61  |ind%,66)="":$.ta|
00005650  64 28 66 69 6e 64 25 2c  36 37 29 3d 22 22 3a 24  |d(find%,67)="":$|
00005660  a4 74 61 64 28 66 69 6e  64 25 2c 36 38 29 3d 22  |.tad(find%,68)="|
00005670  22 0d 22 74 3c 24 a4 74  61 64 28 66 69 6e 64 25  |"."t<$.tad(find%|
00005680  2c 36 39 29 3d 22 22 3a  24 a4 74 61 64 28 66 69  |,69)="":$.tad(fi|
00005690  6e 64 25 2c 38 39 29 3d  22 22 3a 24 a4 74 61 64  |nd%,89)="":$.tad|
000056a0  28 66 69 6e 64 25 2c 38  30 29 3d 22 22 0d 22 7e  |(find%,80)=""."~|
000056b0  42 f2 61 6c 74 65 72 28  66 69 6e 64 25 2c 36 30  |B.alter(find%,60|
000056c0  2c 30 2c 30 29 3a f2 61  6c 74 65 72 28 66 69 6e  |,0,0):.alter(fin|
000056d0  64 25 2c 36 31 2c 30 2c  30 29 3a f2 61 6c 74 65  |d%,61,0,0):.alte|
000056e0  72 28 66 69 6e 64 25 2c  36 32 2c 30 2c 30 29 0d  |r(find%,62,0,0).|
000056f0  22 88 42 f2 61 6c 74 65  72 28 66 69 6e 64 25 2c  |".B.alter(find%,|
00005700  36 33 2c 30 2c 30 29 3a  f2 61 6c 74 65 72 28 66  |63,0,0):.alter(f|
00005710  69 6e 64 25 2c 36 34 2c  30 2c 30 29 3a f2 61 6c  |ind%,64,0,0):.al|
00005720  74 65 72 28 66 69 6e 64  25 2c 36 35 2c 30 2c 30  |ter(find%,65,0,0|
00005730  29 0d 22 92 42 f2 61 6c  74 65 72 28 66 69 6e 64  |).".B.alter(find|
00005740  25 2c 36 36 2c 30 2c 30  29 3a f2 61 6c 74 65 72  |%,66,0,0):.alter|
00005750  28 66 69 6e 64 25 2c 36  37 2c 30 2c 30 29 3a f2  |(find%,67,0,0):.|
00005760  61 6c 74 65 72 28 66 69  6e 64 25 2c 36 38 2c 30  |alter(find%,68,0|
00005770  2c 30 29 0d 22 9c 42 f2  61 6c 74 65 72 28 66 69  |,0).".B.alter(fi|
00005780  6e 64 25 2c 36 39 2c 30  2c 30 29 3a f2 61 6c 74  |nd%,69,0,0):.alt|
00005790  65 72 28 66 69 6e 64 25  2c 38 39 2c 30 2c 30 29  |er(find%,89,0,0)|
000057a0  3a f2 61 6c 74 65 72 28  66 69 6e 64 25 2c 38 30  |:.alter(find%,80|
000057b0  2c 30 2c 30 29 0d 22 a6  05 cd 0d 22 b0 10 e7 20  |,0,0)."...."... |
000057c0  69 63 6f 6e 3d 31 30 30  20 8c 0d 22 ba 2d 21 62  |icon=100 ..".-!b|
000057d0  6c 6f 63 6b 3d 66 69 6e  64 25 3a c8 99 20 22 57  |lock=find%:.. "W|
000057e0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000057f0  2c 2c 62 6c 6f 63 6b 0d  22 c4 05 cd 0d 22 ce 10  |,,block."...."..|
00005800  e7 20 69 63 6f 6e 3d 31  30 31 20 8c 0d 22 d8 09  |. icon=101 .."..|
00005810  f2 66 69 6e 64 0d 22 e2  05 cd 0d 22 ec 11 e7 20  |.find."...."... |
00005820  66 69 6e 64 62 6f 74 3e  30 20 8c 0d 22 f6 05 3a  |findbot>0 .."..:|
00005830  0d 23 00 0f e7 20 69 63  6f 6e 3d 37 36 20 8c 0d  |.#... icon=76 ..|
00005840  23 0a 1c e7 20 66 69 6e  64 63 75 72 3e 31 20 8c  |#... findcur>1 .|
00005850  20 66 69 6e 64 63 75 72  2d 3d 31 0d 23 14 1e 24  | findcur-=1.#..$|
00005860  a4 74 61 64 28 66 69 6e  64 25 2c 38 30 29 3d c3  |.tad(find%,80)=.|
00005870  28 66 69 6e 64 63 75 72  29 0d 23 1e 18 f2 61 6c  |(findcur).#...al|
00005880  74 65 72 28 66 69 6e 64  25 2c 38 30 2c 30 2c 30  |ter(find%,80,0,0|
00005890  29 0d 23 28 1c f2 73 65  74 64 61 74 61 28 66 6f  |).#(..setdata(fo|
000058a0  75 6e 64 28 66 69 6e 64  63 75 72 29 29 0d 23 32  |und(findcur)).#2|
000058b0  05 cd 0d 23 3c 0f e7 20  69 63 6f 6e 3d 37 37 20  |...#<.. icon=77 |
000058c0  8c 0d 23 46 22 e7 20 66  69 6e 64 63 75 72 3c 66  |..#F". findcur<f|
000058d0  69 6e 64 62 6f 74 20 8c  20 66 69 6e 64 63 75 72  |indbot . findcur|
000058e0  2b 3d 31 0d 23 50 1e 24  a4 74 61 64 28 66 69 6e  |+=1.#P.$.tad(fin|
000058f0  64 25 2c 38 30 29 3d c3  28 66 69 6e 64 63 75 72  |d%,80)=.(findcur|
00005900  29 0d 23 5a 18 f2 61 6c  74 65 72 28 66 69 6e 64  |).#Z..alter(find|
00005910  25 2c 38 30 2c 30 2c 30  29 0d 23 64 1c f2 73 65  |%,80,0,0).#d..se|
00005920  74 64 61 74 61 28 66 6f  75 6e 64 28 66 69 6e 64  |tdata(found(find|
00005930  63 75 72 29 29 0d 23 6e  05 cd 0d 23 78 0f e7 20  |cur)).#n...#x.. |
00005940  69 63 6f 6e 3d 38 37 20  8c 0d 23 82 0d 66 69 6e  |icon=87 ..#..fin|
00005950  64 63 75 72 3d 31 0d 23  8c 1e 24 a4 74 61 64 28  |dcur=1.#..$.tad(|
00005960  66 69 6e 64 25 2c 38 30  29 3d c3 28 66 69 6e 64  |find%,80)=.(find|
00005970  63 75 72 29 0d 23 96 18  f2 61 6c 74 65 72 28 66  |cur).#...alter(f|
00005980  69 6e 64 25 2c 38 30 2c  30 2c 30 29 0d 23 a0 1c  |ind%,80,0,0).#..|
00005990  f2 73 65 74 64 61 74 61  28 66 6f 75 6e 64 28 66  |.setdata(found(f|
000059a0  69 6e 64 63 75 72 29 29  0d 23 aa 05 cd 0d 23 b4  |indcur)).#....#.|
000059b0  0f e7 20 69 63 6f 6e 3d  38 38 20 8c 0d 23 be 13  |.. icon=88 ..#..|
000059c0  66 69 6e 64 63 75 72 3d  66 69 6e 64 62 6f 74 0d  |findcur=findbot.|
000059d0  23 c8 1e 24 a4 74 61 64  28 66 69 6e 64 25 2c 38  |#..$.tad(find%,8|
000059e0  30 29 3d c3 28 66 69 6e  64 63 75 72 29 0d 23 d2  |0)=.(findcur).#.|
000059f0  18 f2 61 6c 74 65 72 28  66 69 6e 64 25 2c 38 30  |..alter(find%,80|
00005a00  2c 30 2c 30 29 0d 23 dc  1c f2 73 65 74 64 61 74  |,0,0).#...setdat|
00005a10  61 28 66 6f 75 6e 64 28  66 69 6e 64 63 75 72 29  |a(found(findcur)|
00005a20  29 0d 23 e6 05 cd 0d 23  f0 05 3a 0d 23 fa 05 cd  |).#....#..:.#...|
00005a30  0d 24 04 05 e1 0d 24 0e  0a dd f2 66 69 6e 64 0d  |.$....$....find.|
00005a40  24 18 21 66 69 6e 64 62  6f 74 3d 30 3a 66 69 6e  |$.!findbot=0:fin|
00005a50  64 63 75 72 3d 30 3a 66  6f 75 6e 64 28 29 3d 30  |dcur=0:found()=0|
00005a60  0d 24 22 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.$"... "Hourglas|
00005a70  73 5f 4f 6e 22 0d 24 2c  0e e3 20 49 3d 31 20 b8  |s_On".$,.. I=1 .|
00005a80  20 31 30 0d 24 36 1e 66  69 6e 64 24 28 49 29 3d  | 10.$6.find$(I)=|
00005a90  24 a4 74 61 64 28 66 69  6e 64 25 2c 35 39 2b 49  |$.tad(find%,59+I|
00005aa0  29 0d 24 40 05 ed 0d 24  4a 12 e3 20 49 25 3d 31  |).$@...$J.. I%=1|
00005ab0  20 b8 20 62 6f 74 2b 31  0d 24 54 08 6f 6b 3d 30  | . bot+1.$T.ok=0|
00005ac0  0d 24 5e 34 e7 20 66 69  6e 64 24 28 31 29 3d 22  |.$^4. find$(1)="|
00005ad0  22 20 84 20 a7 64 61 74  61 24 28 49 25 2c 31 29  |" . .data$(I%,1)|
00005ae0  2c 66 69 6e 64 24 28 31  29 29 3e 30 20 8c 20 6f  |,find$(1))>0 . o|
00005af0  6b 2b 3d 31 0d 24 68 34  e7 20 66 69 6e 64 24 28  |k+=1.$h4. find$(|
00005b00  32 29 3d 22 22 20 84 20  a7 64 61 74 61 24 28 49  |2)="" . .data$(I|
00005b10  25 2c 32 29 2c 66 69 6e  64 24 28 32 29 29 3e 30  |%,2),find$(2))>0|
00005b20  20 8c 20 6f 6b 2b 3d 31  0d 24 72 34 e7 20 66 69  | . ok+=1.$r4. fi|
00005b30  6e 64 24 28 33 29 3d 22  22 20 84 20 a7 64 61 74  |nd$(3)="" . .dat|
00005b40  61 24 28 49 25 2c 33 29  2c 66 69 6e 64 24 28 33  |a$(I%,3),find$(3|
00005b50  29 29 3e 30 20 8c 20 6f  6b 2b 3d 31 0d 24 7c 34  |))>0 . ok+=1.$|4|
00005b60  e7 20 66 69 6e 64 24 28  34 29 3d 22 22 20 84 20  |. find$(4)="" . |
00005b70  a7 64 61 74 61 24 28 49  25 2c 34 29 2c 66 69 6e  |.data$(I%,4),fin|
00005b80  64 24 28 34 29 29 3e 30  20 8c 20 6f 6b 2b 3d 31  |d$(4))>0 . ok+=1|
00005b90  0d 24 86 34 e7 20 66 69  6e 64 24 28 35 29 3d 22  |.$.4. find$(5)="|
00005ba0  22 20 84 20 a7 64 61 74  61 24 28 49 25 2c 35 29  |" . .data$(I%,5)|
00005bb0  2c 66 69 6e 64 24 28 35  29 29 3e 30 20 8c 20 6f  |,find$(5))>0 . o|
00005bc0  6b 2b 3d 31 0d 24 90 34  e7 20 66 69 6e 64 24 28  |k+=1.$.4. find$(|
00005bd0  36 29 3d 22 22 20 84 20  a7 64 61 74 61 24 28 49  |6)="" . .data$(I|
00005be0  25 2c 36 29 2c 66 69 6e  64 24 28 36 29 29 3e 30  |%,6),find$(6))>0|
00005bf0  20 8c 20 6f 6b 2b 3d 31  0d 24 9a 34 e7 20 66 69  | . ok+=1.$.4. fi|
00005c00  6e 64 24 28 37 29 3d 22  22 20 84 20 a7 64 61 74  |nd$(7)="" . .dat|
00005c10  61 24 28 49 25 2c 37 29  2c 66 69 6e 64 24 28 37  |a$(I%,7),find$(7|
00005c20  29 29 3e 30 20 8c 20 6f  6b 2b 3d 31 0d 24 a4 34  |))>0 . ok+=1.$.4|
00005c30  e7 20 66 69 6e 64 24 28  38 29 3d 22 22 20 84 20  |. find$(8)="" . |
00005c40  a7 64 61 74 61 24 28 49  25 2c 38 29 2c 66 69 6e  |.data$(I%,8),fin|
00005c50  64 24 28 38 29 29 3e 30  20 8c 20 6f 6b 2b 3d 31  |d$(8))>0 . ok+=1|
00005c60  0d 24 ae 34 e7 20 66 69  6e 64 24 28 39 29 3d 22  |.$.4. find$(9)="|
00005c70  22 20 84 20 a7 64 61 74  61 24 28 49 25 2c 39 29  |" . .data$(I%,9)|
00005c80  2c 66 69 6e 64 24 28 39  29 29 3e 30 20 8c 20 6f  |,find$(9))>0 . o|
00005c90  6b 2b 3d 31 0d 24 b8 37  e7 20 66 69 6e 64 24 28  |k+=1.$.7. find$(|
00005ca0  31 30 29 3d 22 22 20 84  20 a7 64 61 74 61 24 28  |10)="" . .data$(|
00005cb0  49 25 2c 31 30 29 2c 66  69 6e 64 24 28 31 30 29  |I%,10),find$(10)|
00005cc0  29 3e 30 20 8c 20 6f 6b  2b 3d 31 0d 24 c2 2a e7  |)>0 . ok+=1.$.*.|
00005cd0  20 6f 6b 3d 31 30 20 8c  20 66 69 6e 64 62 6f 74  | ok=10 . findbot|
00005ce0  2b 3d 31 3a 66 6f 75 6e  64 28 66 69 6e 64 62 6f  |+=1:found(findbo|
00005cf0  74 29 3d 49 25 0d 24 cc  05 ed 0d 24 d6 16 c8 99  |t)=I%.$....$....|
00005d00  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00005d10  0d 24 e0 47 e7 20 66 69  6e 64 62 6f 74 3d 30 20  |.$.G. findbot=0 |
00005d20  8c 20 ef 37 3a 24 a4 74  61 64 28 66 69 6e 64 25  |. .7:$.tad(find%|
00005d30  2c 38 39 29 3d 22 4e 6f  74 20 66 6f 75 6e 64 22  |,89)="Not found"|
00005d40  3a f2 61 6c 74 65 72 28  66 69 6e 64 25 2c 38 39  |:.alter(find%,89|
00005d50  2c 30 2c 30 29 3a e1 0d  24 ea 3c 24 a4 74 61 64  |,0,0):..$.<$.tad|
00005d60  28 66 69 6e 64 25 2c 38  39 29 3d c3 28 66 69 6e  |(find%,89)=.(fin|
00005d70  64 62 6f 74 29 2b 22 20  66 6f 75 6e 64 22 3a f2  |dbot)+" found":.|
00005d80  61 6c 74 65 72 28 66 69  6e 64 25 2c 38 39 2c 30  |alter(find%,89,0|
00005d90  2c 30 29 0d 24 f4 3d 66  69 6e 64 63 75 72 3d 31  |,0).$.=findcur=1|
00005da0  3a 24 a4 74 61 64 28 66  69 6e 64 25 2c 38 30 29  |:$.tad(find%,80)|
00005db0  3d c3 28 66 69 6e 64 63  75 72 29 3a f2 61 6c 74  |=.(findcur):.alt|
00005dc0  65 72 28 66 69 6e 64 25  2c 38 30 2c 30 2c 30 29  |er(find%,80,0,0)|
00005dd0  0d 24 fe 1c f2 73 65 74  64 61 74 61 28 66 6f 75  |.$...setdata(fou|
00005de0  6e 64 28 66 69 6e 64 63  75 72 29 29 0d 25 08 05  |nd(findcur)).%..|
00005df0  e1 0d 25 12 0e dd f2 73  61 76 65 33 6b 65 79 0d  |..%....save3key.|
00005e00  25 1c 10 69 63 6f 6e 3d  62 6c 6f 63 6b 21 34 0d  |%..icon=block!4.|
00005e10  25 26 23 e7 20 62 6c 6f  63 6b 21 32 34 3d 31 33  |%&#. block!24=13|
00005e20  20 84 20 62 6c 6f 63 6b  21 32 34 3d 26 31 38 45  | . block!24=&18E|
00005e30  20 8c 0d 25 30 24 e7 20  69 63 6f 6e 3d 32 38 20  | ..%0$. icon=28 |
00005e40  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00005e50  33 25 2c 38 34 29 0d 25  3a 24 e7 20 69 63 6f 6e  |3%,84).%:$. icon|
00005e60  3d 38 34 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |=84 . .setcaret(|
00005e70  73 61 76 65 33 25 2c 38  35 29 0d 25 44 24 e7 20  |save3%,85).%D$. |
00005e80  69 63 6f 6e 3d 38 35 20  8c 20 f2 73 65 74 63 61  |icon=85 . .setca|
00005e90  72 65 74 28 73 61 76 65  33 25 2c 38 36 29 0d 25  |ret(save3%,86).%|
00005ea0  4e 24 e7 20 69 63 6f 6e  3d 38 36 20 8c 20 f2 73  |N$. icon=86 . .s|
00005eb0  65 74 63 61 72 65 74 28  73 61 76 65 33 25 2c 38  |etcaret(save3%,8|
00005ec0  37 29 0d 25 58 24 e7 20  69 63 6f 6e 3d 38 37 20  |7).%X$. icon=87 |
00005ed0  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00005ee0  33 25 2c 38 38 29 0d 25  62 24 e7 20 69 63 6f 6e  |3%,88).%b$. icon|
00005ef0  3d 38 38 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |=88 . .setcaret(|
00005f00  73 61 76 65 33 25 2c 38  39 29 0d 25 6c 24 e7 20  |save3%,89).%l$. |
00005f10  69 63 6f 6e 3d 38 39 20  8c 20 f2 73 65 74 63 61  |icon=89 . .setca|
00005f20  72 65 74 28 73 61 76 65  33 25 2c 39 30 29 0d 25  |ret(save3%,90).%|
00005f30  76 24 e7 20 69 63 6f 6e  3d 39 30 20 8c 20 f2 73  |v$. icon=90 . .s|
00005f40  65 74 63 61 72 65 74 28  73 61 76 65 33 25 2c 39  |etcaret(save3%,9|
00005f50  31 29 0d 25 80 24 e7 20  69 63 6f 6e 3d 39 31 20  |1).%.$. icon=91 |
00005f60  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00005f70  33 25 2c 39 32 29 0d 25  8a 24 e7 20 69 63 6f 6e  |3%,92).%.$. icon|
00005f80  3d 39 32 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |=92 . .setcaret(|
00005f90  73 61 76 65 33 25 2c 32  38 29 0d 25 94 25 e7 20  |save3%,28).%.%. |
00005fa0  69 63 6f 6e 3d 39 33 20  8c 20 f2 73 65 74 63 61  |icon=93 . .setca|
00005fb0  72 65 74 28 73 61 76 65  33 25 2c 31 30 33 29 0d  |ret(save3%,103).|
00005fc0  25 9e 26 e7 20 69 63 6f  6e 3d 31 30 33 20 8c 20  |%.&. icon=103 . |
00005fd0  f2 73 65 74 63 61 72 65  74 28 73 61 76 65 33 25  |.setcaret(save3%|
00005fe0  2c 31 30 34 29 0d 25 a8  26 e7 20 69 63 6f 6e 3d  |,104).%.&. icon=|
00005ff0  31 30 34 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |104 . .setcaret(|
00006000  73 61 76 65 33 25 2c 31  30 35 29 0d 25 b2 26 e7  |save3%,105).%.&.|
00006010  20 69 63 6f 6e 3d 31 30  35 20 8c 20 f2 73 65 74  | icon=105 . .set|
00006020  63 61 72 65 74 28 73 61  76 65 33 25 2c 31 30 36  |caret(save3%,106|
00006030  29 0d 25 bc 26 e7 20 69  63 6f 6e 3d 31 30 36 20  |).%.&. icon=106 |
00006040  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00006050  33 25 2c 31 30 37 29 0d  25 c6 26 e7 20 69 63 6f  |3%,107).%.&. ico|
00006060  6e 3d 31 30 37 20 8c 20  f2 73 65 74 63 61 72 65  |n=107 . .setcare|
00006070  74 28 73 61 76 65 33 25  2c 31 30 38 29 0d 25 d0  |t(save3%,108).%.|
00006080  26 e7 20 69 63 6f 6e 3d  31 30 38 20 8c 20 f2 73  |&. icon=108 . .s|
00006090  65 74 63 61 72 65 74 28  73 61 76 65 33 25 2c 31  |etcaret(save3%,1|
000060a0  30 39 29 0d 25 da 26 e7  20 69 63 6f 6e 3d 31 30  |09).%.&. icon=10|
000060b0  39 20 8c 20 f2 73 65 74  63 61 72 65 74 28 73 61  |9 . .setcaret(sa|
000060c0  76 65 33 25 2c 31 31 30  29 0d 25 e4 26 e7 20 69  |ve3%,110).%.&. i|
000060d0  63 6f 6e 3d 31 31 30 20  8c 20 f2 73 65 74 63 61  |con=110 . .setca|
000060e0  72 65 74 28 73 61 76 65  33 25 2c 31 31 31 29 0d  |ret(save3%,111).|
000060f0  25 ee 25 e7 20 69 63 6f  6e 3d 31 31 31 20 8c 20  |%.%. icon=111 . |
00006100  f2 73 65 74 63 61 72 65  74 28 73 61 76 65 33 25  |.setcaret(save3%|
00006110  2c 39 33 29 0d 25 f8 05  cd 0d 26 02 15 e7 20 62  |,93).%....&... b|
00006120  6c 6f 63 6b 21 32 34 3d  26 31 38 46 20 8c 0d 26  |lock!24=&18F ..&|
00006130  0c 24 e7 20 69 63 6f 6e  3d 32 38 20 8c 20 f2 73  |.$. icon=28 . .s|
00006140  65 74 63 61 72 65 74 28  73 61 76 65 33 25 2c 39  |etcaret(save3%,9|
00006150  32 29 0d 26 16 24 e7 20  69 63 6f 6e 3d 38 34 20  |2).&.$. icon=84 |
00006160  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00006170  33 25 2c 32 38 29 0d 26  20 24 e7 20 69 63 6f 6e  |3%,28).& $. icon|
00006180  3d 38 35 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |=85 . .setcaret(|
00006190  73 61 76 65 33 25 2c 38  34 29 0d 26 2a 24 e7 20  |save3%,84).&*$. |
000061a0  69 63 6f 6e 3d 38 36 20  8c 20 f2 73 65 74 63 61  |icon=86 . .setca|
000061b0  72 65 74 28 73 61 76 65  33 25 2c 38 35 29 0d 26  |ret(save3%,85).&|
000061c0  34 24 e7 20 69 63 6f 6e  3d 38 37 20 8c 20 f2 73  |4$. icon=87 . .s|
000061d0  65 74 63 61 72 65 74 28  73 61 76 65 33 25 2c 38  |etcaret(save3%,8|
000061e0  36 29 0d 26 3e 24 e7 20  69 63 6f 6e 3d 38 38 20  |6).&>$. icon=88 |
000061f0  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00006200  33 25 2c 38 37 29 0d 26  48 24 e7 20 69 63 6f 6e  |3%,87).&H$. icon|
00006210  3d 38 39 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |=89 . .setcaret(|
00006220  73 61 76 65 33 25 2c 38  38 29 0d 26 52 24 e7 20  |save3%,88).&R$. |
00006230  69 63 6f 6e 3d 39 30 20  8c 20 f2 73 65 74 63 61  |icon=90 . .setca|
00006240  72 65 74 28 73 61 76 65  33 25 2c 38 39 29 0d 26  |ret(save3%,89).&|
00006250  5c 24 e7 20 69 63 6f 6e  3d 39 31 20 8c 20 f2 73  |\$. icon=91 . .s|
00006260  65 74 63 61 72 65 74 28  73 61 76 65 33 25 2c 39  |etcaret(save3%,9|
00006270  30 29 0d 26 66 24 e7 20  69 63 6f 6e 3d 39 32 20  |0).&f$. icon=92 |
00006280  8c 20 f2 73 65 74 63 61  72 65 74 28 73 61 76 65  |. .setcaret(save|
00006290  33 25 2c 39 31 29 0d 26  70 25 e7 20 69 63 6f 6e  |3%,91).&p%. icon|
000062a0  3d 39 33 20 8c 20 f2 73  65 74 63 61 72 65 74 28  |=93 . .setcaret(|
000062b0  73 61 76 65 33 25 2c 31  31 31 29 0d 26 7a 25 e7  |save3%,111).&z%.|
000062c0  20 69 63 6f 6e 3d 31 30  33 20 8c 20 f2 73 65 74  | icon=103 . .set|
000062d0  63 61 72 65 74 28 73 61  76 65 33 25 2c 39 33 29  |caret(save3%,93)|
000062e0  0d 26 84 26 e7 20 69 63  6f 6e 3d 31 30 34 20 8c  |.&.&. icon=104 .|
000062f0  20 f2 73 65 74 63 61 72  65 74 28 73 61 76 65 33  | .setcaret(save3|
00006300  25 2c 31 30 33 29 0d 26  8e 26 e7 20 69 63 6f 6e  |%,103).&.&. icon|
00006310  3d 31 30 35 20 8c 20 f2  73 65 74 63 61 72 65 74  |=105 . .setcaret|
00006320  28 73 61 76 65 33 25 2c  31 30 34 29 0d 26 98 26  |(save3%,104).&.&|
00006330  e7 20 69 63 6f 6e 3d 31  30 36 20 8c 20 f2 73 65  |. icon=106 . .se|
00006340  74 63 61 72 65 74 28 73  61 76 65 33 25 2c 31 30  |tcaret(save3%,10|
00006350  35 29 0d 26 a2 26 e7 20  69 63 6f 6e 3d 31 30 37  |5).&.&. icon=107|
00006360  20 8c 20 f2 73 65 74 63  61 72 65 74 28 73 61 76  | . .setcaret(sav|
00006370  65 33 25 2c 31 30 36 29  0d 26 ac 26 e7 20 69 63  |e3%,106).&.&. ic|
00006380  6f 6e 3d 31 30 38 20 8c  20 f2 73 65 74 63 61 72  |on=108 . .setcar|
00006390  65 74 28 73 61 76 65 33  25 2c 31 30 37 29 0d 26  |et(save3%,107).&|
000063a0  b6 26 e7 20 69 63 6f 6e  3d 31 30 39 20 8c 20 f2  |.&. icon=109 . .|
000063b0  73 65 74 63 61 72 65 74  28 73 61 76 65 33 25 2c  |setcaret(save3%,|
000063c0  31 30 38 29 0d 26 c0 26  e7 20 69 63 6f 6e 3d 31  |108).&.&. icon=1|
000063d0  31 30 20 8c 20 f2 73 65  74 63 61 72 65 74 28 73  |10 . .setcaret(s|
000063e0  61 76 65 33 25 2c 31 30  39 29 0d 26 ca 26 e7 20  |ave3%,109).&.&. |
000063f0  69 63 6f 6e 3d 31 31 31  20 8c 20 f2 73 65 74 63  |icon=111 . .setc|
00006400  61 72 65 74 28 73 61 76  65 33 25 2c 31 31 30 29  |aret(save3%,110)|
00006410  0d 26 d4 05 cd 0d 26 de  05 e1 0d 26 e8 13 dd f2  |.&....&....&....|
00006420  73 65 6e 64 61 73 74 65  78 74 28 6e 29 0d 26 f2  |sendastext(n).&.|
00006430  7c e7 20 a4 73 65 6c 65  63 74 28 73 61 76 65 33  ||. .select(save3|
00006440  25 2c 32 32 29 20 8c 20  f2 73 65 6e 64 28 a4 73  |%,22) . .send(.s|
00006450  65 6c 65 63 74 28 73 61  76 65 33 25 2c 32 36 29  |elect(save3%,26)|
00006460  2c a4 73 65 6c 65 63 74  28 73 61 76 65 33 25 2c  |,.select(save3%,|
00006470  32 35 29 2c bb 28 24 a4  74 61 64 28 73 61 76 65  |25),.($.tad(save|
00006480  33 25 2c 32 38 29 29 2c  bb 28 24 a4 74 61 64 28  |3%,28)),.($.tad(|
00006490  73 61 76 65 33 25 2c 39  33 29 29 2c 64 61 74 61  |save3%,93)),data|
000064a0  24 28 6e 2c 31 29 2c 31  29 0d 26 fc 7d e7 20 a4  |$(n,1),1).&.}. .|
000064b0  73 65 6c 65 63 74 28 73  61 76 65 33 25 2c 33 30  |select(save3%,30|
000064c0  29 20 8c 20 f2 73 65 6e  64 28 a4 73 65 6c 65 63  |) . .send(.selec|
000064d0  74 28 73 61 76 65 33 25  2c 36 36 29 2c a4 73 65  |t(save3%,66),.se|
000064e0  6c 65 63 74 28 73 61 76  65 33 25 2c 35 37 29 2c  |lect(save3%,57),|
000064f0  bb 28 24 a4 74 61 64 28  73 61 76 65 33 25 2c 38  |.($.tad(save3%,8|
00006500  34 29 29 2c bb 28 24 a4  74 61 64 28 73 61 76 65  |4)),.($.tad(save|
00006510  33 25 2c 31 30 33 29 29  2c 64 61 74 61 24 28 6e  |3%,103)),data$(n|
00006520  2c 32 29 2c 32 29 0d 27  06 7d e7 20 a4 73 65 6c  |,2),2).'.}. .sel|
00006530  65 63 74 28 73 61 76 65  33 25 2c 33 31 29 20 8c  |ect(save3%,31) .|
00006540  20 f2 73 65 6e 64 28 a4  73 65 6c 65 63 74 28 73  | .send(.select(s|
00006550  61 76 65 33 25 2c 36 37  29 2c a4 73 65 6c 65 63  |ave3%,67),.selec|
00006560  74 28 73 61 76 65 33 25  2c 35 38 29 2c bb 28 24  |t(save3%,58),.($|
00006570  a4 74 61 64 28 73 61 76  65 33 25 2c 38 35 29 29  |.tad(save3%,85))|
00006580  2c bb 28 24 a4 74 61 64  28 73 61 76 65 33 25 2c  |,.($.tad(save3%,|
00006590  31 30 34 29 29 2c 64 61  74 61 24 28 6e 2c 33 29  |104)),data$(n,3)|
000065a0  2c 33 29 0d 27 10 7d e7  20 a4 73 65 6c 65 63 74  |,3).'.}. .select|
000065b0  28 73 61 76 65 33 25 2c  33 32 29 20 8c 20 f2 73  |(save3%,32) . .s|
000065c0  65 6e 64 28 a4 73 65 6c  65 63 74 28 73 61 76 65  |end(.select(save|
000065d0  33 25 2c 36 38 29 2c a4  73 65 6c 65 63 74 28 73  |3%,68),.select(s|
000065e0  61 76 65 33 25 2c 35 39  29 2c bb 28 24 a4 74 61  |ave3%,59),.($.ta|
000065f0  64 28 73 61 76 65 33 25  2c 38 36 29 29 2c bb 28  |d(save3%,86)),.(|
00006600  24 a4 74 61 64 28 73 61  76 65 33 25 2c 31 30 35  |$.tad(save3%,105|
00006610  29 29 2c 64 61 74 61 24  28 6e 2c 34 29 2c 34 29  |)),data$(n,4),4)|
00006620  0d 27 1a 7d e7 20 a4 73  65 6c 65 63 74 28 73 61  |.'.}. .select(sa|
00006630  76 65 33 25 2c 33 33 29  20 8c 20 f2 73 65 6e 64  |ve3%,33) . .send|
00006640  28 a4 73 65 6c 65 63 74  28 73 61 76 65 33 25 2c  |(.select(save3%,|
00006650  36 39 29 2c a4 73 65 6c  65 63 74 28 73 61 76 65  |69),.select(save|
00006660  33 25 2c 36 30 29 2c bb  28 24 a4 74 61 64 28 73  |3%,60),.($.tad(s|
00006670  61 76 65 33 25 2c 38 37  29 29 2c bb 28 24 a4 74  |ave3%,87)),.($.t|
00006680  61 64 28 73 61 76 65 33  25 2c 31 30 36 29 29 2c  |ad(save3%,106)),|
00006690  64 61 74 61 24 28 6e 2c  35 29 2c 35 29 0d 27 24  |data$(n,5),5).'$|
000066a0  7d e7 20 a4 73 65 6c 65  63 74 28 73 61 76 65 33  |}. .select(save3|
000066b0  25 2c 33 34 29 20 8c 20  f2 73 65 6e 64 28 a4 73  |%,34) . .send(.s|
000066c0  65 6c 65 63 74 28 73 61  76 65 33 25 2c 37 30 29  |elect(save3%,70)|
000066d0  2c a4 73 65 6c 65 63 74  28 73 61 76 65 33 25 2c  |,.select(save3%,|
000066e0  36 31 29 2c bb 28 24 a4  74 61 64 28 73 61 76 65  |61),.($.tad(save|
000066f0  33 25 2c 38 38 29 29 2c  bb 28 24 a4 74 61 64 28  |3%,88)),.($.tad(|
00006700  73 61 76 65 33 25 2c 31  30 37 29 29 2c 64 61 74  |save3%,107)),dat|
00006710  61 24 28 6e 2c 36 29 2c  36 29 0d 27 2e 7d e7 20  |a$(n,6),6).'.}. |
00006720  a4 73 65 6c 65 63 74 28  73 61 76 65 33 25 2c 33  |.select(save3%,3|
00006730  35 29 20 8c 20 f2 73 65  6e 64 28 a4 73 65 6c 65  |5) . .send(.sele|
00006740  63 74 28 73 61 76 65 33  25 2c 37 31 29 2c a4 73  |ct(save3%,71),.s|
00006750  65 6c 65 63 74 28 73 61  76 65 33 25 2c 36 32 29  |elect(save3%,62)|
00006760  2c bb 28 24 a4 74 61 64  28 73 61 76 65 33 25 2c  |,.($.tad(save3%,|
00006770  38 39 29 29 2c bb 28 24  a4 74 61 64 28 73 61 76  |89)),.($.tad(sav|
00006780  65 33 25 2c 31 30 38 29  29 2c 64 61 74 61 24 28  |e3%,108)),data$(|
00006790  6e 2c 37 29 2c 37 29 0d  27 38 7d e7 20 a4 73 65  |n,7),7).'8}. .se|
000067a0  6c 65 63 74 28 73 61 76  65 33 25 2c 33 36 29 20  |lect(save3%,36) |
000067b0  8c 20 f2 73 65 6e 64 28  a4 73 65 6c 65 63 74 28  |. .send(.select(|
000067c0  73 61 76 65 33 25 2c 37  32 29 2c a4 73 65 6c 65  |save3%,72),.sele|
000067d0  63 74 28 73 61 76 65 33  25 2c 36 33 29 2c bb 28  |ct(save3%,63),.(|
000067e0  24 a4 74 61 64 28 73 61  76 65 33 25 2c 39 30 29  |$.tad(save3%,90)|
000067f0  29 2c bb 28 24 a4 74 61  64 28 73 61 76 65 33 25  |),.($.tad(save3%|
00006800  2c 31 30 39 29 29 2c 64  61 74 61 24 28 6e 2c 38  |,109)),data$(n,8|
00006810  29 2c 38 29 0d 27 42 7d  e7 20 a4 73 65 6c 65 63  |),8).'B}. .selec|
00006820  74 28 73 61 76 65 33 25  2c 33 37 29 20 8c 20 f2  |t(save3%,37) . .|
00006830  73 65 6e 64 28 a4 73 65  6c 65 63 74 28 73 61 76  |send(.select(sav|
00006840  65 33 25 2c 37 33 29 2c  a4 73 65 6c 65 63 74 28  |e3%,73),.select(|
00006850  73 61 76 65 33 25 2c 36  34 29 2c bb 28 24 a4 74  |save3%,64),.($.t|
00006860  61 64 28 73 61 76 65 33  25 2c 39 31 29 29 2c bb  |ad(save3%,91)),.|
00006870  28 24 a4 74 61 64 28 73  61 76 65 33 25 2c 31 31  |($.tad(save3%,11|
00006880  30 29 29 2c 64 61 74 61  24 28 6e 2c 39 29 2c 39  |0)),data$(n,9),9|
00006890  29 0d 27 4c 7f e7 20 a4  73 65 6c 65 63 74 28 73  |).'L.. .select(s|
000068a0  61 76 65 33 25 2c 33 38  29 20 8c 20 f2 73 65 6e  |ave3%,38) . .sen|
000068b0  64 28 a4 73 65 6c 65 63  74 28 73 61 76 65 33 25  |d(.select(save3%|
000068c0  2c 37 34 29 2c a4 73 65  6c 65 63 74 28 73 61 76  |,74),.select(sav|
000068d0  65 33 25 2c 36 35 29 2c  bb 28 24 a4 74 61 64 28  |e3%,65),.($.tad(|
000068e0  73 61 76 65 33 25 2c 39  32 29 29 2c bb 28 24 a4  |save3%,92)),.($.|
000068f0  74 61 64 28 73 61 76 65  33 25 2c 31 31 31 29 29  |tad(save3%,111))|
00006900  2c 64 61 74 61 24 28 6e  2c 31 30 29 2c 31 30 29  |,data$(n,10),10)|
00006910  0d 27 56 0e d5 23 66 69  6c 65 2c 22 20 22 0d 27  |.'V..#file," ".'|
00006920  60 05 e1 0d 27 6a 2b dd  f2 73 65 6e 64 28 69 6e  |`...'j+..send(in|
00006930  64 65 6e 74 2c 74 69 74  6c 65 2c 69 6e 64 31 2c  |dent,title,ind1,|
00006940  69 6e 64 32 2c 64 61 74  61 24 2c 6e 6f 29 0d 27  |ind2,data$,no).'|
00006950  74 09 61 24 3d 22 22 0d  27 7e 0d e7 20 74 69 74  |t.a$="".'~.. tit|
00006960  6c 65 20 8c 0d 27 88 1b  e7 20 69 6e 64 65 6e 74  |le ..'... indent|
00006970  20 61 24 2b 3d c4 69 6e  64 32 2c 22 20 22 29 0d  | a$+=.ind2," ").|
00006980  27 92 15 61 24 2b 3d 6e  61 6d 65 24 28 6e 6f 29  |'..a$+=name$(no)|
00006990  2b 22 3a 22 0d 27 9c 05  cd 0d 27 a6 1b e7 20 69  |+":".'....'... i|
000069a0  6e 64 65 6e 74 20 61 24  2b 3d c4 69 6e 64 31 2c  |ndent a$+=.ind1,|
000069b0  22 20 22 29 0d 27 b0 0d  61 24 2b 3d 64 61 74 61  |" ").'..a$+=data|
000069c0  24 0d 27 ba 0d d5 23 66  69 6c 65 2c 61 24 0d 27  |$.'...#file,a$.'|
000069d0  c4 05 e1 0d 27 ce 16 dd  f2 70 72 65 66 65 72 65  |....'....prefere|
000069e0  6e 63 65 73 63 6c 69 63  6b 0d 27 d8 0f e7 20 69  |ncesclick.'... i|
000069f0  63 6f 6e 3d 32 36 20 8c  0d 27 e2 0d f2 73 65 74  |con=26 ..'...set|
00006a00  70 72 65 66 73 0d 27 ec  34 21 62 6c 6f 63 6b 3d  |prefs.'.4!block=|
00006a10  70 72 65 66 65 72 65 6e  63 65 73 25 3a c8 99 20  |preferences%:.. |
00006a20  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00006a30  77 22 2c 2c 62 6c 6f 63  6b 0d 27 f6 05 e1 0d 28  |w",,block.'....(|
00006a40  00 05 cd 0d 28 0a 19 e7  20 69 63 6f 6e 3d 32 37  |....(... icon=27|
00006a50  20 84 20 69 63 6f 6e 3d  32 35 20 8c 0d 28 14 23  | . icon=25 ..(.#|
00006a60  70 72 65 66 63 6f 6e 3d  a4 73 65 6c 65 63 74 28  |prefcon=.select(|
00006a70  70 72 65 66 65 72 65 6e  63 65 73 25 2c 30 29 0d  |preferences%,0).|
00006a80  28 1e 24 70 72 65 66 6c  6f 61 64 3d a4 73 65 6c  |(.$prefload=.sel|
00006a90  65 63 74 28 70 72 65 66  65 72 65 6e 63 65 73 25  |ect(preferences%|
00006aa0  2c 31 29 0d 28 28 26 70  72 65 66 64 65 66 69 6e  |,1).((&prefdefin|
00006ab0  65 3d a4 73 65 6c 65 63  74 28 70 72 65 66 65 72  |e=.select(prefer|
00006ac0  65 6e 63 65 73 25 2c 37  29 0d 28 32 26 70 72 65  |ences%,7).(2&pre|
00006ad0  66 69 6e 64 65 6e 74 3d  a4 73 65 6c 65 63 74 28  |findent=.select(|
00006ae0  70 72 65 66 65 72 65 6e  63 65 73 25 2c 38 29 0d  |preferences%,8).|
00006af0  28 3c 24 70 72 65 66 6c  6f 61 64 24 3d 24 a4 74  |(<$prefload$=$.t|
00006b00  61 64 28 70 72 65 66 65  72 65 6e 63 65 73 25 2c  |ad(preferences%,|
00006b10  31 34 29 0d 28 46 27 70  72 65 66 63 61 72 64 73  |14).(F'prefcards|
00006b20  3d bb 28 24 a4 74 61 64  28 70 72 65 66 65 72 65  |=.($.tad(prefere|
00006b30  6e 63 65 73 25 2c 31 35  29 29 0d 28 50 34 21 62  |nces%,15)).(P4!b|
00006b40  6c 6f 63 6b 3d 70 72 65  66 65 72 65 6e 63 65 73  |lock=preferences|
00006b50  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
00006b60  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 0d 28  |Window",,block.(|
00006b70  5a 05 cd 0d 28 64 0f e7  20 69 63 6f 6e 3d 32 35  |Z...(d.. icon=25|
00006b80  20 8c 0d 28 6e 07 ea 20  85 0d 28 78 3b ee 20 85  | ..(n.. ..(x;. .|
00006b90  20 ea 20 f2 6d 6f 61 6e  28 22 43 6f 75 6c 64 6e  | . .moan("Couldn|
00006ba0  27 74 20 73 61 76 65 20  64 65 66 61 75 6c 74 73  |'t save defaults|
00006bb0  20 66 69 6c 65 20 3a 20  22 2b f6 24 29 3a e5 20  | file : "+.$):. |
00006bc0  8d 64 70 68 0d 28 82 28  64 65 66 61 75 6c 74 73  |.dph.(.(defaults|
00006bd0  3d ae 28 22 3c 41 4d 46  42 61 73 65 24 44 69 72  |=.("<AMFBase$Dir|
00006be0  3e 2e 44 65 66 61 75 6c  74 73 22 29 0d 28 8c 26  |>.Defaults").(.&|
00006bf0  f1 23 64 65 66 61 75 6c  74 73 2c 22 65 6c 69 46  |.#defaults,"eliF|
00006c00  20 73 74 6c 75 61 66 65  44 20 65 73 61 42 46 4d  | stluafeD esaBFM|
00006c10  41 22 0d 28 96 16 f1 23  64 65 66 61 75 6c 74 73  |A".(...#defaults|
00006c20  2c 70 72 65 66 63 6f 6e  0d 28 a0 17 f1 23 64 65  |,prefcon.(...#de|
00006c30  66 61 75 6c 74 73 2c 70  72 65 66 6c 6f 61 64 0d  |faults,prefload.|
00006c40  28 aa 19 f1 23 64 65 66  61 75 6c 74 73 2c 70 72  |(...#defaults,pr|
00006c50  65 66 64 65 66 69 6e 65  0d 28 b4 19 f1 23 64 65  |efdefine.(...#de|
00006c60  66 61 75 6c 74 73 2c 70  72 65 66 69 6e 64 65 6e  |faults,prefinden|
00006c70  74 0d 28 be 18 f1 23 64  65 66 61 75 6c 74 73 2c  |t.(...#defaults,|
00006c80  70 72 65 66 6c 6f 61 64  24 0d 28 c8 18 f1 23 64  |prefload$.(...#d|
00006c90  65 66 61 75 6c 74 73 2c  70 72 65 66 63 61 72 64  |efaults,prefcard|
00006ca0  73 0d 28 d2 0f d9 20 23  64 65 66 61 75 6c 74 73  |s.(... #defaults|
00006cb0  0d 28 dc 1e e7 20 70 72  65 66 64 65 66 69 6e 65  |.(... prefdefine|
00006cc0  20 8c 20 f2 73 61 76 65  64 65 66 69 6e 65 0d 28  | . .savedefine.(|
00006cd0  e6 1e e7 20 70 72 65 66  69 6e 64 65 6e 74 20 8c  |... prefindent .|
00006ce0  20 f2 73 61 76 65 69 6e  64 65 6e 74 0d 28 f0 07  | .saveindent.(..|
00006cf0  f7 20 85 0d 28 fa 05 cd  0d 29 04 05 e1 0d 29 0e  |. ..(....)....).|
00006d00  0e dd f2 73 65 74 70 72  65 66 73 0d 29 18 24 24  |...setprefs.).$$|
00006d10  a4 74 61 64 28 70 72 65  66 65 72 65 6e 63 65 73  |.tad(preferences|
00006d20  25 2c 31 34 29 3d 70 72  65 66 6c 6f 61 64 24 0d  |%,14)=prefload$.|
00006d30  29 22 53 e7 20 70 72 65  66 63 6f 6e 20 8c 20 f2  |)"S. prefcon . .|
00006d40  61 6c 74 65 72 28 70 72  65 66 65 72 65 6e 63 65  |alter(preference|
00006d50  73 25 2c 30 2c 31 3c 3c  32 31 2c 31 3c 3c 32 31  |s%,0,1<<21,1<<21|
00006d60  29 20 8b 20 f2 61 6c 74  65 72 28 70 72 65 66 65  |) . .alter(prefe|
00006d70  72 65 6e 63 65 73 25 2c  30 2c 30 2c 31 3c 3c 32  |rences%,0,0,1<<2|
00006d80  31 29 0d 29 2c 54 e7 20  70 72 65 66 6c 6f 61 64  |1).),T. prefload|
00006d90  20 8c 20 f2 61 6c 74 65  72 28 70 72 65 66 65 72  | . .alter(prefer|
00006da0  65 6e 63 65 73 25 2c 31  2c 31 3c 3c 32 31 2c 31  |ences%,1,1<<21,1|
00006db0  3c 3c 32 31 29 20 8b 20  f2 61 6c 74 65 72 28 70  |<<21) . .alter(p|
00006dc0  72 65 66 65 72 65 6e 63  65 73 25 2c 31 2c 30 2c  |references%,1,0,|
00006dd0  31 3c 3c 32 31 29 0d 29  36 56 e7 20 70 72 65 66  |1<<21).)6V. pref|
00006de0  64 65 66 69 6e 65 20 8c  20 f2 61 6c 74 65 72 28  |define . .alter(|
00006df0  70 72 65 66 65 72 65 6e  63 65 73 25 2c 37 2c 31  |preferences%,7,1|
00006e00  3c 3c 32 31 2c 31 3c 3c  32 31 29 20 8b 20 f2 61  |<<21,1<<21) . .a|
00006e10  6c 74 65 72 28 70 72 65  66 65 72 65 6e 63 65 73  |lter(preferences|
00006e20  25 2c 37 2c 30 2c 31 3c  3c 32 31 29 0d 29 40 56  |%,7,0,1<<21).)@V|
00006e30  e7 20 70 72 65 66 69 6e  64 65 6e 74 20 8c 20 f2  |. prefindent . .|
00006e40  61 6c 74 65 72 28 70 72  65 66 65 72 65 6e 63 65  |alter(preference|
00006e50  73 25 2c 38 2c 31 3c 3c  32 31 2c 31 3c 3c 32 31  |s%,8,1<<21,1<<21|
00006e60  29 20 8b 20 f2 61 6c 74  65 72 28 70 72 65 66 65  |) . .alter(prefe|
00006e70  72 65 6e 63 65 73 25 2c  38 2c 30 2c 31 3c 3c 32  |rences%,8,0,1<<2|
00006e80  31 29 0d 29 4a 27 24 a4  74 61 64 28 70 72 65 66  |1).)J'$.tad(pref|
00006e90  65 72 65 6e 63 65 73 25  2c 31 35 29 3d c3 28 70  |erences%,15)=.(p|
00006ea0  72 65 66 63 61 72 64 73  29 0d 29 54 05 e1 0d 29  |refcards).)T...)|
00006eb0  5e 11 dd f2 70 75 7a 7a  6c 65 63 6c 69 63 6b 0d  |^...puzzleclick.|
00006ec0  29 68 09 70 24 3d 22 22  0d 29 72 33 f2 70 75 7a  |)h.p$="".)r3.puz|
00006ed0  28 30 2c 22 31 22 29 3a  f2 70 75 7a 28 34 2c 22  |(0,"1"):.puz(4,"|
00006ee0  32 22 29 3a f2 70 75 7a  28 32 2c 22 33 22 29 3a  |2"):.puz(2,"3"):|
00006ef0  f2 70 75 7a 28 33 2c 22  34 22 29 0d 29 7c 3f f2  |.puz(3,"4").)|?.|
00006f00  70 75 7a 28 35 2c 22 35  22 29 3a f2 70 75 7a 28  |puz(5,"5"):.puz(|
00006f10  36 2c 22 36 22 29 3a f2  70 75 7a 28 37 2c 22 37  |6,"6"):.puz(7,"7|
00006f20  22 29 3a f2 70 75 7a 28  38 2c 22 38 22 29 3a f2  |"):.puz(8,"8"):.|
00006f30  70 75 7a 28 39 2c 22 39  22 29 0d 29 86 2f 24 a4  |puz(9,"9").)./$.|
00006f40  74 61 64 28 70 75 7a 7a  6c 65 25 2c 31 36 29 3d  |tad(puzzle%,16)=|
00006f50  70 24 3a f2 61 6c 74 65  72 28 70 75 7a 7a 6c 65  |p$:.alter(puzzle|
00006f60  25 2c 31 36 2c 30 2c 30  29 0d 29 90 2b e7 20 70  |%,16,0,0).).+. p|
00006f70  24 3d 22 31 20 33 20 35  20 37 20 39 22 20 80 20  |$="1 3 5 7 9" . |
00006f80  73 74 61 67 65 3d 31 20  8c 20 73 74 61 67 65 3d  |stage=1 . stage=|
00006f90  32 3a ef 37 0d 29 9a 44  e7 20 70 24 3d 22 20 32  |2:.7.).D. p$=" 2|
00006fa0  20 34 20 36 20 38 20 22  20 80 20 73 74 61 67 65  | 4 6 8 " . stage|
00006fb0  3d 32 20 8c 20 73 74 61  67 65 3d 31 3a ef 37 3a  |=2 . stage=1:.7:|
00006fc0  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 63 6f 6e 76  |.openwindow(conv|
00006fd0  65 6e 74 69 6f 6e 25 29  0d 29 a4 05 e1 0d 29 ae  |ention%).)....).|
00006fe0  10 dd f2 70 75 7a 28 69  63 2c 61 24 29 0d 29 b8  |...puz(ic,a$).).|
00006ff0  2c e7 20 a4 73 65 6c 65  63 74 28 70 75 7a 7a 6c  |,. .select(puzzl|
00007000  65 25 2c 69 63 29 20 8c  20 70 24 2b 3d 61 24 20  |e%,ic) . p$+=a$ |
00007010  8b 20 70 24 2b 3d 22 20  22 0d 29 c2 05 e1 0d 29  |. p$+=" ".)....)|
00007020  cc 0e dd a4 63 6f 64 65  28 61 24 29 0d 29 d6 09  |....code(a$).)..|
00007030  62 24 3d 22 22 0d 29 e0  11 e3 20 49 3d 31 20 b8  |b$="".)... I=1 .|
00007040  20 a9 28 61 24 29 0d 29  ea 11 61 3d 97 28 c1 61  | .(a$).)..a=.(.a|
00007050  24 2c 49 2c 31 29 29 0d  29 f4 0b 61 3d 61 20 82  |$,I,1)).)..a=a .|
00007060  20 31 0d 29 fe 0a 62 24  2b 3d bd 61 0d 2a 08 05  | 1.)..b$+=.a.*..|
00007070  ed 0d 2a 12 07 3d 62 24  0d 2a 1c 13 dd f2 67 65  |..*..=b$.*....ge|
00007080  74 6f 75 74 61 6e 64 71  75 69 74 0d 2a 26 0e 21  |toutandquit.*&.!|
00007090  69 63 6f 6e 64 3d 32 35  35 0d 2a 30 6a 24 28 69  |icond=255.*0j$(i|
000070a0  63 6f 6e 64 2b 34 29 3d  22 41 73 20 74 68 65 20  |cond+4)="As the |
000070b0  64 65 66 61 75 6c 74 73  20 66 69 6c 65 20 69 73  |defaults file is|
000070c0  20 69 6e 63 6f 6d 70 61  74 69 62 6c 65 20 77 69  | incompatible wi|
000070d0  74 68 20 74 68 65 20 6d  65 6d 6f 72 79 20 61 76  |th the memory av|
000070e0  61 69 6c 61 62 6c 65 2c  73 68 6f 75 6c 64 20 49  |ailable,should I|
000070f0  20 63 72 65 61 74 65 20  61 20 6e 65 77 20 6f 6e  | create a new on|
00007100  65 3f 22 0d 2a 3a 34 c8  99 20 22 57 69 6d 70 5f  |e?".*:4.. "Wimp_|
00007110  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 69 63 6f  |ReportError",ico|
00007120  6e 64 2c 33 2c 22 41 4d  46 42 61 73 65 22 20 b8  |nd,3,"AMFBase" .|
00007130  20 2c 63 6c 69 63 6b 0d  2a 44 11 e7 20 63 6c 69  | ,click.*D.. cli|
00007140  63 6b 3d 32 20 8c 20 e1  0d 2a 4e 07 ea 20 85 0d  |ck=2 . ..*N.. ..|
00007150  2a 58 3d ee 20 85 20 ea  20 f2 6d 6f 61 6e 28 22  |*X=. . . .moan("|
00007160  43 6f 75 6c 64 6e 27 74  20 63 72 65 61 74 65 20  |Couldn't create |
00007170  64 65 66 61 75 6c 74 73  20 66 69 6c 65 20 3a 20  |defaults file : |
00007180  22 2b f6 24 29 3a e5 20  8d 64 78 6a 0d 2a 62 28  |"+.$):. .dxj.*b(|
00007190  64 65 66 61 75 6c 74 73  3d ae 28 22 3c 41 4d 46  |defaults=.("<AMF|
000071a0  42 61 73 65 24 44 69 72  3e 2e 44 65 66 61 75 6c  |Base$Dir>.Defaul|
000071b0  74 73 22 29 0d 2a 6c 26  f1 23 64 65 66 61 75 6c  |ts").*l&.#defaul|
000071c0  74 73 2c 22 65 6c 69 46  20 73 74 6c 75 61 66 65  |ts,"eliF stluafe|
000071d0  44 20 65 73 61 42 46 4d  41 22 0d 2a 76 11 f1 23  |D esaBFMA".*v..#|
000071e0  64 65 66 61 75 6c 74 73  2c 2d 31 0d 2a 80 10 f1  |defaults,-1.*...|
000071f0  23 64 65 66 61 75 6c 74  73 2c 30 0d 2a 8a 10 f1  |#defaults,0.*...|
00007200  23 64 65 66 61 75 6c 74  73 2c 30 0d 2a 94 10 f1  |#defaults,0.*...|
00007210  23 64 65 66 61 75 6c 74  73 2c 30 0d 2a 9e 15 f1  |#defaults,0.*...|
00007220  23 64 65 66 61 75 6c 74  73 2c 22 4e 6f 6e 65 22  |#defaults,"None"|
00007230  0d 2a a8 2e e7 20 6d 61  78 3c 3d 32 35 36 20 8c  |.*... max<=256 .|
00007240  20 f1 23 64 65 66 61 75  6c 74 73 2c 32 20 8b 20  | .#defaults,2 . |
00007250  f1 23 64 65 66 61 75 6c  74 73 2c 32 35 36 0d 2a  |.#defaults,256.*|
00007260  b2 12 f1 23 64 65 66 61  75 6c 74 73 2c 32 30 30  |...#defaults,200|
00007270  0d 2a bc 0f d9 20 23 64  65 66 61 75 6c 74 73 0d  |.*... #defaults.|
00007280  2a c6 07 f7 20 85 0d 2a  d0 6f e7 20 6d 61 78 73  |*... ..*.o. maxs|
00007290  6c 69 64 65 73 25 3c 32  35 36 20 f2 6d 6f 61 6e  |lides%<256 .moan|
000072a0  28 22 44 65 66 61 75 6c  74 20 66 69 6c 65 20 63  |("Default file c|
000072b0  72 65 61 74 65 64 20 28  6d 69 6e 69 6e 61 6c 2c  |reated (mininal,|
000072c0  32 20 63 61 72 64 73 20  6f 6e 6c 79 29 20 2d 20  |2 cards only) - |
000072d0  72 65 6c 6f 61 64 20 61  6e 64 20 61 6c 74 65 72  |reload and alter|
000072e0  20 79 6f 75 72 20 70 72  65 66 65 72 65 6e 63 65  | your preference|
000072f0  73 22 29 20 8b 0d 2a da  67 e7 20 6d 61 78 73 6c  |s") ..*.g. maxsl|
00007300  69 64 65 73 25 3e 32 35  35 20 f2 6d 6f 61 6e 28  |ides%>255 .moan(|
00007310  22 44 65 66 61 75 6c 74  20 66 69 6c 65 20 63 72  |"Default file cr|
00007320  65 61 74 65 64 20 28 32  35 36 20 63 61 72 64 73  |eated (256 cards|
00007330  20 6f 6e 6c 79 29 20 2d  20 72 65 6c 6f 61 64 20  | only) - reload |
00007340  61 6e 64 20 61 6c 74 65  72 20 79 6f 75 72 20 70  |and alter your p|
00007350  72 65 66 65 72 65 6e 63  65 73 22 29 0d 2a e4 05  |references").*..|
00007360  e1 0d 2a ee 07 f7 20 85  0d 2a f8 3a f2 6d 6f 61  |..*... ..*.:.moa|
00007370  6e 28 22 43 6f 75 6c 64  6e 27 74 20 67 65 74 20  |n("Couldn't get |
00007380  65 6e 6f 75 67 68 20 6d  65 6d 6f 72 79 20 2d 20  |enough memory - |
00007390  72 65 73 65 74 20 61 6e  64 20 72 65 6c 6f 61 64  |reset and reload|
000073a0  22 29 0d 2b 02 05 e1 0d  2b 0c 0f dd f2 6c 6f 61  |").+....+....loa|
000073b0  64 70 72 65 66 73 0d 2b  16 07 ea 20 85 0d 2b 20  |dprefs.+... ..+ |
000073c0  3b ee 20 85 20 ea 20 f2  6d 6f 61 6e 28 22 43 6f  |;. . . .moan("Co|
000073d0  75 6c 64 6e 27 74 20 6c  6f 61 64 20 64 65 66 61  |uldn't load defa|
000073e0  75 6c 74 73 20 66 69 6c  65 20 3a 20 22 2b f6 24  |ults file : "+.$|
000073f0  29 3a e5 20 8d 74 4e 6b  0d 2b 2a 28 64 65 66 61  |):. .tNk.+*(defa|
00007400  75 6c 74 73 3d 8e 28 22  3c 41 4d 46 42 61 73 65  |ults=.("<AMFBase|
00007410  24 44 69 72 3e 2e 44 65  66 61 75 6c 74 73 22 29  |$Dir>.Defaults")|
00007420  0d 2b 34 15 e8 23 64 65  66 61 75 6c 74 73 2c 73  |.+4..#defaults,s|
00007430  74 61 72 74 24 0d 2b 3e  3a e7 20 73 74 61 72 74  |tart$.+>:. start|
00007440  24 3c 3e 22 65 6c 69 46  20 73 74 6c 75 61 66 65  |$<>"eliF stluafe|
00007450  44 20 65 73 61 42 46 4d  41 22 20 8c 20 85 20 34  |D esaBFMA" . . 4|
00007460  2c 22 43 6f 72 72 75 70  74 20 66 69 6c 65 22 0d  |,"Corrupt file".|
00007470  2b 48 16 e8 23 64 65 66  61 75 6c 74 73 2c 70 72  |+H..#defaults,pr|
00007480  65 66 63 6f 6e 0d 2b 52  17 e8 23 64 65 66 61 75  |efcon.+R..#defau|
00007490  6c 74 73 2c 70 72 65 66  6c 6f 61 64 0d 2b 5c 19  |lts,prefload.+\.|
000074a0  e8 23 64 65 66 61 75 6c  74 73 2c 70 72 65 66 64  |.#defaults,prefd|
000074b0  65 66 69 6e 65 0d 2b 66  19 e8 23 64 65 66 61 75  |efine.+f..#defau|
000074c0  6c 74 73 2c 70 72 65 66  69 6e 64 65 6e 74 0d 2b  |lts,prefindent.+|
000074d0  70 18 e8 23 64 65 66 61  75 6c 74 73 2c 70 72 65  |p..#defaults,pre|
000074e0  66 6c 6f 61 64 24 0d 2b  7a 18 e8 23 64 65 66 61  |fload$.+z..#defa|
000074f0  75 6c 74 73 2c 70 72 65  66 63 61 72 64 73 0d 2b  |ults,prefcards.+|
00007500  84 0f d9 20 23 64 65 66  61 75 6c 74 73 0d 2b 8e  |... #defaults.+.|
00007510  07 f7 20 85 0d 2b 98 05  e1 0d 2b a2 10 dd f2 73  |.. ..+....+....s|
00007520  61 76 65 64 65 66 69 6e  65 0d 2b ac 07 ea 20 85  |avedefine.+... .|
00007530  0d 2b b6 39 ee 20 85 20  ea 20 f2 6d 6f 61 6e 28  |.+.9. . . .moan(|
00007540  22 43 6f 75 6c 64 6e 27  74 20 73 61 76 65 20 64  |"Couldn't save d|
00007550  65 66 69 6e 65 20 66 69  6c 65 20 3a 20 22 2b f6  |efine file : "+.|
00007560  24 29 3a e5 20 8d 54 46  6c 0d 2b c0 26 64 65 66  |$):. .TFl.+.&def|
00007570  61 75 6c 74 73 3d ae 28  22 3c 41 4d 46 42 61 73  |aults=.("<AMFBas|
00007580  65 24 44 69 72 3e 2e 44  65 66 69 6e 65 22 29 0d  |e$Dir>.Define").|
00007590  2b ca 24 f1 23 64 65 66  61 75 6c 74 73 2c 22 65  |+.$.#defaults,"e|
000075a0  6c 69 46 20 65 6e 69 66  65 44 20 65 73 61 42 46  |liF enifeD esaBF|
000075b0  4d 41 22 0d 2b d4 0e e3  20 49 3d 31 20 b8 20 31  |MA".+... I=1 . 1|
000075c0  30 0d 2b de 17 f1 23 64  65 66 61 75 6c 74 73 2c  |0.+...#defaults,|
000075d0  6e 61 6d 65 24 28 49 29  0d 2b e8 05 ed 0d 2b f2  |name$(I).+....+.|
000075e0  19 f1 23 64 65 66 61 75  6c 74 73 2c 22 64 65 68  |..#defaults,"deh|
000075f0  73 69 6e 69 46 22 0d 2b  fc 0f d9 20 23 64 65 66  |siniF".+... #def|
00007600  61 75 6c 74 73 0d 2c 06  07 f7 20 85 0d 2c 10 05  |aults.,... ..,..|
00007610  e1 0d 2c 1a 10 dd f2 73  61 76 65 69 6e 64 65 6e  |..,....saveinden|
00007620  74 0d 2c 24 07 ea 20 85  0d 2c 2e 39 ee 20 85 20  |t.,$.. ..,.9. . |
00007630  ea 20 f2 6d 6f 61 6e 28  22 43 6f 75 6c 64 6e 27  |. .moan("Couldn'|
00007640  74 20 73 61 76 65 20 69  6e 64 65 6e 74 20 66 69  |t save indent fi|
00007650  6c 65 20 3a 20 22 2b f6  24 29 3a e5 20 8d 54 46  |le : "+.$):. .TF|
00007660  6c 0d 2c 38 26 64 65 66  61 75 6c 74 73 3d ae 28  |l.,8&defaults=.(|
00007670  22 3c 41 4d 46 42 61 73  65 24 44 69 72 3e 2e 49  |"<AMFBase$Dir>.I|
00007680  6e 64 65 6e 74 22 29 0d  2c 42 24 f1 23 64 65 66  |ndent").,B$.#def|
00007690  61 75 6c 74 73 2c 22 65  6c 69 46 20 74 6e 65 64  |aults,"eliF tned|
000076a0  6e 49 20 65 73 61 42 46  4d 41 22 0d 2c 4c 19 f1  |nI esaBFMA".,L..|
000076b0  23 64 65 66 61 75 6c 74  73 2c 22 61 74 61 64 20  |#defaults,"atad |
000076c0  65 73 55 22 0d 2c 56 24  f1 23 64 65 66 61 75 6c  |esU".,V$.#defaul|
000076d0  74 73 2c 32 32 2c a4 73  65 6c 65 63 74 28 73 61  |ts,22,.select(sa|
000076e0  76 65 33 25 2c 32 32 29  0d 2c 60 0f e3 20 49 3d  |ve3%,22).,`.. I=|
000076f0  33 30 20 b8 20 33 38 0d  2c 6a 22 f1 23 64 65 66  |30 . 38.,j".#def|
00007700  61 75 6c 74 73 2c 49 2c  a4 73 65 6c 65 63 74 28  |aults,I,.select(|
00007710  73 61 76 65 33 25 2c 49  29 0d 2c 74 05 ed 0d 2c  |save3%,I).,t...,|
00007720  7e 1a f1 23 64 65 66 61  75 6c 74 73 2c 22 65 6c  |~..#defaults,"el|
00007730  74 69 74 20 65 73 55 22  0d 2c 88 24 f1 23 64 65  |tit esU".,.$.#de|
00007740  66 61 75 6c 74 73 2c 32  35 2c a4 73 65 6c 65 63  |faults,25,.selec|
00007750  74 28 73 61 76 65 33 25  2c 32 35 29 0d 2c 92 0f  |t(save3%,25).,..|
00007760  e3 20 49 3d 35 37 20 b8  20 36 35 0d 2c 9c 22 f1  |. I=57 . 65.,.".|
00007770  23 64 65 66 61 75 6c 74  73 2c 49 2c a4 73 65 6c  |#defaults,I,.sel|
00007780  65 63 74 28 73 61 76 65  33 25 2c 49 29 0d 2c a6  |ect(save3%,I).,.|
00007790  05 ed 0d 2c b0 1b f1 23  64 65 66 61 75 6c 74 73  |...,...#defaults|
000077a0  2c 22 74 6e 65 64 6e 69  20 65 73 55 22 0d 2c ba  |,"tnedni esU".,.|
000077b0  24 f1 23 64 65 66 61 75  6c 74 73 2c 32 36 2c a4  |$.#defaults,26,.|
000077c0  73 65 6c 65 63 74 28 73  61 76 65 33 25 2c 32 36  |select(save3%,26|
000077d0  29 0d 2c c4 0f e3 20 49  3d 36 36 20 b8 20 37 34  |).,... I=66 . 74|
000077e0  0d 2c ce 22 f1 23 64 65  66 61 75 6c 74 73 2c 49  |.,.".#defaults,I|
000077f0  2c a4 73 65 6c 65 63 74  28 73 61 76 65 33 25 2c  |,.select(save3%,|
00007800  49 29 0d 2c d8 05 ed 0d  2c e2 1d f1 23 64 65 66  |I).,....,...#def|
00007810  61 75 6c 74 73 2c 22 65  6c 74 69 74 20 74 6e 65  |aults,"eltit tne|
00007820  64 6e 49 22 0d 2c ec 22  f1 23 64 65 66 61 75 6c  |dnI".,.".#defaul|
00007830  74 73 2c 32 38 2c 24 a4  74 61 64 28 73 61 76 65  |ts,28,$.tad(save|
00007840  33 25 2c 32 38 29 0d 2c  f6 0f e3 20 49 3d 38 34  |3%,28).,... I=84|
00007850  20 b8 20 39 32 0d 2d 00  20 f1 23 64 65 66 61 75  | . 92.-. .#defau|
00007860  6c 74 73 2c 49 2c 24 a4  74 61 64 28 73 61 76 65  |lts,I,$.tad(save|
00007870  33 25 2c 49 29 0d 2d 0a  05 ed 0d 2d 14 1c f1 23  |3%,I).-....-...#|
00007880  64 65 66 61 75 6c 74 73  2c 22 61 74 61 64 20 74  |defaults,"atad t|
00007890  6e 65 64 6e 49 22 0d 2d  1e 22 f1 23 64 65 66 61  |nednI".-.".#defa|
000078a0  75 6c 74 73 2c 39 33 2c  24 a4 74 61 64 28 73 61  |ults,93,$.tad(sa|
000078b0  76 65 33 25 2c 39 33 29  0d 2d 28 11 e3 20 49 3d  |ve3%,93).-(.. I=|
000078c0  31 30 33 20 b8 20 31 31  31 0d 2d 32 20 f1 23 64  |103 . 111.-2 .#d|
000078d0  65 66 61 75 6c 74 73 2c  49 2c 24 a4 74 61 64 28  |efaults,I,$.tad(|
000078e0  73 61 76 65 33 25 2c 49  29 0d 2d 3c 05 ed 0d 2d  |save3%,I).-<...-|
000078f0  46 19 f1 23 64 65 66 61  75 6c 74 73 2c 22 64 65  |F..#defaults,"de|
00007900  68 73 69 6e 69 46 22 0d  2d 50 0f d9 20 23 64 65  |hsiniF".-P.. #de|
00007910  66 61 75 6c 74 73 0d 2d  5a 07 f7 20 85 0d 2d 64  |faults.-Z.. ..-d|
00007920  05 e1 0d 2d 6e 10 dd f2  6c 6f 61 64 64 65 66 69  |...-n...loaddefi|
00007930  6e 65 0d 2d 78 07 ea 20  85 0d 2d 82 39 ee 20 85  |ne.-x.. ..-.9. .|
00007940  20 ea 20 f2 6d 6f 61 6e  28 22 43 6f 75 6c 64 6e  | . .moan("Couldn|
00007950  27 74 20 6c 6f 61 64 20  64 65 66 69 6e 65 20 66  |'t load define f|
00007960  69 6c 65 20 3a 20 22 2b  f6 24 29 3a e5 20 8d 54  |ile : "+.$):. .T|
00007970  46 6c 0d 2d 8c 26 64 65  66 61 75 6c 74 73 3d 8e  |Fl.-.&defaults=.|
00007980  28 22 3c 41 4d 46 42 61  73 65 24 44 69 72 3e 2e  |("<AMFBase$Dir>.|
00007990  44 65 66 69 6e 65 22 29  0d 2d 96 15 e8 23 64 65  |Define").-...#de|
000079a0  66 61 75 6c 74 73 2c 73  74 61 72 74 24 0d 2d a0  |faults,start$.-.|
000079b0  38 e7 20 73 74 61 72 74  24 3c 3e 22 65 6c 69 46  |8. start$<>"eliF|
000079c0  20 65 6e 69 66 65 44 20  65 73 61 42 46 4d 41 22  | enifeD esaBFMA"|
000079d0  20 8c 20 85 20 34 2c 22  43 6f 72 72 75 70 74 20  | . . 4,"Corrupt |
000079e0  66 69 6c 65 22 0d 2d aa  0e e3 20 49 3d 31 20 b8  |file".-... I=1 .|
000079f0  20 31 30 0d 2d b4 17 e8  23 64 65 66 61 75 6c 74  | 10.-...#default|
00007a00  73 2c 6e 61 6d 65 24 28  49 29 0d 2d be 05 ed 0d  |s,name$(I).-....|
00007a10  2d c8 15 e8 23 64 65 66  61 75 6c 74 73 2c 73 74  |-...#defaults,st|
00007a20  61 72 74 24 0d 2d d2 2d  e7 20 73 74 61 72 74 24  |art$.-.-. start$|
00007a30  3c 3e 22 64 65 68 73 69  6e 69 46 22 20 8c 20 85  |<>"dehsiniF" . .|
00007a40  20 34 2c 22 43 6f 72 72  75 70 74 20 66 69 6c 65  | 4,"Corrupt file|
00007a50  22 0d 2d dc 0f d9 20 23  64 65 66 61 75 6c 74 73  |".-... #defaults|
00007a60  0d 2d e6 07 f7 20 85 0d  2d f0 11 f2 73 65 74 61  |.-... ..-...seta|
00007a70  6c 6c 64 65 66 69 6e 65  0d 2d fa 05 e1 0d 2e 04  |lldefine.-......|
00007a80  10 dd f2 6c 6f 61 64 69  6e 64 65 6e 74 0d 2e 0e  |...loadindent...|
00007a90  07 ea 20 85 0d 2e 18 39  ee 20 85 20 ea 20 f2 6d  |.. ....9. . . .m|
00007aa0  6f 61 6e 28 22 43 6f 75  6c 64 6e 27 74 20 6c 6f  |oan("Couldn't lo|
00007ab0  61 64 20 69 6e 64 65 6e  74 20 66 69 6c 65 20 3a  |ad indent file :|
00007ac0  20 22 2b f6 24 29 3a e5  20 8d 54 46 6c 0d 2e 22  | "+.$):. .TFl.."|
00007ad0  26 64 65 66 61 75 6c 74  73 3d 8e 28 22 3c 41 4d  |&defaults=.("<AM|
00007ae0  46 42 61 73 65 24 44 69  72 3e 2e 49 6e 64 65 6e  |FBase$Dir>.Inden|
00007af0  74 22 29 0d 2e 2c 15 e8  23 64 65 66 61 75 6c 74  |t")..,..#default|
00007b00  73 2c 73 74 61 72 74 24  0d 2e 36 38 e7 20 73 74  |s,start$..68. st|
00007b10  61 72 74 24 3c 3e 22 65  6c 69 46 20 74 6e 65 64  |art$<>"eliF tned|
00007b20  6e 49 20 65 73 61 42 46  4d 41 22 20 8c 20 85 20  |nI esaBFMA" . . |
00007b30  34 2c 22 43 6f 72 72 75  70 74 20 66 69 6c 65 22  |4,"Corrupt file"|
00007b40  0d 2e 40 11 e8 23 64 65  66 61 75 6c 74 73 2c 61  |..@..#defaults,a|
00007b50  24 0d 2e 4a 0f e3 20 49  3d 32 39 20 b8 20 33 38  |$..J.. I=29 . 38|
00007b60  0d 2e 54 12 e8 23 64 65  66 61 75 6c 74 73 2c 69  |..T..#defaults,i|
00007b70  2c 76 0d 2e 5e 17 f2 73  65 74 69 6e 64 65 6e 74  |,v..^..setindent|
00007b80  69 63 6f 6e 28 69 2c 76  29 0d 2e 68 05 ed 0d 2e  |icon(i,v)..h....|
00007b90  72 11 e8 23 64 65 66 61  75 6c 74 73 2c 61 24 0d  |r..#defaults,a$.|
00007ba0  2e 7c 0f e3 20 49 3d 35  36 20 b8 20 36 35 0d 2e  |.|.. I=56 . 65..|
00007bb0  86 12 e8 23 64 65 66 61  75 6c 74 73 2c 69 2c 76  |...#defaults,i,v|
00007bc0  0d 2e 90 17 f2 73 65 74  69 6e 64 65 6e 74 69 63  |.....setindentic|
00007bd0  6f 6e 28 69 2c 76 29 0d  2e 9a 05 ed 0d 2e a4 11  |on(i,v).........|
00007be0  e8 23 64 65 66 61 75 6c  74 73 2c 61 24 0d 2e ae  |.#defaults,a$...|
00007bf0  0f e3 20 49 3d 36 35 20  b8 20 37 34 0d 2e b8 12  |.. I=65 . 74....|
00007c00  e8 23 64 65 66 61 75 6c  74 73 2c 69 2c 76 0d 2e  |.#defaults,i,v..|
00007c10  c2 17 f2 73 65 74 69 6e  64 65 6e 74 69 63 6f 6e  |...setindenticon|
00007c20  28 69 2c 76 29 0d 2e cc  05 ed 0d 2e d6 11 e8 23  |(i,v)..........#|
00007c30  64 65 66 61 75 6c 74 73  2c 61 24 0d 2e e0 11 e3  |defaults,a$.....|
00007c40  20 49 3d 31 30 32 20 b8  20 31 31 31 0d 2e ea 26  | I=102 . 111...&|
00007c50  e8 23 64 65 66 61 75 6c  74 73 2c 69 2c 61 24 3a  |.#defaults,i,a$:|
00007c60  24 a4 74 61 64 28 73 61  76 65 33 25 2c 69 29 3d  |$.tad(save3%,i)=|
00007c70  61 24 0d 2e f4 05 ed 0d  2e fe 11 e8 23 64 65 66  |a$..........#def|
00007c80  61 75 6c 74 73 2c 61 24  0d 2f 08 11 e3 20 49 3d  |aults,a$./... I=|
00007c90  31 30 32 20 b8 20 31 31  31 0d 2f 12 26 e8 23 64  |102 . 111./.&.#d|
00007ca0  65 66 61 75 6c 74 73 2c  69 2c 61 24 3a 24 a4 74  |efaults,i,a$:$.t|
00007cb0  61 64 28 73 61 76 65 33  25 2c 69 29 3d 61 24 0d  |ad(save3%,i)=a$.|
00007cc0  2f 1c 05 ed 0d 2f 26 11  e8 23 64 65 66 61 75 6c  |/..../&..#defaul|
00007cd0  74 73 2c 61 24 0d 2f 30  0f d9 20 23 64 65 66 61  |ts,a$./0.. #defa|
00007ce0  75 6c 74 73 0d 2f 3a 07  f7 20 85 0d 2f 44 05 e1  |ults./:.. ../D..|
00007cf0  0d 2f 4e 18 dd f2 73 65  74 69 6e 64 65 6e 74 69  |./N...setindenti|
00007d00  63 6f 6e 28 69 2c 76 29  0d 2f 58 41 e7 20 76 20  |con(i,v)./XA. v |
00007d10  8c 20 f2 61 6c 74 65 72  28 73 61 76 65 33 25 2c  |. .alter(save3%,|
00007d20  69 2c 31 3c 3c 32 31 2c  31 3c 3c 32 31 29 20 8b  |i,1<<21,1<<21) .|
00007d30  20 f2 61 6c 74 65 72 28  73 61 76 65 33 25 2c 69  | .alter(save3%,i|
00007d40  2c 30 2c 31 3c 3c 32 31  29 0d 2f 62 05 e1 0d ff  |,0,1<<21)./b....|
00007d50