� > <HotKeys$Dir>.!RunImage
:
task$="HotKeys"
*purpose$="Assign hot keys for IconDir"
"author$="(c) Graham Crow 1994"
!version$="1.01 (14-May-1994)"
:
� � �error:�
	�init:�wimpinit

�loadtemplates
�createicons:�initicons
�load(savedir$+".HotKeys")

:
�ow(main%)
� � �wimperror
quit%=�
�:�poll:� quit%
�closewimp
�
:
�-----------
�. WIMP POLL
�-----------
:

��poll
ș "WimpExt_SlabIcon",0
ș "WimpExt_PrePoll"
%ș "OS_ReadMonotonicTime" � time%
-ș "Wimp_PollIdle",,q%,time%+10 � reason%
2ș "WimpExt_Action",task%,q%,reason% � reason%
%� prevent dragging on a selection
 "� reason%<17 � reason%>19 z%=0
!Ȏ reason% �
" � 0
# � �open(main%) �
$  c%=�changed
%3  � c%:� � star% �star:� � � c%:� star% �nostar
& �
'$ � 1:ș "WimpExt_AutoRedraw",,q%
( � 2:�ow2(q%!0)
) � 3:�cw(q%!0)
* � 6:�mouse(q%)
+! � 7:�enddrag(q%,swh%,solid%)
, � 8:�keypress(q%)
- � 9:�menuselect(q%)
. � 17,18:�receive(q%)
/�
0�
1:
2�----------
3�. MESSAGES
4�----------
5:
6��receive(q%)
7sender%=q%!4
8Ȏ q%!16 �
9 � 0:quit%=�quit
: � 2:�* PROCdatasave(q%)
; � 3:�dataload(q%)
< � 8:�prequit(q%)
=�
>�
?:
@��prequit(q%)
A0� PreQuit message received from Task Manager
Bsender%=q%!4:quit%=�
C� acknowledge message
Dq%!12=q%!8
E'ș "Wimp_SendMessage",19,q%,sender%
F� star% quit%=�promptsave
G
� quit% �
H# ș "Wimp_GetCaretPosition",,q%
I  q%!24=&1FC:� Ctrl+Shift+F12
J' ș "Wimp_SendMessage",8,q%,sender%
K�
L�
M:
N�------
O�. INIT
P�------
Q:
R
��init
S� J%
T1blocksize%=&500:buffersize%=&500:panesize%=36
U� q% blocksize%
V� pq% panesize%
W� buffer% buffersize%
X� C% &100:� w/s
Y
� mb1%100
Z� nospace 8
[$nospace="A~ "+�0
\:
]+� data blocks and ads for Create pane..
^
lines%=40
_� pathad%(lines%)
`� J%=0 � lines%
a- � a% &100:pathad%(J%)=a%:$pathad%(J%)=""
b�
c� rem$(lines%),rem%(lines%)
d#� J%=26 � lines%-1:rem%(J%)=�:�
e� for pane icons..
f'� valid% 20:$valid%="Soptoff,opton"
g)textlen%=2:� text% textlen%:$text%=""
h:
i� for msg window
j� icm$(3),ict$(4)
k.� icm%(3):� J%=1 � 3:� a% 50:icm%(J%)=a%:�
l.� icn%(4):� J%=1 � 4:� a% 15:icn%(J%)=a%:�
m.� icv%(4):� J%=1 � 4:� a% 10:icv%(J%)=a%:�
n%� icx%(4),icy%(4),icw%(4),ich%(4)
oreply%=0:esc%=�:ret%=�
p:
q"taskdir$=�osvar("HotKeys$Dir")
r"savedir$=�osvar("IconDir$Dir")
s#� savedir$="" savedir$=taskdir$
t title$="HotKeys for IconDir"
u7star%=�:� asterisk in window title for changed data
vF%=0:� file handle
w�
x:
y��wimpinit
zB$q%="TASK":ș "Wimp_Initialise",200,!q%,task$ � version%,task%
{Hș "WimpExt_Initialise",16,task%,%10100000011 � wext_ver%,,wext_spr%
|�
}:
~��closewimp
 ș "WimpExt_CloseDown",task%
�,$q%="TASK":ș "Wimp_CloseDown",task%,!q%
��
�:
���initicons
�� J%,s%,e%,wh%:wh%=info%
��it(wh%,0,task$)
��it(wh%,1,purpose$)
��it(wh%,2,author$)
��it(wh%,3,version$)
�
wh%=pane%
� s%=lines%*2+26:e%=lines%*3-1
�� J%=s% � e%:�si(wh%,J%):�
��
�:
��------
��. LOAD
��------
�:
���dataload(q%)
�� f%,ih%,ok%,wh%:wh%=q%!20
�� send DataLoadAck
�?q%!12=q%!8:q%!16=4:q%!0=64:ș "Wimp_SendMessage",17,q%,q%!4
�"path$=�name(q%+44):type%=q%!40
�+ok%=type%=&FFF � �leaf(path$)="HotKeys"
�*ș "Wimp_GetPointerInfo",,q%:ih%=q%!16
�Ȏ wh% �
� � pane%
�4 � ih%>=lines% � ih%<lines%*2 �it(wh%,ih%,path$)
� � main%
� � ih%=4 � ok% �load(path$)
�	 � -2
�& � ih%=baricon% � ok% �load(path$)
��
��
�:
�ݤname(ptr%)
�� s$:s$=""
�$ȕ ?ptr%>31:s$+=�?ptr%:ptr%+=1:�
�=s$
�:
���load(fsp$)
�*� J%,end%,path$,rest$,left%,key$,kick$
�� � �promptsave �
�ș "Hourglass_On"
��clearpane
�F%=�(fsp$)
�!� F%=0 � ș "Hourglass_Off":�
�
end%=�
�
nokey%=26
��
�
 s$=""
� �
�  b%=�#F%:� b%>30 s$+=�b%
� � b%=&A
� :
� � get line in s$
�$ � strip leading/trailing spaces
� s$=�strip(s$)
� � s$="END" end%=�
� i%=�s$," ")
�$ � i%>0 � �s$,1)<>"|" � � end% �
�  � get pathname
�  path$=�s$,i%-1)
�  � get key
�  rest$=�strip(�s$,�s$-i%))
�  left%=�(�rest$,1))
�1  � left%>64 � left%<91 key$=�left% � key$=""
�  � get kickstart
�  kick%=�rest$,"*")>0
�  :
�  � place in pane
�  wh%=pane%
�%  � get icon corresponding to key
�  � key$="" �
�   icon%=nokey%:nokey%+=1
�  �
�   icon%=�key$-65
�  �
�  � icon%<lines% �
�"   �it(wh%,icon%+lines%,path$)
�   rem$(icon%)=path$
�   � kick% � icon%>=26 �
�    �si(wh%,icon%+lines%*2)
�   �
�    �ui(wh%,icon%+lines%*2)
�   �
�,   rem%(icon%)=�is(pane%,icon%+lines%*2)
�  �
� �
�
� �#F%
�� #F%:F%=0
�ș "Hourglass_Smash"
��ow(main%):�beep
��
�:
���clearpane
�� J%,wh%:wh%=pane%
�+ș "Wimp_GetCaretPosition",,q%:ih%=q%!4
�$� ih%>=lines% �caretx(wh%,ih%,0)
�� J%=0 � lines%-1
� �it(wh%,J%+lines%,"")
� rem$(J%)=""
��
�� J%=0 � 25
� �ui(wh%,J%+lines%*2)
� rem%(J%)=0
��
��
�:
��------
��. SAVE
��------
�:
���save(fsp$)
�� J%,s$
�� � �oktosave(fsp$) �
�ș "Hourglass_On"
�sep$=�&A:� LF
�F%=�(fsp$)
��("SetType "+fsp$+" &FFF")
�-s$=�124+" Hotkey assignments for IconDir"
�s$+=" - "+�today+sep$
��#F%,s$
�� J%=0 � lines%-1
� s$=�it(pane%,J%+lines%)
� s%=�is(pane%,J%+lines%*2)
� � s$<>"" �
�  � J%<26 s$+="  "+�(65+J%)

  � s% s$+="  *"



  �#F%,s$

 �

�

�#F%,sep$+"END"+sep$

� #F%:F%=0

� J%=0 � lines%-1

" rem$(J%)=�it(pane%,J%+lines%)

�

	� J%=0 � 25


$ rem%(J%)=�is(pane%,J%+lines%*2)

�

ș "Hourglass_Smash"


�

:

�------------

�. CHECK SAVE

�------------

:


ݤquit


esc%=�

� �promptsave �=�

=�

:

ݤpromptsave

� � star% �=�

@ans%=�msg("Save edited HotKeys file?","Discard,Cancel,Save")

� ans%=1 �=�

*� ans%=3 �save(taskdir$+".HotKeys"):=�

=�:� Cancel operation

:

ݤoktosave(fsp$)

 � is file present?

!� type%,ok%

" ș "OS_File",13,fsp$ � type%

#� type%=0 ok%=� � ok%=�

$
� � ok% �

%; ans%=�msg("'HotKeys' already exists","Cancel,Replace")

& � ans%=2 ok%=�

'�

(=ok%

):

*
ݤchanged

+� J%,ch%:J%=0:ch%=�

,�

-+ � �it(pane%,J%+lines%)<>rem$(J%) ch%=�

.- � �is(pane%,J%+lines%*2)<>rem%(J%) ch%=�

/
 J%+=1

0� J%>lines% � ch%

1=ch%

2:

3 �---------------------------

4 �. DRAG ERROR/MESSAGE WINDOW

5 �---------------------------

6:

7!��startdrag(wh%,ih%,mb%,sol%)

8'swh%=wh%:sih%=ih%:smb%=mb%:� source

9� get coords

:)q%!0=wh%:ș "Wimp_GetWindowState",,q%

;Dwminx%=q%!4:wminy%=q%!8:wmaxx%=q%!12:wmaxy%=q%!16:scrolly%=q%!24

<"ox%=q%!4-q%!20:oy%=q%!16-q%!24

=2ș "Wimp_GetPointerInfo",,q%:mx%=q%!0:my%=q%!4

>0q%!0=wh%:q%!4=ih%:ș "Wimp_GetIconState",,q%

?"� initial position of drag box

@�

A:

B��enddrag(q%,swh%,solid%)

C%� reason code 7 from polling loop

D'� q% contains final pos of drag box

E4bminx%=q%!0:bminy%=q%!4:bmaxx%=q%!8:bmaxy%=q%!12

F�

G:

H�-------

I�. MOUSE

J�-------

K:

L��mouse(q%)

M� m$,mx%,my%,mb%,wh%,ih%

N<mx%=q%!0:my%=q%!4:mb%=q%!8:wh%=q%!12:ih%=q%!16:icon%=ih%

O/� mb% � 2 � wh%=-2 �menu(wh%,ih%,mx%,my%):�

PȎ wh% �

Q" �-2:� ih%=baricon% �ow(main%)

R :

S � pane%

T! s%=lines%*2+26:e%=lines%*3-1

U% � ih%>=s% � ih%<=e% �si(wh%,ih%)

V :

W � main%

X
 Ȏ ih% �

Y$  � 0:�save(savedir$+".HotKeys")

Z"  � 1:� �promptsave �clearpane

[  � 2:�cw(main%)

\  � 3,4

]J   s$="Drag an IconDir 'HotKeys' file to the indented area to load it"

^   ans%=�msg(s$,"OK")

_ �

` :

a�

b�

c:

d�------

e�. KEYS

f�------

g:

h��keypress(q%)

i)wh%=q%!0:ih%=q%!4:xo%=q%!8:chr%=q%!24

j
Ȏ chr% �

k �  30:�home

l �  13:�return

m �  27:�escape(wh%)

n � 398:�down

o � 399:�up

p   ș "Wimp_ProcessKey",chr%

q�

r�

s:

t��escape(wh%)

u
esc%=�

v�

w:

x
��home

y� wh%=pane% �

z) !q%=wh%:ș "Wimp_GetWindowState",,q%

{- q%!20=0:q%!24=0:ș "Wimp_OpenWindow",,q%

| �caretx(wh%,lines%,0)

}�

~�

:

���return

�
ret%=�

�� wh%=pane% �

� � ih%=lines%*2-1 �

� �scrolldown(wh%,ih%)

� �caret(wh%,ih%+1)

��

��

�:

�
��down

�� wh%=pane% �

� � ih%=lines%*2-1 �

� �scrolldown(wh%,ih%)

� �caret(wh%,ih%+1)

��

��

�:

���up

�� wh%=pane% �

� � ih%=lines% �

� �scrollup(wh%,ih%)

� �caret(wh%,ih%-1)

��

��

�:

���scrolldown(wh%,ih%)

�� scroll va up?

�� w%,i%,n%

�-� get extreme window edge relative to wao

�?q%!0=wh%:ș "Wimp_GetWindowState",,q%:w%=q%!24-(q%!16-q%!8)

�3� get extreme edge of next icon relative to wao

�;q%!0=wh%:q%!4=ih%+1:ș "Wimp_GetIconState",,q%:i%=q%!12

�
� i%<w% �

�= n%=�(i%)-�(w%):� n%>48 n%=48:� align with edge of window

�3 !q%=wh%:ș "Wimp_GetWindowState",,q%:q%!24-=n%

�' ș "Wimp_OpenWindow",,q%:�("FX15")

��

��

�:

���scrollup(wh%,ih%)

�� scroll va down?

�� w%,i%,n%

�-� get extreme window edge relative to wao

�2q%!0=wh%:ș "Wimp_GetWindowState",,q%:w%=q%!24

�3� get extreme edge of prev icon relative to wao

�;q%!0=wh%:q%!4=ih%-1:ș "Wimp_GetIconState",,q%:i%=q%!20

�
� i%>w% �

�= n%=�(w%)-�(i%):� n%>48 n%=48:� align with edge of window

�3 !q%=wh%:ș "Wimp_GetWindowState",,q%:q%!24+=n%

�' ș "Wimp_OpenWindow",,q%:�("FX15")

��

��

�:

���caret(wh%,ih%)

�� s$:s$=�it(wh%,ih%)

�/ș "Wimp_SetCaretPosition",wh%,ih%,,,-1,�s$

��

�:

���caretx(wh%,ih%,xo%)

��

�:

��------

��. MENU

��------

�:

���menu(wh%,ih%,mx%,my%)

�� middle button clicked

�Ȏ wh% �

� � -2:�barmenu(mx%,my%)

��

��

�:

���barmenu(mx%,my%)

�9� f%,b%,g%:b%=&7000021:g%=&7400021:� flags=black,grey

�remx%=mx%:remy%=my%:i%=0

�/a%=mb1%:!a%=baricon%:p%=a%+32:$(a%+4)=task$

�+a%!16=&70207:a%!20=128:a%!24=44:a%!28=0

�@s$="Info":p%!0=0:p%!4=info%:p%!8=b%:$(p%+12)=s$:p%+=24:i%+=1

�7s$="Quit":p%!0=&80:p%!4=0:p%!8=b%:$(p%+12)=s$:i%+=1

�3ș "WimpExt_CreateMenu",,mb1%+4,mx%-64,96+i%*44

��

�:

���menuselect(q%)

�%� click on menu from polling loop

�5� q%!0=0 ș "WimpExt_OpenDialogue",,,info%,400,96

�� q%!0=1 quit%=�quit

��

�:

��------

��. MISC

��------

�:

�ݤleaf(f$)

�(� c$,s$,c%:s$="":c%=�f$:c$=�f$,c%,1)

� ȕ c$<>"." � c$<>":" � c%<>0

� s$=c$+s$:c%-=1

� c$=�f$,c%,1)

��

�=s$

�:

�+ݤtoday:� system date. Eg "22 Aug 1988"

�(=��$,5,2)+" "+��$,8,3)+" "+��$,14,2)

�:

�ݤosvar(osvar$)

�
� len%

�%� If not found don't report error

�1ș "XOS_ReadVarVal",osvar$,C%,200,0,3 �,,len%

�?(C%+len%)=&D

�=$C%

�:

�ݤstrip(s$)

�#� strip leading/trailing spaces

�� J%,o$,c$,c%,n%:o$=s$

�� �s$,1)=" "�

�3 c%=1:�:c%+=1:� �o$,c%,1)<>" ":o$=�o$,�o$-c%+1)

��

�� �s$,1)=" "�

�/ c%=�o$:n%=1:�:c%-=1:n%+=1:� �o$,c%,1)<>" "

� o$=�o$,�o$-n%+1)

��

�=o$

�:

���beep:�

���buzz:�

�:

��---------

��. WINDOWS

��---------
:

��loadtemplates
1ș "Wimp_OpenTemplate",,taskdir$+".Templates"
$main%=�tw("Main"):maintit%=q%!72
pane%=�tw2("Pane")
info%=�tw("Info")
ș "Wimp_CloseTemplate"
,ș "WimpExt_LinkWindows",,,main%,pane%,0
�
	:

ݤtw(a$)
&� c%,end%:end%=buffer%+buffersize%
=ș "Wimp_LoadTemplate",,q%,buffer%,end%,-1,a$ � ,,buffer%

#ș "Wimp_CreateWindow",,q% � c%
=c%
:

ݤtw2(a$)
&� c%,end%:end%=buffer%+buffersize%
=ș "Wimp_LoadTemplate",,q%,buffer%,end%,-1,a$ � ,,buffer%
q%!64=wext_spr%
#ș "Wimp_CreateWindow",,q% � c%
=c%
:

��ow(wh%)
)q%!0=wh%:ș "Wimp_GetWindowState",,q%
q%!24=-1
#ș "WimpExt_CentreWindow",,q%+4
$ș "WimpExt_CentreWindowV",,q%+4
ș "WimpExt_OpenLinked",,q%
�
:
��ow2(wh%)
 � from Wimp Poll
