#�                    WordWizard
)�                    By Aidan Dickson
/version$=              "1.6 (13th Apr.'95)"
(�
2?�                    Fast machine code search by Gary Hunt.
<:
F:
P:
Z-� � �4:� �$;" at line ";�;", quitting.":�
d�initialise
n� � �error
x:
��
�%ș "Wimp_Poll",&81831,block% � R%
�Ȏ R% �
� � 1 : �drawwindow
�) � 2 : �windowopen(!block%,block%!28)
�  � 3 : �windowclose(!block%)
�6 � 6 : �button_click(block%!8,block%!12,block%!16)
�) � 8 : �key_press(block%!4,block%!24)
� � 9 : �menuselect(!block%)
�" � 17,18 : �message(block%!16)
��
�� quit%
��losefonts

ș "Wimp_CloseDown"

�

:

"� �message(mes%)

,� mes%=0 � quit%=1

6�

@:

J� �rescheck

T+ș "OS_ReadModeVariable",-1,5 � ,,yeig%

^=yeig%>1

h� if yeig>1=-1 THEN lo-res

r:

|� �drawwindow

�*ș "Wimp_RedrawWindow",,block% � more%

�ox%=block%!4-block%!20

�oy%=block%!16-block%!24

�ȕ more%

�  �draw(ox%,oy%)

�,  ș "Wimp_GetRectangle",,block% � more%

��

��

�:

�� �draw(ox%,oy%)

�!block%=panehand%

�$ș "Wimp_GetWindowState",,block%

�ymin%=block%!24
top%=-(ymin%/32)+1
ș "Wimp_SetColour",7
� N%=top%-1 � top%+6
&  � ox%+8,oy%+24-(32*N%)
0  � text$(N%)
:� N%
D�
N:
X� �redrawpane
b!block%=panehand%
l$ș "Wimp_GetWindowState",,block%
v!xmin%=block%!4:ymin%=block%!8
�#xmax%=block%!12:ymax%=block%!16
�4ș "Wimp_ForceRedraw",-1,xmin%,ymin%,xmax%,ymax%
��
�:
�� �windowclose(win%)
�!ș "Wimp_CloseWindow",,block%
�F� win%=mainhand% � !block%=panehand%:ș "Wimp_CloseWindow",,block%
��
�:
�.� �centrewindow(window%,xoffset%,yoffset%)
�-ș "OS_ReadModeVariable",-1,4 � ,,xmulti%
�-ș "OS_ReadModeVariable",-1,5 � ,,ymulti%
�-ș "OS_ReadModeVariable",-1,11 � ,,xmode%
-ș "OS_ReadModeVariable",-1,12 � ,,ymode%
!block%=window%
$ș "Wimp_GetWindowState",,block%
 xsize%=block%!12-block%!4
*ysize%=block%!16-block%!8
4Wblock%!4=(xmode%*((xmulti%+1)/2))+(xoffset%*(xmulti%+1))-(xsize%/((xmulti%+1)/2))/2
>Wblock%!8=(ymode%*((ymulti%+1)/2))+(yoffset%*(ymulti%+1))-(ysize%/((ymulti%+1)/2))/2
Hblock%!12=block%!4+xsize%
Rblock%!16=block%!8+ysize%
\�
f:
p� �windowopen(win%,pos%)
zD� win%=infohand% � win%=mainhand% � ș "Wimp_OpenWindow",,block%
�'� win%=mainhand% � win%=panehand% �
�K  � win%=mainhand% � !block%=panehand%:ș "Wimp_GetWindowState",,block%
�%  xoff%=block%!20:yoff%=block%!24
�
�  !block%=mainhand%
�&  ș "Wimp_GetWindowState",,block%
�"  ș "Wimp_OpenWindow",,block%
�&  ș "Wimp_GetWindowState",,block%
�#  xmin%=block%!4:ymin%=block%!8
�%  xmax%=block%!12:ymax%=block%!16
�
�  !block%=panehand%
�&  ș "Wimp_GetWindowState",,block%
  block%!28=pos%
)  block%!4=xmin%+24:block%!8=ymin%+30
-  block%!12=xmin%+410:block%!16=ymin%+226
$%  block%!20=xoff%:block%!24=yoff%
."  ș "Wimp_OpenWindow",,block%
8
B  !block%=mainhand%
L&  ș "Wimp_GetWindowState",,block%
V#  block%!4=xmin%:block%!8=ymin%
`%  block%!12=xmax%:block%!16=ymax%
j  block%!28=panehand%
t"  ș "Wimp_OpenWindow",,block%
~�
��
�:
�� �menuselect(m%)
�Ȏ m% �
�
  � 0:
�  � 1:quit%=�
��
��
�:
�� �button_click(B%,W%,I%)
� xmse%=!block%:ymse%=block%!4
�Ȏ B% �
c � 1,4 : � W%=-2 � �centrewindow(mainhand%,0,20):�windowopen(mainhand%,-1) � �icon_click(B%,I%)

? � 2 : � W%=-2 � ș "Wimp_CreateMenu",,menu%,!block%-64,184
�
�
(:
2� �icon_click(B%,I%)
<� I%=7 � I%=8 �
F!  � B%=1 � I%=I%-((I%-7.5)*2)
P"  !block%=mainhand%:block%!4=6
Z$  ș "Wimp_GetIconState",,block%
d  wrd%=�($(block%!28))
n$  � I%=7 � wrd%<20 � wrd%=wrd%+1
x#  � I%=8 � wrd%>3 � wrd%=wrd%-1
�  $(block%!28)=�(wrd%)
�  �redraw(mainhand%,6)
�#  top%=wrd%:� top%=20 � top%=19
�  � N%=wrd%+8 � top%+9
�#  !block%=mainhand%:block%!4=N%
�  block%!12=1<<22
�3  � N%-8>wrd% � block%!8=1<<22 � block%!8=0<<22
�$  ș "Wimp_SetIconState",,block%
�
  � N%
�(  ș "Wimp_GetCaretPosition",,block%
�F  � !block%=mainhand% � ș "Wimp_SetCaretPosition",-1,-1,0,0,-1,-1
��
�� I%=3 � �find

� I%=29 �
#  !block%=mainhand%:block%!4=29
$  ș "Wimp_GetIconState",,block%
"  xmse%=xmse%-block%!8
,  !block%=mainhand%
6&  ș "Wimp_GetWindowState",,block%
@  xmse%=xmse%-block%!4
J  icon%=(xmse%/36)+9
T&  !block%=mainhand%:block%!4=icon%
^$  ș "Wimp_GetIconState",,block%
h  � block%!24 � 1<<22 �
r    icon%=0
|	    �
�    $block%!28=""
�     �redraw(mainhand%,icon%)
�;    ș "Wimp_SetCaretPosition",mainhand%,icon%,0,0,-1,0
�  �
��
��
�:
� � �redraw(whandle%,ihandle%)
�&!block%=whandle%:block%!4=ihandle%
�"ș "Wimp_GetIconState",,block%
�"xmin%=block%!8:ymin%=block%!12
�#xmax%=block%!16:ymax%=block%!20
�:ș "Wimp_ForceRedraw",whandle%,xmin%,ymin%,xmax%,ymax%
�
:
� �key_press(I%,C%)
&-� C%=13 � �find � ș "Wimp_ProcessKey",C%
0� C%<65 � C%>122 � �
:� C%>90 � C%<97 � �
D� C%>96 � C%=C%-32
N!!block%=mainhand%:block%!4=I%
X"ș "Wimp_GetIconState",,block%
b$(block%!28)=�(C%)
l4ș "Wimp_SetCaretPosition",mainhand%,I%,0,0,-1,1
v�redraw(mainhand%,I%)
��
�:
�� �find
�find$="":find%=0
� !block%=mainhand%:block%!4=6
�"ș "Wimp_GetIconState",,block%
�wrd%=�($(block%!28))
�� N%=9 � 8+wrd%
�#  !block%=mainhand%:block%!4=N%
�$  ș "Wimp_GetIconState",,block%
�B  � $(block%!28)="" � find$+=" " � find$+=$(block%!28):find%=1
�� N%
�o� find%=0 � �report("A search cannot be carried out until some known letters have been entered.") � �findgo
�
:

� �findgo
  !block%=mainhand%:block%!4=3
*"ș "Wimp_GetIconState",,block%
4$(block%!28)="Stop"
> !block%=mainhand%:block%!4=4
H"ș "Wimp_GetIconState",,block%
R$(block%!28)="Searching..."
\�redraw(mainhand%,4)
f!!block%=mainhand%:block%!4=30
p"ș "Wimp_GetIconState",,block%
z$(block%!28)="Found : 0"
��redraw(mainhand%,30)
� ș "Wimp_Poll",0,block% � R%
�
�makelist
�
� !block%=mainhand%:block%!4=4
�"ș "Wimp_GetIconState",,block%
�a� stop%=0 � $(block%!28)="Search complete." � $(block%!28)="Stopped at : "+�(percentage%)+"%"
��redraw(mainhand%,4)
�!!block%=mainhand%:block%!4=30
�"ș "Wimp_GetIconState",,block%
�P� size%<999 � $(block%!28)="Found : "+�(size%) � $(block%!28)="Found : 999+"
��redraw(mainhand%,30)
�
	
!block%=0
	block%!4=-(4+(32*size%))
	block%!8=384
	$block%!12=0
	.(ș "Wimp_SetExtent",panehand%,block%
	8!block%=panehand%
	B$ș "Wimp_GetWindowState",,block%
	Lblock%!24=0
	V ș "Wimp_OpenWindow",,block%
	`�redrawpane
	j�
	t:
	~� �multitask
	�
*FX 229,1
	�*FX 124
	�ș "Hourglass_Off"
	�� percentage%>done%+5 �
	� done%=percentage%
	�! !block%=mainhand%:block%!4=4
	�# ș "Wimp_GetIconState",,block%
	�4 $(block%!28)="Searching... "+�(percentage%)+"%"
	�" !block%=mainhand%:block%!4=30
	�# ș "Wimp_GetIconState",,block%
	�% $(block%!28)="Found : "+�(size%)
	� �redraw(mainhand%,4)
 �redraw(mainhand%,30)

�
 ș "Wimp_Poll",0,block% � R%

� R%<>0 �
( Ȏ R% �
2   � 1 : �drawwindow
<+   � 2 : �windowopen(!block%,block%!28)
F�   � WHEN 3 : SYS "Hourglass_Off":PROCreport("A search is currently underway. Please terminate the search first."):SYS "Hourglass_Start",delay%
PZ   � 3 : �report("A search is currently underway. Please terminate the search first.")
ZH   � 6 : � block%!8<>2 � block%!12=mainhand% � block%!16=3 � stop%=1
dQ   � 17,18 : �message(block%!16):� quit%=1 � �losefonts:ș "Wimp_CloseDown":�
n �
x�
�
*FX 229,0
�ș "Hourglass_Start",delay%
��
�
�� �makelist
�� N%=1 � 20
�J  � �find$,N%,1)<>" " � �find$,N%,1)<>"" � search%?N%=1 � search%?N%=0
�� N%
�ș "Hourglass_Start",delay%
�
*FX 229,0
�
�lets%=�(find$)
�.size%=0:done%=0:stop%=0:additm%=1:dictm%=0
timer%=�
� �
� � � �error
"� stop%=0 �
, �
68   � �-timer%>taskspeed% � PROCmultitask:timer%=TIME
@   search$=addit$(additm%)
J   � �(search$)=lets% �
T     N%=1:found%=0
^
     �
hA       � search%?N% � �find$,N%,1)<>�search$,N%,1) � found%=1
r       N%+=1
|      � N%=lets%+1 � found%=1
�3     � found%=0 � size%+=1:text$(size%)=search$
�   �
�   additm%+=1
�= � additm%=999 � addit$(additm%)="" � stop%=1 � size%=999
� :
� bytepos%=0:bitpos%=0
� �
�2   � �-timer%>taskspeed% � �multitask:timer%=�
�E   �trace(bytepos%,bitpos%,find$,search$,found%,bytepos%,bitpos%)
�1   � found%=0 � size%+=1:text$(size%)=search$
�% � found%=1 � stop%=1 � size%=999
��
�� �

4� size%<999 � N%=size%+1 � 999:text$(N%)="":� N%
6� size%=999 � text$(999)="Over 999 words found. �"
& !block%=mainhand%:block%!4=3
0"ș "Wimp_GetIconState",,block%
:$(block%!28)="Find"
D�redraw(mainhand%,3)
N
*FX 229,1
X*FX 124
bș "Hourglass_Off"
l�
v:
�� �addittotext
�N%=0:size%=-1
�� N%=1 � 999
�  text$(N%)=addit$(N%)
�,  � addit$(N%)="" � size%<>-1 � size%=N%
�� N%
��
�:
�� �loadlist
�&N%=1:Z=�("<Wizard$Dir>.Additions")
��
�
  X$=�# Z
�+  � �X$,1)<>"|" � addit$(N%)=X$:N%=N%+1

� �# Z � N%=1000

;� N%=1000 � �report("Additions dictionary is too big.")

�#Z

 wordsize%=N%

*

46ș "OS_File",17,"<Wizard$Dir>.CompDict" � ,,,,len%

>� darea% len%

H2ș "OS_File",16,"<Wizard$Dir>.CompDict",darea%

R�

\:

f� �error

p� �=17 � stop%=1:�

z0!block%=�:$(block%+4)=�$+" at line "+�(�)+�0

�'ș "Wimp_ReportError",block%,1,app$

��losefonts

�ș"Wimp_CloseDown"

��

��

�:

�� �report(mes$)

�$(block%+4)=mes$

�8ș "Wimp_ReportError",block%,17,"Message from "+app$

��

�:

�� �statuscheck

