�    >!RunImage
� Program   XModes
� Version   2.00
(� Author    Ainsley Pereira
2%� Archimedes World September 1992
<$� Program   Subject to copyright
F 
Pourfile=&FFA
Z� � � �$;" at line ";�:�
d�startup
n�createwindows
x�iconbar
� 
�� � �e(�,�)
� 
��
�%  ș "Wimp_Poll",,result � reason
�  Ȏ reason �
�*    � 2 : ș "Wimp_OpenWindow",,result
�+    � 3 : ș "Wimp_CloseWindow",,result
�    � 6 : �mouse
�    � 7 : �dragover
�    � 8 : �keypressed
�    � 9 : �decodemenu
�    � 17,18 : �message

     :

  �


� exit

" 

,�closedown

6 

@�

J 

T
��startup

^=ș "Wimp_Initialise",200,&4B534154,"XModes" � ,taskhandle

h� menu 32+(24*3)

r
� misc 64

|� result 256

�
exit=�

�whichmenu=0

�Hhelp$="This is the XModes icon.|MClick on it for the main window.|M"

�scrap=�

�3�app_startup : � For application specific stuff

��

� 

���closedown

�,ș "Wimp_CloseDown",taskhandle,&4B534154

��app_closedown

��

� 

�+��reporterror(errnum,errmess$,errflags)
misc!0=errnum
$(misc+4)=errmess$
0ș "Wimp_ReportError",misc,errflags,"XModes"
&�
0 
:
��iconbar
D
misc!0=-1
Nmisc!4=0
Xmisc!8=0
bmisc!12=68
lmisc!16=68
vmisc!20=%0011000000011010
�$(misc+24)="!xmodes"
�)ș "Wimp_CreateIcon",,misc � ibhandle
��
� 
���createwindows
�:
�'� info 1024, savebox 768, main 3000
�3ș "Wimp_OpenTemplate",,"<XMode$Dir>.Templates"
�Aș "Wimp_LoadTemplate",,info+4,info+600,info+1024,-1,"Info",0
�*ș "Wimp_CreateWindow",,info+4 � !info
�:
Iș "Wimp_LoadTemplate",,savebox+4,savebox+512,savebox+768,-1,"Save",0
0ș "Wimp_CreateWindow",,savebox+4 � !savebox
:
 Bș "Wimp_LoadTemplate",,main+4,main+1024,main+3000,-1,"Main",0
**ș "Wimp_CreateWindow",,main+4 � !main
4:
>ș "Wimp_CloseTemplate"
H!misc=!savebox
Rmisc!4=1
\ ș "Wimp_GetIconState",,misc
f.$(misc!28)="Mode_Mod" : � Default filename
p�
z 
���mouse
�Ȏ result!12 �
�5  � -2 : � (result!8 � 2)=2 � �ibmenu � �openmain
�  � !main : �mainclick
�  � !savebox : �saveclick
�	   :
��
��
� 
�&��menuheader(pointer,width,title$)
�menupointer=pointer
�$menupointer=title$+�0
�menupointer?12=7
menupointer?13=2
menupointer?14=7
menupointer?15=0
$menupointer!16=width
.menupointer!20=44
8menupointer!24=0
Bmenupointer+=28
L�
V 
`'��menuitem(subm,flags,tflags,text$)
jmenupointer!0=flags
tmenupointer!4=subm
~menupointer!8=tflags
�$(menupointer+12)=text$+�0
�menupointer+=24
��
� 
���ibmenu
�"�menuheader(menu,192,"XModes")
�&�menuitem(!info,0,&7000031,"Info")
�)�menuitem(!savebox,0,&7000031,"Save")
�&�menuitem(-1,1<<7,&7000031,"Quit")
�xpos=result!0-64
�-ș "Wimp_CreateMenu",,menu,xpos,96+(44*3)
�whichmenu=1
�

 
��decodemenu
Ȏ whichmenu �
(  � 1 : Ȏ result!0 �
2    � 0 : � Info
<    � 1 : � Save
F    � 2 : exit=�
P     :
Z   �
d	   :
n�
x"ș "Wimp_GetPointerInfo",,misc
�%� (misc!8 � 1)=1 � Ȏ whichmenu �
�  � 1 : �ibmenu
�  
� �
��
��
� 
�
��message
�Ȏ result!16 �
�  � 0 : exit=�
�  � 2 : �filerhasreplied
�  � 4 : �endofsaveprotocol
�  � &502 : �help
	   :
�
�
" 
,
��help
6sendto=result!4
@ length=�((�(help$)+1)/4+1)*4
Jresult!0=length+20
Tresult!4=taskhandle
^result!12=result!8
hresult!8=1
rresult!16=&503
|$(result+20)=help$+�0
�*ș "Wimp_SendMessage",17,result,sendto
��
� 
���e(erl,err)
�result!0=err
�6$(result+4)=�$+" (internal error code "+�(erl)+")"
�7ș "Wimp_ReportError",result,%011,"XModes" � ,fatal
�� fatal=2 � �
��
� 
�ݤwimpscrap
�8ș "XOS_ReadVarVal","Wimp$Scrap",misc,-1,0,0 � ,,,ws
�� ws=0 �
6  �reporterror(5,"Wimp$Scrap is not defined",%110)
  =�
�
&  =�
0�
: 
D��saveclick
NȎ result!16 �
X  � 0 : �dragpossible
b  � 1,2 : �saveit
l     ș "Wimp_CreateMenu",,-1
v�
��
� 
���dragpossible
�� result!8<>(%100*16) � �
�!result=!savebox
�$ș "Wimp_GetWindowState",,result
�ox=result!4-result!20
�oy=result!16-result!24
�result!4=0
�"ș "Wimp_GetIconState",,result
�!result=!savebox
�result!4=5
�result!8=ox+result!8
result!12=oy+result!12
result!16=ox+result!16
result!20=oy+result!20
 result!24=0
*result!28=0
4result!32=&7FFFFFFF
>result!36=&7FFFFFFF
Hș "Wimp_DragBox",,result
Rdragfrom=1
\�
f 
p��saveit
z!result=!savebox
�result!4=1
�"ș "Wimp_GetIconState",,result
�name$=""
�pos=result!28
��
�'  � ?pos>32 � name$+=�(?pos):pos+=1
�
� ?pos<33
�� �name$,".") �
�  �savefile(name$)
��
�J  �reporterror(5,"To save, drag the icon to a directory viewer.",%001)
��
��
	 
	��dragover_sb
	!result=!savebox
	$result!4=1
	."ș "Wimp_GetIconState",,result
	8name$=""
	Bpos=result!28
	L�
	V'  � ?pos>32 � name$+=�(?pos):pos+=1
	`"� ?pos<33 � pos>(result!28)+64
	j$ș "Wimp_GetPointerInfo",,result
	ttheirwindow=result!12
	~theiricon=result!16
	�x=result!0
	�y=result!4
	�result!12=0
	�result!16=1
	�result!20=theirwindow
	�result!24=theiricon
	�result!28=!result
	�result!32=result!4
	�result!36=�filelength
	�result!40=ourfile
	�/� �name$,".") � name$=�name$,�name$,".")+1)
	�$(result+44)=name$+�0
#length=(�((45+�(name$))/4)+1)*4