!ș "WimpExt_OpenLinked",,q%
"�
#:
$
��cw(wh%)
%(!q%=wh%:ș "WimpExt_CloseLinked",,q%
&�
':
(ݤopen(wh%)
)(!C%=wh%:ș "Wimp_GetWindowState",,C%
*=�bitset(C%!32,16)
+:
,ݤbitset(i%,b%)
-"� is bit b% in integer i% set?
.� n%,d%:d%=1<<b%
/n%=(i% � d%) � d%
0� n%=0 �=�
1=�
2:
3
��star
4,�tit(main%,maintit%,title$+" *"):star%=�
5�
6:
7��nostar
8'�tit(main%,maintit%,title$):star%=�
9�
::
;��tit(wh%,ad%,str$)
<"� force change of window title
=4$ad%=str$:!C%=wh%:ș "Wimp_GetWindowOutline",,C%
>1minx%=C%!4:miny%=C%!8:maxx%=C%!12:maxy%=C%!16
??ș "Wimp_ForceRedraw",-1,minx%+84,maxy%-40,maxx%-44,maxy%-4
@�
A:
B ��setextent(wh%,miny%,maxx%)
C(C%!0=0:C%!4=miny%:C%!8=maxx%:C%!12=0
Dș "Wimp_SetExtent",wh%,C%
E�
F:
Gݤosxmax
H(� screen x OS units for current mode
I.ș "OS_ReadModeVariable",-1,11 � ,,xlimit%
J+ș "OS_ReadModeVariable",-1,4 � ,,xeig%
K=(xlimit%+1)<<xeig%
L:
Mݤosymax
N(� screen y OS units for current mode
O.ș "OS_ReadModeVariable",-1,12 � ,,ylimit%
P+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
Q=(ylimit%+1)<<yeig%
R:
S�-------
T�. ICONS
U�-------
V:
W
��baricon
X� icon for icon bar
Y7q%!0=-1:q%!4=0:q%!8=0:q%!12=68:q%!16=68:q%!20=&3002
Z$(q%+24)="!hotkeys"
['ș "Wimp_CreateIcon",,q% � baricon%
\�
]:
^��createicons
_�baricon
`� icons for pane
a)� wh%,ih%,vg%,ix%,iy%,iw%,f%,i%,w%,h%
b
wh%=pane%
c:
dih%=44:vg%=4:iy%=-(ih%+vg%)
e	� key
fix%=6:iw%=36:f%=&1700603D
g� J%=1 � lines%
h s$="":� J%<27 s$=�(J%+64)
i. i%=�icon(wh%,ix%,iy%,iw%,ih%,f%,s$,0,0,0)
j iy%-=(ih%+vg%)
k�
l:
m
� path
n.ix%=48:iw%=660:iy%=-(ih%+vg%):f%=&0700E135
o� J%=1 � lines%
pA i%=�icon(wh%,ix%,iy%,iw%,ih%,f%,"",pathad%(J%),nospace,&100)
q iy%-=(ih%+vg%)
r�
s :
t� switch
u.ix%=716:iw%=44:iy%=-(ih%+vg%):f%=&1400B133
v� J%=1 � lines%
w> i%=�icon(wh%,ix%,iy%,iw%,ih%,f%,"",text%,valid%,textlen%)
x iy%-=(ih%+vg%)
y�
zh%=lines%*(ih%+vg%)+vg%
{�setextent(wh%,-h%,768)
|�
}:
~7ݤicon(wh%,ix%,iy%,iw%,ih%,flag%,text$,d1%,d2%,d3%)
Fq%!0=wh%:q%!4=ix%:q%!8=iy%:q%!12=ix%+iw%:q%!16=iy%+ih%:q%!20=flag%
�
� d1%=0 �
�  $(q%+24)=text$
��
�#  q%!24=d1%:q%!28=d2%:q%!32=d3%
��
�"ș "Wimp_CreateIcon",,q% � ih%
�=ih%
�:
���si(wh%,ih%)
�,C%!0=wh%:C%!4=ih%:C%!8=1<<21:C%!12=1<<21
�ș"Wimp_SetIconState",,C%
��
�:
���ui(wh%,ih%)
�(C%!0=wh%:C%!4=ih%:C%!8=0:C%!12=1<<21
�ș"Wimp_SetIconState",,C%
��
�:
�ݤis(wh%,ih%)
�� n%
�.!C%=wh%:C%!4=ih%:ș"Wimp_GetIconState",,C%
�n%=((C%!24)>>21) � 1
�� n%=0 �=�
�=�
�:
���it(wh%,ih%,s$)
�0C%!0=wh%:C%!4=ih%:ș "Wimp_GetIconState",,C%
�$(C%!28)=s$
�-C%!8=0:C%!12=0:ș "Wimp_SetIconState",,C%
��
�:
�ݤit(wh%,ih%)
�0C%!0=wh%:C%!4=ih%:ș "Wimp_GetIconState",,C%
�
=$(C%!28)
�:
���di(wh%,from%,to%)
�� J%:C%!0=wh%
�7� J%=from% � to%:C%!4=J%:ș "Wimp_DeleteIcon",,C%:�
�+C%!0=wh%:ș "Wimp_GetWindowOutline",,C%
�1minx%=C%!4:miny%=C%!8:maxx%=C%!12:maxy%=C%!16
�4ș "Wimp_ForceRedraw",-1,minx%,miny%,maxx%,maxy%
��
�:
�
�--------
�
�. ERRORS
�
�--------
�:
���wimperror
�.ș "Wimp_DragBox",,-1:ș "Hourglass_Smash"
�� F%>0 �#F%:F%=0
�(s$=�$+",(Error "+ß+": line "+Þ+")"
� ans%=�msg(s$,"OK,Kill task")
�#� ans%=2 � quit%=�:�closewimp:�
��
�:
���error
��4:� �$+" at line "+Þ:�5
��
�:
�ݤmsg(s1$,s2$)
�-� J%,c%,p%,g%,f%,r%,x%,y%,w%,h%,n%,s$,wh%
�	�buzz
�.ș "Wimp_DragBox",,-1:ș "Hourglass_Smash"
�:
�� do choices...
�c%=0:s$=s2$
�0ict$(1)="":ict$(2)="":ict$(3)="":ict$(4)="":
��
� c%+=1:p%=�s$,",")
� � p%=0 ict$(c%)=s$
�- � p%>0 ict$(c%)=�s$,p%-1):s$=�s$,�s$-p%)
�� p%=0:� c%>4 c%=4
�6$C%=ict$(1)+�0+ict$(2)+�0+ict$(3)+�0+ict$(4)+�0+�0
�Mș "WimpExt_ControlImmediate",,2,"Message from Hotkeys",s1$,C%,0 � reply%
�
=reply%+1
�:
��----------
��. DEBUGGER
��----------
�:
���dl(list$)
�� debug list
�0� ccc%,ttt%,mmm%,sss$,ccc$,var$():� var$(20)
�� �
�%� � � �4:�0,ttt%+2)"ERROR!":�5:�
�� ttt%=1 � �(list$)
� ccc$=�list$,ttt%,1)
� � ccc$<>"," sss$+=ccc$
�! � ccc$="," � ttt%=�(list$) �
�  � �sss$>mmm% mmm%=�sss$
�%  var$(ccc%)=sss$:sss$="":ccc%+=1
� �
��:�4
�� ttt%=0 � ccc%-1
� sss$=var$(ttt%)
� �0,ttt%)�50," ")
� � �sss$,1)="~" �
�  sss$=�sss$,�sss$-1)
�  ccc$=�mmm%-�sss$," ")
�)  �0,ttt%) sss$+ccc$+" =&";�~(�sss$)
� �
�  ccc$=�mmm%-�sss$," ")
�'  �0,ttt%) sss$+ccc$+" = ";�(sss$)
� �
��:�5
��
�

00000000  0d 00 01 1f f4 20 3e 20  3c 48 6f 74 4b 65 79 73  |..... > <HotKeys|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 02 05 3a 0d 00 03 13  74 61 73 6b 24 3d 22 48  |...:....task$="H|
00000030  6f 74 4b 65 79 73 22 0d  00 04 2a 70 75 72 70 6f  |otKeys"...*purpo|
00000040  73 65 24 3d 22 41 73 73  69 67 6e 20 68 6f 74 20  |se$="Assign hot |
00000050  6b 65 79 73 20 66 6f 72  20 49 63 6f 6e 44 69 72  |keys for IconDir|
00000060  22 0d 00 05 22 61 75 74  68 6f 72 24 3d 22 28 63  |"..."author$="(c|
00000070  29 20 47 72 61 68 61 6d  20 43 72 6f 77 20 31 39  |) Graham Crow 19|
00000080  39 34 22 0d 00 06 21 76  65 72 73 69 6f 6e 24 3d  |94"...!version$=|
00000090  22 31 2e 30 31 20 28 31  34 2d 4d 61 79 2d 31 39  |"1.01 (14-May-19|
000000a0  39 34 29 22 0d 00 07 05  3a 0d 00 08 10 ee 20 85  |94)"....:..... .|
000000b0  20 f2 65 72 72 6f 72 3a  e0 0d 00 09 13 f2 69 6e  | .error:......in|
000000c0  69 74 3a f2 77 69 6d 70  69 6e 69 74 0d 00 0a 12  |it:.wimpinit....|
000000d0  f2 6c 6f 61 64 74 65 6d  70 6c 61 74 65 73 0d 00  |.loadtemplates..|
000000e0  0b 1b f2 63 72 65 61 74  65 69 63 6f 6e 73 3a f2  |...createicons:.|
000000f0  69 6e 69 74 69 63 6f 6e  73 0d 00 0c 1e f2 6c 6f  |initicons.....lo|
00000100  61 64 28 73 61 76 65 64  69 72 24 2b 22 2e 48 6f  |ad(savedir$+".Ho|
00000110  74 4b 65 79 73 22 29 0d  00 0d 05 3a 0d 00 0e 0e  |tKeys")....:....|
00000120  f2 6f 77 28 6d 61 69 6e  25 29 0d 00 0f 12 ee 20  |.ow(main%)..... |
00000130  85 20 f2 77 69 6d 70 65  72 72 6f 72 0d 00 10 0b  |. .wimperror....|
00000140  71 75 69 74 25 3d a3 0d  00 11 13 f5 3a f2 70 6f  |quit%=......:.po|
00000150  6c 6c 3a fd 20 71 75 69  74 25 0d 00 12 0e f2 63  |ll:. quit%.....c|
00000160  6c 6f 73 65 77 69 6d 70  0d 00 13 05 e0 0d 00 14  |losewimp........|
00000170  05 3a 0d 00 15 10 f4 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.:.....---------|
00000180  2d 2d 0d 00 16 10 f4 2e  20 57 49 4d 50 20 50 4f  |--...... WIMP PO|
00000190  4c 4c 0d 00 17 10 f4 2d  2d 2d 2d 2d 2d 2d 2d 2d  |LL.....---------|
000001a0  2d 2d 0d 00 18 05 3a 0d  00 19 0a dd f2 70 6f 6c  |--....:......pol|
000001b0  6c 0d 00 1a 1b c8 99 20  22 57 69 6d 70 45 78 74  |l...... "WimpExt|
000001c0  5f 53 6c 61 62 49 63 6f  6e 22 2c 30 0d 00 1b 18  |_SlabIcon",0....|
000001d0  c8 99 20 22 57 69 6d 70  45 78 74 5f 50 72 65 50  |.. "WimpExt_PreP|
000001e0  6f 6c 6c 22 0d 00 1c 25  c8 99 20 22 4f 53 5f 52  |oll"...%.. "OS_R|
000001f0  65 61 64 4d 6f 6e 6f 74  6f 6e 69 63 54 69 6d 65  |eadMonotonicTime|
00000200  22 20 b8 20 74 69 6d 65  25 0d 00 1d 2d c8 99 20  |" . time%...-.. |
00000210  22 57 69 6d 70 5f 50 6f  6c 6c 49 64 6c 65 22 2c  |"Wimp_PollIdle",|
00000220  2c 71 25 2c 74 69 6d 65  25 2b 31 30 20 b8 20 72  |,q%,time%+10 . r|
00000230  65 61 73 6f 6e 25 0d 00  1e 32 c8 99 20 22 57 69  |eason%...2.. "Wi|
00000240  6d 70 45 78 74 5f 41 63  74 69 6f 6e 22 2c 74 61  |mpExt_Action",ta|
00000250  73 6b 25 2c 71 25 2c 72  65 61 73 6f 6e 25 20 b8  |sk%,q%,reason% .|
00000260  20 72 65 61 73 6f 6e 25  0d 00 1f 25 f4 20 70 72  | reason%...%. pr|
00000270  65 76 65 6e 74 20 64 72  61 67 67 69 6e 67 20 6f  |event dragging o|
00000280  6e 20 61 20 73 65 6c 65  63 74 69 6f 6e 0d 00 20  |n a selection.. |
00000290  22 e7 20 72 65 61 73 6f  6e 25 3c 31 37 20 84 20  |". reason%<17 . |
000002a0  72 65 61 73 6f 6e 25 3e  31 39 20 7a 25 3d 30 0d  |reason%>19 z%=0.|
000002b0  00 21 10 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |.!... reason% ..|
000002c0  00 22 08 20 c9 20 30 0d  00 23 15 20 e7 20 a4 6f  |.". . 0..#. . .o|
000002d0  70 65 6e 28 6d 61 69 6e  25 29 20 8c 0d 00 24 11  |pen(main%) ...$.|
000002e0  20 20 63 25 3d a4 63 68  61 6e 67 65 64 0d 00 25  |  c%=.changed..%|
000002f0  33 20 20 e7 20 63 25 3a  e7 20 ac 20 73 74 61 72  |3  . c%:. . star|
00000300  25 20 f2 73 74 61 72 3a  8b 20 e7 20 ac 20 63 25  |% .star:. . . c%|
00000310  3a e7 20 73 74 61 72 25  20 f2 6e 6f 73 74 61 72  |:. star% .nostar|
00000320  0d 00 26 06 20 cd 0d 00  27 24 20 c9 20 31 3a c8  |..&. ...'$ . 1:.|
00000330  99 20 22 57 69 6d 70 45  78 74 5f 41 75 74 6f 52  |. "WimpExt_AutoR|
00000340  65 64 72 61 77 22 2c 2c  71 25 0d 00 28 13 20 c9  |edraw",,q%..(. .|
00000350  20 32 3a f2 6f 77 32 28  71 25 21 30 29 0d 00 29  | 2:.ow2(q%!0)..)|
00000360  12 20 c9 20 33 3a f2 63  77 28 71 25 21 30 29 0d  |. . 3:.cw(q%!0).|
00000370  00 2a 13 20 c9 20 36 3a  f2 6d 6f 75 73 65 28 71  |.*. . 6:.mouse(q|
00000380  25 29 0d 00 2b 21 20 c9  20 37 3a f2 65 6e 64 64  |%)..+! . 7:.endd|
00000390  72 61 67 28 71 25 2c 73  77 68 25 2c 73 6f 6c 69  |rag(q%,swh%,soli|
000003a0  64 25 29 0d 00 2c 16 20  c9 20 38 3a f2 6b 65 79  |d%)..,. . 8:.key|
000003b0  70 72 65 73 73 28 71 25  29 0d 00 2d 18 20 c9 20  |press(q%)..-. . |
000003c0  39 3a f2 6d 65 6e 75 73  65 6c 65 63 74 28 71 25  |9:.menuselect(q%|
000003d0  29 0d 00 2e 19 20 c9 20  31 37 2c 31 38 3a f2 72  |).... . 17,18:.r|
000003e0  65 63 65 69 76 65 28 71  25 29 0d 00 2f 05 cb 0d  |eceive(q%)../...|
000003f0  00 30 05 e1 0d 00 31 05  3a 0d 00 32 0f f4 2d 2d  |.0....1.:..2..--|
00000400  2d 2d 2d 2d 2d 2d 2d 2d  0d 00 33 0f f4 2e 20 4d  |--------..3... M|
00000410  45 53 53 41 47 45 53 0d  00 34 0f f4 2d 2d 2d 2d  |ESSAGES..4..----|
00000420  2d 2d 2d 2d 2d 2d 0d 00  35 05 3a 0d 00 36 11 dd  |------..5.:..6..|
00000430  f2 72 65 63 65 69 76 65  28 71 25 29 0d 00 37 10  |.receive(q%)..7.|
00000440  73 65 6e 64 65 72 25 3d  71 25 21 34 0d 00 38 0e  |sender%=q%!4..8.|
00000450  c8 8e 20 71 25 21 31 36  20 ca 0d 00 39 14 20 c9  |.. q%!16 ...9. .|
00000460  20 30 3a 71 75 69 74 25  3d a4 71 75 69 74 0d 00  | 0:quit%=.quit..|
00000470  3a 1c 20 c9 20 32 3a f4  2a 20 50 52 4f 43 64 61  |:. . 2:.* PROCda|
00000480  74 61 73 61 76 65 28 71  25 29 0d 00 3b 16 20 c9  |tasave(q%)..;. .|
00000490  20 33 3a f2 64 61 74 61  6c 6f 61 64 28 71 25 29  | 3:.dataload(q%)|
000004a0  0d 00 3c 15 20 c9 20 38  3a f2 70 72 65 71 75 69  |..<. . 8:.prequi|
000004b0  74 28 71 25 29 0d 00 3d  05 cb 0d 00 3e 05 e1 0d  |t(q%)..=....>...|
000004c0  00 3f 05 3a 0d 00 40 11  dd f2 70 72 65 71 75 69  |.?.:..@...prequi|
000004d0  74 28 71 25 29 0d 00 41  30 f4 20 50 72 65 51 75  |t(q%)..A0. PreQu|
000004e0  69 74 20 6d 65 73 73 61  67 65 20 72 65 63 65 69  |it message recei|
000004f0  76 65 64 20 66 72 6f 6d  20 54 61 73 6b 20 4d 61  |ved from Task Ma|
00000500  6e 61 67 65 72 0d 00 42  18 73 65 6e 64 65 72 25  |nager..B.sender%|
00000510  3d 71 25 21 34 3a 71 75  69 74 25 3d b9 0d 00 43  |=q%!4:quit%=...C|
00000520  19 f4 20 61 63 6b 6e 6f  77 6c 65 64 67 65 20 6d  |.. acknowledge m|
00000530  65 73 73 61 67 65 0d 00  44 0e 71 25 21 31 32 3d  |essage..D.q%!12=|
00000540  71 25 21 38 0d 00 45 27  c8 99 20 22 57 69 6d 70  |q%!8..E'.. "Wimp|
00000550  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 39  |_SendMessage",19|
00000560  2c 71 25 2c 73 65 6e 64  65 72 25 0d 00 46 1d e7  |,q%,sender%..F..|
00000570  20 73 74 61 72 25 20 71  75 69 74 25 3d a4 70 72  | star% quit%=.pr|
00000580  6f 6d 70 74 73 61 76 65  0d 00 47 0d e7 20 71 75  |omptsave..G.. qu|
00000590  69 74 25 20 8c 0d 00 48  23 20 c8 99 20 22 57 69  |it% ...H# .. "Wi|
000005a0  6d 70 5f 47 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_GetCaretPosit|
000005b0  69 6f 6e 22 2c 2c 71 25  0d 00 49 20 20 71 25 21  |ion",,q%..I  q%!|
000005c0  32 34 3d 26 31 46 43 3a  f4 20 43 74 72 6c 2b 53  |24=&1FC:. Ctrl+S|
000005d0  68 69 66 74 2b 46 31 32  0d 00 4a 27 20 c8 99 20  |hift+F12..J' .. |
000005e0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000005f0  65 22 2c 38 2c 71 25 2c  73 65 6e 64 65 72 25 0d  |e",8,q%,sender%.|
00000600  00 4b 05 cd 0d 00 4c 05  e1 0d 00 4d 05 3a 0d 00  |.K....L....M.:..|
00000610  4e 0b f4 2d 2d 2d 2d 2d  2d 0d 00 4f 0b f4 2e 20  |N..------..O... |
00000620  49 4e 49 54 0d 00 50 0b  f4 2d 2d 2d 2d 2d 2d 0d  |INIT..P..------.|
00000630  00 51 05 3a 0d 00 52 0a  dd f2 69 6e 69 74 0d 00  |.Q.:..R...init..|
00000640  53 08 ea 20 4a 25 0d 00  54 31 62 6c 6f 63 6b 73  |S.. J%..T1blocks|
00000650  69 7a 65 25 3d 26 35 30  30 3a 62 75 66 66 65 72  |ize%=&500:buffer|
00000660  73 69 7a 65 25 3d 26 35  30 30 3a 70 61 6e 65 73  |size%=&500:panes|
00000670  69 7a 65 25 3d 33 36 0d  00 55 13 de 20 71 25 20  |ize%=36..U.. q% |
00000680  62 6c 6f 63 6b 73 69 7a  65 25 0d 00 56 13 de 20  |blocksize%..V.. |
00000690  70 71 25 20 70 61 6e 65  73 69 7a 65 25 0d 00 57  |pq% panesize%..W|
000006a0  19 de 20 62 75 66 66 65  72 25 20 62 75 66 66 65  |.. buffer% buffe|
000006b0  72 73 69 7a 65 25 0d 00  58 13 de 20 43 25 20 26  |rsize%..X.. C% &|
000006c0  31 30 30 3a f4 20 77 2f  73 0d 00 59 0d de 20 6d  |100:. w/s..Y.. m|
000006d0  62 31 25 31 30 30 0d 00  5a 0f de 20 6e 6f 73 70  |b1%100..Z.. nosp|
000006e0  61 63 65 20 38 0d 00 5b  15 24 6e 6f 73 70 61 63  |ace 8..[.$nospac|
000006f0  65 3d 22 41 7e 20 22 2b  bd 30 0d 00 5c 05 3a 0d  |e="A~ "+.0..\.:.|
00000700  00 5d 2b f4 20 64 61 74  61 20 62 6c 6f 63 6b 73  |.]+. data blocks|
00000710  20 61 6e 64 20 61 64 73  20 66 6f 72 20 43 72 65  | and ads for Cre|
00000720  61 74 65 20 70 61 6e 65  2e 2e 0d 00 5e 0d 6c 69  |ate pane....^.li|
00000730  6e 65 73 25 3d 34 30 0d  00 5f 15 de 20 70 61 74  |nes%=40.._.. pat|
00000740  68 61 64 25 28 6c 69 6e  65 73 25 29 0d 00 60 13  |had%(lines%)..`.|
00000750  e3 20 4a 25 3d 30 20 b8  20 6c 69 6e 65 73 25 0d  |. J%=0 . lines%.|
00000760  00 61 2d 20 de 20 61 25  20 26 31 30 30 3a 70 61  |.a- . a% &100:pa|
00000770  74 68 61 64 25 28 4a 25  29 3d 61 25 3a 24 70 61  |thad%(J%)=a%:$pa|
00000780  74 68 61 64 25 28 4a 25  29 3d 22 22 0d 00 62 05  |thad%(J%)=""..b.|
00000790  ed 0d 00 63 1f de 20 72  65 6d 24 28 6c 69 6e 65  |...c.. rem$(line|
000007a0  73 25 29 2c 72 65 6d 25  28 6c 69 6e 65 73 25 29  |s%),rem%(lines%)|
000007b0  0d 00 64 23 e3 20 4a 25  3d 32 36 20 b8 20 6c 69  |..d#. J%=26 . li|
000007c0  6e 65 73 25 2d 31 3a 72  65 6d 25 28 4a 25 29 3d  |nes%-1:rem%(J%)=|
000007d0  b9 3a ed 0d 00 65 16 f4  20 66 6f 72 20 70 61 6e  |.:...e.. for pan|
000007e0  65 20 69 63 6f 6e 73 2e  2e 0d 00 66 27 de 20 76  |e icons....f'. v|
000007f0  61 6c 69 64 25 20 32 30  3a 24 76 61 6c 69 64 25  |alid% 20:$valid%|
00000800  3d 22 53 6f 70 74 6f 66  66 2c 6f 70 74 6f 6e 22  |="Soptoff,opton"|
00000810  0d 00 67 29 74 65 78 74  6c 65 6e 25 3d 32 3a de  |..g)textlen%=2:.|
00000820  20 74 65 78 74 25 20 74  65 78 74 6c 65 6e 25 3a  | text% textlen%:|
00000830  24 74 65 78 74 25 3d 22  22 0d 00 68 05 3a 0d 00  |$text%=""..h.:..|
00000840  69 14 f4 20 66 6f 72 20  6d 73 67 20 77 69 6e 64  |i.. for msg wind|
00000850  6f 77 0d 00 6a 15 de 20  69 63 6d 24 28 33 29 2c  |ow..j.. icm$(3),|
00000860  69 63 74 24 28 34 29 0d  00 6b 2e de 20 69 63 6d  |ict$(4)..k.. icm|
00000870  25 28 33 29 3a e3 20 4a  25 3d 31 20 b8 20 33 3a  |%(3):. J%=1 . 3:|
00000880  de 20 61 25 20 35 30 3a  69 63 6d 25 28 4a 25 29  |. a% 50:icm%(J%)|
00000890  3d 61 25 3a ed 0d 00 6c  2e de 20 69 63 6e 25 28  |=a%:...l.. icn%(|
000008a0  34 29 3a e3 20 4a 25 3d  31 20 b8 20 34 3a de 20  |4):. J%=1 . 4:. |
000008b0  61 25 20 31 35 3a 69 63  6e 25 28 4a 25 29 3d 61  |a% 15:icn%(J%)=a|
000008c0  25 3a ed 0d 00 6d 2e de  20 69 63 76 25 28 34 29  |%:...m.. icv%(4)|
000008d0  3a e3 20 4a 25 3d 31 20  b8 20 34 3a de 20 61 25  |:. J%=1 . 4:. a%|
000008e0  20 31 30 3a 69 63 76 25  28 4a 25 29 3d 61 25 3a  | 10:icv%(J%)=a%:|
000008f0  ed 0d 00 6e 25 de 20 69  63 78 25 28 34 29 2c 69  |...n%. icx%(4),i|
00000900  63 79 25 28 34 29 2c 69  63 77 25 28 34 29 2c 69  |cy%(4),icw%(4),i|
00000910  63 68 25 28 34 29 0d 00  6f 1a 72 65 70 6c 79 25  |ch%(4)..o.reply%|
00000920  3d 30 3a 65 73 63 25 3d  a3 3a 72 65 74 25 3d a3  |=0:esc%=.:ret%=.|
00000930  0d 00 70 05 3a 0d 00 71  22 74 61 73 6b 64 69 72  |..p.:..q"taskdir|
00000940  24 3d a4 6f 73 76 61 72  28 22 48 6f 74 4b 65 79  |$=.osvar("HotKey|
00000950  73 24 44 69 72 22 29 0d  00 72 22 73 61 76 65 64  |s$Dir")..r"saved|
00000960  69 72 24 3d a4 6f 73 76  61 72 28 22 49 63 6f 6e  |ir$=.osvar("Icon|
00000970  44 69 72 24 44 69 72 22  29 0d 00 73 23 e7 20 73  |Dir$Dir")..s#. s|
00000980  61 76 65 64 69 72 24 3d  22 22 20 73 61 76 65 64  |avedir$="" saved|
00000990  69 72 24 3d 74 61 73 6b  64 69 72 24 0d 00 74 20  |ir$=taskdir$..t |
000009a0  74 69 74 6c 65 24 3d 22  48 6f 74 4b 65 79 73 20  |title$="HotKeys |
000009b0  66 6f 72 20 49 63 6f 6e  44 69 72 22 0d 00 75 37  |for IconDir"..u7|
000009c0  73 74 61 72 25 3d a3 3a  f4 20 61 73 74 65 72 69  |star%=.:. asteri|
000009d0  73 6b 20 69 6e 20 77 69  6e 64 6f 77 20 74 69 74  |sk in window tit|
000009e0  6c 65 20 66 6f 72 20 63  68 61 6e 67 65 64 20 64  |le for changed d|
000009f0  61 74 61 0d 00 76 16 46  25 3d 30 3a f4 20 66 69  |ata..v.F%=0:. fi|
00000a00  6c 65 20 68 61 6e 64 6c  65 0d 00 77 05 e1 0d 00  |le handle..w....|
00000a10  78 05 3a 0d 00 79 0e dd  f2 77 69 6d 70 69 6e 69  |x.:..y...wimpini|
00000a20  74 0d 00 7a 42 24 71 25  3d 22 54 41 53 4b 22 3a  |t..zB$q%="TASK":|
00000a30  c8 99 20 22 57 69 6d 70  5f 49 6e 69 74 69 61 6c  |.. "Wimp_Initial|
00000a40  69 73 65 22 2c 32 30 30  2c 21 71 25 2c 74 61 73  |ise",200,!q%,tas|
00000a50  6b 24 20 b8 20 76 65 72  73 69 6f 6e 25 2c 74 61  |k$ . version%,ta|
00000a60  73 6b 25 0d 00 7b 48 c8  99 20 22 57 69 6d 70 45  |sk%..{H.. "WimpE|
00000a70  78 74 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 31  |xt_Initialise",1|
00000a80  36 2c 74 61 73 6b 25 2c  25 31 30 31 30 30 30 30  |6,task%,%1010000|
00000a90  30 30 31 31 20 b8 20 77  65 78 74 5f 76 65 72 25  |0011 . wext_ver%|
00000aa0  2c 2c 77 65 78 74 5f 73  70 72 25 0d 00 7c 05 e1  |,,wext_spr%..|..|
00000ab0  0d 00 7d 05 3a 0d 00 7e  0f dd f2 63 6c 6f 73 65  |..}.:..~...close|
00000ac0  77 69 6d 70 0d 00 7f 20  c8 99 20 22 57 69 6d 70  |wimp... .. "Wimp|
00000ad0  45 78 74 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 74  |Ext_CloseDown",t|
00000ae0  61 73 6b 25 0d 00 80 2c  24 71 25 3d 22 54 41 53  |ask%...,$q%="TAS|
00000af0  4b 22 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |K":.. "Wimp_Clos|
00000b00  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 21 71 25  |eDown",task%,!q%|
00000b10  0d 00 81 05 e1 0d 00 82  05 3a 0d 00 83 0f dd f2  |.........:......|
00000b20  69 6e 69 74 69 63 6f 6e  73 0d 00 84 1c ea 20 4a  |initicons..... J|
00000b30  25 2c 73 25 2c 65 25 2c  77 68 25 3a 77 68 25 3d  |%,s%,e%,wh%:wh%=|
00000b40  69 6e 66 6f 25 0d 00 85  14 f2 69 74 28 77 68 25  |info%.....it(wh%|
00000b50  2c 30 2c 74 61 73 6b 24  29 0d 00 86 17 f2 69 74  |,0,task$).....it|
00000b60  28 77 68 25 2c 31 2c 70  75 72 70 6f 73 65 24 29  |(wh%,1,purpose$)|
00000b70  0d 00 87 16 f2 69 74 28  77 68 25 2c 32 2c 61 75  |.....it(wh%,2,au|
00000b80  74 68 6f 72 24 29 0d 00  88 17 f2 69 74 28 77 68  |thor$).....it(wh|
00000b90  25 2c 33 2c 76 65 72 73  69 6f 6e 24 29 0d 00 89  |%,3,version$)...|
00000ba0  0d 77 68 25 3d 70 61 6e  65 25 0d 00 8a 20 73 25  |.wh%=pane%... s%|
00000bb0  3d 6c 69 6e 65 73 25 2a  32 2b 32 36 3a 65 25 3d  |=lines%*2+26:e%=|
00000bc0  6c 69 6e 65 73 25 2a 33  2d 31 0d 00 8b 1e e3 20  |lines%*3-1..... |
00000bd0  4a 25 3d 73 25 20 b8 20  65 25 3a f2 73 69 28 77  |J%=s% . e%:.si(w|
00000be0  68 25 2c 4a 25 29 3a ed  0d 00 8c 05 e1 0d 00 8d  |h%,J%):.........|
00000bf0  05 3a 0d 00 8e 0b f4 2d  2d 2d 2d 2d 2d 0d 00 8f  |.:.....------...|
00000c00  0b f4 2e 20 4c 4f 41 44  0d 00 90 0b f4 2d 2d 2d  |... LOAD.....---|
00000c10  2d 2d 2d 0d 00 91 05 3a  0d 00 92 12 dd f2 64 61  |---....:......da|
00000c20  74 61 6c 6f 61 64 28 71  25 29 0d 00 93 1e ea 20  |taload(q%)..... |
00000c30  66 25 2c 69 68 25 2c 6f  6b 25 2c 77 68 25 3a 77  |f%,ih%,ok%,wh%:w|
00000c40  68 25 3d 71 25 21 32 30  0d 00 94 16 f4 20 73 65  |h%=q%!20..... se|
00000c50  6e 64 20 44 61 74 61 4c  6f 61 64 41 63 6b 0d 00  |nd DataLoadAck..|
00000c60  95 3f 71 25 21 31 32 3d  71 25 21 38 3a 71 25 21  |.?q%!12=q%!8:q%!|
00000c70  31 36 3d 34 3a 71 25 21  30 3d 36 34 3a c8 99 20  |16=4:q%!0=64:.. |
00000c80  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00000c90  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 0d 00 96  |e",17,q%,q%!4...|
00000ca0  22 70 61 74 68 24 3d a4  6e 61 6d 65 28 71 25 2b  |"path$=.name(q%+|
00000cb0  34 34 29 3a 74 79 70 65  25 3d 71 25 21 34 30 0d  |44):type%=q%!40.|
00000cc0  00 97 2b 6f 6b 25 3d 74  79 70 65 25 3d 26 46 46  |..+ok%=type%=&FF|
00000cd0  46 20 80 20 a4 6c 65 61  66 28 70 61 74 68 24 29  |F . .leaf(path$)|
00000ce0  3d 22 48 6f 74 4b 65 79  73 22 0d 00 98 2a c8 99  |="HotKeys"...*..|
00000cf0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000d00  72 49 6e 66 6f 22 2c 2c  71 25 3a 69 68 25 3d 71  |rInfo",,q%:ih%=q|
00000d10  25 21 31 36 0d 00 99 0c  c8 8e 20 77 68 25 20 ca  |%!16...... wh% .|
00000d20  0d 00 9a 0c 20 c9 20 70  61 6e 65 25 0d 00 9b 34  |.... . pane%...4|
00000d30  20 e7 20 69 68 25 3e 3d  6c 69 6e 65 73 25 20 80  | . ih%>=lines% .|
00000d40  20 69 68 25 3c 6c 69 6e  65 73 25 2a 32 20 f2 69  | ih%<lines%*2 .i|
00000d50  74 28 77 68 25 2c 69 68  25 2c 70 61 74 68 24 29  |t(wh%,ih%,path$)|
00000d60  0d 00 9c 0c 20 c9 20 6d  61 69 6e 25 0d 00 9d 1f  |.... . main%....|
00000d70  20 e7 20 69 68 25 3d 34  20 80 20 6f 6b 25 20 f2  | . ih%=4 . ok% .|
00000d80  6c 6f 61 64 28 70 61 74  68 24 29 0d 00 9e 09 20  |load(path$).... |
00000d90  c9 20 2d 32 0d 00 9f 26  20 e7 20 69 68 25 3d 62  |. -2...& . ih%=b|
00000da0  61 72 69 63 6f 6e 25 20  80 20 6f 6b 25 20 f2 6c  |aricon% . ok% .l|
00000db0  6f 61 64 28 70 61 74 68  24 29 0d 00 a0 05 cb 0d  |oad(path$)......|
00000dc0  00 a1 05 e1 0d 00 a2 05  3a 0d 00 a3 10 dd a4 6e  |........:......n|
00000dd0  61 6d 65 28 70 74 72 25  29 0d 00 a4 0e ea 20 73  |ame(ptr%)..... s|
00000de0  24 3a 73 24 3d 22 22 0d  00 a5 24 c8 95 20 3f 70  |$:s$=""...$.. ?p|
00000df0  74 72 25 3e 33 31 3a 73  24 2b 3d bd 3f 70 74 72  |tr%>31:s$+=.?ptr|
00000e00  25 3a 70 74 72 25 2b 3d  31 3a ce 0d 00 a6 07 3d  |%:ptr%+=1:.....=|
00000e10  73 24 0d 00 a7 05 3a 0d  00 a8 10 dd f2 6c 6f 61  |s$....:......loa|
00000e20  64 28 66 73 70 24 29 0d  00 a9 2a ea 20 4a 25 2c  |d(fsp$)...*. J%,|
00000e30  65 6e 64 25 2c 70 61 74  68 24 2c 72 65 73 74 24  |end%,path$,rest$|
00000e40  2c 6c 65 66 74 25 2c 6b  65 79 24 2c 6b 69 63 6b  |,left%,key$,kick|
00000e50  24 0d 00 aa 15 e7 20 ac  20 a4 70 72 6f 6d 70 74  |$..... . .prompt|
00000e60  73 61 76 65 20 e1 0d 00  ab 15 c8 99 20 22 48 6f  |save ....... "Ho|
00000e70  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 00 ac 0e f2  |urglass_On".....|
00000e80  63 6c 65 61 72 70 61 6e  65 0d 00 ad 0e 46 25 3d  |clearpane....F%=|
00000e90  ad 28 66 73 70 24 29 0d  00 ae 21 e7 20 46 25 3d  |.(fsp$)...!. F%=|
00000ea0  30 20 8c 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |0 . .. "Hourglas|
00000eb0  73 5f 4f 66 66 22 3a e1  0d 00 af 0a 65 6e 64 25  |s_Off":.....end%|
00000ec0  3d a3 0d 00 b0 0d 6e 6f  6b 65 79 25 3d 32 36 0d  |=.....nokey%=26.|
00000ed0  00 b1 05 f5 0d 00 b2 0a  20 73 24 3d 22 22 0d 00  |........ s$=""..|
00000ee0  b3 06 20 f5 0d 00 b4 1d  20 20 62 25 3d 9a 23 46  |.. .....  b%=.#F|
00000ef0  25 3a e7 20 62 25 3e 33  30 20 73 24 2b 3d bd 62  |%:. b%>30 s$+=.b|
00000f00  25 0d 00 b5 0c 20 fd 20  62 25 3d 26 41 0d 00 b6  |%.... . b%=&A...|
00000f10  06 20 3a 0d 00 b7 15 20  f4 20 67 65 74 20 6c 69  |. :.... . get li|
00000f20  6e 65 20 69 6e 20 73 24  0d 00 b8 24 20 f4 20 73  |ne in s$...$ . s|
00000f30  74 72 69 70 20 6c 65 61  64 69 6e 67 2f 74 72 61  |trip leading/tra|
00000f40  69 6c 69 6e 67 20 73 70  61 63 65 73 0d 00 b9 12  |iling spaces....|
00000f50  20 73 24 3d a4 73 74 72  69 70 28 73 24 29 0d 00  | s$=.strip(s$)..|
00000f60  ba 16 20 e7 20 73 24 3d  22 45 4e 44 22 20 65 6e  |.. . s$="END" en|
00000f70  64 25 3d b9 0d 00 bb 10  20 69 25 3d a7 73 24 2c  |d%=..... i%=.s$,|
00000f80  22 20 22 29 0d 00 bc 24  20 e7 20 69 25 3e 30 20  |" ")...$ . i%>0 |
00000f90  80 20 c0 73 24 2c 31 29  3c 3e 22 7c 22 20 80 20  |. .s$,1)<>"|" . |
00000fa0  ac 20 65 6e 64 25 20 8c  0d 00 bd 14 20 20 f4 20  |. end% .....  . |
00000fb0  67 65 74 20 70 61 74 68  6e 61 6d 65 0d 00 be 15  |get pathname....|
00000fc0  20 20 70 61 74 68 24 3d  c0 73 24 2c 69 25 2d 31  |  path$=.s$,i%-1|
00000fd0  29 0d 00 bf 0f 20 20 f4  20 67 65 74 20 6b 65 79  |)....  . get key|
00000fe0  0d 00 c0 1f 20 20 72 65  73 74 24 3d a4 73 74 72  |....  rest$=.str|
00000ff0  69 70 28 c2 73 24 2c a9  73 24 2d 69 25 29 29 0d  |ip(.s$,.s$-i%)).|
00001000  00 c1 18 20 20 6c 65 66  74 25 3d 97 28 c0 72 65  |...  left%=.(.re|
00001010  73 74 24 2c 31 29 29 0d  00 c2 31 20 20 e7 20 6c  |st$,1))...1  . l|
00001020  65 66 74 25 3e 36 34 20  80 20 6c 65 66 74 25 3c  |eft%>64 . left%<|
00001030  39 31 20 6b 65 79 24 3d  bd 6c 65 66 74 25 20 8b  |91 key$=.left% .|
00001040  20 6b 65 79 24 3d 22 22  0d 00 c3 15 20 20 f4 20  | key$=""....  . |
00001050  67 65 74 20 6b 69 63 6b  73 74 61 72 74 0d 00 c4  |get kickstart...|
00001060  19 20 20 6b 69 63 6b 25  3d a7 72 65 73 74 24 2c  |.  kick%=.rest$,|
00001070  22 2a 22 29 3e 30 0d 00  c5 07 20 20 3a 0d 00 c6  |"*")>0....  :...|
00001080  15 20 20 f4 20 70 6c 61  63 65 20 69 6e 20 70 61  |.  . place in pa|
00001090  6e 65 0d 00 c7 0f 20 20  77 68 25 3d 70 61 6e 65  |ne....  wh%=pane|
000010a0  25 0d 00 c8 25 20 20 f4  20 67 65 74 20 69 63 6f  |%...%  . get ico|
000010b0  6e 20 63 6f 72 72 65 73  70 6f 6e 64 69 6e 67 20  |n corresponding |
000010c0  74 6f 20 6b 65 79 0d 00  c9 11 20 20 e7 20 6b 65  |to key....  . ke|
000010d0  79 24 3d 22 22 20 8c 0d  00 ca 1d 20 20 20 69 63  |y$="" .....   ic|
000010e0  6f 6e 25 3d 6e 6f 6b 65  79 25 3a 6e 6f 6b 65 79  |on%=nokey%:nokey|
000010f0  25 2b 3d 31 0d 00 cb 07  20 20 cc 0d 00 cc 15 20  |%+=1....  ..... |
00001100  20 20 69 63 6f 6e 25 3d  97 6b 65 79 24 2d 36 35  |  icon%=.key$-65|
00001110  0d 00 cd 07 20 20 cd 0d  00 ce 16 20 20 e7 20 69  |....  .....  . i|
00001120  63 6f 6e 25 3c 6c 69 6e  65 73 25 20 8c 0d 00 cf  |con%<lines% ....|
00001130  22 20 20 20 f2 69 74 28  77 68 25 2c 69 63 6f 6e  |"   .it(wh%,icon|
00001140  25 2b 6c 69 6e 65 73 25  2c 70 61 74 68 24 29 0d  |%+lines%,path$).|
00001150  00 d0 18 20 20 20 72 65  6d 24 28 69 63 6f 6e 25  |...   rem$(icon%|
00001160  29 3d 70 61 74 68 24 0d  00 d1 1c 20 20 20 e7 20  |)=path$....   . |
00001170  6b 69 63 6b 25 20 84 20  69 63 6f 6e 25 3e 3d 32  |kick% . icon%>=2|
00001180  36 20 8c 0d 00 d2 1f 20  20 20 20 f2 73 69 28 77  |6 .....    .si(w|
00001190  68 25 2c 69 63 6f 6e 25  2b 6c 69 6e 65 73 25 2a  |h%,icon%+lines%*|
000011a0  32 29 0d 00 d3 08 20 20  20 cc 0d 00 d4 1f 20 20  |2)....   .....  |
000011b0  20 20 f2 75 69 28 77 68  25 2c 69 63 6f 6e 25 2b  |  .ui(wh%,icon%+|
000011c0  6c 69 6e 65 73 25 2a 32  29 0d 00 d5 08 20 20 20  |lines%*2)....   |
000011d0  cd 0d 00 d6 2c 20 20 20  72 65 6d 25 28 69 63 6f  |....,   rem%(ico|
000011e0  6e 25 29 3d a4 69 73 28  70 61 6e 65 25 2c 69 63  |n%)=.is(pane%,ic|
000011f0  6f 6e 25 2b 6c 69 6e 65  73 25 2a 32 29 0d 00 d7  |on%+lines%*2)...|
00001200  07 20 20 cd 0d 00 d8 06  20 cd 0d 00 d9 0a fd 20  |.  ..... ...... |
00001210  c5 23 46 25 0d 00 da 0e  d9 20 23 46 25 3a 46 25  |.#F%..... #F%:F%|
00001220  3d 30 0d 00 db 18 c8 99  20 22 48 6f 75 72 67 6c  |=0...... "Hourgl|
00001230  61 73 73 5f 53 6d 61 73  68 22 0d 00 dc 14 f2 6f  |ass_Smash".....o|
00001240  77 28 6d 61 69 6e 25 29  3a f2 62 65 65 70 0d 00  |w(main%):.beep..|
00001250  dd 05 e1 0d 00 de 05 3a  0d 00 df 0f dd f2 63 6c  |.......:......cl|
00001260  65 61 72 70 61 6e 65 0d  00 e0 16 ea 20 4a 25 2c  |earpane..... J%,|
00001270  77 68 25 3a 77 68 25 3d  70 61 6e 65 25 0d 00 e1  |wh%:wh%=pane%...|
00001280  2b c8 99 20 22 57 69 6d  70 5f 47 65 74 43 61 72  |+.. "Wimp_GetCar|
00001290  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 71 25 3a  |etPosition",,q%:|
000012a0  69 68 25 3d 71 25 21 34  0d 00 e2 24 e7 20 69 68  |ih%=q%!4...$. ih|
000012b0  25 3e 3d 6c 69 6e 65 73  25 20 f2 63 61 72 65 74  |%>=lines% .caret|
000012c0  78 28 77 68 25 2c 69 68  25 2c 30 29 0d 00 e3 15  |x(wh%,ih%,0)....|
000012d0  e3 20 4a 25 3d 30 20 b8  20 6c 69 6e 65 73 25 2d  |. J%=0 . lines%-|
000012e0  31 0d 00 e4 1a 20 f2 69  74 28 77 68 25 2c 4a 25  |1.... .it(wh%,J%|
000012f0  2b 6c 69 6e 65 73 25 2c  22 22 29 0d 00 e5 10 20  |+lines%,"").... |
00001300  72 65 6d 24 28 4a 25 29  3d 22 22 0d 00 e6 05 ed  |rem$(J%)="".....|
00001310  0d 00 e7 0f e3 20 4a 25  3d 30 20 b8 20 32 35 0d  |..... J%=0 . 25.|
00001320  00 e8 19 20 f2 75 69 28  77 68 25 2c 4a 25 2b 6c  |... .ui(wh%,J%+l|
00001330  69 6e 65 73 25 2a 32 29  0d 00 e9 0f 20 72 65 6d  |ines%*2).... rem|
00001340  25 28 4a 25 29 3d 30 0d  00 ea 05 ed 0d 00 eb 05  |%(J%)=0.........|
00001350  e1 0d 00 ec 05 3a 0d 00  ed 0b f4 2d 2d 2d 2d 2d  |.....:.....-----|
00001360  2d 0d 00 ee 0b f4 2e 20  53 41 56 45 0d 00 ef 0b  |-...... SAVE....|
00001370  f4 2d 2d 2d 2d 2d 2d 0d  00 f0 05 3a 0d 00 f1 10  |.------....:....|
00001380  dd f2 73 61 76 65 28 66  73 70 24 29 0d 00 f2 0b  |..save(fsp$)....|
00001390  ea 20 4a 25 2c 73 24 0d  00 f3 19 e7 20 ac 20 a4  |. J%,s$..... . .|
000013a0  6f 6b 74 6f 73 61 76 65  28 66 73 70 24 29 20 e1  |oktosave(fsp$) .|
000013b0  0d 00 f4 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
000013c0  73 5f 4f 6e 22 0d 00 f5  11 73 65 70 24 3d bd 26  |s_On"....sep$=.&|
000013d0  41 3a f4 20 4c 46 0d 00  f6 0e 46 25 3d ae 28 66  |A:. LF....F%=.(f|
000013e0  73 70 24 29 0d 00 f7 1e  ff 28 22 53 65 74 54 79  |sp$).....("SetTy|
000013f0  70 65 20 22 2b 66 73 70  24 2b 22 20 26 46 46 46  |pe "+fsp$+" &FFF|
00001400  22 29 0d 00 f8 2d 73 24  3d bd 31 32 34 2b 22 20  |")...-s$=.124+" |
00001410  48 6f 74 6b 65 79 20 61  73 73 69 67 6e 6d 65 6e  |Hotkey assignmen|
00001420  74 73 20 66 6f 72 20 49  63 6f 6e 44 69 72 22 0d  |ts for IconDir".|
00001430  00 f9 19 73 24 2b 3d 22  20 2d 20 22 2b a4 74 6f  |...s$+=" - "+.to|
00001440  64 61 79 2b 73 65 70 24  0d 00 fa 0b d5 23 46 25  |day+sep$.....#F%|
00001450  2c 73 24 0d 00 fb 15 e3  20 4a 25 3d 30 20 b8 20  |,s$..... J%=0 . |
00001460  6c 69 6e 65 73 25 2d 31  0d 00 fc 1c 20 73 24 3d  |lines%-1.... s$=|
00001470  a4 69 74 28 70 61 6e 65  25 2c 4a 25 2b 6c 69 6e  |.it(pane%,J%+lin|
00001480  65 73 25 29 0d 00 fd 1e  20 73 25 3d a4 69 73 28  |es%).... s%=.is(|
00001490  70 61 6e 65 25 2c 4a 25  2b 6c 69 6e 65 73 25 2a  |pane%,J%+lines%*|
000014a0  32 29 0d 00 fe 0f 20 e7  20 73 24 3c 3e 22 22 20  |2).... . s$<>"" |
000014b0  8c 0d 00 ff 1f 20 20 e7  20 4a 25 3c 32 36 20 73  |.....  . J%<26 s|
000014c0  24 2b 3d 22 20 20 22 2b  bd 28 36 35 2b 4a 25 29  |$+="  "+.(65+J%)|
000014d0  0d 01 00 14 20 20 e7 20  73 25 20 73 24 2b 3d 22  |....  . s% s$+="|
000014e0  20 20 2a 22 0d 01 01 0d  20 20 d5 23 46 25 2c 73  |  *"....  .#F%,s|
000014f0  24 0d 01 02 06 20 cd 0d  01 03 05 ed 0d 01 04 18  |$.... ..........|
00001500  d5 23 46 25 2c 73 65 70  24 2b 22 45 4e 44 22 2b  |.#F%,sep$+"END"+|
00001510  73 65 70 24 0d 01 05 0e  d9 20 23 46 25 3a 46 25  |sep$..... #F%:F%|
00001520  3d 30 0d 01 06 15 e3 20  4a 25 3d 30 20 b8 20 6c  |=0..... J%=0 . l|
00001530  69 6e 65 73 25 2d 31 0d  01 07 22 20 72 65 6d 24  |ines%-1..." rem$|
00001540  28 4a 25 29 3d a4 69 74  28 70 61 6e 65 25 2c 4a  |(J%)=.it(pane%,J|
00001550  25 2b 6c 69 6e 65 73 25  29 0d 01 08 05 ed 0d 01  |%+lines%).......|
00001560  09 0f e3 20 4a 25 3d 30  20 b8 20 32 35 0d 01 0a  |... J%=0 . 25...|
00001570  24 20 72 65 6d 25 28 4a  25 29 3d a4 69 73 28 70  |$ rem%(J%)=.is(p|
00001580  61 6e 65 25 2c 4a 25 2b  6c 69 6e 65 73 25 2a 32  |ane%,J%+lines%*2|
00001590  29 0d 01 0b 05 ed 0d 01  0c 18 c8 99 20 22 48 6f  |)........... "Ho|
000015a0  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 0d 01  |urglass_Smash"..|
000015b0  0d 05 e1 0d 01 0e 05 3a  0d 01 0f 11 f4 2d 2d 2d  |.......:.....---|
000015c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 01 10 11 f4 2e 20  |---------...... |
000015d0  43 48 45 43 4b 20 53 41  56 45 0d 01 11 11 f4 2d  |CHECK SAVE.....-|
000015e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 12 05 3a  |-----------....:|
000015f0  0d 01 13 0a dd a4 71 75  69 74 0d 01 14 0a 65 73  |......quit....es|
00001600  63 25 3d b9 0d 01 15 15  e7 20 a4 70 72 6f 6d 70  |c%=...... .promp|
00001610  74 73 61 76 65 20 8c 3d  b9 0d 01 16 06 3d a3 0d  |tsave .=.....=..|
00001620  01 17 05 3a 0d 01 18 10  dd a4 70 72 6f 6d 70 74  |...:......prompt|
00001630  73 61 76 65 0d 01 19 11  e7 20 ac 20 73 74 61 72  |save..... . star|
00001640  25 20 8c 3d b9 0d 01 1a  40 61 6e 73 25 3d a4 6d  |% .=....@ans%=.m|
00001650  73 67 28 22 53 61 76 65  20 65 64 69 74 65 64 20  |sg("Save edited |
00001660  48 6f 74 4b 65 79 73 20  66 69 6c 65 3f 22 2c 22  |HotKeys file?","|
00001670  44 69 73 63 61 72 64 2c  43 61 6e 63 65 6c 2c 53  |Discard,Cancel,S|
00001680  61 76 65 22 29 0d 01 1b  10 e7 20 61 6e 73 25 3d  |ave")..... ans%=|
00001690  31 20 8c 3d b9 0d 01 1c  2a e7 20 61 6e 73 25 3d  |1 .=....*. ans%=|
000016a0  33 20 f2 73 61 76 65 28  74 61 73 6b 64 69 72 24  |3 .save(taskdir$|
000016b0  2b 22 2e 48 6f 74 4b 65  79 73 22 29 3a 3d b9 0d  |+".HotKeys"):=..|
000016c0  01 1d 19 3d a3 3a f4 20  43 61 6e 63 65 6c 20 6f  |...=.:. Cancel o|
000016d0  70 65 72 61 74 69 6f 6e  0d 01 1e 05 3a 0d 01 1f  |peration....:...|
000016e0  14 dd a4 6f 6b 74 6f 73  61 76 65 28 66 73 70 24  |...oktosave(fsp$|
000016f0  29 0d 01 20 16 f4 20 69  73 20 66 69 6c 65 20 70  |).. .. is file p|
00001700  72 65 73 65 6e 74 3f 0d  01 21 0f ea 20 74 79 70  |resent?..!.. typ|
00001710  65 25 2c 6f 6b 25 0d 01  22 20 c8 99 20 22 4f 53  |e%,ok%.." .. "OS|
00001720  5f 46 69 6c 65 22 2c 31  33 2c 66 73 70 24 20 b8  |_File",13,fsp$ .|
00001730  20 74 79 70 65 25 0d 01  23 1b e7 20 74 79 70 65  | type%..#.. type|
00001740  25 3d 30 20 6f 6b 25 3d  b9 20 8b 20 6f 6b 25 3d  |%=0 ok%=. . ok%=|
00001750  a3 0d 01 24 0d e7 20 ac  20 6f 6b 25 20 8c 0d 01  |...$.. . ok% ...|
00001760  25 3b 20 61 6e 73 25 3d  a4 6d 73 67 28 22 27 48  |%; ans%=.msg("'H|
00001770  6f 74 4b 65 79 73 27 20  61 6c 72 65 61 64 79 20  |otKeys' already |
00001780  65 78 69 73 74 73 22 2c  22 43 61 6e 63 65 6c 2c  |exists","Cancel,|
00001790  52 65 70 6c 61 63 65 22  29 0d 01 26 13 20 e7 20  |Replace")..&. . |
000017a0  61 6e 73 25 3d 32 20 6f  6b 25 3d b9 0d 01 27 05  |ans%=2 ok%=...'.|
000017b0  cd 0d 01 28 08 3d 6f 6b  25 0d 01 29 05 3a 0d 01  |...(.=ok%..).:..|
000017c0  2a 0d dd a4 63 68 61 6e  67 65 64 0d 01 2b 17 ea  |*...changed..+..|
000017d0  20 4a 25 2c 63 68 25 3a  4a 25 3d 30 3a 63 68 25  | J%,ch%:J%=0:ch%|
000017e0  3d a3 0d 01 2c 05 f5 0d  01 2d 2b 20 e7 20 a4 69  |=...,....-+ . .i|
000017f0  74 28 70 61 6e 65 25 2c  4a 25 2b 6c 69 6e 65 73  |t(pane%,J%+lines|
00001800  25 29 3c 3e 72 65 6d 24  28 4a 25 29 20 63 68 25  |%)<>rem$(J%) ch%|
00001810  3d b9 0d 01 2e 2d 20 e7  20 a4 69 73 28 70 61 6e  |=....- . .is(pan|
00001820  65 25 2c 4a 25 2b 6c 69  6e 65 73 25 2a 32 29 3c  |e%,J%+lines%*2)<|
00001830  3e 72 65 6d 25 28 4a 25  29 20 63 68 25 3d b9 0d  |>rem%(J%) ch%=..|
00001840  01 2f 0a 20 4a 25 2b 3d  31 0d 01 30 15 fd 20 4a  |./. J%+=1..0.. J|
00001850  25 3e 6c 69 6e 65 73 25  20 84 20 63 68 25 0d 01  |%>lines% . ch%..|
00001860  31 08 3d 63 68 25 0d 01  32 05 3a 0d 01 33 20 f4  |1.=ch%..2.:..3 .|
00001870  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001880  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 34 20 f4  |-----------..4 .|
00001890  2e 20 44 52 41 47 20 45  52 52 4f 52 2f 4d 45 53  |. DRAG ERROR/MES|
000018a0  53 41 47 45 20 57 49 4e  44 4f 57 0d 01 35 20 f4  |SAGE WINDOW..5 .|
000018b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000018c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 36 05 3a  |-----------..6.:|
000018d0  0d 01 37 21 dd f2 73 74  61 72 74 64 72 61 67 28  |..7!..startdrag(|
000018e0  77 68 25 2c 69 68 25 2c  6d 62 25 2c 73 6f 6c 25  |wh%,ih%,mb%,sol%|
000018f0  29 0d 01 38 27 73 77 68  25 3d 77 68 25 3a 73 69  |)..8'swh%=wh%:si|
00001900  68 25 3d 69 68 25 3a 73  6d 62 25 3d 6d 62 25 3a  |h%=ih%:smb%=mb%:|
00001910  f4 20 73 6f 75 72 63 65  0d 01 39 10 f4 20 67 65  |. source..9.. ge|
00001920  74 20 63 6f 6f 72 64 73  0d 01 3a 29 71 25 21 30  |t coords..:)q%!0|
00001930  3d 77 68 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |=wh%:.. "Wimp_Ge|
00001940  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00001950  25 0d 01 3b 44 77 6d 69  6e 78 25 3d 71 25 21 34  |%..;Dwminx%=q%!4|
00001960  3a 77 6d 69 6e 79 25 3d  71 25 21 38 3a 77 6d 61  |:wminy%=q%!8:wma|
00001970  78 78 25 3d 71 25 21 31  32 3a 77 6d 61 78 79 25  |xx%=q%!12:wmaxy%|
00001980  3d 71 25 21 31 36 3a 73  63 72 6f 6c 6c 79 25 3d  |=q%!16:scrolly%=|
00001990  71 25 21 32 34 0d 01 3c  22 6f 78 25 3d 71 25 21  |q%!24..<"ox%=q%!|
000019a0  34 2d 71 25 21 32 30 3a  6f 79 25 3d 71 25 21 31  |4-q%!20:oy%=q%!1|
000019b0  36 2d 71 25 21 32 34 0d  01 3d 32 c8 99 20 22 57  |6-q%!24..=2.. "W|
000019c0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000019d0  66 6f 22 2c 2c 71 25 3a  6d 78 25 3d 71 25 21 30  |fo",,q%:mx%=q%!0|
000019e0  3a 6d 79 25 3d 71 25 21  34 0d 01 3e 30 71 25 21  |:my%=q%!4..>0q%!|
000019f0  30 3d 77 68 25 3a 71 25  21 34 3d 69 68 25 3a c8  |0=wh%:q%!4=ih%:.|
00001a00  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00001a10  74 61 74 65 22 2c 2c 71  25 0d 01 3f 22 f4 20 69  |tate",,q%..?". i|
00001a20  6e 69 74 69 61 6c 20 70  6f 73 69 74 69 6f 6e 20  |nitial position |
00001a30  6f 66 20 64 72 61 67 20  62 6f 78 0d 01 40 05 e1  |of drag box..@..|
00001a40  0d 01 41 05 3a 0d 01 42  1d dd f2 65 6e 64 64 72  |..A.:..B...enddr|
00001a50  61 67 28 71 25 2c 73 77  68 25 2c 73 6f 6c 69 64  |ag(q%,swh%,solid|
00001a60  25 29 0d 01 43 25 f4 20  72 65 61 73 6f 6e 20 63  |%)..C%. reason c|
00001a70  6f 64 65 20 37 20 66 72  6f 6d 20 70 6f 6c 6c 69  |ode 7 from polli|
00001a80  6e 67 20 6c 6f 6f 70 0d  01 44 27 f4 20 71 25 20  |ng loop..D'. q% |
00001a90  63 6f 6e 74 61 69 6e 73  20 66 69 6e 61 6c 20 70  |contains final p|
00001aa0  6f 73 20 6f 66 20 64 72  61 67 20 62 6f 78 0d 01  |os of drag box..|
00001ab0  45 34 62 6d 69 6e 78 25  3d 71 25 21 30 3a 62 6d  |E4bminx%=q%!0:bm|
00001ac0  69 6e 79 25 3d 71 25 21  34 3a 62 6d 61 78 78 25  |iny%=q%!4:bmaxx%|
00001ad0  3d 71 25 21 38 3a 62 6d  61 78 79 25 3d 71 25 21  |=q%!8:bmaxy%=q%!|
00001ae0  31 32 0d 01 46 05 e1 0d  01 47 05 3a 0d 01 48 0c  |12..F....G.:..H.|
00001af0  f4 2d 2d 2d 2d 2d 2d 2d  0d 01 49 0c f4 2e 20 4d  |.-------..I... M|
00001b00  4f 55 53 45 0d 01 4a 0c  f4 2d 2d 2d 2d 2d 2d 2d  |OUSE..J..-------|
00001b10  0d 01 4b 05 3a 0d 01 4c  0f dd f2 6d 6f 75 73 65  |..K.:..L...mouse|
00001b20  28 71 25 29 0d 01 4d 1c  ea 20 6d 24 2c 6d 78 25  |(q%)..M.. m$,mx%|
00001b30  2c 6d 79 25 2c 6d 62 25  2c 77 68 25 2c 69 68 25  |,my%,mb%,wh%,ih%|
00001b40  0d 01 4e 3c 6d 78 25 3d  71 25 21 30 3a 6d 79 25  |..N<mx%=q%!0:my%|
00001b50  3d 71 25 21 34 3a 6d 62  25 3d 71 25 21 38 3a 77  |=q%!4:mb%=q%!8:w|
00001b60  68 25 3d 71 25 21 31 32  3a 69 68 25 3d 71 25 21  |h%=q%!12:ih%=q%!|
00001b70  31 36 3a 69 63 6f 6e 25  3d 69 68 25 0d 01 4f 2f  |16:icon%=ih%..O/|
00001b80  e7 20 6d 62 25 20 80 20  32 20 80 20 77 68 25 3d  |. mb% . 2 . wh%=|
00001b90  2d 32 20 f2 6d 65 6e 75  28 77 68 25 2c 69 68 25  |-2 .menu(wh%,ih%|
00001ba0  2c 6d 78 25 2c 6d 79 25  29 3a e1 0d 01 50 0c c8  |,mx%,my%):...P..|
00001bb0  8e 20 77 68 25 20 ca 0d  01 51 22 20 c9 2d 32 3a  |. wh% ...Q" .-2:|
00001bc0  e7 20 69 68 25 3d 62 61  72 69 63 6f 6e 25 20 f2  |. ih%=baricon% .|
00001bd0  6f 77 28 6d 61 69 6e 25  29 0d 01 52 06 20 3a 0d  |ow(main%)..R. :.|
00001be0  01 53 0c 20 c9 20 70 61  6e 65 25 0d 01 54 21 20  |.S. . pane%..T! |
00001bf0  73 25 3d 6c 69 6e 65 73  25 2a 32 2b 32 36 3a 65  |s%=lines%*2+26:e|
00001c00  25 3d 6c 69 6e 65 73 25  2a 33 2d 31 0d 01 55 25  |%=lines%*3-1..U%|
00001c10  20 e7 20 69 68 25 3e 3d  73 25 20 80 20 69 68 25  | . ih%>=s% . ih%|
00001c20  3c 3d 65 25 20 f2 73 69  28 77 68 25 2c 69 68 25  |<=e% .si(wh%,ih%|
00001c30  29 0d 01 56 06 20 3a 0d  01 57 0c 20 c9 20 6d 61  |)..V. :..W. . ma|
00001c40  69 6e 25 0d 01 58 0d 20  c8 8e 20 69 68 25 20 ca  |in%..X. .. ih% .|
00001c50  0d 01 59 24 20 20 c9 20  30 3a f2 73 61 76 65 28  |..Y$  . 0:.save(|
00001c60  73 61 76 65 64 69 72 24  2b 22 2e 48 6f 74 4b 65  |savedir$+".HotKe|
00001c70  79 73 22 29 0d 01 5a 22  20 20 c9 20 31 3a e7 20  |ys")..Z"  . 1:. |
00001c80  a4 70 72 6f 6d 70 74 73  61 76 65 20 f2 63 6c 65  |.promptsave .cle|
00001c90  61 72 70 61 6e 65 0d 01  5b 14 20 20 c9 20 32 3a  |arpane..[.  . 2:|
00001ca0  f2 63 77 28 6d 61 69 6e  25 29 0d 01 5c 0b 20 20  |.cw(main%)..\.  |
00001cb0  c9 20 33 2c 34 0d 01 5d  4a 20 20 20 73 24 3d 22  |. 3,4..]J   s$="|
00001cc0  44 72 61 67 20 61 6e 20  49 63 6f 6e 44 69 72 20  |Drag an IconDir |
00001cd0  27 48 6f 74 4b 65 79 73  27 20 66 69 6c 65 20 74  |'HotKeys' file t|
00001ce0  6f 20 74 68 65 20 69 6e  64 65 6e 74 65 64 20 61  |o the indented a|
00001cf0  72 65 61 20 74 6f 20 6c  6f 61 64 20 69 74 22 0d  |rea to load it".|
00001d00  01 5e 19 20 20 20 61 6e  73 25 3d a4 6d 73 67 28  |.^.   ans%=.msg(|
00001d10  73 24 2c 22 4f 4b 22 29  0d 01 5f 06 20 cb 0d 01  |s$,"OK").._. ...|
00001d20  60 06 20 3a 0d 01 61 05  cb 0d 01 62 05 e1 0d 01  |`. :..a....b....|
00001d30  63 05 3a 0d 01 64 0b f4  2d 2d 2d 2d 2d 2d 0d 01  |c.:..d..------..|
00001d40  65 0b f4 2e 20 4b 45 59  53 0d 01 66 0b f4 2d 2d  |e... KEYS..f..--|
00001d50  2d 2d 2d 2d 0d 01 67 05  3a 0d 01 68 12 dd f2 6b  |----..g.:..h...k|
00001d60  65 79 70 72 65 73 73 28  71 25 29 0d 01 69 29 77  |eypress(q%)..i)w|
00001d70  68 25 3d 71 25 21 30 3a  69 68 25 3d 71 25 21 34  |h%=q%!0:ih%=q%!4|
00001d80  3a 78 6f 25 3d 71 25 21  38 3a 63 68 72 25 3d 71  |:xo%=q%!8:chr%=q|
00001d90  25 21 32 34 0d 01 6a 0d  c8 8e 20 63 68 72 25 20  |%!24..j... chr% |
00001da0  ca 0d 01 6b 10 20 c9 20  20 33 30 3a f2 68 6f 6d  |...k. .  30:.hom|
00001db0  65 0d 01 6c 12 20 c9 20  20 31 33 3a f2 72 65 74  |e..l. .  13:.ret|
00001dc0  75 72 6e 0d 01 6d 17 20  c9 20 20 32 37 3a f2 65  |urn..m. .  27:.e|
00001dd0  73 63 61 70 65 28 77 68  25 29 0d 01 6e 10 20 c9  |scape(wh%)..n. .|
00001de0  20 33 39 38 3a f2 64 6f  77 6e 0d 01 6f 0e 20 c9  | 398:.down..o. .|
00001df0  20 33 39 39 3a f2 75 70  0d 01 70 20 20 7f 20 c8  | 399:.up..p  . .|
00001e00  99 20 22 57 69 6d 70 5f  50 72 6f 63 65 73 73 4b  |. "Wimp_ProcessK|
00001e10  65 79 22 2c 63 68 72 25  0d 01 71 05 cb 0d 01 72  |ey",chr%..q....r|
00001e20  05 e1 0d 01 73 05 3a 0d  01 74 11 dd f2 65 73 63  |....s.:..t...esc|
00001e30  61 70 65 28 77 68 25 29  0d 01 75 0a 65 73 63 25  |ape(wh%)..u.esc%|
00001e40  3d b9 0d 01 76 05 e1 0d  01 77 05 3a 0d 01 78 0a  |=...v....w.:..x.|
00001e50  dd f2 68 6f 6d 65 0d 01  79 11 e7 20 77 68 25 3d  |..home..y.. wh%=|
00001e60  70 61 6e 65 25 20 8c 0d  01 7a 29 20 21 71 25 3d  |pane% ...z) !q%=|
00001e70  77 68 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |wh%:.. "Wimp_Get|
00001e80  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
00001e90  0d 01 7b 2d 20 71 25 21  32 30 3d 30 3a 71 25 21  |..{- q%!20=0:q%!|
00001ea0  32 34 3d 30 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |24=0:.. "Wimp_Op|
00001eb0  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 01 7c  |enWindow",,q%..||
00001ec0  1a 20 f2 63 61 72 65 74  78 28 77 68 25 2c 6c 69  |. .caretx(wh%,li|
00001ed0  6e 65 73 25 2c 30 29 0d  01 7d 05 cd 0d 01 7e 05  |nes%,0)..}....~.|
00001ee0  e1 0d 01 7f 05 3a 0d 01  80 0c dd f2 72 65 74 75  |.....:......retu|
00001ef0  72 6e 0d 01 81 0a 72 65  74 25 3d b9 0d 01 82 11  |rn....ret%=.....|
00001f00  e7 20 77 68 25 3d 70 61  6e 65 25 20 8c 0d 01 83  |. wh%=pane% ....|
00001f10  17 20 e7 20 69 68 25 3d  6c 69 6e 65 73 25 2a 32  |. . ih%=lines%*2|
00001f20  2d 31 20 e1 0d 01 84 19  20 f2 73 63 72 6f 6c 6c  |-1 ..... .scroll|
00001f30  64 6f 77 6e 28 77 68 25  2c 69 68 25 29 0d 01 85  |down(wh%,ih%)...|
00001f40  16 20 f2 63 61 72 65 74  28 77 68 25 2c 69 68 25  |. .caret(wh%,ih%|
00001f50  2b 31 29 0d 01 86 05 cd  0d 01 87 05 e1 0d 01 88  |+1).............|
00001f60  05 3a 0d 01 89 0a dd f2  64 6f 77 6e 0d 01 8a 11  |.:......down....|
00001f70  e7 20 77 68 25 3d 70 61  6e 65 25 20 8c 0d 01 8b  |. wh%=pane% ....|
00001f80  17 20 e7 20 69 68 25 3d  6c 69 6e 65 73 25 2a 32  |. . ih%=lines%*2|
00001f90  2d 31 20 e1 0d 01 8c 19  20 f2 73 63 72 6f 6c 6c  |-1 ..... .scroll|
00001fa0  64 6f 77 6e 28 77 68 25  2c 69 68 25 29 0d 01 8d  |down(wh%,ih%)...|
00001fb0  16 20 f2 63 61 72 65 74  28 77 68 25 2c 69 68 25  |. .caret(wh%,ih%|
00001fc0  2b 31 29 0d 01 8e 05 cd  0d 01 8f 05 e1 0d 01 90  |+1).............|
00001fd0  05 3a 0d 01 91 08 dd f2  75 70 0d 01 92 11 e7 20  |.:......up..... |
00001fe0  77 68 25 3d 70 61 6e 65  25 20 8c 0d 01 93 13 20  |wh%=pane% ..... |
00001ff0  e7 20 69 68 25 3d 6c 69  6e 65 73 25 20 e1 0d 01  |. ih%=lines% ...|
00002000  94 17 20 f2 73 63 72 6f  6c 6c 75 70 28 77 68 25  |.. .scrollup(wh%|
00002010  2c 69 68 25 29 0d 01 95  16 20 f2 63 61 72 65 74  |,ih%).... .caret|
00002020  28 77 68 25 2c 69 68 25  2d 31 29 0d 01 96 05 cd  |(wh%,ih%-1).....|
00002030  0d 01 97 05 e1 0d 01 98  05 3a 0d 01 99 19 dd f2  |.........:......|
00002040  73 63 72 6f 6c 6c 64 6f  77 6e 28 77 68 25 2c 69  |scrolldown(wh%,i|
00002050  68 25 29 0d 01 9a 13 f4  20 73 63 72 6f 6c 6c 20  |h%)..... scroll |
00002060  76 61 20 75 70 3f 0d 01  9b 0e ea 20 77 25 2c 69  |va up?..... w%,i|
00002070  25 2c 6e 25 0d 01 9c 2d  f4 20 67 65 74 20 65 78  |%,n%...-. get ex|
00002080  74 72 65 6d 65 20 77 69  6e 64 6f 77 20 65 64 67  |treme window edg|
00002090  65 20 72 65 6c 61 74 69  76 65 20 74 6f 20 77 61  |e relative to wa|
000020a0  6f 0d 01 9d 3f 71 25 21  30 3d 77 68 25 3a c8 99  |o...?q%!0=wh%:..|
000020b0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000020c0  53 74 61 74 65 22 2c 2c  71 25 3a 77 25 3d 71 25  |State",,q%:w%=q%|
000020d0  21 32 34 2d 28 71 25 21  31 36 2d 71 25 21 38 29  |!24-(q%!16-q%!8)|
000020e0  0d 01 9e 33 f4 20 67 65  74 20 65 78 74 72 65 6d  |...3. get extrem|
000020f0  65 20 65 64 67 65 20 6f  66 20 6e 65 78 74 20 69  |e edge of next i|
00002100  63 6f 6e 20 72 65 6c 61  74 69 76 65 20 74 6f 20  |con relative to |
00002110  77 61 6f 0d 01 9f 3b 71  25 21 30 3d 77 68 25 3a  |wao...;q%!0=wh%:|
00002120  71 25 21 34 3d 69 68 25  2b 31 3a c8 99 20 22 57  |q%!4=ih%+1:.. "W|
00002130  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002140  22 2c 2c 71 25 3a 69 25  3d 71 25 21 31 32 0d 01  |",,q%:i%=q%!12..|
00002150  a0 0d e7 20 69 25 3c 77  25 20 8c 0d 01 a1 3d 20  |... i%<w% ....= |
00002160  6e 25 3d 94 28 69 25 29  2d 94 28 77 25 29 3a e7  |n%=.(i%)-.(w%):.|
00002170  20 6e 25 3e 34 38 20 6e  25 3d 34 38 3a f4 20 61  | n%>48 n%=48:. a|
00002180  6c 69 67 6e 20 77 69 74  68 20 65 64 67 65 20 6f  |lign with edge o|
00002190  66 20 77 69 6e 64 6f 77  0d 01 a2 33 20 21 71 25  |f window...3 !q%|
000021a0  3d 77 68 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |=wh%:.. "Wimp_Ge|
000021b0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
000021c0  25 3a 71 25 21 32 34 2d  3d 6e 25 0d 01 a3 27 20  |%:q%!24-=n%...' |
000021d0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000021e0  64 6f 77 22 2c 2c 71 25  3a ff 28 22 46 58 31 35  |dow",,q%:.("FX15|
000021f0  22 29 0d 01 a4 05 cd 0d  01 a5 05 e1 0d 01 a6 05  |")..............|
00002200  3a 0d 01 a7 17 dd f2 73  63 72 6f 6c 6c 75 70 28  |:......scrollup(|
00002210  77 68 25 2c 69 68 25 29  0d 01 a8 15 f4 20 73 63  |wh%,ih%)..... sc|
00002220  72 6f 6c 6c 20 76 61 20  64 6f 77 6e 3f 0d 01 a9  |roll va down?...|
00002230  0e ea 20 77 25 2c 69 25  2c 6e 25 0d 01 aa 2d f4  |.. w%,i%,n%...-.|
00002240  20 67 65 74 20 65 78 74  72 65 6d 65 20 77 69 6e  | get extreme win|
00002250  64 6f 77 20 65 64 67 65  20 72 65 6c 61 74 69 76  |dow edge relativ|
00002260  65 20 74 6f 20 77 61 6f  0d 01 ab 32 71 25 21 30  |e to wao...2q%!0|
00002270  3d 77 68 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |=wh%:.. "Wimp_Ge|
00002280  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00002290  25 3a 77 25 3d 71 25 21  32 34 0d 01 ac 33 f4 20  |%:w%=q%!24...3. |
000022a0  67 65 74 20 65 78 74 72  65 6d 65 20 65 64 67 65  |get extreme edge|
000022b0  20 6f 66 20 70 72 65 76  20 69 63 6f 6e 20 72 65  | of prev icon re|
000022c0  6c 61 74 69 76 65 20 74  6f 20 77 61 6f 0d 01 ad  |lative to wao...|
000022d0  3b 71 25 21 30 3d 77 68  25 3a 71 25 21 34 3d 69  |;q%!0=wh%:q%!4=i|
000022e0  68 25 2d 31 3a c8 99 20  22 57 69 6d 70 5f 47 65  |h%-1:.. "Wimp_Ge|
000022f0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 3a  |tIconState",,q%:|
00002300  69 25 3d 71 25 21 32 30  0d 01 ae 0d e7 20 69 25  |i%=q%!20..... i%|
00002310  3e 77 25 20 8c 0d 01 af  3d 20 6e 25 3d 94 28 77  |>w% ....= n%=.(w|
00002320  25 29 2d 94 28 69 25 29  3a e7 20 6e 25 3e 34 38  |%)-.(i%):. n%>48|
00002330  20 6e 25 3d 34 38 3a f4  20 61 6c 69 67 6e 20 77  | n%=48:. align w|
00002340  69 74 68 20 65 64 67 65  20 6f 66 20 77 69 6e 64  |ith edge of wind|
00002350  6f 77 0d 01 b0 33 20 21  71 25 3d 77 68 25 3a c8  |ow...3 !q%=wh%:.|
00002360  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00002370  77 53 74 61 74 65 22 2c  2c 71 25 3a 71 25 21 32  |wState",,q%:q%!2|
00002380  34 2b 3d 6e 25 0d 01 b1  27 20 c8 99 20 22 57 69  |4+=n%...' .. "Wi|
00002390  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000023a0  71 25 3a ff 28 22 46 58  31 35 22 29 0d 01 b2 05  |q%:.("FX15")....|
000023b0  cd 0d 01 b3 05 e1 0d 01  b4 05 3a 0d 01 b5 14 dd  |..........:.....|
000023c0  f2 63 61 72 65 74 28 77  68 25 2c 69 68 25 29 0d  |.caret(wh%,ih%).|
000023d0  01 b6 18 ea 20 73 24 3a  73 24 3d a4 69 74 28 77  |.... s$:s$=.it(w|
000023e0  68 25 2c 69 68 25 29 0d  01 b7 2f c8 99 20 22 57  |h%,ih%).../.. "W|
000023f0  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00002400  74 69 6f 6e 22 2c 77 68  25 2c 69 68 25 2c 2c 2c  |tion",wh%,ih%,,,|
00002410  2d 31 2c a9 73 24 0d 01  b8 05 e1 0d 01 b9 05 3a  |-1,.s$.........:|
00002420  0d 01 ba 19 dd f2 63 61  72 65 74 78 28 77 68 25  |......caretx(wh%|
00002430  2c 69 68 25 2c 78 6f 25  29 0d 01 bb 05 e1 0d 01  |,ih%,xo%).......|
00002440  bc 05 3a 0d 01 bd 0b f4  2d 2d 2d 2d 2d 2d 0d 01  |..:.....------..|
00002450  be 0b f4 2e 20 4d 45 4e  55 0d 01 bf 0b f4 2d 2d  |.... MENU.....--|
00002460  2d 2d 2d 2d 0d 01 c0 05  3a 0d 01 c1 1b dd f2 6d  |----....:......m|
00002470  65 6e 75 28 77 68 25 2c  69 68 25 2c 6d 78 25 2c  |enu(wh%,ih%,mx%,|
00002480  6d 79 25 29 0d 01 c2 1b  f4 20 6d 69 64 64 6c 65  |my%)..... middle|
00002490  20 62 75 74 74 6f 6e 20  63 6c 69 63 6b 65 64 0d  | button clicked.|
000024a0  01 c3 0c c8 8e 20 77 68  25 20 ca 0d 01 c4 1b 20  |..... wh% ..... |
000024b0  c9 20 2d 32 3a f2 62 61  72 6d 65 6e 75 28 6d 78  |. -2:.barmenu(mx|
000024c0  25 2c 6d 79 25 29 0d 01  c5 05 cb 0d 01 c6 05 e1  |%,my%)..........|
000024d0  0d 01 c7 05 3a 0d 01 c8  16 dd f2 62 61 72 6d 65  |....:......barme|
000024e0  6e 75 28 6d 78 25 2c 6d  79 25 29 0d 01 c9 39 ea  |nu(mx%,my%)...9.|
000024f0  20 66 25 2c 62 25 2c 67  25 3a 62 25 3d 26 37 30  | f%,b%,g%:b%=&70|
00002500  30 30 30 32 31 3a 67 25  3d 26 37 34 30 30 30 32  |00021:g%=&740002|
00002510  31 3a f4 20 66 6c 61 67  73 3d 62 6c 61 63 6b 2c  |1:. flags=black,|
00002520  67 72 65 79 0d 01 ca 1c  72 65 6d 78 25 3d 6d 78  |grey....remx%=mx|
00002530  25 3a 72 65 6d 79 25 3d  6d 79 25 3a 69 25 3d 30  |%:remy%=my%:i%=0|
00002540  0d 01 cb 2f 61 25 3d 6d  62 31 25 3a 21 61 25 3d  |.../a%=mb1%:!a%=|
00002550  62 61 72 69 63 6f 6e 25  3a 70 25 3d 61 25 2b 33  |baricon%:p%=a%+3|
00002560  32 3a 24 28 61 25 2b 34  29 3d 74 61 73 6b 24 0d  |2:$(a%+4)=task$.|
00002570  01 cc 2b 61 25 21 31 36  3d 26 37 30 32 30 37 3a  |..+a%!16=&70207:|
00002580  61 25 21 32 30 3d 31 32  38 3a 61 25 21 32 34 3d  |a%!20=128:a%!24=|
00002590  34 34 3a 61 25 21 32 38  3d 30 0d 01 cd 40 73 24  |44:a%!28=0...@s$|
000025a0  3d 22 49 6e 66 6f 22 3a  70 25 21 30 3d 30 3a 70  |="Info":p%!0=0:p|
000025b0  25 21 34 3d 69 6e 66 6f  25 3a 70 25 21 38 3d 62  |%!4=info%:p%!8=b|
000025c0  25 3a 24 28 70 25 2b 31  32 29 3d 73 24 3a 70 25  |%:$(p%+12)=s$:p%|
000025d0  2b 3d 32 34 3a 69 25 2b  3d 31 0d 01 ce 37 73 24  |+=24:i%+=1...7s$|
000025e0  3d 22 51 75 69 74 22 3a  70 25 21 30 3d 26 38 30  |="Quit":p%!0=&80|
000025f0  3a 70 25 21 34 3d 30 3a  70 25 21 38 3d 62 25 3a  |:p%!4=0:p%!8=b%:|
00002600  24 28 70 25 2b 31 32 29  3d 73 24 3a 69 25 2b 3d  |$(p%+12)=s$:i%+=|
00002610  31 0d 01 cf 33 c8 99 20  22 57 69 6d 70 45 78 74  |1...3.. "WimpExt|
00002620  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 62  |_CreateMenu",,mb|
00002630  31 25 2b 34 2c 6d 78 25  2d 36 34 2c 39 36 2b 69  |1%+4,mx%-64,96+i|
00002640  25 2a 34 34 0d 01 d0 05  e1 0d 01 d1 05 3a 0d 01  |%*44.........:..|
00002650  d2 14 dd f2 6d 65 6e 75  73 65 6c 65 63 74 28 71  |....menuselect(q|
00002660  25 29 0d 01 d3 25 f4 20  63 6c 69 63 6b 20 6f 6e  |%)...%. click on|
00002670  20 6d 65 6e 75 20 66 72  6f 6d 20 70 6f 6c 6c 69  | menu from polli|
00002680  6e 67 20 6c 6f 6f 70 0d  01 d4 35 e7 20 71 25 21  |ng loop...5. q%!|
00002690  30 3d 30 20 c8 99 20 22  57 69 6d 70 45 78 74 5f  |0=0 .. "WimpExt_|
000026a0  4f 70 65 6e 44 69 61 6c  6f 67 75 65 22 2c 2c 2c  |OpenDialogue",,,|
000026b0  69 6e 66 6f 25 2c 34 30  30 2c 39 36 0d 01 d5 18  |info%,400,96....|
000026c0  e7 20 71 25 21 30 3d 31  20 71 75 69 74 25 3d a4  |. q%!0=1 quit%=.|
000026d0  71 75 69 74 0d 01 d6 05  e1 0d 01 d7 05 3a 0d 01  |quit.........:..|
000026e0  d8 0b f4 2d 2d 2d 2d 2d  2d 0d 01 d9 0b f4 2e 20  |...------...... |
000026f0  4d 49 53 43 0d 01 da 0b  f4 2d 2d 2d 2d 2d 2d 0d  |MISC.....------.|
00002700  01 db 05 3a 0d 01 dc 0e  dd a4 6c 65 61 66 28 66  |...:......leaf(f|
00002710  24 29 0d 01 dd 28 ea 20  63 24 2c 73 24 2c 63 25  |$)...(. c$,s$,c%|
00002720  3a 73 24 3d 22 22 3a 63  25 3d a9 66 24 3a 63 24  |:s$="":c%=.f$:c$|
00002730  3d c1 66 24 2c 63 25 2c  31 29 0d 01 de 20 c8 95  |=.f$,c%,1)... ..|
00002740  20 63 24 3c 3e 22 2e 22  20 80 20 63 24 3c 3e 22  | c$<>"." . c$<>"|
00002750  3a 22 20 80 20 63 25 3c  3e 30 0d 01 df 13 20 73  |:" . c%<>0.... s|
00002760  24 3d 63 24 2b 73 24 3a  63 25 2d 3d 31 0d 01 e0  |$=c$+s$:c%-=1...|
00002770  11 20 63 24 3d c1 66 24  2c 63 25 2c 31 29 0d 01  |. c$=.f$,c%,1)..|
00002780  e1 05 ce 0d 01 e2 07 3d  73 24 0d 01 e3 05 3a 0d  |.......=s$....:.|
00002790  01 e4 2b dd a4 74 6f 64  61 79 3a f4 20 73 79 73  |..+..today:. sys|
000027a0  74 65 6d 20 64 61 74 65  2e 20 45 67 20 22 32 32  |tem date. Eg "22|
000027b0  20 41 75 67 20 31 39 38  38 22 0d 01 e5 28 3d c1  | Aug 1988"...(=.|
000027c0  91 24 2c 35 2c 32 29 2b  22 20 22 2b c1 91 24 2c  |.$,5,2)+" "+..$,|
000027d0  38 2c 33 29 2b 22 20 22  2b c1 91 24 2c 31 34 2c  |8,3)+" "+..$,14,|
000027e0  32 29 0d 01 e6 05 3a 0d  01 e7 13 dd a4 6f 73 76  |2)....:......osv|
000027f0  61 72 28 6f 73 76 61 72  24 29 0d 01 e8 0a ea 20  |ar(osvar$)..... |
00002800  6c 65 6e 25 0d 01 e9 25  f4 20 49 66 20 6e 6f 74  |len%...%. If not|
00002810  20 66 6f 75 6e 64 20 64  6f 6e 27 74 20 72 65 70  | found don't rep|
00002820  6f 72 74 20 65 72 72 6f  72 0d 01 ea 31 c8 99 20  |ort error...1.. |
00002830  22 58 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |"XOS_ReadVarVal"|
00002840  2c 6f 73 76 61 72 24 2c  43 25 2c 32 30 30 2c 30  |,osvar$,C%,200,0|
00002850  2c 33 20 b8 2c 2c 6c 65  6e 25 0d 01 eb 11 3f 28  |,3 .,,len%....?(|
00002860  43 25 2b 6c 65 6e 25 29  3d 26 44 0d 01 ec 08 3d  |C%+len%)=&D....=|
00002870  24 43 25 0d 01 ed 05 3a  0d 01 ee 0f dd a4 73 74  |$C%....:......st|
00002880  72 69 70 28 73 24 29 0d  01 ef 23 f4 20 73 74 72  |rip(s$)...#. str|
00002890  69 70 20 6c 65 61 64 69  6e 67 2f 74 72 61 69 6c  |ip leading/trail|
000028a0  69 6e 67 20 73 70 61 63  65 73 0d 01 f0 1a ea 20  |ing spaces..... |
000028b0  4a 25 2c 6f 24 2c 63 24  2c 63 25 2c 6e 25 3a 6f  |J%,o$,c$,c%,n%:o|
000028c0  24 3d 73 24 0d 01 f1 11  e7 20 c0 73 24 2c 31 29  |$=s$..... .s$,1)|
000028d0  3d 22 20 22 8c 0d 01 f2  33 20 63 25 3d 31 3a f5  |=" "....3 c%=1:.|
000028e0  3a 63 25 2b 3d 31 3a fd  20 c1 6f 24 2c 63 25 2c  |:c%+=1:. .o$,c%,|
000028f0  31 29 3c 3e 22 20 22 3a  6f 24 3d c2 6f 24 2c a9  |1)<>" ":o$=.o$,.|
00002900  6f 24 2d 63 25 2b 31 29  0d 01 f3 05 cd 0d 01 f4  |o$-c%+1)........|
00002910  11 e7 20 c2 73 24 2c 31  29 3d 22 20 22 8c 0d 01  |.. .s$,1)=" "...|
00002920  f5 2f 20 63 25 3d a9 6f  24 3a 6e 25 3d 31 3a f5  |./ c%=.o$:n%=1:.|
00002930  3a 63 25 2d 3d 31 3a 6e  25 2b 3d 31 3a fd 20 c1  |:c%-=1:n%+=1:. .|
00002940  6f 24 2c 63 25 2c 31 29  3c 3e 22 20 22 0d 01 f6  |o$,c%,1)<>" "...|
00002950  15 20 6f 24 3d c0 6f 24  2c a9 6f 24 2d 6e 25 2b  |. o$=.o$,.o$-n%+|
00002960  31 29 0d 01 f7 05 cd 0d  01 f8 07 3d 6f 24 0d 01  |1).........=o$..|
00002970  f9 05 3a 0d 01 fa 0c dd  f2 62 65 65 70 3a e1 0d  |..:......beep:..|
00002980  01 fb 0c dd f2 62 75 7a  7a 3a e1 0d 01 fc 05 3a  |.....buzz:.....:|
00002990  0d 01 fd 0e f4 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 01  |.....---------..|
000029a0  fe 0e f4 2e 20 57 49 4e  44 4f 57 53 0d 01 ff 0e  |.... WINDOWS....|
000029b0  f4 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 02 00 05 3a 0d  |.---------....:.|
000029c0  02 01 13 dd f2 6c 6f 61  64 74 65 6d 70 6c 61 74  |.....loadtemplat|
000029d0  65 73 0d 02 02 31 c8 99  20 22 57 69 6d 70 5f 4f  |es...1.. "Wimp_O|
000029e0  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 74 61  |penTemplate",,ta|
000029f0  73 6b 64 69 72 24 2b 22  2e 54 65 6d 70 6c 61 74  |skdir$+".Templat|
00002a00  65 73 22 0d 02 03 24 6d  61 69 6e 25 3d a4 74 77  |es"...$main%=.tw|
00002a10  28 22 4d 61 69 6e 22 29  3a 6d 61 69 6e 74 69 74  |("Main"):maintit|
00002a20  25 3d 71 25 21 37 32 0d  02 04 16 70 61 6e 65 25  |%=q%!72....pane%|
00002a30  3d a4 74 77 32 28 22 50  61 6e 65 22 29 0d 02 05  |=.tw2("Pane")...|
00002a40  15 69 6e 66 6f 25 3d a4  74 77 28 22 49 6e 66 6f  |.info%=.tw("Info|
00002a50  22 29 0d 02 06 1b c8 99  20 22 57 69 6d 70 5f 43  |")...... "Wimp_C|
00002a60  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 02 07  |loseTemplate"...|
00002a70  2c c8 99 20 22 57 69 6d  70 45 78 74 5f 4c 69 6e  |,.. "WimpExt_Lin|
00002a80  6b 57 69 6e 64 6f 77 73  22 2c 2c 2c 6d 61 69 6e  |kWindows",,,main|
00002a90  25 2c 70 61 6e 65 25 2c  30 0d 02 08 05 e1 0d 02  |%,pane%,0.......|
00002aa0  09 05 3a 0d 02 0a 0c dd  a4 74 77 28 61 24 29 0d  |..:......tw(a$).|
00002ab0  02 0b 26 ea 20 63 25 2c  65 6e 64 25 3a 65 6e 64  |..&. c%,end%:end|
00002ac0  25 3d 62 75 66 66 65 72  25 2b 62 75 66 66 65 72  |%=buffer%+buffer|
00002ad0  73 69 7a 65 25 0d 02 0c  3d c8 99 20 22 57 69 6d  |size%...=.. "Wim|
00002ae0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00002af0  2c 71 25 2c 62 75 66 66  65 72 25 2c 65 6e 64 25  |,q%,buffer%,end%|
00002b00  2c 2d 31 2c 61 24 20 b8  20 2c 2c 62 75 66 66 65  |,-1,a$ . ,,buffe|
00002b10  72 25 0d 02 0d 23 c8 99  20 22 57 69 6d 70 5f 43  |r%...#.. "Wimp_C|
00002b20  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |reateWindow",,q%|
00002b30  20 b8 20 63 25 0d 02 0e  07 3d 63 25 0d 02 0f 05  | . c%....=c%....|
00002b40  3a 0d 02 10 0d dd a4 74  77 32 28 61 24 29 0d 02  |:......tw2(a$)..|
00002b50  11 26 ea 20 63 25 2c 65  6e 64 25 3a 65 6e 64 25  |.&. c%,end%:end%|
00002b60  3d 62 75 66 66 65 72 25  2b 62 75 66 66 65 72 73  |=buffer%+buffers|
00002b70  69 7a 65 25 0d 02 12 3d  c8 99 20 22 57 69 6d 70  |ize%...=.. "Wimp|
00002b80  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00002b90  71 25 2c 62 75 66 66 65  72 25 2c 65 6e 64 25 2c  |q%,buffer%,end%,|
00002ba0  2d 31 2c 61 24 20 b8 20  2c 2c 62 75 66 66 65 72  |-1,a$ . ,,buffer|
00002bb0  25 0d 02 13 13 71 25 21  36 34 3d 77 65 78 74 5f  |%....q%!64=wext_|
00002bc0  73 70 72 25 0d 02 14 23  c8 99 20 22 57 69 6d 70  |spr%...#.. "Wimp|
00002bd0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00002be0  71 25 20 b8 20 63 25 0d  02 15 07 3d 63 25 0d 02  |q% . c%....=c%..|
00002bf0  16 05 3a 0d 02 17 0d dd  f2 6f 77 28 77 68 25 29  |..:......ow(wh%)|
00002c00  0d 02 18 29 71 25 21 30  3d 77 68 25 3a c8 99 20  |...)q%!0=wh%:.. |
00002c10  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00002c20  74 61 74 65 22 2c 2c 71  25 0d 02 19 0c 71 25 21  |tate",,q%....q%!|
00002c30  32 34 3d 2d 31 0d 02 1a  23 c8 99 20 22 57 69 6d  |24=-1...#.. "Wim|
00002c40  70 45 78 74 5f 43 65 6e  74 72 65 57 69 6e 64 6f  |pExt_CentreWindo|
00002c50  77 22 2c 2c 71 25 2b 34  0d 02 1b 24 c8 99 20 22  |w",,q%+4...$.. "|
00002c60  57 69 6d 70 45 78 74 5f  43 65 6e 74 72 65 57 69  |WimpExt_CentreWi|
00002c70  6e 64 6f 77 56 22 2c 2c  71 25 2b 34 0d 02 1c 1f  |ndowV",,q%+4....|
00002c80  c8 99 20 22 57 69 6d 70  45 78 74 5f 4f 70 65 6e  |.. "WimpExt_Open|
00002c90  4c 69 6e 6b 65 64 22 2c  2c 71 25 0d 02 1d 05 e1  |Linked",,q%.....|
00002ca0  0d 02 1e 05 3a 0d 02 1f  0e dd f2 6f 77 32 28 77  |....:......ow2(w|
00002cb0  68 25 29 0d 02 20 14 f4  20 66 72 6f 6d 20 57 69  |h%).. .. from Wi|
00002cc0  6d 70 20 50 6f 6c 6c 0d  02 21 1f c8 99 20 22 57  |mp Poll..!... "W|
00002cd0  69 6d 70 45 78 74 5f 4f  70 65 6e 4c 69 6e 6b 65  |impExt_OpenLinke|
00002ce0  64 22 2c 2c 71 25 0d 02  22 05 e1 0d 02 23 05 3a  |d",,q%.."....#.:|
00002cf0  0d 02 24 0d dd f2 63 77  28 77 68 25 29 0d 02 25  |..$...cw(wh%)..%|
00002d00  28 21 71 25 3d 77 68 25  3a c8 99 20 22 57 69 6d  |(!q%=wh%:.. "Wim|
00002d10  70 45 78 74 5f 43 6c 6f  73 65 4c 69 6e 6b 65 64  |pExt_CloseLinked|
00002d20  22 2c 2c 71 25 0d 02 26  05 e1 0d 02 27 05 3a 0d  |",,q%..&....'.:.|
00002d30  02 28 0f dd a4 6f 70 65  6e 28 77 68 25 29 0d 02  |.(...open(wh%)..|
00002d40  29 28 21 43 25 3d 77 68  25 3a c8 99 20 22 57 69  |)(!C%=wh%:.. "Wi|
00002d50  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00002d60  65 22 2c 2c 43 25 0d 02  2a 16 3d a4 62 69 74 73  |e",,C%..*.=.bits|
00002d70  65 74 28 43 25 21 33 32  2c 31 36 29 0d 02 2b 05  |et(C%!32,16)..+.|
00002d80  3a 0d 02 2c 13 dd a4 62  69 74 73 65 74 28 69 25  |:..,...bitset(i%|
00002d90  2c 62 25 29 0d 02 2d 22  f4 20 69 73 20 62 69 74  |,b%)..-". is bit|
00002da0  20 62 25 20 69 6e 20 69  6e 74 65 67 65 72 20 69  | b% in integer i|
00002db0  25 20 73 65 74 3f 0d 02  2e 14 ea 20 6e 25 2c 64  |% set?..... n%,d|
00002dc0  25 3a 64 25 3d 31 3c 3c  62 25 0d 02 2f 15 6e 25  |%:d%=1<<b%../.n%|
00002dd0  3d 28 69 25 20 80 20 64  25 29 20 81 20 64 25 0d  |=(i% . d%) . d%.|
00002de0  02 30 0e e7 20 6e 25 3d  30 20 8c 3d a3 0d 02 31  |.0.. n%=0 .=...1|
00002df0  06 3d b9 0d 02 32 05 3a  0d 02 33 0a dd f2 73 74  |.=...2.:..3...st|
00002e00  61 72 0d 02 34 2c f2 74  69 74 28 6d 61 69 6e 25  |ar..4,.tit(main%|
00002e10  2c 6d 61 69 6e 74 69 74  25 2c 74 69 74 6c 65 24  |,maintit%,title$|
00002e20  2b 22 20 2a 22 29 3a 73  74 61 72 25 3d b9 0d 02  |+" *"):star%=...|
00002e30  35 05 e1 0d 02 36 05 3a  0d 02 37 0c dd f2 6e 6f  |5....6.:..7...no|
00002e40  73 74 61 72 0d 02 38 27  f2 74 69 74 28 6d 61 69  |star..8'.tit(mai|
00002e50  6e 25 2c 6d 61 69 6e 74  69 74 25 2c 74 69 74 6c  |n%,maintit%,titl|
00002e60  65 24 29 3a 73 74 61 72  25 3d a3 0d 02 39 05 e1  |e$):star%=...9..|
00002e70  0d 02 3a 05 3a 0d 02 3b  17 dd f2 74 69 74 28 77  |..:.:..;...tit(w|
00002e80  68 25 2c 61 64 25 2c 73  74 72 24 29 0d 02 3c 22  |h%,ad%,str$)..<"|
00002e90  f4 20 66 6f 72 63 65 20  63 68 61 6e 67 65 20 6f  |. force change o|
00002ea0  66 20 77 69 6e 64 6f 77  20 74 69 74 6c 65 0d 02  |f window title..|
00002eb0  3d 34 24 61 64 25 3d 73  74 72 24 3a 21 43 25 3d  |=4$ad%=str$:!C%=|
00002ec0  77 68 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |wh%:.. "Wimp_Get|
00002ed0  57 69 6e 64 6f 77 4f 75  74 6c 69 6e 65 22 2c 2c  |WindowOutline",,|
00002ee0  43 25 0d 02 3e 31 6d 69  6e 78 25 3d 43 25 21 34  |C%..>1minx%=C%!4|
00002ef0  3a 6d 69 6e 79 25 3d 43  25 21 38 3a 6d 61 78 78  |:miny%=C%!8:maxx|
00002f00  25 3d 43 25 21 31 32 3a  6d 61 78 79 25 3d 43 25  |%=C%!12:maxy%=C%|
00002f10  21 31 36 0d 02 3f 3f c8  99 20 22 57 69 6d 70 5f  |!16..??.. "Wimp_|
00002f20  46 6f 72 63 65 52 65 64  72 61 77 22 2c 2d 31 2c  |ForceRedraw",-1,|
00002f30  6d 69 6e 78 25 2b 38 34  2c 6d 61 78 79 25 2d 34  |minx%+84,maxy%-4|
00002f40  30 2c 6d 61 78 78 25 2d  34 34 2c 6d 61 78 79 25  |0,maxx%-44,maxy%|
00002f50  2d 34 0d 02 40 05 e1 0d  02 41 05 3a 0d 02 42 20  |-4..@....A.:..B |
00002f60  dd f2 73 65 74 65 78 74  65 6e 74 28 77 68 25 2c  |..setextent(wh%,|
00002f70  6d 69 6e 79 25 2c 6d 61  78 78 25 29 0d 02 43 28  |miny%,maxx%)..C(|
00002f80  43 25 21 30 3d 30 3a 43  25 21 34 3d 6d 69 6e 79  |C%!0=0:C%!4=miny|
00002f90  25 3a 43 25 21 38 3d 6d  61 78 78 25 3a 43 25 21  |%:C%!8=maxx%:C%!|
00002fa0  31 32 3d 30 0d 02 44 1e  c8 99 20 22 57 69 6d 70  |12=0..D... "Wimp|
00002fb0  5f 53 65 74 45 78 74 65  6e 74 22 2c 77 68 25 2c  |_SetExtent",wh%,|
00002fc0  43 25 0d 02 45 05 e1 0d  02 46 05 3a 0d 02 47 0c  |C%..E....F.:..G.|
00002fd0  dd a4 6f 73 78 6d 61 78  0d 02 48 28 f4 20 73 63  |..osxmax..H(. sc|
00002fe0  72 65 65 6e 20 78 20 4f  53 20 75 6e 69 74 73 20  |reen x OS units |
00002ff0  66 6f 72 20 63 75 72 72  65 6e 74 20 6d 6f 64 65  |for current mode|
00003000  0d 02 49 2e c8 99 20 22  4f 53 5f 52 65 61 64 4d  |..I... "OS_ReadM|
00003010  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00003020  31 31 20 b8 20 2c 2c 78  6c 69 6d 69 74 25 0d 02  |11 . ,,xlimit%..|
00003030  4a 2b c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |J+.. "OS_ReadMod|
00003040  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 34 20  |eVariable",-1,4 |
00003050  b8 20 2c 2c 78 65 69 67  25 0d 02 4b 17 3d 28 78  |. ,,xeig%..K.=(x|
00003060  6c 69 6d 69 74 25 2b 31  29 3c 3c 78 65 69 67 25  |limit%+1)<<xeig%|
00003070  0d 02 4c 05 3a 0d 02 4d  0c dd a4 6f 73 79 6d 61  |..L.:..M...osyma|
00003080  78 0d 02 4e 28 f4 20 73  63 72 65 65 6e 20 79 20  |x..N(. screen y |
00003090  4f 53 20 75 6e 69 74 73  20 66 6f 72 20 63 75 72  |OS units for cur|
000030a0  72 65 6e 74 20 6d 6f 64  65 0d 02 4f 2e c8 99 20  |rent mode..O... |
000030b0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000030c0  61 62 6c 65 22 2c 2d 31  2c 31 32 20 b8 20 2c 2c  |able",-1,12 . ,,|
000030d0  79 6c 69 6d 69 74 25 0d  02 50 2b c8 99 20 22 4f  |ylimit%..P+.. "O|
000030e0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
000030f0  6c 65 22 2c 2d 31 2c 35  20 b8 20 2c 2c 79 65 69  |le",-1,5 . ,,yei|
00003100  67 25 0d 02 51 17 3d 28  79 6c 69 6d 69 74 25 2b  |g%..Q.=(ylimit%+|
00003110  31 29 3c 3c 79 65 69 67  25 0d 02 52 05 3a 0d 02  |1)<<yeig%..R.:..|
00003120  53 0c f4 2d 2d 2d 2d 2d  2d 2d 0d 02 54 0c f4 2e  |S..-------..T...|
00003130  20 49 43 4f 4e 53 0d 02  55 0c f4 2d 2d 2d 2d 2d  | ICONS..U..-----|
00003140  2d 2d 0d 02 56 05 3a 0d  02 57 0d dd f2 62 61 72  |--..V.:..W...bar|
00003150  69 63 6f 6e 0d 02 58 17  f4 20 69 63 6f 6e 20 66  |icon..X.. icon f|
00003160  6f 72 20 69 63 6f 6e 20  62 61 72 0d 02 59 37 71  |or icon bar..Y7q|
00003170  25 21 30 3d 2d 31 3a 71  25 21 34 3d 30 3a 71 25  |%!0=-1:q%!4=0:q%|
00003180  21 38 3d 30 3a 71 25 21  31 32 3d 36 38 3a 71 25  |!8=0:q%!12=68:q%|
00003190  21 31 36 3d 36 38 3a 71  25 21 32 30 3d 26 33 30  |!16=68:q%!20=&30|
000031a0  30 32 0d 02 5a 17 24 28  71 25 2b 32 34 29 3d 22  |02..Z.$(q%+24)="|
000031b0  21 68 6f 74 6b 65 79 73  22 0d 02 5b 27 c8 99 20  |!hotkeys"..['.. |
000031c0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000031d0  22 2c 2c 71 25 20 b8 20  62 61 72 69 63 6f 6e 25  |",,q% . baricon%|
000031e0  0d 02 5c 05 e1 0d 02 5d  05 3a 0d 02 5e 11 dd f2  |..\....].:..^...|
000031f0  63 72 65 61 74 65 69 63  6f 6e 73 0d 02 5f 0c f2  |createicons.._..|
00003200  62 61 72 69 63 6f 6e 0d  02 60 14 f4 20 69 63 6f  |baricon..`.. ico|
00003210  6e 73 20 66 6f 72 20 70  61 6e 65 0d 02 61 29 ea  |ns for pane..a).|
00003220  20 77 68 25 2c 69 68 25  2c 76 67 25 2c 69 78 25  | wh%,ih%,vg%,ix%|
00003230  2c 69 79 25 2c 69 77 25  2c 66 25 2c 69 25 2c 77  |,iy%,iw%,f%,i%,w|
00003240  25 2c 68 25 0d 02 62 0d  77 68 25 3d 70 61 6e 65  |%,h%..b.wh%=pane|
00003250  25 0d 02 63 05 3a 0d 02  64 1f 69 68 25 3d 34 34  |%..c.:..d.ih%=44|
00003260  3a 76 67 25 3d 34 3a 69  79 25 3d 2d 28 69 68 25  |:vg%=4:iy%=-(ih%|
00003270  2b 76 67 25 29 0d 02 65  09 f4 20 6b 65 79 0d 02  |+vg%)..e.. key..|
00003280  66 1d 69 78 25 3d 36 3a  69 77 25 3d 33 36 3a 66  |f.ix%=6:iw%=36:f|
00003290  25 3d 26 31 37 30 30 36  30 33 44 0d 02 67 13 e3  |%=&1700603D..g..|
000032a0  20 4a 25 3d 31 20 b8 20  6c 69 6e 65 73 25 0d 02  | J%=1 . lines%..|
000032b0  68 1e 20 73 24 3d 22 22  3a e7 20 4a 25 3c 32 37  |h. s$="":. J%<27|
000032c0  20 73 24 3d bd 28 4a 25  2b 36 34 29 0d 02 69 2e  | s$=.(J%+64)..i.|
000032d0  20 69 25 3d a4 69 63 6f  6e 28 77 68 25 2c 69 78  | i%=.icon(wh%,ix|
000032e0  25 2c 69 79 25 2c 69 77  25 2c 69 68 25 2c 66 25  |%,iy%,iw%,ih%,f%|
000032f0  2c 73 24 2c 30 2c 30 2c  30 29 0d 02 6a 13 20 69  |,s$,0,0,0)..j. i|
00003300  79 25 2d 3d 28 69 68 25  2b 76 67 25 29 0d 02 6b  |y%-=(ih%+vg%)..k|
00003310  05 ed 0d 02 6c 05 3a 0d  02 6d 0a f4 20 70 61 74  |....l.:..m.. pat|
00003320  68 0d 02 6e 2e 69 78 25  3d 34 38 3a 69 77 25 3d  |h..n.ix%=48:iw%=|
00003330  36 36 30 3a 69 79 25 3d  2d 28 69 68 25 2b 76 67  |660:iy%=-(ih%+vg|
00003340  25 29 3a 66 25 3d 26 30  37 30 30 45 31 33 35 0d  |%):f%=&0700E135.|
00003350  02 6f 13 e3 20 4a 25 3d  31 20 b8 20 6c 69 6e 65  |.o.. J%=1 . line|
00003360  73 25 0d 02 70 41 20 69  25 3d a4 69 63 6f 6e 28  |s%..pA i%=.icon(|
00003370  77 68 25 2c 69 78 25 2c  69 79 25 2c 69 77 25 2c  |wh%,ix%,iy%,iw%,|
00003380  69 68 25 2c 66 25 2c 22  22 2c 70 61 74 68 61 64  |ih%,f%,"",pathad|
00003390  25 28 4a 25 29 2c 6e 6f  73 70 61 63 65 2c 26 31  |%(J%),nospace,&1|
000033a0  30 30 29 0d 02 71 13 20  69 79 25 2d 3d 28 69 68  |00)..q. iy%-=(ih|
000033b0  25 2b 76 67 25 29 0d 02  72 05 ed 0d 02 73 06 20  |%+vg%)..r....s. |
000033c0  3a 0d 02 74 0c f4 20 73  77 69 74 63 68 0d 02 75  |:..t.. switch..u|
000033d0  2e 69 78 25 3d 37 31 36  3a 69 77 25 3d 34 34 3a  |.ix%=716:iw%=44:|
000033e0  69 79 25 3d 2d 28 69 68  25 2b 76 67 25 29 3a 66  |iy%=-(ih%+vg%):f|
000033f0  25 3d 26 31 34 30 30 42  31 33 33 0d 02 76 13 e3  |%=&1400B133..v..|
00003400  20 4a 25 3d 31 20 b8 20  6c 69 6e 65 73 25 0d 02  | J%=1 . lines%..|
00003410  77 3e 20 69 25 3d a4 69  63 6f 6e 28 77 68 25 2c  |w> i%=.icon(wh%,|
00003420  69 78 25 2c 69 79 25 2c  69 77 25 2c 69 68 25 2c  |ix%,iy%,iw%,ih%,|
00003430  66 25 2c 22 22 2c 74 65  78 74 25 2c 76 61 6c 69  |f%,"",text%,vali|
00003440  64 25 2c 74 65 78 74 6c  65 6e 25 29 0d 02 78 13  |d%,textlen%)..x.|
00003450  20 69 79 25 2d 3d 28 69  68 25 2b 76 67 25 29 0d  | iy%-=(ih%+vg%).|
00003460  02 79 05 ed 0d 02 7a 1b  68 25 3d 6c 69 6e 65 73  |.y....z.h%=lines|
00003470  25 2a 28 69 68 25 2b 76  67 25 29 2b 76 67 25 0d  |%*(ih%+vg%)+vg%.|
00003480  02 7b 1b f2 73 65 74 65  78 74 65 6e 74 28 77 68  |.{..setextent(wh|
00003490  25 2c 2d 68 25 2c 37 36  38 29 0d 02 7c 05 e1 0d  |%,-h%,768)..|...|
000034a0  02 7d 05 3a 0d 02 7e 37  dd a4 69 63 6f 6e 28 77  |.}.:..~7..icon(w|
000034b0  68 25 2c 69 78 25 2c 69  79 25 2c 69 77 25 2c 69  |h%,ix%,iy%,iw%,i|
000034c0  68 25 2c 66 6c 61 67 25  2c 74 65 78 74 24 2c 64  |h%,flag%,text$,d|
000034d0  31 25 2c 64 32 25 2c 64  33 25 29 0d 02 7f 46 71  |1%,d2%,d3%)...Fq|
000034e0  25 21 30 3d 77 68 25 3a  71 25 21 34 3d 69 78 25  |%!0=wh%:q%!4=ix%|
000034f0  3a 71 25 21 38 3d 69 79  25 3a 71 25 21 31 32 3d  |:q%!8=iy%:q%!12=|
00003500  69 78 25 2b 69 77 25 3a  71 25 21 31 36 3d 69 79  |ix%+iw%:q%!16=iy|
00003510  25 2b 69 68 25 3a 71 25  21 32 30 3d 66 6c 61 67  |%+ih%:q%!20=flag|
00003520  25 0d 02 80 0d e7 20 64  31 25 3d 30 20 8c 0d 02  |%..... d1%=0 ...|
00003530  81 14 20 20 24 28 71 25  2b 32 34 29 3d 74 65 78  |..  $(q%+24)=tex|
00003540  74 24 0d 02 82 05 cc 0d  02 83 23 20 20 71 25 21  |t$........#  q%!|
00003550  32 34 3d 64 31 25 3a 71  25 21 32 38 3d 64 32 25  |24=d1%:q%!28=d2%|
00003560  3a 71 25 21 33 32 3d 64  33 25 0d 02 84 05 cd 0d  |:q%!32=d3%......|
00003570  02 85 22 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..".. "Wimp_Crea|
00003580  74 65 49 63 6f 6e 22 2c  2c 71 25 20 b8 20 69 68  |teIcon",,q% . ih|
00003590  25 0d 02 86 08 3d 69 68  25 0d 02 87 05 3a 0d 02  |%....=ih%....:..|
000035a0  88 11 dd f2 73 69 28 77  68 25 2c 69 68 25 29 0d  |....si(wh%,ih%).|
000035b0  02 89 2c 43 25 21 30 3d  77 68 25 3a 43 25 21 34  |..,C%!0=wh%:C%!4|
000035c0  3d 69 68 25 3a 43 25 21  38 3d 31 3c 3c 32 31 3a  |=ih%:C%!8=1<<21:|
000035d0  43 25 21 31 32 3d 31 3c  3c 32 31 0d 02 8a 1d c8  |C%!12=1<<21.....|
000035e0  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
000035f0  61 74 65 22 2c 2c 43 25  0d 02 8b 05 e1 0d 02 8c  |ate",,C%........|
00003600  05 3a 0d 02 8d 11 dd f2  75 69 28 77 68 25 2c 69  |.:......ui(wh%,i|
00003610  68 25 29 0d 02 8e 28 43  25 21 30 3d 77 68 25 3a  |h%)...(C%!0=wh%:|
00003620  43 25 21 34 3d 69 68 25  3a 43 25 21 38 3d 30 3a  |C%!4=ih%:C%!8=0:|
00003630  43 25 21 31 32 3d 31 3c  3c 32 31 0d 02 8f 1d c8  |C%!12=1<<21.....|
00003640  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00003650  61 74 65 22 2c 2c 43 25  0d 02 90 05 e1 0d 02 91  |ate",,C%........|
00003660  05 3a 0d 02 92 11 dd a4  69 73 28 77 68 25 2c 69  |.:......is(wh%,i|
00003670  68 25 29 0d 02 93 08 ea  20 6e 25 0d 02 94 2e 21  |h%)..... n%....!|
00003680  43 25 3d 77 68 25 3a 43  25 21 34 3d 69 68 25 3a  |C%=wh%:C%!4=ih%:|
00003690  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
000036a0  74 61 74 65 22 2c 2c 43  25 0d 02 95 18 6e 25 3d  |tate",,C%....n%=|
000036b0  28 28 43 25 21 32 34 29  3e 3e 32 31 29 20 80 20  |((C%!24)>>21) . |
000036c0  31 0d 02 96 0e e7 20 6e  25 3d 30 20 8c 3d a3 0d  |1..... n%=0 .=..|
000036d0  02 97 06 3d b9 0d 02 98  05 3a 0d 02 99 14 dd f2  |...=.....:......|
000036e0  69 74 28 77 68 25 2c 69  68 25 2c 73 24 29 0d 02  |it(wh%,ih%,s$)..|
000036f0  9a 30 43 25 21 30 3d 77  68 25 3a 43 25 21 34 3d  |.0C%!0=wh%:C%!4=|
00003700  69 68 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |ih%:.. "Wimp_Get|
00003710  49 63 6f 6e 53 74 61 74  65 22 2c 2c 43 25 0d 02  |IconState",,C%..|
00003720  9b 0f 24 28 43 25 21 32  38 29 3d 73 24 0d 02 9c  |..$(C%!28)=s$...|
00003730  2d 43 25 21 38 3d 30 3a  43 25 21 31 32 3d 30 3a  |-C%!8=0:C%!12=0:|
00003740  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00003750  53 74 61 74 65 22 2c 2c  43 25 0d 02 9d 05 e1 0d  |State",,C%......|
00003760  02 9e 05 3a 0d 02 9f 11  dd a4 69 74 28 77 68 25  |...:......it(wh%|
00003770  2c 69 68 25 29 0d 02 a0  30 43 25 21 30 3d 77 68  |,ih%)...0C%!0=wh|
00003780  25 3a 43 25 21 34 3d 69  68 25 3a c8 99 20 22 57  |%:C%!4=ih%:.. "W|
00003790  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000037a0  22 2c 2c 43 25 0d 02 a1  0d 3d 24 28 43 25 21 32  |",,C%....=$(C%!2|
000037b0  38 29 0d 02 a2 05 3a 0d  02 a3 17 dd f2 64 69 28  |8)....:......di(|
000037c0  77 68 25 2c 66 72 6f 6d  25 2c 74 6f 25 29 0d 02  |wh%,from%,to%)..|
000037d0  a4 11 ea 20 4a 25 3a 43  25 21 30 3d 77 68 25 0d  |... J%:C%!0=wh%.|
000037e0  02 a5 37 e3 20 4a 25 3d  66 72 6f 6d 25 20 b8 20  |..7. J%=from% . |
000037f0  74 6f 25 3a 43 25 21 34  3d 4a 25 3a c8 99 20 22  |to%:C%!4=J%:.. "|
00003800  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
00003810  2c 2c 43 25 3a ed 0d 02  a6 2b 43 25 21 30 3d 77  |,,C%:....+C%!0=w|
00003820  68 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |h%:.. "Wimp_GetW|
00003830  69 6e 64 6f 77 4f 75 74  6c 69 6e 65 22 2c 2c 43  |indowOutline",,C|
00003840  25 0d 02 a7 31 6d 69 6e  78 25 3d 43 25 21 34 3a  |%...1minx%=C%!4:|
00003850  6d 69 6e 79 25 3d 43 25  21 38 3a 6d 61 78 78 25  |miny%=C%!8:maxx%|
00003860  3d 43 25 21 31 32 3a 6d  61 78 79 25 3d 43 25 21  |=C%!12:maxy%=C%!|
00003870  31 36 0d 02 a8 34 c8 99  20 22 57 69 6d 70 5f 46  |16...4.. "Wimp_F|
00003880  6f 72 63 65 52 65 64 72  61 77 22 2c 2d 31 2c 6d  |orceRedraw",-1,m|
00003890  69 6e 78 25 2c 6d 69 6e  79 25 2c 6d 61 78 78 25  |inx%,miny%,maxx%|
000038a0  2c 6d 61 78 79 25 0d 02  a9 05 e1 0d 02 aa 05 3a  |,maxy%.........:|
000038b0  0d 02 ab 0d f4 2d 2d 2d  2d 2d 2d 2d 2d 0d 02 ac  |.....--------...|
000038c0  0d f4 2e 20 45 52 52 4f  52 53 0d 02 ad 0d f4 2d  |... ERRORS.....-|
000038d0  2d 2d 2d 2d 2d 2d 2d 0d  02 ae 05 3a 0d 02 af 0f  |-------....:....|
000038e0  dd f2 77 69 6d 70 65 72  72 6f 72 0d 02 b0 2e c8  |..wimperror.....|
000038f0  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
00003900  2c 2c 2d 31 3a c8 99 20  22 48 6f 75 72 67 6c 61  |,,-1:.. "Hourgla|
00003910  73 73 5f 53 6d 61 73 68  22 0d 02 b1 14 e7 20 46  |ss_Smash"..... F|
00003920  25 3e 30 20 d9 23 46 25  3a 46 25 3d 30 0d 02 b2  |%>0 .#F%:F%=0...|
00003930  28 73 24 3d f6 24 2b 22  2c 28 45 72 72 6f 72 20  |(s$=.$+",(Error |
00003940  22 2b c3 9f 2b 22 3a 20  6c 69 6e 65 20 22 2b c3  |"+..+": line "+.|
00003950  9e 2b 22 29 22 0d 02 b3  20 61 6e 73 25 3d a4 6d  |.+")"... ans%=.m|
00003960  73 67 28 73 24 2c 22 4f  4b 2c 4b 69 6c 6c 20 74  |sg(s$,"OK,Kill t|
00003970  61 73 6b 22 29 0d 02 b4  23 e7 20 61 6e 73 25 3d  |ask")...#. ans%=|
00003980  32 20 8c 20 71 75 69 74  25 3d b9 3a f2 63 6c 6f  |2 . quit%=.:.clo|
00003990  73 65 77 69 6d 70 3a e0  0d 02 b5 05 e1 0d 02 b6  |sewimp:.........|
000039a0  05 3a 0d 02 b7 0b dd f2  65 72 72 6f 72 0d 02 b8  |.:......error...|
000039b0  1d ef 34 3a f1 20 f6 24  2b 22 20 61 74 20 6c 69  |..4:. .$+" at li|
000039c0  6e 65 20 22 2b c3 9e 3a  ef 35 0d 02 b9 05 e1 0d  |ne "+..:.5......|
000039d0  02 ba 05 3a 0d 02 bb 12  dd a4 6d 73 67 28 73 31  |...:......msg(s1|
000039e0  24 2c 73 32 24 29 0d 02  bc 2d ea 20 4a 25 2c 63  |$,s2$)...-. J%,c|
000039f0  25 2c 70 25 2c 67 25 2c  66 25 2c 72 25 2c 78 25  |%,p%,g%,f%,r%,x%|
00003a00  2c 79 25 2c 77 25 2c 68  25 2c 6e 25 2c 73 24 2c  |,y%,w%,h%,n%,s$,|
00003a10  77 68 25 0d 02 bd 09 f2  62 75 7a 7a 0d 02 be 2e  |wh%.....buzz....|
00003a20  c8 99 20 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  |.. "Wimp_DragBox|
00003a30  22 2c 2c 2d 31 3a c8 99  20 22 48 6f 75 72 67 6c  |",,-1:.. "Hourgl|
00003a40  61 73 73 5f 53 6d 61 73  68 22 0d 02 bf 05 3a 0d  |ass_Smash"....:.|
00003a50  02 c0 13 f4 20 64 6f 20  63 68 6f 69 63 65 73 2e  |.... do choices.|
00003a60  2e 2e 0d 02 c1 0f 63 25  3d 30 3a 73 24 3d 73 32  |......c%=0:s$=s2|
00003a70  24 0d 02 c2 30 69 63 74  24 28 31 29 3d 22 22 3a  |$...0ict$(1)="":|
00003a80  69 63 74 24 28 32 29 3d  22 22 3a 69 63 74 24 28  |ict$(2)="":ict$(|
00003a90  33 29 3d 22 22 3a 69 63  74 24 28 34 29 3d 22 22  |3)="":ict$(4)=""|
00003aa0  3a 0d 02 c3 05 f5 0d 02  c4 16 20 63 25 2b 3d 31  |:......... c%+=1|
00003ab0  3a 70 25 3d a7 73 24 2c  22 2c 22 29 0d 02 c5 17  |:p%=.s$,",")....|
00003ac0  20 e7 20 70 25 3d 30 20  69 63 74 24 28 63 25 29  | . p%=0 ict$(c%)|
00003ad0  3d 73 24 0d 02 c6 2d 20  e7 20 70 25 3e 30 20 69  |=s$...- . p%>0 i|
00003ae0  63 74 24 28 63 25 29 3d  c0 73 24 2c 70 25 2d 31  |ct$(c%)=.s$,p%-1|
00003af0  29 3a 73 24 3d c2 73 24  2c a9 73 24 2d 70 25 29  |):s$=.s$,.s$-p%)|
00003b00  0d 02 c7 16 fd 20 70 25  3d 30 3a e7 20 63 25 3e  |..... p%=0:. c%>|
00003b10  34 20 63 25 3d 34 0d 02  c8 36 24 43 25 3d 69 63  |4 c%=4...6$C%=ic|
00003b20  74 24 28 31 29 2b bd 30  2b 69 63 74 24 28 32 29  |t$(1)+.0+ict$(2)|
00003b30  2b bd 30 2b 69 63 74 24  28 33 29 2b bd 30 2b 69  |+.0+ict$(3)+.0+i|
00003b40  63 74 24 28 34 29 2b bd  30 2b bd 30 0d 02 c9 4d  |ct$(4)+.0+.0...M|
00003b50  c8 99 20 22 57 69 6d 70  45 78 74 5f 43 6f 6e 74  |.. "WimpExt_Cont|
00003b60  72 6f 6c 49 6d 6d 65 64  69 61 74 65 22 2c 2c 32  |rolImmediate",,2|
00003b70  2c 22 4d 65 73 73 61 67  65 20 66 72 6f 6d 20 48  |,"Message from H|
00003b80  6f 74 6b 65 79 73 22 2c  73 31 24 2c 43 25 2c 30  |otkeys",s1$,C%,0|
00003b90  20 b8 20 72 65 70 6c 79  25 0d 02 ca 0d 3d 72 65  | . reply%....=re|
00003ba0  70 6c 79 25 2b 31 0d 02  cb 05 3a 0d 02 cc 0f f4  |ply%+1....:.....|
00003bb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 02 cd 0f f4 2e  |----------......|
00003bc0  20 44 45 42 55 47 47 45  52 0d 02 ce 0f f4 2d 2d  | DEBUGGER.....--|
00003bd0  2d 2d 2d 2d 2d 2d 2d 2d  0d 02 cf 05 3a 0d 02 d0  |--------....:...|
00003be0  0f dd f2 64 6c 28 6c 69  73 74 24 29 0d 02 d1 10  |...dl(list$)....|
00003bf0  f4 20 64 65 62 75 67 20  6c 69 73 74 0d 02 d2 30  |. debug list...0|
00003c00  ea 20 63 63 63 25 2c 74  74 74 25 2c 6d 6d 6d 25  |. ccc%,ttt%,mmm%|
00003c10  2c 73 73 73 24 2c 63 63  63 24 2c 76 61 72 24 28  |,sss$,ccc$,var$(|
00003c20  29 3a de 20 76 61 72 24  28 32 30 29 0d 02 d3 07  |):. var$(20)....|
00003c30  ea 20 85 0d 02 d4 25 ee  20 85 20 ea 20 ef 34 3a  |. ....%. . . .4:|
00003c40  f1 8a 30 2c 74 74 74 25  2b 32 29 22 45 52 52 4f  |..0,ttt%+2)"ERRO|
00003c50  52 21 22 3a ef 35 3a e1  0d 02 d5 17 e3 20 74 74  |R!":.5:...... tt|
00003c60  74 25 3d 31 20 b8 20 a9  28 6c 69 73 74 24 29 0d  |t%=1 . .(list$).|
00003c70  02 d6 18 20 63 63 63 24  3d c1 6c 69 73 74 24 2c  |... ccc$=.list$,|
00003c80  74 74 74 25 2c 31 29 0d  02 d7 1b 20 e7 20 63 63  |ttt%,1).... . cc|
00003c90  63 24 3c 3e 22 2c 22 20  73 73 73 24 2b 3d 63 63  |c$<>"," sss$+=cc|
00003ca0  63 24 0d 02 d8 21 20 e7  20 63 63 63 24 3d 22 2c  |c$...! . ccc$=",|
00003cb0  22 20 84 20 74 74 74 25  3d a9 28 6c 69 73 74 24  |" . ttt%=.(list$|
00003cc0  29 20 8c 0d 02 d9 1d 20  20 e7 20 a9 73 73 73 24  |) .....  . .sss$|
00003cd0  3e 6d 6d 6d 25 20 6d 6d  6d 25 3d a9 73 73 73 24  |>mmm% mmm%=.sss$|
00003ce0  0d 02 da 25 20 20 76 61  72 24 28 63 63 63 25 29  |...%  var$(ccc%)|
00003cf0  3d 73 73 73 24 3a 73 73  73 24 3d 22 22 3a 63 63  |=sss$:sss$="":cc|
00003d00  63 25 2b 3d 31 0d 02 db  06 20 cd 0d 02 dc 08 ed  |c%+=1.... ......|
00003d10  3a ef 34 0d 02 dd 15 e3  20 74 74 74 25 3d 30 20  |:.4..... ttt%=0 |
00003d20  b8 20 63 63 63 25 2d 31  0d 02 de 14 20 73 73 73  |. ccc%-1.... sss|
00003d30  24 3d 76 61 72 24 28 74  74 74 25 29 0d 02 df 16  |$=var$(ttt%)....|
00003d40  20 f1 8a 30 2c 74 74 74  25 29 c4 35 30 2c 22 20  | ..0,ttt%).50," |
00003d50  22 29 0d 02 e0 15 20 e7  20 c0 73 73 73 24 2c 31  |").... . .sss$,1|
00003d60  29 3d 22 7e 22 20 8c 0d  02 e1 19 20 20 73 73 73  |)="~" .....  sss|
00003d70  24 3d c2 73 73 73 24 2c  a9 73 73 73 24 2d 31 29  |$=.sss$,.sss$-1)|
00003d80  0d 02 e2 1b 20 20 63 63  63 24 3d c4 6d 6d 6d 25  |....  ccc$=.mmm%|
00003d90  2d a9 73 73 73 24 2c 22  20 22 29 0d 02 e3 29 20  |-.sss$," ")...) |
00003da0  20 f1 8a 30 2c 74 74 74  25 29 20 73 73 73 24 2b  | ..0,ttt%) sss$+|
00003db0  63 63 63 24 2b 22 20 3d  26 22 3b c3 7e 28 a0 73  |ccc$+" =&";.~(.s|
00003dc0  73 73 24 29 0d 02 e4 06  20 cc 0d 02 e5 1b 20 20  |ss$).... .....  |
00003dd0  63 63 63 24 3d c4 6d 6d  6d 25 2d a9 73 73 73 24  |ccc$=.mmm%-.sss$|
00003de0  2c 22 20 22 29 0d 02 e6  27 20 20 f1 8a 30 2c 74  |," ")...'  ..0,t|
00003df0  74 74 25 29 20 73 73 73  24 2b 63 63 63 24 2b 22  |tt%) sss$+ccc$+"|
00003e00  20 3d 20 22 3b a0 28 73  73 73 24 29 0d 02 e7 06  | = ";.(sss$)....|
00003e10  20 cd 0d 02 e8 08 ed 3a  ef 35 0d 02 e9 05 e1 0d  | ......:.5......|
00003e20  ff                                                |.|
00003e21