�"ș "OS_Byte",129,0,&FF � ,rov%
-� rov%>&A2 � ș "OS_Byte",161,140 � ,,td%
� rov%<&A3 � fancy%=0
!� td% � 1 � td$="3D" � td$=""
$+� fancy%=0 � fancy$="" � fancy$="Fancy"
.�
8:
B� �spcheck(check$)
Lconfirm%=0:ctr%=0
V!ș "Wimp_SpriteOp",8 � ,,,no%
`�
j  ctr%=ctr%+1
t6  ș "Wimp_SpriteOp",13,,block%,255,ctr% � ,,name$
~!  � name$=check$ � confirm%=1
�� ctr%=no% � confirm%=1
�
=confirm%
�:
�� �losefonts
�� ctr%=0 � 256
�0  � fonts%?ctr%<>0 � ș "Font_LoseFont",ctr%
�
� ctr%
��
�:
�� �initialise
�6� block% 1400,menu% 99,name% 11,search% 30,mask% 7
�D� infoind% 120,mainind% 400,paneind% 10,introind% 200,fonts% 256
� text$(1000)

Ssize%=0:res%=9:td%=0:td$="":app$="WordWizard":!mask%=0:percentage%=0:delay%=150
*� ctr%=0 � 64:fonts%!(ctr%*4)=0:� ctr%

(/ș "OS_GSTrans","<Wizard$Opts>",block%,1399
2#wizopts$=�stringfrommem(block%)
<
Fintro%=�(�wizopts$,1))
Pfancy%=�(�wizopts$,3,1))
Z taskspeed%=�(�wizopts$,5,1))
ddictsize%=�(�wizopts$,7))
n
x� addit$(dictsize%)
�
��statuscheck
�1ș "Wimp_Initialise",200,&4B534154,app$,mask%
�
�� rov%<&A3 �
�/  � �spcheck("up")=0 � �spcheck("down")=0 �
�=    � �rescheck=-1 � *IconSprites <Wizard$Dir>.R2SpritesL
�<    � �rescheck=0 � *IconSprites <Wizard$Dir>.R2SpritesH
�  �
��
�
�<ș "Wimp_OpenTemplate",,"<Wizard$Dir>.Templates"+�td$,1)
�Hș "Wimp_LoadTemplate",,block%,infoind%,infoind%+120,-1,"ProgInfo",0
.ș "Wimp_CreateWindow",,block% � infohand%
Dș "Wimp_LoadTemplate",,block%,mainind%,mainind%+400,-1,"Main",0
block%!64=1
".ș "Wimp_CreateWindow",,block% � mainhand%
,Cș "Wimp_LoadTemplate",,block%,paneind%,paneind%+10,-1,"Pane",0
6.ș "Wimp_CreateWindow",,block% � panehand%
@Rș "Wimp_LoadTemplate",,block%,introind%,introind%+200,fonts%,fancy$+"Intro",0
Jblock%!64=1
T/ș "Wimp_CreateWindow",,block% � introhand%
^ș "Wimp_CloseTemplate"
h:
r� intro%=1 �
| !block%=introhand%
�% ș "Wimp_GetWindowState",,block%
�" �centrewindow(introhand%,0,0)
�! ș "Wimp_OpenWindow",,block%
�! ș "Wimp_Poll",0,block% � R%
�! ș "Wimp_Poll",0,block% � R%
�! ș "Wimp_Poll",0,block% � R%
�! ș "Wimp_Poll",0,block% � R%
� !block%=introhand%
�" ș "Wimp_CloseWindow",,block%
��
�ș "Hourglass_Start",delay%
�
�loadlist
�	�code
ș "Hourglass_Off"
:
 !block%=infohand%:block%!4=1
&"ș "Wimp_GetIconState",,block%
0$(block%!28)=version$
::
DM%=menu%:$M%=app$
N#M%!12=&70207:M%!16=144:M%!20=44
XM%!24=0
b<M%!28=&00:M%!32=infohand%:M%!36=&7000021:$(M%+40)="Info"
l5M%!52=&80:M%!56=-1:M%!60=&7000021:$(M%+64)="Quit"
v"B%=block%:!B%=-1:B%!4=0:B%!8=0
�!B%!12=68:B%!16=68:B%!20=&301A
�$(B%+24)="!wordwiz"
�ș "Wimp_CreateIcon",,B%
�:
�quit%=�
�group%=0:ESG%=1:miny%=0
�larrow$=�136:rarrow$=�137
�:
�+� b_onoff% 13:$b_onoff%="soptoff,opton"
�/� b_radio% 17:$b_radio%="sradiooff,radioon"
�� choice$(255),code%(999)
��
�:
� �open_window
!block%=mainhand%
$ș "Wimp_GetWindowState",,block%
 block%!28=-1
* ș "Wimp_OpenWindow",,block%
4!block%=panehand%
>$ș "Wimp_GetWindowState",,block%
Hblock%!28=-1
R ș "Wimp_OpenWindow",,block%
\�
f:
p:
z%� Machine code searching routines
�#� courtesy of Gary Hunt Feb '94
�:
�� �code
�0� code 1024:C_maxs=64:� Max length of string
�� pass=0 � 2 � 2
�P%=code
�
[OPT pass
�.C_area    EQUD darea%
�.C_sbyte   EQUD 0
�.C_sbit    EQUD 0
�.C_len     EQUD 0
�.C_str     EQUS �C_maxs,�0)
�Q.C_wpos    ADR R8,C_str:LDR R7,C_sbyte:LDR R6,C_sbit:LDR R5,C_area:� R6,R6,#7
)           MOV R0,#C_maxs-4:MOV R3,#0
5.C_clp     STR R3,[R8,R0]:SUBS R0,R0,#4:BPL C_clp
P.C_mlp     LDRB R0,[R5,R7]:MOV R0,R0,LSR R6:CMP R6,#3:BLE C_exj:ADD R7,R7,#1
$H           LDRB R1,[R5,R7]:RSB R2,R6,#8:MOV R1,R1,LSL R2:�R R0,R0,R1
.D.C_exj     ADD R6,R6,#5:�S R6,R6,#7:ADDEQ R7,R7,#1:�S R0,R0,#&1F
8B           �R R0,R0,#64:�Q R0,#13:STRB R0,[R8,R3]:ADD R3,R3,#1
B@           CMP R0,#13:BNE C_mlp:STR R6,C_sbit:STR R7,C_sbyte
L&           STR R3,C_len:MOV PC,R14
V]
`�
j�
t:
~*� �trace(n%,m%,b$,� a$,� f%,� n%,� m%)
�� a%,l%,q%,q,c%
�!C_sbyte=m%:!C_sbit=n%
�)a%=0:l%=�(b$):q%=��b$,1,1):q=100/len%
��
�	 f%=0
� percentage%=q*(!C_sbyte)
�+ ș "Hourglass_Percentage",q*(!C_sbyte)
� �
�  � C_wpos
�% � !C_sbyte>=len% � (l%=!C_len-1)
� a$=$C_str
� m%=!C_sbyte
 n%=!C_sbit

  � q%<>32 � ?C_str<q% � f%=1
( � q%<>32 � ?C_str>q% � f%=1:m%=len%
 � q%=32 � ?C_str=q% �
(  � c%=2 � �(b$)
2   � �b$,c%,1)<>" " �
<.    � �a$,c%,1)<>�b$,c%,1) � f%=1:c%=�(b$)
F   �
P
  � c%
Z �
d� m%>=len% � f%=0
n�
x
�� �stringfrommem(ptr%)
�� text$
�'ȕ ?ptr%<>0 � ?ptr%<>10 � ?ptr%<>13
� text$+=�(?ptr%)
� ptr%+=1
��
�
=text$
�
�

00000000  0d 00 0a 23 f4 20 20 20  20 20 20 20 20 20 20 20  |...#.           |
00000010  20 20 20 20 20 20 20 20  20 57 6f 72 64 57 69 7a  |         WordWiz|
00000020  61 72 64 0d 00 14 29 f4  20 20 20 20 20 20 20 20  |ard...).        |
00000030  20 20 20 20 20 20 20 20  20 20 20 20 42 79 20 41  |            By A|
00000040  69 64 61 6e 20 44 69 63  6b 73 6f 6e 0d 00 1e 2f  |idan Dickson.../|
00000050  76 65 72 73 69 6f 6e 24  3d 20 20 20 20 20 20 20  |version$=       |
00000060  20 20 20 20 20 20 20 22  31 2e 36 20 28 31 33 74  |       "1.6 (13t|
00000070  68 20 41 70 72 2e 27 39  35 29 22 0d 00 28 05 f4  |h Apr.'95)"..(..|
00000080  0d 00 32 3f f4 20 20 20  20 20 20 20 20 20 20 20  |..2?.           |
00000090  20 20 20 20 20 20 20 20  20 46 61 73 74 20 6d 61  |         Fast ma|
000000a0  63 68 69 6e 65 20 63 6f  64 65 20 73 65 61 72 63  |chine code searc|
000000b0  68 20 62 79 20 47 61 72  79 20 48 75 6e 74 2e 0d  |h by Gary Hunt..|
000000c0  00 3c 05 3a 0d 00 46 05  3a 0d 00 50 05 3a 0d 00  |.<.:..F.:..P.:..|
000000d0  5a 2d ee 20 85 20 ef 34  3a f1 20 f6 24 3b 22 20  |Z-. . .4:. .$;" |
000000e0  61 74 20 6c 69 6e 65 20  22 3b 9e 3b 22 2c 20 71  |at line ";.;", q|
000000f0  75 69 74 74 69 6e 67 2e  22 3a e0 0d 00 64 0f f2  |uitting.":...d..|
00000100  69 6e 69 74 69 61 6c 69  73 65 0d 00 6e 0e ee 20  |initialise..n.. |
00000110  85 20 f2 65 72 72 6f 72  0d 00 78 05 3a 0d 00 82  |. .error..x.:...|
00000120  05 f5 0d 00 8c 25 c8 99  20 22 57 69 6d 70 5f 50  |.....%.. "Wimp_P|
00000130  6f 6c 6c 22 2c 26 38 31  38 33 31 2c 62 6c 6f 63  |oll",&81831,bloc|
00000140  6b 25 20 b8 20 52 25 0d  00 96 0b c8 8e 20 52 25  |k% . R%...... R%|
00000150  20 ca 0d 00 a0 16 20 c9  20 31 20 3a 20 f2 64 72  | ..... . 1 : .dr|
00000160  61 77 77 69 6e 64 6f 77  0d 00 aa 29 20 c9 20 32  |awwindow...) . 2|
00000170  20 3a 20 f2 77 69 6e 64  6f 77 6f 70 65 6e 28 21  | : .windowopen(!|
00000180  62 6c 6f 63 6b 25 2c 62  6c 6f 63 6b 25 21 32 38  |block%,block%!28|
00000190  29 0d 00 b4 20 20 c9 20  33 20 3a 20 f2 77 69 6e  |)...  . 3 : .win|
000001a0  64 6f 77 63 6c 6f 73 65  28 21 62 6c 6f 63 6b 25  |dowclose(!block%|
000001b0  29 0d 00 be 36 20 c9 20  36 20 3a 20 f2 62 75 74  |)...6 . 6 : .but|
000001c0  74 6f 6e 5f 63 6c 69 63  6b 28 62 6c 6f 63 6b 25  |ton_click(block%|
000001d0  21 38 2c 62 6c 6f 63 6b  25 21 31 32 2c 62 6c 6f  |!8,block%!12,blo|
000001e0  63 6b 25 21 31 36 29 0d  00 c8 29 20 c9 20 38 20  |ck%!16)...) . 8 |
000001f0  3a 20 f2 6b 65 79 5f 70  72 65 73 73 28 62 6c 6f  |: .key_press(blo|
00000200  63 6b 25 21 34 2c 62 6c  6f 63 6b 25 21 32 34 29  |ck%!4,block%!24)|
00000210  0d 00 d2 1f 20 c9 20 39  20 3a 20 f2 6d 65 6e 75  |.... . 9 : .menu|
00000220  73 65 6c 65 63 74 28 21  62 6c 6f 63 6b 25 29 0d  |select(!block%).|
00000230  00 dc 22 20 c9 20 31 37  2c 31 38 20 3a 20 f2 6d  |.." . 17,18 : .m|
00000240  65 73 73 61 67 65 28 62  6c 6f 63 6b 25 21 31 36  |essage(block%!16|
00000250  29 0d 00 e6 05 cb 0d 00  f0 0b fd 20 71 75 69 74  |).......... quit|
00000260  25 0d 00 fa 0e f2 6c 6f  73 65 66 6f 6e 74 73 0d  |%.....losefonts.|
00000270  01 04 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00000280  65 44 6f 77 6e 22 0d 01  0e 05 e0 0d 01 18 05 3a  |eDown".........:|
00000290  0d 01 22 14 dd 20 f2 6d  65 73 73 61 67 65 28 6d  |..".. .message(m|
000002a0  65 73 25 29 0d 01 2c 16  e7 20 6d 65 73 25 3d 30  |es%)..,.. mes%=0|
000002b0  20 8c 20 71 75 69 74 25  3d 31 0d 01 36 05 e1 0d  | . quit%=1..6...|
000002c0  01 40 05 3a 0d 01 4a 0f  dd 20 a4 72 65 73 63 68  |.@.:..J.. .resch|
000002d0  65 63 6b 0d 01 54 2b c8  99 20 22 4f 53 5f 52 65  |eck..T+.. "OS_Re|
000002e0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
000002f0  2d 31 2c 35 20 b8 20 2c  2c 79 65 69 67 25 0d 01  |-1,5 . ,,yeig%..|
00000300  5e 0c 3d 79 65 69 67 25  3e 31 0d 01 68 1e f4 20  |^.=yeig%>1..h.. |
00000310  69 66 20 79 65 69 67 3e  31 3d 2d 31 20 54 48 45  |if yeig>1=-1 THE|
00000320  4e 20 6c 6f 2d 72 65 73  0d 01 72 05 3a 0d 01 7c  |N lo-res..r.:..||
00000330  11 dd 20 f2 64 72 61 77  77 69 6e 64 6f 77 0d 01  |.. .drawwindow..|
00000340  86 2a c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |.*.. "Wimp_Redra|
00000350  77 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |wWindow",,block%|
00000360  20 b8 20 6d 6f 72 65 25  0d 01 90 1a 6f 78 25 3d  | . more%....ox%=|
00000370  62 6c 6f 63 6b 25 21 34  2d 62 6c 6f 63 6b 25 21  |block%!4-block%!|
00000380  32 30 0d 01 9a 1b 6f 79  25 3d 62 6c 6f 63 6b 25  |20....oy%=block%|
00000390  21 31 36 2d 62 6c 6f 63  6b 25 21 32 34 0d 01 a4  |!16-block%!24...|
000003a0  0c c8 95 20 6d 6f 72 65  25 0d 01 ae 14 20 20 f2  |... more%....  .|
000003b0  64 72 61 77 28 6f 78 25  2c 6f 79 25 29 0d 01 b8  |draw(ox%,oy%)...|
000003c0  2c 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 52  |,  .. "Wimp_GetR|
000003d0  65 63 74 61 6e 67 6c 65  22 2c 2c 62 6c 6f 63 6b  |ectangle",,block|
000003e0  25 20 b8 20 6d 6f 72 65  25 0d 01 c2 05 ce 0d 01  |% . more%.......|
000003f0  cc 05 e1 0d 01 d6 05 3a  0d 01 e0 14 dd 20 f2 64  |.......:..... .d|
00000400  72 61 77 28 6f 78 25 2c  6f 79 25 29 0d 01 ea 15  |raw(ox%,oy%)....|
00000410  21 62 6c 6f 63 6b 25 3d  70 61 6e 65 68 61 6e 64  |!block%=panehand|
00000420  25 0d 01 f4 24 c8 99 20  22 57 69 6d 70 5f 47 65  |%...$.. "Wimp_Ge|
00000430  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000440  6c 6f 63 6b 25 0d 01 fe  13 79 6d 69 6e 25 3d 62  |lock%....ymin%=b|
00000450  6c 6f 63 6b 25 21 32 34  0d 02 08 16 74 6f 70 25  |lock%!24....top%|
00000460  3d 2d 28 79 6d 69 6e 25  2f 33 32 29 2b 31 0d 02  |=-(ymin%/32)+1..|
00000470  12 19 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |.... "Wimp_SetCo|
00000480  6c 6f 75 72 22 2c 37 0d  02 1c 18 e3 20 4e 25 3d  |lour",7..... N%=|
00000490  74 6f 70 25 2d 31 20 b8  20 74 6f 70 25 2b 36 0d  |top%-1 . top%+6.|
000004a0  02 26 1c 20 20 ec 20 6f  78 25 2b 38 2c 6f 79 25  |.&.  . ox%+8,oy%|
000004b0  2b 32 34 2d 28 33 32 2a  4e 25 29 0d 02 30 11 20  |+24-(32*N%)..0. |
000004c0  20 f1 20 74 65 78 74 24  28 4e 25 29 0d 02 3a 08  | . text$(N%)..:.|
000004d0  ed 20 4e 25 0d 02 44 05  e1 0d 02 4e 05 3a 0d 02  |. N%..D....N.:..|
000004e0  58 11 dd 20 f2 72 65 64  72 61 77 70 61 6e 65 0d  |X.. .redrawpane.|
000004f0  02 62 15 21 62 6c 6f 63  6b 25 3d 70 61 6e 65 68  |.b.!block%=paneh|
00000500  61 6e 64 25 0d 02 6c 24  c8 99 20 22 57 69 6d 70  |and%..l$.. "Wimp|
00000510  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00000520  2c 2c 62 6c 6f 63 6b 25  0d 02 76 21 78 6d 69 6e  |,,block%..v!xmin|
00000530  25 3d 62 6c 6f 63 6b 25  21 34 3a 79 6d 69 6e 25  |%=block%!4:ymin%|
00000540  3d 62 6c 6f 63 6b 25 21  38 0d 02 80 23 78 6d 61  |=block%!8...#xma|
00000550  78 25 3d 62 6c 6f 63 6b  25 21 31 32 3a 79 6d 61  |x%=block%!12:yma|
00000560  78 25 3d 62 6c 6f 63 6b  25 21 31 36 0d 02 8a 34  |x%=block%!16...4|
00000570  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00000580  64 72 61 77 22 2c 2d 31  2c 78 6d 69 6e 25 2c 79  |draw",-1,xmin%,y|
00000590  6d 69 6e 25 2c 78 6d 61  78 25 2c 79 6d 61 78 25  |min%,xmax%,ymax%|
000005a0  0d 02 94 05 e1 0d 02 9e  05 3a 0d 02 a8 18 dd 20  |.........:..... |
000005b0  f2 77 69 6e 64 6f 77 63  6c 6f 73 65 28 77 69 6e  |.windowclose(win|
000005c0  25 29 0d 02 b2 21 c8 99  20 22 57 69 6d 70 5f 43  |%)...!.. "Wimp_C|
000005d0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
000005e0  63 6b 25 0d 02 bc 46 e7  20 77 69 6e 25 3d 6d 61  |ck%...F. win%=ma|
000005f0  69 6e 68 61 6e 64 25 20  8c 20 21 62 6c 6f 63 6b  |inhand% . !block|
00000600  25 3d 70 61 6e 65 68 61  6e 64 25 3a c8 99 20 22  |%=panehand%:.. "|
00000610  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000620  22 2c 2c 62 6c 6f 63 6b  25 0d 02 c6 05 e1 0d 02  |",,block%.......|
00000630  d0 05 3a 0d 02 da 2e dd  20 f2 63 65 6e 74 72 65  |..:..... .centre|
00000640  77 69 6e 64 6f 77 28 77  69 6e 64 6f 77 25 2c 78  |window(window%,x|
00000650  6f 66 66 73 65 74 25 2c  79 6f 66 66 73 65 74 25  |offset%,yoffset%|
00000660  29 0d 02 e4 2d c8 99 20  22 4f 53 5f 52 65 61 64  |)...-.. "OS_Read|
00000670  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00000680  2c 34 20 b8 20 2c 2c 78  6d 75 6c 74 69 25 0d 02  |,4 . ,,xmulti%..|
00000690  ee 2d c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |.-.. "OS_ReadMod|
000006a0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 20  |eVariable",-1,5 |
000006b0  b8 20 2c 2c 79 6d 75 6c  74 69 25 0d 02 f8 2d c8  |. ,,ymulti%...-.|
000006c0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
000006d0  72 69 61 62 6c 65 22 2c  2d 31 2c 31 31 20 b8 20  |riable",-1,11 . |
000006e0  2c 2c 78 6d 6f 64 65 25  0d 03 02 2d c8 99 20 22  |,,xmode%...-.. "|
000006f0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00000700  62 6c 65 22 2c 2d 31 2c  31 32 20 b8 20 2c 2c 79  |ble",-1,12 . ,,y|
00000710  6d 6f 64 65 25 0d 03 0c  13 21 62 6c 6f 63 6b 25  |mode%....!block%|
00000720  3d 77 69 6e 64 6f 77 25  0d 03 16 24 c8 99 20 22  |=window%...$.. "|
00000730  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000740  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 03 20 1d  |ate",,block%.. .|
00000750  78 73 69 7a 65 25 3d 62  6c 6f 63 6b 25 21 31 32  |xsize%=block%!12|
00000760  2d 62 6c 6f 63 6b 25 21  34 0d 03 2a 1d 79 73 69  |-block%!4..*.ysi|
00000770  7a 65 25 3d 62 6c 6f 63  6b 25 21 31 36 2d 62 6c  |ze%=block%!16-bl|
00000780  6f 63 6b 25 21 38 0d 03  34 57 62 6c 6f 63 6b 25  |ock%!8..4Wblock%|
00000790  21 34 3d 28 78 6d 6f 64  65 25 2a 28 28 78 6d 75  |!4=(xmode%*((xmu|
000007a0  6c 74 69 25 2b 31 29 2f  32 29 29 2b 28 78 6f 66  |lti%+1)/2))+(xof|
000007b0  66 73 65 74 25 2a 28 78  6d 75 6c 74 69 25 2b 31  |fset%*(xmulti%+1|
000007c0  29 29 2d 28 78 73 69 7a  65 25 2f 28 28 78 6d 75  |))-(xsize%/((xmu|
000007d0  6c 74 69 25 2b 31 29 2f  32 29 29 2f 32 0d 03 3e  |lti%+1)/2))/2..>|
000007e0  57 62 6c 6f 63 6b 25 21  38 3d 28 79 6d 6f 64 65  |Wblock%!8=(ymode|
000007f0  25 2a 28 28 79 6d 75 6c  74 69 25 2b 31 29 2f 32  |%*((ymulti%+1)/2|
00000800  29 29 2b 28 79 6f 66 66  73 65 74 25 2a 28 79 6d  |))+(yoffset%*(ym|
00000810  75 6c 74 69 25 2b 31 29  29 2d 28 79 73 69 7a 65  |ulti%+1))-(ysize|
00000820  25 2f 28 28 79 6d 75 6c  74 69 25 2b 31 29 2f 32  |%/((ymulti%+1)/2|
00000830  29 29 2f 32 0d 03 48 1d  62 6c 6f 63 6b 25 21 31  |))/2..H.block%!1|
00000840  32 3d 62 6c 6f 63 6b 25  21 34 2b 78 73 69 7a 65  |2=block%!4+xsize|
00000850  25 0d 03 52 1d 62 6c 6f  63 6b 25 21 31 36 3d 62  |%..R.block%!16=b|
00000860  6c 6f 63 6b 25 21 38 2b  79 73 69 7a 65 25 0d 03  |lock%!8+ysize%..|
00000870  5c 05 e1 0d 03 66 05 3a  0d 03 70 1c dd 20 f2 77  |\....f.:..p.. .w|
00000880  69 6e 64 6f 77 6f 70 65  6e 28 77 69 6e 25 2c 70  |indowopen(win%,p|
00000890  6f 73 25 29 0d 03 7a 44  e7 20 77 69 6e 25 3d 69  |os%)..zD. win%=i|
000008a0  6e 66 6f 68 61 6e 64 25  20 84 20 77 69 6e 25 3d  |nfohand% . win%=|
000008b0  6d 61 69 6e 68 61 6e 64  25 20 8c 20 c8 99 20 22  |mainhand% . .. "|
000008c0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000008d0  2c 2c 62 6c 6f 63 6b 25  0d 03 84 27 e7 20 77 69  |,,block%...'. wi|
000008e0  6e 25 3d 6d 61 69 6e 68  61 6e 64 25 20 84 20 77  |n%=mainhand% . w|
000008f0  69 6e 25 3d 70 61 6e 65  68 61 6e 64 25 20 8c 0d  |in%=panehand% ..|
00000900  03 8e 4b 20 20 e7 20 77  69 6e 25 3d 6d 61 69 6e  |..K  . win%=main|
00000910  68 61 6e 64 25 20 8c 20  21 62 6c 6f 63 6b 25 3d  |hand% . !block%=|
00000920  70 61 6e 65 68 61 6e 64  25 3a c8 99 20 22 57 69  |panehand%:.. "Wi|
00000930  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000940  65 22 2c 2c 62 6c 6f 63  6b 25 0d 03 98 25 20 20  |e",,block%...%  |
00000950  78 6f 66 66 25 3d 62 6c  6f 63 6b 25 21 32 30 3a  |xoff%=block%!20:|
00000960  79 6f 66 66 25 3d 62 6c  6f 63 6b 25 21 32 34 0d  |yoff%=block%!24.|
00000970  03 a2 04 0d 03 ac 17 20  20 21 62 6c 6f 63 6b 25  |.......  !block%|
00000980  3d 6d 61 69 6e 68 61 6e  64 25 0d 03 b6 26 20 20  |=mainhand%...&  |
00000990  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000009a0  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
000009b0  0d 03 c0 22 20 20 c8 99  20 22 57 69 6d 70 5f 4f  |..."  .. "Wimp_O|
000009c0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
000009d0  6b 25 0d 03 ca 26 20 20  c8 99 20 22 57 69 6d 70  |k%...&  .. "Wimp|
000009e0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000009f0  2c 2c 62 6c 6f 63 6b 25  0d 03 d4 23 20 20 78 6d  |,,block%...#  xm|
00000a00  69 6e 25 3d 62 6c 6f 63  6b 25 21 34 3a 79 6d 69  |in%=block%!4:ymi|
00000a10  6e 25 3d 62 6c 6f 63 6b  25 21 38 0d 03 de 25 20  |n%=block%!8...% |
00000a20  20 78 6d 61 78 25 3d 62  6c 6f 63 6b 25 21 31 32  | xmax%=block%!12|
00000a30  3a 79 6d 61 78 25 3d 62  6c 6f 63 6b 25 21 31 36  |:ymax%=block%!16|
00000a40  0d 03 e8 04 0d 03 f2 17  20 20 21 62 6c 6f 63 6b  |........  !block|
00000a50  25 3d 70 61 6e 65 68 61  6e 64 25 0d 03 fc 26 20  |%=panehand%...& |
00000a60  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00000a70  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
00000a80  25 0d 04 06 14 20 20 62  6c 6f 63 6b 25 21 32 38  |%....  block%!28|
00000a90  3d 70 6f 73 25 0d 04 10  29 20 20 62 6c 6f 63 6b  |=pos%...)  block|
00000aa0  25 21 34 3d 78 6d 69 6e  25 2b 32 34 3a 62 6c 6f  |%!4=xmin%+24:blo|
00000ab0  63 6b 25 21 38 3d 79 6d  69 6e 25 2b 33 30 0d 04  |ck%!8=ymin%+30..|
00000ac0  1a 2d 20 20 62 6c 6f 63  6b 25 21 31 32 3d 78 6d  |.-  block%!12=xm|
00000ad0  69 6e 25 2b 34 31 30 3a  62 6c 6f 63 6b 25 21 31  |in%+410:block%!1|
00000ae0  36 3d 79 6d 69 6e 25 2b  32 32 36 0d 04 24 25 20  |6=ymin%+226..$% |
00000af0  20 62 6c 6f 63 6b 25 21  32 30 3d 78 6f 66 66 25  | block%!20=xoff%|
00000b00  3a 62 6c 6f 63 6b 25 21  32 34 3d 79 6f 66 66 25  |:block%!24=yoff%|
00000b10  0d 04 2e 22 20 20 c8 99  20 22 57 69 6d 70 5f 4f  |..."  .. "Wimp_O|
00000b20  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000b30  6b 25 0d 04 38 04 0d 04  42 17 20 20 21 62 6c 6f  |k%..8...B.  !blo|
00000b40  63 6b 25 3d 6d 61 69 6e  68 61 6e 64 25 0d 04 4c  |ck%=mainhand%..L|
00000b50  26 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |&  .. "Wimp_GetW|
00000b60  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00000b70  63 6b 25 0d 04 56 23 20  20 62 6c 6f 63 6b 25 21  |ck%..V#  block%!|
00000b80  34 3d 78 6d 69 6e 25 3a  62 6c 6f 63 6b 25 21 38  |4=xmin%:block%!8|
00000b90  3d 79 6d 69 6e 25 0d 04  60 25 20 20 62 6c 6f 63  |=ymin%..`%  bloc|
00000ba0  6b 25 21 31 32 3d 78 6d  61 78 25 3a 62 6c 6f 63  |k%!12=xmax%:bloc|
00000bb0  6b 25 21 31 36 3d 79 6d  61 78 25 0d 04 6a 19 20  |k%!16=ymax%..j. |
00000bc0  20 62 6c 6f 63 6b 25 21  32 38 3d 70 61 6e 65 68  | block%!28=paneh|
00000bd0  61 6e 64 25 0d 04 74 22  20 20 c8 99 20 22 57 69  |and%..t"  .. "Wi|
00000be0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000bf0  62 6c 6f 63 6b 25 0d 04  7e 05 cd 0d 04 88 05 e1  |block%..~.......|
00000c00  0d 04 92 05 3a 0d 04 9c  15 dd 20 f2 6d 65 6e 75  |....:..... .menu|
00000c10  73 65 6c 65 63 74 28 6d  25 29 0d 04 a6 0b c8 8e  |select(m%)......|
00000c20  20 6d 25 20 ca 0d 04 b0  0a 20 20 c9 20 30 3a 0d  | m% .....  . 0:.|
00000c30  04 ba 11 20 20 c9 20 31  3a 71 75 69 74 25 3d b9  |...  . 1:quit%=.|
00000c40  0d 04 c4 05 cb 0d 04 ce  05 e1 0d 04 d8 05 3a 0d  |..............:.|
00000c50  04 e2 1d dd 20 f2 62 75  74 74 6f 6e 5f 63 6c 69  |.... .button_cli|
00000c60  63 6b 28 42 25 2c 57 25  2c 49 25 29 0d 04 ec 20  |ck(B%,W%,I%)... |
00000c70  78 6d 73 65 25 3d 21 62  6c 6f 63 6b 25 3a 79 6d  |xmse%=!block%:ym|
00000c80  73 65 25 3d 62 6c 6f 63  6b 25 21 34 0d 04 f6 0b  |se%=block%!4....|
00000c90  c8 8e 20 42 25 20 ca 0d  05 00 63 20 c9 20 31 2c  |.. B% ....c . 1,|
00000ca0  34 20 3a 20 e7 20 57 25  3d 2d 32 20 8c 20 f2 63  |4 : . W%=-2 . .c|
00000cb0  65 6e 74 72 65 77 69 6e  64 6f 77 28 6d 61 69 6e  |entrewindow(main|
00000cc0  68 61 6e 64 25 2c 30 2c  32 30 29 3a f2 77 69 6e  |hand%,0,20):.win|
00000cd0  64 6f 77 6f 70 65 6e 28  6d 61 69 6e 68 61 6e 64  |dowopen(mainhand|
00000ce0  25 2c 2d 31 29 20 8b 20  f2 69 63 6f 6e 5f 63 6c  |%,-1) . .icon_cl|
00000cf0  69 63 6b 28 42 25 2c 49  25 29 0d 05 0a 3f 20 c9  |ick(B%,I%)...? .|
00000d00  20 32 20 3a 20 e7 20 57  25 3d 2d 32 20 8c 20 c8  | 2 : . W%=-2 . .|
00000d10  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00000d20  6e 75 22 2c 2c 6d 65 6e  75 25 2c 21 62 6c 6f 63  |nu",,menu%,!bloc|
00000d30  6b 25 2d 36 34 2c 31 38  34 0d 05 14 05 cb 0d 05  |k%-64,184.......|
00000d40  1e 05 e1 0d 05 28 05 3a  0d 05 32 18 dd 20 f2 69  |.....(.:..2.. .i|
00000d50  63 6f 6e 5f 63 6c 69 63  6b 28 42 25 2c 49 25 29  |con_click(B%,I%)|
00000d60  0d 05 3c 13 e7 20 49 25  3d 37 20 84 20 49 25 3d  |..<.. I%=7 . I%=|
00000d70  38 20 8c 0d 05 46 21 20  20 e7 20 42 25 3d 31 20  |8 ...F!  . B%=1 |
00000d80  8c 20 49 25 3d 49 25 2d  28 28 49 25 2d 37 2e 35  |. I%=I%-((I%-7.5|
00000d90  29 2a 32 29 0d 05 50 22  20 20 21 62 6c 6f 63 6b  |)*2)..P"  !block|
00000da0  25 3d 6d 61 69 6e 68 61  6e 64 25 3a 62 6c 6f 63  |%=mainhand%:bloc|
00000db0  6b 25 21 34 3d 36 0d 05  5a 24 20 20 c8 99 20 22  |k%!4=6..Z$  .. "|
00000dc0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000dd0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 05 64 1a 20 20  |e",,block%..d.  |
00000de0  77 72 64 25 3d bb 28 24  28 62 6c 6f 63 6b 25 21  |wrd%=.($(block%!|
00000df0  32 38 29 29 0d 05 6e 24  20 20 e7 20 49 25 3d 37  |28))..n$  . I%=7|
00000e00  20 80 20 77 72 64 25 3c  32 30 20 8c 20 77 72 64  | . wrd%<20 . wrd|
00000e10  25 3d 77 72 64 25 2b 31  0d 05 78 23 20 20 e7 20  |%=wrd%+1..x#  . |
00000e20  49 25 3d 38 20 80 20 77  72 64 25 3e 33 20 8c 20  |I%=8 . wrd%>3 . |
00000e30  77 72 64 25 3d 77 72 64  25 2d 31 0d 05 82 1a 20  |wrd%=wrd%-1.... |
00000e40  20 24 28 62 6c 6f 63 6b  25 21 32 38 29 3d c3 28  | $(block%!28)=.(|
00000e50  77 72 64 25 29 0d 05 8c  1a 20 20 f2 72 65 64 72  |wrd%)....  .redr|
00000e60  61 77 28 6d 61 69 6e 68  61 6e 64 25 2c 36 29 0d  |aw(mainhand%,6).|
00000e70  05 96 23 20 20 74 6f 70  25 3d 77 72 64 25 3a e7  |..#  top%=wrd%:.|
00000e80  20 74 6f 70 25 3d 32 30  20 8c 20 74 6f 70 25 3d  | top%=20 . top%=|
00000e90  31 39 0d 05 a0 1a 20 20  e3 20 4e 25 3d 77 72 64  |19....  . N%=wrd|
00000ea0  25 2b 38 20 b8 20 74 6f  70 25 2b 39 0d 05 aa 23  |%+8 . top%+9...#|
00000eb0  20 20 21 62 6c 6f 63 6b  25 3d 6d 61 69 6e 68 61  |  !block%=mainha|
00000ec0  6e 64 25 3a 62 6c 6f 63  6b 25 21 34 3d 4e 25 0d  |nd%:block%!4=N%.|
00000ed0  05 b4 15 20 20 62 6c 6f  63 6b 25 21 31 32 3d 31  |...  block%!12=1|
00000ee0  3c 3c 32 32 0d 05 be 33  20 20 e7 20 4e 25 2d 38  |<<22...3  . N%-8|
00000ef0  3e 77 72 64 25 20 8c 20  62 6c 6f 63 6b 25 21 38  |>wrd% . block%!8|
00000f00  3d 31 3c 3c 32 32 20 8b  20 62 6c 6f 63 6b 25 21  |=1<<22 . block%!|
00000f10  38 3d 30 3c 3c 32 32 0d  05 c8 24 20 20 c8 99 20  |8=0<<22...$  .. |
00000f20  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00000f30  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 05 d2 0a 20  |te",,block%.... |
00000f40  20 ed 20 4e 25 0d 05 dc  28 20 20 c8 99 20 22 57  | . N%...(  .. "W|
00000f50  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
00000f60  74 69 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 0d 05 e6  |tion",,block%...|
00000f70  46 20 20 e7 20 21 62 6c  6f 63 6b 25 3d 6d 61 69  |F  . !block%=mai|
00000f80  6e 68 61 6e 64 25 20 8c  20 c8 99 20 22 57 69 6d  |nhand% . .. "Wim|
00000f90  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
00000fa0  6f 6e 22 2c 2d 31 2c 2d  31 2c 30 2c 30 2c 2d 31  |on",-1,-1,0,0,-1|
00000fb0  2c 2d 31 0d 05 f0 05 cd  0d 05 fa 12 e7 20 49 25  |,-1.......... I%|
00000fc0  3d 33 20 8c 20 f2 66 69  6e 64 0d 06 04 0d e7 20  |=3 . .find..... |
00000fd0  49 25 3d 32 39 20 8c 0d  06 0e 23 20 20 21 62 6c  |I%=29 ....#  !bl|
00000fe0  6f 63 6b 25 3d 6d 61 69  6e 68 61 6e 64 25 3a 62  |ock%=mainhand%:b|
00000ff0  6c 6f 63 6b 25 21 34 3d  32 39 0d 06 18 24 20 20  |lock%!4=29...$  |
00001000  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001010  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 06  |State",,block%..|
00001020  22 1a 20 20 78 6d 73 65  25 3d 78 6d 73 65 25 2d  |".  xmse%=xmse%-|
00001030  62 6c 6f 63 6b 25 21 38  0d 06 2c 17 20 20 21 62  |block%!8..,.  !b|
00001040  6c 6f 63 6b 25 3d 6d 61  69 6e 68 61 6e 64 25 0d  |lock%=mainhand%.|
00001050  06 36 26 20 20 c8 99 20  22 57 69 6d 70 5f 47 65  |.6&  .. "Wimp_Ge|
00001060  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00001070  6c 6f 63 6b 25 0d 06 40  1a 20 20 78 6d 73 65 25  |lock%..@.  xmse%|
00001080  3d 78 6d 73 65 25 2d 62  6c 6f 63 6b 25 21 34 0d  |=xmse%-block%!4.|
00001090  06 4a 18 20 20 69 63 6f  6e 25 3d 28 78 6d 73 65  |.J.  icon%=(xmse|
000010a0  25 2f 33 36 29 2b 39 0d  06 54 26 20 20 21 62 6c  |%/36)+9..T&  !bl|
000010b0  6f 63 6b 25 3d 6d 61 69  6e 68 61 6e 64 25 3a 62  |ock%=mainhand%:b|
000010c0  6c 6f 63 6b 25 21 34 3d  69 63 6f 6e 25 0d 06 5e  |lock%!4=icon%..^|
000010d0  24 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |$  .. "Wimp_GetI|
000010e0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000010f0  25 0d 06 68 1b 20 20 e7  20 62 6c 6f 63 6b 25 21  |%..h.  . block%!|
00001100  32 34 20 80 20 31 3c 3c  32 32 20 8c 0d 06 72 0f  |24 . 1<<22 ...r.|
00001110  20 20 20 20 69 63 6f 6e  25 3d 30 0d 06 7c 09 20  |    icon%=0..|. |
00001120  20 20 20 cc 0d 06 86 15  20 20 20 20 24 62 6c 6f  |   .....    $blo|
00001130  63 6b 25 21 32 38 3d 22  22 0d 06 90 20 20 20 20  |ck%!28=""...    |
00001140  20 f2 72 65 64 72 61 77  28 6d 61 69 6e 68 61 6e  | .redraw(mainhan|
00001150  64 25 2c 69 63 6f 6e 25  29 0d 06 9a 3b 20 20 20  |d%,icon%)...;   |
00001160  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  | .. "Wimp_SetCar|
00001170  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6d 61 69 6e  |etPosition",main|
00001180  68 61 6e 64 25 2c 69 63  6f 6e 25 2c 30 2c 30 2c  |hand%,icon%,0,0,|
00001190  2d 31 2c 30 0d 06 a4 07  20 20 cd 0d 06 ae 05 cd  |-1,0....  ......|
000011a0  0d 06 b8 05 e1 0d 06 c2  05 3a 0d 06 cc 20 dd 20  |.........:... . |
000011b0  f2 72 65 64 72 61 77 28  77 68 61 6e 64 6c 65 25  |.redraw(whandle%|
000011c0  2c 69 68 61 6e 64 6c 65  25 29 0d 06 d6 26 21 62  |,ihandle%)...&!b|
000011d0  6c 6f 63 6b 25 3d 77 68  61 6e 64 6c 65 25 3a 62  |lock%=whandle%:b|
000011e0  6c 6f 63 6b 25 21 34 3d  69 68 61 6e 64 6c 65 25  |lock%!4=ihandle%|
000011f0  0d 06 e0 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...".. "Wimp_Get|
00001200  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00001210  6b 25 0d 06 ea 22 78 6d  69 6e 25 3d 62 6c 6f 63  |k%..."xmin%=bloc|
00001220  6b 25 21 38 3a 79 6d 69  6e 25 3d 62 6c 6f 63 6b  |k%!8:ymin%=block|
00001230  25 21 31 32 0d 06 f4 23  78 6d 61 78 25 3d 62 6c  |%!12...#xmax%=bl|
00001240  6f 63 6b 25 21 31 36 3a  79 6d 61 78 25 3d 62 6c  |ock%!16:ymax%=bl|
00001250  6f 63 6b 25 21 32 30 0d  06 fe 3a c8 99 20 22 57  |ock%!20...:.. "W|
00001260  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00001270  2c 77 68 61 6e 64 6c 65  25 2c 78 6d 69 6e 25 2c  |,whandle%,xmin%,|
00001280  79 6d 69 6e 25 2c 78 6d  61 78 25 2c 79 6d 61 78  |ymin%,xmax%,ymax|
00001290  25 0d 07 08 05 e1 0d 07  12 05 3a 0d 07 1c 17 dd  |%.........:.....|
000012a0  20 f2 6b 65 79 5f 70 72  65 73 73 28 49 25 2c 43  | .key_press(I%,C|
000012b0  25 29 0d 07 26 2d e7 20  43 25 3d 31 33 20 8c 20  |%)..&-. C%=13 . |
000012c0  f2 66 69 6e 64 20 8b 20  c8 99 20 22 57 69 6d 70  |.find . .. "Wimp|
000012d0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 43 25 0d  |_ProcessKey",C%.|
000012e0  07 30 18 e7 20 43 25 3c  36 35 20 84 20 43 25 3e  |.0.. C%<65 . C%>|
000012f0  31 32 32 20 8c 20 e1 0d  07 3a 17 e7 20 43 25 3e  |122 . ...:.. C%>|
00001300  39 30 20 80 20 43 25 3c  39 37 20 8c 20 e1 0d 07  |90 . C%<97 . ...|
00001310  44 16 e7 20 43 25 3e 39  36 20 8c 20 43 25 3d 43  |D.. C%>96 . C%=C|
00001320  25 2d 33 32 0d 07 4e 21  21 62 6c 6f 63 6b 25 3d  |%-32..N!!block%=|
00001330  6d 61 69 6e 68 61 6e 64  25 3a 62 6c 6f 63 6b 25  |mainhand%:block%|
00001340  21 34 3d 49 25 0d 07 58  22 c8 99 20 22 57 69 6d  |!4=I%..X".. "Wim|
00001350  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001360  2c 62 6c 6f 63 6b 25 0d  07 62 16 24 28 62 6c 6f  |,block%..b.$(blo|
00001370  63 6b 25 21 32 38 29 3d  bd 28 43 25 29 0d 07 6c  |ck%!28)=.(C%)..l|
00001380  34 c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |4.. "Wimp_SetCar|
00001390  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6d 61 69 6e  |etPosition",main|
000013a0  68 61 6e 64 25 2c 49 25  2c 30 2c 30 2c 2d 31 2c  |hand%,I%,0,0,-1,|
000013b0  31 0d 07 76 19 f2 72 65  64 72 61 77 28 6d 61 69  |1..v..redraw(mai|
000013c0  6e 68 61 6e 64 25 2c 49  25 29 0d 07 80 05 e1 0d  |nhand%,I%)......|
000013d0  07 8a 05 3a 0d 07 94 0b  dd 20 f2 66 69 6e 64 0d  |...:..... .find.|
000013e0  07 9e 14 66 69 6e 64 24  3d 22 22 3a 66 69 6e 64  |...find$="":find|
000013f0  25 3d 30 0d 07 a8 20 21  62 6c 6f 63 6b 25 3d 6d  |%=0... !block%=m|
00001400  61 69 6e 68 61 6e 64 25  3a 62 6c 6f 63 6b 25 21  |ainhand%:block%!|
00001410  34 3d 36 0d 07 b2 22 c8  99 20 22 57 69 6d 70 5f  |4=6...".. "Wimp_|
00001420  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00001430  6c 6f 63 6b 25 0d 07 bc  18 77 72 64 25 3d bb 28  |lock%....wrd%=.(|
00001440  24 28 62 6c 6f 63 6b 25  21 32 38 29 29 0d 07 c6  |$(block%!28))...|
00001450  13 e3 20 4e 25 3d 39 20  b8 20 38 2b 77 72 64 25  |.. N%=9 . 8+wrd%|
00001460  0d 07 d0 23 20 20 21 62  6c 6f 63 6b 25 3d 6d 61  |...#  !block%=ma|
00001470  69 6e 68 61 6e 64 25 3a  62 6c 6f 63 6b 25 21 34  |inhand%:block%!4|
00001480  3d 4e 25 0d 07 da 24 20  20 c8 99 20 22 57 69 6d  |=N%...$  .. "Wim|
00001490  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000014a0  2c 62 6c 6f 63 6b 25 0d  07 e4 42 20 20 e7 20 24  |,block%...B  . $|
000014b0  28 62 6c 6f 63 6b 25 21  32 38 29 3d 22 22 20 8c  |(block%!28)="" .|
000014c0  20 66 69 6e 64 24 2b 3d  22 20 22 20 8b 20 66 69  | find$+=" " . fi|
000014d0  6e 64 24 2b 3d 24 28 62  6c 6f 63 6b 25 21 32 38  |nd$+=$(block%!28|
000014e0  29 3a 66 69 6e 64 25 3d  31 0d 07 ee 08 ed 20 4e  |):find%=1..... N|
000014f0  25 0d 07 f8 6f e7 20 66  69 6e 64 25 3d 30 20 8c  |%...o. find%=0 .|
00001500  20 f2 72 65 70 6f 72 74  28 22 41 20 73 65 61 72  | .report("A sear|
00001510  63 68 20 63 61 6e 6e 6f  74 20 62 65 20 63 61 72  |ch cannot be car|
00001520  72 69 65 64 20 6f 75 74  20 75 6e 74 69 6c 20 73  |ried out until s|
00001530  6f 6d 65 20 6b 6e 6f 77  6e 20 6c 65 74 74 65 72  |ome known letter|
00001540  73 20 68 61 76 65 20 62  65 65 6e 20 65 6e 74 65  |s have been ente|
00001550  72 65 64 2e 22 29 20 8b  20 f2 66 69 6e 64 67 6f  |red.") . .findgo|
00001560  0d 08 02 05 e1 0d 08 0c  05 3a 0d 08 16 0d dd 20  |.........:..... |
00001570  f2 66 69 6e 64 67 6f 0d  08 20 20 21 62 6c 6f 63  |.findgo..  !bloc|
00001580  6b 25 3d 6d 61 69 6e 68  61 6e 64 25 3a 62 6c 6f  |k%=mainhand%:blo|
00001590  63 6b 25 21 34 3d 33 0d  08 2a 22 c8 99 20 22 57  |ck%!4=3..*".. "W|
000015a0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000015b0  22 2c 2c 62 6c 6f 63 6b  25 0d 08 34 17 24 28 62  |",,block%..4.$(b|
000015c0  6c 6f 63 6b 25 21 32 38  29 3d 22 53 74 6f 70 22  |lock%!28)="Stop"|
000015d0  0d 08 3e 20 21 62 6c 6f  63 6b 25 3d 6d 61 69 6e  |..> !block%=main|
000015e0  68 61 6e 64 25 3a 62 6c  6f 63 6b 25 21 34 3d 34  |hand%:block%!4=4|
000015f0  0d 08 48 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..H".. "Wimp_Get|
00001600  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00001610  6b 25 0d 08 52 1f 24 28  62 6c 6f 63 6b 25 21 32  |k%..R.$(block%!2|
00001620  38 29 3d 22 53 65 61 72  63 68 69 6e 67 2e 2e 2e  |8)="Searching...|
00001630  22 0d 08 5c 18 f2 72 65  64 72 61 77 28 6d 61 69  |"..\..redraw(mai|
00001640  6e 68 61 6e 64 25 2c 34  29 0d 08 66 21 21 62 6c  |nhand%,4)..f!!bl|
00001650  6f 63 6b 25 3d 6d 61 69  6e 68 61 6e 64 25 3a 62  |ock%=mainhand%:b|
00001660  6c 6f 63 6b 25 21 34 3d  33 30 0d 08 70 22 c8 99  |lock%!4=30..p"..|
00001670  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001680  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 08 7a 1c  |ate",,block%..z.|
00001690  24 28 62 6c 6f 63 6b 25  21 32 38 29 3d 22 46 6f  |$(block%!28)="Fo|
000016a0  75 6e 64 20 3a 20 30 22  0d 08 84 19 f2 72 65 64  |und : 0".....red|
000016b0  72 61 77 28 6d 61 69 6e  68 61 6e 64 25 2c 33 30  |raw(mainhand%,30|
000016c0  29 0d 08 8e 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |)... .. "Wimp_Po|
000016d0  6c 6c 22 2c 30 2c 62 6c  6f 63 6b 25 20 b8 20 52  |ll",0,block% . R|
000016e0  25 0d 08 98 0d f2 6d 61  6b 65 6c 69 73 74 0d 08  |%.....makelist..|
000016f0  a2 04 0d 08 ac 20 21 62  6c 6f 63 6b 25 3d 6d 61  |..... !block%=ma|
00001700  69 6e 68 61 6e 64 25 3a  62 6c 6f 63 6b 25 21 34  |inhand%:block%!4|
00001710  3d 34 0d 08 b6 22 c8 99  20 22 57 69 6d 70 5f 47  |=4...".. "Wimp_G|
00001720  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00001730  6f 63 6b 25 0d 08 c0 61  e7 20 73 74 6f 70 25 3d  |ock%...a. stop%=|
00001740  30 20 8c 20 24 28 62 6c  6f 63 6b 25 21 32 38 29  |0 . $(block%!28)|
00001750  3d 22 53 65 61 72 63 68  20 63 6f 6d 70 6c 65 74  |="Search complet|
00001760  65 2e 22 20 8b 20 24 28  62 6c 6f 63 6b 25 21 32  |e." . $(block%!2|
00001770  38 29 3d 22 53 74 6f 70  70 65 64 20 61 74 20 3a  |8)="Stopped at :|
00001780  20 22 2b c3 28 70 65 72  63 65 6e 74 61 67 65 25  | "+.(percentage%|
00001790  29 2b 22 25 22 0d 08 ca  18 f2 72 65 64 72 61 77  |)+"%".....redraw|
000017a0  28 6d 61 69 6e 68 61 6e  64 25 2c 34 29 0d 08 d4  |(mainhand%,4)...|
000017b0  21 21 62 6c 6f 63 6b 25  3d 6d 61 69 6e 68 61 6e  |!!block%=mainhan|
000017c0  64 25 3a 62 6c 6f 63 6b  25 21 34 3d 33 30 0d 08  |d%:block%!4=30..|
000017d0  de 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.".. "Wimp_GetIc|
000017e0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000017f0  0d 08 e8 50 e7 20 73 69  7a 65 25 3c 39 39 39 20  |...P. size%<999 |
00001800  8c 20 24 28 62 6c 6f 63  6b 25 21 32 38 29 3d 22  |. $(block%!28)="|
00001810  46 6f 75 6e 64 20 3a 20  22 2b c3 28 73 69 7a 65  |Found : "+.(size|
00001820  25 29 20 8b 20 24 28 62  6c 6f 63 6b 25 21 32 38  |%) . $(block%!28|
00001830  29 3d 22 46 6f 75 6e 64  20 3a 20 39 39 39 2b 22  |)="Found : 999+"|
00001840  0d 08 f2 19 f2 72 65 64  72 61 77 28 6d 61 69 6e  |.....redraw(main|
00001850  68 61 6e 64 25 2c 33 30  29 0d 08 fc 04 0d 09 06  |hand%,30).......|
00001860  0d 21 62 6c 6f 63 6b 25  3d 30 0d 09 10 1c 62 6c  |.!block%=0....bl|
00001870  6f 63 6b 25 21 34 3d 2d  28 34 2b 28 33 32 2a 73  |ock%!4=-(4+(32*s|
00001880  69 7a 65 25 29 29 0d 09  1a 10 62 6c 6f 63 6b 25  |ize%))....block%|
00001890  21 38 3d 33 38 34 0d 09  24 0f 62 6c 6f 63 6b 25  |!8=384..$.block%|
000018a0  21 31 32 3d 30 0d 09 2e  28 c8 99 20 22 57 69 6d  |!12=0...(.. "Wim|
000018b0  70 5f 53 65 74 45 78 74  65 6e 74 22 2c 70 61 6e  |p_SetExtent",pan|
000018c0  65 68 61 6e 64 25 2c 62  6c 6f 63 6b 25 0d 09 38  |ehand%,block%..8|
000018d0  15 21 62 6c 6f 63 6b 25  3d 70 61 6e 65 68 61 6e  |.!block%=panehan|
000018e0  64 25 0d 09 42 24 c8 99  20 22 57 69 6d 70 5f 47  |d%..B$.. "Wimp_G|
000018f0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001900  62 6c 6f 63 6b 25 0d 09  4c 0f 62 6c 6f 63 6b 25  |block%..L.block%|
00001910  21 32 34 3d 30 0d 09 56  20 c8 99 20 22 57 69 6d  |!24=0..V .. "Wim|
00001920  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00001930  6c 6f 63 6b 25 0d 09 60  0f f2 72 65 64 72 61 77  |lock%..`..redraw|
00001940  70 61 6e 65 0d 09 6a 05  e1 0d 09 74 05 3a 0d 09  |pane..j....t.:..|
00001950  7e 10 dd 20 f2 6d 75 6c  74 69 74 61 73 6b 0d 09  |~.. .multitask..|
00001960  88 0d 2a 46 58 20 32 32  39 2c 31 0d 09 92 0b 2a  |..*FX 229,1....*|
00001970  46 58 20 31 32 34 0d 09  9c 16 c8 99 20 22 48 6f  |FX 124...... "Ho|
00001980  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 09 a6 1b  |urglass_Off"....|
00001990  e7 20 70 65 72 63 65 6e  74 61 67 65 25 3e 64 6f  |. percentage%>do|
000019a0  6e 65 25 2b 35 20 8c 0d  09 b0 16 20 64 6f 6e 65  |ne%+5 ..... done|
000019b0  25 3d 70 65 72 63 65 6e  74 61 67 65 25 0d 09 ba  |%=percentage%...|
000019c0  21 20 21 62 6c 6f 63 6b  25 3d 6d 61 69 6e 68 61  |! !block%=mainha|
000019d0  6e 64 25 3a 62 6c 6f 63  6b 25 21 34 3d 34 0d 09  |nd%:block%!4=4..|
000019e0  c4 23 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.# .. "Wimp_GetI|
000019f0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00001a00  25 0d 09 ce 34 20 24 28  62 6c 6f 63 6b 25 21 32  |%...4 $(block%!2|
00001a10  38 29 3d 22 53 65 61 72  63 68 69 6e 67 2e 2e 2e  |8)="Searching...|
00001a20  20 22 2b c3 28 70 65 72  63 65 6e 74 61 67 65 25  | "+.(percentage%|
00001a30  29 2b 22 25 22 0d 09 d8  22 20 21 62 6c 6f 63 6b  |)+"%"..." !block|
00001a40  25 3d 6d 61 69 6e 68 61  6e 64 25 3a 62 6c 6f 63  |%=mainhand%:bloc|
00001a50  6b 25 21 34 3d 33 30 0d  09 e2 23 20 c8 99 20 22  |k%!4=30...# .. "|
00001a60  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001a70  65 22 2c 2c 62 6c 6f 63  6b 25 0d 09 ec 25 20 24  |e",,block%...% $|
00001a80  28 62 6c 6f 63 6b 25 21  32 38 29 3d 22 46 6f 75  |(block%!28)="Fou|
00001a90  6e 64 20 3a 20 22 2b c3  28 73 69 7a 65 25 29 0d  |nd : "+.(size%).|
00001aa0  09 f6 19 20 f2 72 65 64  72 61 77 28 6d 61 69 6e  |... .redraw(main|
00001ab0  68 61 6e 64 25 2c 34 29  0d 0a 00 1a 20 f2 72 65  |hand%,4).... .re|
00001ac0  64 72 61 77 28 6d 61 69  6e 68 61 6e 64 25 2c 33  |draw(mainhand%,3|
00001ad0  30 29 0d 0a 0a 05 cd 0d  0a 14 20 c8 99 20 22 57  |0)........ .. "W|
00001ae0  69 6d 70 5f 50 6f 6c 6c  22 2c 30 2c 62 6c 6f 63  |imp_Poll",0,bloc|
00001af0  6b 25 20 b8 20 52 25 0d  0a 1e 0d e7 20 52 25 3c  |k% . R%..... R%<|
00001b00  3e 30 20 8c 0d 0a 28 0c  20 c8 8e 20 52 25 20 ca  |>0 ...(. .. R% .|
00001b10  0d 0a 32 18 20 20 20 c9  20 31 20 3a 20 f2 64 72  |..2.   . 1 : .dr|
00001b20  61 77 77 69 6e 64 6f 77  0d 0a 3c 2b 20 20 20 c9  |awwindow..<+   .|
00001b30  20 32 20 3a 20 f2 77 69  6e 64 6f 77 6f 70 65 6e  | 2 : .windowopen|
00001b40  28 21 62 6c 6f 63 6b 25  2c 62 6c 6f 63 6b 25 21  |(!block%,block%!|
00001b50  32 38 29 0d 0a 46 93 20  20 20 f4 20 57 48 45 4e  |28)..F.   . WHEN|
00001b60  20 33 20 3a 20 53 59 53  20 22 48 6f 75 72 67 6c  | 3 : SYS "Hourgl|
00001b70  61 73 73 5f 4f 66 66 22  3a 50 52 4f 43 72 65 70  |ass_Off":PROCrep|
00001b80  6f 72 74 28 22 41 20 73  65 61 72 63 68 20 69 73  |ort("A search is|
00001b90  20 63 75 72 72 65 6e 74  6c 79 20 75 6e 64 65 72  | currently under|
00001ba0  77 61 79 2e 20 50 6c 65  61 73 65 20 74 65 72 6d  |way. Please term|
00001bb0  69 6e 61 74 65 20 74 68  65 20 73 65 61 72 63 68  |inate the search|
00001bc0  20 66 69 72 73 74 2e 22  29 3a 53 59 53 20 22 48  | first."):SYS "H|
00001bd0  6f 75 72 67 6c 61 73 73  5f 53 74 61 72 74 22 2c  |ourglass_Start",|
00001be0  64 65 6c 61 79 25 0d 0a  50 5a 20 20 20 c9 20 33  |delay%..PZ   . 3|
00001bf0  20 3a 20 f2 72 65 70 6f  72 74 28 22 41 20 73 65  | : .report("A se|
00001c00  61 72 63 68 20 69 73 20  63 75 72 72 65 6e 74 6c  |arch is currentl|
00001c10  79 20 75 6e 64 65 72 77  61 79 2e 20 50 6c 65 61  |y underway. Plea|
00001c20  73 65 20 74 65 72 6d 69  6e 61 74 65 20 74 68 65  |se terminate the|
00001c30  20 73 65 61 72 63 68 20  66 69 72 73 74 2e 22 29  | search first.")|
00001c40  0d 0a 5a 48 20 20 20 c9  20 36 20 3a 20 e7 20 62  |..ZH   . 6 : . b|
00001c50  6c 6f 63 6b 25 21 38 3c  3e 32 20 80 20 62 6c 6f  |lock%!8<>2 . blo|
00001c60  63 6b 25 21 31 32 3d 6d  61 69 6e 68 61 6e 64 25  |ck%!12=mainhand%|
00001c70  20 80 20 62 6c 6f 63 6b  25 21 31 36 3d 33 20 8c  | . block%!16=3 .|
00001c80  20 73 74 6f 70 25 3d 31  0d 0a 64 51 20 20 20 c9  | stop%=1..dQ   .|
00001c90  20 31 37 2c 31 38 20 3a  20 f2 6d 65 73 73 61 67  | 17,18 : .messag|
00001ca0  65 28 62 6c 6f 63 6b 25  21 31 36 29 3a e7 20 71  |e(block%!16):. q|
00001cb0  75 69 74 25 3d 31 20 8c  20 f2 6c 6f 73 65 66 6f  |uit%=1 . .losefo|
00001cc0  6e 74 73 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |nts:.. "Wimp_Clo|
00001cd0  73 65 44 6f 77 6e 22 3a  e0 0d 0a 6e 06 20 cb 0d  |seDown":...n. ..|
00001ce0  0a 78 05 cd 0d 0a 82 0d  2a 46 58 20 32 32 39 2c  |.x......*FX 229,|
00001cf0  30 0d 0a 8c 1f c8 99 20  22 48 6f 75 72 67 6c 61  |0...... "Hourgla|
00001d00  73 73 5f 53 74 61 72 74  22 2c 64 65 6c 61 79 25  |ss_Start",delay%|
00001d10  0d 0a 96 05 e1 0d 0a a0  04 0d 0a aa 0f dd 20 f2  |.............. .|
00001d20  6d 61 6b 65 6c 69 73 74  0d 0a b4 0f e3 20 4e 25  |makelist..... N%|
00001d30  3d 31 20 b8 20 32 30 0d  0a be 4a 20 20 e7 20 c1  |=1 . 20...J  . .|
00001d40  66 69 6e 64 24 2c 4e 25  2c 31 29 3c 3e 22 20 22  |find$,N%,1)<>" "|
00001d50  20 80 20 c1 66 69 6e 64  24 2c 4e 25 2c 31 29 3c  | . .find$,N%,1)<|
00001d60  3e 22 22 20 8c 20 73 65  61 72 63 68 25 3f 4e 25  |>"" . search%?N%|
00001d70  3d 31 20 8b 20 73 65 61  72 63 68 25 3f 4e 25 3d  |=1 . search%?N%=|
00001d80  30 0d 0a c8 08 ed 20 4e  25 0d 0a d2 1f c8 99 20  |0..... N%...... |
00001d90  22 48 6f 75 72 67 6c 61  73 73 5f 53 74 61 72 74  |"Hourglass_Start|
00001da0  22 2c 64 65 6c 61 79 25  0d 0a dc 0d 2a 46 58 20  |",delay%....*FX |
00001db0  32 32 39 2c 30 0d 0a e6  04 0d 0a f0 12 6c 65 74  |229,0........let|
00001dc0  73 25 3d a9 28 66 69 6e  64 24 29 0d 0a fa 2e 73  |s%=.(find$)....s|
00001dd0  69 7a 65 25 3d 30 3a 64  6f 6e 65 25 3d 30 3a 73  |ize%=0:done%=0:s|
00001de0  74 6f 70 25 3d 30 3a 61  64 64 69 74 6d 25 3d 31  |top%=0:additm%=1|
00001df0  3a 64 69 63 74 6d 25 3d  30 0d 0b 04 0c 74 69 6d  |:dictm%=0....tim|
00001e00  65 72 25 3d 91 0d 0b 0e  07 ea 20 85 0d 0b 18 10  |er%=...... .....|
00001e10  ee 20 85 20 ea 20 f2 65  72 72 6f 72 0d 0b 22 0f  |. . . .error..".|
00001e20  e7 20 73 74 6f 70 25 3d  30 20 8c 0d 0b 2c 06 20  |. stop%=0 ...,. |
00001e30  f5 0d 0b 36 38 20 20 20  e7 20 91 2d 74 69 6d 65  |...68   . .-time|
00001e40  72 25 3e 74 61 73 6b 73  70 65 65 64 25 20 8c 20  |r%>taskspeed% . |
00001e50  50 52 4f 43 6d 75 6c 74  69 74 61 73 6b 3a 74 69  |PROCmultitask:ti|
00001e60  6d 65 72 25 3d 54 49 4d  45 0d 0b 40 1e 20 20 20  |mer%=TIME..@.   |
00001e70  73 65 61 72 63 68 24 3d  61 64 64 69 74 24 28 61  |search$=addit$(a|
00001e80  64 64 69 74 6d 25 29 0d  0b 4a 1b 20 20 20 e7 20  |dditm%)..J.   . |
00001e90  a9 28 73 65 61 72 63 68  24 29 3d 6c 65 74 73 25  |.(search$)=lets%|
00001ea0  20 8c 0d 0b 54 16 20 20  20 20 20 4e 25 3d 31 3a  | ...T.     N%=1:|
00001eb0  66 6f 75 6e 64 25 3d 30  0d 0b 5e 0a 20 20 20 20  |found%=0..^.    |
00001ec0  20 f5 0d 0b 68 41 20 20  20 20 20 20 20 e7 20 73  | ...hA       . s|
00001ed0  65 61 72 63 68 25 3f 4e  25 20 80 20 c1 66 69 6e  |earch%?N% . .fin|
00001ee0  64 24 2c 4e 25 2c 31 29  3c 3e c1 73 65 61 72 63  |d$,N%,1)<>.searc|
00001ef0  68 24 2c 4e 25 2c 31 29  20 8c 20 66 6f 75 6e 64  |h$,N%,1) . found|
00001f00  25 3d 31 0d 0b 72 10 20  20 20 20 20 20 20 4e 25  |%=1..r.       N%|
00001f10  2b 3d 31 0d 0b 7c 20 20  20 20 20 20 fd 20 4e 25  |+=1..|      . N%|
00001f20  3d 6c 65 74 73 25 2b 31  20 84 20 66 6f 75 6e 64  |=lets%+1 . found|
00001f30  25 3d 31 0d 0b 86 33 20  20 20 20 20 e7 20 66 6f  |%=1...3     . fo|
00001f40  75 6e 64 25 3d 30 20 8c  20 73 69 7a 65 25 2b 3d  |und%=0 . size%+=|
00001f50  31 3a 74 65 78 74 24 28  73 69 7a 65 25 29 3d 73  |1:text$(size%)=s|
00001f60  65 61 72 63 68 24 0d 0b  90 08 20 20 20 cd 0d 0b  |earch$....   ...|
00001f70  9a 11 20 20 20 61 64 64  69 74 6d 25 2b 3d 31 0d  |..   additm%+=1.|
00001f80  0b a4 3d 20 fd 20 61 64  64 69 74 6d 25 3d 39 39  |..= . additm%=99|
00001f90  39 20 84 20 61 64 64 69  74 24 28 61 64 64 69 74  |9 . addit$(addit|
00001fa0  6d 25 29 3d 22 22 20 84  20 73 74 6f 70 25 3d 31  |m%)="" . stop%=1|
00001fb0  20 84 20 73 69 7a 65 25  3d 39 39 39 0d 0b ae 06  | . size%=999....|
00001fc0  20 3a 0d 0b b8 19 20 62  79 74 65 70 6f 73 25 3d  | :.... bytepos%=|
00001fd0  30 3a 62 69 74 70 6f 73  25 3d 30 0d 0b c2 06 20  |0:bitpos%=0.... |
00001fe0  f5 0d 0b cc 32 20 20 20  e7 20 91 2d 74 69 6d 65  |....2   . .-time|
00001ff0  72 25 3e 74 61 73 6b 73  70 65 65 64 25 20 8c 20  |r%>taskspeed% . |
00002000  f2 6d 75 6c 74 69 74 61  73 6b 3a 74 69 6d 65 72  |.multitask:timer|
00002010  25 3d 91 0d 0b d6 45 20  20 20 f2 74 72 61 63 65  |%=....E   .trace|
00002020  28 62 79 74 65 70 6f 73  25 2c 62 69 74 70 6f 73  |(bytepos%,bitpos|
00002030  25 2c 66 69 6e 64 24 2c  73 65 61 72 63 68 24 2c  |%,find$,search$,|
00002040  66 6f 75 6e 64 25 2c 62  79 74 65 70 6f 73 25 2c  |found%,bytepos%,|
00002050  62 69 74 70 6f 73 25 29  0d 0b e0 31 20 20 20 e7  |bitpos%)...1   .|
00002060  20 66 6f 75 6e 64 25 3d  30 20 8c 20 73 69 7a 65  | found%=0 . size|
00002070  25 2b 3d 31 3a 74 65 78  74 24 28 73 69 7a 65 25  |%+=1:text$(size%|
00002080  29 3d 73 65 61 72 63 68  24 0d 0b ea 25 20 fd 20  |)=search$...% . |
00002090  66 6f 75 6e 64 25 3d 31  20 84 20 73 74 6f 70 25  |found%=1 . stop%|
000020a0  3d 31 20 84 20 73 69 7a  65 25 3d 39 39 39 0d 0b  |=1 . size%=999..|
000020b0  f4 05 cd 0d 0b fe 07 f7  20 85 0d 0c 08 04 0d 0c  |........ .......|
000020c0  12 34 e7 20 73 69 7a 65  25 3c 39 39 39 20 e3 20  |.4. size%<999 . |
000020d0  4e 25 3d 73 69 7a 65 25  2b 31 20 b8 20 39 39 39  |N%=size%+1 . 999|
000020e0  3a 74 65 78 74 24 28 4e  25 29 3d 22 22 3a ed 20  |:text$(N%)="":. |
000020f0  4e 25 0d 0c 1c 36 e7 20  73 69 7a 65 25 3d 39 39  |N%...6. size%=99|
00002100  39 20 8c 20 74 65 78 74  24 28 39 39 39 29 3d 22  |9 . text$(999)="|
00002110  4f 76 65 72 20 39 39 39  20 77 6f 72 64 73 20 66  |Over 999 words f|
00002120  6f 75 6e 64 2e 20 8a 22  0d 0c 26 20 21 62 6c 6f  |ound. ."..& !blo|
00002130  63 6b 25 3d 6d 61 69 6e  68 61 6e 64 25 3a 62 6c  |ck%=mainhand%:bl|
00002140  6f 63 6b 25 21 34 3d 33  0d 0c 30 22 c8 99 20 22  |ock%!4=3..0".. "|
00002150  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00002160  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0c 3a 17 24 28  |e",,block%..:.$(|
00002170  62 6c 6f 63 6b 25 21 32  38 29 3d 22 46 69 6e 64  |block%!28)="Find|
00002180  22 0d 0c 44 18 f2 72 65  64 72 61 77 28 6d 61 69  |"..D..redraw(mai|
00002190  6e 68 61 6e 64 25 2c 33  29 0d 0c 4e 0d 2a 46 58  |nhand%,3)..N.*FX|
000021a0  20 32 32 39 2c 31 0d 0c  58 0b 2a 46 58 20 31 32  | 229,1..X.*FX 12|
000021b0  34 0d 0c 62 16 c8 99 20  22 48 6f 75 72 67 6c 61  |4..b... "Hourgla|
000021c0  73 73 5f 4f 66 66 22 0d  0c 6c 05 e1 0d 0c 76 05  |ss_Off"..l....v.|
000021d0  3a 0d 0c 80 12 dd 20 f2  61 64 64 69 74 74 6f 74  |:..... .addittot|
000021e0  65 78 74 0d 0c 8a 11 4e  25 3d 30 3a 73 69 7a 65  |ext....N%=0:size|
000021f0  25 3d 2d 31 0d 0c 94 10  e3 20 4e 25 3d 31 20 b8  |%=-1..... N%=1 .|
00002200  20 39 39 39 0d 0c 9e 1a  20 20 74 65 78 74 24 28  | 999....  text$(|
00002210  4e 25 29 3d 61 64 64 69  74 24 28 4e 25 29 0d 0c  |N%)=addit$(N%)..|
00002220  a8 2c 20 20 e7 20 61 64  64 69 74 24 28 4e 25 29  |.,  . addit$(N%)|
00002230  3d 22 22 20 80 20 73 69  7a 65 25 3c 3e 2d 31 20  |="" . size%<>-1 |
00002240  8c 20 73 69 7a 65 25 3d  4e 25 0d 0c b2 08 ed 20  |. size%=N%..... |
00002250  4e 25 0d 0c bc 05 e1 0d  0c c6 05 3a 0d 0c d0 0f  |N%.........:....|
00002260  dd 20 f2 6c 6f 61 64 6c  69 73 74 0d 0c da 26 4e  |. .loadlist...&N|
00002270  25 3d 31 3a 5a 3d 8e 28  22 3c 57 69 7a 61 72 64  |%=1:Z=.("<Wizard|
00002280  24 44 69 72 3e 2e 41 64  64 69 74 69 6f 6e 73 22  |$Dir>.Additions"|
00002290  29 0d 0c e4 05 f5 0d 0c  ee 0d 20 20 58 24 3d be  |).........  X$=.|
000022a0  23 20 5a 0d 0c f8 2b 20  20 e7 20 c0 58 24 2c 31  |# Z...+  . .X$,1|
000022b0  29 3c 3e 22 7c 22 20 8c  20 61 64 64 69 74 24 28  |)<>"|" . addit$(|
000022c0  4e 25 29 3d 58 24 3a 4e  25 3d 4e 25 2b 31 0d 0d  |N%)=X$:N%=N%+1..|
000022d0  02 14 fd 20 c5 23 20 5a  20 84 20 4e 25 3d 31 30  |... .# Z . N%=10|
000022e0  30 30 0d 0d 0c 3b e7 20  4e 25 3d 31 30 30 30 20  |00...;. N%=1000 |
000022f0  8c 20 f2 72 65 70 6f 72  74 28 22 41 64 64 69 74  |. .report("Addit|
00002300  69 6f 6e 73 20 64 69 63  74 69 6f 6e 61 72 79 20  |ions dictionary |
00002310  69 73 20 74 6f 6f 20 62  69 67 2e 22 29 0d 0d 16  |is too big.")...|
00002320  07 d9 23 5a 0d 0d 20 10  77 6f 72 64 73 69 7a 65  |..#Z.. .wordsize|
00002330  25 3d 4e 25 0d 0d 2a 04  0d 0d 34 36 c8 99 20 22  |%=N%..*...46.. "|
00002340  4f 53 5f 46 69 6c 65 22  2c 31 37 2c 22 3c 57 69  |OS_File",17,"<Wi|
00002350  7a 61 72 64 24 44 69 72  3e 2e 43 6f 6d 70 44 69  |zard$Dir>.CompDi|
00002360  63 74 22 20 b8 20 2c 2c  2c 2c 6c 65 6e 25 0d 0d  |ct" . ,,,,len%..|
00002370  3e 11 de 20 64 61 72 65  61 25 20 6c 65 6e 25 0d  |>.. darea% len%.|
00002380  0d 48 32 c8 99 20 22 4f  53 5f 46 69 6c 65 22 2c  |.H2.. "OS_File",|
00002390  31 36 2c 22 3c 57 69 7a  61 72 64 24 44 69 72 3e  |16,"<Wizard$Dir>|
000023a0  2e 43 6f 6d 70 44 69 63  74 22 2c 64 61 72 65 61  |.CompDict",darea|
000023b0  25 0d 0d 52 05 e1 0d 0d  5c 05 3a 0d 0d 66 0c dd  |%..R....\.:..f..|
000023c0  20 f2 65 72 72 6f 72 0d  0d 70 16 e7 20 9f 3d 31  | .error..p.. .=1|
000023d0  37 20 8c 20 73 74 6f 70  25 3d 31 3a e1 0d 0d 7a  |7 . stop%=1:...z|
000023e0  30 21 62 6c 6f 63 6b 25  3d 9f 3a 24 28 62 6c 6f  |0!block%=.:$(blo|
000023f0  63 6b 25 2b 34 29 3d f6  24 2b 22 20 61 74 20 6c  |ck%+4)=.$+" at l|
00002400  69 6e 65 20 22 2b c3 28  9e 29 2b bd 30 0d 0d 84  |ine "+.(.)+.0...|
00002410  27 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |'.. "Wimp_Report|
00002420  45 72 72 6f 72 22 2c 62  6c 6f 63 6b 25 2c 31 2c  |Error",block%,1,|
00002430  61 70 70 24 0d 0d 8e 0e  f2 6c 6f 73 65 66 6f 6e  |app$.....losefon|
00002440  74 73 0d 0d 98 16 c8 99  22 57 69 6d 70 5f 43 6c  |ts......"Wimp_Cl|
00002450  6f 73 65 44 6f 77 6e 22  0d 0d a2 05 e0 0d 0d ac  |oseDown"........|
00002460  05 e1 0d 0d b6 05 3a 0d  0d c0 13 dd 20 f2 72 65  |......:..... .re|
00002470  70 6f 72 74 28 6d 65 73  24 29 0d 0d ca 14 24 28  |port(mes$)....$(|
00002480  62 6c 6f 63 6b 25 2b 34  29 3d 6d 65 73 24 0d 0d  |block%+4)=mes$..|
00002490  d4 38 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |.8.. "Wimp_Repor|
000024a0  74 45 72 72 6f 72 22 2c  62 6c 6f 63 6b 25 2c 31  |tError",block%,1|
000024b0  37 2c 22 4d 65 73 73 61  67 65 20 66 72 6f 6d 20  |7,"Message from |
000024c0  22 2b 61 70 70 24 0d 0d  de 05 e1 0d 0d e8 05 3a  |"+app$.........:|
000024d0  0d 0d f2 12 dd 20 f2 73  74 61 74 75 73 63 68 65  |..... .statusche|
000024e0  63 6b 0d 0d fc 22 c8 99  20 22 4f 53 5f 42 79 74  |ck...".. "OS_Byt|
000024f0  65 22 2c 31 32 39 2c 30  2c 26 46 46 20 b8 20 2c  |e",129,0,&FF . ,|
00002500  72 6f 76 25 0d 0e 06 2d  e7 20 72 6f 76 25 3e 26  |rov%...-. rov%>&|
00002510  41 32 20 8c 20 c8 99 20  22 4f 53 5f 42 79 74 65  |A2 . .. "OS_Byte|
00002520  22 2c 31 36 31 2c 31 34  30 20 b8 20 2c 2c 74 64  |",161,140 . ,,td|
00002530  25 0d 0e 10 19 e7 20 72  6f 76 25 3c 26 41 33 20  |%..... rov%<&A3 |
00002540  8c 20 66 61 6e 63 79 25  3d 30 0d 0e 1a 21 e7 20  |. fancy%=0...!. |
00002550  74 64 25 20 80 20 31 20  8c 20 74 64 24 3d 22 33  |td% . 1 . td$="3|
00002560  44 22 20 8b 20 74 64 24  3d 22 22 0d 0e 24 2b e7  |D" . td$=""..$+.|
00002570  20 66 61 6e 63 79 25 3d  30 20 8c 20 66 61 6e 63  | fancy%=0 . fanc|
00002580  79 24 3d 22 22 20 8b 20  66 61 6e 63 79 24 3d 22  |y$="" . fancy$="|
00002590  46 61 6e 63 79 22 0d 0e  2e 05 e1 0d 0e 38 05 3a  |Fancy".......8.:|
000025a0  0d 0e 42 16 dd 20 a4 73  70 63 68 65 63 6b 28 63  |..B.. .spcheck(c|
000025b0  68 65 63 6b 24 29 0d 0e  4c 15 63 6f 6e 66 69 72  |heck$)..L.confir|
000025c0  6d 25 3d 30 3a 63 74 72  25 3d 30 0d 0e 56 21 c8  |m%=0:ctr%=0..V!.|
000025d0  99 20 22 57 69 6d 70 5f  53 70 72 69 74 65 4f 70  |. "Wimp_SpriteOp|
000025e0  22 2c 38 20 b8 20 2c 2c  2c 6e 6f 25 0d 0e 60 05  |",8 . ,,,no%..`.|
000025f0  f5 0d 0e 6a 11 20 20 63  74 72 25 3d 63 74 72 25  |...j.  ctr%=ctr%|
00002600  2b 31 0d 0e 74 36 20 20  c8 99 20 22 57 69 6d 70  |+1..t6  .. "Wimp|
00002610  5f 53 70 72 69 74 65 4f  70 22 2c 31 33 2c 2c 62  |_SpriteOp",13,,b|
00002620  6c 6f 63 6b 25 2c 32 35  35 2c 63 74 72 25 20 b8  |lock%,255,ctr% .|
00002630  20 2c 2c 6e 61 6d 65 24  0d 0e 7e 21 20 20 e7 20  | ,,name$..~!  . |
00002640  6e 61 6d 65 24 3d 63 68  65 63 6b 24 20 8c 20 63  |name$=check$ . c|
00002650  6f 6e 66 69 72 6d 25 3d  31 0d 0e 88 1b fd 20 63  |onfirm%=1..... c|
00002660  74 72 25 3d 6e 6f 25 20  84 20 63 6f 6e 66 69 72  |tr%=no% . confir|
00002670  6d 25 3d 31 0d 0e 92 0d  3d 63 6f 6e 66 69 72 6d  |m%=1....=confirm|
00002680  25 0d 0e 9c 05 3a 0d 0e  a6 10 dd 20 f2 6c 6f 73  |%....:..... .los|
00002690  65 66 6f 6e 74 73 0d 0e  b0 12 e3 20 63 74 72 25  |efonts..... ctr%|
000026a0  3d 30 20 b8 20 32 35 36  0d 0e ba 30 20 20 e7 20  |=0 . 256...0  . |
000026b0  66 6f 6e 74 73 25 3f 63  74 72 25 3c 3e 30 20 8c  |fonts%?ctr%<>0 .|
000026c0  20 c8 99 20 22 46 6f 6e  74 5f 4c 6f 73 65 46 6f  | .. "Font_LoseFo|
000026d0  6e 74 22 2c 63 74 72 25  0d 0e c4 0a ed 20 63 74  |nt",ctr%..... ct|
000026e0  72 25 0d 0e ce 05 e1 0d  0e d8 05 3a 0d 0e e2 11  |r%.........:....|
000026f0  dd 20 f2 69 6e 69 74 69  61 6c 69 73 65 0d 0e ec  |. .initialise...|
00002700  36 de 20 62 6c 6f 63 6b  25 20 31 34 30 30 2c 6d  |6. block% 1400,m|
00002710  65 6e 75 25 20 39 39 2c  6e 61 6d 65 25 20 31 31  |enu% 99,name% 11|
00002720  2c 73 65 61 72 63 68 25  20 33 30 2c 6d 61 73 6b  |,search% 30,mask|
00002730  25 20 37 0d 0e f6 44 de  20 69 6e 66 6f 69 6e 64  |% 7...D. infoind|
00002740  25 20 31 32 30 2c 6d 61  69 6e 69 6e 64 25 20 34  |% 120,mainind% 4|
00002750  30 30 2c 70 61 6e 65 69  6e 64 25 20 31 30 2c 69  |00,paneind% 10,i|
00002760  6e 74 72 6f 69 6e 64 25  20 32 30 30 2c 66 6f 6e  |ntroind% 200,fon|
00002770  74 73 25 20 32 35 36 0d  0f 00 11 de 20 74 65 78  |ts% 256..... tex|
00002780  74 24 28 31 30 30 30 29  0d 0f 0a 53 73 69 7a 65  |t$(1000)...Ssize|
00002790  25 3d 30 3a 72 65 73 25  3d 39 3a 74 64 25 3d 30  |%=0:res%=9:td%=0|
000027a0  3a 74 64 24 3d 22 22 3a  61 70 70 24 3d 22 57 6f  |:td$="":app$="Wo|
000027b0  72 64 57 69 7a 61 72 64  22 3a 21 6d 61 73 6b 25  |rdWizard":!mask%|
000027c0  3d 30 3a 70 65 72 63 65  6e 74 61 67 65 25 3d 30  |=0:percentage%=0|
000027d0  3a 64 65 6c 61 79 25 3d  31 35 30 0d 0f 14 2a e3  |:delay%=150...*.|
000027e0  20 63 74 72 25 3d 30 20  b8 20 36 34 3a 66 6f 6e  | ctr%=0 . 64:fon|
000027f0  74 73 25 21 28 63 74 72  25 2a 34 29 3d 30 3a ed  |ts%!(ctr%*4)=0:.|
00002800  20 63 74 72 25 0d 0f 1e  04 0d 0f 28 2f c8 99 20  | ctr%......(/.. |
00002810  22 4f 53 5f 47 53 54 72  61 6e 73 22 2c 22 3c 57  |"OS_GSTrans","<W|
00002820  69 7a 61 72 64 24 4f 70  74 73 3e 22 2c 62 6c 6f  |izard$Opts>",blo|
00002830  63 6b 25 2c 31 33 39 39  0d 0f 32 23 77 69 7a 6f  |ck%,1399..2#wizo|
00002840  70 74 73 24 3d a4 73 74  72 69 6e 67 66 72 6f 6d  |pts$=.stringfrom|
00002850  6d 65 6d 28 62 6c 6f 63  6b 25 29 0d 0f 3c 04 0d  |mem(block%)..<..|
00002860  0f 46 1a 69 6e 74 72 6f  25 3d bb 28 c0 77 69 7a  |.F.intro%=.(.wiz|
00002870  6f 70 74 73 24 2c 31 29  29 0d 0f 50 1c 66 61 6e  |opts$,1))..P.fan|
00002880  63 79 25 3d bb 28 c1 77  69 7a 6f 70 74 73 24 2c  |cy%=.(.wizopts$,|
00002890  33 2c 31 29 29 0d 0f 5a  20 74 61 73 6b 73 70 65  |3,1))..Z taskspe|
000028a0  65 64 25 3d bb 28 c1 77  69 7a 6f 70 74 73 24 2c  |ed%=.(.wizopts$,|
000028b0  35 2c 31 29 29 0d 0f 64  1d 64 69 63 74 73 69 7a  |5,1))..d.dictsiz|
000028c0  65 25 3d bb 28 c1 77 69  7a 6f 70 74 73 24 2c 37  |e%=.(.wizopts$,7|
000028d0  29 29 0d 0f 6e 04 0d 0f  78 17 de 20 61 64 64 69  |))..n...x.. addi|
000028e0  74 24 28 64 69 63 74 73  69 7a 65 25 29 0d 0f 82  |t$(dictsize%)...|
000028f0  04 0d 0f 8c 10 f2 73 74  61 74 75 73 63 68 65 63  |......statuschec|
00002900  6b 0d 0f 96 31 c8 99 20  22 57 69 6d 70 5f 49 6e  |k...1.. "Wimp_In|
00002910  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00002920  42 35 33 34 31 35 34 2c  61 70 70 24 2c 6d 61 73  |B534154,app$,mas|
00002930  6b 25 0d 0f a0 04 0d 0f  aa 10 e7 20 72 6f 76 25  |k%......... rov%|
00002940  3c 26 41 33 20 8c 0d 0f  b4 2f 20 20 e7 20 a4 73  |<&A3 ..../  . .s|
00002950  70 63 68 65 63 6b 28 22  75 70 22 29 3d 30 20 84  |pcheck("up")=0 .|
00002960  20 a4 73 70 63 68 65 63  6b 28 22 64 6f 77 6e 22  | .spcheck("down"|
00002970  29 3d 30 20 8c 0d 0f be  3d 20 20 20 20 e7 20 a4  |)=0 ....=    . .|
00002980  72 65 73 63 68 65 63 6b  3d 2d 31 20 8c 20 2a 49  |rescheck=-1 . *I|
00002990  63 6f 6e 53 70 72 69 74  65 73 20 3c 57 69 7a 61  |conSprites <Wiza|
000029a0  72 64 24 44 69 72 3e 2e  52 32 53 70 72 69 74 65  |rd$Dir>.R2Sprite|
000029b0  73 4c 0d 0f c8 3c 20 20  20 20 e7 20 a4 72 65 73  |sL...<    . .res|
000029c0  63 68 65 63 6b 3d 30 20  8c 20 2a 49 63 6f 6e 53  |check=0 . *IconS|
000029d0  70 72 69 74 65 73 20 3c  57 69 7a 61 72 64 24 44  |prites <Wizard$D|
000029e0  69 72 3e 2e 52 32 53 70  72 69 74 65 73 48 0d 0f  |ir>.R2SpritesH..|
000029f0  d2 07 20 20 cd 0d 0f dc  05 cd 0d 0f e6 04 0d 0f  |..  ............|
00002a00  f0 3c c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.<.. "Wimp_OpenT|
00002a10  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 57 69 7a 61  |emplate",,"<Wiza|
00002a20  72 64 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |rd$Dir>.Template|
00002a30  73 22 2b c0 74 64 24 2c  31 29 0d 0f fa 48 c8 99  |s"+.td$,1)...H..|
00002a40  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00002a50  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 69 6e 66  |ate",,block%,inf|
00002a60  6f 69 6e 64 25 2c 69 6e  66 6f 69 6e 64 25 2b 31  |oind%,infoind%+1|
00002a70  32 30 2c 2d 31 2c 22 50  72 6f 67 49 6e 66 6f 22  |20,-1,"ProgInfo"|
00002a80  2c 30 0d 10 04 2e c8 99  20 22 57 69 6d 70 5f 43  |,0...... "Wimp_C|
00002a90  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00002aa0  6f 63 6b 25 20 b8 20 69  6e 66 6f 68 61 6e 64 25  |ock% . infohand%|
00002ab0  0d 10 0e 44 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...D.. "Wimp_Loa|
00002ac0  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00002ad0  6b 25 2c 6d 61 69 6e 69  6e 64 25 2c 6d 61 69 6e  |k%,mainind%,main|
00002ae0  69 6e 64 25 2b 34 30 30  2c 2d 31 2c 22 4d 61 69  |ind%+400,-1,"Mai|
00002af0  6e 22 2c 30 0d 10 18 0f  62 6c 6f 63 6b 25 21 36  |n",0....block%!6|
00002b00  34 3d 31 0d 10 22 2e c8  99 20 22 57 69 6d 70 5f  |4=1.."... "Wimp_|
00002b10  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00002b20  6c 6f 63 6b 25 20 b8 20  6d 61 69 6e 68 61 6e 64  |lock% . mainhand|
00002b30  25 0d 10 2c 43 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%..,C.. "Wimp_Lo|
00002b40  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00002b50  63 6b 25 2c 70 61 6e 65  69 6e 64 25 2c 70 61 6e  |ck%,paneind%,pan|
00002b60  65 69 6e 64 25 2b 31 30  2c 2d 31 2c 22 50 61 6e  |eind%+10,-1,"Pan|
00002b70  65 22 2c 30 0d 10 36 2e  c8 99 20 22 57 69 6d 70  |e",0..6... "Wimp|
00002b80  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00002b90  62 6c 6f 63 6b 25 20 b8  20 70 61 6e 65 68 61 6e  |block% . panehan|
00002ba0  64 25 0d 10 40 52 c8 99  20 22 57 69 6d 70 5f 4c  |d%..@R.. "Wimp_L|
00002bb0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
00002bc0  6f 63 6b 25 2c 69 6e 74  72 6f 69 6e 64 25 2c 69  |ock%,introind%,i|
00002bd0  6e 74 72 6f 69 6e 64 25  2b 32 30 30 2c 66 6f 6e  |ntroind%+200,fon|
00002be0  74 73 25 2c 66 61 6e 63  79 24 2b 22 49 6e 74 72  |ts%,fancy$+"Intr|
00002bf0  6f 22 2c 30 0d 10 4a 0f  62 6c 6f 63 6b 25 21 36  |o",0..J.block%!6|
00002c00  34 3d 31 0d 10 54 2f c8  99 20 22 57 69 6d 70 5f  |4=1..T/.. "Wimp_|
00002c10  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00002c20  6c 6f 63 6b 25 20 b8 20  69 6e 74 72 6f 68 61 6e  |lock% . introhan|
00002c30  64 25 0d 10 5e 1b c8 99  20 22 57 69 6d 70 5f 43  |d%..^... "Wimp_C|
00002c40  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 10 68  |loseTemplate"..h|
00002c50  05 3a 0d 10 72 10 e7 20  69 6e 74 72 6f 25 3d 31  |.:..r.. intro%=1|
00002c60  20 8c 0d 10 7c 17 20 21  62 6c 6f 63 6b 25 3d 69  | ...|. !block%=i|
00002c70  6e 74 72 6f 68 61 6e 64  25 0d 10 86 25 20 c8 99  |ntrohand%...% ..|
00002c80  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00002c90  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 10  |State",,block%..|
00002ca0  90 22 20 f2 63 65 6e 74  72 65 77 69 6e 64 6f 77  |." .centrewindow|
00002cb0  28 69 6e 74 72 6f 68 61  6e 64 25 2c 30 2c 30 29  |(introhand%,0,0)|
00002cc0  0d 10 9a 21 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |...! .. "Wimp_Op|
00002cd0  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
00002ce0  25 0d 10 a4 21 20 c8 99  20 22 57 69 6d 70 5f 50  |%...! .. "Wimp_P|
00002cf0  6f 6c 6c 22 2c 30 2c 62  6c 6f 63 6b 25 20 b8 20  |oll",0,block% . |
00002d00  52 25 0d 10 ae 21 20 c8  99 20 22 57 69 6d 70 5f  |R%...! .. "Wimp_|
00002d10  50 6f 6c 6c 22 2c 30 2c  62 6c 6f 63 6b 25 20 b8  |Poll",0,block% .|
00002d20  20 52 25 0d 10 b8 21 20  c8 99 20 22 57 69 6d 70  | R%...! .. "Wimp|
00002d30  5f 50 6f 6c 6c 22 2c 30  2c 62 6c 6f 63 6b 25 20  |_Poll",0,block% |
00002d40  b8 20 52 25 0d 10 c2 21  20 c8 99 20 22 57 69 6d  |. R%...! .. "Wim|
00002d50  70 5f 50 6f 6c 6c 22 2c  30 2c 62 6c 6f 63 6b 25  |p_Poll",0,block%|
00002d60  20 b8 20 52 25 0d 10 cc  17 20 21 62 6c 6f 63 6b  | . R%.... !block|
00002d70  25 3d 69 6e 74 72 6f 68  61 6e 64 25 0d 10 d6 22  |%=introhand%..."|
00002d80  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
00002d90  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 10  |indow",,block%..|
00002da0  e0 05 cd 0d 10 ea 1f c8  99 20 22 48 6f 75 72 67  |......... "Hourg|
00002db0  6c 61 73 73 5f 53 74 61  72 74 22 2c 64 65 6c 61  |lass_Start",dela|
00002dc0  79 25 0d 10 f4 0d f2 6c  6f 61 64 6c 69 73 74 0d  |y%.....loadlist.|
00002dd0  10 fe 09 f2 63 6f 64 65  0d 11 08 16 c8 99 20 22  |....code...... "|
00002de0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 11  |Hourglass_Off"..|
00002df0  12 05 3a 0d 11 1c 20 21  62 6c 6f 63 6b 25 3d 69  |..:... !block%=i|
00002e00  6e 66 6f 68 61 6e 64 25  3a 62 6c 6f 63 6b 25 21  |nfohand%:block%!|
00002e10  34 3d 31 0d 11 26 22 c8  99 20 22 57 69 6d 70 5f  |4=1..&".. "Wimp_|
00002e20  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00002e30  6c 6f 63 6b 25 0d 11 30  19 24 28 62 6c 6f 63 6b  |lock%..0.$(block|
00002e40  25 21 32 38 29 3d 76 65  72 73 69 6f 6e 24 0d 11  |%!28)=version$..|
00002e50  3a 05 3a 0d 11 44 15 4d  25 3d 6d 65 6e 75 25 3a  |:.:..D.M%=menu%:|
00002e60  24 4d 25 3d 61 70 70 24  0d 11 4e 23 4d 25 21 31  |$M%=app$..N#M%!1|
00002e70  32 3d 26 37 30 32 30 37  3a 4d 25 21 31 36 3d 31  |2=&70207:M%!16=1|
00002e80  34 34 3a 4d 25 21 32 30  3d 34 34 0d 11 58 0b 4d  |44:M%!20=44..X.M|
00002e90  25 21 32 34 3d 30 0d 11  62 3c 4d 25 21 32 38 3d  |%!24=0..b<M%!28=|
00002ea0  26 30 30 3a 4d 25 21 33  32 3d 69 6e 66 6f 68 61  |&00:M%!32=infoha|
00002eb0  6e 64 25 3a 4d 25 21 33  36 3d 26 37 30 30 30 30  |nd%:M%!36=&70000|
00002ec0  32 31 3a 24 28 4d 25 2b  34 30 29 3d 22 49 6e 66  |21:$(M%+40)="Inf|
00002ed0  6f 22 0d 11 6c 35 4d 25  21 35 32 3d 26 38 30 3a  |o"..l5M%!52=&80:|
00002ee0  4d 25 21 35 36 3d 2d 31  3a 4d 25 21 36 30 3d 26  |M%!56=-1:M%!60=&|
00002ef0  37 30 30 30 30 32 31 3a  24 28 4d 25 2b 36 34 29  |7000021:$(M%+64)|
00002f00  3d 22 51 75 69 74 22 0d  11 76 22 42 25 3d 62 6c  |="Quit"..v"B%=bl|
00002f10  6f 63 6b 25 3a 21 42 25  3d 2d 31 3a 42 25 21 34  |ock%:!B%=-1:B%!4|
00002f20  3d 30 3a 42 25 21 38 3d  30 0d 11 80 21 42 25 21  |=0:B%!8=0...!B%!|
00002f30  31 32 3d 36 38 3a 42 25  21 31 36 3d 36 38 3a 42  |12=68:B%!16=68:B|
00002f40  25 21 32 30 3d 26 33 30  31 41 0d 11 8a 17 24 28  |%!20=&301A....$(|
00002f50  42 25 2b 32 34 29 3d 22  21 77 6f 72 64 77 69 7a  |B%+24)="!wordwiz|
00002f60  22 0d 11 94 1c c8 99 20  22 57 69 6d 70 5f 43 72  |"...... "Wimp_Cr|
00002f70  65 61 74 65 49 63 6f 6e  22 2c 2c 42 25 0d 11 9e  |eateIcon",,B%...|
00002f80  05 3a 0d 11 a8 0b 71 75  69 74 25 3d a3 0d 11 b2  |.:....quit%=....|
00002f90  1b 67 72 6f 75 70 25 3d  30 3a 45 53 47 25 3d 31  |.group%=0:ESG%=1|
00002fa0  3a 6d 69 6e 79 25 3d 30  0d 11 bc 1d 6c 61 72 72  |:miny%=0....larr|
00002fb0  6f 77 24 3d bd 31 33 36  3a 72 61 72 72 6f 77 24  |ow$=.136:rarrow$|
00002fc0  3d bd 31 33 37 0d 11 c6  05 3a 0d 11 d0 2b de 20  |=.137....:...+. |
00002fd0  62 5f 6f 6e 6f 66 66 25  20 31 33 3a 24 62 5f 6f  |b_onoff% 13:$b_o|
00002fe0  6e 6f 66 66 25 3d 22 73  6f 70 74 6f 66 66 2c 6f  |noff%="soptoff,o|
00002ff0  70 74 6f 6e 22 0d 11 da  2f de 20 62 5f 72 61 64  |pton".../. b_rad|
00003000  69 6f 25 20 31 37 3a 24  62 5f 72 61 64 69 6f 25  |io% 17:$b_radio%|
00003010  3d 22 73 72 61 64 69 6f  6f 66 66 2c 72 61 64 69  |="sradiooff,radi|
00003020  6f 6f 6e 22 0d 11 e4 1d  de 20 63 68 6f 69 63 65  |oon"..... choice|
00003030  24 28 32 35 35 29 2c 63  6f 64 65 25 28 39 39 39  |$(255),code%(999|
00003040  29 0d 11 ee 05 e1 0d 11  f8 05 3a 0d 12 02 12 dd  |).........:.....|
00003050  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 0d 12 0c  | .open_window...|
00003060  15 21 62 6c 6f 63 6b 25  3d 6d 61 69 6e 68 61 6e  |.!block%=mainhan|
00003070  64 25 0d 12 16 24 c8 99  20 22 57 69 6d 70 5f 47  |d%...$.. "Wimp_G|
00003080  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00003090  62 6c 6f 63 6b 25 0d 12  20 10 62 6c 6f 63 6b 25  |block%.. .block%|
000030a0  21 32 38 3d 2d 31 0d 12  2a 20 c8 99 20 22 57 69  |!28=-1..* .. "Wi|
000030b0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000030c0  62 6c 6f 63 6b 25 0d 12  34 15 21 62 6c 6f 63 6b  |block%..4.!block|
000030d0  25 3d 70 61 6e 65 68 61  6e 64 25 0d 12 3e 24 c8  |%=panehand%..>$.|
000030e0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000030f0  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |wState",,block%.|
00003100  12 48 10 62 6c 6f 63 6b  25 21 32 38 3d 2d 31 0d  |.H.block%!28=-1.|
00003110  12 52 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.R .. "Wimp_Open|
00003120  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00003130  12 5c 05 e1 0d 12 66 05  3a 0d 12 70 05 3a 0d 12  |.\....f.:..p.:..|
00003140  7a 25 f4 20 4d 61 63 68  69 6e 65 20 63 6f 64 65  |z%. Machine code|
00003150  20 73 65 61 72 63 68 69  6e 67 20 72 6f 75 74 69  | searching routi|
00003160  6e 65 73 0d 12 84 23 f4  20 63 6f 75 72 74 65 73  |nes...#. courtes|
00003170  79 20 6f 66 20 47 61 72  79 20 48 75 6e 74 20 46  |y of Gary Hunt F|
00003180  65 62 20 27 39 34 0d 12  8e 05 3a 0d 12 98 0b dd  |eb '94....:.....|
00003190  20 f2 63 6f 64 65 0d 12  a2 30 de 20 63 6f 64 65  | .code...0. code|
000031a0  20 31 30 32 34 3a 43 5f  6d 61 78 73 3d 36 34 3a  | 1024:C_maxs=64:|
000031b0  f4 20 4d 61 78 20 6c 65  6e 67 74 68 20 6f 66 20  |. Max length of |
000031c0  73 74 72 69 6e 67 0d 12  ac 14 e3 20 70 61 73 73  |string..... pass|
000031d0  3d 30 20 b8 20 32 20 88  20 32 0d 12 b6 0b 50 25  |=0 . 2 . 2....P%|
000031e0  3d 63 6f 64 65 0d 12 c0  0d 5b 4f 50 54 20 70 61  |=code....[OPT pa|
000031f0  73 73 0d 12 ca 1a 2e 43  5f 61 72 65 61 20 20 20  |ss.....C_area   |
00003200  20 45 51 55 44 20 64 61  72 65 61 25 0d 12 d4 15  | EQUD darea%....|
00003210  2e 43 5f 73 62 79 74 65  20 20 20 45 51 55 44 20  |.C_sbyte   EQUD |
00003220  30 0d 12 de 15 2e 43 5f  73 62 69 74 20 20 20 20  |0.....C_sbit    |
00003230  45 51 55 44 20 30 0d 12  e8 15 2e 43 5f 6c 65 6e  |EQUD 0.....C_len|
00003240  20 20 20 20 20 45 51 55  44 20 30 0d 12 f2 1f 2e  |     EQUD 0.....|
00003250  43 5f 73 74 72 20 20 20  20 20 45 51 55 53 20 c4  |C_str     EQUS .|
00003260  43 5f 6d 61 78 73 2c bd  30 29 0d 12 fc 51 2e 43  |C_maxs,.0)...Q.C|
00003270  5f 77 70 6f 73 20 20 20  20 41 44 52 20 52 38 2c  |_wpos    ADR R8,|
00003280  43 5f 73 74 72 3a 4c 44  52 20 52 37 2c 43 5f 73  |C_str:LDR R7,C_s|
00003290  62 79 74 65 3a 4c 44 52  20 52 36 2c 43 5f 73 62  |byte:LDR R6,C_sb|
000032a0  69 74 3a 4c 44 52 20 52  35 2c 43 5f 61 72 65 61  |it:LDR R5,C_area|
000032b0  3a 80 20 52 36 2c 52 36  2c 23 37 0d 13 06 29 20  |:. R6,R6,#7...) |
000032c0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 52 30  |          MOV R0|
000032d0  2c 23 43 5f 6d 61 78 73  2d 34 3a 4d 4f 56 20 52  |,#C_maxs-4:MOV R|
000032e0  33 2c 23 30 0d 13 10 35  2e 43 5f 63 6c 70 20 20  |3,#0...5.C_clp  |
000032f0  20 20 20 53 54 52 20 52  33 2c 5b 52 38 2c 52 30  |   STR R3,[R8,R0|
00003300  5d 3a 53 55 42 53 20 52  30 2c 52 30 2c 23 34 3a  |]:SUBS R0,R0,#4:|
00003310  42 50 4c 20 43 5f 63 6c  70 0d 13 1a 50 2e 43 5f  |BPL C_clp...P.C_|
00003320  6d 6c 70 20 20 20 20 20  4c 44 52 42 20 52 30 2c  |mlp     LDRB R0,|
00003330  5b 52 35 2c 52 37 5d 3a  4d 4f 56 20 52 30 2c 52  |[R5,R7]:MOV R0,R|
00003340  30 2c 4c 53 52 20 52 36  3a 43 4d 50 20 52 36 2c  |0,LSR R6:CMP R6,|
00003350  23 33 3a 42 4c 45 20 43  5f 65 78 6a 3a 41 44 44  |#3:BLE C_exj:ADD|
00003360  20 52 37 2c 52 37 2c 23  31 0d 13 24 48 20 20 20  | R7,R7,#1..$H   |
00003370  20 20 20 20 20 20 20 20  4c 44 52 42 20 52 31 2c  |        LDRB R1,|
00003380  5b 52 35 2c 52 37 5d 3a  52 53 42 20 52 32 2c 52  |[R5,R7]:RSB R2,R|
00003390  36 2c 23 38 3a 4d 4f 56  20 52 31 2c 52 31 2c 4c  |6,#8:MOV R1,R1,L|
000033a0  53 4c 20 52 32 3a 84 52  20 52 30 2c 52 30 2c 52  |SL R2:.R R0,R0,R|
000033b0  31 0d 13 2e 44 2e 43 5f  65 78 6a 20 20 20 20 20  |1...D.C_exj     |
000033c0  41 44 44 20 52 36 2c 52  36 2c 23 35 3a 80 53 20  |ADD R6,R6,#5:.S |
000033d0  52 36 2c 52 36 2c 23 37  3a 41 44 44 45 51 20 52  |R6,R6,#7:ADDEQ R|
000033e0  37 2c 52 37 2c 23 31 3a  80 53 20 52 30 2c 52 30  |7,R7,#1:.S R0,R0|
000033f0  2c 23 26 31 46 0d 13 38  42 20 20 20 20 20 20 20  |,#&1F..8B       |
00003400  20 20 20 20 84 52 20 52  30 2c 52 30 2c 23 36 34  |    .R R0,R0,#64|
00003410  3a ec 51 20 52 30 2c 23  31 33 3a 53 54 52 42 20  |:.Q R0,#13:STRB |
00003420  52 30 2c 5b 52 38 2c 52  33 5d 3a 41 44 44 20 52  |R0,[R8,R3]:ADD R|
00003430  33 2c 52 33 2c 23 31 0d  13 42 40 20 20 20 20 20  |3,R3,#1..B@     |
00003440  20 20 20 20 20 20 43 4d  50 20 52 30 2c 23 31 33  |      CMP R0,#13|
00003450  3a 42 4e 45 20 43 5f 6d  6c 70 3a 53 54 52 20 52  |:BNE C_mlp:STR R|
00003460  36 2c 43 5f 73 62 69 74  3a 53 54 52 20 52 37 2c  |6,C_sbit:STR R7,|
00003470  43 5f 73 62 79 74 65 0d  13 4c 26 20 20 20 20 20  |C_sbyte..L&     |
00003480  20 20 20 20 20 20 53 54  52 20 52 33 2c 43 5f 6c  |      STR R3,C_l|
00003490  65 6e 3a 4d 4f 56 20 50  43 2c 52 31 34 0d 13 56  |en:MOV PC,R14..V|
000034a0  05 5d 0d 13 60 05 ed 0d  13 6a 05 e1 0d 13 74 05  |.]..`....j....t.|
000034b0  3a 0d 13 7e 2a dd 20 f2  74 72 61 63 65 28 6e 25  |:..~*. .trace(n%|
000034c0  2c 6d 25 2c 62 24 2c f8  20 61 24 2c f8 20 66 25  |,m%,b$,. a$,. f%|
000034d0  2c f8 20 6e 25 2c f8 20  6d 25 29 0d 13 88 13 ea  |,. n%,. m%).....|
000034e0  20 61 25 2c 6c 25 2c 71  25 2c 71 2c 63 25 0d 13  | a%,l%,q%,q,c%..|
000034f0  92 1a 21 43 5f 73 62 79  74 65 3d 6d 25 3a 21 43  |..!C_sbyte=m%:!C|
00003500  5f 73 62 69 74 3d 6e 25  0d 13 9c 29 61 25 3d 30  |_sbit=n%...)a%=0|
00003510  3a 6c 25 3d a9 28 62 24  29 3a 71 25 3d 97 c1 62  |:l%=.(b$):q%=..b|
00003520  24 2c 31 2c 31 29 3a 71  3d 31 30 30 2f 6c 65 6e  |$,1,1):q=100/len|
00003530  25 0d 13 a6 05 f5 0d 13  b0 09 20 66 25 3d 30 0d  |%......... f%=0.|
00003540  13 ba 1d 20 70 65 72 63  65 6e 74 61 67 65 25 3d  |... percentage%=|
00003550  71 2a 28 21 43 5f 73 62  79 74 65 29 0d 13 c4 2b  |q*(!C_sbyte)...+|
00003560  20 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  | .. "Hourglass_P|
00003570  65 72 63 65 6e 74 61 67  65 22 2c 71 2a 28 21 43  |ercentage",q*(!C|
00003580  5f 73 62 79 74 65 29 0d  13 ce 06 20 f5 0d 13 d8  |_sbyte).... ....|
00003590  0e 20 20 d6 20 43 5f 77  70 6f 73 0d 13 e2 25 20  |.  . C_wpos...% |
000035a0  fd 20 21 43 5f 73 62 79  74 65 3e 3d 6c 65 6e 25  |. !C_sbyte>=len%|
000035b0  20 84 20 28 6c 25 3d 21  43 5f 6c 65 6e 2d 31 29  | . (l%=!C_len-1)|
000035c0  0d 13 ec 0e 20 61 24 3d  24 43 5f 73 74 72 0d 13  |.... a$=$C_str..|
000035d0  f6 10 20 6d 25 3d 21 43  5f 73 62 79 74 65 0d 14  |.. m%=!C_sbyte..|
000035e0  00 0f 20 6e 25 3d 21 43  5f 73 62 69 74 0d 14 0a  |.. n%=!C_sbit...|
000035f0  20 20 e7 20 71 25 3c 3e  33 32 20 80 20 3f 43 5f  |  . q%<>32 . ?C_|
00003600  73 74 72 3c 71 25 20 8c  20 66 25 3d 31 0d 14 14  |str<q% . f%=1...|
00003610  28 20 e7 20 71 25 3c 3e  33 32 20 80 20 3f 43 5f  |( . q%<>32 . ?C_|
00003620  73 74 72 3e 71 25 20 8c  20 66 25 3d 31 3a 6d 25  |str>q% . f%=1:m%|
00003630  3d 6c 65 6e 25 0d 14 1e  1a 20 e7 20 71 25 3d 33  |=len%.... . q%=3|
00003640  32 20 84 20 3f 43 5f 73  74 72 3d 71 25 20 8c 0d  |2 . ?C_str=q% ..|
00003650  14 28 14 20 20 e3 20 63  25 3d 32 20 b8 20 a9 28  |.(.  . c%=2 . .(|
00003660  62 24 29 0d 14 32 19 20  20 20 e7 20 c1 62 24 2c  |b$)..2.   . .b$,|
00003670  63 25 2c 31 29 3c 3e 22  20 22 20 8c 0d 14 3c 2e  |c%,1)<>" " ...<.|
00003680  20 20 20 20 e7 20 c1 61  24 2c 63 25 2c 31 29 3c  |    . .a$,c%,1)<|
00003690  3e c1 62 24 2c 63 25 2c  31 29 20 8c 20 66 25 3d  |>.b$,c%,1) . f%=|
000036a0  31 3a 63 25 3d a9 28 62  24 29 0d 14 46 08 20 20  |1:c%=.(b$)..F.  |
000036b0  20 cd 0d 14 50 0a 20 20  ed 20 63 25 0d 14 5a 06  | ...P.  . c%..Z.|
000036c0  20 cd 0d 14 64 15 fd 20  6d 25 3e 3d 6c 65 6e 25  | ...d.. m%>=len%|
000036d0  20 84 20 66 25 3d 30 0d  14 6e 05 e1 0d 14 78 04  | . f%=0..n....x.|
000036e0  0d 14 82 1a dd 20 a4 73  74 72 69 6e 67 66 72 6f  |..... .stringfro|
000036f0  6d 6d 65 6d 28 70 74 72  25 29 0d 14 8c 0b ea 20  |mmem(ptr%)..... |
00003700  74 65 78 74 24 0d 14 96  27 c8 95 20 3f 70 74 72  |text$...'.. ?ptr|
00003710  25 3c 3e 30 20 80 20 3f  70 74 72 25 3c 3e 31 30  |%<>0 . ?ptr%<>10|
00003720  20 80 20 3f 70 74 72 25  3c 3e 31 33 0d 14 a0 14  | . ?ptr%<>13....|
00003730  20 74 65 78 74 24 2b 3d  bd 28 3f 70 74 72 25 29  | text$+=.(?ptr%)|
00003740  0d 14 aa 0c 20 70 74 72  25 2b 3d 31 0d 14 b4 05  |.... ptr%+=1....|
00003750  ce 0d 14 be 0a 3d 74 65  78 74 24 0d 14 c8 04 0d  |.....=text$.....|
00003760  ff                                                |.|
00003761