!result=length
/ș "Wimp_SendMessage",17,result,theirwindow
�
( 
2��filerhasreplied
<theirref=result!8
Fname$=""
Ppos=result+44
Z�
d'  � ?pos>32 � name$+=�(?pos):pos+=1
n
� ?pos<33
x�savefile(name$)
�result!12=theirref
�result!16=3
�result!20=theirwindow
�result!24=theiricon
�result!28=x
�result!32=y
�result!36=�filelength
�result!40=ourfile
�$(result+44)=name$+�0
�#length=(�((45+�(name$))/4)+1)*4
�!result=length
�9ș "Wimp_SendMessage",18,result,theirwindow,theiricon
��
 
��endofsaveprotocol
ș "Wimp_CreateMenu",,-1
"�
, 
6��keypressed
@5� result!0=!savebox � result!4=1 � result!24=13 �
J
  �saveit
T  ș "Wimp_CreateMenu",,-1
^�
h5  � result!0=!main � result!4=19 � result!24=13 �
r    �saveit
|  �
�$  ș "Wimp_ProcessKey",result!24
��
��
� 
�N==========================================================================
�N===              Application specific stuff follows                    ===
�N==========================================================================
� 
�ݤfilelength
�=476
� 
���app_startup
�� Code 512
��
� 

��app_closedown

�

 

 ��savefile(fn$)

*�compile(Code)

4.ș "OS_File",10,fn$,ourfile,,Code,Code+476

>�

H 

R��mainclick

Sfast=(result!8=%001)

\Ȏ result!16 �

f+  � 0,1,2,3,4,5,6,7,8,9,10 : � Nothing!

p-  � 11                     : �xdown(fast)

z+  � 12                     : � Nothing!

�+  � 13                     : �xup(fast)

�-  � 14                     : �ydown(fast)

�+  � 15                     : � Nothing!

�+  � 16                     : �yup(fast)

�+  � 17                     : � Nothing!

�7  � 18                     : �dragpossible_frommain

�1  � 19,20                  : �saveit_frommain

��

��

� 

���dragover

�-� dragfrom=1 � �dragover_sb � �dragover_m

��

��dragover_m
!result=!main
$result!4=19
."ș "Wimp_GetIconState",,result
8name$=""
Bpos=result!28
L�
V'  � ?pos>32 � name$+=�(?pos):pos+=1
`"� ?pos<33 � pos>(result!28)+64
j$ș "Wimp_GetPointerInfo",,result
ttheirwindow=result!12
~theiricon=result!16
�x=result!0
�y=result!4
�result!12=0
�result!16=1
�result!20=theirwindow
�result!24=theiricon
�result!28=!result
�result!32=result!4
�result!36=�filelength
�result!40=ourfile
�/� �name$,".") � name$=�name$,�name$,".")+1)
�$(result+44)=name$+�0
#length=(�((45+�(name$))/4)+1)*4

!result=length
/ș "Wimp_SendMessage",17,result,theirwindow
�
(
2��dragpossible_frommain
<� result!8<>(%100*16) � �
F!result=!main
P$ș "Wimp_GetWindowState",,result
Zox=result!4-result!20
doy=result!16-result!24
nresult!4=18
x"ș "Wimp_GetIconState",,result
�!result=!main
�result!4=5
�result!8=ox+result!8
�result!12=oy+result!12
�result!16=ox+result!16
�result!20=oy+result!20
�result!24=0
�result!28=0
�result!32=&7FFFFFFF
�result!36=&7FFFFFFF
�ș "Wimp_DragBox",,result
�dragfrom=2
��

��saveit_frommain
!result=!main
"result!4=19
,"ș "Wimp_GetIconState",,result
6name$=""
@pos=result!28
J�
T'  � ?pos>32 � name$+=�(?pos):pos+=1
^
� ?pos<33
h� �name$,"." �
r  �savefile(name$)
|�
�J  �reporterror(5,"To save, drag the icon to a directory viewer.",%001)
��
��
� 
���compile(Code)
��getvars
�vpix=8*maxrow
�
hcyc=1024
�vcyc=320
�
hsyncw=58
�vsyncw=0
�remh=hcyc-hpix
�hbords=64+remh/4
hdisps=hbords+remh/4
hdispe=hdisps+hpix
hborde=hdispe+remh/4
&remv=vcyc-vpix
0vbords=10+remv/4
:vdisps=vbords+remv/4
Dvdispe=vdisps+vpix
Nvborde=vdispe+remv/4
X8scrnsize=((vpix*hpix) � pixperbyte+&FFF) � &FFFFF000
b� Cols=256 Cols=64
l:
v� Pass=4 � 6 �2
�P%=0:O%=Code
�
[OPT Pass
�:
�.Module
�
EQUD 0
�
EQUD 0
�
EQUD 0
�EQUD Service
�EQUD Title
�
EQUD Help
�EQUD Table
�
EQUD 0
�
EQUD 0

EQUD 0

EQUD 0
:
 
.Title
*EQUS "XModes"+�newmode
4
EQUB 0
>	ALIGN
H:
R	.Help
\4EQUS "XModes"+�newmode+�9+"1.00 ("+��$,5,11)+")"
f
EQUB 0
p	ALIGN
z:
�.Service
�CMP r1,#&50
�BNE ServiceOver
�CMP r2,#newmode
�BNE ServiceOver
�
MOV r1,#0
�ADR r3,VidCList
�ADR r4,WorkSpaceList
�.ServiceOver
�MOV PC,r14
�:
�
.VidCList
�
EQUD 0
EQUD basemode
%EQUD &80000000+(((hcyc-2)/2)<<14)
'EQUD &84000000+(((hsyncw-2)/2)<<14)
$'EQUD &88000000+(((hbords-1)/2)<<14)
.(EQUD &8C000000+(((hdisps-k%)/2)<<14)
8(EQUD &90000000+(((hdispe-k%)/2)<<14)
B'EQUD &94000000+(((hborde-1)/2)<<14)
LEQUD &A0000000+(vcyc<<14)
VEQUD &A4000000+(vsyncw<<14)
`#EQUD &A8000000+((vbords-1)<<14)
j#EQUD &AC000000+((vdisps-1)<<14)
t#EQUD &B0000000+((vdispe-1)<<14)
~#EQUD &B4000000+((vborde-1)<<14)
�EQUD -1
�:
�.WorkSpaceList
�EQUD     0
�EQUD     basemode
�EQUD  0: EQUD 0
�EQUD  1: EQUD maxcol-1
�EQUD  2: EQUD maxrow-1
�EQUD  3: EQUD Cols-1
�EQUD  4: EQUD 1
�EQUD  5: EQUD 2
�#EQUD  6: EQUD hpix � pixperbyte
EQUD  7: EQUD scrnsize

EQUD 11: EQUD hpix-1
EQUD 12: EQUD vpix-1
EQUD -1
(:
2
.Table
<EQUS "WhichMode"+�0
F	ALIGN
PEQUD WhichCode
Z
EQUD 0
dEQUD WhichSyntx
nEQUD WhichHelp
x
EQUD 0
�:
�.WhichHelp
�FEQUS "*WhichMode tells you which mode is provided by this module."
�
EQUW &D0A
�:
�.WhichSyntx
�EQUS "Syntax : *WhichMode"
�
EQUW &D0A
�
EQUB 0
�	ALIGN
�:
�.WhichCode
�STMFD r13!,{r0-r12,r14}
ADR r0,modeis
SWI "OS_Write0"
MOV r0,#newmode
"ADR r1,buffer
,
MOV r2,#4
6SWI "OS_ConvertCardinal1"
@SWI "OS_Write0"
JADR r0,endof
TSWI "OS_Write0"
^LDMFD r13!,{r0-r12,PC}
h:
r.modeis
|1EQUS "The mode provided by this module is : "
�
EQUB 0
�	ALIGN
�:
�.buffer EQUD 0
�:
�
.endof
�
EQUW &D0A
�
EQUW 0
�]
��
��
� 
�
��getvars

!result=7
result!4=8
result!8=9
&result!12=10
0result!16=-1
:8ș "Wimp_WhichIcon",!main,result,&003F0000,&00210000
DȎ !result �
N=  � -1 : �reporterror(1,"Whoops!!! Mucked it up #1",%001)
X  � 7 : Cols=2
b  � 8 : Cols=4
l  � 9 : Cols=16
v  � 10 : Cols=256
��
�
Ȏ Cols �
�'  � 2:basemode=0:pixperbyte=8:k%=19
�'  � 4:basemode=8:pixperbyte=4:k%=11
�(  � 16:basemode=12:pixperbyte=2:k%=7
�)  � 256:basemode=15:pixperbyte=1:k%=5
��
�!result=!main
�result!4=12
�"ș "Wimp_GetIconState",,result
�max$=""
�ptr=result!28
��
0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
#� ?ptr<48 � ?ptr>57 � �(max$)>2
maxcol=�(max$)
 !result=!main
*result!4=15
4"ș "Wimp_GetIconState",,result
>max$=""
Hptr=result!28
R�
\0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
f#� ?ptr<48 � ?ptr>57 � �(max$)>1
pmaxrow=�(max$)
zmaxcol=((maxcol+3) � (� 3))
�hpix=8*maxcol
�� maxrow<8 � maxrow=8
�� maxrow>40 � maxrow=40
�� maxcol<8 � maxcol=8
�� maxcol>100 � maxcol=100
�!result=!main
�result!4=17
�"ș "Wimp_GetIconState",,result
�max$=""
�ptr=result!28
��
�0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
�#� ?ptr<48 � ?ptr>57 � �(max$)>2
newmode=�(max$)
�
 
$��openmain
.!result=!main
8$ș "Wimp_GetWindowState",,result
Bresult!28=-1
L ș "Wimp_OpenWindow",,result
V�
` 
j��xup(fast)
t!result=!main
~result!4=12
�"ș "Wimp_GetIconState",,result
�max$=""
�ptr=result!28
��
�0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
�#� ?ptr<48 � ?ptr>57 � �(max$)>2
�maxcol=�(max$)
�"� fast � maxcol+=8 � maxcol+=4
�max$=�(maxcol)
�$(result!28)=max$
�!result=!main
�result!4=12
result!8=0

result!12=0
"ș "Wimp_SetIconState",,result
�
( 
2��xdown(fast)
<!result=!main
Fresult!4=12
P"ș "Wimp_GetIconState",,result
Zmax$=""
dptr=result!28
n�
x0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
�#� ?ptr<48 � ?ptr>57 � �(max$)>2
�maxcol=�(max$)
�"� fast � maxcol-=8 � maxcol-=4
�max$=�(maxcol)
�$(result!28)=max$
�!result=!main
�result!4=12
�result!8=0
�result!12=0
�"ș "Wimp_SetIconState",,result
��
� 
���yup(fast)
!result=!main
result!4=15
"ș "Wimp_GetIconState",,result
"max$=""
,ptr=result!28
6�
@0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
J#� ?ptr<48 � ?ptr>57 � �(max$)>1
Tmaxrow=�(max$)
^"� fast � maxrow+=5 � maxrow+=1
hmax$=�(maxrow)
r$(result!28)=max$
|!result=!main
�result!4=15
�result!8=0
�result!12=0
�"ș "Wimp_SetIconState",,result
��
� 
���ydown(fast)
�!result=!main
�result!4=15
�"ș "Wimp_GetIconState",,result
�max$=""
�ptr=result!28
��
0  � ?ptr>47 � ?ptr<58 � max$+=�(?ptr):ptr+=1
#� ?ptr<48 � ?ptr>57 � �(max$)>1
maxrow=�(max$)
&"� fast � maxrow-=5 � maxrow-=1
0max$=�(maxrow)
:$(result!28)=max$
D!result=!main
Nresult!4=15
Xresult!8=0
bresult!12=0
l"ș "Wimp_SetIconState",,result
v�
�

00000000  0d 00 0a 13 f4 20 20 20  20 3e 21 52 75 6e 49 6d  |.....    >!RunIm|
00000010  61 67 65 0d 00 14 16 f4  20 50 72 6f 67 72 61 6d  |age..... Program|
00000020  20 20 20 58 4d 6f 64 65  73 0d 00 1e 14 f4 20 56  |   XModes..... V|
00000030  65 72 73 69 6f 6e 20 20  20 32 2e 30 30 0d 00 28  |ersion   2.00..(|
00000040  1f f4 20 41 75 74 68 6f  72 20 20 20 20 41 69 6e  |.. Author    Ain|
00000050  73 6c 65 79 20 50 65 72  65 69 72 61 0d 00 32 25  |sley Pereira..2%|
00000060  f4 20 41 72 63 68 69 6d  65 64 65 73 20 57 6f 72  |. Archimedes Wor|
00000070  6c 64 20 53 65 70 74 65  6d 62 65 72 20 31 39 39  |ld September 199|
00000080  32 0d 00 3c 24 f4 20 50  72 6f 67 72 61 6d 20 20  |2..<$. Program  |
00000090  20 53 75 62 6a 65 63 74  20 74 6f 20 63 6f 70 79  | Subject to copy|
000000a0  72 69 67 68 74 0d 00 46  05 20 0d 00 50 10 6f 75  |right..F. ..P.ou|
000000b0  72 66 69 6c 65 3d 26 46  46 41 0d 00 5a 1c ee 20  |rfile=&FFA..Z.. |
000000c0  85 20 f1 20 f6 24 3b 22  20 61 74 20 6c 69 6e 65  |. . .$;" at line|
000000d0  20 22 3b 9e 3a e0 0d 00  64 0c f2 73 74 61 72 74  | ";.:...d..start|
000000e0  75 70 0d 00 6e 12 f2 63  72 65 61 74 65 77 69 6e  |up..n..createwin|
000000f0  64 6f 77 73 0d 00 78 0c  f2 69 63 6f 6e 62 61 72  |dows..x..iconbar|
00000100  0d 00 82 05 20 0d 00 8c  0f ee 20 85 20 f2 65 28  |.... ..... . .e(|
00000110  9e 2c 9f 29 0d 00 96 05  20 0d 00 a0 05 f5 0d 00  |.,.).... .......|
00000120  aa 25 20 20 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |.%  .. "Wimp_Pol|
00000130  6c 22 2c 2c 72 65 73 75  6c 74 20 b8 20 72 65 61  |l",,result . rea|
00000140  73 6f 6e 0d 00 b4 11 20  20 c8 8e 20 72 65 61 73  |son....  .. reas|
00000150  6f 6e 20 ca 0d 00 be 2a  20 20 20 20 c9 20 32 20  |on ....*    . 2 |
00000160  3a 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |: .. "Wimp_OpenW|
00000170  69 6e 64 6f 77 22 2c 2c  72 65 73 75 6c 74 0d 00  |indow",,result..|
00000180  c8 2b 20 20 20 20 c9 20  33 20 3a 20 c8 99 20 22  |.+    . 3 : .. "|
00000190  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000001a0  22 2c 2c 72 65 73 75 6c  74 0d 00 d2 14 20 20 20  |",,result....   |
000001b0  20 c9 20 36 20 3a 20 f2  6d 6f 75 73 65 0d 00 dc  | . 6 : .mouse...|
000001c0  17 20 20 20 20 c9 20 37  20 3a 20 f2 64 72 61 67  |.    . 7 : .drag|
000001d0  6f 76 65 72 0d 00 e6 19  20 20 20 20 c9 20 38 20  |over....    . 8 |
000001e0  3a 20 f2 6b 65 79 70 72  65 73 73 65 64 0d 00 f0  |: .keypressed...|
000001f0  19 20 20 20 20 c9 20 39  20 3a 20 f2 64 65 63 6f  |.    . 9 : .deco|
00000200  64 65 6d 65 6e 75 0d 00  fa 1a 20 20 20 20 c9 20  |demenu....    . |
00000210  31 37 2c 31 38 20 3a 20  f2 6d 65 73 73 61 67 65  |17,18 : .message|
00000220  0d 01 04 0b 20 20 20 20  7f 20 3a 0d 01 0e 07 20  |....    . :.... |
00000230  20 cb 0d 01 18 0a fd 20  65 78 69 74 0d 01 22 05  | ...... exit..".|
00000240  20 0d 01 2c 0e f2 63 6c  6f 73 65 64 6f 77 6e 0d  | ..,..closedown.|
00000250  01 36 05 20 0d 01 40 05  e0 0d 01 4a 05 20 0d 01  |.6. ..@....J. ..|
00000260  54 0d dd f2 73 74 61 72  74 75 70 0d 01 5e 3d c8  |T...startup..^=.|
00000270  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
00000280  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00000290  34 2c 22 58 4d 6f 64 65  73 22 20 b8 20 2c 74 61  |4,"XModes" . ,ta|
000002a0  73 6b 68 61 6e 64 6c 65  0d 01 68 14 de 20 6d 65  |skhandle..h.. me|
000002b0  6e 75 20 33 32 2b 28 32  34 2a 33 29 0d 01 72 0d  |nu 32+(24*3)..r.|
000002c0  de 20 6d 69 73 63 20 36  34 0d 01 7c 10 de 20 72  |. misc 64..|.. r|
000002d0  65 73 75 6c 74 20 32 35  36 0d 01 86 0a 65 78 69  |esult 256....exi|
000002e0  74 3d a3 0d 01 90 0f 77  68 69 63 68 6d 65 6e 75  |t=.....whichmenu|
000002f0  3d 30 0d 01 9a 48 68 65  6c 70 24 3d 22 54 68 69  |=0...Hhelp$="Thi|
00000300  73 20 69 73 20 74 68 65  20 58 4d 6f 64 65 73 20  |s is the XModes |
00000310  69 63 6f 6e 2e 7c 4d 43  6c 69 63 6b 20 6f 6e 20  |icon.|MClick on |
00000320  69 74 20 66 6f 72 20 74  68 65 20 6d 61 69 6e 20  |it for the main |
00000330  77 69 6e 64 6f 77 2e 7c  4d 22 0d 01 a4 0b 73 63  |window.|M"....sc|
00000340  72 61 70 3d a3 0d 01 ae  33 f2 61 70 70 5f 73 74  |rap=....3.app_st|
00000350  61 72 74 75 70 20 3a 20  f4 20 46 6f 72 20 61 70  |artup : . For ap|
00000360  70 6c 69 63 61 74 69 6f  6e 20 73 70 65 63 69 66  |plication specif|
00000370  69 63 20 73 74 75 66 66  0d 01 b8 05 e1 0d 01 c2  |ic stuff........|
00000380  05 20 0d 01 cc 0f dd f2  63 6c 6f 73 65 64 6f 77  |. ......closedow|
00000390  6e 0d 01 d6 2c c8 99 20  22 57 69 6d 70 5f 43 6c  |n...,.. "Wimp_Cl|
000003a0  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 68 61 6e  |oseDown",taskhan|
000003b0  64 6c 65 2c 26 34 42 35  33 34 31 35 34 0d 01 e0  |dle,&4B534154...|
000003c0  12 f2 61 70 70 5f 63 6c  6f 73 65 64 6f 77 6e 0d  |..app_closedown.|
000003d0  01 ea 05 e1 0d 01 f4 05  20 0d 01 fe 2b dd f2 72  |........ ...+..r|
000003e0  65 70 6f 72 74 65 72 72  6f 72 28 65 72 72 6e 75  |eporterror(errnu|
000003f0  6d 2c 65 72 72 6d 65 73  73 24 2c 65 72 72 66 6c  |m,errmess$,errfl|
00000400  61 67 73 29 0d 02 08 11  6d 69 73 63 21 30 3d 65  |ags)....misc!0=e|
00000410  72 72 6e 75 6d 0d 02 12  16 24 28 6d 69 73 63 2b  |rrnum....$(misc+|
00000420  34 29 3d 65 72 72 6d 65  73 73 24 0d 02 1c 30 c8  |4)=errmess$...0.|
00000430  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00000440  72 6f 72 22 2c 6d 69 73  63 2c 65 72 72 66 6c 61  |ror",misc,errfla|
00000450  67 73 2c 22 58 4d 6f 64  65 73 22 0d 02 26 05 e1  |gs,"XModes"..&..|
00000460  0d 02 30 05 20 0d 02 3a  0d dd f2 69 63 6f 6e 62  |..0. ..:...iconb|
00000470  61 72 0d 02 44 0d 6d 69  73 63 21 30 3d 2d 31 0d  |ar..D.misc!0=-1.|
00000480  02 4e 0c 6d 69 73 63 21  34 3d 30 0d 02 58 0c 6d  |.N.misc!4=0..X.m|
00000490  69 73 63 21 38 3d 30 0d  02 62 0e 6d 69 73 63 21  |isc!8=0..b.misc!|
000004a0  31 32 3d 36 38 0d 02 6c  0e 6d 69 73 63 21 31 36  |12=68..l.misc!16|
000004b0  3d 36 38 0d 02 76 1d 6d  69 73 63 21 32 30 3d 25  |=68..v.misc!20=%|
000004c0  30 30 31 31 30 30 30 30  30 30 30 31 31 30 31 30  |0011000000011010|
000004d0  0d 02 80 18 24 28 6d 69  73 63 2b 32 34 29 3d 22  |....$(misc+24)="|
000004e0  21 78 6d 6f 64 65 73 22  0d 02 8a 29 c8 99 20 22  |!xmodes"...).. "|
000004f0  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00000500  2c 2c 6d 69 73 63 20 b8  20 69 62 68 61 6e 64 6c  |,,misc . ibhandl|
00000510  65 0d 02 94 05 e1 0d 02  9e 05 20 0d 02 a8 13 dd  |e......... .....|
00000520  f2 63 72 65 61 74 65 77  69 6e 64 6f 77 73 0d 02  |.createwindows..|
00000530  c6 05 3a 0d 02 d0 27 de  20 69 6e 66 6f 20 31 30  |..:...'. info 10|
00000540  32 34 2c 20 73 61 76 65  62 6f 78 20 37 36 38 2c  |24, savebox 768,|
00000550  20 6d 61 69 6e 20 33 30  30 30 0d 02 da 33 c8 99  | main 3000...3..|
00000560  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
00000570  61 74 65 22 2c 2c 22 3c  58 4d 6f 64 65 24 44 69  |ate",,"<XMode$Di|
00000580  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 02 e4  |r>.Templates"...|
00000590  41 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |A.. "Wimp_LoadTe|
000005a0  6d 70 6c 61 74 65 22 2c  2c 69 6e 66 6f 2b 34 2c  |mplate",,info+4,|
000005b0  69 6e 66 6f 2b 36 30 30  2c 69 6e 66 6f 2b 31 30  |info+600,info+10|
000005c0  32 34 2c 2d 31 2c 22 49  6e 66 6f 22 2c 30 0d 02  |24,-1,"Info",0..|
000005d0  ee 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.*.. "Wimp_Creat|
000005e0  65 57 69 6e 64 6f 77 22  2c 2c 69 6e 66 6f 2b 34  |eWindow",,info+4|
000005f0  20 b8 20 21 69 6e 66 6f  0d 02 f8 05 3a 0d 03 02  | . !info....:...|
00000600  49 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |I.. "Wimp_LoadTe|
00000610  6d 70 6c 61 74 65 22 2c  2c 73 61 76 65 62 6f 78  |mplate",,savebox|
00000620  2b 34 2c 73 61 76 65 62  6f 78 2b 35 31 32 2c 73  |+4,savebox+512,s|
00000630  61 76 65 62 6f 78 2b 37  36 38 2c 2d 31 2c 22 53  |avebox+768,-1,"S|
00000640  61 76 65 22 2c 30 0d 03  0c 30 c8 99 20 22 57 69  |ave",0...0.. "Wi|
00000650  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000660  2c 2c 73 61 76 65 62 6f  78 2b 34 20 b8 20 21 73  |,,savebox+4 . !s|
00000670  61 76 65 62 6f 78 0d 03  16 05 3a 0d 03 20 42 c8  |avebox....:.. B.|
00000680  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000690  6c 61 74 65 22 2c 2c 6d  61 69 6e 2b 34 2c 6d 61  |late",,main+4,ma|
000006a0  69 6e 2b 31 30 32 34 2c  6d 61 69 6e 2b 33 30 30  |in+1024,main+300|
000006b0  30 2c 2d 31 2c 22 4d 61  69 6e 22 2c 30 0d 03 2a  |0,-1,"Main",0..*|
000006c0  2a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |*.. "Wimp_Create|
000006d0  57 69 6e 64 6f 77 22 2c  2c 6d 61 69 6e 2b 34 20  |Window",,main+4 |
000006e0  b8 20 21 6d 61 69 6e 0d  03 34 05 3a 0d 03 3e 1b  |. !main..4.:..>.|
000006f0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00000700  6d 70 6c 61 74 65 22 0d  03 48 12 21 6d 69 73 63  |mplate"..H.!misc|
00000710  3d 21 73 61 76 65 62 6f  78 0d 03 52 0c 6d 69 73  |=!savebox..R.mis|
00000720  63 21 34 3d 31 0d 03 5c  20 c8 99 20 22 57 69 6d  |c!4=1..\ .. "Wim|
00000730  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000740  2c 6d 69 73 63 0d 03 66  2e 24 28 6d 69 73 63 21  |,misc..f.$(misc!|
00000750  32 38 29 3d 22 4d 6f 64  65 5f 4d 6f 64 22 20 3a  |28)="Mode_Mod" :|
00000760  20 f4 20 44 65 66 61 75  6c 74 20 66 69 6c 65 6e  | . Default filen|
00000770  61 6d 65 0d 03 70 05 e1  0d 03 7a 05 20 0d 03 84  |ame..p....z. ...|
00000780  0b dd f2 6d 6f 75 73 65  0d 03 8e 12 c8 8e 20 72  |...mouse...... r|
00000790  65 73 75 6c 74 21 31 32  20 ca 0d 03 98 35 20 20  |esult!12 ....5  |
000007a0  c9 20 2d 32 20 3a 20 e7  20 28 72 65 73 75 6c 74  |. -2 : . (result|
000007b0  21 38 20 80 20 32 29 3d  32 20 8c 20 f2 69 62 6d  |!8 . 2)=2 . .ibm|
000007c0  65 6e 75 20 8b 20 f2 6f  70 65 6e 6d 61 69 6e 0d  |enu . .openmain.|
000007d0  03 a2 1a 20 20 c9 20 21  6d 61 69 6e 20 3a 20 f2  |...  . !main : .|
000007e0  6d 61 69 6e 63 6c 69 63  6b 0d 03 ac 1d 20 20 c9  |mainclick....  .|
000007f0  20 21 73 61 76 65 62 6f  78 20 3a 20 f2 73 61 76  | !savebox : .sav|
00000800  65 63 6c 69 63 6b 0d 03  b6 09 20 20 7f 20 3a 0d  |eclick....  . :.|
00000810  03 c0 05 cb 0d 03 ca 05  e1 0d 03 d4 05 20 0d 03  |............. ..|
00000820  de 26 dd f2 6d 65 6e 75  68 65 61 64 65 72 28 70  |.&..menuheader(p|
00000830  6f 69 6e 74 65 72 2c 77  69 64 74 68 2c 74 69 74  |ointer,width,tit|
00000840  6c 65 24 29 0d 03 e8 17  6d 65 6e 75 70 6f 69 6e  |le$)....menupoin|
00000850  74 65 72 3d 70 6f 69 6e  74 65 72 0d 03 f2 1a 24  |ter=pointer....$|
00000860  6d 65 6e 75 70 6f 69 6e  74 65 72 3d 74 69 74 6c  |menupointer=titl|
00000870  65 24 2b bd 30 0d 03 fc  14 6d 65 6e 75 70 6f 69  |e$+.0....menupoi|
00000880  6e 74 65 72 3f 31 32 3d  37 0d 04 06 14 6d 65 6e  |nter?12=7....men|
00000890  75 70 6f 69 6e 74 65 72  3f 31 33 3d 32 0d 04 10  |upointer?13=2...|
000008a0  14 6d 65 6e 75 70 6f 69  6e 74 65 72 3f 31 34 3d  |.menupointer?14=|
000008b0  37 0d 04 1a 14 6d 65 6e  75 70 6f 69 6e 74 65 72  |7....menupointer|
000008c0  3f 31 35 3d 30 0d 04 24  18 6d 65 6e 75 70 6f 69  |?15=0..$.menupoi|
000008d0  6e 74 65 72 21 31 36 3d  77 69 64 74 68 0d 04 2e  |nter!16=width...|
000008e0  15 6d 65 6e 75 70 6f 69  6e 74 65 72 21 32 30 3d  |.menupointer!20=|
000008f0  34 34 0d 04 38 14 6d 65  6e 75 70 6f 69 6e 74 65  |44..8.menupointe|
00000900  72 21 32 34 3d 30 0d 04  42 13 6d 65 6e 75 70 6f  |r!24=0..B.menupo|
00000910  69 6e 74 65 72 2b 3d 32  38 0d 04 4c 05 e1 0d 04  |inter+=28..L....|
00000920  56 05 20 0d 04 60 27 dd  f2 6d 65 6e 75 69 74 65  |V. ..`'..menuite|
00000930  6d 28 73 75 62 6d 2c 66  6c 61 67 73 2c 74 66 6c  |m(subm,flags,tfl|
00000940  61 67 73 2c 74 65 78 74  24 29 0d 04 6a 17 6d 65  |ags,text$)..j.me|
00000950  6e 75 70 6f 69 6e 74 65  72 21 30 3d 66 6c 61 67  |nupointer!0=flag|
00000960  73 0d 04 74 16 6d 65 6e  75 70 6f 69 6e 74 65 72  |s..t.menupointer|
00000970  21 34 3d 73 75 62 6d 0d  04 7e 18 6d 65 6e 75 70  |!4=subm..~.menup|
00000980  6f 69 6e 74 65 72 21 38  3d 74 66 6c 61 67 73 0d  |ointer!8=tflags.|
00000990  04 88 1e 24 28 6d 65 6e  75 70 6f 69 6e 74 65 72  |...$(menupointer|
000009a0  2b 31 32 29 3d 74 65 78  74 24 2b bd 30 0d 04 92  |+12)=text$+.0...|
000009b0  13 6d 65 6e 75 70 6f 69  6e 74 65 72 2b 3d 32 34  |.menupointer+=24|
000009c0  0d 04 9c 05 e1 0d 04 a6  05 20 0d 04 b0 0c dd f2  |......... ......|
000009d0  69 62 6d 65 6e 75 0d 04  ba 22 f2 6d 65 6e 75 68  |ibmenu...".menuh|
000009e0  65 61 64 65 72 28 6d 65  6e 75 2c 31 39 32 2c 22  |eader(menu,192,"|
000009f0  58 4d 6f 64 65 73 22 29  0d 04 c4 26 f2 6d 65 6e  |XModes")...&.men|
00000a00  75 69 74 65 6d 28 21 69  6e 66 6f 2c 30 2c 26 37  |uitem(!info,0,&7|
00000a10  30 30 30 30 33 31 2c 22  49 6e 66 6f 22 29 0d 04  |000031,"Info")..|
00000a20  ce 29 f2 6d 65 6e 75 69  74 65 6d 28 21 73 61 76  |.).menuitem(!sav|
00000a30  65 62 6f 78 2c 30 2c 26  37 30 30 30 30 33 31 2c  |ebox,0,&7000031,|
00000a40  22 53 61 76 65 22 29 0d  04 d8 26 f2 6d 65 6e 75  |"Save")...&.menu|
00000a50  69 74 65 6d 28 2d 31 2c  31 3c 3c 37 2c 26 37 30  |item(-1,1<<7,&70|
00000a60  30 30 30 33 31 2c 22 51  75 69 74 22 29 0d 04 e2  |00031,"Quit")...|
00000a70  14 78 70 6f 73 3d 72 65  73 75 6c 74 21 30 2d 36  |.xpos=result!0-6|
00000a80  34 0d 04 ec 2d c8 99 20  22 57 69 6d 70 5f 43 72  |4...-.. "Wimp_Cr|
00000a90  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 2c  |eateMenu",,menu,|
00000aa0  78 70 6f 73 2c 39 36 2b  28 34 34 2a 33 29 0d 04  |xpos,96+(44*3)..|
00000ab0  f6 0f 77 68 69 63 68 6d  65 6e 75 3d 31 0d 05 00  |..whichmenu=1...|
00000ac0  05 e1 0d 05 0a 05 20 0d  05 14 10 dd f2 64 65 63  |...... ......dec|
00000ad0  6f 64 65 6d 65 6e 75 0d  05 1e 12 c8 8e 20 77 68  |odemenu...... wh|
00000ae0  69 63 68 6d 65 6e 75 20  ca 0d 05 28 19 20 20 c9  |ichmenu ...(.  .|
00000af0  20 31 20 3a 20 c8 8e 20  72 65 73 75 6c 74 21 30  | 1 : .. result!0|
00000b00  20 ca 0d 05 32 14 20 20  20 20 c9 20 30 20 3a 20  | ...2.    . 0 : |
00000b10  f4 20 49 6e 66 6f 0d 05  3c 14 20 20 20 20 c9 20  |. Info..<.    . |
00000b20  31 20 3a 20 f4 20 53 61  76 65 0d 05 46 14 20 20  |1 : . Save..F.  |
00000b30  20 20 c9 20 32 20 3a 20  65 78 69 74 3d b9 0d 05  |  . 2 : exit=...|
00000b40  50 0b 20 20 20 20 7f 20  3a 0d 05 5a 08 20 20 20  |P.    . :..Z.   |
00000b50  cb 0d 05 64 09 20 20 7f  20 3a 0d 05 6e 05 cb 0d  |...d.  . :..n...|
00000b60  05 78 22 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.x".. "Wimp_GetP|
00000b70  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 6d 69 73  |ointerInfo",,mis|
00000b80  63 0d 05 82 25 e7 20 28  6d 69 73 63 21 38 20 80  |c...%. (misc!8 .|
00000b90  20 31 29 3d 31 20 8c 20  c8 8e 20 77 68 69 63 68  | 1)=1 . .. which|
00000ba0  6d 65 6e 75 20 ca 0d 05  8c 13 20 20 c9 20 31 20  |menu .....  . 1 |
00000bb0  3a 20 f2 69 62 6d 65 6e  75 0d 05 96 07 20 20 7f  |: .ibmenu....  .|
00000bc0  0d 05 a0 06 20 cb 0d 05  aa 05 cd 0d 05 b4 05 e1  |.... ...........|
00000bd0  0d 05 be 05 20 0d 05 c8  0d dd f2 6d 65 73 73 61  |.... ......messa|
00000be0  67 65 0d 05 d2 12 c8 8e  20 72 65 73 75 6c 74 21  |ge...... result!|
00000bf0  31 36 20 ca 0d 05 dc 12  20 20 c9 20 30 20 3a 20  |16 .....  . 0 : |
00000c00  65 78 69 74 3d b9 0d 05  e6 1c 20 20 c9 20 32 20  |exit=.....  . 2 |
00000c10  3a 20 f2 66 69 6c 65 72  68 61 73 72 65 70 6c 69  |: .filerhasrepli|
00000c20  65 64 0d 05 f0 1e 20 20  c9 20 34 20 3a 20 f2 65  |ed....  . 4 : .e|
00000c30  6e 64 6f 66 73 61 76 65  70 72 6f 74 6f 63 6f 6c  |ndofsaveprotocol|
00000c40  0d 05 fa 14 20 20 c9 20  26 35 30 32 20 3a 20 f2  |....  . &502 : .|
00000c50  68 65 6c 70 0d 06 04 09  20 20 7f 20 3a 0d 06 0e  |help....  . :...|
00000c60  05 cb 0d 06 18 05 e1 0d  06 22 05 20 0d 06 2c 0a  |.........". ..,.|
00000c70  dd f2 68 65 6c 70 0d 06  36 13 73 65 6e 64 74 6f  |..help..6.sendto|
00000c80  3d 72 65 73 75 6c 74 21  34 0d 06 40 20 6c 65 6e  |=result!4..@ len|
00000c90  67 74 68 3d a8 28 28 a9  28 68 65 6c 70 24 29 2b  |gth=.((.(help$)+|
00000ca0  31 29 2f 34 2b 31 29 2a  34 0d 06 4a 16 72 65 73  |1)/4+1)*4..J.res|
00000cb0  75 6c 74 21 30 3d 6c 65  6e 67 74 68 2b 32 30 0d  |ult!0=length+20.|
00000cc0  06 54 17 72 65 73 75 6c  74 21 34 3d 74 61 73 6b  |.T.result!4=task|
00000cd0  68 61 6e 64 6c 65 0d 06  5e 16 72 65 73 75 6c 74  |handle..^.result|
00000ce0  21 31 32 3d 72 65 73 75  6c 74 21 38 0d 06 68 0e  |!12=result!8..h.|
00000cf0  72 65 73 75 6c 74 21 38  3d 31 0d 06 72 12 72 65  |result!8=1..r.re|
00000d00  73 75 6c 74 21 31 36 3d  26 35 30 33 0d 06 7c 19  |sult!16=&503..|.|
00000d10  24 28 72 65 73 75 6c 74  2b 32 30 29 3d 68 65 6c  |$(result+20)=hel|
00000d20  70 24 2b bd 30 0d 06 86  2a c8 99 20 22 57 69 6d  |p$+.0...*.. "Wim|
00000d30  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00000d40  37 2c 72 65 73 75 6c 74  2c 73 65 6e 64 74 6f 0d  |7,result,sendto.|
00000d50  06 90 05 e1 0d 06 9a 05  20 0d 06 a4 10 dd f2 65  |........ ......e|
00000d60  28 65 72 6c 2c 65 72 72  29 0d 06 ae 10 72 65 73  |(erl,err)....res|
00000d70  75 6c 74 21 30 3d 65 72  72 0d 06 b8 36 24 28 72  |ult!0=err...6$(r|
00000d80  65 73 75 6c 74 2b 34 29  3d f6 24 2b 22 20 28 69  |esult+4)=.$+" (i|
00000d90  6e 74 65 72 6e 61 6c 20  65 72 72 6f 72 20 63 6f  |nternal error co|
00000da0  64 65 20 22 2b c3 28 65  72 6c 29 2b 22 29 22 0d  |de "+.(erl)+")".|
00000db0  06 c2 37 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..7.. "Wimp_Repo|
00000dc0  72 74 45 72 72 6f 72 22  2c 72 65 73 75 6c 74 2c  |rtError",result,|
00000dd0  25 30 31 31 2c 22 58 4d  6f 64 65 73 22 20 b8 20  |%011,"XModes" . |
00000de0  2c 66 61 74 61 6c 0d 06  cc 11 e7 20 66 61 74 61  |,fatal..... fata|
00000df0  6c 3d 32 20 8c 20 e0 0d  06 d6 05 e1 0d 06 e0 05  |l=2 . ..........|
00000e00  20 0d 06 ea 0f dd a4 77  69 6d 70 73 63 72 61 70  | ......wimpscrap|
00000e10  0d 06 f4 38 c8 99 20 22  58 4f 53 5f 52 65 61 64  |...8.. "XOS_Read|
00000e20  56 61 72 56 61 6c 22 2c  22 57 69 6d 70 24 53 63  |VarVal","Wimp$Sc|
00000e30  72 61 70 22 2c 6d 69 73  63 2c 2d 31 2c 30 2c 30  |rap",misc,-1,0,0|
00000e40  20 b8 20 2c 2c 2c 77 73  0d 06 fe 0c e7 20 77 73  | . ,,,ws..... ws|
00000e50  3d 30 20 8c 0d 07 08 36  20 20 f2 72 65 70 6f 72  |=0 ....6  .repor|
00000e60  74 65 72 72 6f 72 28 35  2c 22 57 69 6d 70 24 53  |terror(5,"Wimp$S|
00000e70  63 72 61 70 20 69 73 20  6e 6f 74 20 64 65 66 69  |crap is not defi|
00000e80  6e 65 64 22 2c 25 31 31  30 29 0d 07 12 08 20 20  |ned",%110)....  |
00000e90  3d a3 0d 07 1c 05 cc 0d  07 26 08 20 20 3d b9 0d  |=........&.  =..|
00000ea0  07 30 05 cd 0d 07 3a 05  20 0d 07 44 0f dd f2 73  |.0....:. ..D...s|
00000eb0  61 76 65 63 6c 69 63 6b  0d 07 4e 12 c8 8e 20 72  |aveclick..N... r|
00000ec0  65 73 75 6c 74 21 31 36  20 ca 0d 07 58 19 20 20  |esult!16 ...X.  |
00000ed0  c9 20 30 20 3a 20 f2 64  72 61 67 70 6f 73 73 69  |. 0 : .dragpossi|
00000ee0  62 6c 65 0d 07 62 15 20  20 c9 20 31 2c 32 20 3a  |ble..b.  . 1,2 :|
00000ef0  20 f2 73 61 76 65 69 74  0d 07 6c 20 20 20 20 20  | .saveit..l     |
00000f00  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000f10  65 6e 75 22 2c 2c 2d 31  0d 07 76 05 cb 0d 07 80  |enu",,-1..v.....|
00000f20  05 e1 0d 07 8a 05 20 0d  07 94 12 dd f2 64 72 61  |...... ......dra|
00000f30  67 70 6f 73 73 69 62 6c  65 0d 07 9e 1d e7 20 72  |gpossible..... r|
00000f40  65 73 75 6c 74 21 38 3c  3e 28 25 31 30 30 2a 31  |esult!8<>(%100*1|
00000f50  36 29 20 8c 20 e1 0d 07  a8 14 21 72 65 73 75 6c  |6) . .....!resul|
00000f60  74 3d 21 73 61 76 65 62  6f 78 0d 07 b2 24 c8 99  |t=!savebox...$..|
00000f70  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00000f80  53 74 61 74 65 22 2c 2c  72 65 73 75 6c 74 0d 07  |State",,result..|
00000f90  bc 19 6f 78 3d 72 65 73  75 6c 74 21 34 2d 72 65  |..ox=result!4-re|
00000fa0  73 75 6c 74 21 32 30 0d  07 c6 1a 6f 79 3d 72 65  |sult!20....oy=re|
00000fb0  73 75 6c 74 21 31 36 2d  72 65 73 75 6c 74 21 32  |sult!16-result!2|
00000fc0  34 0d 07 d0 0e 72 65 73  75 6c 74 21 34 3d 30 0d  |4....result!4=0.|
00000fd0  07 da 22 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..".. "Wimp_GetI|
00000fe0  63 6f 6e 53 74 61 74 65  22 2c 2c 72 65 73 75 6c  |conState",,resul|
00000ff0  74 0d 07 e4 14 21 72 65  73 75 6c 74 3d 21 73 61  |t....!result=!sa|
00001000  76 65 62 6f 78 0d 07 ee  0e 72 65 73 75 6c 74 21  |vebox....result!|
00001010  34 3d 35 0d 07 f8 18 72  65 73 75 6c 74 21 38 3d  |4=5....result!8=|
00001020  6f 78 2b 72 65 73 75 6c  74 21 38 0d 08 02 1a 72  |ox+result!8....r|
00001030  65 73 75 6c 74 21 31 32  3d 6f 79 2b 72 65 73 75  |esult!12=oy+resu|
00001040  6c 74 21 31 32 0d 08 0c  1a 72 65 73 75 6c 74 21  |lt!12....result!|
00001050  31 36 3d 6f 78 2b 72 65  73 75 6c 74 21 31 36 0d  |16=ox+result!16.|
00001060  08 16 1a 72 65 73 75 6c  74 21 32 30 3d 6f 79 2b  |...result!20=oy+|
00001070  72 65 73 75 6c 74 21 32  30 0d 08 20 0f 72 65 73  |result!20.. .res|
00001080  75 6c 74 21 32 34 3d 30  0d 08 2a 0f 72 65 73 75  |ult!24=0..*.resu|
00001090  6c 74 21 32 38 3d 30 0d  08 34 17 72 65 73 75 6c  |lt!28=0..4.resul|
000010a0  74 21 33 32 3d 26 37 46  46 46 46 46 46 46 0d 08  |t!32=&7FFFFFFF..|
000010b0  3e 17 72 65 73 75 6c 74  21 33 36 3d 26 37 46 46  |>.result!36=&7FF|
000010c0  46 46 46 46 46 0d 08 48  1d c8 99 20 22 57 69 6d  |FFFFF..H... "Wim|
000010d0  70 5f 44 72 61 67 42 6f  78 22 2c 2c 72 65 73 75  |p_DragBox",,resu|
000010e0  6c 74 0d 08 52 0e 64 72  61 67 66 72 6f 6d 3d 31  |lt..R.dragfrom=1|
000010f0  0d 08 5c 05 e1 0d 08 66  05 20 0d 08 70 0c dd f2  |..\....f. ..p...|
00001100  73 61 76 65 69 74 0d 08  7a 14 21 72 65 73 75 6c  |saveit..z.!resul|
00001110  74 3d 21 73 61 76 65 62  6f 78 0d 08 84 0e 72 65  |t=!savebox....re|
00001120  73 75 6c 74 21 34 3d 31  0d 08 8e 22 c8 99 20 22  |sult!4=1...".. "|
00001130  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001140  65 22 2c 2c 72 65 73 75  6c 74 0d 08 98 0c 6e 61  |e",,result....na|
00001150  6d 65 24 3d 22 22 0d 08  a2 11 70 6f 73 3d 72 65  |me$=""....pos=re|
00001160  73 75 6c 74 21 32 38 0d  08 ac 05 f5 0d 08 b6 27  |sult!28........'|
00001170  20 20 e7 20 3f 70 6f 73  3e 33 32 20 8c 20 6e 61  |  . ?pos>32 . na|
00001180  6d 65 24 2b 3d bd 28 3f  70 6f 73 29 3a 70 6f 73  |me$+=.(?pos):pos|
00001190  2b 3d 31 0d 08 c0 0d fd  20 3f 70 6f 73 3c 33 33  |+=1..... ?pos<33|
000011a0  0d 08 ca 13 e7 20 a7 6e  61 6d 65 24 2c 22 2e 22  |..... .name$,"."|
000011b0  29 20 8c 0d 08 d4 16 20  20 f2 73 61 76 65 66 69  |) .....  .savefi|
000011c0  6c 65 28 6e 61 6d 65 24  29 0d 08 de 05 cc 0d 08  |le(name$).......|
000011d0  e8 4a 20 20 f2 72 65 70  6f 72 74 65 72 72 6f 72  |.J  .reporterror|
000011e0  28 35 2c 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |(5,"To save, dra|
000011f0  67 20 74 68 65 20 69 63  6f 6e 20 74 6f 20 61 20  |g the icon to a |
00001200  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
00001210  2e 22 2c 25 30 30 31 29  0d 08 f2 05 cd 0d 08 fc  |.",%001)........|
00001220  05 e1 0d 09 06 05 20 0d  09 10 11 dd f2 64 72 61  |...... ......dra|
00001230  67 6f 76 65 72 5f 73 62  0d 09 1a 14 21 72 65 73  |gover_sb....!res|
00001240  75 6c 74 3d 21 73 61 76  65 62 6f 78 0d 09 24 0e  |ult=!savebox..$.|
00001250  72 65 73 75 6c 74 21 34  3d 31 0d 09 2e 22 c8 99  |result!4=1..."..|
00001260  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001270  61 74 65 22 2c 2c 72 65  73 75 6c 74 0d 09 38 0c  |ate",,result..8.|
00001280  6e 61 6d 65 24 3d 22 22  0d 09 42 11 70 6f 73 3d  |name$=""..B.pos=|
00001290  72 65 73 75 6c 74 21 32  38 0d 09 4c 05 f5 0d 09  |result!28..L....|
000012a0  56 27 20 20 e7 20 3f 70  6f 73 3e 33 32 20 8c 20  |V'  . ?pos>32 . |
000012b0  6e 61 6d 65 24 2b 3d bd  28 3f 70 6f 73 29 3a 70  |name$+=.(?pos):p|
000012c0  6f 73 2b 3d 31 0d 09 60  22 fd 20 3f 70 6f 73 3c  |os+=1..`". ?pos<|
000012d0  33 33 20 84 20 70 6f 73  3e 28 72 65 73 75 6c 74  |33 . pos>(result|
000012e0  21 32 38 29 2b 36 34 0d  09 6a 24 c8 99 20 22 57  |!28)+64..j$.. "W|
000012f0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00001300  66 6f 22 2c 2c 72 65 73  75 6c 74 0d 09 74 19 74  |fo",,result..t.t|
00001310  68 65 69 72 77 69 6e 64  6f 77 3d 72 65 73 75 6c  |heirwindow=resul|
00001320  74 21 31 32 0d 09 7e 17  74 68 65 69 72 69 63 6f  |t!12..~.theirico|
00001330  6e 3d 72 65 73 75 6c 74  21 31 36 0d 09 88 0e 78  |n=result!16....x|
00001340  3d 72 65 73 75 6c 74 21  30 0d 09 92 0e 79 3d 72  |=result!0....y=r|
00001350  65 73 75 6c 74 21 34 0d  09 9c 0f 72 65 73 75 6c  |esult!4....resul|
00001360  74 21 31 32 3d 30 0d 09  a6 0f 72 65 73 75 6c 74  |t!12=0....result|
00001370  21 31 36 3d 31 0d 09 b0  19 72 65 73 75 6c 74 21  |!16=1....result!|
00001380  32 30 3d 74 68 65 69 72  77 69 6e 64 6f 77 0d 09  |20=theirwindow..|
00001390  ba 17 72 65 73 75 6c 74  21 32 34 3d 74 68 65 69  |..result!24=thei|
000013a0  72 69 63 6f 6e 0d 09 c4  15 72 65 73 75 6c 74 21  |ricon....result!|
000013b0  32 38 3d 21 72 65 73 75  6c 74 0d 09 ce 16 72 65  |28=!result....re|
000013c0  73 75 6c 74 21 33 32 3d  72 65 73 75 6c 74 21 34  |sult!32=result!4|
000013d0  0d 09 d8 19 72 65 73 75  6c 74 21 33 36 3d a4 66  |....result!36=.f|
000013e0  69 6c 65 6c 65 6e 67 74  68 0d 09 e2 15 72 65 73  |ilelength....res|
000013f0  75 6c 74 21 34 30 3d 6f  75 72 66 69 6c 65 0d 09  |ult!40=ourfile..|
00001400  ec 2f e7 20 a7 6e 61 6d  65 24 2c 22 2e 22 29 20  |./. .name$,".") |
00001410  8c 20 6e 61 6d 65 24 3d  c1 6e 61 6d 65 24 2c a7  |. name$=.name$,.|
00001420  6e 61 6d 65 24 2c 22 2e  22 29 2b 31 29 0d 09 f6  |name$,".")+1)...|
00001430  19 24 28 72 65 73 75 6c  74 2b 34 34 29 3d 6e 61  |.$(result+44)=na|
00001440  6d 65 24 2b bd 30 0d 0a  00 23 6c 65 6e 67 74 68  |me$+.0...#length|
00001450  3d 28 a8 28 28 34 35 2b  a9 28 6e 61 6d 65 24 29  |=(.((45+.(name$)|
00001460  29 2f 34 29 2b 31 29 2a  34 0d 0a 0a 12 21 72 65  |)/4)+1)*4....!re|
00001470  73 75 6c 74 3d 6c 65 6e  67 74 68 0d 0a 14 2f c8  |sult=length.../.|
00001480  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00001490  61 67 65 22 2c 31 37 2c  72 65 73 75 6c 74 2c 74  |age",17,result,t|
000014a0  68 65 69 72 77 69 6e 64  6f 77 0d 0a 1e 05 e1 0d  |heirwindow......|
000014b0  0a 28 05 20 0d 0a 32 15  dd f2 66 69 6c 65 72 68  |.(. ..2...filerh|
000014c0  61 73 72 65 70 6c 69 65  64 0d 0a 3c 15 74 68 65  |asreplied..<.the|
000014d0  69 72 72 65 66 3d 72 65  73 75 6c 74 21 38 0d 0a  |irref=result!8..|
000014e0  46 0c 6e 61 6d 65 24 3d  22 22 0d 0a 50 11 70 6f  |F.name$=""..P.po|
000014f0  73 3d 72 65 73 75 6c 74  2b 34 34 0d 0a 5a 05 f5  |s=result+44..Z..|
00001500  0d 0a 64 27 20 20 e7 20  3f 70 6f 73 3e 33 32 20  |..d'  . ?pos>32 |
00001510  8c 20 6e 61 6d 65 24 2b  3d bd 28 3f 70 6f 73 29  |. name$+=.(?pos)|
00001520  3a 70 6f 73 2b 3d 31 0d  0a 6e 0d fd 20 3f 70 6f  |:pos+=1..n.. ?po|
00001530  73 3c 33 33 0d 0a 78 14  f2 73 61 76 65 66 69 6c  |s<33..x..savefil|
00001540  65 28 6e 61 6d 65 24 29  0d 0a 82 16 72 65 73 75  |e(name$)....resu|
00001550  6c 74 21 31 32 3d 74 68  65 69 72 72 65 66 0d 0a  |lt!12=theirref..|
00001560  8c 0f 72 65 73 75 6c 74  21 31 36 3d 33 0d 0a 96  |..result!16=3...|
00001570  19 72 65 73 75 6c 74 21  32 30 3d 74 68 65 69 72  |.result!20=their|
00001580  77 69 6e 64 6f 77 0d 0a  a0 17 72 65 73 75 6c 74  |window....result|
00001590  21 32 34 3d 74 68 65 69  72 69 63 6f 6e 0d 0a aa  |!24=theiricon...|
000015a0  0f 72 65 73 75 6c 74 21  32 38 3d 78 0d 0a b4 0f  |.result!28=x....|
000015b0  72 65 73 75 6c 74 21 33  32 3d 79 0d 0a be 19 72  |result!32=y....r|
000015c0  65 73 75 6c 74 21 33 36  3d a4 66 69 6c 65 6c 65  |esult!36=.filele|
000015d0  6e 67 74 68 0d 0a c8 15  72 65 73 75 6c 74 21 34  |ngth....result!4|
000015e0  30 3d 6f 75 72 66 69 6c  65 0d 0a d2 19 24 28 72  |0=ourfile....$(r|
000015f0  65 73 75 6c 74 2b 34 34  29 3d 6e 61 6d 65 24 2b  |esult+44)=name$+|
00001600  bd 30 0d 0a dc 23 6c 65  6e 67 74 68 3d 28 a8 28  |.0...#length=(.(|
00001610  28 34 35 2b a9 28 6e 61  6d 65 24 29 29 2f 34 29  |(45+.(name$))/4)|
00001620  2b 31 29 2a 34 0d 0a e6  12 21 72 65 73 75 6c 74  |+1)*4....!result|
00001630  3d 6c 65 6e 67 74 68 0d  0a f0 39 c8 99 20 22 57  |=length...9.. "W|
00001640  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001650  2c 31 38 2c 72 65 73 75  6c 74 2c 74 68 65 69 72  |,18,result,their|
00001660  77 69 6e 64 6f 77 2c 74  68 65 69 72 69 63 6f 6e  |window,theiricon|
00001670  0d 0a fa 05 e1 0d 0b 04  05 20 0d 0b 0e 17 dd f2  |......... ......|
00001680  65 6e 64 6f 66 73 61 76  65 70 72 6f 74 6f 63 6f  |endofsaveprotoco|
00001690  6c 0d 0b 18 1c c8 99 20  22 57 69 6d 70 5f 43 72  |l...... "Wimp_Cr|
000016a0  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 0b 22  |eateMenu",,-1.."|
000016b0  05 e1 0d 0b 2c 05 20 0d  0b 36 10 dd f2 6b 65 79  |....,. ..6...key|
000016c0  70 72 65 73 73 65 64 0d  0b 40 35 e7 20 72 65 73  |pressed..@5. res|
000016d0  75 6c 74 21 30 3d 21 73  61 76 65 62 6f 78 20 80  |ult!0=!savebox .|
000016e0  20 72 65 73 75 6c 74 21  34 3d 31 20 80 20 72 65  | result!4=1 . re|
000016f0  73 75 6c 74 21 32 34 3d  31 33 20 8c 0d 0b 4a 0d  |sult!24=13 ...J.|
00001700  20 20 f2 73 61 76 65 69  74 0d 0b 54 1e 20 20 c8  |  .saveit..T.  .|
00001710  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001720  6e 75 22 2c 2c 2d 31 0d  0b 5e 05 cc 0d 0b 68 35  |nu",,-1..^....h5|
00001730  20 20 e7 20 72 65 73 75  6c 74 21 30 3d 21 6d 61  |  . result!0=!ma|
00001740  69 6e 20 80 20 72 65 73  75 6c 74 21 34 3d 31 39  |in . result!4=19|
00001750  20 80 20 72 65 73 75 6c  74 21 32 34 3d 31 33 20  | . result!24=13 |
00001760  8c 0d 0b 72 0f 20 20 20  20 f2 73 61 76 65 69 74  |...r.    .saveit|
00001770  0d 0b 7c 07 20 20 cd 0d  0b 86 24 20 20 c8 99 20  |..|.  ....$  .. |
00001780  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00001790  22 2c 72 65 73 75 6c 74  21 32 34 0d 0b 90 05 cd  |",result!24.....|
000017a0  0d 0b 9a 05 e1 0d 0b a4  05 20 0d 0b ae 4e 3d 3d  |......... ...N==|
000017b0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000017f0  3d 3d 3d 3d 3d 3d 3d 3d  0d 0b b8 4e 3d 3d 3d 20  |========...N=== |
00001800  20 20 20 20 20 20 20 20  20 20 20 20 20 41 70 70  |             App|
00001810  6c 69 63 61 74 69 6f 6e  20 73 70 65 63 69 66 69  |lication specifi|
00001820  63 20 73 74 75 66 66 20  66 6f 6c 6c 6f 77 73 20  |c stuff follows |
00001830  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001840  20 20 20 3d 3d 3d 0d 0b  c2 4e 3d 3d 3d 3d 3d 3d  |   ===...N======|
00001850  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001890  3d 3d 3d 3d 0d 0b cc 05  20 0d 0c bc 10 dd a4 66  |====.... ......f|
000018a0  69 6c 65 6c 65 6e 67 74  68 0d 0c c6 08 3d 34 37  |ilelength....=47|
000018b0  36 0d 0c d0 05 20 0d 0c  da 11 dd f2 61 70 70 5f  |6.... ......app_|
000018c0  73 74 61 72 74 75 70 0d  0c e4 0e de 20 43 6f 64  |startup..... Cod|
000018d0  65 20 35 31 32 0d 0c ee  05 e1 0d 0c f8 05 20 0d  |e 512......... .|
000018e0  0d 02 13 dd f2 61 70 70  5f 63 6c 6f 73 65 64 6f  |.....app_closedo|
000018f0  77 6e 0d 0d 0c 05 e1 0d  0d 16 05 20 0d 0d 20 13  |wn......... .. .|
00001900  dd f2 73 61 76 65 66 69  6c 65 28 66 6e 24 29 0d  |..savefile(fn$).|
00001910  0d 2a 12 f2 63 6f 6d 70  69 6c 65 28 43 6f 64 65  |.*..compile(Code|
00001920  29 0d 0d 34 2e c8 99 20  22 4f 53 5f 46 69 6c 65  |)..4... "OS_File|
00001930  22 2c 31 30 2c 66 6e 24  2c 6f 75 72 66 69 6c 65  |",10,fn$,ourfile|
00001940  2c 2c 43 6f 64 65 2c 43  6f 64 65 2b 34 37 36 0d  |,,Code,Code+476.|
00001950  0d 3e 05 e1 0d 0d 48 05  20 0d 0d 52 0f dd f2 6d  |.>....H. ..R...m|
00001960  61 69 6e 63 6c 69 63 6b  0d 0d 53 18 66 61 73 74  |ainclick..S.fast|
00001970  3d 28 72 65 73 75 6c 74  21 38 3d 25 30 30 31 29  |=(result!8=%001)|
00001980  0d 0d 5c 12 c8 8e 20 72  65 73 75 6c 74 21 31 36  |..\... result!16|
00001990  20 ca 0d 0d 66 2b 20 20  c9 20 30 2c 31 2c 32 2c  | ...f+  . 0,1,2,|
000019a0  33 2c 34 2c 35 2c 36 2c  37 2c 38 2c 39 2c 31 30  |3,4,5,6,7,8,9,10|
000019b0  20 3a 20 f4 20 4e 6f 74  68 69 6e 67 21 0d 0d 70  | : . Nothing!..p|
000019c0  2d 20 20 c9 20 31 31 20  20 20 20 20 20 20 20 20  |-  . 11         |
000019d0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 f2 78  |            : .x|
000019e0  64 6f 77 6e 28 66 61 73  74 29 0d 0d 7a 2b 20 20  |down(fast)..z+  |
000019f0  c9 20 31 32 20 20 20 20  20 20 20 20 20 20 20 20  |. 12            |
00001a00  20 20 20 20 20 20 20 20  20 3a 20 f4 20 4e 6f 74  |         : . Not|
00001a10  68 69 6e 67 21 0d 0d 84  2b 20 20 c9 20 31 33 20  |hing!...+  . 13 |
00001a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a30  20 20 20 20 3a 20 f2 78  75 70 28 66 61 73 74 29  |    : .xup(fast)|
00001a40  0d 0d 8e 2d 20 20 c9 20  31 34 20 20 20 20 20 20  |...-  . 14      |
00001a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00001a60  20 f2 79 64 6f 77 6e 28  66 61 73 74 29 0d 0d 98  | .ydown(fast)...|
00001a70  2b 20 20 c9 20 31 35 20  20 20 20 20 20 20 20 20  |+  . 15         |
00001a80  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 f4 20  |            : . |
00001a90  4e 6f 74 68 69 6e 67 21  0d 0d a2 2b 20 20 c9 20  |Nothing!...+  . |
00001aa0  31 36 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |16              |
00001ab0  20 20 20 20 20 20 20 3a  20 f2 79 75 70 28 66 61  |       : .yup(fa|
00001ac0  73 74 29 0d 0d ac 2b 20  20 c9 20 31 37 20 20 20  |st)...+  . 17   |
00001ad0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ae0  20 20 3a 20 f4 20 4e 6f  74 68 69 6e 67 21 0d 0d  |  : . Nothing!..|
00001af0  b6 37 20 20 c9 20 31 38  20 20 20 20 20 20 20 20  |.7  . 18        |
00001b00  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 20 f2  |             : .|
00001b10  64 72 61 67 70 6f 73 73  69 62 6c 65 5f 66 72 6f  |dragpossible_fro|
00001b20  6d 6d 61 69 6e 0d 0d c0  31 20 20 c9 20 31 39 2c  |mmain...1  . 19,|
00001b30  32 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |20              |
00001b40  20 20 20 20 3a 20 f2 73  61 76 65 69 74 5f 66 72  |    : .saveit_fr|
00001b50  6f 6d 6d 61 69 6e 0d 0d  ca 05 cb 0d 0d d4 05 e1  |ommain..........|
00001b60  0d 0d de 05 20 0d 0d e8  0e dd f2 64 72 61 67 6f  |.... ......drago|
00001b70  76 65 72 0d 0d f2 2d e7  20 64 72 61 67 66 72 6f  |ver...-. dragfro|
00001b80  6d 3d 31 20 8c 20 f2 64  72 61 67 6f 76 65 72 5f  |m=1 . .dragover_|
00001b90  73 62 20 8b 20 f2 64 72  61 67 6f 76 65 72 5f 6d  |sb . .dragover_m|
00001ba0  0d 0d fc 05 e1 0d 0e 06  04 0d 0e 10 10 dd f2 64  |...............d|
00001bb0  72 61 67 6f 76 65 72 5f  6d 0d 0e 1a 11 21 72 65  |ragover_m....!re|
00001bc0  73 75 6c 74 3d 21 6d 61  69 6e 0d 0e 24 0f 72 65  |sult=!main..$.re|
00001bd0  73 75 6c 74 21 34 3d 31  39 0d 0e 2e 22 c8 99 20  |sult!4=19...".. |
00001be0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001bf0  74 65 22 2c 2c 72 65 73  75 6c 74 0d 0e 38 0c 6e  |te",,result..8.n|
00001c00  61 6d 65 24 3d 22 22 0d  0e 42 11 70 6f 73 3d 72  |ame$=""..B.pos=r|
00001c10  65 73 75 6c 74 21 32 38  0d 0e 4c 05 f5 0d 0e 56  |esult!28..L....V|
00001c20  27 20 20 e7 20 3f 70 6f  73 3e 33 32 20 8c 20 6e  |'  . ?pos>32 . n|
00001c30  61 6d 65 24 2b 3d bd 28  3f 70 6f 73 29 3a 70 6f  |ame$+=.(?pos):po|
00001c40  73 2b 3d 31 0d 0e 60 22  fd 20 3f 70 6f 73 3c 33  |s+=1..`". ?pos<3|
00001c50  33 20 84 20 70 6f 73 3e  28 72 65 73 75 6c 74 21  |3 . pos>(result!|
00001c60  32 38 29 2b 36 34 0d 0e  6a 24 c8 99 20 22 57 69  |28)+64..j$.. "Wi|
00001c70  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001c80  6f 22 2c 2c 72 65 73 75  6c 74 0d 0e 74 19 74 68  |o",,result..t.th|
00001c90  65 69 72 77 69 6e 64 6f  77 3d 72 65 73 75 6c 74  |eirwindow=result|
00001ca0  21 31 32 0d 0e 7e 17 74  68 65 69 72 69 63 6f 6e  |!12..~.theiricon|
00001cb0  3d 72 65 73 75 6c 74 21  31 36 0d 0e 88 0e 78 3d  |=result!16....x=|
00001cc0  72 65 73 75 6c 74 21 30  0d 0e 92 0e 79 3d 72 65  |result!0....y=re|
00001cd0  73 75 6c 74 21 34 0d 0e  9c 0f 72 65 73 75 6c 74  |sult!4....result|
00001ce0  21 31 32 3d 30 0d 0e a6  0f 72 65 73 75 6c 74 21  |!12=0....result!|
00001cf0  31 36 3d 31 0d 0e b0 19  72 65 73 75 6c 74 21 32  |16=1....result!2|
00001d00  30 3d 74 68 65 69 72 77  69 6e 64 6f 77 0d 0e ba  |0=theirwindow...|
00001d10  17 72 65 73 75 6c 74 21  32 34 3d 74 68 65 69 72  |.result!24=their|
00001d20  69 63 6f 6e 0d 0e c4 15  72 65 73 75 6c 74 21 32  |icon....result!2|
00001d30  38 3d 21 72 65 73 75 6c  74 0d 0e ce 16 72 65 73  |8=!result....res|
00001d40  75 6c 74 21 33 32 3d 72  65 73 75 6c 74 21 34 0d  |ult!32=result!4.|
00001d50  0e d8 19 72 65 73 75 6c  74 21 33 36 3d a4 66 69  |...result!36=.fi|
00001d60  6c 65 6c 65 6e 67 74 68  0d 0e e2 15 72 65 73 75  |lelength....resu|
00001d70  6c 74 21 34 30 3d 6f 75  72 66 69 6c 65 0d 0e ec  |lt!40=ourfile...|
00001d80  2f e7 20 a7 6e 61 6d 65  24 2c 22 2e 22 29 20 8c  |/. .name$,".") .|
00001d90  20 6e 61 6d 65 24 3d c1  6e 61 6d 65 24 2c a7 6e  | name$=.name$,.n|
00001da0  61 6d 65 24 2c 22 2e 22  29 2b 31 29 0d 0e f6 19  |ame$,".")+1)....|
00001db0  24 28 72 65 73 75 6c 74  2b 34 34 29 3d 6e 61 6d  |$(result+44)=nam|
00001dc0  65 24 2b bd 30 0d 0f 00  23 6c 65 6e 67 74 68 3d  |e$+.0...#length=|
00001dd0  28 a8 28 28 34 35 2b a9  28 6e 61 6d 65 24 29 29  |(.((45+.(name$))|
00001de0  2f 34 29 2b 31 29 2a 34  0d 0f 0a 12 21 72 65 73  |/4)+1)*4....!res|
00001df0  75 6c 74 3d 6c 65 6e 67  74 68 0d 0f 14 2f c8 99  |ult=length.../..|
00001e00  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00001e10  67 65 22 2c 31 37 2c 72  65 73 75 6c 74 2c 74 68  |ge",17,result,th|
00001e20  65 69 72 77 69 6e 64 6f  77 0d 0f 1e 05 e1 0d 0f  |eirwindow.......|
00001e30  28 04 0d 0f 32 1b dd f2  64 72 61 67 70 6f 73 73  |(...2...dragposs|
00001e40  69 62 6c 65 5f 66 72 6f  6d 6d 61 69 6e 0d 0f 3c  |ible_frommain..<|
00001e50  1d e7 20 72 65 73 75 6c  74 21 38 3c 3e 28 25 31  |.. result!8<>(%1|
00001e60  30 30 2a 31 36 29 20 8c  20 e1 0d 0f 46 11 21 72  |00*16) . ...F.!r|
00001e70  65 73 75 6c 74 3d 21 6d  61 69 6e 0d 0f 50 24 c8  |esult=!main..P$.|
00001e80  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00001e90  77 53 74 61 74 65 22 2c  2c 72 65 73 75 6c 74 0d  |wState",,result.|
00001ea0  0f 5a 19 6f 78 3d 72 65  73 75 6c 74 21 34 2d 72  |.Z.ox=result!4-r|
00001eb0  65 73 75 6c 74 21 32 30  0d 0f 64 1a 6f 79 3d 72  |esult!20..d.oy=r|
00001ec0  65 73 75 6c 74 21 31 36  2d 72 65 73 75 6c 74 21  |esult!16-result!|
00001ed0  32 34 0d 0f 6e 0f 72 65  73 75 6c 74 21 34 3d 31  |24..n.result!4=1|
00001ee0  38 0d 0f 78 22 c8 99 20  22 57 69 6d 70 5f 47 65  |8..x".. "Wimp_Ge|
00001ef0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 72 65 73  |tIconState",,res|
00001f00  75 6c 74 0d 0f 82 11 21  72 65 73 75 6c 74 3d 21  |ult....!result=!|
00001f10  6d 61 69 6e 0d 0f 8c 0e  72 65 73 75 6c 74 21 34  |main....result!4|
00001f20  3d 35 0d 0f 96 18 72 65  73 75 6c 74 21 38 3d 6f  |=5....result!8=o|
00001f30  78 2b 72 65 73 75 6c 74  21 38 0d 0f a0 1a 72 65  |x+result!8....re|
00001f40  73 75 6c 74 21 31 32 3d  6f 79 2b 72 65 73 75 6c  |sult!12=oy+resul|
00001f50  74 21 31 32 0d 0f aa 1a  72 65 73 75 6c 74 21 31  |t!12....result!1|
00001f60  36 3d 6f 78 2b 72 65 73  75 6c 74 21 31 36 0d 0f  |6=ox+result!16..|
00001f70  b4 1a 72 65 73 75 6c 74  21 32 30 3d 6f 79 2b 72  |..result!20=oy+r|
00001f80  65 73 75 6c 74 21 32 30  0d 0f be 0f 72 65 73 75  |esult!20....resu|
00001f90  6c 74 21 32 34 3d 30 0d  0f c8 0f 72 65 73 75 6c  |lt!24=0....resul|
00001fa0  74 21 32 38 3d 30 0d 0f  d2 17 72 65 73 75 6c 74  |t!28=0....result|
00001fb0  21 33 32 3d 26 37 46 46  46 46 46 46 46 0d 0f dc  |!32=&7FFFFFFF...|
00001fc0  17 72 65 73 75 6c 74 21  33 36 3d 26 37 46 46 46  |.result!36=&7FFF|
00001fd0  46 46 46 46 0d 0f e6 1d  c8 99 20 22 57 69 6d 70  |FFFF...... "Wimp|
00001fe0  5f 44 72 61 67 42 6f 78  22 2c 2c 72 65 73 75 6c  |_DragBox",,resul|
00001ff0  74 0d 0f f0 0e 64 72 61  67 66 72 6f 6d 3d 32 0d  |t....dragfrom=2.|
00002000  0f fa 05 e1 0d 10 04 04  0d 10 0e 15 dd f2 73 61  |..............sa|
00002010  76 65 69 74 5f 66 72 6f  6d 6d 61 69 6e 0d 10 18  |veit_frommain...|
00002020  11 21 72 65 73 75 6c 74  3d 21 6d 61 69 6e 0d 10  |.!result=!main..|
00002030  22 0f 72 65 73 75 6c 74  21 34 3d 31 39 0d 10 2c  |".result!4=19..,|
00002040  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |".. "Wimp_GetIco|
00002050  6e 53 74 61 74 65 22 2c  2c 72 65 73 75 6c 74 0d  |nState",,result.|
00002060  10 36 0c 6e 61 6d 65 24  3d 22 22 0d 10 40 11 70  |.6.name$=""..@.p|
00002070  6f 73 3d 72 65 73 75 6c  74 21 32 38 0d 10 4a 05  |os=result!28..J.|
00002080  f5 0d 10 54 27 20 20 e7  20 3f 70 6f 73 3e 33 32  |...T'  . ?pos>32|
00002090  20 8c 20 6e 61 6d 65 24  2b 3d bd 28 3f 70 6f 73  | . name$+=.(?pos|
000020a0  29 3a 70 6f 73 2b 3d 31  0d 10 5e 0d fd 20 3f 70  |):pos+=1..^.. ?p|
000020b0  6f 73 3c 33 33 0d 10 68  12 e7 20 a7 6e 61 6d 65  |os<33..h.. .name|
000020c0  24 2c 22 2e 22 20 8c 0d  10 72 16 20 20 f2 73 61  |$,"." ...r.  .sa|
000020d0  76 65 66 69 6c 65 28 6e  61 6d 65 24 29 0d 10 7c  |vefile(name$)..||
000020e0  05 cc 0d 10 86 4a 20 20  f2 72 65 70 6f 72 74 65  |.....J  .reporte|
000020f0  72 72 6f 72 28 35 2c 22  54 6f 20 73 61 76 65 2c  |rror(5,"To save,|
00002100  20 64 72 61 67 20 74 68  65 20 69 63 6f 6e 20 74  | drag the icon t|
00002110  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 76 69  |o a directory vi|
00002120  65 77 65 72 2e 22 2c 25  30 30 31 29 0d 10 90 05  |ewer.",%001)....|
00002130  cd 0d 10 9a 05 e1 0d 10  a4 05 20 0d 10 ae 13 dd  |.......... .....|
00002140  f2 63 6f 6d 70 69 6c 65  28 43 6f 64 65 29 0d 10  |.compile(Code)..|
00002150  b8 0c f2 67 65 74 76 61  72 73 0d 10 c2 11 76 70  |...getvars....vp|
00002160  69 78 3d 38 2a 6d 61 78  72 6f 77 0d 10 cc 0d 68  |ix=8*maxrow....h|
00002170  63 79 63 3d 31 30 32 34  0d 10 d6 0c 76 63 79 63  |cyc=1024....vcyc|
00002180  3d 33 32 30 0d 10 e0 0d  68 73 79 6e 63 77 3d 35  |=320....hsyncw=5|
00002190  38 0d 10 ea 0c 76 73 79  6e 63 77 3d 30 0d 10 f4  |8....vsyncw=0...|
000021a0  12 72 65 6d 68 3d 68 63  79 63 2d 68 70 69 78 0d  |.remh=hcyc-hpix.|
000021b0  10 fe 14 68 62 6f 72 64  73 3d 36 34 2b 72 65 6d  |...hbords=64+rem|
000021c0  68 2f 34 0d 11 08 18 68  64 69 73 70 73 3d 68 62  |h/4....hdisps=hb|
000021d0  6f 72 64 73 2b 72 65 6d  68 2f 34 0d 11 12 16 68  |ords+remh/4....h|
000021e0  64 69 73 70 65 3d 68 64  69 73 70 73 2b 68 70 69  |dispe=hdisps+hpi|
000021f0  78 0d 11 1c 18 68 62 6f  72 64 65 3d 68 64 69 73  |x....hborde=hdis|
00002200  70 65 2b 72 65 6d 68 2f  34 0d 11 26 12 72 65 6d  |pe+remh/4..&.rem|
00002210  76 3d 76 63 79 63 2d 76  70 69 78 0d 11 30 14 76  |v=vcyc-vpix..0.v|
00002220  62 6f 72 64 73 3d 31 30  2b 72 65 6d 76 2f 34 0d  |bords=10+remv/4.|
00002230  11 3a 18 76 64 69 73 70  73 3d 76 62 6f 72 64 73  |.:.vdisps=vbords|
00002240  2b 72 65 6d 76 2f 34 0d  11 44 16 76 64 69 73 70  |+remv/4..D.vdisp|
00002250  65 3d 76 64 69 73 70 73  2b 76 70 69 78 0d 11 4e  |e=vdisps+vpix..N|
00002260  18 76 62 6f 72 64 65 3d  76 64 69 73 70 65 2b 72  |.vborde=vdispe+r|
00002270  65 6d 76 2f 34 0d 11 58  38 73 63 72 6e 73 69 7a  |emv/4..X8scrnsiz|
00002280  65 3d 28 28 76 70 69 78  2a 68 70 69 78 29 20 81  |e=((vpix*hpix) .|
00002290  20 70 69 78 70 65 72 62  79 74 65 2b 26 46 46 46  | pixperbyte+&FFF|
000022a0  29 20 80 20 26 46 46 46  46 46 30 30 30 0d 11 62  |) . &FFFFF000..b|
000022b0  16 e7 20 43 6f 6c 73 3d  32 35 36 20 43 6f 6c 73  |.. Cols=256 Cols|
000022c0  3d 36 34 0d 11 6c 05 3a  0d 11 76 13 e3 20 50 61  |=64..l.:..v.. Pa|
000022d0  73 73 3d 34 20 b8 20 36  20 88 32 0d 11 80 10 50  |ss=4 . 6 .2....P|
000022e0  25 3d 30 3a 4f 25 3d 43  6f 64 65 0d 11 8a 0d 5b  |%=0:O%=Code....[|
000022f0  4f 50 54 20 50 61 73 73  0d 11 94 05 3a 0d 11 9e  |OPT Pass....:...|
00002300  0b 2e 4d 6f 64 75 6c 65  0d 11 a8 0a 45 51 55 44  |..Module....EQUD|
00002310  20 30 0d 11 b2 0a 45 51  55 44 20 30 0d 11 bc 0a  | 0....EQUD 0....|
00002320  45 51 55 44 20 30 0d 11  c6 10 45 51 55 44 20 53  |EQUD 0....EQUD S|
00002330  65 72 76 69 63 65 0d 11  d0 0e 45 51 55 44 20 54  |ervice....EQUD T|
00002340  69 74 6c 65 0d 11 da 0d  45 51 55 44 20 48 65 6c  |itle....EQUD Hel|
00002350  70 0d 11 e4 0e 45 51 55  44 20 54 61 62 6c 65 0d  |p....EQUD Table.|
00002360  11 ee 0a 45 51 55 44 20  30 0d 11 f8 0a 45 51 55  |...EQUD 0....EQU|
00002370  44 20 30 0d 12 02 0a 45  51 55 44 20 30 0d 12 0c  |D 0....EQUD 0...|
00002380  0a 45 51 55 44 20 30 0d  12 16 05 3a 0d 12 20 0a  |.EQUD 0....:.. .|
00002390  2e 54 69 74 6c 65 0d 12  2a 1a 45 51 55 53 20 22  |.Title..*.EQUS "|
000023a0  58 4d 6f 64 65 73 22 2b  c3 6e 65 77 6d 6f 64 65  |XModes"+.newmode|
000023b0  0d 12 34 0a 45 51 55 42  20 30 0d 12 3e 09 41 4c  |..4.EQUB 0..>.AL|
000023c0  49 47 4e 0d 12 48 05 3a  0d 12 52 09 2e 48 65 6c  |IGN..H.:..R..Hel|
000023d0  70 0d 12 5c 34 45 51 55  53 20 22 58 4d 6f 64 65  |p..\4EQUS "XMode|
000023e0  73 22 2b c3 6e 65 77 6d  6f 64 65 2b bd 39 2b 22  |s"+.newmode+.9+"|
000023f0  31 2e 30 30 20 28 22 2b  c1 91 24 2c 35 2c 31 31  |1.00 ("+..$,5,11|
00002400  29 2b 22 29 22 0d 12 66  0a 45 51 55 42 20 30 0d  |)+")"..f.EQUB 0.|
00002410  12 70 09 41 4c 49 47 4e  0d 12 7a 05 3a 0d 12 84  |.p.ALIGN..z.:...|
00002420  0c 2e 53 65 72 76 69 63  65 0d 12 8e 0f 43 4d 50  |..Service....CMP|
00002430  20 72 31 2c 23 26 35 30  0d 12 98 13 42 4e 45 20  | r1,#&50....BNE |
00002440  53 65 72 76 69 63 65 4f  76 65 72 0d 12 a2 13 43  |ServiceOver....C|
00002450  4d 50 20 72 32 2c 23 6e  65 77 6d 6f 64 65 0d 12  |MP r2,#newmode..|
00002460  ac 13 42 4e 45 20 53 65  72 76 69 63 65 4f 76 65  |..BNE ServiceOve|
00002470  72 0d 12 b6 0d 4d 4f 56  20 72 31 2c 23 30 0d 12  |r....MOV r1,#0..|
00002480  c0 13 41 44 52 20 72 33  2c 56 69 64 43 4c 69 73  |..ADR r3,VidCLis|
00002490  74 0d 12 ca 18 41 44 52  20 72 34 2c 57 6f 72 6b  |t....ADR r4,Work|
000024a0  53 70 61 63 65 4c 69 73  74 0d 12 d4 10 2e 53 65  |SpaceList.....Se|
000024b0  72 76 69 63 65 4f 76 65  72 0d 12 de 0e 4d 4f 56  |rviceOver....MOV|
000024c0  20 50 43 2c 72 31 34 0d  12 e8 05 3a 0d 12 f2 0d  | PC,r14....:....|
000024d0  2e 56 69 64 43 4c 69 73  74 0d 12 fc 0a 45 51 55  |.VidCList....EQU|
000024e0  44 20 30 0d 13 06 11 45  51 55 44 20 62 61 73 65  |D 0....EQUD base|
000024f0  6d 6f 64 65 0d 13 10 25  45 51 55 44 20 26 38 30  |mode...%EQUD &80|
00002500  30 30 30 30 30 30 2b 28  28 28 68 63 79 63 2d 32  |000000+(((hcyc-2|
00002510  29 2f 32 29 3c 3c 31 34  29 0d 13 1a 27 45 51 55  |)/2)<<14)...'EQU|
00002520  44 20 26 38 34 30 30 30  30 30 30 2b 28 28 28 68  |D &84000000+(((h|
00002530  73 79 6e 63 77 2d 32 29  2f 32 29 3c 3c 31 34 29  |syncw-2)/2)<<14)|
00002540  0d 13 24 27 45 51 55 44  20 26 38 38 30 30 30 30  |..$'EQUD &880000|
00002550  30 30 2b 28 28 28 68 62  6f 72 64 73 2d 31 29 2f  |00+(((hbords-1)/|
00002560  32 29 3c 3c 31 34 29 0d  13 2e 28 45 51 55 44 20  |2)<<14)...(EQUD |
00002570  26 38 43 30 30 30 30 30  30 2b 28 28 28 68 64 69  |&8C000000+(((hdi|
00002580  73 70 73 2d 6b 25 29 2f  32 29 3c 3c 31 34 29 0d  |sps-k%)/2)<<14).|
00002590  13 38 28 45 51 55 44 20  26 39 30 30 30 30 30 30  |.8(EQUD &9000000|
000025a0  30 2b 28 28 28 68 64 69  73 70 65 2d 6b 25 29 2f  |0+(((hdispe-k%)/|
000025b0  32 29 3c 3c 31 34 29 0d  13 42 27 45 51 55 44 20  |2)<<14)..B'EQUD |
000025c0  26 39 34 30 30 30 30 30  30 2b 28 28 28 68 62 6f  |&94000000+(((hbo|
000025d0  72 64 65 2d 31 29 2f 32  29 3c 3c 31 34 29 0d 13  |rde-1)/2)<<14)..|
000025e0  4c 1d 45 51 55 44 20 26  41 30 30 30 30 30 30 30  |L.EQUD &A0000000|
000025f0  2b 28 76 63 79 63 3c 3c  31 34 29 0d 13 56 1f 45  |+(vcyc<<14)..V.E|
00002600  51 55 44 20 26 41 34 30  30 30 30 30 30 2b 28 76  |QUD &A4000000+(v|
00002610  73 79 6e 63 77 3c 3c 31  34 29 0d 13 60 23 45 51  |syncw<<14)..`#EQ|
00002620  55 44 20 26 41 38 30 30  30 30 30 30 2b 28 28 76  |UD &A8000000+((v|
00002630  62 6f 72 64 73 2d 31 29  3c 3c 31 34 29 0d 13 6a  |bords-1)<<14)..j|
00002640  23 45 51 55 44 20 26 41  43 30 30 30 30 30 30 2b  |#EQUD &AC000000+|
00002650  28 28 76 64 69 73 70 73  2d 31 29 3c 3c 31 34 29  |((vdisps-1)<<14)|
00002660  0d 13 74 23 45 51 55 44  20 26 42 30 30 30 30 30  |..t#EQUD &B00000|
00002670  30 30 2b 28 28 76 64 69  73 70 65 2d 31 29 3c 3c  |00+((vdispe-1)<<|
00002680  31 34 29 0d 13 7e 23 45  51 55 44 20 26 42 34 30  |14)..~#EQUD &B40|
00002690  30 30 30 30 30 2b 28 28  76 62 6f 72 64 65 2d 31  |00000+((vborde-1|
000026a0  29 3c 3c 31 34 29 0d 13  88 0b 45 51 55 44 20 2d  |)<<14)....EQUD -|
000026b0  31 0d 13 92 05 3a 0d 13  9c 12 2e 57 6f 72 6b 53  |1....:.....WorkS|
000026c0  70 61 63 65 4c 69 73 74  0d 13 a6 0e 45 51 55 44  |paceList....EQUD|
000026d0  20 20 20 20 20 30 0d 13  b0 15 45 51 55 44 20 20  |     0....EQUD  |
000026e0  20 20 20 62 61 73 65 6d  6f 64 65 0d 13 ba 13 45  |   basemode....E|
000026f0  51 55 44 20 20 30 3a 20  45 51 55 44 20 30 0d 13  |QUD  0: EQUD 0..|
00002700  c4 1a 45 51 55 44 20 20  31 3a 20 45 51 55 44 20  |..EQUD  1: EQUD |
00002710  6d 61 78 63 6f 6c 2d 31  0d 13 ce 1a 45 51 55 44  |maxcol-1....EQUD|
00002720  20 20 32 3a 20 45 51 55  44 20 6d 61 78 72 6f 77  |  2: EQUD maxrow|
00002730  2d 31 0d 13 d8 18 45 51  55 44 20 20 33 3a 20 45  |-1....EQUD  3: E|
00002740  51 55 44 20 43 6f 6c 73  2d 31 0d 13 e2 13 45 51  |QUD Cols-1....EQ|
00002750  55 44 20 20 34 3a 20 45  51 55 44 20 31 0d 13 ec  |UD  4: EQUD 1...|
00002760  13 45 51 55 44 20 20 35  3a 20 45 51 55 44 20 32  |.EQUD  5: EQUD 2|
00002770  0d 13 f6 23 45 51 55 44  20 20 36 3a 20 45 51 55  |...#EQUD  6: EQU|
00002780  44 20 68 70 69 78 20 81  20 70 69 78 70 65 72 62  |D hpix . pixperb|
00002790  79 74 65 0d 14 00 1a 45  51 55 44 20 20 37 3a 20  |yte....EQUD  7: |
000027a0  45 51 55 44 20 73 63 72  6e 73 69 7a 65 0d 14 0a  |EQUD scrnsize...|
000027b0  18 45 51 55 44 20 31 31  3a 20 45 51 55 44 20 68  |.EQUD 11: EQUD h|
000027c0  70 69 78 2d 31 0d 14 14  18 45 51 55 44 20 31 32  |pix-1....EQUD 12|
000027d0  3a 20 45 51 55 44 20 76  70 69 78 2d 31 0d 14 1e  |: EQUD vpix-1...|
000027e0  0b 45 51 55 44 20 2d 31  0d 14 28 05 3a 0d 14 32  |.EQUD -1..(.:..2|
000027f0  0a 2e 54 61 62 6c 65 0d  14 3c 17 45 51 55 53 20  |..Table..<.EQUS |
00002800  22 57 68 69 63 68 4d 6f  64 65 22 2b bd 30 0d 14  |"WhichMode"+.0..|
00002810  46 09 41 4c 49 47 4e 0d  14 50 12 45 51 55 44 20  |F.ALIGN..P.EQUD |
00002820  57 68 69 63 68 43 6f 64  65 0d 14 5a 0a 45 51 55  |WhichCode..Z.EQU|
00002830  44 20 30 0d 14 64 13 45  51 55 44 20 57 68 69 63  |D 0..d.EQUD Whic|
00002840  68 53 79 6e 74 78 0d 14  6e 12 45 51 55 44 20 57  |hSyntx..n.EQUD W|
00002850  68 69 63 68 48 65 6c 70  0d 14 78 0a 45 51 55 44  |hichHelp..x.EQUD|
00002860  20 30 0d 14 82 05 3a 0d  14 8c 0e 2e 57 68 69 63  | 0....:.....Whic|
00002870  68 48 65 6c 70 0d 14 96  46 45 51 55 53 20 22 2a  |hHelp...FEQUS "*|
00002880  57 68 69 63 68 4d 6f 64  65 20 74 65 6c 6c 73 20  |WhichMode tells |
00002890  79 6f 75 20 77 68 69 63  68 20 6d 6f 64 65 20 69  |you which mode i|
000028a0  73 20 70 72 6f 76 69 64  65 64 20 62 79 20 74 68  |s provided by th|
000028b0  69 73 20 6d 6f 64 75 6c  65 2e 22 0d 14 a0 0d 45  |is module."....E|
000028c0  51 55 57 20 26 44 30 41  0d 14 aa 05 3a 0d 14 b4  |QUW &D0A....:...|
000028d0  0f 2e 57 68 69 63 68 53  79 6e 74 78 0d 14 be 1e  |..WhichSyntx....|
000028e0  45 51 55 53 20 22 53 79  6e 74 61 78 20 3a 20 2a  |EQUS "Syntax : *|
000028f0  57 68 69 63 68 4d 6f 64  65 22 0d 14 c8 0d 45 51  |WhichMode"....EQ|
00002900  55 57 20 26 44 30 41 0d  14 d2 0a 45 51 55 42 20  |UW &D0A....EQUB |
00002910  30 0d 14 dc 09 41 4c 49  47 4e 0d 14 e6 05 3a 0d  |0....ALIGN....:.|
00002920  14 f0 0e 2e 57 68 69 63  68 43 6f 64 65 0d 14 fa  |....WhichCode...|
00002930  1b 53 54 4d 46 44 20 72  31 33 21 2c 7b 72 30 2d  |.STMFD r13!,{r0-|
00002940  72 31 32 2c 72 31 34 7d  0d 15 04 11 41 44 52 20  |r12,r14}....ADR |
00002950  72 30 2c 6d 6f 64 65 69  73 0d 15 0e 13 53 57 49  |r0,modeis....SWI|
00002960  20 22 4f 53 5f 57 72 69  74 65 30 22 0d 15 18 13  | "OS_Write0"....|
00002970  4d 4f 56 20 72 30 2c 23  6e 65 77 6d 6f 64 65 0d  |MOV r0,#newmode.|
00002980  15 22 11 41 44 52 20 72  31 2c 62 75 66 66 65 72  |.".ADR r1,buffer|
00002990  0d 15 2c 0d 4d 4f 56 20  72 32 2c 23 34 0d 15 36  |..,.MOV r2,#4..6|
000029a0  1d 53 57 49 20 22 4f 53  5f 43 6f 6e 76 65 72 74  |.SWI "OS_Convert|
000029b0  43 61 72 64 69 6e 61 6c  31 22 0d 15 40 13 53 57  |Cardinal1"..@.SW|
000029c0  49 20 22 4f 53 5f 57 72  69 74 65 30 22 0d 15 4a  |I "OS_Write0"..J|
000029d0  10 41 44 52 20 72 30 2c  65 6e 64 6f 66 0d 15 54  |.ADR r0,endof..T|
000029e0  13 53 57 49 20 22 4f 53  5f 57 72 69 74 65 30 22  |.SWI "OS_Write0"|
000029f0  0d 15 5e 1a 4c 44 4d 46  44 20 72 31 33 21 2c 7b  |..^.LDMFD r13!,{|
00002a00  72 30 2d 72 31 32 2c 50  43 7d 0d 15 68 05 3a 0d  |r0-r12,PC}..h.:.|
00002a10  15 72 0b 2e 6d 6f 64 65  69 73 0d 15 7c 31 45 51  |.r..modeis..|1EQ|
00002a20  55 53 20 22 54 68 65 20  6d 6f 64 65 20 70 72 6f  |US "The mode pro|
00002a30  76 69 64 65 64 20 62 79  20 74 68 69 73 20 6d 6f  |vided by this mo|
00002a40  64 75 6c 65 20 69 73 20  3a 20 22 0d 15 86 0a 45  |dule is : "....E|
00002a50  51 55 42 20 30 0d 15 90  09 41 4c 49 47 4e 0d 15  |QUB 0....ALIGN..|
00002a60  9a 05 3a 0d 15 a4 12 2e  62 75 66 66 65 72 20 45  |..:.....buffer E|
00002a70  51 55 44 20 30 0d 15 ae  05 3a 0d 15 b8 0a 2e 65  |QUD 0....:.....e|
00002a80  6e 64 6f 66 0d 15 c2 0d  45 51 55 57 20 26 44 30  |ndof....EQUW &D0|
00002a90  41 0d 15 cc 0a 45 51 55  57 20 30 0d 15 d6 05 5d  |A....EQUW 0....]|
00002aa0  0d 15 e0 05 ed 0d 15 ea  05 e1 0d 15 f4 05 20 0d  |.............. .|
00002ab0  15 fe 0d dd f2 67 65 74  76 61 72 73 0d 16 08 0d  |.....getvars....|
00002ac0  21 72 65 73 75 6c 74 3d  37 0d 16 12 0e 72 65 73  |!result=7....res|
00002ad0  75 6c 74 21 34 3d 38 0d  16 1c 0e 72 65 73 75 6c  |ult!4=8....resul|
00002ae0  74 21 38 3d 39 0d 16 26  10 72 65 73 75 6c 74 21  |t!8=9..&.result!|
00002af0  31 32 3d 31 30 0d 16 30  10 72 65 73 75 6c 74 21  |12=10..0.result!|
00002b00  31 36 3d 2d 31 0d 16 3a  38 c8 99 20 22 57 69 6d  |16=-1..:8.. "Wim|
00002b10  70 5f 57 68 69 63 68 49  63 6f 6e 22 2c 21 6d 61  |p_WhichIcon",!ma|
00002b20  69 6e 2c 72 65 73 75 6c  74 2c 26 30 30 33 46 30  |in,result,&003F0|
00002b30  30 30 30 2c 26 30 30 32  31 30 30 30 30 0d 16 44  |000,&00210000..D|
00002b40  10 c8 8e 20 21 72 65 73  75 6c 74 20 ca 0d 16 4e  |... !result ...N|
00002b50  3d 20 20 c9 20 2d 31 20  3a 20 f2 72 65 70 6f 72  |=  . -1 : .repor|
00002b60  74 65 72 72 6f 72 28 31  2c 22 57 68 6f 6f 70 73  |terror(1,"Whoops|
00002b70  21 21 21 20 4d 75 63 6b  65 64 20 69 74 20 75 70  |!!! Mucked it up|
00002b80  20 23 31 22 2c 25 30 30  31 29 0d 16 58 12 20 20  | #1",%001)..X.  |
00002b90  c9 20 37 20 3a 20 43 6f  6c 73 3d 32 0d 16 62 12  |. 7 : Cols=2..b.|
00002ba0  20 20 c9 20 38 20 3a 20  43 6f 6c 73 3d 34 0d 16  |  . 8 : Cols=4..|
00002bb0  6c 13 20 20 c9 20 39 20  3a 20 43 6f 6c 73 3d 31  |l.  . 9 : Cols=1|
00002bc0  36 0d 16 76 15 20 20 c9  20 31 30 20 3a 20 43 6f  |6..v.  . 10 : Co|
00002bd0  6c 73 3d 32 35 36 0d 16  80 05 cb 0d 16 8a 0d c8  |ls=256..........|
00002be0  8e 20 43 6f 6c 73 20 ca  0d 16 94 27 20 20 c9 20  |. Cols ....'  . |
00002bf0  32 3a 62 61 73 65 6d 6f  64 65 3d 30 3a 70 69 78  |2:basemode=0:pix|
00002c00  70 65 72 62 79 74 65 3d  38 3a 6b 25 3d 31 39 0d  |perbyte=8:k%=19.|
00002c10  16 9e 27 20 20 c9 20 34  3a 62 61 73 65 6d 6f 64  |..'  . 4:basemod|
00002c20  65 3d 38 3a 70 69 78 70  65 72 62 79 74 65 3d 34  |e=8:pixperbyte=4|
00002c30  3a 6b 25 3d 31 31 0d 16  a8 28 20 20 c9 20 31 36  |:k%=11...(  . 16|
00002c40  3a 62 61 73 65 6d 6f 64  65 3d 31 32 3a 70 69 78  |:basemode=12:pix|
00002c50  70 65 72 62 79 74 65 3d  32 3a 6b 25 3d 37 0d 16  |perbyte=2:k%=7..|
00002c60  b2 29 20 20 c9 20 32 35  36 3a 62 61 73 65 6d 6f  |.)  . 256:basemo|
00002c70  64 65 3d 31 35 3a 70 69  78 70 65 72 62 79 74 65  |de=15:pixperbyte|
00002c80  3d 31 3a 6b 25 3d 35 0d  16 bc 05 cb 0d 16 c6 11  |=1:k%=5.........|
00002c90  21 72 65 73 75 6c 74 3d  21 6d 61 69 6e 0d 16 d0  |!result=!main...|
00002ca0  0f 72 65 73 75 6c 74 21  34 3d 31 32 0d 16 da 22  |.result!4=12..."|
00002cb0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00002cc0  53 74 61 74 65 22 2c 2c  72 65 73 75 6c 74 0d 16  |State",,result..|
00002cd0  e4 0b 6d 61 78 24 3d 22  22 0d 16 ee 11 70 74 72  |..max$=""....ptr|
00002ce0  3d 72 65 73 75 6c 74 21  32 38 0d 16 f8 05 f5 0d  |=result!28......|
00002cf0  17 02 30 20 20 e7 20 3f  70 74 72 3e 34 37 20 80  |..0  . ?ptr>47 .|
00002d00  20 3f 70 74 72 3c 35 38  20 8c 20 6d 61 78 24 2b  | ?ptr<58 . max$+|
00002d10  3d bd 28 3f 70 74 72 29  3a 70 74 72 2b 3d 31 0d  |=.(?ptr):ptr+=1.|
00002d20  17 0c 23 fd 20 3f 70 74  72 3c 34 38 20 84 20 3f  |..#. ?ptr<48 . ?|
00002d30  70 74 72 3e 35 37 20 84  20 a9 28 6d 61 78 24 29  |ptr>57 . .(max$)|
00002d40  3e 32 0d 17 16 12 6d 61  78 63 6f 6c 3d bb 28 6d  |>2....maxcol=.(m|
00002d50  61 78 24 29 0d 17 20 11  21 72 65 73 75 6c 74 3d  |ax$).. .!result=|
00002d60  21 6d 61 69 6e 0d 17 2a  0f 72 65 73 75 6c 74 21  |!main..*.result!|
00002d70  34 3d 31 35 0d 17 34 22  c8 99 20 22 57 69 6d 70  |4=15..4".. "Wimp|
00002d80  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00002d90  72 65 73 75 6c 74 0d 17  3e 0b 6d 61 78 24 3d 22  |result..>.max$="|
00002da0  22 0d 17 48 11 70 74 72  3d 72 65 73 75 6c 74 21  |"..H.ptr=result!|
00002db0  32 38 0d 17 52 05 f5 0d  17 5c 30 20 20 e7 20 3f  |28..R....\0  . ?|
00002dc0  70 74 72 3e 34 37 20 80  20 3f 70 74 72 3c 35 38  |ptr>47 . ?ptr<58|
00002dd0  20 8c 20 6d 61 78 24 2b  3d bd 28 3f 70 74 72 29  | . max$+=.(?ptr)|
00002de0  3a 70 74 72 2b 3d 31 0d  17 66 23 fd 20 3f 70 74  |:ptr+=1..f#. ?pt|
00002df0  72 3c 34 38 20 84 20 3f  70 74 72 3e 35 37 20 84  |r<48 . ?ptr>57 .|
00002e00  20 a9 28 6d 61 78 24 29  3e 31 0d 17 70 12 6d 61  | .(max$)>1..p.ma|
00002e10  78 72 6f 77 3d bb 28 6d  61 78 24 29 0d 17 7a 1f  |xrow=.(max$)..z.|
00002e20  6d 61 78 63 6f 6c 3d 28  28 6d 61 78 63 6f 6c 2b  |maxcol=((maxcol+|
00002e30  33 29 20 80 20 28 ac 20  33 29 29 0d 17 84 11 68  |3) . (. 3))....h|
00002e40  70 69 78 3d 38 2a 6d 61  78 63 6f 6c 0d 17 8e 19  |pix=8*maxcol....|
00002e50  e7 20 6d 61 78 72 6f 77  3c 38 20 8c 20 6d 61 78  |. maxrow<8 . max|
00002e60  72 6f 77 3d 38 0d 17 98  1b e7 20 6d 61 78 72 6f  |row=8..... maxro|
00002e70  77 3e 34 30 20 8c 20 6d  61 78 72 6f 77 3d 34 30  |w>40 . maxrow=40|
00002e80  0d 17 a2 19 e7 20 6d 61  78 63 6f 6c 3c 38 20 8c  |..... maxcol<8 .|
00002e90  20 6d 61 78 63 6f 6c 3d  38 0d 17 ac 1d e7 20 6d  | maxcol=8..... m|
00002ea0  61 78 63 6f 6c 3e 31 30  30 20 8c 20 6d 61 78 63  |axcol>100 . maxc|
00002eb0  6f 6c 3d 31 30 30 0d 17  b6 11 21 72 65 73 75 6c  |ol=100....!resul|
00002ec0  74 3d 21 6d 61 69 6e 0d  17 c0 0f 72 65 73 75 6c  |t=!main....resul|
00002ed0  74 21 34 3d 31 37 0d 17  ca 22 c8 99 20 22 57 69  |t!4=17...".. "Wi|
00002ee0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00002ef0  2c 2c 72 65 73 75 6c 74  0d 17 d4 0b 6d 61 78 24  |,,result....max$|
00002f00  3d 22 22 0d 17 de 11 70  74 72 3d 72 65 73 75 6c  |=""....ptr=resul|
00002f10  74 21 32 38 0d 17 e8 05  f5 0d 17 f2 30 20 20 e7  |t!28........0  .|
00002f20  20 3f 70 74 72 3e 34 37  20 80 20 3f 70 74 72 3c  | ?ptr>47 . ?ptr<|
00002f30  35 38 20 8c 20 6d 61 78  24 2b 3d bd 28 3f 70 74  |58 . max$+=.(?pt|
00002f40  72 29 3a 70 74 72 2b 3d  31 0d 17 fc 23 fd 20 3f  |r):ptr+=1...#. ?|
00002f50  70 74 72 3c 34 38 20 84  20 3f 70 74 72 3e 35 37  |ptr<48 . ?ptr>57|
00002f60  20 84 20 a9 28 6d 61 78  24 29 3e 32 0d 18 06 13  | . .(max$)>2....|
00002f70  6e 65 77 6d 6f 64 65 3d  bb 28 6d 61 78 24 29 0d  |newmode=.(max$).|
00002f80  18 10 05 e1 0d 18 1a 05  20 0d 18 24 0e dd f2 6f  |........ ..$...o|
00002f90  70 65 6e 6d 61 69 6e 0d  18 2e 11 21 72 65 73 75  |penmain....!resu|
00002fa0  6c 74 3d 21 6d 61 69 6e  0d 18 38 24 c8 99 20 22  |lt=!main..8$.. "|
00002fb0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002fc0  61 74 65 22 2c 2c 72 65  73 75 6c 74 0d 18 42 10  |ate",,result..B.|
00002fd0  72 65 73 75 6c 74 21 32  38 3d 2d 31 0d 18 4c 20  |result!28=-1..L |
00002fe0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00002ff0  64 6f 77 22 2c 2c 72 65  73 75 6c 74 0d 18 56 05  |dow",,result..V.|
00003000  e1 0d 18 60 05 20 0d 18  6a 0f dd f2 78 75 70 28  |...`. ..j...xup(|
00003010  66 61 73 74 29 0d 18 74  11 21 72 65 73 75 6c 74  |fast)..t.!result|
00003020  3d 21 6d 61 69 6e 0d 18  7e 0f 72 65 73 75 6c 74  |=!main..~.result|
00003030  21 34 3d 31 32 0d 18 88  22 c8 99 20 22 57 69 6d  |!4=12...".. "Wim|
00003040  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003050  2c 72 65 73 75 6c 74 0d  18 92 0b 6d 61 78 24 3d  |,result....max$=|
00003060  22 22 0d 18 9c 11 70 74  72 3d 72 65 73 75 6c 74  |""....ptr=result|
00003070  21 32 38 0d 18 a6 05 f5  0d 18 b0 30 20 20 e7 20  |!28........0  . |
00003080  3f 70 74 72 3e 34 37 20  80 20 3f 70 74 72 3c 35  |?ptr>47 . ?ptr<5|
00003090  38 20 8c 20 6d 61 78 24  2b 3d bd 28 3f 70 74 72  |8 . max$+=.(?ptr|
000030a0  29 3a 70 74 72 2b 3d 31  0d 18 ba 23 fd 20 3f 70  |):ptr+=1...#. ?p|
000030b0  74 72 3c 34 38 20 84 20  3f 70 74 72 3e 35 37 20  |tr<48 . ?ptr>57 |
000030c0  84 20 a9 28 6d 61 78 24  29 3e 32 0d 18 c4 12 6d  |. .(max$)>2....m|
000030d0  61 78 63 6f 6c 3d bb 28  6d 61 78 24 29 0d 18 ce  |axcol=.(max$)...|
000030e0  22 e7 20 66 61 73 74 20  8c 20 6d 61 78 63 6f 6c  |". fast . maxcol|
000030f0  2b 3d 38 20 8b 20 6d 61  78 63 6f 6c 2b 3d 34 0d  |+=8 . maxcol+=4.|
00003100  18 d8 12 6d 61 78 24 3d  c3 28 6d 61 78 63 6f 6c  |...max$=.(maxcol|
00003110  29 0d 18 e2 15 24 28 72  65 73 75 6c 74 21 32 38  |)....$(result!28|
00003120  29 3d 6d 61 78 24 0d 18  ec 11 21 72 65 73 75 6c  |)=max$....!resul|
00003130  74 3d 21 6d 61 69 6e 0d  18 f6 0f 72 65 73 75 6c  |t=!main....resul|
00003140  74 21 34 3d 31 32 0d 19  00 0e 72 65 73 75 6c 74  |t!4=12....result|
00003150  21 38 3d 30 0d 19 0a 0f  72 65 73 75 6c 74 21 31  |!8=0....result!1|
00003160  32 3d 30 0d 19 14 22 c8  99 20 22 57 69 6d 70 5f  |2=0...".. "Wimp_|
00003170  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 72  |SetIconState",,r|
00003180  65 73 75 6c 74 0d 19 1e  05 e1 0d 19 28 05 20 0d  |esult.......(. .|
00003190  19 32 11 dd f2 78 64 6f  77 6e 28 66 61 73 74 29  |.2...xdown(fast)|
000031a0  0d 19 3c 11 21 72 65 73  75 6c 74 3d 21 6d 61 69  |..<.!result=!mai|
000031b0  6e 0d 19 46 0f 72 65 73  75 6c 74 21 34 3d 31 32  |n..F.result!4=12|
000031c0  0d 19 50 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..P".. "Wimp_Get|
000031d0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 72 65 73 75  |IconState",,resu|
000031e0  6c 74 0d 19 5a 0b 6d 61  78 24 3d 22 22 0d 19 64  |lt..Z.max$=""..d|
000031f0  11 70 74 72 3d 72 65 73  75 6c 74 21 32 38 0d 19  |.ptr=result!28..|
00003200  6e 05 f5 0d 19 78 30 20  20 e7 20 3f 70 74 72 3e  |n....x0  . ?ptr>|
00003210  34 37 20 80 20 3f 70 74  72 3c 35 38 20 8c 20 6d  |47 . ?ptr<58 . m|
00003220  61 78 24 2b 3d bd 28 3f  70 74 72 29 3a 70 74 72  |ax$+=.(?ptr):ptr|
00003230  2b 3d 31 0d 19 82 23 fd  20 3f 70 74 72 3c 34 38  |+=1...#. ?ptr<48|
00003240  20 84 20 3f 70 74 72 3e  35 37 20 84 20 a9 28 6d  | . ?ptr>57 . .(m|
00003250  61 78 24 29 3e 32 0d 19  8c 12 6d 61 78 63 6f 6c  |ax$)>2....maxcol|
00003260  3d bb 28 6d 61 78 24 29  0d 19 96 22 e7 20 66 61  |=.(max$)...". fa|
00003270  73 74 20 8c 20 6d 61 78  63 6f 6c 2d 3d 38 20 8b  |st . maxcol-=8 .|
00003280  20 6d 61 78 63 6f 6c 2d  3d 34 0d 19 a0 12 6d 61  | maxcol-=4....ma|
00003290  78 24 3d c3 28 6d 61 78  63 6f 6c 29 0d 19 aa 15  |x$=.(maxcol)....|
000032a0  24 28 72 65 73 75 6c 74  21 32 38 29 3d 6d 61 78  |$(result!28)=max|
000032b0  24 0d 19 b4 11 21 72 65  73 75 6c 74 3d 21 6d 61  |$....!result=!ma|
000032c0  69 6e 0d 19 be 0f 72 65  73 75 6c 74 21 34 3d 31  |in....result!4=1|
000032d0  32 0d 19 c8 0e 72 65 73  75 6c 74 21 38 3d 30 0d  |2....result!8=0.|
000032e0  19 d2 0f 72 65 73 75 6c  74 21 31 32 3d 30 0d 19  |...result!12=0..|
000032f0  dc 22 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.".. "Wimp_SetIc|
00003300  6f 6e 53 74 61 74 65 22  2c 2c 72 65 73 75 6c 74  |onState",,result|
00003310  0d 19 e6 05 e1 0d 19 f0  05 20 0d 19 fa 0f dd f2  |......... ......|
00003320  79 75 70 28 66 61 73 74  29 0d 1a 04 11 21 72 65  |yup(fast)....!re|
00003330  73 75 6c 74 3d 21 6d 61  69 6e 0d 1a 0e 0f 72 65  |sult=!main....re|
00003340  73 75 6c 74 21 34 3d 31  35 0d 1a 18 22 c8 99 20  |sult!4=15...".. |
00003350  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00003360  74 65 22 2c 2c 72 65 73  75 6c 74 0d 1a 22 0b 6d  |te",,result..".m|
00003370  61 78 24 3d 22 22 0d 1a  2c 11 70 74 72 3d 72 65  |ax$=""..,.ptr=re|
00003380  73 75 6c 74 21 32 38 0d  1a 36 05 f5 0d 1a 40 30  |sult!28..6....@0|
00003390  20 20 e7 20 3f 70 74 72  3e 34 37 20 80 20 3f 70  |  . ?ptr>47 . ?p|
000033a0  74 72 3c 35 38 20 8c 20  6d 61 78 24 2b 3d bd 28  |tr<58 . max$+=.(|
000033b0  3f 70 74 72 29 3a 70 74  72 2b 3d 31 0d 1a 4a 23  |?ptr):ptr+=1..J#|
000033c0  fd 20 3f 70 74 72 3c 34  38 20 84 20 3f 70 74 72  |. ?ptr<48 . ?ptr|
000033d0  3e 35 37 20 84 20 a9 28  6d 61 78 24 29 3e 31 0d  |>57 . .(max$)>1.|
000033e0  1a 54 12 6d 61 78 72 6f  77 3d bb 28 6d 61 78 24  |.T.maxrow=.(max$|
000033f0  29 0d 1a 5e 22 e7 20 66  61 73 74 20 8c 20 6d 61  |)..^". fast . ma|
00003400  78 72 6f 77 2b 3d 35 20  8b 20 6d 61 78 72 6f 77  |xrow+=5 . maxrow|
00003410  2b 3d 31 0d 1a 68 12 6d  61 78 24 3d c3 28 6d 61  |+=1..h.max$=.(ma|
00003420  78 72 6f 77 29 0d 1a 72  15 24 28 72 65 73 75 6c  |xrow)..r.$(resul|
00003430  74 21 32 38 29 3d 6d 61  78 24 0d 1a 7c 11 21 72  |t!28)=max$..|.!r|
00003440  65 73 75 6c 74 3d 21 6d  61 69 6e 0d 1a 86 0f 72  |esult=!main....r|
00003450  65 73 75 6c 74 21 34 3d  31 35 0d 1a 90 0e 72 65  |esult!4=15....re|
00003460  73 75 6c 74 21 38 3d 30  0d 1a 9a 0f 72 65 73 75  |sult!8=0....resu|
00003470  6c 74 21 31 32 3d 30 0d  1a a4 22 c8 99 20 22 57  |lt!12=0...".. "W|
00003480  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00003490  22 2c 2c 72 65 73 75 6c  74 0d 1a ae 05 e1 0d 1a  |",,result.......|
000034a0  b8 05 20 0d 1a c2 11 dd  f2 79 64 6f 77 6e 28 66  |.. ......ydown(f|
000034b0  61 73 74 29 0d 1a cc 11  21 72 65 73 75 6c 74 3d  |ast)....!result=|
000034c0  21 6d 61 69 6e 0d 1a d6  0f 72 65 73 75 6c 74 21  |!main....result!|
000034d0  34 3d 31 35 0d 1a e0 22  c8 99 20 22 57 69 6d 70  |4=15...".. "Wimp|
000034e0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000034f0  72 65 73 75 6c 74 0d 1a  ea 0b 6d 61 78 24 3d 22  |result....max$="|
00003500  22 0d 1a f4 11 70 74 72  3d 72 65 73 75 6c 74 21  |"....ptr=result!|
00003510  32 38 0d 1a fe 05 f5 0d  1b 08 30 20 20 e7 20 3f  |28........0  . ?|
00003520  70 74 72 3e 34 37 20 80  20 3f 70 74 72 3c 35 38  |ptr>47 . ?ptr<58|
00003530  20 8c 20 6d 61 78 24 2b  3d bd 28 3f 70 74 72 29  | . max$+=.(?ptr)|
00003540  3a 70 74 72 2b 3d 31 0d  1b 12 23 fd 20 3f 70 74  |:ptr+=1...#. ?pt|
00003550  72 3c 34 38 20 84 20 3f  70 74 72 3e 35 37 20 84  |r<48 . ?ptr>57 .|
00003560  20 a9 28 6d 61 78 24 29  3e 31 0d 1b 1c 12 6d 61  | .(max$)>1....ma|
00003570  78 72 6f 77 3d bb 28 6d  61 78 24 29 0d 1b 26 22  |xrow=.(max$)..&"|
00003580  e7 20 66 61 73 74 20 8c  20 6d 61 78 72 6f 77 2d  |. fast . maxrow-|
00003590  3d 35 20 8b 20 6d 61 78  72 6f 77 2d 3d 31 0d 1b  |=5 . maxrow-=1..|
000035a0  30 12 6d 61 78 24 3d c3  28 6d 61 78 72 6f 77 29  |0.max$=.(maxrow)|
000035b0  0d 1b 3a 15 24 28 72 65  73 75 6c 74 21 32 38 29  |..:.$(result!28)|
000035c0  3d 6d 61 78 24 0d 1b 44  11 21 72 65 73 75 6c 74  |=max$..D.!result|
000035d0  3d 21 6d 61 69 6e 0d 1b  4e 0f 72 65 73 75 6c 74  |=!main..N.result|
000035e0  21 34 3d 31 35 0d 1b 58  0e 72 65 73 75 6c 74 21  |!4=15..X.result!|
000035f0  38 3d 30 0d 1b 62 0f 72  65 73 75 6c 74 21 31 32  |8=0..b.result!12|
00003600  3d 30 0d 1b 6c 22 c8 99  20 22 57 69 6d 70 5f 53  |=0..l".. "Wimp_S|
00003610  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 72 65  |etIconState",,re|
00003620  73 75 6c 74 0d 1b 76 05  e1 0d ff                 |sult..v....|
0000362b