!� > <BasicSave$Dir>.!RunImage
� by Steve Turnbull
"� Copyright (c) 1989,1991,1993
(� � �runError:�
2�preInit
<� � �runError:�quit:�
F�userInit1
P�initSprites
Z
�initWimp
d�initWindows
n�initMenus
x� � �runError
��
�
�fixIcons
�
�pollWimp
�
� quit
�	�quit
��
�
�� �preInit
�6myName$="KeyWord Thesaurus":myShortName$="KeyWord"
�GmyDir$="<KeyWord$dir>":scrapDir$=myDir$:resDir$=myDir$+".Resources"
�'� q%&400,r%&400,errblk%256,buf%&300
�?ș "Wimp_Initialise",200,&4B534154,myName$ � version%,task%
�*ș "WimpExt_Initialise",5,task%,%10010

)savingRef=�:loadingRef=�:dragging=�:�



� �quit

" ș "WimpExt_CloseDown",task%

,'ș "Wimp_CloseDown",task%,&4B534154

6�

@

J"� �userInit1:ș "Hourglass_On"

T.m$=�200,"."):n$=m$:s$=m$:t$=m$:u$=m$:v$=m$

^'m$="":n$="":s$="":t$="":u$="":v$=""

h&numWords%=0:maxWords%=8:wbSiz=&300

r� data1 8,wrdBuf%wbSiz*8

|#� wrdPtr%wbSiz*4,filPtr%wbSiz*4

�!�load("KWWPT",KWwpt%,WPTsiz%)

�no10Words%=WPTsiz%/8

��load("KWSUB",KWsub%,J%)

��load("KWSPT",KWspt%,J%)

�!quit=�:theState=0:oldState=-1

�hilite%=-1

�ș "Hourglass_Off":�

�

�� �load(F$,� P%,� X%)

�F$=resDir$+"."+F$

�ș "OS_File",5,F$ � ,,,,X%

�#� P%X%+4:ș "OS_File",&FF,F$,P%

��

7---------------------------------------------------

&&        +++ User main routines +++
0
:� �fixIcons
D� theState<>oldState �
N*    � theState=0 C%=0:K%=7 � C%=7:K%=0
X%    �colourIcon(SrcW,wordIcon,C%)
b%    �colourIcon(SrcW,cateIcon,K%)
l    oldState=theState
v  �
��
�
�� �makeMatch(� P%)
�(� x$,M%:x$=�lo(�$srcBuf%+"     ",5))
�*P%=(�chop(0,no10Words%-1)<<3)+KWwpt%:�
�
�0� �chop(B%,T%):M%=(B%+T%)/2:� �(B%-T%)=1 =B%
�1� x$>�s5(M%<<3) =�chop(M%,T%) � =�chop(B%,M%)
�
�7� �s5(J%):J%+=KWwpt%:=�J%?0+�J%?1+�J%?2+�J%?3+�J%?4
�
�1� �lo($buf%)�A%,Z%,P%:P%=buf%:A%=�"A":Z%=�"Z"
�&ȕ?P%<>13:�?P%>=A%�?P%<=Z%:?P%+=32
P%+=1:�:=$buf%

� �makeList(P%)
 *ș "Hourglass_On":P%=(P%!4>>8)�&FFFFFF
*.numWords%=0:�setNewExtent:ptrWord%=wrdBuf%
4,ș "OS_Find",&C0,resDir$+".KWDAT" � dat%
>$�getWords(�lo($srcBuf%),P%,dat%)
H)ș "OS_Find",,dat%:ș "Hourglass_Off"
R�
\
f� �getWords(w$,P%,F%)
p � lastWord$:wbInd%=0:�#F%=P%
z$ȕ �matchWord(w$,F%) � ��#F%:�:�
�
�� �matchWord(w$,F%)
�!� L%,S%,N%,b$,l$,Q%,X%:Q%=�w$
�,oldP%=�#F%:�getWord(F%,L%,S%,b$,N%,buf%)
�� S%>0 b$=�lastWord$,S%)+b$
�lastWord$=b$:l$=�b$,Q%)
�
Ȏ � �
�    � l$<w$ : X%=�
�6    � l$=w$ : wrdPtr%!(numWords%*4)=wbInd%+wrdBuf%
�0                 filPtr%!(numWords%*4)=oldP%
�5                 $(wrdBuf%+wbInd%)=b$:wbInd%+=�b$
�>                 wrdBuf%?(wbInd%-1)=wrdBuf%?(wbInd%-1)�&80
�&                 X%=�:numWords%+=1
    � l$>w$ : X%=�
  �
=X%
$
.)� �getWord(F%,� L%,� S%,� b$,� N%,B%)
8(� C%,K%:L%=�#F%:S%=�#F%:K%=�#F%+L%-2
B&� C%=�#F%:b$=b$+�(C%�&7F):� C%>&7F
L*� B%?N%=�#F%:N%+=1:� �#F%=K%:N%=N%�2:�
V
`� �drawWords
j� B%,J%,N%,P%,Y%
t� numWords%>0 �
~#  N%=�(numWords%*q%!24/Extent%)
�!  maxWords%=(q%!16-q%!8)/32+1
�  �
�-    �printWord(�getwd(wrdPtr%!(N%*4)),N%)
�    Y%+=1:N%+=1
�%    � Y%>maxWords% � N%=numWords%
�  �
��
�
���printWord(w$,N%)
�� y%:y%=�wy(N%)
�� ox%+8,y%:�w$
�� N%=hilite% �
%    ș "Wimp_SetColour",%01000111

    ȓȐox%-8,y%,400,-28
%    ș "Wimp_SetColour",%00000111
  �
(�
2
<ݤwy(N%)=-N%*32-oy%-4
F
P=� �getwd(P%)�w$:ȕ?P%<&80:w$+=�?P%:P%+=1:�:=w$+�(?P%�&7F)
Z
d"� �thesaurus:ș "Hourglass_On"
n%� F%,L%,N%,b$,w$:w$=�lo($srcBuf%)
xȕ N%<numWords% � F%=�
�$  F%=(w$=�getwd(wrdPtr%!(N%*4)))
�
  N%+=1:�
�!numWords%=0:� F% �getSubjects
�$�setNewExtent:�forceRedraw(WrdW)
�ș "Hourglass_Off":�
�
�� �getSubjects
�� L%,S%,V%:N%-=1:wbInd%=0
�*ș "OS_Find",&C0,resDir$+".KWDAT" � F%
��#F%=filPtr%!(N%*4)
�!�getWord(F%,L%,S%,b$,V%,buf%)
�ș "OS_Find",,F%
�� L%=0 � V%-1
&  P%=KWsub%:W%=(buf%!(L%*2)�&FFFF)
  ȕ W%>1:P%+=?P%:W%-=1:�
#  wrdPtr%!(L%*4)=wbInd%+wrdBuf%
"'  filPtr%!(L%*4)=P%:b$=�getwd(P%+2)
,&  $(wrdBuf%+wbInd%)=b$:wbInd%+=�b$
6/  wrdBuf%?(wbInd%-1)=wrdBuf%?(wbInd%-1)�&80
@  numWords%+=1:�
JtheState=1:�
T
^� �getCategory(K%,Q%)
h� I%,J%,L%,M%,V%
r!ș "Hourglass_On":numWords%=0
|,ș "OS_Find",&C0,resDir$+".KWDAT" � dat%
�� L%=0 � K%-1
�"  J%=(KWspt%!Q%)�&FFFFFF:Q%+=3
�2  I%=KWwpt%!((�pchop(0,no10Words%-1)<<3)+4)>>8
�   �matchCategory(J%,I%,dat%)
�  �
�$�setNewExtent:�forceRedraw(WrdW)
�)ș "OS_Find",,dat%:ș "Hourglass_Off"
�theState=0:�
�
�1� �pchop(B%,T%):M%=(B%+T%)/2:� �(B%-T%)=1 =B%
�CV%=(KWwpt%!(M%*8+4)>>8):� J%>V% =�pchop(M%,T%) � =�pchop(B%,M%)
�
�� �matchCategory(U%,V%,F%)
$� L%,S%,N%,b$,l$,Q%,X%,lastWord$
�#F%=V%
�
&  oldP%=�#F%:b$=""
0#  �getWord(F%,L%,S%,b$,N%,buf%)
:!  � S%>0 b$=�lastWord$,S%)+b$
D  lastWord$=b$
N  � oldP%=U% �
X.      wrdPtr%!(numWords%*4)=wbInd%+wrdBuf%
b%      filPtr%!(numWords%*4)=oldP%
l*      $(wrdBuf%+wbInd%)=b$:wbInd%+=�b$
v3      wrdBuf%?(wbInd%-1)=wrdBuf%?(wbInd%-1)�&80
�      X%=�:numWords%+=1
�	    �
�      X%=�
�	    �
�  � X%=�
��
�
�7---------------------------------------------------
�
�(        +++ User Sprite routines +++
�
�� �initSprites
�7ș "OS_SWINumberFromString",,"OS_SpriteOp" � Sprop%
:ș "OS_SWINumberFromString",,"Wimp_SpriteOp" � WSprop%
,� r%&C00,saveIcon 20,icons%&600:iconp%=0
!ș "Wimp_BaseOfSprites" � ,B%
 5myIcon=�crIcon(-1,8,0,74,120,&2102,"!KeyWord",B%)
*)Z%=�(resDir$+".Sprites"):L%=�#Z%:�#Z%
4#� sprites%L%+64:!sprites%=L%+64
>-sprites%!4=0:sprites%!8=16:sprites%!12=16
Hș Sprop%,256+9,sprites%
R0ș Sprop%,256+10,sprites%,resDir$+".Sprites"
\�
f
p
z7---------------------------------------------------
�
�'         +++ User Menu routines +++
�
�         -- Menu format --
�
�)"tdwsq" : t  = whether item is ticked
�9        : d  = whether item has dotted line following
�3        : w  = whether a menu warning is issued
�1        : s  = whether item is not selectable
�-        : q  = icon type ( single digit )
�! is standard  {//option name}
�) is sub-menu  {var name//option name}
�" is writeable {/text pointer/}
	' is window    {window//option name}
	
	� �initMenus
	$� �
	.� +0
	8menuMax%=&2000:ipMax%=256
	B%� menuSpace%menuMax%,ipBuf%ipMax%
	Lmenuptr%=0:ipBuf%?0=13
	VbarMenu=�crMenu
	`0� 2,KeyWord,....3{infoW//Info},....0{//Quit}
	jquitOption=1
	t�
	~
	�� �domenu(type%,M%)
	� lastType%=type%:lastMenu%=M%
	�%menutype=type%:� type%=-2 my%+=64
	�,ș "WimpExt_CreateMenu",,M%,mx%-60,176:�
	�
	�A� �whichIcon(A%,B%,E%)�which_icon(A%!Hand%,A%!Count%,B%,E%):�
	�
	�7---------------------------------------------------
	�
	�&        +++ User Wimp routines +++
	�
	�� �initWindows
� H%,X%,Y%,W%,t$

'maxws%=&C00:� ws% maxws%:curws%=ws%
"ș OpenT,,resDir$+".Templates"
;ș LoadT,,q%,curws%,ws%+maxws%,-1,"progInfo" � ,,curws%
()q%!64=sprites%:ș CreateW,,q% � infoW
2
<srcBuf%=curws%
F9ș LoadT,,q%,curws%,ws%+maxws%,-1,"Source" � ,,curws%
P!X%=q%!0:Y%=q%!12:$buf%="ICON"
Z#ȕ !srcBuf%<>!buf%:srcBuf%+=1:�
d%?srcBuf%=13:ș CreateW,,q% � SrcW
n#srcIcon=1:wordIcon=2:cateIcon=3
x8ș LoadT,,q%,curws%,ws%+maxws%,-1,"Words" � ,,curws%
�offX=q%!0-X%:offY=q%!12-Y%
�"sizX=q%!8-q%!0:sizY=q%!12-q%!4
�ș CreateW,,q% � WrdW
�ș CloseT:IGotCaret=�
�(ș "WimpExt_LinkWindows",,,SrcW,WrdW
�
��
�
�� �runError:!errblk%=�
�0$(errblk%+4)=�$+" (Internal code "+Þ+")"+�0
�+ș "Wimp_ReportError",errblk%,1,myName$
�$ș "Wimp_DragBox",,-1:dragging=�
�savingRef=0:loadingRef=0:�

V� �openW(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)ș "WimpExt_OpenLinked",,q%:�

"0� �closeW(!q%)ș "WimpExt_CloseLinked",,q%:�
,
6#� �checkm(mx%,my%,b%,h%,i%,ob%)
@Ȏ h% �
J"    � -2   : �doIconBar(b%,i%)
T!    � SrcW : �doSrcWin(b%,i%)
^!    � WrdW : �doWrdWin(b%,i%)
h  �
r�
|
�� �doIconBar(b%,i%)
�
Ȏ � �
�(    � (b%�2)=2 : �domenu(-2,barMenu)
�*    � (b%�4)=4 : !q%=SrcW:ș GetWI,,q%
�5                      ș "WimpExt_OpenLinked",,q%
�  �
��
�
�� �key_pressed(K%)
�Ȏ K% �
�    � 13 : �newWord
�    � 27 : theState=0
�)              numWords%=0:?srcBuf%=13
              �setNewExtent
H              ș "Wimp_SetCaretPosition",SrcW,srcIcon,,,-1,�$srcBuf%
$              �forceRedraw(SrcW)
&	    
0,              ș "Wimp_ProcessKey",q%!24
:  �
D�
N
X
��newWord
b� �$srcBuf%>1 �
l    theState=0
v    �makeMatch(P%)
�    �makeList(P%)
�    �setNewExtent
�    �forceRedraw(WrdW)
�#    � numWords%=1 �changeWindow
�  �
�    � 99,"Too few letters"
�  �
�:ș "Wimp_SetCaretPosition",SrcW,srcIcon,,,-1,�$srcBuf%
��forceRedraw(SrcW)
��
�
�� �setNewExtent:� N%
�.N%=numWords%:� N%<maxWords% N%=maxWords%-1

Extent%=-N%*32:!q%=WrdW

ș GetWI,,q%:q%!0=q%!44

'q%!8=q%!52:q%!4=Extent%:q%!12=q%!56

 ș "Wimp_SetExtent",WrdW,q%

*!q%=SrcW:ș GetWI,,q%

4!ș "WimpExt_OpenLinked",,q%:�

>

H� �redraw_window(!q%)

Rș RedrawW,,q% � more%

\�origin(q%+4,ox%,oy%)

f�redrawIt:�

p

z� �redrawIt

�ȕ more%

�  ș "WimpExt_Redraw",,q%

�  Ȏ !q% �

�      � SrcW :

�      � WrdW : �drawWords

�	    �

�  ș GetR,,q% � more%

�  �

��

�

�� �doSrcWin(b%,i%)

�
� i%=-1 �

�    q%!0=SrcW:ș GetW,,q%
#    ș "WimpExt_OpenLinked",,q%
  �
�
$
.� �doWrdWin(b%,i%)
8 �getW(WrdW):N%=-(my%+oy%)/32
B� N%>-1 � N%<numWords% �
L    Ȏ b% �
V       �    4 : �changeWindow
`!      �   64 : � N%=hilite% �
j,                      �dragWord(hilite%)
t:                      dragWord$=�getwd(wrdPtr%!(N%*4))
~                    �
�!      �  256 : � hilite%=-1 �
�$                      hilite%=N%
�)                      �redrawWord(N%)
�                    �
�(                      � N%=hilite% �
�(                          hilite%=-1
�-                          �redrawWord(N%)
�                        �
�                    �
�(      � 1024 : O%=hilite%:hilite%=N%
�%                  �redrawWord(O%)
�%                  �redrawWord(N%)
      �

  �
�

(!��redrawWord(N%)� u%,v%,x%,y%
2� N%>-1 � N%<numWords% �
<)    x%=0:u%=x%+400:y%=-N%*32:v%=y%-32
F*ș "Wimp_ForceRedraw",WrdW,x%,v%,u%,y%
P  �
Z�
d
n��changeWindow
xȎ theState �
�%  � 0 : b$=�getwd(wrdPtr%!(N%*4))
�%           $srcBuf%=b$:�thesaurus
�  � 1 : P%=filPtr%!(N%*4)
�*           b$=�getwd(P%+2):$srcBuf%=b$
�$           Q%=(P%!(2+�b$))�&FFFF
�&           �getCategory(P%?1,Q%*3)
�  �
�hilite%=-1
��forceRedraw(SrcW)
��
�
���dragWord(N%)
�� x%,y%,u%,v%
q%!0=WrdW:ș GetW,,q%
/x%=q%!4+4:y%=-N%*32-oy%:u%=q%!12-4:v%=y%-32
q%!00=WrdW:q%!04=5
"'q%!08=x%:q%!12=v%:q%!16=u%:q%!20=y%
,-q%!24=-1E6:q%!28=-1E6:q%!32=1E6:q%!36=1E6
6ș "Wimp_DragBox",,q%
@dragging=�:�
J
T��enddrag(x%,y%,u%,v%)
^dragging=�:ș GetPI,,q%
h2�dataSaveWord(dragWord$,q%!12,q%!16,q%!0,q%!4)
r�
|
�7---------------------------------------------------
�
�"��dataSaveWord(w$,h%,i%,x%,y%)
� q%!0=0:q%!4=0:q%!8=0:q%!12=0
�q%!16=Message_DataSave
�'q%!20=h%:q%!24=i%:q%!28=x%:q%!32=y%
�.q%!36=�w$*2:q%!40=&FFF:$(q%+44)=�w$,10)+�0
�q%!0=(44+�w$+3)��3
�8ș "Wimp_SendMessage",User_Message_Recorded,q%,h%,i%
�savingRef=q%!8:�
�
���dataSaveAck
�� savingRef=q%!12 �
    name$=�string(q%+44)
    � name$>"" �
*        Z%=�name$:�#Z%,dragWord$;:�#Z%
&'        �("SetType "+name$+" TEXT")
0-        q%!12=q%!8:q%!16=Message_DataLoad
:7ș "Wimp_SendMessage",User_Message_Recorded,q%,q%!4
D        savingRef=q%!8
N      �
X.        � 99,"DataSaveAck has no filename"
b      �
l  �
v    savingRef=0
�.    � 99,"Unexpected DataSaveAck received"
�  �
��
�
���dataLoadAck
�� savingRef=q%!12 �
�    savingRef=0
�  �
�    savingRef=0
�.    � 99,"Unexpected DataLoadAck received"
�  �
��
�
4� �string(A%)� s$:ȕ ?A%<>0:s$+=�?A%:A%+=1:�:=s$

��ramFetch
 � savingRef=q%!12 �
*    $r%=dragWord$
4<ș "Wimp_TransferBlock",task%,r%,q%!4,q%!20,�(dragWord$)
>?    q%!12=q%!8:q%!16=Message_RAMTransmit:q%!24=�(dragWord$)
H.ș "Wimp_SendMessage",User_Message,q%,q%!4
R    savingRef=0
\  �
f    savingRef=0
p+    � 99,"Unexpected RAMFetch received"
z  �
��
�
���dataSave
�� loadingRef=0 �
�5    q%!12=q%!8:q%!16=Message_DataSaveAck:q%!36=-1
�9    $(q%+44)=scrapFile$+�0:q%!0=(44+�scrapFile$+4)��3
�.ș "Wimp_SendMessage",User_Message,q%,q%!4
�    loadingRef=q%!8
�  �
�    loadingRef=0
�+    � 99,"Unexpected DataSave received"
�  �
��

��dataLoad
name$=�string(q%+44)
$=� loadingRef=q%!12 � (loadingRef=0 � name$<>scrapFile$) �
.6    � q%!40<>&FFF � 99,"Only text may be imported"
8    Z%=�name$:$r%=�#Z%:�#Z%
B    �("DELETE "+name$)
L;    P%=r%:ȕ ?P%>32 � ?P%<127 � P%<r%+10:P%+=1:�:?P%=13
V,    q%!12=q%!8:q%!16=Message_DataLoadAck
`5ș "Wimp_SendMessage",User_Message,q%,q%!20,q%!24
j    loadingRef=0
t    $srcBuf%=$r%:�newWord
~  �
�    loadingRef=0
�+    � 99,"Unexpected DataLoad received"
�  �
��
�
�7---------------------------------------------------
�
�� �menuselect(q%)
�Ȏ menutype �
�0    � -2          : � q%!0=quitOption quit=�
�!     � 1,"Unknown menu type"
�  �
ș GetPI,,q%

1� (q%!8 � 1)=1 : �domenu(lastType%,lastMenu%)
�

(7---------------------------------------------------
2
<� �message(q%)
FȎ q%!16 �
P&    � Message_Quit        : quit=�
Z)    � Message_DataSave    : �dataSave
d:    � Message_DataSaveAck : � savingRef>0 �dataSaveAck
n)    � Message_DataLoad    : �dataLoad
x:    � Message_DataLoadAck : � savingRef>0 �dataLoadAck
�7    � Message_RAMFetch    : � savingRef>0 �ramFetch
�0    � Message_RAMTransmit : �PROCramTransmit
�)    � Message_SendHelp    : �giveHelp
�-    � Message_MenuWarning : �menu_warning
�  �
��
�
�� �giveHelp
�1q%!12=q%!8:q%!16=Message_HelpText:help%=q%+20
�� q%!36=myIcon �
�0    �help("This is the "+myName$+" icon...")
�'    �help("click Menu for options")
�  �
 ?help%=0:!q%=(help%+4-q%)��3
$ș "Wimp_SendMessage",17,q%,q%!4
�
"
,-� �help(a$):$help%=a$+"|M":help%+=�a$+2:�
6
@7---------------------------------------------------
J
T&        +++ Icon Only routines +++
^
h4� �crIcon(!r%,r%!4,r%!8,r%!12,r%!16,r%!20,s$,V%)
r&� (�s$>11) � ((r%!20 � &100)<>0) �
|    r%!20=r%!20 � &100
�)    r%!24=�indirect(s$,icons%,iconp%)
�+    � (r%!20 � 2)=2 r%!28=V% � r%!28=-1
�    r%!32=�s$+1
�  �
�    $(r%+24)=s$
�  �
�*� I%:ș "Wimp_CreateIcon",,r% � I%:=I%
�
�B� �crWrIcon(!r%,r%!4,r%!8,r%!12,r%!16,r%!20,r%!24,r%!28,r%!32)
�4r%!20=r%!20 � &F100:� I%:ș CreateI,,r% � I%:=I%
�
�C� �crIndIcon(!r%,r%!4,r%!8,r%!12,r%!16,r%!20,r%!24,r%!28,r%!32)
�'r%!20=r%!20 � &100:ș CreateI,,r%:�

$� �crButton(w%,� X%,Y%,F%,n$,S%)
� H%,I%,W%
&
� S%=-1 �
0    H%=40:W%=�n$+1
:  �
D    � S%<2 �
N+        ș "Wimp_BaseOfSprites" � H%,W%
X         � S%=0 S%=H% � S%=W%
b      �
l*    ș Sprop%,&100+40,S%,n$ � ,,,W%,H%
v    H%=H%<<2:W%=W%<<1
�    F%=F%�&100
�  �
�-I%=�crIcon(w%,X%,Y%,X%+W%,Y%+H%,F%,n$,S%)
�X%+=W%+4:=I%
�
�� �colourIcon(r%!0,r%!4,C%)
�r%!8=C%<<24:r%!12=&0F000000
� ș "Wimp_SetIconState",,r%:�
�
�$� �setIcon(r%!0,r%!4,r%!12,r%!8)
� ș "Wimp_SetIconState",,r%:�
�
�3� �deleteAllIcons(r%!0):ș GetWI,,r%:r%!4=r%!88
)ȕ r%!4>-1:ș DeleteI,,r%:r%!4-=1:�:�

#� �which_icon(H%,N%,B%,E%):� P%
 "ȕ N%>0:r%!P%=N%:P%+=4:N%-=1:�
*.r%!P%=-1:ș "Wimp_WhichIcon",H%,r%,B%,E%:�
4
>7---------------------------------------------------
H
R'         +++ Wimp Only routines +++
\
f� �initWimp
p#wbcol=1:tbcol= 2:sco=3:mbcol =2
z#wfcol=0:tfcol= 6:sci=1:tbcol2=9
�Wimp    = (1<<18) + (3<<6)
�'CreateW = Wimp+ 1:CreateI = Wimp+ 2
�'DeleteW = Wimp+ 3:DeleteI = Wimp+ 4
�'OpenW   = Wimp+ 5:CloseW  = Wimp+ 6
�'Poll    = Wimp+ 7:RedrawW = Wimp+ 8
�'UpdateW = Wimp+ 9:GetR    = Wimp+10
�'GetW    = Wimp+11:GetWI   = Wimp+12
�GetII   = Wimp+14
�'GetPI   = Wimp+15:Drag    = Wimp+16
�ForceRd = Wimp+17
�'CrMenu  = Wimp+20:DcMenu  = Wimp+21
�'OpenT   = Wimp+25:CloseT  = Wimp+26
�LoadT   = Wimp+27

WimpExt = &45780

$"Null_Reason_Code         =   0
."Redraw_Window_Request    =   1
8"Open_Window_Request      =   2
B"Close_Window_Request     =   3
L"Pointer_Leaving_Window   =   4
V"Pointer_Entering_Window  =   5
`"Mouse_Click              =   6
j"User_Drag_Box            =   7
t"Key_Pressed              =   8
~"Menu_Selection           =   9
�"Scroll_Request           =  10
�"Lose_Caret               =  11
�"Gain_Caret               =  12
�"User_Message             =  17
�"User_Message_Recorded    =  18
�"User_Message_Acknowledge =  19
�
�
�#Message_Quit           =      0
�#Message_DataSave       =      1
�#Message_DataSaveAck    =      2
�#Message_DataLoad       =      3
#Message_DataLoadAck    =      4

#Message_DataOpen       =      5
#Message_RAMFetch       =      6
#Message_RAMTransmit    =      7
(#Message_PreQuit        =      8
2#Message_PaletteChange  =      9
<#Message_FilerOpenDir   =   &400
F#Message_FilerCloseDir  =   &401
P#Message_SendHelp       =   &502
Z#Message_HelpText       =   &503
d#Message_Notify         = &40040
n#Message_MenuWarning    = &400C0
x#Message_ModeChange     = &400C1
�#Message_TaskInitialise = &400C2
�#Message_TaskCloseDown  = &400C3
�#Message_SlotSize       = &400C4
�#Message_SetSlot        = &400C5
�#Message_TaskNameRq     = &400C6
�#Message_TaskNameIs     = &400C7
�
�8ș "OS_SWINumberFromString",,"Wimp_SetColour" � Col%
�:ș "OS_SWINumberFromString",,"Wimp_ForceRedraw" � Fred
�=ș "OS_SWINumberFromString",,"Wimp_BaseOfSprites" � BaseS
�
�scrapFile$="<wimp$scrap>"
��

� �pollWimp
ș "WimpExt_PrePoll"
"ș Poll,0,q% � action%
,(ș "WimpExt_Action",task%,q%,action%
6Ȏ action% �
@   �  1 : �redraw_window(!q%)
J@  �  2 : �openW(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
T  �  3 : �closeW(!q%)
^0  �  6 : ș "WimpExt_SlabIcon",,,q%!12,q%!16
h8            �checkm(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
r*  �  7 : �enddrag(!q%,q%!4,q%!8,q%!12)
|   �  8 : �key_pressed(q%!24)
�  �  9 : �menuselect(q%)
�  � 11 : IGotCaret=�
�  � 12 : IGotCaret=�
�  � 17,18 : �message(q%)
�  �
��
�
� � �indirect(t$,B%,� P%):� Q%
�!Q%=B%+P%:$Q%=t$:P%+=�t$+1:=Q%
�
�)� �update(q%!0,q%!4,q%!8,q%!12,q%!16)
�2ș UpdateW,,q% � more%:�origin(q%+4,ox%,oy%):�
�
4� �getW(!q%)ș GetWI,,q%:�origin(q%+4,ox%,oy%):�

9� �origin(z%,� X%,� Y%)X%=z%!0-z%!16:Y%=z%!20-z%!12:�
&
0%� �getp(� B%,� H%,� I%,� X%,� Y%)
:;ș GetPI,,q%:X%=!q%:Y%=q%!4:B%=q%!8:H%=q%!12:I%=q%!16:�
D
N$� �forceRedraw(q%!0):�getW(q%!0)
X4ș "Wimp_ForceRedraw",-1,q%!4,q%!8,q%!12,q%!16:�
b
l<� �reOpen(q%!0)ș GetW,,q%:ș "WimpExt_OpenLinked",,q%:�
v
�7---------------------------------------------------
�
� � �dragIcon(h%,i%):�getW(h%)
� q%!0=h%:q%!4=i%:ș GetII,,q%
�q%!8+=ox%:q%!16+=ox%
�q%!12-=oy%:q%!20-=oy%
�)q%!24=0:q%!28=0:q%!32=1280:q%!36=1024
�q%!4=5:ș Drag,,q%:�
�
�7---------------------------------------------------
�
� ++++ Menu Encoding ++++
�

� �crMenu
� I%,L%,N%,P%,Q%,q%,i$,t$
� N%,t$:L%=�t$+1
 3Q%=menuSpace%+menuptr%:menuptr%+=28+24*N%:q%=Q%
*>� menuptr%>menuMax% � 0,"Menu buffer exceeded at '"+t$+"'"
4
>.� t$="" Q%!0=0:Q%!4=0:Q%!8=0 � $Q%=�t$,11)
H#Q%?12=tfcol:Q%?13=tbcol:Q%?14=6
R#Q%?15=0:Q%!20=40:Q%!24=0:Q%+=28
\� I%=1 � N%:� i$
f  �menuitem(i$,L%,I%=N%)
p  �
zq%!16=(L%+1)*16:=q%
�
�� �menuitem(i$,� L%,last%)
�� F%,P%,R%,v$,t$,o$
�-� tick%,dotted%,warning%,no_select%,type%
�last%=last%�&80
�tick%=(�i$,1,1)="*")�1
�dotted%=(�i$,2,1)="*")�2
�warning%=(�i$,3,1)="*")�8
�%no_select%=(�i$,4,1)="*")�(1<<22)
�#type%=��i$,5,1):i$=�i$,7,�i$-7)
� P%=�i$,"/"):R%=�i$,"/",P%+1)
�'v$=�i$,1,P%-1):t$=�i$,P%+1,R%-P%-1)
� o$=�i$,R%+1):� L%<�o$ L%=�o$
+Q%!0=tick% � dotted% � warning% � last%
'Q%!4=-1:Q%!8=&06003011 � no_select%
Ȏ type% �
$    � 0 : �m_normal(o$)
.$    � 1 : �m_normal(o$):Q%!4=�v$
8$    � 2 : �m_writeable(v$,t$,o$)
B$    � 3 : �m_normal(o$):Q%!4=�v$
L(     � 999,"Unknown menu item type"
V  �
`Q%+=24:�
j
t� �m_normal(o$)
~� �o$>11 � o$="!!!" �
�    Q%!8=Q%!8 � &100
�)    Q%!12=�indirect(o$,icons%,iconp%)
�    E%=(E%+4)�&FFFFFFFC
�    Q%!16=-1:Q%!20=�o$+1
�  �
�    $(Q%+12)=o$
�  �
��
�
�� �m_writeable(v$,t$,o$)
�(Q%!0=Q%!0 � 4:Q%!16=-1:� L%<12 L%=12
�!Q%!8=Q%!8 � (1<<8) � (15<<12)
 Q%!12=�v$:Q%!16=-1:Q%!20=�t$

3� o$>"" Q%!16=�indirect(o$,menuSpace%,menuptr%)
�

(7===================================================
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 42 61 73 69 63 53 61  |...!. > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ve$Dir>.!RunImag|
00000020  65 0d 00 14 17 f4 20 62  79 20 53 74 65 76 65 20  |e..... by Steve |
00000030  54 75 72 6e 62 75 6c 6c  0d 00 1e 22 f4 20 43 6f  |Turnbull...". Co|
00000040  70 79 72 69 67 68 74 20  28 63 29 20 31 39 38 39  |pyright (c) 1989|
00000050  2c 31 39 39 31 2c 31 39  39 33 0d 00 28 13 ee 20  |,1991,1993..(.. |
00000060  85 20 f2 72 75 6e 45 72  72 6f 72 3a e0 0d 00 32  |. .runError:...2|
00000070  0c f2 70 72 65 49 6e 69  74 0d 00 3c 19 ee 20 85  |..preInit..<.. .|
00000080  20 f2 72 75 6e 45 72 72  6f 72 3a f2 71 75 69 74  | .runError:.quit|
00000090  3a e0 0d 00 46 0e f2 75  73 65 72 49 6e 69 74 31  |:...F..userInit1|
000000a0  0d 00 50 10 f2 69 6e 69  74 53 70 72 69 74 65 73  |..P..initSprites|
000000b0  0d 00 5a 0d f2 69 6e 69  74 57 69 6d 70 0d 00 64  |..Z..initWimp..d|
000000c0  10 f2 69 6e 69 74 57 69  6e 64 6f 77 73 0d 00 6e  |..initWindows..n|
000000d0  0e f2 69 6e 69 74 4d 65  6e 75 73 0d 00 78 11 ee  |..initMenus..x..|
000000e0  20 85 20 f2 72 75 6e 45  72 72 6f 72 0d 00 82 05  | . .runError....|
000000f0  f5 0d 00 8c 0d f2 66 69  78 49 63 6f 6e 73 0d 00  |......fixIcons..|
00000100  96 0d f2 70 6f 6c 6c 57  69 6d 70 0d 00 a0 0a fd  |...pollWimp.....|
00000110  20 71 75 69 74 0d 00 aa  09 f2 71 75 69 74 0d 00  | quit.....quit..|
00000120  b4 05 e0 0d 00 be 04 0d  00 c8 0e dd 20 f2 70 72  |............ .pr|
00000130  65 49 6e 69 74 0d 00 d2  36 6d 79 4e 61 6d 65 24  |eInit...6myName$|
00000140  3d 22 4b 65 79 57 6f 72  64 20 54 68 65 73 61 75  |="KeyWord Thesau|
00000150  72 75 73 22 3a 6d 79 53  68 6f 72 74 4e 61 6d 65  |rus":myShortName|
00000160  24 3d 22 4b 65 79 57 6f  72 64 22 0d 00 dc 47 6d  |$="KeyWord"...Gm|
00000170  79 44 69 72 24 3d 22 3c  4b 65 79 57 6f 72 64 24  |yDir$="<KeyWord$|
00000180  64 69 72 3e 22 3a 73 63  72 61 70 44 69 72 24 3d  |dir>":scrapDir$=|
00000190  6d 79 44 69 72 24 3a 72  65 73 44 69 72 24 3d 6d  |myDir$:resDir$=m|
000001a0  79 44 69 72 24 2b 22 2e  52 65 73 6f 75 72 63 65  |yDir$+".Resource|
000001b0  73 22 0d 00 e6 27 de 20  71 25 26 34 30 30 2c 72  |s"...'. q%&400,r|
000001c0  25 26 34 30 30 2c 65 72  72 62 6c 6b 25 32 35 36  |%&400,errblk%256|
000001d0  2c 62 75 66 25 26 33 30  30 0d 00 f0 3f c8 99 20  |,buf%&300...?.. |
000001e0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000001f0  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000200  6d 79 4e 61 6d 65 24 20  b8 20 76 65 72 73 69 6f  |myName$ . versio|
00000210  6e 25 2c 74 61 73 6b 25  0d 00 fa 2a c8 99 20 22  |n%,task%...*.. "|
00000220  57 69 6d 70 45 78 74 5f  49 6e 69 74 69 61 6c 69  |WimpExt_Initiali|
00000230  73 65 22 2c 35 2c 74 61  73 6b 25 2c 25 31 30 30  |se",5,task%,%100|
00000240  31 30 0d 01 04 29 73 61  76 69 6e 67 52 65 66 3d  |10...)savingRef=|
00000250  a3 3a 6c 6f 61 64 69 6e  67 52 65 66 3d a3 3a 64  |.:loadingRef=.:d|
00000260  72 61 67 67 69 6e 67 3d  a3 3a e1 0d 01 0e 04 0d  |ragging=.:......|
00000270  01 18 0b dd 20 f2 71 75  69 74 0d 01 22 20 c8 99  |.... .quit.." ..|
00000280  20 22 57 69 6d 70 45 78  74 5f 43 6c 6f 73 65 44  | "WimpExt_CloseD|
00000290  6f 77 6e 22 2c 74 61 73  6b 25 0d 01 2c 27 c8 99  |own",task%..,'..|
000002a0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
000002b0  22 2c 74 61 73 6b 25 2c  26 34 42 35 33 34 31 35  |",task%,&4B53415|
000002c0  34 0d 01 36 05 e1 0d 01  40 04 0d 01 4a 22 dd 20  |4..6....@...J". |
000002d0  f2 75 73 65 72 49 6e 69  74 31 3a c8 99 20 22 48  |.userInit1:.. "H|
000002e0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 01 54 2e  |ourglass_On"..T.|
000002f0  6d 24 3d c4 32 30 30 2c  22 2e 22 29 3a 6e 24 3d  |m$=.200,"."):n$=|
00000300  6d 24 3a 73 24 3d 6d 24  3a 74 24 3d 6d 24 3a 75  |m$:s$=m$:t$=m$:u|
00000310  24 3d 6d 24 3a 76 24 3d  6d 24 0d 01 5e 27 6d 24  |$=m$:v$=m$..^'m$|
00000320  3d 22 22 3a 6e 24 3d 22  22 3a 73 24 3d 22 22 3a  |="":n$="":s$="":|
00000330  74 24 3d 22 22 3a 75 24  3d 22 22 3a 76 24 3d 22  |t$="":u$="":v$="|
00000340  22 0d 01 68 26 6e 75 6d  57 6f 72 64 73 25 3d 30  |"..h&numWords%=0|
00000350  3a 6d 61 78 57 6f 72 64  73 25 3d 38 3a 77 62 53  |:maxWords%=8:wbS|
00000360  69 7a 3d 26 33 30 30 0d  01 72 1c de 20 64 61 74  |iz=&300..r.. dat|
00000370  61 31 20 38 2c 77 72 64  42 75 66 25 77 62 53 69  |a1 8,wrdBuf%wbSi|
00000380  7a 2a 38 0d 01 7c 23 de  20 77 72 64 50 74 72 25  |z*8..|#. wrdPtr%|
00000390  77 62 53 69 7a 2a 34 2c  66 69 6c 50 74 72 25 77  |wbSiz*4,filPtr%w|
000003a0  62 53 69 7a 2a 34 0d 01  86 21 f2 6c 6f 61 64 28  |bSiz*4...!.load(|
000003b0  22 4b 57 57 50 54 22 2c  4b 57 77 70 74 25 2c 57  |"KWWPT",KWwpt%,W|
000003c0  50 54 73 69 7a 25 29 0d  01 90 18 6e 6f 31 30 57  |PTsiz%)....no10W|
000003d0  6f 72 64 73 25 3d 57 50  54 73 69 7a 25 2f 38 0d  |ords%=WPTsiz%/8.|
000003e0  01 9a 1c f2 6c 6f 61 64  28 22 4b 57 53 55 42 22  |....load("KWSUB"|
000003f0  2c 4b 57 73 75 62 25 2c  4a 25 29 0d 01 a4 1c f2  |,KWsub%,J%).....|
00000400  6c 6f 61 64 28 22 4b 57  53 50 54 22 2c 4b 57 73  |load("KWSPT",KWs|
00000410  70 74 25 2c 4a 25 29 0d  01 ae 21 71 75 69 74 3d  |pt%,J%)...!quit=|
00000420  a3 3a 74 68 65 53 74 61  74 65 3d 30 3a 6f 6c 64  |.:theState=0:old|
00000430  53 74 61 74 65 3d 2d 31  0d 01 b8 0e 68 69 6c 69  |State=-1....hili|
00000440  74 65 25 3d 2d 31 0d 01  c2 18 c8 99 20 22 48 6f  |te%=-1...... "Ho|
00000450  75 72 67 6c 61 73 73 5f  4f 66 66 22 3a e1 0d 01  |urglass_Off":...|
00000460  cc 04 0d 01 d6 19 dd 20  f2 6c 6f 61 64 28 46 24  |....... .load(F$|
00000470  2c f8 20 50 25 2c f8 20  58 25 29 0d 01 e0 15 46  |,. P%,. X%)....F|
00000480  24 3d 72 65 73 44 69 72  24 2b 22 2e 22 2b 46 24  |$=resDir$+"."+F$|
00000490  0d 01 ea 1e c8 99 20 22  4f 53 5f 46 69 6c 65 22  |...... "OS_File"|
000004a0  2c 35 2c 46 24 20 b8 20  2c 2c 2c 2c 58 25 0d 01  |,5,F$ . ,,,,X%..|
000004b0  f4 23 de 20 50 25 58 25  2b 34 3a c8 99 20 22 4f  |.#. P%X%+4:.. "O|
000004c0  53 5f 46 69 6c 65 22 2c  26 46 46 2c 46 24 2c 50  |S_File",&FF,F$,P|
000004d0  25 0d 01 fe 05 e1 0d 02  08 04 0d 02 12 37 2d 2d  |%............7--|
000004e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000510  2d 0d 02 1c 04 0d 02 26  26 20 20 20 20 20 20 20  |-......&&       |
00000520  20 2b 2b 2b 20 55 73 65  72 20 6d 61 69 6e 20 72  | +++ User main r|
00000530  6f 75 74 69 6e 65 73 20  2b 2b 2b 0d 02 30 04 0d  |outines +++..0..|
00000540  02 3a 0f dd 20 f2 66 69  78 49 63 6f 6e 73 0d 02  |.:.. .fixIcons..|
00000550  44 1a e7 20 74 68 65 53  74 61 74 65 3c 3e 6f 6c  |D.. theState<>ol|
00000560  64 53 74 61 74 65 20 8c  0d 02 4e 2a 20 20 20 20  |dState ...N*    |
00000570  e7 20 74 68 65 53 74 61  74 65 3d 30 20 43 25 3d  |. theState=0 C%=|
00000580  30 3a 4b 25 3d 37 20 8b  20 43 25 3d 37 3a 4b 25  |0:K%=7 . C%=7:K%|
00000590  3d 30 0d 02 58 25 20 20  20 20 f2 63 6f 6c 6f 75  |=0..X%    .colou|
000005a0  72 49 63 6f 6e 28 53 72  63 57 2c 77 6f 72 64 49  |rIcon(SrcW,wordI|
000005b0  63 6f 6e 2c 43 25 29 0d  02 62 25 20 20 20 20 f2  |con,C%)..b%    .|
000005c0  63 6f 6c 6f 75 72 49 63  6f 6e 28 53 72 63 57 2c  |colourIcon(SrcW,|
000005d0  63 61 74 65 49 63 6f 6e  2c 4b 25 29 0d 02 6c 19  |cateIcon,K%)..l.|
000005e0  20 20 20 20 6f 6c 64 53  74 61 74 65 3d 74 68 65  |    oldState=the|
000005f0  53 74 61 74 65 0d 02 76  07 20 20 cd 0d 02 80 05  |State..v.  .....|
00000600  e1 0d 02 8a 04 0d 02 94  16 dd 20 f2 6d 61 6b 65  |.......... .make|
00000610  4d 61 74 63 68 28 f8 20  50 25 29 0d 02 9e 28 ea  |Match(. P%)...(.|
00000620  20 78 24 2c 4d 25 3a 78  24 3d a4 6c 6f 28 c0 24  | x$,M%:x$=.lo(.$|
00000630  73 72 63 42 75 66 25 2b  22 20 20 20 20 20 22 2c  |srcBuf%+"     ",|
00000640  35 29 29 0d 02 a8 2a 50  25 3d 28 a4 63 68 6f 70  |5))...*P%=(.chop|
00000650  28 30 2c 6e 6f 31 30 57  6f 72 64 73 25 2d 31 29  |(0,no10Words%-1)|
00000660  3c 3c 33 29 2b 4b 57 77  70 74 25 3a e1 0d 02 b2  |<<3)+KWwpt%:....|
00000670  04 0d 02 bc 30 dd 20 a4  63 68 6f 70 28 42 25 2c  |....0. .chop(B%,|
00000680  54 25 29 3a 4d 25 3d 28  42 25 2b 54 25 29 2f 32  |T%):M%=(B%+T%)/2|
00000690  3a e7 20 94 28 42 25 2d  54 25 29 3d 31 20 3d 42  |:. .(B%-T%)=1 =B|
000006a0  25 0d 02 c6 31 e7 20 78  24 3e a4 73 35 28 4d 25  |%...1. x$>.s5(M%|
000006b0  3c 3c 33 29 20 3d a4 63  68 6f 70 28 4d 25 2c 54  |<<3) =.chop(M%,T|
000006c0  25 29 20 8b 20 3d a4 63  68 6f 70 28 42 25 2c 4d  |%) . =.chop(B%,M|
000006d0  25 29 0d 02 d0 04 0d 02  da 37 dd 20 a4 73 35 28  |%).......7. .s5(|
000006e0  4a 25 29 3a 4a 25 2b 3d  4b 57 77 70 74 25 3a 3d  |J%):J%+=KWwpt%:=|
000006f0  bd 4a 25 3f 30 2b bd 4a  25 3f 31 2b bd 4a 25 3f  |.J%?0+.J%?1+.J%?|
00000700  32 2b bd 4a 25 3f 33 2b  bd 4a 25 3f 34 0d 02 e4  |2+.J%?3+.J%?4...|
00000710  04 0d 02 ee 31 dd 20 a4  6c 6f 28 24 62 75 66 25  |....1. .lo($buf%|
00000720  29 ea 41 25 2c 5a 25 2c  50 25 3a 50 25 3d 62 75  |).A%,Z%,P%:P%=bu|
00000730  66 25 3a 41 25 3d 97 22  41 22 3a 5a 25 3d 97 22  |f%:A%=."A":Z%=."|
00000740  5a 22 0d 02 f8 26 c8 95  3f 50 25 3c 3e 31 33 3a  |Z"...&..?P%<>13:|
00000750  e7 3f 50 25 3e 3d 41 25  e7 3f 50 25 3c 3d 5a 25  |.?P%>=A%.?P%<=Z%|
00000760  3a 3f 50 25 2b 3d 33 32  0d 03 02 12 50 25 2b 3d  |:?P%+=32....P%+=|
00000770  31 3a ce 3a 3d 24 62 75  66 25 0d 03 0c 04 0d 03  |1:.:=$buf%......|
00000780  16 13 dd 20 f2 6d 61 6b  65 4c 69 73 74 28 50 25  |... .makeList(P%|
00000790  29 0d 03 20 2a c8 99 20  22 48 6f 75 72 67 6c 61  |).. *.. "Hourgla|
000007a0  73 73 5f 4f 6e 22 3a 50  25 3d 28 50 25 21 34 3e  |ss_On":P%=(P%!4>|
000007b0  3e 38 29 80 26 46 46 46  46 46 46 0d 03 2a 2e 6e  |>8).&FFFFFF..*.n|
000007c0  75 6d 57 6f 72 64 73 25  3d 30 3a f2 73 65 74 4e  |umWords%=0:.setN|
000007d0  65 77 45 78 74 65 6e 74  3a 70 74 72 57 6f 72 64  |ewExtent:ptrWord|
000007e0  25 3d 77 72 64 42 75 66  25 0d 03 34 2c c8 99 20  |%=wrdBuf%..4,.. |
000007f0  22 4f 53 5f 46 69 6e 64  22 2c 26 43 30 2c 72 65  |"OS_Find",&C0,re|
00000800  73 44 69 72 24 2b 22 2e  4b 57 44 41 54 22 20 b8  |sDir$+".KWDAT" .|
00000810  20 64 61 74 25 0d 03 3e  24 f2 67 65 74 57 6f 72  | dat%..>$.getWor|
00000820  64 73 28 a4 6c 6f 28 24  73 72 63 42 75 66 25 29  |ds(.lo($srcBuf%)|
00000830  2c 50 25 2c 64 61 74 25  29 0d 03 48 29 c8 99 20  |,P%,dat%)..H).. |
00000840  22 4f 53 5f 46 69 6e 64  22 2c 2c 64 61 74 25 3a  |"OS_Find",,dat%:|
00000850  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00000860  66 22 0d 03 52 05 e1 0d  03 5c 04 0d 03 66 19 dd  |f"..R....\...f..|
00000870  20 f2 67 65 74 57 6f 72  64 73 28 77 24 2c 50 25  | .getWords(w$,P%|
00000880  2c 46 25 29 0d 03 70 20  ea 20 6c 61 73 74 57 6f  |,F%)..p . lastWo|
00000890  72 64 24 3a 77 62 49 6e  64 25 3d 30 3a cf 23 46  |rd$:wbInd%=0:.#F|
000008a0  25 3d 50 25 0d 03 7a 24  c8 95 20 a4 6d 61 74 63  |%=P%..z$.. .matc|
000008b0  68 57 6f 72 64 28 77 24  2c 46 25 29 20 80 20 ac  |hWord(w$,F%) . .|
000008c0  c5 23 46 25 3a ce 3a e1  0d 03 84 04 0d 03 8e 17  |.#F%:.:.........|
000008d0  dd 20 a4 6d 61 74 63 68  57 6f 72 64 28 77 24 2c  |. .matchWord(w$,|
000008e0  46 25 29 0d 03 98 21 ea  20 4c 25 2c 53 25 2c 4e  |F%)...!. L%,S%,N|
000008f0  25 2c 62 24 2c 6c 24 2c  51 25 2c 58 25 3a 51 25  |%,b$,l$,Q%,X%:Q%|
00000900  3d a9 77 24 0d 03 a2 2c  6f 6c 64 50 25 3d 8f 23  |=.w$...,oldP%=.#|
00000910  46 25 3a f2 67 65 74 57  6f 72 64 28 46 25 2c 4c  |F%:.getWord(F%,L|
00000920  25 2c 53 25 2c 62 24 2c  4e 25 2c 62 75 66 25 29  |%,S%,b$,N%,buf%)|
00000930  0d 03 ac 1f e7 20 53 25  3e 30 20 62 24 3d c0 6c  |..... S%>0 b$=.l|
00000940  61 73 74 57 6f 72 64 24  2c 53 25 29 2b 62 24 0d  |astWord$,S%)+b$.|
00000950  03 b6 1b 6c 61 73 74 57  6f 72 64 24 3d 62 24 3a  |...lastWord$=b$:|
00000960  6c 24 3d c0 62 24 2c 51  25 29 0d 03 c0 0a c8 8e  |l$=.b$,Q%)......|
00000970  20 b9 20 ca 0d 03 ca 16  20 20 20 20 c9 20 6c 24  | . .....    . l$|
00000980  3c 77 24 20 3a 20 58 25  3d b9 0d 03 d4 36 20 20  |<w$ : X%=....6  |
00000990  20 20 c9 20 6c 24 3d 77  24 20 3a 20 77 72 64 50  |  . l$=w$ : wrdP|
000009a0  74 72 25 21 28 6e 75 6d  57 6f 72 64 73 25 2a 34  |tr%!(numWords%*4|
000009b0  29 3d 77 62 49 6e 64 25  2b 77 72 64 42 75 66 25  |)=wbInd%+wrdBuf%|
000009c0  0d 03 de 30 20 20 20 20  20 20 20 20 20 20 20 20  |...0            |
000009d0  20 20 20 20 20 66 69 6c  50 74 72 25 21 28 6e 75  |     filPtr%!(nu|
000009e0  6d 57 6f 72 64 73 25 2a  34 29 3d 6f 6c 64 50 25  |mWords%*4)=oldP%|
000009f0  0d 03 e8 35 20 20 20 20  20 20 20 20 20 20 20 20  |...5            |
00000a00  20 20 20 20 20 24 28 77  72 64 42 75 66 25 2b 77  |     $(wrdBuf%+w|
00000a10  62 49 6e 64 25 29 3d 62  24 3a 77 62 49 6e 64 25  |bInd%)=b$:wbInd%|
00000a20  2b 3d a9 62 24 0d 03 f2  3e 20 20 20 20 20 20 20  |+=.b$...>       |
00000a30  20 20 20 20 20 20 20 20  20 20 77 72 64 42 75 66  |          wrdBuf|
00000a40  25 3f 28 77 62 49 6e 64  25 2d 31 29 3d 77 72 64  |%?(wbInd%-1)=wrd|
00000a50  42 75 66 25 3f 28 77 62  49 6e 64 25 2d 31 29 84  |Buf%?(wbInd%-1).|
00000a60  26 38 30 0d 03 fc 26 20  20 20 20 20 20 20 20 20  |&80...&         |
00000a70  20 20 20 20 20 20 20 20  58 25 3d b9 3a 6e 75 6d  |        X%=.:num|
00000a80  57 6f 72 64 73 25 2b 3d  31 0d 04 06 16 20 20 20  |Words%+=1....   |
00000a90  20 c9 20 6c 24 3e 77 24  20 3a 20 58 25 3d a3 0d  | . l$>w$ : X%=..|
00000aa0  04 10 07 20 20 cb 0d 04  1a 07 3d 58 25 0d 04 24  |...  .....=X%..$|
00000ab0  04 0d 04 2e 29 dd 20 f2  67 65 74 57 6f 72 64 28  |....). .getWord(|
00000ac0  46 25 2c f8 20 4c 25 2c  f8 20 53 25 2c f8 20 62  |F%,. L%,. S%,. b|
00000ad0  24 2c f8 20 4e 25 2c 42  25 29 0d 04 38 28 ea 20  |$,. N%,B%)..8(. |
00000ae0  43 25 2c 4b 25 3a 4c 25  3d 9a 23 46 25 3a 53 25  |C%,K%:L%=.#F%:S%|
00000af0  3d 9a 23 46 25 3a 4b 25  3d 8f 23 46 25 2b 4c 25  |=.#F%:K%=.#F%+L%|
00000b00  2d 32 0d 04 42 26 f5 20  43 25 3d 9a 23 46 25 3a  |-2..B&. C%=.#F%:|
00000b10  62 24 3d 62 24 2b bd 28  43 25 80 26 37 46 29 3a  |b$=b$+.(C%.&7F):|
00000b20  fd 20 43 25 3e 26 37 46  0d 04 4c 2a f5 20 42 25  |. C%>&7F..L*. B%|
00000b30  3f 4e 25 3d 9a 23 46 25  3a 4e 25 2b 3d 31 3a fd  |?N%=.#F%:N%+=1:.|
00000b40  20 8f 23 46 25 3d 4b 25  3a 4e 25 3d 4e 25 81 32  | .#F%=K%:N%=N%.2|
00000b50  3a e1 0d 04 56 04 0d 04  60 10 dd 20 f2 64 72 61  |:...V...`.. .dra|
00000b60  77 57 6f 72 64 73 0d 04  6a 14 ea 20 42 25 2c 4a  |wWords..j.. B%,J|
00000b70  25 2c 4e 25 2c 50 25 2c  59 25 0d 04 74 13 e7 20  |%,N%,P%,Y%..t.. |
00000b80  6e 75 6d 57 6f 72 64 73  25 3e 30 20 8c 0d 04 7e  |numWords%>0 ...~|
00000b90  23 20 20 4e 25 3d 94 28  6e 75 6d 57 6f 72 64 73  |#  N%=.(numWords|
00000ba0  25 2a 71 25 21 32 34 2f  45 78 74 65 6e 74 25 29  |%*q%!24/Extent%)|
00000bb0  0d 04 88 21 20 20 6d 61  78 57 6f 72 64 73 25 3d  |...!  maxWords%=|
00000bc0  28 71 25 21 31 36 2d 71  25 21 38 29 2f 33 32 2b  |(q%!16-q%!8)/32+|
00000bd0  31 0d 04 92 07 20 20 f5  0d 04 9c 2d 20 20 20 20  |1....  ....-    |
00000be0  f2 70 72 69 6e 74 57 6f  72 64 28 a4 67 65 74 77  |.printWord(.getw|
00000bf0  64 28 77 72 64 50 74 72  25 21 28 4e 25 2a 34 29  |d(wrdPtr%!(N%*4)|
00000c00  29 2c 4e 25 29 0d 04 a6  13 20 20 20 20 59 25 2b  |),N%)....    Y%+|
00000c10  3d 31 3a 4e 25 2b 3d 31  0d 04 b0 25 20 20 20 20  |=1:N%+=1...%    |
00000c20  fd 20 59 25 3e 6d 61 78  57 6f 72 64 73 25 20 84  |. Y%>maxWords% .|
00000c30  20 4e 25 3d 6e 75 6d 57  6f 72 64 73 25 0d 04 ba  | N%=numWords%...|
00000c40  07 20 20 cd 0d 04 c4 05  e1 0d 04 ce 04 0d 04 d8  |.  .............|
00000c50  16 dd f2 70 72 69 6e 74  57 6f 72 64 28 77 24 2c  |...printWord(w$,|
00000c60  4e 25 29 0d 04 e2 13 ea  20 79 25 3a 79 25 3d a4  |N%)..... y%:y%=.|
00000c70  77 79 28 4e 25 29 0d 04  ec 12 ec 20 6f 78 25 2b  |wy(N%)..... ox%+|
00000c80  38 2c 79 25 3a f1 77 24  0d 04 f6 12 e7 20 4e 25  |8,y%:.w$..... N%|
00000c90  3d 68 69 6c 69 74 65 25  20 8c 0d 05 00 25 20 20  |=hilite% ....%  |
00000ca0  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |  .. "Wimp_SetCo|
00000cb0  6c 6f 75 72 22 2c 25 30  31 30 30 30 31 31 31 0d  |lour",%01000111.|
00000cc0  05 0a 1c 20 20 20 20 c8  93 c8 90 6f 78 25 2d 38  |...    ....ox%-8|
00000cd0  2c 79 25 2c 34 30 30 2c  2d 32 38 0d 05 14 25 20  |,y%,400,-28...% |
00000ce0  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |   .. "Wimp_SetC|
00000cf0  6f 6c 6f 75 72 22 2c 25  30 30 30 30 30 31 31 31  |olour",%00000111|
00000d00  0d 05 1e 07 20 20 cd 0d  05 28 05 e1 0d 05 32 04  |....  ...(....2.|
00000d10  0d 05 3c 19 dd a4 77 79  28 4e 25 29 3d 2d 4e 25  |..<...wy(N%)=-N%|
00000d20  2a 33 32 2d 6f 79 25 2d  34 0d 05 46 04 0d 05 50  |*32-oy%-4..F...P|
00000d30  3d dd 20 a4 67 65 74 77  64 28 50 25 29 ea 77 24  |=. .getwd(P%).w$|
00000d40  3a c8 95 3f 50 25 3c 26  38 30 3a 77 24 2b 3d bd  |:..?P%<&80:w$+=.|
00000d50  3f 50 25 3a 50 25 2b 3d  31 3a ce 3a 3d 77 24 2b  |?P%:P%+=1:.:=w$+|
00000d60  bd 28 3f 50 25 80 26 37  46 29 0d 05 5a 04 0d 05  |.(?P%.&7F)..Z...|
00000d70  64 22 dd 20 f2 74 68 65  73 61 75 72 75 73 3a c8  |d". .thesaurus:.|
00000d80  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00000d90  0d 05 6e 25 ea 20 46 25  2c 4c 25 2c 4e 25 2c 62  |..n%. F%,L%,N%,b|
00000da0  24 2c 77 24 3a 77 24 3d  a4 6c 6f 28 24 73 72 63  |$,w$:w$=.lo($src|
00000db0  42 75 66 25 29 0d 05 78  1a c8 95 20 4e 25 3c 6e  |Buf%)..x... N%<n|
00000dc0  75 6d 57 6f 72 64 73 25  20 80 20 46 25 3d a3 0d  |umWords% . F%=..|
00000dd0  05 82 24 20 20 46 25 3d  28 77 24 3d a4 67 65 74  |..$  F%=(w$=.get|
00000de0  77 64 28 77 72 64 50 74  72 25 21 28 4e 25 2a 34  |wd(wrdPtr%!(N%*4|
00000df0  29 29 29 0d 05 8c 0d 20  20 4e 25 2b 3d 31 3a ce  |)))....  N%+=1:.|
00000e00  0d 05 96 21 6e 75 6d 57  6f 72 64 73 25 3d 30 3a  |...!numWords%=0:|
00000e10  e7 20 46 25 20 f2 67 65  74 53 75 62 6a 65 63 74  |. F% .getSubject|
00000e20  73 0d 05 a0 24 f2 73 65  74 4e 65 77 45 78 74 65  |s...$.setNewExte|
00000e30  6e 74 3a f2 66 6f 72 63  65 52 65 64 72 61 77 28  |nt:.forceRedraw(|
00000e40  57 72 64 57 29 0d 05 aa  18 c8 99 20 22 48 6f 75  |WrdW)...... "Hou|
00000e50  72 67 6c 61 73 73 5f 4f  66 66 22 3a e1 0d 05 b4  |rglass_Off":....|
00000e60  04 0d 05 be 12 dd 20 f2  67 65 74 53 75 62 6a 65  |...... .getSubje|
00000e70  63 74 73 0d 05 c8 1d ea  20 4c 25 2c 53 25 2c 56  |cts..... L%,S%,V|
00000e80  25 3a 4e 25 2d 3d 31 3a  77 62 49 6e 64 25 3d 30  |%:N%-=1:wbInd%=0|
00000e90  0d 05 d2 2a c8 99 20 22  4f 53 5f 46 69 6e 64 22  |...*.. "OS_Find"|
00000ea0  2c 26 43 30 2c 72 65 73  44 69 72 24 2b 22 2e 4b  |,&C0,resDir$+".K|
00000eb0  57 44 41 54 22 20 b8 20  46 25 0d 05 dc 17 cf 23  |WDAT" . F%.....#|
00000ec0  46 25 3d 66 69 6c 50 74  72 25 21 28 4e 25 2a 34  |F%=filPtr%!(N%*4|
00000ed0  29 0d 05 e6 21 f2 67 65  74 57 6f 72 64 28 46 25  |)...!.getWord(F%|
00000ee0  2c 4c 25 2c 53 25 2c 62  24 2c 56 25 2c 62 75 66  |,L%,S%,b$,V%,buf|
00000ef0  25 29 0d 05 f0 14 c8 99  20 22 4f 53 5f 46 69 6e  |%)...... "OS_Fin|
00000f00  64 22 2c 2c 46 25 0d 05  fa 11 e3 20 4c 25 3d 30  |d",,F%..... L%=0|
00000f10  20 b8 20 56 25 2d 31 0d  06 04 26 20 20 50 25 3d  | . V%-1...&  P%=|
00000f20  4b 57 73 75 62 25 3a 57  25 3d 28 62 75 66 25 21  |KWsub%:W%=(buf%!|
00000f30  28 4c 25 2a 32 29 80 26  46 46 46 46 29 0d 06 0e  |(L%*2).&FFFF)...|
00000f40  1d 20 20 c8 95 20 57 25  3e 31 3a 50 25 2b 3d 3f  |.  .. W%>1:P%+=?|
00000f50  50 25 3a 57 25 2d 3d 31  3a ce 0d 06 18 23 20 20  |P%:W%-=1:....#  |
00000f60  77 72 64 50 74 72 25 21  28 4c 25 2a 34 29 3d 77  |wrdPtr%!(L%*4)=w|
00000f70  62 49 6e 64 25 2b 77 72  64 42 75 66 25 0d 06 22  |bInd%+wrdBuf%.."|
00000f80  27 20 20 66 69 6c 50 74  72 25 21 28 4c 25 2a 34  |'  filPtr%!(L%*4|
00000f90  29 3d 50 25 3a 62 24 3d  a4 67 65 74 77 64 28 50  |)=P%:b$=.getwd(P|
00000fa0  25 2b 32 29 0d 06 2c 26  20 20 24 28 77 72 64 42  |%+2)..,&  $(wrdB|
00000fb0  75 66 25 2b 77 62 49 6e  64 25 29 3d 62 24 3a 77  |uf%+wbInd%)=b$:w|
00000fc0  62 49 6e 64 25 2b 3d a9  62 24 0d 06 36 2f 20 20  |bInd%+=.b$..6/  |
00000fd0  77 72 64 42 75 66 25 3f  28 77 62 49 6e 64 25 2d  |wrdBuf%?(wbInd%-|
00000fe0  31 29 3d 77 72 64 42 75  66 25 3f 28 77 62 49 6e  |1)=wrdBuf%?(wbIn|
00000ff0  64 25 2d 31 29 84 26 38  30 0d 06 40 14 20 20 6e  |d%-1).&80..@.  n|
00001000  75 6d 57 6f 72 64 73 25  2b 3d 31 3a ed 0d 06 4a  |umWords%+=1:...J|
00001010  10 74 68 65 53 74 61 74  65 3d 31 3a e1 0d 06 54  |.theState=1:...T|
00001020  04 0d 06 5e 19 dd 20 f2  67 65 74 43 61 74 65 67  |...^.. .getCateg|
00001030  6f 72 79 28 4b 25 2c 51  25 29 0d 06 68 14 ea 20  |ory(K%,Q%)..h.. |
00001040  49 25 2c 4a 25 2c 4c 25  2c 4d 25 2c 56 25 0d 06  |I%,J%,L%,M%,V%..|
00001050  72 21 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |r!.. "Hourglass_|
00001060  4f 6e 22 3a 6e 75 6d 57  6f 72 64 73 25 3d 30 0d  |On":numWords%=0.|
00001070  06 7c 2c c8 99 20 22 4f  53 5f 46 69 6e 64 22 2c  |.|,.. "OS_Find",|
00001080  26 43 30 2c 72 65 73 44  69 72 24 2b 22 2e 4b 57  |&C0,resDir$+".KW|
00001090  44 41 54 22 20 b8 20 64  61 74 25 0d 06 86 11 e3  |DAT" . dat%.....|
000010a0  20 4c 25 3d 30 20 b8 20  4b 25 2d 31 0d 06 90 22  | L%=0 . K%-1..."|
000010b0  20 20 4a 25 3d 28 4b 57  73 70 74 25 21 51 25 29  |  J%=(KWspt%!Q%)|
000010c0  80 26 46 46 46 46 46 46  3a 51 25 2b 3d 33 0d 06  |.&FFFFFF:Q%+=3..|
000010d0  9a 32 20 20 49 25 3d 4b  57 77 70 74 25 21 28 28  |.2  I%=KWwpt%!((|
000010e0  a4 70 63 68 6f 70 28 30  2c 6e 6f 31 30 57 6f 72  |.pchop(0,no10Wor|
000010f0  64 73 25 2d 31 29 3c 3c  33 29 2b 34 29 3e 3e 38  |ds%-1)<<3)+4)>>8|
00001100  0d 06 a4 20 20 20 f2 6d  61 74 63 68 43 61 74 65  |...   .matchCate|
00001110  67 6f 72 79 28 4a 25 2c  49 25 2c 64 61 74 25 29  |gory(J%,I%,dat%)|
00001120  0d 06 ae 07 20 20 ed 0d  06 b8 24 f2 73 65 74 4e  |....  ....$.setN|
00001130  65 77 45 78 74 65 6e 74  3a f2 66 6f 72 63 65 52  |ewExtent:.forceR|
00001140  65 64 72 61 77 28 57 72  64 57 29 0d 06 c2 29 c8  |edraw(WrdW)...).|
00001150  99 20 22 4f 53 5f 46 69  6e 64 22 2c 2c 64 61 74  |. "OS_Find",,dat|
00001160  25 3a c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |%:.. "Hourglass_|
00001170  4f 66 66 22 0d 06 cc 10  74 68 65 53 74 61 74 65  |Off"....theState|
00001180  3d 30 3a e1 0d 06 d6 04  0d 06 e0 31 dd 20 a4 70  |=0:........1. .p|
00001190  63 68 6f 70 28 42 25 2c  54 25 29 3a 4d 25 3d 28  |chop(B%,T%):M%=(|
000011a0  42 25 2b 54 25 29 2f 32  3a e7 20 94 28 42 25 2d  |B%+T%)/2:. .(B%-|
000011b0  54 25 29 3d 31 20 3d 42  25 0d 06 ea 43 56 25 3d  |T%)=1 =B%...CV%=|
000011c0  28 4b 57 77 70 74 25 21  28 4d 25 2a 38 2b 34 29  |(KWwpt%!(M%*8+4)|
000011d0  3e 3e 38 29 3a e7 20 4a  25 3e 56 25 20 3d a4 70  |>>8):. J%>V% =.p|
000011e0  63 68 6f 70 28 4d 25 2c  54 25 29 20 8b 20 3d a4  |chop(M%,T%) . =.|
000011f0  70 63 68 6f 70 28 42 25  2c 4d 25 29 0d 06 f4 04  |pchop(B%,M%)....|
00001200  0d 06 fe 1e dd 20 f2 6d  61 74 63 68 43 61 74 65  |..... .matchCate|
00001210  67 6f 72 79 28 55 25 2c  56 25 2c 46 25 29 0d 07  |gory(U%,V%,F%)..|
00001220  08 24 ea 20 4c 25 2c 53  25 2c 4e 25 2c 62 24 2c  |.$. L%,S%,N%,b$,|
00001230  6c 24 2c 51 25 2c 58 25  2c 6c 61 73 74 57 6f 72  |l$,Q%,X%,lastWor|
00001240  64 24 0d 07 12 0b cf 23  46 25 3d 56 25 0d 07 1c  |d$.....#F%=V%...|
00001250  05 f5 0d 07 26 16 20 20  6f 6c 64 50 25 3d 8f 23  |....&.  oldP%=.#|
00001260  46 25 3a 62 24 3d 22 22  0d 07 30 23 20 20 f2 67  |F%:b$=""..0#  .g|
00001270  65 74 57 6f 72 64 28 46  25 2c 4c 25 2c 53 25 2c  |etWord(F%,L%,S%,|
00001280  62 24 2c 4e 25 2c 62 75  66 25 29 0d 07 3a 21 20  |b$,N%,buf%)..:! |
00001290  20 e7 20 53 25 3e 30 20  62 24 3d c0 6c 61 73 74  | . S%>0 b$=.last|
000012a0  57 6f 72 64 24 2c 53 25  29 2b 62 24 0d 07 44 12  |Word$,S%)+b$..D.|
000012b0  20 20 6c 61 73 74 57 6f  72 64 24 3d 62 24 0d 07  |  lastWord$=b$..|
000012c0  4e 12 20 20 e7 20 6f 6c  64 50 25 3d 55 25 20 8c  |N.  . oldP%=U% .|
000012d0  0d 07 58 2e 20 20 20 20  20 20 77 72 64 50 74 72  |..X.      wrdPtr|
000012e0  25 21 28 6e 75 6d 57 6f  72 64 73 25 2a 34 29 3d  |%!(numWords%*4)=|
000012f0  77 62 49 6e 64 25 2b 77  72 64 42 75 66 25 0d 07  |wbInd%+wrdBuf%..|
00001300  62 25 20 20 20 20 20 20  66 69 6c 50 74 72 25 21  |b%      filPtr%!|
00001310  28 6e 75 6d 57 6f 72 64  73 25 2a 34 29 3d 6f 6c  |(numWords%*4)=ol|
00001320  64 50 25 0d 07 6c 2a 20  20 20 20 20 20 24 28 77  |dP%..l*      $(w|
00001330  72 64 42 75 66 25 2b 77  62 49 6e 64 25 29 3d 62  |rdBuf%+wbInd%)=b|
00001340  24 3a 77 62 49 6e 64 25  2b 3d a9 62 24 0d 07 76  |$:wbInd%+=.b$..v|
00001350  33 20 20 20 20 20 20 77  72 64 42 75 66 25 3f 28  |3      wrdBuf%?(|
00001360  77 62 49 6e 64 25 2d 31  29 3d 77 72 64 42 75 66  |wbInd%-1)=wrdBuf|
00001370  25 3f 28 77 62 49 6e 64  25 2d 31 29 84 26 38 30  |%?(wbInd%-1).&80|
00001380  0d 07 80 1b 20 20 20 20  20 20 58 25 3d b9 3a 6e  |....      X%=.:n|
00001390  75 6d 57 6f 72 64 73 25  2b 3d 31 0d 07 8a 09 20  |umWords%+=1.... |
000013a0  20 20 20 cc 0d 07 94 0e  20 20 20 20 20 20 58 25  |   .....      X%|
000013b0  3d a3 0d 07 9e 09 20 20  20 20 cd 0d 07 a8 0c 20  |=.....    ..... |
000013c0  20 fd 20 58 25 3d b9 0d  07 b2 05 e1 0d 07 bc 04  | . X%=..........|
000013d0  0d 07 c6 37 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...7------------|
000013e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001400  2d 2d 2d 2d 2d 2d 2d 0d  07 d0 04 0d 07 da 28 20  |-------.......( |
00001410  20 20 20 20 20 20 20 2b  2b 2b 20 55 73 65 72 20  |       +++ User |
00001420  53 70 72 69 74 65 20 72  6f 75 74 69 6e 65 73 20  |Sprite routines |
00001430  2b 2b 2b 0d 07 e4 04 0d  07 ee 12 dd 20 f2 69 6e  |+++......... .in|
00001440  69 74 53 70 72 69 74 65  73 0d 07 f8 37 c8 99 20  |itSprites...7.. |
00001450  22 4f 53 5f 53 57 49 4e  75 6d 62 65 72 46 72 6f  |"OS_SWINumberFro|
00001460  6d 53 74 72 69 6e 67 22  2c 2c 22 4f 53 5f 53 70  |mString",,"OS_Sp|
00001470  72 69 74 65 4f 70 22 20  b8 20 53 70 72 6f 70 25  |riteOp" . Sprop%|
00001480  0d 08 02 3a c8 99 20 22  4f 53 5f 53 57 49 4e 75  |...:.. "OS_SWINu|
00001490  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
000014a0  2c 22 57 69 6d 70 5f 53  70 72 69 74 65 4f 70 22  |,"Wimp_SpriteOp"|
000014b0  20 b8 20 57 53 70 72 6f  70 25 0d 08 0c 2c de 20  | . WSprop%...,. |
000014c0  72 25 26 43 30 30 2c 73  61 76 65 49 63 6f 6e 20  |r%&C00,saveIcon |
000014d0  32 30 2c 69 63 6f 6e 73  25 26 36 30 30 3a 69 63  |20,icons%&600:ic|
000014e0  6f 6e 70 25 3d 30 0d 08  16 21 c8 99 20 22 57 69  |onp%=0...!.. "Wi|
000014f0  6d 70 5f 42 61 73 65 4f  66 53 70 72 69 74 65 73  |mp_BaseOfSprites|
00001500  22 20 b8 20 2c 42 25 0d  08 20 35 6d 79 49 63 6f  |" . ,B%.. 5myIco|
00001510  6e 3d a4 63 72 49 63 6f  6e 28 2d 31 2c 38 2c 30  |n=.crIcon(-1,8,0|
00001520  2c 37 34 2c 31 32 30 2c  26 32 31 30 32 2c 22 21  |,74,120,&2102,"!|
00001530  4b 65 79 57 6f 72 64 22  2c 42 25 29 0d 08 2a 29  |KeyWord",B%)..*)|
00001540  5a 25 3d 8e 28 72 65 73  44 69 72 24 2b 22 2e 53  |Z%=.(resDir$+".S|
00001550  70 72 69 74 65 73 22 29  3a 4c 25 3d a2 23 5a 25  |prites"):L%=.#Z%|
00001560  3a d9 23 5a 25 0d 08 34  23 de 20 73 70 72 69 74  |:.#Z%..4#. sprit|
00001570  65 73 25 4c 25 2b 36 34  3a 21 73 70 72 69 74 65  |es%L%+64:!sprite|
00001580  73 25 3d 4c 25 2b 36 34  0d 08 3e 2d 73 70 72 69  |s%=L%+64..>-spri|
00001590  74 65 73 25 21 34 3d 30  3a 73 70 72 69 74 65 73  |tes%!4=0:sprites|
000015a0  25 21 38 3d 31 36 3a 73  70 72 69 74 65 73 25 21  |%!8=16:sprites%!|
000015b0  31 32 3d 31 36 0d 08 48  1c c8 99 20 53 70 72 6f  |12=16..H... Spro|
000015c0  70 25 2c 32 35 36 2b 39  2c 73 70 72 69 74 65 73  |p%,256+9,sprites|
000015d0  25 0d 08 52 30 c8 99 20  53 70 72 6f 70 25 2c 32  |%..R0.. Sprop%,2|
000015e0  35 36 2b 31 30 2c 73 70  72 69 74 65 73 25 2c 72  |56+10,sprites%,r|
000015f0  65 73 44 69 72 24 2b 22  2e 53 70 72 69 74 65 73  |esDir$+".Sprites|
00001600  22 0d 08 5c 05 e1 0d 08  66 04 0d 08 70 04 0d 08  |"..\....f...p...|
00001610  7a 37 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |z7--------------|
00001620  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001640  2d 2d 2d 2d 2d 0d 08 84  04 0d 08 8e 27 20 20 20  |-----.......'   |
00001650  20 20 20 20 20 20 2b 2b  2b 20 55 73 65 72 20 4d  |      +++ User M|
00001660  65 6e 75 20 72 6f 75 74  69 6e 65 73 20 2b 2b 2b  |enu routines +++|
00001670  0d 08 98 04 0d 08 a2 1e  20 20 20 20 20 20 20 20  |........        |
00001680  20 2d 2d 20 4d 65 6e 75  20 66 6f 72 6d 61 74 20  | -- Menu format |
00001690  2d 2d 0d 08 ac 04 0d 08  b6 29 22 74 64 77 73 71  |--.......)"tdwsq|
000016a0  22 20 3a 20 74 20 20 3d  20 77 68 65 74 68 65 72  |" : t  = whether|
000016b0  20 69 74 65 6d 20 69 73  20 74 69 63 6b 65 64 0d  | item is ticked.|
000016c0  08 c0 39 20 20 20 20 20  20 20 20 3a 20 64 20 20  |..9        : d  |
000016d0  3d 20 77 68 65 74 68 65  72 20 69 74 65 6d 20 68  |= whether item h|
000016e0  61 73 20 64 6f 74 74 65  64 20 6c 69 6e 65 20 66  |as dotted line f|
000016f0  6f 6c 6c 6f 77 69 6e 67  0d 08 ca 33 20 20 20 20  |ollowing...3    |
00001700  20 20 20 20 3a 20 77 20  20 3d 20 77 68 65 74 68  |    : w  = wheth|
00001710  65 72 20 61 20 6d 65 6e  75 20 77 61 72 6e 69 6e  |er a menu warnin|
00001720  67 20 69 73 20 69 73 73  75 65 64 0d 08 d4 31 20  |g is issued...1 |
00001730  20 20 20 20 20 20 20 3a  20 73 20 20 3d 20 77 68  |       : s  = wh|
00001740  65 74 68 65 72 20 69 74  65 6d 20 69 73 20 6e 6f  |ether item is no|
00001750  74 20 73 65 6c 65 63 74  61 62 6c 65 0d 08 de 2d  |t selectable...-|
00001760  20 20 20 20 20 20 20 20  3a 20 71 20 20 3d 20 69  |        : q  = i|
00001770  63 6f 6e 20 74 79 70 65  20 28 20 73 69 6e 67 6c  |con type ( singl|
00001780  65 20 64 69 67 69 74 20  29 0d 08 e8 21 20 69 73  |e digit )...! is|
00001790  20 73 74 61 6e 64 61 72  64 20 20 7b 2f 2f 6f 70  | standard  {//op|
000017a0  74 69 6f 6e 20 6e 61 6d  65 7d 0d 08 f2 29 20 69  |tion name}...) i|
000017b0  73 20 73 75 62 2d 6d 65  6e 75 20 20 7b 76 61 72  |s sub-menu  {var|
000017c0  20 6e 61 6d 65 2f 2f 6f  70 74 69 6f 6e 20 6e 61  | name//option na|
000017d0  6d 65 7d 0d 08 fc 22 20  69 73 20 77 72 69 74 65  |me}..." is write|
000017e0  61 62 6c 65 20 7b 2f 74  65 78 74 20 70 6f 69 6e  |able {/text poin|
000017f0  74 65 72 2f 7d 0d 09 06  27 20 69 73 20 77 69 6e  |ter/}...' is win|
00001800  64 6f 77 20 20 20 20 7b  77 69 6e 64 6f 77 2f 2f  |dow    {window//|
00001810  6f 70 74 69 6f 6e 20 6e  61 6d 65 7d 0d 09 10 04  |option name}....|
00001820  0d 09 1a 10 dd 20 f2 69  6e 69 74 4d 65 6e 75 73  |..... .initMenus|
00001830  0d 09 24 07 ea 20 dc 0d  09 2e 08 f7 20 2b 30 0d  |..$.. ...... +0.|
00001840  09 38 1d 6d 65 6e 75 4d  61 78 25 3d 26 32 30 30  |.8.menuMax%=&200|
00001850  30 3a 69 70 4d 61 78 25  3d 32 35 36 0d 09 42 25  |0:ipMax%=256..B%|
00001860  de 20 6d 65 6e 75 53 70  61 63 65 25 6d 65 6e 75  |. menuSpace%menu|
00001870  4d 61 78 25 2c 69 70 42  75 66 25 69 70 4d 61 78  |Max%,ipBuf%ipMax|
00001880  25 0d 09 4c 1a 6d 65 6e  75 70 74 72 25 3d 30 3a  |%..L.menuptr%=0:|
00001890  69 70 42 75 66 25 3f 30  3d 31 33 0d 09 56 13 62  |ipBuf%?0=13..V.b|
000018a0  61 72 4d 65 6e 75 3d a4  63 72 4d 65 6e 75 0d 09  |arMenu=.crMenu..|
000018b0  60 30 dc 20 32 2c 4b 65  79 57 6f 72 64 2c 2e 2e  |`0. 2,KeyWord,..|
000018c0  2e 2e 33 7b 69 6e 66 6f  57 2f 2f 49 6e 66 6f 7d  |..3{infoW//Info}|
000018d0  2c 2e 2e 2e 2e 30 7b 2f  2f 51 75 69 74 7d 0d 09  |,....0{//Quit}..|
000018e0  6a 10 71 75 69 74 4f 70  74 69 6f 6e 3d 31 0d 09  |j.quitOption=1..|
000018f0  74 05 e1 0d 09 7e 04 0d  09 88 17 dd 20 f2 64 6f  |t....~...... .do|
00001900  6d 65 6e 75 28 74 79 70  65 25 2c 4d 25 29 0d 09  |menu(type%,M%)..|
00001910  92 20 6c 61 73 74 54 79  70 65 25 3d 74 79 70 65  |. lastType%=type|
00001920  25 3a 6c 61 73 74 4d 65  6e 75 25 3d 4d 25 0d 09  |%:lastMenu%=M%..|
00001930  9c 25 6d 65 6e 75 74 79  70 65 3d 74 79 70 65 25  |.%menutype=type%|
00001940  3a e7 20 74 79 70 65 25  3d 2d 32 20 6d 79 25 2b  |:. type%=-2 my%+|
00001950  3d 36 34 0d 09 a6 2c c8  99 20 22 57 69 6d 70 45  |=64...,.. "WimpE|
00001960  78 74 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |xt_CreateMenu",,|
00001970  4d 25 2c 6d 78 25 2d 36  30 2c 31 37 36 3a e1 0d  |M%,mx%-60,176:..|
00001980  09 b0 04 0d 09 ba 41 dd  20 f2 77 68 69 63 68 49  |......A. .whichI|
00001990  63 6f 6e 28 41 25 2c 42  25 2c 45 25 29 f2 77 68  |con(A%,B%,E%).wh|
000019a0  69 63 68 5f 69 63 6f 6e  28 41 25 21 48 61 6e 64  |ich_icon(A%!Hand|
000019b0  25 2c 41 25 21 43 6f 75  6e 74 25 2c 42 25 2c 45  |%,A%!Count%,B%,E|
000019c0  25 29 3a e1 0d 09 c4 04  0d 09 ce 37 2d 2d 2d 2d  |%):........7----|
000019d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000019f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001a00  09 d8 04 0d 09 e2 26 20  20 20 20 20 20 20 20 2b  |......&        +|
00001a10  2b 2b 20 55 73 65 72 20  57 69 6d 70 20 72 6f 75  |++ User Wimp rou|
00001a20  74 69 6e 65 73 20 2b 2b  2b 0d 09 ec 04 0d 09 f6  |tines +++.......|
00001a30  12 dd 20 f2 69 6e 69 74  57 69 6e 64 6f 77 73 0d  |.. .initWindows.|
00001a40  0a 00 14 ea 20 48 25 2c  58 25 2c 59 25 2c 57 25  |.... H%,X%,Y%,W%|
00001a50  2c 74 24 0d 0a 0a 27 6d  61 78 77 73 25 3d 26 43  |,t$...'maxws%=&C|
00001a60  30 30 3a de 20 77 73 25  20 6d 61 78 77 73 25 3a  |00:. ws% maxws%:|
00001a70  63 75 72 77 73 25 3d 77  73 25 0d 0a 14 22 c8 99  |curws%=ws%..."..|
00001a80  20 4f 70 65 6e 54 2c 2c  72 65 73 44 69 72 24 2b  | OpenT,,resDir$+|
00001a90  22 2e 54 65 6d 70 6c 61  74 65 73 22 0d 0a 1e 3b  |".Templates"...;|
00001aa0  c8 99 20 4c 6f 61 64 54  2c 2c 71 25 2c 63 75 72  |.. LoadT,,q%,cur|
00001ab0  77 73 25 2c 77 73 25 2b  6d 61 78 77 73 25 2c 2d  |ws%,ws%+maxws%,-|
00001ac0  31 2c 22 70 72 6f 67 49  6e 66 6f 22 20 b8 20 2c  |1,"progInfo" . ,|
00001ad0  2c 63 75 72 77 73 25 0d  0a 28 29 71 25 21 36 34  |,curws%..()q%!64|
00001ae0  3d 73 70 72 69 74 65 73  25 3a c8 99 20 43 72 65  |=sprites%:.. Cre|
00001af0  61 74 65 57 2c 2c 71 25  20 b8 20 69 6e 66 6f 57  |ateW,,q% . infoW|
00001b00  0d 0a 32 04 0d 0a 3c 12  73 72 63 42 75 66 25 3d  |..2...<.srcBuf%=|
00001b10  63 75 72 77 73 25 0d 0a  46 39 c8 99 20 4c 6f 61  |curws%..F9.. Loa|
00001b20  64 54 2c 2c 71 25 2c 63  75 72 77 73 25 2c 77 73  |dT,,q%,curws%,ws|
00001b30  25 2b 6d 61 78 77 73 25  2c 2d 31 2c 22 53 6f 75  |%+maxws%,-1,"Sou|
00001b40  72 63 65 22 20 b8 20 2c  2c 63 75 72 77 73 25 0d  |rce" . ,,curws%.|
00001b50  0a 50 21 58 25 3d 71 25  21 30 3a 59 25 3d 71 25  |.P!X%=q%!0:Y%=q%|
00001b60  21 31 32 3a 24 62 75 66  25 3d 22 49 43 4f 4e 22  |!12:$buf%="ICON"|
00001b70  0d 0a 5a 23 c8 95 20 21  73 72 63 42 75 66 25 3c  |..Z#.. !srcBuf%<|
00001b80  3e 21 62 75 66 25 3a 73  72 63 42 75 66 25 2b 3d  |>!buf%:srcBuf%+=|
00001b90  31 3a ce 0d 0a 64 25 3f  73 72 63 42 75 66 25 3d  |1:...d%?srcBuf%=|
00001ba0  31 33 3a c8 99 20 43 72  65 61 74 65 57 2c 2c 71  |13:.. CreateW,,q|
00001bb0  25 20 b8 20 53 72 63 57  0d 0a 6e 23 73 72 63 49  |% . SrcW..n#srcI|
00001bc0  63 6f 6e 3d 31 3a 77 6f  72 64 49 63 6f 6e 3d 32  |con=1:wordIcon=2|
00001bd0  3a 63 61 74 65 49 63 6f  6e 3d 33 0d 0a 78 38 c8  |:cateIcon=3..x8.|
00001be0  99 20 4c 6f 61 64 54 2c  2c 71 25 2c 63 75 72 77  |. LoadT,,q%,curw|
00001bf0  73 25 2c 77 73 25 2b 6d  61 78 77 73 25 2c 2d 31  |s%,ws%+maxws%,-1|
00001c00  2c 22 57 6f 72 64 73 22  20 b8 20 2c 2c 63 75 72  |,"Words" . ,,cur|
00001c10  77 73 25 0d 0a 82 1e 6f  66 66 58 3d 71 25 21 30  |ws%....offX=q%!0|
00001c20  2d 58 25 3a 6f 66 66 59  3d 71 25 21 31 32 2d 59  |-X%:offY=q%!12-Y|
00001c30  25 0d 0a 8c 22 73 69 7a  58 3d 71 25 21 38 2d 71  |%..."sizX=q%!8-q|
00001c40  25 21 30 3a 73 69 7a 59  3d 71 25 21 31 32 2d 71  |%!0:sizY=q%!12-q|
00001c50  25 21 34 0d 0a 96 19 c8  99 20 43 72 65 61 74 65  |%!4...... Create|
00001c60  57 2c 2c 71 25 20 b8 20  57 72 64 57 0d 0a a0 19  |W,,q% . WrdW....|
00001c70  c8 99 20 43 6c 6f 73 65  54 3a 49 47 6f 74 43 61  |.. CloseT:IGotCa|
00001c80  72 65 74 3d a3 0d 0a aa  28 c8 99 20 22 57 69 6d  |ret=....(.. "Wim|
00001c90  70 45 78 74 5f 4c 69 6e  6b 57 69 6e 64 6f 77 73  |pExt_LinkWindows|
00001ca0  22 2c 2c 2c 53 72 63 57  2c 57 72 64 57 0d 0a b4  |",,,SrcW,WrdW...|
00001cb0  04 0d 0a be 05 e1 0d 0a  c8 04 0d 0a d2 1a dd 20  |............... |
00001cc0  f2 72 75 6e 45 72 72 6f  72 3a 21 65 72 72 62 6c  |.runError:!errbl|
00001cd0  6b 25 3d 9f 0d 0a dc 30  24 28 65 72 72 62 6c 6b  |k%=....0$(errblk|
00001ce0  25 2b 34 29 3d f6 24 2b  22 20 28 49 6e 74 65 72  |%+4)=.$+" (Inter|
00001cf0  6e 61 6c 20 63 6f 64 65  20 22 2b c3 9e 2b 22 29  |nal code "+..+")|
00001d00  22 2b bd 30 0d 0a e6 2b  c8 99 20 22 57 69 6d 70  |"+.0...+.. "Wimp|
00001d10  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 65 72  |_ReportError",er|
00001d20  72 62 6c 6b 25 2c 31 2c  6d 79 4e 61 6d 65 24 0d  |rblk%,1,myName$.|
00001d30  0a f0 24 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |..$.. "Wimp_Drag|
00001d40  42 6f 78 22 2c 2c 2d 31  3a 64 72 61 67 67 69 6e  |Box",,-1:draggin|
00001d50  67 3d a3 0d 0a fa 1e 73  61 76 69 6e 67 52 65 66  |g=.....savingRef|
00001d60  3d 30 3a 6c 6f 61 64 69  6e 67 52 65 66 3d 30 3a  |=0:loadingRef=0:|
00001d70  e1 0d 0b 04 04 0d 0b 0e  56 dd 20 f2 6f 70 65 6e  |........V. .open|
00001d80  57 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |W(!q%,q%!4,q%!8,|
00001d90  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00001da0  30 2c 71 25 21 32 34 2c  71 25 21 32 38 29 c8 99  |0,q%!24,q%!28)..|
00001db0  20 22 57 69 6d 70 45 78  74 5f 4f 70 65 6e 4c 69  | "WimpExt_OpenLi|
00001dc0  6e 6b 65 64 22 2c 2c 71  25 3a e1 0d 0b 18 04 0d  |nked",,q%:......|
00001dd0  0b 22 30 dd 20 f2 63 6c  6f 73 65 57 28 21 71 25  |."0. .closeW(!q%|
00001de0  29 c8 99 20 22 57 69 6d  70 45 78 74 5f 43 6c 6f  |).. "WimpExt_Clo|
00001df0  73 65 4c 69 6e 6b 65 64  22 2c 2c 71 25 3a e1 0d  |seLinked",,q%:..|
00001e00  0b 2c 04 0d 0b 36 23 dd  20 f2 63 68 65 63 6b 6d  |.,...6#. .checkm|
00001e10  28 6d 78 25 2c 6d 79 25  2c 62 25 2c 68 25 2c 69  |(mx%,my%,b%,h%,i|
00001e20  25 2c 6f 62 25 29 0d 0b  40 0b c8 8e 20 68 25 20  |%,ob%)..@... h% |
00001e30  ca 0d 0b 4a 22 20 20 20  20 c9 20 2d 32 20 20 20  |...J"    . -2   |
00001e40  3a 20 f2 64 6f 49 63 6f  6e 42 61 72 28 62 25 2c  |: .doIconBar(b%,|
00001e50  69 25 29 0d 0b 54 21 20  20 20 20 c9 20 53 72 63  |i%)..T!    . Src|
00001e60  57 20 3a 20 f2 64 6f 53  72 63 57 69 6e 28 62 25  |W : .doSrcWin(b%|
00001e70  2c 69 25 29 0d 0b 5e 21  20 20 20 20 c9 20 57 72  |,i%)..^!    . Wr|
00001e80  64 57 20 3a 20 f2 64 6f  57 72 64 57 69 6e 28 62  |dW : .doWrdWin(b|
00001e90  25 2c 69 25 29 0d 0b 68  07 20 20 cb 0d 0b 72 05  |%,i%)..h.  ...r.|
00001ea0  e1 0d 0b 7c 04 0d 0b 86  17 dd 20 f2 64 6f 49 63  |...|...... .doIc|
00001eb0  6f 6e 42 61 72 28 62 25  2c 69 25 29 0d 0b 90 0a  |onBar(b%,i%)....|
00001ec0  c8 8e 20 b9 20 ca 0d 0b  9a 28 20 20 20 20 c9 20  |.. . ....(    . |
00001ed0  28 62 25 80 32 29 3d 32  20 3a 20 f2 64 6f 6d 65  |(b%.2)=2 : .dome|
00001ee0  6e 75 28 2d 32 2c 62 61  72 4d 65 6e 75 29 0d 0b  |nu(-2,barMenu)..|
00001ef0  a4 2a 20 20 20 20 c9 20  28 62 25 80 34 29 3d 34  |.*    . (b%.4)=4|
00001f00  20 3a 20 21 71 25 3d 53  72 63 57 3a c8 99 20 47  | : !q%=SrcW:.. G|
00001f10  65 74 57 49 2c 2c 71 25  0d 0b ae 35 20 20 20 20  |etWI,,q%...5    |
00001f20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001f30  20 20 c8 99 20 22 57 69  6d 70 45 78 74 5f 4f 70  |  .. "WimpExt_Op|
00001f40  65 6e 4c 69 6e 6b 65 64  22 2c 2c 71 25 0d 0b b8  |enLinked",,q%...|
00001f50  07 20 20 cb 0d 0b c2 05  e1 0d 0b cc 04 0d 0b d6  |.  .............|
00001f60  16 dd 20 f2 6b 65 79 5f  70 72 65 73 73 65 64 28  |.. .key_pressed(|
00001f70  4b 25 29 0d 0b e0 0b c8  8e 20 4b 25 20 ca 0d 0b  |K%)...... K% ...|
00001f80  ea 17 20 20 20 20 c9 20  31 33 20 3a 20 f2 6e 65  |..    . 13 : .ne|
00001f90  77 57 6f 72 64 0d 0b f4  19 20 20 20 20 c9 20 32  |wWord....    . 2|
00001fa0  37 20 3a 20 74 68 65 53  74 61 74 65 3d 30 0d 0b  |7 : theState=0..|
00001fb0  fe 29 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.)              |
00001fc0  6e 75 6d 57 6f 72 64 73  25 3d 30 3a 3f 73 72 63  |numWords%=0:?src|
00001fd0  42 75 66 25 3d 31 33 0d  0c 08 1f 20 20 20 20 20  |Buf%=13....     |
00001fe0  20 20 20 20 20 20 20 20  20 f2 73 65 74 4e 65 77  |         .setNew|
00001ff0  45 78 74 65 6e 74 0d 0c  12 48 20 20 20 20 20 20  |Extent...H      |
00002000  20 20 20 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |        .. "Wimp|
00002010  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00002020  6e 22 2c 53 72 63 57 2c  73 72 63 49 63 6f 6e 2c  |n",SrcW,srcIcon,|
00002030  2c 2c 2d 31 2c a9 24 73  72 63 42 75 66 25 0d 0c  |,,-1,.$srcBuf%..|
00002040  1c 24 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.$              |
00002050  f2 66 6f 72 63 65 52 65  64 72 61 77 28 53 72 63  |.forceRedraw(Src|
00002060  57 29 0d 0c 26 09 20 20  20 20 7f 0d 0c 30 2c 20  |W)..&.    ...0, |
00002070  20 20 20 20 20 20 20 20  20 20 20 20 20 c8 99 20  |             .. |
00002080  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00002090  22 2c 71 25 21 32 34 0d  0c 3a 07 20 20 cb 0d 0c  |",q%!24..:.  ...|
000020a0  44 05 e1 0d 0c 4e 04 0d  0c 58 0d dd f2 6e 65 77  |D....N...X...new|
000020b0  57 6f 72 64 0d 0c 62 13  e7 20 a9 24 73 72 63 42  |Word..b.. .$srcB|
000020c0  75 66 25 3e 31 20 8c 0d  0c 6c 12 20 20 20 20 74  |uf%>1 ...l.    t|
000020d0  68 65 53 74 61 74 65 3d  30 0d 0c 76 16 20 20 20  |heState=0..v.   |
000020e0  20 f2 6d 61 6b 65 4d 61  74 63 68 28 50 25 29 0d  | .makeMatch(P%).|
000020f0  0c 80 15 20 20 20 20 f2  6d 61 6b 65 4c 69 73 74  |...    .makeList|
00002100  28 50 25 29 0d 0c 8a 15  20 20 20 20 f2 73 65 74  |(P%)....    .set|
00002110  4e 65 77 45 78 74 65 6e  74 0d 0c 94 1a 20 20 20  |NewExtent....   |
00002120  20 f2 66 6f 72 63 65 52  65 64 72 61 77 28 57 72  | .forceRedraw(Wr|
00002130  64 57 29 0d 0c 9e 23 20  20 20 20 e7 20 6e 75 6d  |dW)...#    . num|
00002140  57 6f 72 64 73 25 3d 31  20 f2 63 68 61 6e 67 65  |Words%=1 .change|
00002150  57 69 6e 64 6f 77 0d 0c  a8 07 20 20 cc 0d 0c b2  |Window....  ....|
00002160  1e 20 20 20 20 85 20 39  39 2c 22 54 6f 6f 20 66  |.    . 99,"Too f|
00002170  65 77 20 6c 65 74 74 65  72 73 22 0d 0c bc 07 20  |ew letters".... |
00002180  20 cd 0d 0c c6 3a c8 99  20 22 57 69 6d 70 5f 53  | ....:.. "Wimp_S|
00002190  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
000021a0  2c 53 72 63 57 2c 73 72  63 49 63 6f 6e 2c 2c 2c  |,SrcW,srcIcon,,,|
000021b0  2d 31 2c a9 24 73 72 63  42 75 66 25 0d 0c d0 16  |-1,.$srcBuf%....|
000021c0  f2 66 6f 72 63 65 52 65  64 72 61 77 28 53 72 63  |.forceRedraw(Src|
000021d0  57 29 0d 0c da 05 e1 0d  0c e4 04 0d 0c ee 18 dd  |W)..............|
000021e0  20 f2 73 65 74 4e 65 77  45 78 74 65 6e 74 3a ea  | .setNewExtent:.|
000021f0  20 4e 25 0d 0c f8 2e 4e  25 3d 6e 75 6d 57 6f 72  | N%....N%=numWor|
00002200  64 73 25 3a e7 20 4e 25  3c 6d 61 78 57 6f 72 64  |ds%:. N%<maxWord|
00002210  73 25 20 4e 25 3d 6d 61  78 57 6f 72 64 73 25 2d  |s% N%=maxWords%-|
00002220  31 0d 0d 02 1b 45 78 74  65 6e 74 25 3d 2d 4e 25  |1....Extent%=-N%|
00002230  2a 33 32 3a 21 71 25 3d  57 72 64 57 0d 0d 0c 1b  |*32:!q%=WrdW....|
00002240  c8 99 20 47 65 74 57 49  2c 2c 71 25 3a 71 25 21  |.. GetWI,,q%:q%!|
00002250  30 3d 71 25 21 34 34 0d  0d 16 27 71 25 21 38 3d  |0=q%!44...'q%!8=|
00002260  71 25 21 35 32 3a 71 25  21 34 3d 45 78 74 65 6e  |q%!52:q%!4=Exten|
00002270  74 25 3a 71 25 21 31 32  3d 71 25 21 35 36 0d 0d  |t%:q%!12=q%!56..|
00002280  20 1f c8 99 20 22 57 69  6d 70 5f 53 65 74 45 78  | ... "Wimp_SetEx|
00002290  74 65 6e 74 22 2c 57 72  64 57 2c 71 25 0d 0d 2a  |tent",WrdW,q%..*|
000022a0  19 21 71 25 3d 53 72 63  57 3a c8 99 20 47 65 74  |.!q%=SrcW:.. Get|
000022b0  57 49 2c 2c 71 25 0d 0d  34 21 c8 99 20 22 57 69  |WI,,q%..4!.. "Wi|
000022c0  6d 70 45 78 74 5f 4f 70  65 6e 4c 69 6e 6b 65 64  |mpExt_OpenLinked|
000022d0  22 2c 2c 71 25 3a e1 0d  0d 3e 04 0d 0d 48 19 dd  |",,q%:...>...H..|
000022e0  20 f2 72 65 64 72 61 77  5f 77 69 6e 64 6f 77 28  | .redraw_window(|
000022f0  21 71 25 29 0d 0d 52 1a  c8 99 20 52 65 64 72 61  |!q%)..R... Redra|
00002300  77 57 2c 2c 71 25 20 b8  20 6d 6f 72 65 25 0d 0d  |wW,,q% . more%..|
00002310  5c 19 f2 6f 72 69 67 69  6e 28 71 25 2b 34 2c 6f  |\..origin(q%+4,o|
00002320  78 25 2c 6f 79 25 29 0d  0d 66 0f f2 72 65 64 72  |x%,oy%)..f..redr|
00002330  61 77 49 74 3a e1 0d 0d  70 04 0d 0d 7a 0f dd 20  |awIt:...p...z.. |
00002340  f2 72 65 64 72 61 77 49  74 0d 0d 84 0c c8 95 20  |.redrawIt...... |
00002350  6d 6f 72 65 25 0d 0d 8e  1d 20 20 c8 99 20 22 57  |more%....  .. "W|
00002360  69 6d 70 45 78 74 5f 52  65 64 72 61 77 22 2c 2c  |impExt_Redraw",,|
00002370  71 25 0d 0d 98 0e 20 20  c8 8e 20 21 71 25 20 ca  |q%....  .. !q% .|
00002380  0d 0d a2 12 20 20 20 20  20 20 c9 20 53 72 63 57  |....      . SrcW|
00002390  20 3a 0d 0d ac 1d 20 20  20 20 20 20 c9 20 57 72  | :....      . Wr|
000023a0  64 57 20 3a 20 f2 64 72  61 77 57 6f 72 64 73 0d  |dW : .drawWords.|
000023b0  0d b6 09 20 20 20 20 cb  0d 0d c0 19 20 20 c8 99  |...    .....  ..|
000023c0  20 47 65 74 52 2c 2c 71  25 20 b8 20 6d 6f 72 65  | GetR,,q% . more|
000023d0  25 0d 0d ca 07 20 20 ce  0d 0d d4 05 e1 0d 0d de  |%....  .........|
000023e0  04 0d 0d e8 16 dd 20 f2  64 6f 53 72 63 57 69 6e  |...... .doSrcWin|
000023f0  28 62 25 2c 69 25 29 0d  0d f2 0d e7 20 69 25 3d  |(b%,i%)..... i%=|
00002400  2d 31 20 8c 0d 0d fc 1d  20 20 20 20 71 25 21 30  |-1 .....    q%!0|
00002410  3d 53 72 63 57 3a c8 99  20 47 65 74 57 2c 2c 71  |=SrcW:.. GetW,,q|
00002420  25 0d 0e 06 23 20 20 20  20 c8 99 20 22 57 69 6d  |%...#    .. "Wim|
00002430  70 45 78 74 5f 4f 70 65  6e 4c 69 6e 6b 65 64 22  |pExt_OpenLinked"|
00002440  2c 2c 71 25 0d 0e 10 07  20 20 cd 0d 0e 1a 05 e1  |,,q%....  ......|
00002450  0d 0e 24 04 0d 0e 2e 16  dd 20 f2 64 6f 57 72 64  |..$...... .doWrd|
00002460  57 69 6e 28 62 25 2c 69  25 29 0d 0e 38 20 f2 67  |Win(b%,i%)..8 .g|
00002470  65 74 57 28 57 72 64 57  29 3a 4e 25 3d 2d 28 6d  |etW(WrdW):N%=-(m|
00002480  79 25 2b 6f 79 25 29 2f  33 32 0d 0e 42 1c e7 20  |y%+oy%)/32..B.. |
00002490  4e 25 3e 2d 31 20 80 20  4e 25 3c 6e 75 6d 57 6f  |N%>-1 . N%<numWo|
000024a0  72 64 73 25 20 8c 0d 0e  4c 0f 20 20 20 20 c8 8e  |rds% ...L.    ..|
000024b0  20 62 25 20 ca 0d 0e 56  20 20 20 20 20 20 20 c9  | b% ...V       .|
000024c0  20 20 20 20 34 20 3a 20  f2 63 68 61 6e 67 65 57  |    4 : .changeW|
000024d0  69 6e 64 6f 77 0d 0e 60  21 20 20 20 20 20 20 c9  |indow..`!      .|
000024e0  20 20 20 36 34 20 3a 20  e7 20 4e 25 3d 68 69 6c  |   64 : . N%=hil|
000024f0  69 74 65 25 20 8c 0d 0e  6a 2c 20 20 20 20 20 20  |ite% ...j,      |
00002500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002510  f2 64 72 61 67 57 6f 72  64 28 68 69 6c 69 74 65  |.dragWord(hilite|
00002520  25 29 0d 0e 74 3a 20 20  20 20 20 20 20 20 20 20  |%)..t:          |
00002530  20 20 20 20 20 20 20 20  20 20 20 20 64 72 61 67  |            drag|
00002540  57 6f 72 64 24 3d a4 67  65 74 77 64 28 77 72 64  |Word$=.getwd(wrd|
00002550  50 74 72 25 21 28 4e 25  2a 34 29 29 0d 0e 7e 19  |Ptr%!(N%*4))..~.|
00002560  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002570  20 20 20 20 cd 0d 0e 88  21 20 20 20 20 20 20 c9  |    ....!      .|
00002580  20 20 32 35 36 20 3a 20  e7 20 68 69 6c 69 74 65  |  256 : . hilite|
00002590  25 3d 2d 31 20 8c 0d 0e  92 24 20 20 20 20 20 20  |%=-1 ....$      |
000025a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000025b0  68 69 6c 69 74 65 25 3d  4e 25 0d 0e 9c 29 20 20  |hilite%=N%...)  |
000025c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000025d0  20 20 20 20 f2 72 65 64  72 61 77 57 6f 72 64 28  |    .redrawWord(|
000025e0  4e 25 29 0d 0e a6 19 20  20 20 20 20 20 20 20 20  |N%)....         |
000025f0  20 20 20 20 20 20 20 20  20 20 20 cc 0d 0e b0 28  |           ....(|
00002600  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002610  20 20 20 20 20 20 e7 20  4e 25 3d 68 69 6c 69 74  |      . N%=hilit|
00002620  65 25 20 8c 0d 0e ba 28  20 20 20 20 20 20 20 20  |e% ....(        |
00002630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002640  20 20 68 69 6c 69 74 65  25 3d 2d 31 0d 0e c4 2d  |  hilite%=-1...-|
00002650  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002660  20 20 20 20 20 20 20 20  20 20 f2 72 65 64 72 61  |          .redra|
00002670  77 57 6f 72 64 28 4e 25  29 0d 0e ce 1d 20 20 20  |wWord(N%)....   |
00002680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002690  20 20 20 20 20 cd 0d 0e  d8 19 20 20 20 20 20 20  |     .....      |
000026a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 cd 0d  |              ..|
000026b0  0e e2 28 20 20 20 20 20  20 c9 20 31 30 32 34 20  |..(      . 1024 |
000026c0  3a 20 4f 25 3d 68 69 6c  69 74 65 25 3a 68 69 6c  |: O%=hilite%:hil|
000026d0  69 74 65 25 3d 4e 25 0d  0e ec 25 20 20 20 20 20  |ite%=N%...%     |
000026e0  20 20 20 20 20 20 20 20  20 20 20 20 20 f2 72 65  |             .re|
000026f0  64 72 61 77 57 6f 72 64  28 4f 25 29 0d 0e f6 25  |drawWord(O%)...%|
00002700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002710  20 20 f2 72 65 64 72 61  77 57 6f 72 64 28 4e 25  |  .redrawWord(N%|
00002720  29 0d 0f 00 0b 20 20 20  20 20 20 cb 0d 0f 0a 07  |)....      .....|
00002730  20 20 cd 0d 0f 14 05 e1  0d 0f 1e 04 0d 0f 28 21  |  ............(!|
00002740  dd f2 72 65 64 72 61 77  57 6f 72 64 28 4e 25 29  |..redrawWord(N%)|
00002750  ea 20 75 25 2c 76 25 2c  78 25 2c 79 25 0d 0f 32  |. u%,v%,x%,y%..2|
00002760  1c e7 20 4e 25 3e 2d 31  20 80 20 4e 25 3c 6e 75  |.. N%>-1 . N%<nu|
00002770  6d 57 6f 72 64 73 25 20  8c 0d 0f 3c 29 20 20 20  |mWords% ...<)   |
00002780  20 78 25 3d 30 3a 75 25  3d 78 25 2b 34 30 30 3a  | x%=0:u%=x%+400:|
00002790  79 25 3d 2d 4e 25 2a 33  32 3a 76 25 3d 79 25 2d  |y%=-N%*32:v%=y%-|
000027a0  33 32 0d 0f 46 2a c8 99  20 22 57 69 6d 70 5f 46  |32..F*.. "Wimp_F|
000027b0  6f 72 63 65 52 65 64 72  61 77 22 2c 57 72 64 57  |orceRedraw",WrdW|
000027c0  2c 78 25 2c 76 25 2c 75  25 2c 79 25 0d 0f 50 07  |,x%,v%,u%,y%..P.|
000027d0  20 20 cd 0d 0f 5a 05 e1  0d 0f 64 04 0d 0f 6e 12  |  ...Z....d...n.|
000027e0  dd f2 63 68 61 6e 67 65  57 69 6e 64 6f 77 0d 0f  |..changeWindow..|
000027f0  78 11 c8 8e 20 74 68 65  53 74 61 74 65 20 ca 0d  |x... theState ..|
00002800  0f 82 25 20 20 c9 20 30  20 3a 20 62 24 3d a4 67  |..%  . 0 : b$=.g|
00002810  65 74 77 64 28 77 72 64  50 74 72 25 21 28 4e 25  |etwd(wrdPtr%!(N%|
00002820  2a 34 29 29 0d 0f 8c 25  20 20 20 20 20 20 20 20  |*4))...%        |
00002830  20 20 20 24 73 72 63 42  75 66 25 3d 62 24 3a f2  |   $srcBuf%=b$:.|
00002840  74 68 65 73 61 75 72 75  73 0d 0f 96 1d 20 20 c9  |thesaurus....  .|
00002850  20 31 20 3a 20 50 25 3d  66 69 6c 50 74 72 25 21  | 1 : P%=filPtr%!|
00002860  28 4e 25 2a 34 29 0d 0f  a0 2a 20 20 20 20 20 20  |(N%*4)...*      |
00002870  20 20 20 20 20 62 24 3d  a4 67 65 74 77 64 28 50  |     b$=.getwd(P|
00002880  25 2b 32 29 3a 24 73 72  63 42 75 66 25 3d 62 24  |%+2):$srcBuf%=b$|
00002890  0d 0f aa 24 20 20 20 20  20 20 20 20 20 20 20 51  |...$           Q|
000028a0  25 3d 28 50 25 21 28 32  2b a9 62 24 29 29 80 26  |%=(P%!(2+.b$)).&|
000028b0  46 46 46 46 0d 0f b4 26  20 20 20 20 20 20 20 20  |FFFF...&        |
000028c0  20 20 20 f2 67 65 74 43  61 74 65 67 6f 72 79 28  |   .getCategory(|
000028d0  50 25 3f 31 2c 51 25 2a  33 29 0d 0f be 07 20 20  |P%?1,Q%*3)....  |
000028e0  cb 0d 0f c8 0e 68 69 6c  69 74 65 25 3d 2d 31 0d  |.....hilite%=-1.|
000028f0  0f d2 16 f2 66 6f 72 63  65 52 65 64 72 61 77 28  |....forceRedraw(|
00002900  53 72 63 57 29 0d 0f dc  05 e1 0d 0f e6 04 0d 0f  |SrcW)...........|
00002910  f0 12 dd f2 64 72 61 67  57 6f 72 64 28 4e 25 29  |....dragWord(N%)|
00002920  0d 0f fa 11 ea 20 78 25  2c 79 25 2c 75 25 2c 76  |..... x%,y%,u%,v|
00002930  25 0d 10 04 19 71 25 21  30 3d 57 72 64 57 3a c8  |%....q%!0=WrdW:.|
00002940  99 20 47 65 74 57 2c 2c  71 25 0d 10 0e 2f 78 25  |. GetW,,q%.../x%|
00002950  3d 71 25 21 34 2b 34 3a  79 25 3d 2d 4e 25 2a 33  |=q%!4+4:y%=-N%*3|
00002960  32 2d 6f 79 25 3a 75 25  3d 71 25 21 31 32 2d 34  |2-oy%:u%=q%!12-4|
00002970  3a 76 25 3d 79 25 2d 33  32 0d 10 18 16 71 25 21  |:v%=y%-32....q%!|
00002980  30 30 3d 57 72 64 57 3a  71 25 21 30 34 3d 35 0d  |00=WrdW:q%!04=5.|
00002990  10 22 27 71 25 21 30 38  3d 78 25 3a 71 25 21 31  |."'q%!08=x%:q%!1|
000029a0  32 3d 76 25 3a 71 25 21  31 36 3d 75 25 3a 71 25  |2=v%:q%!16=u%:q%|
000029b0  21 32 30 3d 79 25 0d 10  2c 2d 71 25 21 32 34 3d  |!20=y%..,-q%!24=|
000029c0  2d 31 45 36 3a 71 25 21  32 38 3d 2d 31 45 36 3a  |-1E6:q%!28=-1E6:|
000029d0  71 25 21 33 32 3d 31 45  36 3a 71 25 21 33 36 3d  |q%!32=1E6:q%!36=|
000029e0  31 45 36 0d 10 36 19 c8  99 20 22 57 69 6d 70 5f  |1E6..6... "Wimp_|
000029f0  44 72 61 67 42 6f 78 22  2c 2c 71 25 0d 10 40 10  |DragBox",,q%..@.|
00002a00  64 72 61 67 67 69 6e 67  3d b9 3a e1 0d 10 4a 04  |dragging=.:...J.|
00002a10  0d 10 54 1a dd f2 65 6e  64 64 72 61 67 28 78 25  |..T...enddrag(x%|
00002a20  2c 79 25 2c 75 25 2c 76  25 29 0d 10 5e 1b 64 72  |,y%,u%,v%)..^.dr|
00002a30  61 67 67 69 6e 67 3d a3  3a c8 99 20 47 65 74 50  |agging=.:.. GetP|
00002a40  49 2c 2c 71 25 0d 10 68  32 f2 64 61 74 61 53 61  |I,,q%..h2.dataSa|
00002a50  76 65 57 6f 72 64 28 64  72 61 67 57 6f 72 64 24  |veWord(dragWord$|
00002a60  2c 71 25 21 31 32 2c 71  25 21 31 36 2c 71 25 21  |,q%!12,q%!16,q%!|
00002a70  30 2c 71 25 21 34 29 0d  10 72 05 e1 0d 10 7c 04  |0,q%!4)..r....|.|
00002a80  0d 10 86 37 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...7------------|
00002a90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002ab0  2d 2d 2d 2d 2d 2d 2d 0d  10 90 04 0d 10 9a 22 dd  |-------.......".|
00002ac0  f2 64 61 74 61 53 61 76  65 57 6f 72 64 28 77 24  |.dataSaveWord(w$|
00002ad0  2c 68 25 2c 69 25 2c 78  25 2c 79 25 29 0d 10 a4  |,h%,i%,x%,y%)...|
00002ae0  20 71 25 21 30 3d 30 3a  71 25 21 34 3d 30 3a 71  | q%!0=0:q%!4=0:q|
00002af0  25 21 38 3d 30 3a 71 25  21 31 32 3d 30 0d 10 ae  |%!8=0:q%!12=0...|
00002b00  1a 71 25 21 31 36 3d 4d  65 73 73 61 67 65 5f 44  |.q%!16=Message_D|
00002b10  61 74 61 53 61 76 65 0d  10 b8 27 71 25 21 32 30  |ataSave...'q%!20|
00002b20  3d 68 25 3a 71 25 21 32  34 3d 69 25 3a 71 25 21  |=h%:q%!24=i%:q%!|
00002b30  32 38 3d 78 25 3a 71 25  21 33 32 3d 79 25 0d 10  |28=x%:q%!32=y%..|
00002b40  c2 2e 71 25 21 33 36 3d  a9 77 24 2a 32 3a 71 25  |..q%!36=.w$*2:q%|
00002b50  21 34 30 3d 26 46 46 46  3a 24 28 71 25 2b 34 34  |!40=&FFF:$(q%+44|
00002b60  29 3d c0 77 24 2c 31 30  29 2b bd 30 0d 10 cc 16  |)=.w$,10)+.0....|
00002b70  71 25 21 30 3d 28 34 34  2b a9 77 24 2b 33 29 80  |q%!0=(44+.w$+3).|
00002b80  ac 33 0d 10 d6 38 c8 99  20 22 57 69 6d 70 5f 53  |.3...8.. "Wimp_S|
00002b90  65 6e 64 4d 65 73 73 61  67 65 22 2c 55 73 65 72  |endMessage",User|
00002ba0  5f 4d 65 73 73 61 67 65  5f 52 65 63 6f 72 64 65  |_Message_Recorde|
00002bb0  64 2c 71 25 2c 68 25 2c  69 25 0d 10 e0 14 73 61  |d,q%,h%,i%....sa|
00002bc0  76 69 6e 67 52 65 66 3d  71 25 21 38 3a e1 0d 10  |vingRef=q%!8:...|
00002bd0  ea 04 0d 10 f4 11 dd f2  64 61 74 61 53 61 76 65  |........dataSave|
00002be0  41 63 6b 0d 10 fe 17 e7  20 73 61 76 69 6e 67 52  |Ack..... savingR|
00002bf0  65 66 3d 71 25 21 31 32  20 8c 0d 11 08 1c 20 20  |ef=q%!12 .....  |
00002c00  20 20 6e 61 6d 65 24 3d  a4 73 74 72 69 6e 67 28  |  name$=.string(|
00002c10  71 25 2b 34 34 29 0d 11  12 14 20 20 20 20 e7 20  |q%+44)....    . |
00002c20  6e 61 6d 65 24 3e 22 22  20 8c 0d 11 1c 2a 20 20  |name$>"" ....*  |
00002c30  20 20 20 20 20 20 5a 25  3d ae 6e 61 6d 65 24 3a  |      Z%=.name$:|
00002c40  d5 23 5a 25 2c 64 72 61  67 57 6f 72 64 24 3b 3a  |.#Z%,dragWord$;:|
00002c50  d9 23 5a 25 0d 11 26 27  20 20 20 20 20 20 20 20  |.#Z%..&'        |
00002c60  ff 28 22 53 65 74 54 79  70 65 20 22 2b 6e 61 6d  |.("SetType "+nam|
00002c70  65 24 2b 22 20 54 45 58  54 22 29 0d 11 30 2d 20  |e$+" TEXT")..0- |
00002c80  20 20 20 20 20 20 20 71  25 21 31 32 3d 71 25 21  |       q%!12=q%!|
00002c90  38 3a 71 25 21 31 36 3d  4d 65 73 73 61 67 65 5f  |8:q%!16=Message_|
00002ca0  44 61 74 61 4c 6f 61 64  0d 11 3a 37 c8 99 20 22  |DataLoad..:7.. "|
00002cb0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00002cc0  22 2c 55 73 65 72 5f 4d  65 73 73 61 67 65 5f 52  |",User_Message_R|
00002cd0  65 63 6f 72 64 65 64 2c  71 25 2c 71 25 21 34 0d  |ecorded,q%,q%!4.|
00002ce0  11 44 1a 20 20 20 20 20  20 20 20 73 61 76 69 6e  |.D.        savin|
00002cf0  67 52 65 66 3d 71 25 21  38 0d 11 4e 0b 20 20 20  |gRef=q%!8..N.   |
00002d00  20 20 20 cc 0d 11 58 2e  20 20 20 20 20 20 20 20  |   ...X.        |
00002d10  85 20 39 39 2c 22 44 61  74 61 53 61 76 65 41 63  |. 99,"DataSaveAc|
00002d20  6b 20 68 61 73 20 6e 6f  20 66 69 6c 65 6e 61 6d  |k has no filenam|
00002d30  65 22 0d 11 62 0b 20 20  20 20 20 20 cd 0d 11 6c  |e"..b.      ...l|
00002d40  07 20 20 cc 0d 11 76 13  20 20 20 20 73 61 76 69  |.  ...v.    savi|
00002d50  6e 67 52 65 66 3d 30 0d  11 80 2e 20 20 20 20 85  |ngRef=0....    .|
00002d60  20 39 39 2c 22 55 6e 65  78 70 65 63 74 65 64 20  | 99,"Unexpected |
00002d70  44 61 74 61 53 61 76 65  41 63 6b 20 72 65 63 65  |DataSaveAck rece|
00002d80  69 76 65 64 22 0d 11 8a  07 20 20 cd 0d 11 94 05  |ived"....  .....|
00002d90  e1 0d 11 9e 04 0d 11 a8  11 dd f2 64 61 74 61 4c  |...........dataL|
00002da0  6f 61 64 41 63 6b 0d 11  b2 17 e7 20 73 61 76 69  |oadAck..... savi|
00002db0  6e 67 52 65 66 3d 71 25  21 31 32 20 8c 0d 11 bc  |ngRef=q%!12 ....|
00002dc0  13 20 20 20 20 73 61 76  69 6e 67 52 65 66 3d 30  |.    savingRef=0|
00002dd0  0d 11 c6 07 20 20 cc 0d  11 d0 13 20 20 20 20 73  |....  .....    s|
00002de0  61 76 69 6e 67 52 65 66  3d 30 0d 11 da 2e 20 20  |avingRef=0....  |
00002df0  20 20 85 20 39 39 2c 22  55 6e 65 78 70 65 63 74  |  . 99,"Unexpect|
00002e00  65 64 20 44 61 74 61 4c  6f 61 64 41 63 6b 20 72  |ed DataLoadAck r|
00002e10  65 63 65 69 76 65 64 22  0d 11 e4 07 20 20 cd 0d  |eceived"....  ..|
00002e20  11 ee 05 e1 0d 11 f8 04  0d 12 02 34 dd 20 a4 73  |...........4. .s|
00002e30  74 72 69 6e 67 28 41 25  29 ea 20 73 24 3a c8 95  |tring(A%). s$:..|
00002e40  20 3f 41 25 3c 3e 30 3a  73 24 2b 3d bd 3f 41 25  | ?A%<>0:s$+=.?A%|
00002e50  3a 41 25 2b 3d 31 3a ce  3a 3d 73 24 0d 12 0c 04  |:A%+=1:.:=s$....|
00002e60  0d 12 16 0e dd f2 72 61  6d 46 65 74 63 68 0d 12  |......ramFetch..|
00002e70  20 17 e7 20 73 61 76 69  6e 67 52 65 66 3d 71 25  | .. savingRef=q%|
00002e80  21 31 32 20 8c 0d 12 2a  15 20 20 20 20 24 72 25  |!12 ...*.    $r%|
00002e90  3d 64 72 61 67 57 6f 72  64 24 0d 12 34 3c c8 99  |=dragWord$..4<..|
00002ea0  20 22 57 69 6d 70 5f 54  72 61 6e 73 66 65 72 42  | "Wimp_TransferB|
00002eb0  6c 6f 63 6b 22 2c 74 61  73 6b 25 2c 72 25 2c 71  |lock",task%,r%,q|
00002ec0  25 21 34 2c 71 25 21 32  30 2c a9 28 64 72 61 67  |%!4,q%!20,.(drag|
00002ed0  57 6f 72 64 24 29 0d 12  3e 3f 20 20 20 20 71 25  |Word$)..>?    q%|
00002ee0  21 31 32 3d 71 25 21 38  3a 71 25 21 31 36 3d 4d  |!12=q%!8:q%!16=M|
00002ef0  65 73 73 61 67 65 5f 52  41 4d 54 72 61 6e 73 6d  |essage_RAMTransm|
00002f00  69 74 3a 71 25 21 32 34  3d a9 28 64 72 61 67 57  |it:q%!24=.(dragW|
00002f10  6f 72 64 24 29 0d 12 48  2e c8 99 20 22 57 69 6d  |ord$)..H... "Wim|
00002f20  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 55  |p_SendMessage",U|
00002f30  73 65 72 5f 4d 65 73 73  61 67 65 2c 71 25 2c 71  |ser_Message,q%,q|
00002f40  25 21 34 0d 12 52 13 20  20 20 20 73 61 76 69 6e  |%!4..R.    savin|
00002f50  67 52 65 66 3d 30 0d 12  5c 07 20 20 cc 0d 12 66  |gRef=0..\.  ...f|
00002f60  13 20 20 20 20 73 61 76  69 6e 67 52 65 66 3d 30  |.    savingRef=0|
00002f70  0d 12 70 2b 20 20 20 20  85 20 39 39 2c 22 55 6e  |..p+    . 99,"Un|
00002f80  65 78 70 65 63 74 65 64  20 52 41 4d 46 65 74 63  |expected RAMFetc|
00002f90  68 20 72 65 63 65 69 76  65 64 22 0d 12 7a 07 20  |h received"..z. |
00002fa0  20 cd 0d 12 84 05 e1 0d  12 8e 04 0d 12 98 0e dd  | ...............|
00002fb0  f2 64 61 74 61 53 61 76  65 0d 12 a2 14 e7 20 6c  |.dataSave..... l|
00002fc0  6f 61 64 69 6e 67 52 65  66 3d 30 20 8c 0d 12 ac  |oadingRef=0 ....|
00002fd0  35 20 20 20 20 71 25 21  31 32 3d 71 25 21 38 3a  |5    q%!12=q%!8:|
00002fe0  71 25 21 31 36 3d 4d 65  73 73 61 67 65 5f 44 61  |q%!16=Message_Da|
00002ff0  74 61 53 61 76 65 41 63  6b 3a 71 25 21 33 36 3d  |taSaveAck:q%!36=|
00003000  2d 31 0d 12 b6 39 20 20  20 20 24 28 71 25 2b 34  |-1...9    $(q%+4|
00003010  34 29 3d 73 63 72 61 70  46 69 6c 65 24 2b bd 30  |4)=scrapFile$+.0|
00003020  3a 71 25 21 30 3d 28 34  34 2b a9 73 63 72 61 70  |:q%!0=(44+.scrap|
00003030  46 69 6c 65 24 2b 34 29  80 ac 33 0d 12 c0 2e c8  |File$+4)..3.....|
00003040  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00003050  61 67 65 22 2c 55 73 65  72 5f 4d 65 73 73 61 67  |age",User_Messag|
00003060  65 2c 71 25 2c 71 25 21  34 0d 12 ca 17 20 20 20  |e,q%,q%!4....   |
00003070  20 6c 6f 61 64 69 6e 67  52 65 66 3d 71 25 21 38  | loadingRef=q%!8|
00003080  0d 12 d4 07 20 20 cc 0d  12 de 14 20 20 20 20 6c  |....  .....    l|
00003090  6f 61 64 69 6e 67 52 65  66 3d 30 0d 12 e8 2b 20  |oadingRef=0...+ |
000030a0  20 20 20 85 20 39 39 2c  22 55 6e 65 78 70 65 63  |   . 99,"Unexpec|
000030b0  74 65 64 20 44 61 74 61  53 61 76 65 20 72 65 63  |ted DataSave rec|
000030c0  65 69 76 65 64 22 0d 12  f2 07 20 20 cd 0d 12 fc  |eived"....  ....|
000030d0  05 e1 0d 13 06 04 0d 13  10 0e dd f2 64 61 74 61  |............data|
000030e0  4c 6f 61 64 0d 13 1a 18  6e 61 6d 65 24 3d a4 73  |Load....name$=.s|
000030f0  74 72 69 6e 67 28 71 25  2b 34 34 29 0d 13 24 3d  |tring(q%+44)..$=|
00003100  e7 20 6c 6f 61 64 69 6e  67 52 65 66 3d 71 25 21  |. loadingRef=q%!|
00003110  31 32 20 84 20 28 6c 6f  61 64 69 6e 67 52 65 66  |12 . (loadingRef|
00003120  3d 30 20 80 20 6e 61 6d  65 24 3c 3e 73 63 72 61  |=0 . name$<>scra|
00003130  70 46 69 6c 65 24 29 20  8c 0d 13 2e 36 20 20 20  |pFile$) ....6   |
00003140  20 e7 20 71 25 21 34 30  3c 3e 26 46 46 46 20 85  | . q%!40<>&FFF .|
00003150  20 39 39 2c 22 4f 6e 6c  79 20 74 65 78 74 20 6d  | 99,"Only text m|
00003160  61 79 20 62 65 20 69 6d  70 6f 72 74 65 64 22 0d  |ay be imported".|
00003170  13 38 1f 20 20 20 20 5a  25 3d 8e 6e 61 6d 65 24  |.8.    Z%=.name$|
00003180  3a 24 72 25 3d be 23 5a  25 3a d9 23 5a 25 0d 13  |:$r%=.#Z%:.#Z%..|
00003190  42 1a 20 20 20 20 ff 28  22 44 45 4c 45 54 45 20  |B.    .("DELETE |
000031a0  22 2b 6e 61 6d 65 24 29  0d 13 4c 3b 20 20 20 20  |"+name$)..L;    |
000031b0  50 25 3d 72 25 3a c8 95  20 3f 50 25 3e 33 32 20  |P%=r%:.. ?P%>32 |
000031c0  80 20 3f 50 25 3c 31 32  37 20 80 20 50 25 3c 72  |. ?P%<127 . P%<r|
000031d0  25 2b 31 30 3a 50 25 2b  3d 31 3a ce 3a 3f 50 25  |%+10:P%+=1:.:?P%|
000031e0  3d 31 33 0d 13 56 2c 20  20 20 20 71 25 21 31 32  |=13..V,    q%!12|
000031f0  3d 71 25 21 38 3a 71 25  21 31 36 3d 4d 65 73 73  |=q%!8:q%!16=Mess|
00003200  61 67 65 5f 44 61 74 61  4c 6f 61 64 41 63 6b 0d  |age_DataLoadAck.|
00003210  13 60 35 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.`5.. "Wimp_Send|
00003220  4d 65 73 73 61 67 65 22  2c 55 73 65 72 5f 4d 65  |Message",User_Me|
00003230  73 73 61 67 65 2c 71 25  2c 71 25 21 32 30 2c 71  |ssage,q%,q%!20,q|
00003240  25 21 32 34 0d 13 6a 14  20 20 20 20 6c 6f 61 64  |%!24..j.    load|
00003250  69 6e 67 52 65 66 3d 30  0d 13 74 1d 20 20 20 20  |ingRef=0..t.    |
00003260  24 73 72 63 42 75 66 25  3d 24 72 25 3a f2 6e 65  |$srcBuf%=$r%:.ne|
00003270  77 57 6f 72 64 0d 13 7e  07 20 20 cc 0d 13 88 14  |wWord..~.  .....|
00003280  20 20 20 20 6c 6f 61 64  69 6e 67 52 65 66 3d 30  |    loadingRef=0|
00003290  0d 13 92 2b 20 20 20 20  85 20 39 39 2c 22 55 6e  |...+    . 99,"Un|
000032a0  65 78 70 65 63 74 65 64  20 44 61 74 61 4c 6f 61  |expected DataLoa|
000032b0  64 20 72 65 63 65 69 76  65 64 22 0d 13 9c 07 20  |d received".... |
000032c0  20 cd 0d 13 a6 05 e1 0d  13 b0 04 0d 13 ba 37 2d  | .............7-|
000032d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003300  2d 2d 0d 13 c4 04 0d 13  ce 15 dd 20 f2 6d 65 6e  |--......... .men|
00003310  75 73 65 6c 65 63 74 28  71 25 29 0d 13 d8 11 c8  |uselect(q%).....|
00003320  8e 20 6d 65 6e 75 74 79  70 65 20 ca 0d 13 e2 30  |. menutype ....0|
00003330  20 20 20 20 c9 20 2d 32  20 20 20 20 20 20 20 20  |    . -2        |
00003340  20 20 3a 20 e7 20 71 25  21 30 3d 71 75 69 74 4f  |  : . q%!0=quitO|
00003350  70 74 69 6f 6e 20 71 75  69 74 3d b9 0d 13 ec 21  |ption quit=....!|
00003360  20 20 20 20 7f 20 85 20  31 2c 22 55 6e 6b 6e 6f  |    . . 1,"Unkno|
00003370  77 6e 20 6d 65 6e 75 20  74 79 70 65 22 0d 13 f6  |wn menu type"...|
00003380  07 20 20 cb 0d 14 00 10  c8 99 20 47 65 74 50 49  |.  ....... GetPI|
00003390  2c 2c 71 25 0d 14 0a 31  e7 20 28 71 25 21 38 20  |,,q%...1. (q%!8 |
000033a0  80 20 31 29 3d 31 20 3a  20 f2 64 6f 6d 65 6e 75  |. 1)=1 : .domenu|
000033b0  28 6c 61 73 74 54 79 70  65 25 2c 6c 61 73 74 4d  |(lastType%,lastM|
000033c0  65 6e 75 25 29 0d 14 14  05 e1 0d 14 1e 04 0d 14  |enu%)...........|
000033d0  28 37 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |(7--------------|
000033e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003400  2d 2d 2d 2d 2d 0d 14 32  04 0d 14 3c 12 dd 20 f2  |-----..2...<.. .|
00003410  6d 65 73 73 61 67 65 28  71 25 29 0d 14 46 0e c8  |message(q%)..F..|
00003420  8e 20 71 25 21 31 36 20  ca 0d 14 50 26 20 20 20  |. q%!16 ...P&   |
00003430  20 c9 20 4d 65 73 73 61  67 65 5f 51 75 69 74 20  | . Message_Quit |
00003440  20 20 20 20 20 20 20 3a  20 71 75 69 74 3d b9 0d  |       : quit=..|
00003450  14 5a 29 20 20 20 20 c9  20 4d 65 73 73 61 67 65  |.Z)    . Message|
00003460  5f 44 61 74 61 53 61 76  65 20 20 20 20 3a 20 f2  |_DataSave    : .|
00003470  64 61 74 61 53 61 76 65  0d 14 64 3a 20 20 20 20  |dataSave..d:    |
00003480  c9 20 4d 65 73 73 61 67  65 5f 44 61 74 61 53 61  |. Message_DataSa|
00003490  76 65 41 63 6b 20 3a 20  e7 20 73 61 76 69 6e 67  |veAck : . saving|
000034a0  52 65 66 3e 30 20 f2 64  61 74 61 53 61 76 65 41  |Ref>0 .dataSaveA|
000034b0  63 6b 0d 14 6e 29 20 20  20 20 c9 20 4d 65 73 73  |ck..n)    . Mess|
000034c0  61 67 65 5f 44 61 74 61  4c 6f 61 64 20 20 20 20  |age_DataLoad    |
000034d0  3a 20 f2 64 61 74 61 4c  6f 61 64 0d 14 78 3a 20  |: .dataLoad..x: |
000034e0  20 20 20 c9 20 4d 65 73  73 61 67 65 5f 44 61 74  |   . Message_Dat|
000034f0  61 4c 6f 61 64 41 63 6b  20 3a 20 e7 20 73 61 76  |aLoadAck : . sav|
00003500  69 6e 67 52 65 66 3e 30  20 f2 64 61 74 61 4c 6f  |ingRef>0 .dataLo|
00003510  61 64 41 63 6b 0d 14 82  37 20 20 20 20 c9 20 4d  |adAck...7    . M|
00003520  65 73 73 61 67 65 5f 52  41 4d 46 65 74 63 68 20  |essage_RAMFetch |
00003530  20 20 20 3a 20 e7 20 73  61 76 69 6e 67 52 65 66  |   : . savingRef|
00003540  3e 30 20 f2 72 61 6d 46  65 74 63 68 0d 14 8c 30  |>0 .ramFetch...0|
00003550  20 20 20 20 c9 20 4d 65  73 73 61 67 65 5f 52 41  |    . Message_RA|
00003560  4d 54 72 61 6e 73 6d 69  74 20 3a 20 f4 50 52 4f  |MTransmit : .PRO|
00003570  43 72 61 6d 54 72 61 6e  73 6d 69 74 0d 14 96 29  |CramTransmit...)|
00003580  20 20 20 20 c9 20 4d 65  73 73 61 67 65 5f 53 65  |    . Message_Se|
00003590  6e 64 48 65 6c 70 20 20  20 20 3a 20 f2 67 69 76  |ndHelp    : .giv|
000035a0  65 48 65 6c 70 0d 14 a0  2d 20 20 20 20 c9 20 4d  |eHelp...-    . M|
000035b0  65 73 73 61 67 65 5f 4d  65 6e 75 57 61 72 6e 69  |essage_MenuWarni|
000035c0  6e 67 20 3a 20 f2 6d 65  6e 75 5f 77 61 72 6e 69  |ng : .menu_warni|
000035d0  6e 67 0d 14 aa 07 20 20  cb 0d 14 b4 05 e1 0d 14  |ng....  ........|
000035e0  be 04 0d 14 c8 0f dd 20  f2 67 69 76 65 48 65 6c  |....... .giveHel|
000035f0  70 0d 14 d2 31 71 25 21  31 32 3d 71 25 21 38 3a  |p...1q%!12=q%!8:|
00003600  71 25 21 31 36 3d 4d 65  73 73 61 67 65 5f 48 65  |q%!16=Message_He|
00003610  6c 70 54 65 78 74 3a 68  65 6c 70 25 3d 71 25 2b  |lpText:help%=q%+|
00003620  32 30 0d 14 dc 14 e7 20  71 25 21 33 36 3d 6d 79  |20..... q%!36=my|
00003630  49 63 6f 6e 20 8c 0d 14  e6 30 20 20 20 20 f2 68  |Icon ....0    .h|
00003640  65 6c 70 28 22 54 68 69  73 20 69 73 20 74 68 65  |elp("This is the|
00003650  20 22 2b 6d 79 4e 61 6d  65 24 2b 22 20 69 63 6f  | "+myName$+" ico|
00003660  6e 2e 2e 2e 22 29 0d 14  f0 27 20 20 20 20 f2 68  |n...")...'    .h|
00003670  65 6c 70 28 22 63 6c 69  63 6b 20 4d 65 6e 75 20  |elp("click Menu |
00003680  66 6f 72 20 6f 70 74 69  6f 6e 73 22 29 0d 14 fa  |for options")...|
00003690  07 20 20 cd 0d 15 04 20  3f 68 65 6c 70 25 3d 30  |.  .... ?help%=0|
000036a0  3a 21 71 25 3d 28 68 65  6c 70 25 2b 34 2d 71 25  |:!q%=(help%+4-q%|
000036b0  29 80 ac 33 0d 15 0e 24  c8 99 20 22 57 69 6d 70  |)..3...$.. "Wimp|
000036c0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000036d0  2c 71 25 2c 71 25 21 34  0d 15 18 05 e1 0d 15 22  |,q%,q%!4......."|
000036e0  04 0d 15 2c 2d dd 20 f2  68 65 6c 70 28 61 24 29  |...,-. .help(a$)|
000036f0  3a 24 68 65 6c 70 25 3d  61 24 2b 22 7c 4d 22 3a  |:$help%=a$+"|M":|
00003700  68 65 6c 70 25 2b 3d a9  61 24 2b 32 3a e1 0d 15  |help%+=.a$+2:...|
00003710  36 04 0d 15 40 37 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |6...@7----------|
00003720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003740  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 15 4a 04 0d 15 54  |---------..J...T|
00003750  26 20 20 20 20 20 20 20  20 2b 2b 2b 20 49 63 6f  |&        +++ Ico|
00003760  6e 20 4f 6e 6c 79 20 72  6f 75 74 69 6e 65 73 20  |n Only routines |
00003770  2b 2b 2b 0d 15 5e 04 0d  15 68 34 dd 20 a4 63 72  |+++..^...h4. .cr|
00003780  49 63 6f 6e 28 21 72 25  2c 72 25 21 34 2c 72 25  |Icon(!r%,r%!4,r%|
00003790  21 38 2c 72 25 21 31 32  2c 72 25 21 31 36 2c 72  |!8,r%!12,r%!16,r|
000037a0  25 21 32 30 2c 73 24 2c  56 25 29 0d 15 72 26 e7  |%!20,s$,V%)..r&.|
000037b0  20 28 a9 73 24 3e 31 31  29 20 84 20 28 28 72 25  | (.s$>11) . ((r%|
000037c0  21 32 30 20 80 20 26 31  30 30 29 3c 3e 30 29 20  |!20 . &100)<>0) |
000037d0  8c 0d 15 7c 1a 20 20 20  20 72 25 21 32 30 3d 72  |...|.    r%!20=r|
000037e0  25 21 32 30 20 84 20 26  31 30 30 0d 15 86 29 20  |%!20 . &100...) |
000037f0  20 20 20 72 25 21 32 34  3d a4 69 6e 64 69 72 65  |   r%!24=.indire|
00003800  63 74 28 73 24 2c 69 63  6f 6e 73 25 2c 69 63 6f  |ct(s$,icons%,ico|
00003810  6e 70 25 29 0d 15 90 2b  20 20 20 20 e7 20 28 72  |np%)...+    . (r|
00003820  25 21 32 30 20 80 20 32  29 3d 32 20 72 25 21 32  |%!20 . 2)=2 r%!2|
00003830  38 3d 56 25 20 8b 20 72  25 21 32 38 3d 2d 31 0d  |8=V% . r%!28=-1.|
00003840  15 9a 13 20 20 20 20 72  25 21 33 32 3d a9 73 24  |...    r%!32=.s$|
00003850  2b 31 0d 15 a4 07 20 20  cc 0d 15 ae 13 20 20 20  |+1....  .....   |
00003860  20 24 28 72 25 2b 32 34  29 3d 73 24 0d 15 b8 07  | $(r%+24)=s$....|
00003870  20 20 cd 0d 15 c2 2a ea  20 49 25 3a c8 99 20 22  |  ....*. I%:.. "|
00003880  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00003890  2c 2c 72 25 20 b8 20 49  25 3a 3d 49 25 0d 15 cc  |,,r% . I%:=I%...|
000038a0  04 0d 15 d6 42 dd 20 a4  63 72 57 72 49 63 6f 6e  |....B. .crWrIcon|
000038b0  28 21 72 25 2c 72 25 21  34 2c 72 25 21 38 2c 72  |(!r%,r%!4,r%!8,r|
000038c0  25 21 31 32 2c 72 25 21  31 36 2c 72 25 21 32 30  |%!12,r%!16,r%!20|
000038d0  2c 72 25 21 32 34 2c 72  25 21 32 38 2c 72 25 21  |,r%!24,r%!28,r%!|
000038e0  33 32 29 0d 15 e0 34 72  25 21 32 30 3d 72 25 21  |32)...4r%!20=r%!|
000038f0  32 30 20 84 20 26 46 31  30 30 3a ea 20 49 25 3a  |20 . &F100:. I%:|
00003900  c8 99 20 43 72 65 61 74  65 49 2c 2c 72 25 20 b8  |.. CreateI,,r% .|
00003910  20 49 25 3a 3d 49 25 0d  15 ea 04 0d 15 f4 43 dd  | I%:=I%.......C.|
00003920  20 f2 63 72 49 6e 64 49  63 6f 6e 28 21 72 25 2c  | .crIndIcon(!r%,|
00003930  72 25 21 34 2c 72 25 21  38 2c 72 25 21 31 32 2c  |r%!4,r%!8,r%!12,|
00003940  72 25 21 31 36 2c 72 25  21 32 30 2c 72 25 21 32  |r%!16,r%!20,r%!2|
00003950  34 2c 72 25 21 32 38 2c  72 25 21 33 32 29 0d 15  |4,r%!28,r%!32)..|
00003960  fe 27 72 25 21 32 30 3d  72 25 21 32 30 20 84 20  |.'r%!20=r%!20 . |
00003970  26 31 30 30 3a c8 99 20  43 72 65 61 74 65 49 2c  |&100:.. CreateI,|
00003980  2c 72 25 3a e1 0d 16 08  04 0d 16 12 24 dd 20 a4  |,r%:........$. .|
00003990  63 72 42 75 74 74 6f 6e  28 77 25 2c f8 20 58 25  |crButton(w%,. X%|
000039a0  2c 59 25 2c 46 25 2c 6e  24 2c 53 25 29 0d 16 1c  |,Y%,F%,n$,S%)...|
000039b0  0e ea 20 48 25 2c 49 25  2c 57 25 0d 16 26 0d e7  |.. H%,I%,W%..&..|
000039c0  20 53 25 3d 2d 31 20 8c  0d 16 30 16 20 20 20 20  | S%=-1 ...0.    |
000039d0  48 25 3d 34 30 3a 57 25  3d a9 6e 24 2b 31 0d 16  |H%=40:W%=.n$+1..|
000039e0  3a 07 20 20 cc 0d 16 44  10 20 20 20 20 e7 20 53  |:.  ...D.    . S|
000039f0  25 3c 32 20 8c 0d 16 4e  2b 20 20 20 20 20 20 20  |%<2 ...N+       |
00003a00  20 c8 99 20 22 57 69 6d  70 5f 42 61 73 65 4f 66  | .. "Wimp_BaseOf|
00003a10  53 70 72 69 74 65 73 22  20 b8 20 48 25 2c 57 25  |Sprites" . H%,W%|
00003a20  0d 16 58 20 20 20 20 20  20 20 20 20 e7 20 53 25  |..X         . S%|
00003a30  3d 30 20 53 25 3d 48 25  20 8b 20 53 25 3d 57 25  |=0 S%=H% . S%=W%|
00003a40  0d 16 62 0b 20 20 20 20  20 20 cd 0d 16 6c 2a 20  |..b.      ...l* |
00003a50  20 20 20 c8 99 20 53 70  72 6f 70 25 2c 26 31 30  |   .. Sprop%,&10|
00003a60  30 2b 34 30 2c 53 25 2c  6e 24 20 b8 20 2c 2c 2c  |0+40,S%,n$ . ,,,|
00003a70  57 25 2c 48 25 0d 16 76  19 20 20 20 20 48 25 3d  |W%,H%..v.    H%=|
00003a80  48 25 3c 3c 32 3a 57 25  3d 57 25 3c 3c 31 0d 16  |H%<<2:W%=W%<<1..|
00003a90  80 12 20 20 20 20 46 25  3d 46 25 84 26 31 30 30  |..    F%=F%.&100|
00003aa0  0d 16 8a 07 20 20 cd 0d  16 94 2d 49 25 3d a4 63  |....  ....-I%=.c|
00003ab0  72 49 63 6f 6e 28 77 25  2c 58 25 2c 59 25 2c 58  |rIcon(w%,X%,Y%,X|
00003ac0  25 2b 57 25 2c 59 25 2b  48 25 2c 46 25 2c 6e 24  |%+W%,Y%+H%,F%,n$|
00003ad0  2c 53 25 29 0d 16 9e 10  58 25 2b 3d 57 25 2b 34  |,S%)....X%+=W%+4|
00003ae0  3a 3d 49 25 0d 16 a8 04  0d 16 b2 1f dd 20 f2 63  |:=I%......... .c|
00003af0  6f 6c 6f 75 72 49 63 6f  6e 28 72 25 21 30 2c 72  |olourIcon(r%!0,r|
00003b00  25 21 34 2c 43 25 29 0d  16 bc 1f 72 25 21 38 3d  |%!4,C%)....r%!8=|
00003b10  43 25 3c 3c 32 34 3a 72  25 21 31 32 3d 26 30 46  |C%<<24:r%!12=&0F|
00003b20  30 30 30 30 30 30 0d 16  c6 20 c8 99 20 22 57 69  |000000... .. "Wi|
00003b30  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00003b40  2c 2c 72 25 3a e1 0d 16  d0 04 0d 16 da 24 dd 20  |,,r%:........$. |
00003b50  f2 73 65 74 49 63 6f 6e  28 72 25 21 30 2c 72 25  |.setIcon(r%!0,r%|
00003b60  21 34 2c 72 25 21 31 32  2c 72 25 21 38 29 0d 16  |!4,r%!12,r%!8)..|
00003b70  e4 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |. .. "Wimp_SetIc|
00003b80  6f 6e 53 74 61 74 65 22  2c 2c 72 25 3a e1 0d 16  |onState",,r%:...|
00003b90  ee 04 0d 16 f8 33 dd 20  f2 64 65 6c 65 74 65 41  |.....3. .deleteA|
00003ba0  6c 6c 49 63 6f 6e 73 28  72 25 21 30 29 3a c8 99  |llIcons(r%!0):..|
00003bb0  20 47 65 74 57 49 2c 2c  72 25 3a 72 25 21 34 3d  | GetWI,,r%:r%!4=|
00003bc0  72 25 21 38 38 0d 17 02  29 c8 95 20 72 25 21 34  |r%!88...).. r%!4|
00003bd0  3e 2d 31 3a c8 99 20 44  65 6c 65 74 65 49 2c 2c  |>-1:.. DeleteI,,|
00003be0  72 25 3a 72 25 21 34 2d  3d 31 3a ce 3a e1 0d 17  |r%:r%!4-=1:.:...|
00003bf0  0c 04 0d 17 16 23 dd 20  f2 77 68 69 63 68 5f 69  |.....#. .which_i|
00003c00  63 6f 6e 28 48 25 2c 4e  25 2c 42 25 2c 45 25 29  |con(H%,N%,B%,E%)|
00003c10  3a ea 20 50 25 0d 17 20  22 c8 95 20 4e 25 3e 30  |:. P%.. ".. N%>0|
00003c20  3a 72 25 21 50 25 3d 4e  25 3a 50 25 2b 3d 34 3a  |:r%!P%=N%:P%+=4:|
00003c30  4e 25 2d 3d 31 3a ce 0d  17 2a 2e 72 25 21 50 25  |N%-=1:...*.r%!P%|
00003c40  3d 2d 31 3a c8 99 20 22  57 69 6d 70 5f 57 68 69  |=-1:.. "Wimp_Whi|
00003c50  63 68 49 63 6f 6e 22 2c  48 25 2c 72 25 2c 42 25  |chIcon",H%,r%,B%|
00003c60  2c 45 25 3a e1 0d 17 34  04 0d 17 3e 37 2d 2d 2d  |,E%:...4...>7---|
00003c70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003ca0  0d 17 48 04 0d 17 52 27  20 20 20 20 20 20 20 20  |..H...R'        |
00003cb0  20 2b 2b 2b 20 57 69 6d  70 20 4f 6e 6c 79 20 72  | +++ Wimp Only r|
00003cc0  6f 75 74 69 6e 65 73 20  2b 2b 2b 0d 17 5c 04 0d  |outines +++..\..|
00003cd0  17 66 0f dd 20 f2 69 6e  69 74 57 69 6d 70 0d 17  |.f.. .initWimp..|
00003ce0  70 23 77 62 63 6f 6c 3d  31 3a 74 62 63 6f 6c 3d  |p#wbcol=1:tbcol=|
00003cf0  20 32 3a 73 63 6f 3d 33  3a 6d 62 63 6f 6c 20 3d  | 2:sco=3:mbcol =|
00003d00  32 0d 17 7a 23 77 66 63  6f 6c 3d 30 3a 74 66 63  |2..z#wfcol=0:tfc|
00003d10  6f 6c 3d 20 36 3a 73 63  69 3d 31 3a 74 62 63 6f  |ol= 6:sci=1:tbco|
00003d20  6c 32 3d 39 0d 17 84 1e  57 69 6d 70 20 20 20 20  |l2=9....Wimp    |
00003d30  3d 20 28 31 3c 3c 31 38  29 20 2b 20 28 33 3c 3c  |= (1<<18) + (3<<|
00003d40  36 29 0d 17 8e 27 43 72  65 61 74 65 57 20 3d 20  |6)...'CreateW = |
00003d50  57 69 6d 70 2b 20 31 3a  43 72 65 61 74 65 49 20  |Wimp+ 1:CreateI |
00003d60  3d 20 57 69 6d 70 2b 20  32 0d 17 98 27 44 65 6c  |= Wimp+ 2...'Del|
00003d70  65 74 65 57 20 3d 20 57  69 6d 70 2b 20 33 3a 44  |eteW = Wimp+ 3:D|
00003d80  65 6c 65 74 65 49 20 3d  20 57 69 6d 70 2b 20 34  |eleteI = Wimp+ 4|
00003d90  0d 17 a2 27 4f 70 65 6e  57 20 20 20 3d 20 57 69  |...'OpenW   = Wi|
00003da0  6d 70 2b 20 35 3a 43 6c  6f 73 65 57 20 20 3d 20  |mp+ 5:CloseW  = |
00003db0  57 69 6d 70 2b 20 36 0d  17 ac 27 50 6f 6c 6c 20  |Wimp+ 6...'Poll |
00003dc0  20 20 20 3d 20 57 69 6d  70 2b 20 37 3a 52 65 64  |   = Wimp+ 7:Red|
00003dd0  72 61 77 57 20 3d 20 57  69 6d 70 2b 20 38 0d 17  |rawW = Wimp+ 8..|
00003de0  b6 27 55 70 64 61 74 65  57 20 3d 20 57 69 6d 70  |.'UpdateW = Wimp|
00003df0  2b 20 39 3a 47 65 74 52  20 20 20 20 3d 20 57 69  |+ 9:GetR    = Wi|
00003e00  6d 70 2b 31 30 0d 17 c0  27 47 65 74 57 20 20 20  |mp+10...'GetW   |
00003e10  20 3d 20 57 69 6d 70 2b  31 31 3a 47 65 74 57 49  | = Wimp+11:GetWI|
00003e20  20 20 20 3d 20 57 69 6d  70 2b 31 32 0d 17 ca 15  |   = Wimp+12....|
00003e30  47 65 74 49 49 20 20 20  3d 20 57 69 6d 70 2b 31  |GetII   = Wimp+1|
00003e40  34 0d 17 d4 27 47 65 74  50 49 20 20 20 3d 20 57  |4...'GetPI   = W|
00003e50  69 6d 70 2b 31 35 3a 44  72 61 67 20 20 20 20 3d  |imp+15:Drag    =|
00003e60  20 57 69 6d 70 2b 31 36  0d 17 de 15 46 6f 72 63  | Wimp+16....Forc|
00003e70  65 52 64 20 3d 20 57 69  6d 70 2b 31 37 0d 17 e8  |eRd = Wimp+17...|
00003e80  27 43 72 4d 65 6e 75 20  20 3d 20 57 69 6d 70 2b  |'CrMenu  = Wimp+|
00003e90  32 30 3a 44 63 4d 65 6e  75 20 20 3d 20 57 69 6d  |20:DcMenu  = Wim|
00003ea0  70 2b 32 31 0d 17 f2 27  4f 70 65 6e 54 20 20 20  |p+21...'OpenT   |
00003eb0  3d 20 57 69 6d 70 2b 32  35 3a 43 6c 6f 73 65 54  |= Wimp+25:CloseT|
00003ec0  20 20 3d 20 57 69 6d 70  2b 32 36 0d 17 fc 15 4c  |  = Wimp+26....L|
00003ed0  6f 61 64 54 20 20 20 3d  20 57 69 6d 70 2b 32 37  |oadT   = Wimp+27|
00003ee0  0d 18 06 04 0d 18 10 14  57 69 6d 70 45 78 74 20  |........WimpExt |
00003ef0  3d 20 26 34 35 37 38 30  0d 18 1a 04 0d 18 24 22  |= &45780......$"|
00003f00  4e 75 6c 6c 5f 52 65 61  73 6f 6e 5f 43 6f 64 65  |Null_Reason_Code|
00003f10  20 20 20 20 20 20 20 20  20 3d 20 20 20 30 0d 18  |         =   0..|
00003f20  2e 22 52 65 64 72 61 77  5f 57 69 6e 64 6f 77 5f  |."Redraw_Window_|
00003f30  52 65 71 75 65 73 74 20  20 20 20 3d 20 20 20 31  |Request    =   1|
00003f40  0d 18 38 22 4f 70 65 6e  5f 57 69 6e 64 6f 77 5f  |..8"Open_Window_|
00003f50  52 65 71 75 65 73 74 20  20 20 20 20 20 3d 20 20  |Request      =  |
00003f60  20 32 0d 18 42 22 43 6c  6f 73 65 5f 57 69 6e 64  | 2..B"Close_Wind|
00003f70  6f 77 5f 52 65 71 75 65  73 74 20 20 20 20 20 3d  |ow_Request     =|
00003f80  20 20 20 33 0d 18 4c 22  50 6f 69 6e 74 65 72 5f  |   3..L"Pointer_|
00003f90  4c 65 61 76 69 6e 67 5f  57 69 6e 64 6f 77 20 20  |Leaving_Window  |
00003fa0  20 3d 20 20 20 34 0d 18  56 22 50 6f 69 6e 74 65  | =   4..V"Pointe|
00003fb0  72 5f 45 6e 74 65 72 69  6e 67 5f 57 69 6e 64 6f  |r_Entering_Windo|
00003fc0  77 20 20 3d 20 20 20 35  0d 18 60 22 4d 6f 75 73  |w  =   5..`"Mous|
00003fd0  65 5f 43 6c 69 63 6b 20  20 20 20 20 20 20 20 20  |e_Click         |
00003fe0  20 20 20 20 20 3d 20 20  20 36 0d 18 6a 22 55 73  |     =   6..j"Us|
00003ff0  65 72 5f 44 72 61 67 5f  42 6f 78 20 20 20 20 20  |er_Drag_Box     |
00004000  20 20 20 20 20 20 20 3d  20 20 20 37 0d 18 74 22  |       =   7..t"|
00004010  4b 65 79 5f 50 72 65 73  73 65 64 20 20 20 20 20  |Key_Pressed     |
00004020  20 20 20 20 20 20 20 20  20 3d 20 20 20 38 0d 18  |         =   8..|
00004030  7e 22 4d 65 6e 75 5f 53  65 6c 65 63 74 69 6f 6e  |~"Menu_Selection|
00004040  20 20 20 20 20 20 20 20  20 20 20 3d 20 20 20 39  |           =   9|
00004050  0d 18 88 22 53 63 72 6f  6c 6c 5f 52 65 71 75 65  |..."Scroll_Reque|
00004060  73 74 20 20 20 20 20 20  20 20 20 20 20 3d 20 20  |st           =  |
00004070  31 30 0d 18 92 22 4c 6f  73 65 5f 43 61 72 65 74  |10..."Lose_Caret|
00004080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3d  |               =|
00004090  20 20 31 31 0d 18 9c 22  47 61 69 6e 5f 43 61 72  |  11..."Gain_Car|
000040a0  65 74 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |et              |
000040b0  20 3d 20 20 31 32 0d 18  a6 22 55 73 65 72 5f 4d  | =  12..."User_M|
000040c0  65 73 73 61 67 65 20 20  20 20 20 20 20 20 20 20  |essage          |
000040d0  20 20 20 3d 20 20 31 37  0d 18 b0 22 55 73 65 72  |   =  17..."User|
000040e0  5f 4d 65 73 73 61 67 65  5f 52 65 63 6f 72 64 65  |_Message_Recorde|
000040f0  64 20 20 20 20 3d 20 20  31 38 0d 18 ba 22 55 73  |d    =  18..."Us|
00004100  65 72 5f 4d 65 73 73 61  67 65 5f 41 63 6b 6e 6f  |er_Message_Ackno|
00004110  77 6c 65 64 67 65 20 3d  20 20 31 39 0d 18 c4 04  |wledge =  19....|
00004120  0d 18 ce 04 0d 18 d8 23  4d 65 73 73 61 67 65 5f  |.......#Message_|
00004130  51 75 69 74 20 20 20 20  20 20 20 20 20 20 20 3d  |Quit           =|
00004140  20 20 20 20 20 20 30 0d  18 e2 23 4d 65 73 73 61  |      0...#Messa|
00004150  67 65 5f 44 61 74 61 53  61 76 65 20 20 20 20 20  |ge_DataSave     |
00004160  20 20 3d 20 20 20 20 20  20 31 0d 18 ec 23 4d 65  |  =      1...#Me|
00004170  73 73 61 67 65 5f 44 61  74 61 53 61 76 65 41 63  |ssage_DataSaveAc|
00004180  6b 20 20 20 20 3d 20 20  20 20 20 20 32 0d 18 f6  |k    =      2...|
00004190  23 4d 65 73 73 61 67 65  5f 44 61 74 61 4c 6f 61  |#Message_DataLoa|
000041a0  64 20 20 20 20 20 20 20  3d 20 20 20 20 20 20 33  |d       =      3|
000041b0  0d 19 00 23 4d 65 73 73  61 67 65 5f 44 61 74 61  |...#Message_Data|
000041c0  4c 6f 61 64 41 63 6b 20  20 20 20 3d 20 20 20 20  |LoadAck    =    |
000041d0  20 20 34 0d 19 0a 23 4d  65 73 73 61 67 65 5f 44  |  4...#Message_D|
000041e0  61 74 61 4f 70 65 6e 20  20 20 20 20 20 20 3d 20  |ataOpen       = |
000041f0  20 20 20 20 20 35 0d 19  14 23 4d 65 73 73 61 67  |     5...#Messag|
00004200  65 5f 52 41 4d 46 65 74  63 68 20 20 20 20 20 20  |e_RAMFetch      |
00004210  20 3d 20 20 20 20 20 20  36 0d 19 1e 23 4d 65 73  | =      6...#Mes|
00004220  73 61 67 65 5f 52 41 4d  54 72 61 6e 73 6d 69 74  |sage_RAMTransmit|
00004230  20 20 20 20 3d 20 20 20  20 20 20 37 0d 19 28 23  |    =      7..(#|
00004240  4d 65 73 73 61 67 65 5f  50 72 65 51 75 69 74 20  |Message_PreQuit |
00004250  20 20 20 20 20 20 20 3d  20 20 20 20 20 20 38 0d  |       =      8.|
00004260  19 32 23 4d 65 73 73 61  67 65 5f 50 61 6c 65 74  |.2#Message_Palet|
00004270  74 65 43 68 61 6e 67 65  20 20 3d 20 20 20 20 20  |teChange  =     |
00004280  20 39 0d 19 3c 23 4d 65  73 73 61 67 65 5f 46 69  | 9..<#Message_Fi|
00004290  6c 65 72 4f 70 65 6e 44  69 72 20 20 20 3d 20 20  |lerOpenDir   =  |
000042a0  20 26 34 30 30 0d 19 46  23 4d 65 73 73 61 67 65  | &400..F#Message|
000042b0  5f 46 69 6c 65 72 43 6c  6f 73 65 44 69 72 20 20  |_FilerCloseDir  |
000042c0  3d 20 20 20 26 34 30 31  0d 19 50 23 4d 65 73 73  |=   &401..P#Mess|
000042d0  61 67 65 5f 53 65 6e 64  48 65 6c 70 20 20 20 20  |age_SendHelp    |
000042e0  20 20 20 3d 20 20 20 26  35 30 32 0d 19 5a 23 4d  |   =   &502..Z#M|
000042f0  65 73 73 61 67 65 5f 48  65 6c 70 54 65 78 74 20  |essage_HelpText |
00004300  20 20 20 20 20 20 3d 20  20 20 26 35 30 33 0d 19  |      =   &503..|
00004310  64 23 4d 65 73 73 61 67  65 5f 4e 6f 74 69 66 79  |d#Message_Notify|
00004320  20 20 20 20 20 20 20 20  20 3d 20 26 34 30 30 34  |         = &4004|
00004330  30 0d 19 6e 23 4d 65 73  73 61 67 65 5f 4d 65 6e  |0..n#Message_Men|
00004340  75 57 61 72 6e 69 6e 67  20 20 20 20 3d 20 26 34  |uWarning    = &4|
00004350  30 30 43 30 0d 19 78 23  4d 65 73 73 61 67 65 5f  |00C0..x#Message_|
00004360  4d 6f 64 65 43 68 61 6e  67 65 20 20 20 20 20 3d  |ModeChange     =|
00004370  20 26 34 30 30 43 31 0d  19 82 23 4d 65 73 73 61  | &400C1...#Messa|
00004380  67 65 5f 54 61 73 6b 49  6e 69 74 69 61 6c 69 73  |ge_TaskInitialis|
00004390  65 20 3d 20 26 34 30 30  43 32 0d 19 8c 23 4d 65  |e = &400C2...#Me|
000043a0  73 73 61 67 65 5f 54 61  73 6b 43 6c 6f 73 65 44  |ssage_TaskCloseD|
000043b0  6f 77 6e 20 20 3d 20 26  34 30 30 43 33 0d 19 96  |own  = &400C3...|
000043c0  23 4d 65 73 73 61 67 65  5f 53 6c 6f 74 53 69 7a  |#Message_SlotSiz|
000043d0  65 20 20 20 20 20 20 20  3d 20 26 34 30 30 43 34  |e       = &400C4|
000043e0  0d 19 a0 23 4d 65 73 73  61 67 65 5f 53 65 74 53  |...#Message_SetS|
000043f0  6c 6f 74 20 20 20 20 20  20 20 20 3d 20 26 34 30  |lot        = &40|
00004400  30 43 35 0d 19 aa 23 4d  65 73 73 61 67 65 5f 54  |0C5...#Message_T|
00004410  61 73 6b 4e 61 6d 65 52  71 20 20 20 20 20 3d 20  |askNameRq     = |
00004420  26 34 30 30 43 36 0d 19  b4 23 4d 65 73 73 61 67  |&400C6...#Messag|
00004430  65 5f 54 61 73 6b 4e 61  6d 65 49 73 20 20 20 20  |e_TaskNameIs    |
00004440  20 3d 20 26 34 30 30 43  37 0d 19 be 04 0d 19 c8  | = &400C7.......|
00004450  38 c8 99 20 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |8.. "OS_SWINumbe|
00004460  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 57  |rFromString",,"W|
00004470  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 20 b8  |imp_SetColour" .|
00004480  20 43 6f 6c 25 0d 19 d2  3a c8 99 20 22 4f 53 5f  | Col%...:.. "OS_|
00004490  53 57 49 4e 75 6d 62 65  72 46 72 6f 6d 53 74 72  |SWINumberFromStr|
000044a0  69 6e 67 22 2c 2c 22 57  69 6d 70 5f 46 6f 72 63  |ing",,"Wimp_Forc|
000044b0  65 52 65 64 72 61 77 22  20 b8 20 46 72 65 64 0d  |eRedraw" . Fred.|
000044c0  19 dc 3d c8 99 20 22 4f  53 5f 53 57 49 4e 75 6d  |..=.. "OS_SWINum|
000044d0  62 65 72 46 72 6f 6d 53  74 72 69 6e 67 22 2c 2c  |berFromString",,|
000044e0  22 57 69 6d 70 5f 42 61  73 65 4f 66 53 70 72 69  |"Wimp_BaseOfSpri|
000044f0  74 65 73 22 20 b8 20 42  61 73 65 53 0d 19 e6 04  |tes" . BaseS....|
00004500  0d 19 f0 1d 73 63 72 61  70 46 69 6c 65 24 3d 22  |....scrapFile$="|
00004510  3c 77 69 6d 70 24 73 63  72 61 70 3e 22 0d 19 fa  |<wimp$scrap>"...|
00004520  05 e1 0d 1a 04 04 0d 1a  0e 0f dd 20 f2 70 6f 6c  |........... .pol|
00004530  6c 57 69 6d 70 0d 1a 18  18 c8 99 20 22 57 69 6d  |lWimp...... "Wim|
00004540  70 45 78 74 5f 50 72 65  50 6f 6c 6c 22 0d 1a 22  |pExt_PrePoll".."|
00004550  1a c8 99 20 50 6f 6c 6c  2c 30 2c 71 25 20 b8 20  |... Poll,0,q% . |
00004560  61 63 74 69 6f 6e 25 0d  1a 2c 28 c8 99 20 22 57  |action%..,(.. "W|
00004570  69 6d 70 45 78 74 5f 41  63 74 69 6f 6e 22 2c 74  |impExt_Action",t|
00004580  61 73 6b 25 2c 71 25 2c  61 63 74 69 6f 6e 25 0d  |ask%,q%,action%.|
00004590  1a 36 10 c8 8e 20 61 63  74 69 6f 6e 25 20 ca 0d  |.6... action% ..|
000045a0  1a 40 20 20 20 c9 20 20  31 20 3a 20 f2 72 65 64  |.@   .  1 : .red|
000045b0  72 61 77 5f 77 69 6e 64  6f 77 28 21 71 25 29 0d  |raw_window(!q%).|
000045c0  1a 4a 40 20 20 c9 20 20  32 20 3a 20 f2 6f 70 65  |.J@  .  2 : .ope|
000045d0  6e 57 28 21 71 25 2c 71  25 21 34 2c 71 25 21 38  |nW(!q%,q%!4,q%!8|
000045e0  2c 71 25 21 31 32 2c 71  25 21 31 36 2c 71 25 21  |,q%!12,q%!16,q%!|
000045f0  32 30 2c 71 25 21 32 34  2c 71 25 21 32 38 29 0d  |20,q%!24,q%!28).|
00004600  1a 54 19 20 20 c9 20 20  33 20 3a 20 f2 63 6c 6f  |.T.  .  3 : .clo|
00004610  73 65 57 28 21 71 25 29  0d 1a 5e 30 20 20 c9 20  |seW(!q%)..^0  . |
00004620  20 36 20 3a 20 c8 99 20  22 57 69 6d 70 45 78 74  | 6 : .. "WimpExt|
00004630  5f 53 6c 61 62 49 63 6f  6e 22 2c 2c 2c 71 25 21  |_SlabIcon",,,q%!|
00004640  31 32 2c 71 25 21 31 36  0d 1a 68 38 20 20 20 20  |12,q%!16..h8    |
00004650  20 20 20 20 20 20 20 20  f2 63 68 65 63 6b 6d 28  |        .checkm(|
00004660  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
00004670  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 29  |!12,q%!16,q%!20)|
00004680  0d 1a 72 2a 20 20 c9 20  20 37 20 3a 20 f2 65 6e  |..r*  .  7 : .en|
00004690  64 64 72 61 67 28 21 71  25 2c 71 25 21 34 2c 71  |ddrag(!q%,q%!4,q|
000046a0  25 21 38 2c 71 25 21 31  32 29 0d 1a 7c 20 20 20  |%!8,q%!12)..|   |
000046b0  c9 20 20 38 20 3a 20 f2  6b 65 79 5f 70 72 65 73  |.  8 : .key_pres|
000046c0  73 65 64 28 71 25 21 32  34 29 0d 1a 86 1c 20 20  |sed(q%!24)....  |
000046d0  c9 20 20 39 20 3a 20 f2  6d 65 6e 75 73 65 6c 65  |.  9 : .menusele|
000046e0  63 74 28 71 25 29 0d 1a  90 18 20 20 c9 20 31 31  |ct(q%)....  . 11|
000046f0  20 3a 20 49 47 6f 74 43  61 72 65 74 3d a3 0d 1a  | : IGotCaret=...|
00004700  9a 18 20 20 c9 20 31 32  20 3a 20 49 47 6f 74 43  |..  . 12 : IGotC|
00004710  61 72 65 74 3d b9 0d 1a  a4 1c 20 20 c9 20 31 37  |aret=.....  . 17|
00004720  2c 31 38 20 3a 20 f2 6d  65 73 73 61 67 65 28 71  |,18 : .message(q|
00004730  25 29 0d 1a ae 07 20 20  cb 0d 1a b8 05 e1 0d 1a  |%)....  ........|
00004740  c2 04 0d 1a cc 20 dd 20  a4 69 6e 64 69 72 65 63  |..... . .indirec|
00004750  74 28 74 24 2c 42 25 2c  f8 20 50 25 29 3a ea 20  |t(t$,B%,. P%):. |
00004760  51 25 0d 1a d6 21 51 25  3d 42 25 2b 50 25 3a 24  |Q%...!Q%=B%+P%:$|
00004770  51 25 3d 74 24 3a 50 25  2b 3d a9 74 24 2b 31 3a  |Q%=t$:P%+=.t$+1:|
00004780  3d 51 25 0d 1a e0 04 0d  1a ea 29 dd 20 f2 75 70  |=Q%.......). .up|
00004790  64 61 74 65 28 71 25 21  30 2c 71 25 21 34 2c 71  |date(q%!0,q%!4,q|
000047a0  25 21 38 2c 71 25 21 31  32 2c 71 25 21 31 36 29  |%!8,q%!12,q%!16)|
000047b0  0d 1a f4 32 c8 99 20 55  70 64 61 74 65 57 2c 2c  |...2.. UpdateW,,|
000047c0  71 25 20 b8 20 6d 6f 72  65 25 3a f2 6f 72 69 67  |q% . more%:.orig|
000047d0  69 6e 28 71 25 2b 34 2c  6f 78 25 2c 6f 79 25 29  |in(q%+4,ox%,oy%)|
000047e0  3a e1 0d 1a fe 04 0d 1b  08 34 dd 20 f2 67 65 74  |:........4. .get|
000047f0  57 28 21 71 25 29 c8 99  20 47 65 74 57 49 2c 2c  |W(!q%).. GetWI,,|
00004800  71 25 3a f2 6f 72 69 67  69 6e 28 71 25 2b 34 2c  |q%:.origin(q%+4,|
00004810  6f 78 25 2c 6f 79 25 29  3a e1 0d 1b 12 04 0d 1b  |ox%,oy%):.......|
00004820  1c 39 dd 20 f2 6f 72 69  67 69 6e 28 7a 25 2c f8  |.9. .origin(z%,.|
00004830  20 58 25 2c f8 20 59 25  29 58 25 3d 7a 25 21 30  | X%,. Y%)X%=z%!0|
00004840  2d 7a 25 21 31 36 3a 59  25 3d 7a 25 21 32 30 2d  |-z%!16:Y%=z%!20-|
00004850  7a 25 21 31 32 3a e1 0d  1b 26 04 0d 1b 30 25 dd  |z%!12:...&...0%.|
00004860  20 f2 67 65 74 70 28 f8  20 42 25 2c f8 20 48 25  | .getp(. B%,. H%|
00004870  2c f8 20 49 25 2c f8 20  58 25 2c f8 20 59 25 29  |,. I%,. X%,. Y%)|
00004880  0d 1b 3a 3b c8 99 20 47  65 74 50 49 2c 2c 71 25  |..:;.. GetPI,,q%|
00004890  3a 58 25 3d 21 71 25 3a  59 25 3d 71 25 21 34 3a  |:X%=!q%:Y%=q%!4:|
000048a0  42 25 3d 71 25 21 38 3a  48 25 3d 71 25 21 31 32  |B%=q%!8:H%=q%!12|
000048b0  3a 49 25 3d 71 25 21 31  36 3a e1 0d 1b 44 04 0d  |:I%=q%!16:...D..|
000048c0  1b 4e 24 dd 20 f2 66 6f  72 63 65 52 65 64 72 61  |.N$. .forceRedra|
000048d0  77 28 71 25 21 30 29 3a  f2 67 65 74 57 28 71 25  |w(q%!0):.getW(q%|
000048e0  21 30 29 0d 1b 58 34 c8  99 20 22 57 69 6d 70 5f  |!0)..X4.. "Wimp_|
000048f0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 2d 31 2c  |ForceRedraw",-1,|
00004900  71 25 21 34 2c 71 25 21  38 2c 71 25 21 31 32 2c  |q%!4,q%!8,q%!12,|
00004910  71 25 21 31 36 3a e1 0d  1b 62 04 0d 1b 6c 3c dd  |q%!16:...b...l<.|
00004920  20 f2 72 65 4f 70 65 6e  28 71 25 21 30 29 c8 99  | .reOpen(q%!0)..|
00004930  20 47 65 74 57 2c 2c 71  25 3a c8 99 20 22 57 69  | GetW,,q%:.. "Wi|
00004940  6d 70 45 78 74 5f 4f 70  65 6e 4c 69 6e 6b 65 64  |mpExt_OpenLinked|
00004950  22 2c 2c 71 25 3a e1 0d  1b 76 04 0d 1b 80 37 2d  |",,q%:...v....7-|
00004960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004990  2d 2d 0d 1b 8a 04 0d 1b  94 20 dd 20 f2 64 72 61  |--....... . .dra|
000049a0  67 49 63 6f 6e 28 68 25  2c 69 25 29 3a f2 67 65  |gIcon(h%,i%):.ge|
000049b0  74 57 28 68 25 29 0d 1b  9e 20 71 25 21 30 3d 68  |tW(h%)... q%!0=h|
000049c0  25 3a 71 25 21 34 3d 69  25 3a c8 99 20 47 65 74  |%:q%!4=i%:.. Get|
000049d0  49 49 2c 2c 71 25 0d 1b  a8 18 71 25 21 38 2b 3d  |II,,q%....q%!8+=|
000049e0  6f 78 25 3a 71 25 21 31  36 2b 3d 6f 78 25 0d 1b  |ox%:q%!16+=ox%..|
000049f0  b2 19 71 25 21 31 32 2d  3d 6f 79 25 3a 71 25 21  |..q%!12-=oy%:q%!|
00004a00  32 30 2d 3d 6f 79 25 0d  1b bc 29 71 25 21 32 34  |20-=oy%...)q%!24|
00004a10  3d 30 3a 71 25 21 32 38  3d 30 3a 71 25 21 33 32  |=0:q%!28=0:q%!32|
00004a20  3d 31 32 38 30 3a 71 25  21 33 36 3d 31 30 32 34  |=1280:q%!36=1024|
00004a30  0d 1b c6 18 71 25 21 34  3d 35 3a c8 99 20 44 72  |....q%!4=5:.. Dr|
00004a40  61 67 2c 2c 71 25 3a e1  0d 1b d0 04 0d 1b da 37  |ag,,q%:........7|
00004a50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004a80  2d 2d 2d 0d 1b e4 04 0d  1b ee 1c 20 2b 2b 2b 2b  |---........ ++++|
00004a90  20 4d 65 6e 75 20 45 6e  63 6f 64 69 6e 67 20 2b  | Menu Encoding +|
00004aa0  2b 2b 2b 0d 1b f8 04 0d  1c 02 0d dd 20 a4 63 72  |+++......... .cr|
00004ab0  4d 65 6e 75 0d 1c 0c 1d  ea 20 49 25 2c 4c 25 2c  |Menu..... I%,L%,|
00004ac0  4e 25 2c 50 25 2c 51 25  2c 71 25 2c 69 24 2c 74  |N%,P%,Q%,q%,i$,t|
00004ad0  24 0d 1c 16 14 f3 20 4e  25 2c 74 24 3a 4c 25 3d  |$..... N%,t$:L%=|
00004ae0  a9 74 24 2b 31 0d 1c 20  33 51 25 3d 6d 65 6e 75  |.t$+1.. 3Q%=menu|
00004af0  53 70 61 63 65 25 2b 6d  65 6e 75 70 74 72 25 3a  |Space%+menuptr%:|
00004b00  6d 65 6e 75 70 74 72 25  2b 3d 32 38 2b 32 34 2a  |menuptr%+=28+24*|
00004b10  4e 25 3a 71 25 3d 51 25  0d 1c 2a 3e e7 20 6d 65  |N%:q%=Q%..*>. me|
00004b20  6e 75 70 74 72 25 3e 6d  65 6e 75 4d 61 78 25 20  |nuptr%>menuMax% |
00004b30  85 20 30 2c 22 4d 65 6e  75 20 62 75 66 66 65 72  |. 0,"Menu buffer|
00004b40  20 65 78 63 65 65 64 65  64 20 61 74 20 27 22 2b  | exceeded at '"+|
00004b50  74 24 2b 22 27 22 0d 1c  34 04 0d 1c 3e 2e e7 20  |t$+"'"..4...>.. |
00004b60  74 24 3d 22 22 20 51 25  21 30 3d 30 3a 51 25 21  |t$="" Q%!0=0:Q%!|
00004b70  34 3d 30 3a 51 25 21 38  3d 30 20 8b 20 24 51 25  |4=0:Q%!8=0 . $Q%|
00004b80  3d c0 74 24 2c 31 31 29  0d 1c 48 23 51 25 3f 31  |=.t$,11)..H#Q%?1|
00004b90  32 3d 74 66 63 6f 6c 3a  51 25 3f 31 33 3d 74 62  |2=tfcol:Q%?13=tb|
00004ba0  63 6f 6c 3a 51 25 3f 31  34 3d 36 0d 1c 52 23 51  |col:Q%?14=6..R#Q|
00004bb0  25 3f 31 35 3d 30 3a 51  25 21 32 30 3d 34 30 3a  |%?15=0:Q%!20=40:|
00004bc0  51 25 21 32 34 3d 30 3a  51 25 2b 3d 32 38 0d 1c  |Q%!24=0:Q%+=28..|
00004bd0  5c 14 e3 20 49 25 3d 31  20 b8 20 4e 25 3a f3 20  |\.. I%=1 . N%:. |
00004be0  69 24 0d 1c 66 1c 20 20  f2 6d 65 6e 75 69 74 65  |i$..f.  .menuite|
00004bf0  6d 28 69 24 2c 4c 25 2c  49 25 3d 4e 25 29 0d 1c  |m(i$,L%,I%=N%)..|
00004c00  70 07 20 20 ed 0d 1c 7a  17 71 25 21 31 36 3d 28  |p.  ...z.q%!16=(|
00004c10  4c 25 2b 31 29 2a 31 36  3a 3d 71 25 0d 1c 84 04  |L%+1)*16:=q%....|
00004c20  0d 1c 8e 1e dd 20 f2 6d  65 6e 75 69 74 65 6d 28  |..... .menuitem(|
00004c30  69 24 2c f8 20 4c 25 2c  6c 61 73 74 25 29 0d 1c  |i$,. L%,last%)..|
00004c40  98 17 ea 20 46 25 2c 50  25 2c 52 25 2c 76 24 2c  |... F%,P%,R%,v$,|
00004c50  74 24 2c 6f 24 0d 1c a2  2d ea 20 74 69 63 6b 25  |t$,o$...-. tick%|
00004c60  2c 64 6f 74 74 65 64 25  2c 77 61 72 6e 69 6e 67  |,dotted%,warning|
00004c70  25 2c 6e 6f 5f 73 65 6c  65 63 74 25 2c 74 79 70  |%,no_select%,typ|
00004c80  65 25 0d 1c ac 13 6c 61  73 74 25 3d 6c 61 73 74  |e%....last%=last|
00004c90  25 80 26 38 30 0d 1c b6  1a 74 69 63 6b 25 3d 28  |%.&80....tick%=(|
00004ca0  c1 69 24 2c 31 2c 31 29  3d 22 2a 22 29 80 31 0d  |.i$,1,1)="*").1.|
00004cb0  1c c0 1c 64 6f 74 74 65  64 25 3d 28 c1 69 24 2c  |...dotted%=(.i$,|
00004cc0  32 2c 31 29 3d 22 2a 22  29 80 32 0d 1c ca 1d 77  |2,1)="*").2....w|
00004cd0  61 72 6e 69 6e 67 25 3d  28 c1 69 24 2c 33 2c 31  |arning%=(.i$,3,1|
00004ce0  29 3d 22 2a 22 29 80 38  0d 1c d4 25 6e 6f 5f 73  |)="*").8...%no_s|
00004cf0  65 6c 65 63 74 25 3d 28  c1 69 24 2c 34 2c 31 29  |elect%=(.i$,4,1)|
00004d00  3d 22 2a 22 29 80 28 31  3c 3c 32 32 29 0d 1c de  |="*").(1<<22)...|
00004d10  23 74 79 70 65 25 3d bb  c1 69 24 2c 35 2c 31 29  |#type%=..i$,5,1)|
00004d20  3a 69 24 3d c1 69 24 2c  37 2c a9 69 24 2d 37 29  |:i$=.i$,7,.i$-7)|
00004d30  0d 1c e8 20 50 25 3d a7  69 24 2c 22 2f 22 29 3a  |... P%=.i$,"/"):|
00004d40  52 25 3d a7 69 24 2c 22  2f 22 2c 50 25 2b 31 29  |R%=.i$,"/",P%+1)|
00004d50  0d 1c f2 27 76 24 3d c1  69 24 2c 31 2c 50 25 2d  |...'v$=.i$,1,P%-|
00004d60  31 29 3a 74 24 3d c1 69  24 2c 50 25 2b 31 2c 52  |1):t$=.i$,P%+1,R|
00004d70  25 2d 50 25 2d 31 29 0d  1c fc 20 6f 24 3d c1 69  |%-P%-1)... o$=.i|
00004d80  24 2c 52 25 2b 31 29 3a  e7 20 4c 25 3c a9 6f 24  |$,R%+1):. L%<.o$|
00004d90  20 4c 25 3d a9 6f 24 0d  1d 06 2b 51 25 21 30 3d  | L%=.o$...+Q%!0=|
00004da0  74 69 63 6b 25 20 84 20  64 6f 74 74 65 64 25 20  |tick% . dotted% |
00004db0  84 20 77 61 72 6e 69 6e  67 25 20 84 20 6c 61 73  |. warning% . las|
00004dc0  74 25 0d 1d 10 27 51 25  21 34 3d 2d 31 3a 51 25  |t%...'Q%!4=-1:Q%|
00004dd0  21 38 3d 26 30 36 30 30  33 30 31 31 20 84 20 6e  |!8=&06003011 . n|
00004de0  6f 5f 73 65 6c 65 63 74  25 0d 1d 1a 0e c8 8e 20  |o_select%...... |
00004df0  74 79 70 65 25 20 ca 0d  1d 24 1b 20 20 20 20 c9  |type% ...$.    .|
00004e00  20 30 20 3a 20 f2 6d 5f  6e 6f 72 6d 61 6c 28 6f  | 0 : .m_normal(o|
00004e10  24 29 0d 1d 2e 24 20 20  20 20 c9 20 31 20 3a 20  |$)...$    . 1 : |
00004e20  f2 6d 5f 6e 6f 72 6d 61  6c 28 6f 24 29 3a 51 25  |.m_normal(o$):Q%|
00004e30  21 34 3d a0 76 24 0d 1d  38 24 20 20 20 20 c9 20  |!4=.v$..8$    . |
00004e40  32 20 3a 20 f2 6d 5f 77  72 69 74 65 61 62 6c 65  |2 : .m_writeable|
00004e50  28 76 24 2c 74 24 2c 6f  24 29 0d 1d 42 24 20 20  |(v$,t$,o$)..B$  |
00004e60  20 20 c9 20 33 20 3a 20  f2 6d 5f 6e 6f 72 6d 61  |  . 3 : .m_norma|
00004e70  6c 28 6f 24 29 3a 51 25  21 34 3d a0 76 24 0d 1d  |l(o$):Q%!4=.v$..|
00004e80  4c 28 20 20 20 20 7f 20  85 20 39 39 39 2c 22 55  |L(    . . 999,"U|
00004e90  6e 6b 6e 6f 77 6e 20 6d  65 6e 75 20 69 74 65 6d  |nknown menu item|
00004ea0  20 74 79 70 65 22 0d 1d  56 07 20 20 cb 0d 1d 60  | type"..V.  ...`|
00004eb0  0c 51 25 2b 3d 32 34 3a  e1 0d 1d 6a 04 0d 1d 74  |.Q%+=24:...j...t|
00004ec0  13 dd 20 f2 6d 5f 6e 6f  72 6d 61 6c 28 6f 24 29  |.. .m_normal(o$)|
00004ed0  0d 1d 7e 19 e7 20 a9 6f  24 3e 31 31 20 84 20 6f  |..~.. .o$>11 . o|
00004ee0  24 3d 22 21 21 21 22 20  8c 0d 1d 88 18 20 20 20  |$="!!!" .....   |
00004ef0  20 51 25 21 38 3d 51 25  21 38 20 84 20 26 31 30  | Q%!8=Q%!8 . &10|
00004f00  30 0d 1d 92 29 20 20 20  20 51 25 21 31 32 3d a4  |0...)    Q%!12=.|
00004f10  69 6e 64 69 72 65 63 74  28 6f 24 2c 69 63 6f 6e  |indirect(o$,icon|
00004f20  73 25 2c 69 63 6f 6e 70  25 29 0d 1d 9c 1b 20 20  |s%,iconp%)....  |
00004f30  20 20 45 25 3d 28 45 25  2b 34 29 80 26 46 46 46  |  E%=(E%+4).&FFF|
00004f40  46 46 46 46 43 0d 1d a6  1c 20 20 20 20 51 25 21  |FFFFC....    Q%!|
00004f50  31 36 3d 2d 31 3a 51 25  21 32 30 3d a9 6f 24 2b  |16=-1:Q%!20=.o$+|
00004f60  31 0d 1d b0 07 20 20 cc  0d 1d ba 13 20 20 20 20  |1....  .....    |
00004f70  24 28 51 25 2b 31 32 29  3d 6f 24 0d 1d c4 07 20  |$(Q%+12)=o$.... |
00004f80  20 cd 0d 1d ce 05 e1 0d  1d d8 04 0d 1d e2 1c dd  | ...............|
00004f90  20 f2 6d 5f 77 72 69 74  65 61 62 6c 65 28 76 24  | .m_writeable(v$|
00004fa0  2c 74 24 2c 6f 24 29 0d  1d ec 28 51 25 21 30 3d  |,t$,o$)...(Q%!0=|
00004fb0  51 25 21 30 20 84 20 34  3a 51 25 21 31 36 3d 2d  |Q%!0 . 4:Q%!16=-|
00004fc0  31 3a e7 20 4c 25 3c 31  32 20 4c 25 3d 31 32 0d  |1:. L%<12 L%=12.|
00004fd0  1d f6 21 51 25 21 38 3d  51 25 21 38 20 84 20 28  |..!Q%!8=Q%!8 . (|
00004fe0  31 3c 3c 38 29 20 84 20  28 31 35 3c 3c 31 32 29  |1<<8) . (15<<12)|
00004ff0  0d 1e 00 20 51 25 21 31  32 3d a0 76 24 3a 51 25  |... Q%!12=.v$:Q%|
00005000  21 31 36 3d 2d 31 3a 51  25 21 32 30 3d a0 74 24  |!16=-1:Q%!20=.t$|
00005010  0d 1e 0a 33 e7 20 6f 24  3e 22 22 20 51 25 21 31  |...3. o$>"" Q%!1|
00005020  36 3d a4 69 6e 64 69 72  65 63 74 28 6f 24 2c 6d  |6=.indirect(o$,m|
00005030  65 6e 75 53 70 61 63 65  25 2c 6d 65 6e 75 70 74  |enuSpace%,menupt|
00005040  72 25 29 0d 1e 14 05 e1  0d 1e 1e 04 0d 1e 28 37  |r%)...........(7|
00005050  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00005080  3d 3d 3d 0d ff                                    |===..|
00005085