�     >!RunImage
� By  Robin Barnes
� For 32-bit machines
(� (c) BAU August 1993
2:
<heap%=�
Ffiletype%=&603
P!version$="1.98 (20 May 1993)"
Zmaxfrm%=100
d:
nindirln%=4096
x� block% &1000
�� bitmap% 768
�� palette% 64
�� scale% 48
�� menu% 256
�� indir% indirln%
�� code% &1000
�� input% 256
�� output% 256
�� map% 2048
�
� task% 4
�$task%="TASK"
�shift%=4
�
spsave%=�

:

�setheap

:

":ș "Wimp_Initialise",200,!task%,"Morph" � ,taskhandle%

,� � �error

6wdt%=1280:hgt%=1024

@wdtscl%=1280:hgtscl%=1024

J:

Tintflag%=16

^
select%=0

h5initial%=heap%!32:final%=heap%!40:tween%=heap%!48

r#poly%=heap%!56:offset%=heap%!64

|!initial%=0:!final%=0

�-!offset%=0:offset%!4=0:!poly%=4:poly%!4=0

�	�code

��tidy(claim%):�variable

��getwindows

�	�poll

��

�:

�� �error

�	� � �

�ș "OS_SpriteOp",60,0,0,1

�)ș "Wimp_CloseDown",taskhandle%,task%

�� � �,�$+" at line "+�(�)

��
:
� �getwindows
(sticn%=indir%:enicn%=indir%+indirln%
&2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
0Jș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"input",0 � ,,sticn%
:block%!44=0:block%!48=-hgt%
Dblock%!52=wdt%:block%!56=0
N.ș "Wimp_CreateWindow",,block%+4 � strwin%
XKș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"output",0 � ,,sticn%
bblock%!44=0:block%!48=-hgt%
lblock%!52=wdt%:block%!56=0
v.ș "Wimp_CreateWindow",,block%+4 � endwin%
�Iș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"info",0 � ,,sticn%
�.ș "Wimp_CreateWindow",,block%+4 � infwin%
�Iș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"save",0 � ,,sticn%
�.ș "Wimp_CreateWindow",,block%+4 � svewin%
�Jș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"save2",0 � ,,sticn%
�/ș "Wimp_CreateWindow",,block%+4 � svewin2%
�Jș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"morph",0 � ,,sticn%
�.ș "Wimp_CreateWindow",,block%+4 � mrpwin%
�Lș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"preview",0 � ,,sticn%
�.ș "Wimp_CreateWindow",,block%+4 � prvwin%
�Jș "Wimp_LoadTemplate",,block%+4,sticn%,enicn%,-1,"stats",0 � ,,sticn%
�/ș "Wimp_CreateWindow",,block%+4 � statwin%
�ș "Wimp_CloseTemplate"
!block%=infwin%:block%!4=4
"ș "Wimp_GetIconState",,block%
vertxt%=block%!28
 !block%=svewin%:block%!4=2
*"ș "Wimp_GetIconState",,block%
4filename%=block%!28
>!block%=svewin2%:block%!4=0
H"ș "Wimp_GetIconState",,block%
Rfilename2%=block%!28
\!block%=mrpwin%:block%!4=31
f"ș "Wimp_GetIconState",,block%
pendfrm%=block%!28
z.block%!4=32:ș "Wimp_GetIconState",,block%
�strfrm%=block%!28
�.block%!4=37:ș "Wimp_GetIconState",,block%
�sprname%=block%!28
�.block%!4=38:ș "Wimp_GetIconState",,block%
�wdtxt%=block%!28
�.block%!4=39:ș "Wimp_GetIconState",,block%
�hgtxt%=block%!28
�!block%=statwin%:block%!4=7
�"ș "Wimp_GetIconState",,block%
�totme%=block%!28
�.block%!4=11:ș "Wimp_GetIconState",,block%
�elptme%=block%!28
�.block%!4=15:ș "Wimp_GetIconState",,block%
avtme%=block%!28
$(vertxt%)=version$+�(0)
�
$:
.� �iconbar
8!block%=-1:block%!4=0
Bblock%!8=0:block%!12=68
Lblock%!16=68
Vblock%!12=68
`block%!20=&2002
j$(block%+24)="!morph"
t(ș "Wimp_CreateIcon",,block% � icon%
~
=icon%
�:
�� �poll
�iconbar%=�iconbar
��
�-ș "Wimp_Poll",&FFF9F8B0,block% � reason%
�Ȏ reason% �
�� 1:�redraw
�$� 2:ș "Wimp_OpenWindow",,block%
�%� 3:ș "Wimp_CloseWindow",,block%
�� 6:�click
�� 7:�dragbox
�� 8:�keypress
� 9:�menuselect

� 17,18:�message

� (intflag% � 3)=1 � �morph
(�
2� �
<�
F:
P� �message
Zmess%=block%!16
dȎ mess% �
n2� &00000:ș "Wimp_CloseDown",taskhandle%,task%
x+� 1:� block%!40=&FF9 � block%!40=&003 �
�block%!36=-1
�$$(block%+44)="<Wimp$Scrap>"+�(0)
�"block%!12=block%!8:block%!16=2
�!block%=60
�,ș "Wimp_SendMessage",17,block%,block%!4
��
�:
�� 2
�� spsave% �
�%$(sprname%)=�string(block%+44)+�0
�2!block%=svewin2%:ș "Wimp_CloseWindow",,block%
�!block%=mrpwin%:block%!4=37
�block%!8=0:block%!12=0
"ș "Wimp_SetIconState",,block%
�
�save(block%+44,save%)
"
� save% �
,&$(filename%)=�string(block%+44)+�0
6block%!12=block%!8
@block%!16=3
J,ș "Wimp_SendMessage",17,block%,block%!4
T1!block%=svewin%:ș "Wimp_CloseWindow",,block%
^�
hș "Wimp_CreateMenu",,-1
r�
|:
�#� &00003:�load(block%+44,load%)
�
� load% �
�>� block%!40=filetype% � $(filename%)=�string(block%+44)+�0
�"block%!12=block%!8:block%!16=4
�,ș "Wimp_SendMessage",17,block%,block%!4
��
�� &400C1:�translate
��
��
�:
�� �click
�xpnt%=!block%
�ypnt%=block%!4
butn%=block%!8
window%=block%!12
icon%=block%!16
&:
0Ȏ window% �
:� -2
D3� icon%=iconbar% � (intflag% � 4)=0 � butn%=4 �
N4!block%=endwin%:ș "Wimp_GetWindowState",,block%
X ș "Wimp_OpenWindow",,block%
b4!block%=strwin%:ș "Wimp_GetWindowState",,block%
l ș "Wimp_OpenWindow",,block%
v�
�3� icon%=iconbar% � (intflag% � 4)=4 � butn%=4 �
�4!block%=mrpwin%:ș "Wimp_GetWindowState",,block%
� ș "Wimp_OpenWindow",,block%
�4!block%=prvwin%:ș "Wimp_GetWindowState",,block%
� ș "Wimp_OpenWindow",,block%
��
�*� icon%=iconbar% � butn%=2 � �iconmenu
�:
�
� svewin%
�� icon%=0 � butn%=4 �
��save(filename%,save%)
�
� save% �
�3!block%=block%!12:ș "Wimp_CloseWindow",,block%
ș "Wimp_CreateMenu",,-1
�
�
 !� icon%=3 � (butn% � 112)>0 �
*<!block%=block%!12:block%!40=block%!12:block%!4=block%!16
4"ș "Wimp_GetIconState",,block%
>'ș "Wimp_GetWindowState",,block%+40
H7block%!4=5:block%!8+=block%!44:block%!12+=block%!56
R-block%!16+=block%!44:block%!20+=block%!56
\Cblock%!24=0:block%!28=0:block%!32=&7FFFFFFF:block%!36=&7FFFFFFF
fș "Wimp_DragBox",,block%
p
spsave%=�
z�
�:
�� strwin%,endwin%
�� butn%=2 � �editmenu
�!block%=block%!12
�$ș "Wimp_GetWindowState",,block%
�"xpnt%=xpnt%-block%!4+block%!20
�(ypnt%=ypnt%-block%!16+block%!24+hgt%
�(pntnum%=�locate(!block%,xpnt%,ypnt%)
�� butn%=1024 �
��tidy(claim%)
�� claim% �
�
�variable
�� pntnum%<0 �
	pntnum%=!initial%
	,initial%!(4+8*pntnum%)=xpnt%*(1<<shift%)
	,initial%!(8+8*pntnum%)=ypnt%*(1<<shift%)
	$/final%!(4+8*pntnum%)=initial%!(4+8*pntnum%)
	./final%!(8+8*pntnum%)=initial%!(8+8*pntnum%)
	8)!initial%=pntnum%+1:!final%=pntnum%+1
	B�
	Lpolnum%=!offset%
	Vpoladr%=!poly%
	`poly%!(4+poladr%)=pntnum%
	j!poloff%=offset%!(4+4*polnum%)
	t)poly%!(4+poloff%)=poly%!(4+poloff%)+1
	~!poly%=poladr%+4
	�%� poly%!(4+poloff%)>3 � butn%=256
	��
	�	�full
	��
	��
	�� butn%=256 �
	��tidy(claim%)
	�� claim% �
	�
�variable
	�polnum%=!offset%
	�!poloff%=offset%!(4+4*polnum%)
	�� poly%!(4+poloff%)>0 �
poladr%=!poly%

pntnum%=poly%!(8+poloff%)
poly%!(4+poladr%)=pntnum%
)poly%!(4+poloff%)=poly%!(4+poloff%)+1
(!poladr%+=4:!offset%=polnum%+1
25offset%!(8+4*polnum%)=poladr%:poly%!(4+poladr%)=0
<!poly%=poladr%+4
F0ș "Wimp_ForceRedraw",strwin%,0,-hgt%,wdt%,0
P0ș "Wimp_ForceRedraw",endwin%,0,-hgt%,wdt%,0
Z�
d�
n	�full
x�
��
�� butn%=16 � pntnum%>=0 �
�)block%!24=block%!4:block%!28=block%!8
�+block%!32=block%!12:block%!36=block%!16
�block%!4=7
�ș "Wimp_DragBox",,block%
��
�� pntnum%>=0 �
�8block%!4=0:block%!8=-hgt%:block%!12=wdt%:block%!16=0
�!block%=strwin%
��fastredraw
�8block%!4=0:block%!8=-hgt%:block%!12=wdt%:block%!16=0
�!block%=endwin%
�fastredraw
select%=pntnum%
�
":
,
� mrpwin%
6&� icon%>=27 � icon%<31 � butn%>0 �
@.input%!(40+(icon% � 2)*2)+=2*(icon% � 1)-1
J=�limit(input%!40,0,input%!44):�limit(input%!44,1,maxfrm%)
T $(endfrm%)=�(input%!44)+�(0)
^ $(strfrm%)=�(input%!40)+�(0)
h� inbetween:� boundbox
r,!block%=block%!12:block%!8=0:block%!12=0
|.block%!4=31:ș "Wimp_SetIconState",,block%
�.block%!4=32:ș "Wimp_SetIconState",,block%
�� !(4+heap%!24)>0 �
�2ș "OS_SpriteOp",512+25,heap%!24,(heap%!24)+16
�3�claim(heap%+24,32,claim%):!(heap%!24)=heap%!28
�
�variable
��
�0ș "Wimp_ForceRedraw",prvwin%,0,-hgt%,wdt%,0
��
�'� icon%=33 � butn%>0 � input%!48=13
�'� icon%=34 � butn%>0 � input%!48=15
�'� icon%=35 � butn%>0 � input%!48=21
�v� icon%=33 � butn%=1 � !block%=block%!12:block%!8=1<<21:block%!12=1<<21:block%!4=33:ș "Wimp_SetIconState",,block%
�v� icon%=34 � butn%=1 � !block%=block%!12:block%!8=1<<21:block%!12=1<<21:block%!4=34:ș "Wimp_SetIconState",,block%
v� icon%=35 � butn%=1 � !block%=block%!12:block%!8=1<<21:block%!12=1<<21:block%!4=35:ș "Wimp_SetIconState",,block%
1� icon%=36 � butn%>0 � intflag%=intflag% � 16
-� icon%=40 � (intflag% � 1)=1 � butn%>0 �
&intflag%=intflag% � � 2
0)!block%=block%!12:block%!12=&F0000000
:Ablock%!4=40:block%!8=&E0000000:ș "Wimp_SetIconState",,block%
DAblock%!4=41:block%!8=&C0000000:ș "Wimp_SetIconState",,block%
N�
X-� icon%=40 � (intflag% � 1)=0 � butn%>0 �
btime%=�:frmtme%=�:frmdne%=0
l4ș "OS_ReadModeVariable",input%!48,4 � ,,sprwdt%
v4ș "OS_ReadModeVariable",input%!48,5 � ,,sprhgt%
� sprwdt%=wdtscl%/(1<<sprwdt%)
� sprhgt%=hgtscl%/(1<<sprhgt%)
�4ș "OS_ReadModeVariable",input%!48,7 � ,,scrsze%
� scrsze%=(scrsze%+&5F)� � &1F
�#�claim(heap%+24,scrsze%,claim%)
�� claim% �
�
�variable
�!(heap%!24)=heap%!28
�Iș "OS_SpriteOp",256+15,heap%!24,"output",0,sprwdt%,sprhgt%,input%!48
��translate
�*input%!52=(1280 � sprwdt%)*(1<<shift%)
�*input%!56=(1024 � sprhgt%)*(1<<shift%)
�input%!60=1279*(1<<shift%)

input%!64=1023*(1<<shift%)

(!input%=input%!60:input%!4=input%!64

� morph

 intflag%=intflag% � 1

*0!block%=block%!12:block%!8=0:block%!12=&F000

4� set%=27 � 39

>0block%!4=set%:ș "Wimp_SetIconState",,block%

H
� set%

R6block%!4=40:block%!8=&E0000000:block%!12=&F0000000

\"ș "Wimp_SetIconState",,block%

f0ș "Wimp_ForceRedraw",prvwin%,0,-hgt%,wdt%,0

p�

z	�full

��

��

�� icon%=41 � butn%>0 �

�intflag%=intflag% � 2

�)!block%=block%!12:block%!12=&F0000000

�Ablock%!4=40:block%!8=&C0000000:ș "Wimp_SetIconState",,block%

�Ablock%!4=41:block%!8=&E0000000:ș "Wimp_SetIconState",,block%

��

�� icon%=42 � butn%>0 �

�� !(4+heap%!24)>0 �

�2ș "OS_SpriteOp",512+25,heap%!24,(heap%!24)+16

�3�claim(heap%+24,32,claim%):!(heap%!24)=heap%!28

��claim(heap%+72,32,claim%)

�variable
�
intflag%=intflag% � � 7
$4!block%=block%!12:block%!8=&2000:block%!12=&F000
.� set%=27 � 30
80block%!4=set%:ș "Wimp_SetIconState",,block%
B
� set%
L=block%!4=31:block%!8=&F000:ș "Wimp_SetIconState",,block%
V.block%!4=32:ș "Wimp_SetIconState",,block%
`.block%!4=37:ș "Wimp_SetIconState",,block%
j.block%!4=38:ș "Wimp_SetIconState",,block%
t=block%!4=39:ș "Wimp_SetIconState",,block%:block%!8=&B000
~� set%=33 � 36
�0block%!4=set%:ș "Wimp_SetIconState",,block%
�
� set%
�*block%!12=&F0000000:block%!8=&C0000000
�.block%!4=40:ș "Wimp_SetIconState",,block%
�.block%!4=41:ș "Wimp_SetIconState",,block%
�1!block%=mrpwin%:ș "Wimp_CloseWindow",,block%
�1!block%=prvwin%:ș "Wimp_CloseWindow",,block%
��
�C� icon%=43 � ș "Wimp_CreateMenu",,svewin2%,!block%-64,block%!4
�:
�
� prvwin%
�� butn%=2 � �prevmenu
:

� svewin2%
(� (block%!8 � &50)>0 � block%!16=2 �
<!block%=block%!12:block%!40=block%!12:block%!4=block%!16
("ș "Wimp_GetIconState",,block%
2'ș "Wimp_GetWindowState",,block%+40
<7block%!4=5:block%!8+=block%!44:block%!12+=block%!56
F-block%!16+=block%!44:block%!20+=block%!56
PCblock%!24=0:block%!28=0:block%!32=&7FFFFFFF:block%!36=&7FFFFFFF
Zș "Wimp_DragBox",,block%
d
spsave%=�
n�
x�
��
�:
�� �fastredraw
�*ș "Wimp_UpdateWindow",,block% � flag%
�7� !block%=strwin% � point%=initial% � point%=final%
�ȕ flag%
�9xsc%=block%!20-block%!4:ysc%=block%!24-block%!16+hgt%
�)xpl%=point%!(4+8*select%)/(1<<shift%)
�)ypl%=point%!(8+8*select%)/(1<<shift%)
�ș "Wimp_SetColour",15
�'ȓ Ȑ xpl%-8-xsc%,ypl%-8-ysc%,15,15
�)xpl%=point%!(4+8*pntnum%)/(1<<shift%)
�)ypl%=point%!(8+8*pntnum%)/(1<<shift%)
ș "Wimp_SetColour",14
!poloff%=offset%!(4+4*polnum%)
2� poly%!(4+poloff%)>0 � ș "Wimp_SetColour",11
"'ȓ Ȑ xpl%-8-xsc%,ypl%-8-ysc%,15,15
,� xpl%-xsc%,ypl%-ysc%
6polnum%=!offset%
@!poloff%=offset%!(4+4*polnum%)
J� poly%!(4+poloff%)>1 �
Tvrt%=poly%!poladr%
^&xpl%=point%!(4+8*vrt%)/(1<<shift%)
h&ypl%=point%!(8+8*vrt%)/(1<<shift%)
rș "Wimp_SetColour",2
|� xpl%-xsc%,ypl%-ysc%
��
�*ș "Wimp_GetRectangle",,block% � flag%
��
��
�:
�� �dragbox
�$ș "Wimp_GetPointerInfo",,block%
�window%=block%!12
�icon%=block%!16
�:
�Ȏ window% �
�� strwin%,endwin%
�xpnt%=!block%
ypnt%=block%!4
!block%=block%!12
$ș "Wimp_GetWindowState",,block%
&"xpnt%=xpnt%-block%!4+block%!20
0(ypnt%=ypnt%-block%!16+block%!24+hgt%
:7� !block%=strwin% � point%=initial% � point%=final%
D*point%!(4+8*select%)=xpnt%*(1<<shift%)
N*point%!(8+8*select%)=ypnt%*(1<<shift%)
X0ș "Wimp_ForceRedraw",!block%,0,-hgt%,wdt%,0
b
l%block%!20=window%:block%!24=icon%
v(block%!28=!block%:block%!32=block%!4
�X� spsave% � $(block%+44)=�leaf(filename2%)+�(0) � $(block%+44)=�leaf(filename%)+�(0)
�&!block%=60:block%!12=0:block%!16=1
�7ș "Wimp_SendMessage",17,block%,block%!20,block%!24
��
��
�:
�� �keypress
�window%=!block%
�icon%=block%!4
�chr%=block%!24
�F� chr%<>13 � (chr%<�"0" � chr%>�"9") � ș "Wimp_ProcessKey",chr%:�
�Ȏ window% �
�
� svewin%
� icon%=2 � chr%=13 �
�save(filename%,save%)

� save% �
 !ș "Wimp_CloseWindow",,block%
*ș "Wimp_CreateMenu",,-1
4�
>:
H
� mrpwin%
R� icon%=31 � icon%=32 �
\!input%!44=�(�string(endfrm%))
f!input%!40=�(�string(strfrm%))
p=�limit(input%!40,0,input%!44):�limit(input%!44,1,maxfrm%)
z $(endfrm%)=�(input%!44)+�(0)
� $(strfrm%)=�(input%!40)+�(0)
�� inbetween:� boundbox
�block%!8=0:block%!12=0
�.block%!4=31:ș "Wimp_SetIconState",,block%
�.block%!4=32:ș "Wimp_SetIconState",,block%
�� !(4+heap%!24)>0 �
�2ș "OS_SpriteOp",512+25,heap%!24,(heap%!24)+16
�3�claim(heap%+24,32,claim%):!(heap%!24)=heap%!28
�
�variable
��
�0ș "Wimp_ForceRedraw",prvwin%,0,-hgt%,wdt%,0
��
�:
� icon%=38 � icon%=39 �
wdtscl%=�(�string(wdtxt%))
hgtscl%=�(�string(hgtxt%))
$block%!8=0:block%!12=0
.1block%!4=icon%:ș "Wimp_SetIconState",,block%
8� !(4+heap%!24)>0 �
B2ș "OS_SpriteOp",512+25,heap%!24,(heap%!24)+16
L3�claim(heap%+24,32,claim%):!(heap%!24)=heap%!28
V
�variable
`�
j0ș "Wimp_ForceRedraw",prvwin%,0,-hgt%,wdt%,0
t�
~�
��
�:
�� �code
�,ș "OS_File",&FF,"<Obey$Dir>.code",code%
�boundbox=!code%+code%
�scanline=code%!4+code%
�point=code%!8+code%
�morph=code%!12+code%
�preview=code%!16+code%
�inbetween=code%!20+code%
�map=code%!24+code%
�colour=code%!28+code%
delete=code%!32+code%

locate=code%!36+code%
group=code%!40+code%
ungroup=code%!44+code%
(heap=code%!48+code%
2input=code%+52
<output=code%+56
F:
P!!input=input%:!output=output%
Zinput%!8=tween%
dinput%!12=offset%
ninput%!16=poly%
xinput%!32=initial%
�input%!36=final%
�input%!40=0
�input%!44=20
�input%!48=13
��
�:
� � �locate(window%,xps%,yps%)
�1� window%=strwin% � input%!68=0 � input%!68=1
�input%!72=-1
�!input%=xps%*(1<<shift%)
�input%!4=yps%*(1<<shift%)
�� locate
�
=!output%
:

� �redraw
*ș "Wimp_RedrawWindow",,block% � flag%
"ȕ flag%
,window%=!block%
6Ȏ window% �
@� strwin%,endwin%:�editdraw
J� prvwin%:�previewdraw
T�
^*ș "Wimp_GetRectangle",,block% � flag%
h�
r�
|:
�� �editdraw
�9xsc%=block%!20-block%!4:ysc%=block%!24-block%!16+hgt%
�7� !block%=strwin% � point%=initial% � point%=final%
�;� !block%=strwin% � !(4+heap%!8)>0 � (intflag% � 8)>0 �
�Lș "OS_SpriteOp",512+52,heap%!8,(heap%!8)+16,-xsc%,-ysc%,,scale%,bitmap%
��
�<� !block%=endwin% � !(4+heap%!16)>0 � (intflag% � 8)>0 �
�Uș "OS_SpriteOp",512+52,heap%!16,(heap%!16)+16,-xsc%,-ysc%,,scale%+16,bitmap%+256
��
�� !initial%>0 �
�� draw%=0 � !initial%-1
�E� draw%=select% � ș "Wimp_SetColour",14 � ș "Wimp_SetColour",15
�'xpl%=point%!(4+8*draw%)/(1<<shift%)
'ypl%=point%!(8+8*draw%)/(1<<shift%)
'ȓ Ȑ xpl%-8-xsc%,ypl%-8-ysc%,15,15
� draw%
&�
0� !offset%>0 � �mesh
:ș "Wimp_SetColour",2
Dpolnum%=!offset%
N!poloff%=offset%!(4+4*polnum%)
X
drwsde%=1
b!ȕ drwsde%<=poly%!(4+poloff%)
l$vrt%=poly%!(4+poloff%+4*drwsde%)
v&xpl%=point%!(4+8*vrt%)/(1<<shift%)
�&ypl%=point%!(8+8*vrt%)/(1<<shift%)
�?� drwsde%=1 � � xpl%-xsc%,ypl%-ysc% � � xpl%-xsc%,ypl%-ysc%
�drwsde%+=1
��
��
�:
�� �previewdraw
�9xsc%=block%!20-block%!4:ysc%=block%!24-block%!16+hgt%
�� !(4+heap%!24)>0 �
�Uș "OS_SpriteOp",512+52,heap%!24,(heap%!24)+16,-xsc%,-ysc%,,scale%+32,bitmap%+512
��
�point%=tween%
�ș "Wimp_SetColour",7
� draw%=0 � !offset%-1
poloff%=offset%!(4+4*draw%)
#� drwsde%=1 � poly%!(4+poloff%)
 $vrt%=poly%!(4+poloff%+4*drwsde%)
*3xpl%=point%!(4+8*vrt%)/(1<<shift%)*wdtscl%/1280
43ypl%=point%!(8+8*vrt%)/(1<<shift%)*hgtscl%/1024
>?� drwsde%=1 � � xpl%-xsc%,ypl%-ysc% � � xpl%-xsc%,ypl%-ysc%
H
� drwsde%
R� draw%
\�
f�
p:
z� �mesh
�ș "Wimp_SetColour",7
�� draw%=0 � !offset%-1
�poloff%=offset%!(4+4*draw%)
�#� drwsde%=1 � poly%!(4+poloff%)
�$vrt%=poly%!(4+poloff%+4*drwsde%)
�&xpl%=point%!(4+8*vrt%)/(1<<shift%)
�&ypl%=point%!(8+8*vrt%)/(1<<shift%)
�?� drwsde%=1 � � xpl%-xsc%,ypl%-ysc% � � xpl%-xsc%,ypl%-ysc%
�
� drwsde%
�� draw%
��
�:
�� �iconmenu
$(menu%)="Morph"
menu%!12=&70207
menu%!16=80:menu%!20=40
$menu%!24=0
.1menu%!28=0:menu%!32=infwin%:menu%!36=&7000019
8$(menu%+40)="Info"
B-menu%!52=128:menu%!56=0:menu%!60=&7000019
L$(menu%+64)="Quit"
V,ș "Wimp_CreateMenu",,menu%,xpnt%-64,176
`menno%=1
j�
t:
~� �editmenu
�$(menu%)="Morph"
�menu%!12=&70207
�menu%!16=208:menu%!20=40
�menu%!24=0
�1menu%!28=2:menu%!32=svewin%:menu%!36=&7000011
�$(menu%+40)="Save"
�)menu%!52=(intflag% � 8)>>3:menu%!56=0
�-menu%!60=&7400011 � �(!(4+heap%!8)>0)<<22
�$(menu%+64)="Show Sprites"
�!menu%!76=0:menu%!80=menu%+124
�*menu%!84=&7400011 � �(!initial%>0)<<22
�$(menu%+88)="Point"
menu%!100=128:menu%!104=0

@menu%!108=&7400011 � (�(!(4+heap%!8)>0) � �(!offset%>0))<<22
$(menu%+112)="Morph"
$(menu%+124)="Point"
(menu%!136=&70207
2menu%!140=208:menu%!144=40
<menu%!148=0
F.menu%!152=0:menu%!156=0:menu%!160=&7000011
P$(menu%+164)="Delete"
Z.menu%!176=2:menu%!180=0:menu%!184=&7000011
d$(menu%+188)="Delete All"
n.menu%!200=0:menu%!204=0:menu%!208=&7000011
x$(menu%+212)="Group"
�0menu%!224=128:menu%!228=0:menu%!232=&7000011
�$(menu%+236)="Ungroup"
�+ș "Wimp_CreateMenu",,menu%,xpnt%,ypnt%
� menno%=3+(block%!12=strwin%)
��
�:
�� �prevmenu
�$(menu%)="Morph"
�menu%!12=&70207
�menu%!16=208:menu%!20=40
�menu%!24=0
�2menu%!28=2:menu%!32=statwin%:menu%!36=&7000011
�$(menu%+40)="Statistics"
menu%!52=0:menu%!56=0
/menu%!60=&7400011 � �((intflag% � 3)=0)<<22
$(menu%+64)="Preview"
"menu%!76=128:menu%!80=0
,/menu%!84=&7400011 � �((intflag% � 3)=1)<<22
6$(menu%+88)="Single Task"
@+ș "Wimp_CreateMenu",,menu%,xpnt%,ypnt%
Jmenno%=4
T�
^:
h� �menuselect
rresult%=!block%
|Ȏ menno% �
�� 1
�9� result%=1 � ș "Wimp_CloseDown",taskhandle%,task%:�
�	� 2,3
�� result%=1 �
�intflag%=intflag% � 8
�0ș "Wimp_ForceRedraw",strwin%,0,-hgt%,wdt%,0
�0ș "Wimp_ForceRedraw",endwin%,0,-hgt%,wdt%,0
��
�� result%=2 �
�� block%!4=0 � �delete
�� block%!4=1 �
�#select%=0:!initial%=0:!final%=0
�-!offset%=0:offset%!4=0:!poly%=4:poly%!4=0
�tidy(claim%):�variable
�
� block%!4=2 � �group
&� block%!4=3 � �ungroup
00ș "Wimp_ForceRedraw",strwin%,0,-hgt%,wdt%,0
:0ș "Wimp_ForceRedraw",endwin%,0,-hgt%,wdt%,0
D�
N� result%=3 �
X$bndsze%=(&1F+32*!offset%)� � &1F
b#�claim(heap%+72,bndsze%,claim%)
l� claim% �
v
�variable
�� inbetween:� boundbox
�intflag%=intflag% � 4
�1!block%=strwin%:ș "Wimp_CloseWindow",,block%
�1!block%=endwin%:ș "Wimp_CloseWindow",,block%
�4!block%=prvwin%:ș "Wimp_GetWindowState",,block%
� ș "Wimp_OpenWindow",,block%
�4!block%=mrpwin%:ș "Wimp_GetWindowState",,block%
� ș "Wimp_OpenWindow",,block%
��map(0)
�� !(4+heap%!16)>0 � �map(1)
��
�	�full
��
$(totme%)=�time(0)+�(0)
$(elptme%)=�time(0)+�(0)
$(avtme%)=�time(0)+�(0)
 �
*$ș "Wimp_GetPointerInfo",,block%
4.� result%<3 � (block%!8 � 1)=1 � �editmenu
>� 4
H-� result%=1 � (intflag% � 3)=0 � �preview
R0� result%=2 � (intflag% � 3)=1 � �singletask
\�
f�
p:
z
� �delete
�input%!72=select%
�� delete
�select%-=1
�� select%<0 � select%=0
��tidy(claim%):�variable
��
�:
�� �group
�input%!68=menno%-2
�0� menno%=2 � point%=initial% � point%=final%
� !input%=point%!(4+8*select%)
�!input%!4=point%!(8+8*select%)
�input%!72=select%
� locate
ȕ !output%>=0
input%!76=!output%
$� group
..� !output%>input%!72 � !output%=!output%-1
8input%!72=!output%
B� locate
L�
Vselect%=input%!72
`�tidy(claim%):�variable
j�
t:
~� �ungroup
�input%!72=select%
�
� ungroup
�pntnum%=!initial%
�ȕ !output%>pntnum%
��tidy(claim%):�variable
�� claim% �
�1initial%!(4+8*pntnum%)=initial%!(4+8*select%)
�1initial%!(8+8*pntnum%)=initial%!(8+8*select%)
�-final%!(4+8*pntnum%)=final%!(4+8*select%)
�-final%!(8+8*pntnum%)=final%!(8+8*select%)
�pntnum%+=1
��
	�full

�
�
-� !output%>!initial% � select%=!output%-1
(%!initial%=pntnum%:!final%=pntnum%
2�
<:
F� �save(buffer%,� save%)
P� �
Z� � � �errfile:�
dfile$=�string(buffer%)
n<save%=�file$,".") � �file$,":") � �file$,"<Wimp$Scrap>")
x
� save% �
�"ș "OS_Find",&80,file$ � file%
�/ș "OS_GBPB",2,file%,initial%,4+8*!initial%
�+ș "OS_GBPB",2,file%,final%,4+8*!final%
�-ș "OS_GBPB",2,file%,offset%,8+4*!offset%
�'ș "OS_GBPB",2,file%,poly%,4+!poly%
�ș "OS_Find",&00,file%
�$ș "OS_File",&12,file$,filetype%
��
�
!block%=0
�B$(block%+4)="To save, drag file icon to directory viewer"+�(0)
�+ș "Wimp_ReportError",block%,1,"!Morph"
��
�� �
�
:
� �errfile
"
!block%=0
,$(block%+4)=�$+�(0)
6+ș "Wimp_ReportError",block%,1,"!Morph"
@save%=�
J�
T:
^� �load(buffer%,� load%)
hfile$=�string(buffer%)
rload%=�
|*� block%!20=strwin% � block%!40=&FF9 �
�(ș "OS_File",&05,file$ � ,,,,flesze%
�#flesze%=(flesze%+&101F) � � &1F
�"�claim(heap%+8,flesze%,claim%)
�� claim% �
�
�variable
�!(heap%!8)=heap%!12
�)ș "OS_SpriteOp",256+10,heap%!8,file$
��translate
�0ș "Wimp_ForceRedraw",strwin%,0,-hgt%,wdt%,0
�!load%=�:intflag%=intflag% � 8
��
�	�full
��
 �
 :
 ;� block%!20=endwin% � block%!40=&FF9 � !(4+heap%!8)>0 �
 &(ș "OS_File",&05,file$ � ,,,,flesze%
 0#flesze%=(flesze%+&101F) � � &1F
 :#�claim(heap%+16,flesze%,claim%)
 D� claim% �
 N
�variable
 X!(heap%!16)=heap%!20
 b*ș "OS_SpriteOp",256+10,heap%!16,file$
 l�translate
 v0ș "Wimp_ForceRedraw",endwin%,0,-hgt%,wdt%,0
 �!load%=�:intflag%=intflag% � 8
 ��
 �	�full
 ��
 ��
 �:
 �E� (block%!20=strwin% � block%!20=endwin%) � block%!40=filetype% �
 �"ș "OS_Find",&40,file$ � file%
 �#ș "OS_GBPB",4,file%,initial%,4
 ��tidy(claim%):�variable
 �� claim% �
 �/ș "OS_GBPB",4,file%,initial%+4,8*!initial%
 �!ș "OS_GBPB",4,file%,final%,4
!+ș "OS_GBPB",4,file%,final%+4,8*!final%
!�
!	�full
! �
!*"ș "OS_GBPB",4,file%,offset%,4
!4�tidy(claim%):�variable
!>B� claim% � ș "OS_GBPB",4,file%,offset%+4,4+4*!offset% � �full
!H ș "OS_GBPB",4,file%,poly%,4
!R�tidy(claim%):�variable
!\:� claim% � ș "OS_GBPB",4,file%,poly%+4,!poly% � �full
!fș "OS_Find",&00,file%
!p0ș "Wimp_ForceRedraw",strwin%,0,-hgt%,wdt%,0
!z0ș "Wimp_ForceRedraw",endwin%,0,-hgt%,wdt%,0
!�load%=�
!��
!��
!�:
!�� �leaf(buffer%)
!�
bufoff%=0
!�str$=""
!�(ȕ buffer%?bufoff%>=32 � bufoff%<255
!� str$=str$+�(buffer%?bufoff%)
!�"� buffer%?bufoff%=46 � str$=""
!�bufoff%+=1
!��
!�	=str$
":
"� �string(buffer%)
"
bufoff%=0
"$str$=""
".(ȕ buffer%?bufoff%>=32 � bufoff%<255
"8 str$=str$+�(buffer%?bufoff%)
"Bbufoff%+=1
"L�
"V	=str$
"`:
"j� �limit(� num%,low%,high%)
"t� num%<low% � num%=low%
"~� num%>high% � num%=high%
"��
"�:
"�� �time(tme%)
"�tme%=tme% � 100
"�;=�(tme% � 3600)+":"+�((tme% � 60)� 60)+":"+�(tme% � 60)
"�:
"�� �translate
"�� !(4+heap%!8)>0 �
"�8ș "OS_ReadModeVariable",!(56+heap%!8),4 � ,,!scale%
"�9ș "OS_ReadModeVariable",!(56+heap%!8),5 � ,,scale%!4
"�-ș "OS_ReadModeVariable",�,4 � ,,scale%!8
"�.ș "OS_ReadModeVariable",�,5 � ,,scale%!12
#� !(48+heap%!8)>44 �
#
� col%=0 � 15
#*palette%!(col%*4)=!(60+col%*8+heap%!8)
#
� col%
#(Eș "ColourTrans_SelectTable",!(56+heap%!8),palette%,-1,-1,bitmap%
#2�
#<>ș "ColourTrans_SelectTable",!(56+heap%!8),0,-1,-1,bitmap%
#F�
#P�
#Z� !(4+heap%!16)>0 �
#d;ș "OS_ReadModeVariable",!(56+heap%!16),4 � ,,scale%!16
#n;ș "OS_ReadModeVariable",!(56+heap%!16),5 � ,,scale%!20
#x.ș "OS_ReadModeVariable",�,4 � ,,scale%!24
#�.ș "OS_ReadModeVariable",�,5 � ,,scale%!28
#�� !(48+heap%!16)>44 �
#�� col%=0 � 15
#�+palette%!(col%*4)=!(60+col%*8+heap%!16)
#�
� col%
#�Jș "ColourTrans_SelectTable",!(56+heap%!16),palette%,-1,-1,bitmap%+256
#��
#�Cș "ColourTrans_SelectTable",!(56+heap%!16),0,-1,-1,bitmap%+256
#��
#��
#�� !(4+heap%!24)>0 �
#�;ș "OS_ReadModeVariable",!(56+heap%!24),4 � ,,scale%!32
#�;ș "OS_ReadModeVariable",!(56+heap%!24),5 � ,,scale%!36
$.ș "OS_ReadModeVariable",�,4 � ,,scale%!40
$.ș "OS_ReadModeVariable",�,5 � ,,scale%!44
$Cș "ColourTrans_SelectTable",!(56+heap%!24),0,-1,-1,bitmap%+512
$"�
$,�
$6:
$@� �morph
$J� morph
$T� !output%<0 �
$^2ș "OS_SpriteOp",512+60,heap%!24,(heap%!24)+16
$h3�("ScreenSave "+�string(sprname%)+�(input%!40))
$r� 128 Ȝ 0:�
$|ș "OS_SpriteOp",60,0,0,1
$�0ș "Wimp_ForceRedraw",prvwin%,0,-hgt%,wdt%,0
$�input%!40+=1
$�� input%!40>input%!44 �
$�2ș "OS_SpriteOp",512+25,heap%!24,(heap%!24)+16
$�3�claim(heap%+24,32,claim%):!(heap%!24)=heap%!28
$�
�variable
$�intflag%=intflag% � � 3
$�2!block%=mrpwin%:block%!8=&2000:block%!12=&F000
$�� set%=27 � 30
$�0block%!4=set%:ș "Wimp_SetIconState",,block%
$�
� set%
$�=block%!4=31:block%!8=&F000:ș "Wimp_SetIconState",,block%
$�.block%!4=32:ș "Wimp_SetIconState",,block%
%.block%!4=37:ș "Wimp_SetIconState",,block%
%.block%!4=38:ș "Wimp_SetIconState",,block%
%=block%!4=39:ș "Wimp_SetIconState",,block%:block%!8=&B000
%&� set%=33 � 36
%00block%!4=set%:ș "Wimp_SetIconState",,block%
%:
� set%
%D*block%!12=&F0000000:block%!8=&C0000000
%N.block%!4=40:ș "Wimp_SetIconState",,block%
%X.block%!4=41:ș "Wimp_SetIconState",,block%
%b�
%l� inbetween:� boundbox
%v $(strfrm%)=�(input%!40)+�(0)
%�6!block%=mrpwin%:block%!4=32:block%!8=0:block%!12=0
%�"ș "Wimp_SetIconState",,block%
%�frmtme%=�:frmdne%+=1
%�+$(avtme%)=�time((�-time%)/frmdne%)+�(0)
%��
%��
%�xstp%=input%!52/(1<<shift%)
%�ystp%=input%!56/(1<<shift%)
%�xpnt%=output%!4/(1<<shift%)
%�ypnt%=output%!8/(1<<shift%)
%�-�limit(xpnt%,0,1279):�limit(ypnt%,0,1023)
%�0ș "OS_SpriteOp",512+60,heap%!8,(heap%!8)+16
%�(col%=�xpnt%,ypnt%) � Ȝ(xpnt%,ypnt%)
&input%!96=map%?(4*col%+1)
&input%!100=map%?(4*col%+2)
&input%!104=map%?(4*col%+3)
& � !(4+heap%!16)>0 �
&* xpnt%=output%!12/(1<<shift%)
&4 ypnt%=output%!16/(1<<shift%)
&>-�limit(xpnt%,0,1279):�limit(ypnt%,0,1023)
&H2ș "OS_SpriteOp",512+60,heap%!16,(heap%!16)+16
&R(col%=�xpnt%,ypnt%) � Ȝ(xpnt%,ypnt%)
&\Linput%!96=(input%!40/input%!44)*(map%?(4*col%+1025)-input%!96)+input%!96
&fOinput%!100=(input%!40/input%!44)*(map%?(4*col%+1026)-input%!100)+input%!100
&pOinput%!104=(input%!40/input%!44)*(map%?(4*col%+1027)-input%!104)+input%!104
&z�
&�:
&�input%!108=intflag% � 16
&�� colour:byte%=!output%
&�*xpnt%=!input%/(1<<shift%)*wdtscl%/1280
&�+ypnt%=input%!4/(1<<shift%)*hgtscl%/1024
&�xstp%=xstp%*wdtscl%/1280
&�ystp%=ystp%*hgtscl%/1024
&�2ș "OS_SpriteOp",512+60,heap%!24,(heap%!24)+16
&�� byte% � 63 Ȝ byte% � 192
&�%ȓ Ȑ xpnt%,ypnt%,xstp%-1,ystp%-1
&�ș "OS_SpriteOp",60,0,0,1
&�:
&�,byte%=(byte% � 63)<<2 � (byte% � 192)>>6
'5ș "ColourTrans_GCOLToColourNumber",byte% � byte%
')ș "OS_ReadModeVariable",�,3 � ,,bit%
'byte%=bitmap%?(512+byte%)
'$� bit%=63 �
'.5ș "ColourTrans_ColourNumberToGCOL",byte% � byte%
'8+byte%=(byte% � 252)>>2 � (byte% � 3)<<6
'B�
'LH!block%=prvwin%:block%!4=0:block%!8=-hgt%:block%!12=wdt%:block%!16=0
'V*ș "Wimp_UpdateWindow",,block% � flag%
'`ȕ flag%
'j9xsc%=block%!20-block%!4:ysc%=block%!24-block%!16+hgt%
't� byte% � 63 Ȝ byte% � 192
'~/ȓ Ȑ xpnt%-xsc%,ypnt%-ysc%,xstp%-1,ystp%-1
'�*ș "Wimp_GetRectangle",,block% � flag%
'��
'��
'�!$(totme%)=�time(�-time%)+�(0)
'�$$(elptme%)=�time(�-frmtme%)+�(0)
'��
'�:
'�� �singletask
'�mode%=�
'�� input%!48
'��
'�6ș "OS_SpriteOp",512+34,heap%!24,(heap%!24)+16,0,0
(�
(
� morph
(� !output%<0 �
(2ș "OS_SpriteOp",512+60,heap%!24,(heap%!24)+16
((3�("ScreenSave "+�string(sprname%)+�(input%!40))
(2� 128 Ȝ 0:�
(<ș "OS_SpriteOp",60,0,0,1
(F� 128 Ȝ 0:�
(Pinput%!40+=1
(Z� input%!40>input%!44 �
(dș "Wimp_SetMode",mode%
(n2ș "OS_SpriteOp",512+25,heap%!24,(heap%!24)+16
(x3�claim(heap%+24,32,claim%):!(heap%!24)=heap%!28
(�
�variable
(�intflag%=intflag% � � 3
(�2!block%=mrpwin%:block%!8=&2000:block%!12=&F000
(�� set%=27 � 30
(�0block%!4=set%:ș "Wimp_SetIconState",,block%
(�
� set%
(�=block%!4=31:block%!8=&F000:ș "Wimp_SetIconState",,block%
(�.block%!4=32:ș "Wimp_SetIconState",,block%
(�.block%!4=37:ș "Wimp_SetIconState",,block%
(�.block%!4=38:ș "Wimp_SetIconState",,block%
(�=block%!4=39:ș "Wimp_SetIconState",,block%:block%!8=&B000
(�� set%=33 � 36
(�0block%!4=set%:ș "Wimp_SetIconState",,block%
)
� set%
)*block%!12=&F0000000:block%!8=&C0000000
).block%!4=40:ș "Wimp_SetIconState",,block%
)".block%!4=41:ș "Wimp_SetIconState",,block%
),�
)6� inbetween:� boundbox
)@ $(strfrm%)=�(input%!40)+�(0)
)Jfrmtme%=�:frmdne%+=1
)T+$(avtme%)=�time((�-time%)/frmdne%)+�(0)
)^�
)h�
)rxstp%=input%!52/(1<<shift%)
)|ystp%=input%!56/(1<<shift%)
)�xpnt%=output%!4/(1<<shift%)
)�ypnt%=output%!8/(1<<shift%)
)�-�limit(xpnt%,0,1279):�limit(ypnt%,0,1023)
)�0ș "OS_SpriteOp",512+60,heap%!8,(heap%!8)+16
)�(col%=�xpnt%,ypnt%) � Ȝ(xpnt%,ypnt%)
)�input%!96=map%?(4*col%+1)
)�input%!100=map%?(4*col%+2)
)�input%!104=map%?(4*col%+3)
)�� !(4+heap%!16)>0 �
)� xpnt%=output%!12/(1<<shift%)
)� ypnt%=output%!16/(1<<shift%)
)�-�limit(xpnt%,0,1279):�limit(ypnt%,0,1023)
)�2ș "OS_SpriteOp",512+60,heap%!16,(heap%!16)+16
*(col%=�xpnt%,ypnt%) � Ȝ(xpnt%,ypnt%)
*Linput%!96=(input%!40/input%!44)*(map%?(4*col%+1025)-input%!96)+input%!96
*Oinput%!100=(input%!40/input%!44)*(map%?(4*col%+1026)-input%!100)+input%!100
*&Oinput%!104=(input%!40/input%!44)*(map%?(4*col%+1027)-input%!104)+input%!104
*0�
*::
*Dinput%!108=intflag% � 16
*N� colour:byte%=!output%
*X*xpnt%=!input%/(1<<shift%)*wdtscl%/1280
*b+ypnt%=input%!4/(1<<shift%)*hgtscl%/1024
*lxstp%=xstp%*wdtscl%/1280
*vystp%=ystp%*hgtscl%/1024
*�2ș "OS_SpriteOp",512+60,heap%!24,(heap%!24)+16
*�� byte% � 63 Ȝ byte% � 192
*�%ȓ Ȑ xpnt%,ypnt%,xstp%-1,ystp%-1
*�ș "OS_SpriteOp",60,0,0,1
*�� byte% � 63 Ȝ byte% � 192
*�%ȓ Ȑ xpnt%,ypnt%,xstp%-1,ystp%-1
*��
*�ȗ xps%,yps%,butn%
*� � butn%>0 � (intflag% � 3)=0
*�$(totme%)=�time(�-time%)
*�$$(elptme%)=�time(�-frmtme%)+�(0)
*�ș "Wimp_SetMode",mode%
*��
+:
+� �preview
+4ș "OS_ReadModeVariable",input%!48,4 � ,,sprwdt%
+ 4ș "OS_ReadModeVariable",input%!48,5 � ,,sprhgt%
+* sprwdt%=wdtscl%/(1<<sprwdt%)
+4 sprhgt%=hgtscl%/(1<<sprhgt%)
+>4ș "OS_ReadModeVariable",input%!48,7 � ,,scrsze%
+H scrsze%=(scrsze%+&5F)� � &1F
+R#�claim(heap%+24,scrsze%,claim%)
+\� claim% �
+f
�variable
+p!(heap%!24)=heap%!28
+zIș "OS_SpriteOp",256+15,heap%!24,"output",0,sprwdt%,sprhgt%,input%!48
+��translate
+�*input%!52=(1280 � sprwdt%)*(1<<shift%)
+�*input%!56=(1024 � sprhgt%)*(1<<shift%)
+�input%!60=1279*(1<<shift%)
+�input%!64=1023*(1<<shift%)
+�(!input%=input%!60:input%!4=input%!64
+�ș "Hourglass_On"
+�2ș "OS_SpriteOp",512+60,heap%!24,(heap%!24)+16
+�
� preview
+�count%=0
+��
+�*xpnt%=!input%/(1<<shift%)*wdtscl%/1280
+�+ypnt%=input%!4/(1<<shift%)*hgtscl%/1024
,,xstp%=input%!52/(1<<shift%)*wdtscl%/1280
,,ystp%=input%!56/(1<<shift%)*hgtscl%/1024
,
count%+=1
,$� count% � 1280=0 �
,.5done%=100*(xpnt%+ypnt%*wdtscl%)/(wdtscl%*hgtscl%)
,8#ș "Hourglass_Percentage",done%
,B�
,L� 63 Ȝ 192
,V%ȓ Ȑ xpnt%,ypnt%,xstp%-1,ystp%-1
,`
� preview
,jȗ xpnt%,ypnt%,butn%
,t� !output%<0 � butn%=1
,~ș "OS_SpriteOp",60,0,0,1
,�ș "Hourglass_Off"
,�0ș "Wimp_ForceRedraw",prvwin%,0,-hgt%,wdt%,0
,��
,�:
,�� �map(sprt%)
,�?ș "OS_ReadModeVariable",!(56+heap%!(8+8*sprt%)),3 � ,,bit%
,�� bit%=63 �
,�� col%=0 � 255
,�>map%?(1024*sprt%+4*col%+1)=(col% � 3)<<6 � (col% � 192)>>2
,�?map%?(1024*sprt%+4*col%+2)=(col% � 12)<<4 � (col% � 192)>>2
,�?map%?(1024*sprt%+4*col%+3)=(col% � 48)<<2 � (col% � 192)>>2
,�
� col%
-�
-
� col%=0 � bit%
-� !(48+heap%!8)>44 �
-;map%!(1024*sprt%+4*col%)=!(60+8*col%+heap%!(8+8*sprt%))
-(�
-2<ș "OS_ReadPalette",col%,16 � ,,map%!(1024*sprt%+4*col%)
-<�
-F
� col%
-P�
-Z�
-d:
-n� �setheap
-x&ș "Wimp_SlotSize",-1,-1 � extent%
-�)ș "Wimp_SlotSize",extent%+256+288,-1
-�$!heap%=9:heap%!4=extent%+256+288
-�!heap%!8=heap%+256:heap%!12=32
-�%heap%!16=heap%+256+32:heap%!20=32
-�%heap%!24=heap%+256+64:heap%!28=32
-�%heap%!32=heap%+256+96:heap%!36=32
-�&heap%!40=heap%+256+128:heap%!44=32
-�&heap%!48=heap%+256+160:heap%!52=32
-�&heap%!56=heap%+256+192:heap%!60=32
-�&heap%!64=heap%+256+224:heap%!68=32
-�&heap%!72=heap%+256+256:heap%!76=32
-�A!(heap%!8)=32:!(4+heap%!8)=0:!(8+heap%!8)=16:!(12+heap%!8)=16
-�E!(heap%!16)=32:!(4+heap%!16)=0:!(8+heap%!16)=16:!(12+heap%!16)=16
.E!(heap%!24)=32:!(4+heap%!24)=0:!(8+heap%!24)=16:!(12+heap%!24)=16
.input%!128=heap%
.�
.":
.,� �tidy(� flag%)
.6flag%=�
.@&pntsze%=(&43+!(heap%!32)*8)� � &1F
.J0�claim(heap%+32,pntsze%,flag%):� � flag% � �
.T0�claim(heap%+40,pntsze%,flag%):� � flag% � �
.^0�claim(heap%+48,pntsze%,flag%):� � flag% � �
.h$polsze%=(!(heap%!56)+&43)� � &1F
.r0�claim(heap%+56,polsze%,flag%):� � flag% � �
.|&offsze%=(&43+!(heap%!64)*8)� � &1F
.�0�claim(heap%+64,offsze%,flag%):� � flag% � �
.��
.�:
.�� �variable
.�5initial%=heap%!32:final%=heap%!40:tween%=heap%!48
.�#poly%=heap%!56:offset%=heap%!64
.�;input%!8=heap%!48:input%!32=heap%!32:input%!36=heap%!40
.�)input%!16=heap%!56:input%!12=heap%!64
.�8input%!24=heap%!72:input%!28=heap%!72+(heap%!76) � 8
.�'input%!20=heap%!72+3*(heap%!76) � 8
.��
.�:
.�"� �claim(block%,size%,� flag%)
/flag%=�
/delta%=size%-block%!4
/&ș "Wimp_SlotSize",-1,-1 � ,,free%
/&� delta%<free% �
/0flag%=�
/:5� delta%>0 � ș "Wimp_SlotSize",heap%!4+delta%,-1
/D.input%!132=!block%:input%!136=size%:� heap
/N.� delta%<0 � ș "Wimp_SlotSize",heap%!4,-1
/X�
/b�
/l:
/v� �full
/�
!block%=0
/�,$(block%+4)="No Room - memory full"+�(0)
/�+ș "Wimp_ReportError",block%,1,"!Morph"
/��
�

00000000  0d 00 0a 14 f4 20 20 20  20 20 3e 21 52 75 6e 49  |.....     >!RunI|
00000010  6d 61 67 65 0d 00 14 16  f4 20 42 79 20 20 52 6f  |mage..... By  Ro|
00000020  62 69 6e 20 42 61 72 6e  65 73 0d 00 1e 19 f4 20  |bin Barnes..... |
00000030  46 6f 72 20 33 32 2d 62  69 74 20 6d 61 63 68 69  |For 32-bit machi|
00000040  6e 65 73 0d 00 28 19 f4  20 28 63 29 20 42 41 55  |nes..(.. (c) BAU|
00000050  20 41 75 67 75 73 74 20  31 39 39 33 0d 00 32 05  | August 1993..2.|
00000060  3a 0d 00 3c 0b 68 65 61  70 25 3d 93 0d 00 46 12  |:..<.heap%=...F.|
00000070  66 69 6c 65 74 79 70 65  25 3d 26 36 30 33 0d 00  |filetype%=&603..|
00000080  50 21 76 65 72 73 69 6f  6e 24 3d 22 31 2e 39 38  |P!version$="1.98|
00000090  20 28 32 30 20 4d 61 79  20 31 39 39 33 29 22 0d  | (20 May 1993)".|
000000a0  00 5a 0f 6d 61 78 66 72  6d 25 3d 31 30 30 0d 00  |.Z.maxfrm%=100..|
000000b0  64 05 3a 0d 00 6e 11 69  6e 64 69 72 6c 6e 25 3d  |d.:..n.indirln%=|
000000c0  34 30 39 36 0d 00 78 12  de 20 62 6c 6f 63 6b 25  |4096..x.. block%|
000000d0  20 26 31 30 30 30 0d 00  82 11 de 20 62 69 74 6d  | &1000..... bitm|
000000e0  61 70 25 20 37 36 38 0d  00 8c 11 de 20 70 61 6c  |ap% 768..... pal|
000000f0  65 74 74 65 25 20 36 34  0d 00 96 0f de 20 73 63  |ette% 64..... sc|
00000100  61 6c 65 25 20 34 38 0d  00 a0 0f de 20 6d 65 6e  |ale% 48..... men|
00000110  75 25 20 32 35 36 0d 00  aa 15 de 20 69 6e 64 69  |u% 256..... indi|
00000120  72 25 20 69 6e 64 69 72  6c 6e 25 0d 00 b4 11 de  |r% indirln%.....|
00000130  20 63 6f 64 65 25 20 26  31 30 30 30 0d 00 be 10  | code% &1000....|
00000140  de 20 69 6e 70 75 74 25  20 32 35 36 0d 00 c8 11  |. input% 256....|
00000150  de 20 6f 75 74 70 75 74  25 20 32 35 36 0d 00 d2  |. output% 256...|
00000160  0f de 20 6d 61 70 25 20  32 30 34 38 0d 00 dc 0d  |.. map% 2048....|
00000170  de 20 74 61 73 6b 25 20  34 0d 00 e6 11 24 74 61  |. task% 4....$ta|
00000180  73 6b 25 3d 22 54 41 53  4b 22 0d 00 f0 0c 73 68  |sk%="TASK"....sh|
00000190  69 66 74 25 3d 34 0d 00  fa 0d 73 70 73 61 76 65  |ift%=4....spsave|
000001a0  25 3d a3 0d 01 04 05 3a  0d 01 0e 0c f2 73 65 74  |%=.....:.....set|
000001b0  68 65 61 70 0d 01 18 05  3a 0d 01 22 3a c8 99 20  |heap....:..":.. |
000001c0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
000001d0  22 2c 32 30 30 2c 21 74  61 73 6b 25 2c 22 4d 6f  |",200,!task%,"Mo|
000001e0  72 70 68 22 20 b8 20 2c  74 61 73 6b 68 61 6e 64  |rph" . ,taskhand|
000001f0  6c 65 25 0d 01 2c 0e ee  20 85 20 f2 65 72 72 6f  |le%..,.. . .erro|
00000200  72 0d 01 36 17 77 64 74  25 3d 31 32 38 30 3a 68  |r..6.wdt%=1280:h|
00000210  67 74 25 3d 31 30 32 34  0d 01 40 1d 77 64 74 73  |gt%=1024..@.wdts|
00000220  63 6c 25 3d 31 32 38 30  3a 68 67 74 73 63 6c 25  |cl%=1280:hgtscl%|
00000230  3d 31 30 32 34 0d 01 4a  05 3a 0d 01 54 0f 69 6e  |=1024..J.:..T.in|
00000240  74 66 6c 61 67 25 3d 31  36 0d 01 5e 0d 73 65 6c  |tflag%=16..^.sel|
00000250  65 63 74 25 3d 30 0d 01  68 35 69 6e 69 74 69 61  |ect%=0..h5initia|
00000260  6c 25 3d 68 65 61 70 25  21 33 32 3a 66 69 6e 61  |l%=heap%!32:fina|
00000270  6c 25 3d 68 65 61 70 25  21 34 30 3a 74 77 65 65  |l%=heap%!40:twee|
00000280  6e 25 3d 68 65 61 70 25  21 34 38 0d 01 72 23 70  |n%=heap%!48..r#p|
00000290  6f 6c 79 25 3d 68 65 61  70 25 21 35 36 3a 6f 66  |oly%=heap%!56:of|
000002a0  66 73 65 74 25 3d 68 65  61 70 25 21 36 34 0d 01  |fset%=heap%!64..|
000002b0  7c 19 21 69 6e 69 74 69  61 6c 25 3d 30 3a 21 66  ||.!initial%=0:!f|
000002c0  69 6e 61 6c 25 3d 30 0d  01 86 2d 21 6f 66 66 73  |inal%=0...-!offs|
000002d0  65 74 25 3d 30 3a 6f 66  66 73 65 74 25 21 34 3d  |et%=0:offset%!4=|
000002e0  30 3a 21 70 6f 6c 79 25  3d 34 3a 70 6f 6c 79 25  |0:!poly%=4:poly%|
000002f0  21 34 3d 30 0d 01 90 09  f2 63 6f 64 65 0d 01 9a  |!4=0.....code...|
00000300  1b f2 74 69 64 79 28 63  6c 61 69 6d 25 29 3a f2  |..tidy(claim%):.|
00000310  76 61 72 69 61 62 6c 65  0d 01 a4 0f f2 67 65 74  |variable.....get|
00000320  77 69 6e 64 6f 77 73 0d  01 ae 09 f2 70 6f 6c 6c  |windows.....poll|
00000330  0d 01 b8 05 e0 0d 01 c2  05 3a 0d 01 cc 0c dd 20  |.........:..... |
00000340  f2 65 72 72 6f 72 0d 01  d6 09 ee 20 85 20 87 0d  |.error..... . ..|
00000350  01 e0 1d c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..... "OS_Sprite|
00000360  4f 70 22 2c 36 30 2c 30  2c 30 2c 31 0d 01 ea 29  |Op",60,0,0,1...)|
00000370  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000380  77 6e 22 2c 74 61 73 6b  68 61 6e 64 6c 65 25 2c  |wn",taskhandle%,|
00000390  74 61 73 6b 25 0d 01 f4  1d 85 20 a2 20 9f 2c f6  |task%..... . .,.|
000003a0  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 28  |$+" at line "+.(|
000003b0  9e 29 0d 01 fe 05 e0 0d  02 08 05 3a 0d 02 12 11  |.).........:....|
000003c0  dd 20 f2 67 65 74 77 69  6e 64 6f 77 73 0d 02 1c  |. .getwindows...|
000003d0  28 73 74 69 63 6e 25 3d  69 6e 64 69 72 25 3a 65  |(sticn%=indir%:e|
000003e0  6e 69 63 6e 25 3d 69 6e  64 69 72 25 2b 69 6e 64  |nicn%=indir%+ind|
000003f0  69 72 6c 6e 25 0d 02 26  32 c8 99 20 22 57 69 6d  |irln%..&2.. "Wim|
00000400  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00000410  2c 22 3c 4f 62 65 79 24  44 69 72 3e 2e 54 65 6d  |,"<Obey$Dir>.Tem|
00000420  70 6c 61 74 65 73 22 0d  02 30 4a c8 99 20 22 57  |plates"..0J.. "W|
00000430  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000440  22 2c 2c 62 6c 6f 63 6b  25 2b 34 2c 73 74 69 63  |",,block%+4,stic|
00000450  6e 25 2c 65 6e 69 63 6e  25 2c 2d 31 2c 22 69 6e  |n%,enicn%,-1,"in|
00000460  70 75 74 22 2c 30 20 b8  20 2c 2c 73 74 69 63 6e  |put",0 . ,,sticn|
00000470  25 0d 02 3a 1f 62 6c 6f  63 6b 25 21 34 34 3d 30  |%..:.block%!44=0|
00000480  3a 62 6c 6f 63 6b 25 21  34 38 3d 2d 68 67 74 25  |:block%!48=-hgt%|
00000490  0d 02 44 1e 62 6c 6f 63  6b 25 21 35 32 3d 77 64  |..D.block%!52=wd|
000004a0  74 25 3a 62 6c 6f 63 6b  25 21 35 36 3d 30 0d 02  |t%:block%!56=0..|
000004b0  4e 2e c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |N... "Wimp_Creat|
000004c0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
000004d0  2b 34 20 b8 20 73 74 72  77 69 6e 25 0d 02 58 4b  |+4 . strwin%..XK|
000004e0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000004f0  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 2b 34  |plate",,block%+4|
00000500  2c 73 74 69 63 6e 25 2c  65 6e 69 63 6e 25 2c 2d  |,sticn%,enicn%,-|
00000510  31 2c 22 6f 75 74 70 75  74 22 2c 30 20 b8 20 2c  |1,"output",0 . ,|
00000520  2c 73 74 69 63 6e 25 0d  02 62 1f 62 6c 6f 63 6b  |,sticn%..b.block|
00000530  25 21 34 34 3d 30 3a 62  6c 6f 63 6b 25 21 34 38  |%!44=0:block%!48|
00000540  3d 2d 68 67 74 25 0d 02  6c 1e 62 6c 6f 63 6b 25  |=-hgt%..l.block%|
00000550  21 35 32 3d 77 64 74 25  3a 62 6c 6f 63 6b 25 21  |!52=wdt%:block%!|
00000560  35 36 3d 30 0d 02 76 2e  c8 99 20 22 57 69 6d 70  |56=0..v... "Wimp|
00000570  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000580  62 6c 6f 63 6b 25 2b 34  20 b8 20 65 6e 64 77 69  |block%+4 . endwi|
00000590  6e 25 0d 02 80 49 c8 99  20 22 57 69 6d 70 5f 4c  |n%...I.. "Wimp_L|
000005a0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
000005b0  6f 63 6b 25 2b 34 2c 73  74 69 63 6e 25 2c 65 6e  |ock%+4,sticn%,en|
000005c0  69 63 6e 25 2c 2d 31 2c  22 69 6e 66 6f 22 2c 30  |icn%,-1,"info",0|
000005d0  20 b8 20 2c 2c 73 74 69  63 6e 25 0d 02 8a 2e c8  | . ,,sticn%.....|
000005e0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000005f0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 2b 34 20  |ndow",,block%+4 |
00000600  b8 20 69 6e 66 77 69 6e  25 0d 02 94 49 c8 99 20  |. infwin%...I.. |
00000610  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000620  74 65 22 2c 2c 62 6c 6f  63 6b 25 2b 34 2c 73 74  |te",,block%+4,st|
00000630  69 63 6e 25 2c 65 6e 69  63 6e 25 2c 2d 31 2c 22  |icn%,enicn%,-1,"|
00000640  73 61 76 65 22 2c 30 20  b8 20 2c 2c 73 74 69 63  |save",0 . ,,stic|
00000650  6e 25 0d 02 9e 2e c8 99  20 22 57 69 6d 70 5f 43  |n%...... "Wimp_C|
00000660  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000670  6f 63 6b 25 2b 34 20 b8  20 73 76 65 77 69 6e 25  |ock%+4 . svewin%|
00000680  0d 02 a8 4a c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...J.. "Wimp_Loa|
00000690  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
000006a0  6b 25 2b 34 2c 73 74 69  63 6e 25 2c 65 6e 69 63  |k%+4,sticn%,enic|
000006b0  6e 25 2c 2d 31 2c 22 73  61 76 65 32 22 2c 30 20  |n%,-1,"save2",0 |
000006c0  b8 20 2c 2c 73 74 69 63  6e 25 0d 02 b2 2f c8 99  |. ,,sticn%.../..|
000006d0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000006e0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 2b 34 20 b8  |dow",,block%+4 .|
000006f0  20 73 76 65 77 69 6e 32  25 0d 02 bc 4a c8 99 20  | svewin2%...J.. |
00000700  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000710  74 65 22 2c 2c 62 6c 6f  63 6b 25 2b 34 2c 73 74  |te",,block%+4,st|
00000720  69 63 6e 25 2c 65 6e 69  63 6e 25 2c 2d 31 2c 22  |icn%,enicn%,-1,"|
00000730  6d 6f 72 70 68 22 2c 30  20 b8 20 2c 2c 73 74 69  |morph",0 . ,,sti|
00000740  63 6e 25 0d 02 c6 2e c8  99 20 22 57 69 6d 70 5f  |cn%...... "Wimp_|
00000750  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
00000760  6c 6f 63 6b 25 2b 34 20  b8 20 6d 72 70 77 69 6e  |lock%+4 . mrpwin|
00000770  25 0d 02 d0 4c c8 99 20  22 57 69 6d 70 5f 4c 6f  |%...L.. "Wimp_Lo|
00000780  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 6c 6f  |adTemplate",,blo|
00000790  63 6b 25 2b 34 2c 73 74  69 63 6e 25 2c 65 6e 69  |ck%+4,sticn%,eni|
000007a0  63 6e 25 2c 2d 31 2c 22  70 72 65 76 69 65 77 22  |cn%,-1,"preview"|
000007b0  2c 30 20 b8 20 2c 2c 73  74 69 63 6e 25 0d 02 da  |,0 . ,,sticn%...|
000007c0  2e c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
000007d0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 2b  |Window",,block%+|
000007e0  34 20 b8 20 70 72 76 77  69 6e 25 0d 02 e4 4a c8  |4 . prvwin%...J.|
000007f0  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000800  6c 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 2b 34 2c  |late",,block%+4,|
00000810  73 74 69 63 6e 25 2c 65  6e 69 63 6e 25 2c 2d 31  |sticn%,enicn%,-1|
00000820  2c 22 73 74 61 74 73 22  2c 30 20 b8 20 2c 2c 73  |,"stats",0 . ,,s|
00000830  74 69 63 6e 25 0d 02 ee  2f c8 99 20 22 57 69 6d  |ticn%.../.. "Wim|
00000840  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000850  2c 62 6c 6f 63 6b 25 2b  34 20 b8 20 73 74 61 74  |,block%+4 . stat|
00000860  77 69 6e 25 0d 02 f8 1b  c8 99 20 22 57 69 6d 70  |win%...... "Wimp|
00000870  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
00000880  03 02 1e 21 62 6c 6f 63  6b 25 3d 69 6e 66 77 69  |...!block%=infwi|
00000890  6e 25 3a 62 6c 6f 63 6b  25 21 34 3d 34 0d 03 0c  |n%:block%!4=4...|
000008a0  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |".. "Wimp_GetIco|
000008b0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
000008c0  03 16 15 76 65 72 74 78  74 25 3d 62 6c 6f 63 6b  |...vertxt%=block|
000008d0  25 21 32 38 0d 03 20 1e  21 62 6c 6f 63 6b 25 3d  |%!28.. .!block%=|
000008e0  73 76 65 77 69 6e 25 3a  62 6c 6f 63 6b 25 21 34  |svewin%:block%!4|
000008f0  3d 32 0d 03 2a 22 c8 99  20 22 57 69 6d 70 5f 47  |=2..*".. "Wimp_G|
00000900  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00000910  6f 63 6b 25 0d 03 34 17  66 69 6c 65 6e 61 6d 65  |ock%..4.filename|
00000920  25 3d 62 6c 6f 63 6b 25  21 32 38 0d 03 3e 1f 21  |%=block%!28..>.!|
00000930  62 6c 6f 63 6b 25 3d 73  76 65 77 69 6e 32 25 3a  |block%=svewin2%:|
00000940  62 6c 6f 63 6b 25 21 34  3d 30 0d 03 48 22 c8 99  |block%!4=0..H"..|
00000950  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00000960  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 03 52 18  |ate",,block%..R.|
00000970  66 69 6c 65 6e 61 6d 65  32 25 3d 62 6c 6f 63 6b  |filename2%=block|
00000980  25 21 32 38 0d 03 5c 1f  21 62 6c 6f 63 6b 25 3d  |%!28..\.!block%=|
00000990  6d 72 70 77 69 6e 25 3a  62 6c 6f 63 6b 25 21 34  |mrpwin%:block%!4|
000009a0  3d 33 31 0d 03 66 22 c8  99 20 22 57 69 6d 70 5f  |=31..f".. "Wimp_|
000009b0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
000009c0  6c 6f 63 6b 25 0d 03 70  15 65 6e 64 66 72 6d 25  |lock%..p.endfrm%|
000009d0  3d 62 6c 6f 63 6b 25 21  32 38 0d 03 7a 2e 62 6c  |=block%!28..z.bl|
000009e0  6f 63 6b 25 21 34 3d 33  32 3a c8 99 20 22 57 69  |ock%!4=32:.. "Wi|
000009f0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000a00  2c 2c 62 6c 6f 63 6b 25  0d 03 84 15 73 74 72 66  |,,block%....strf|
00000a10  72 6d 25 3d 62 6c 6f 63  6b 25 21 32 38 0d 03 8e  |rm%=block%!28...|
00000a20  2e 62 6c 6f 63 6b 25 21  34 3d 33 37 3a c8 99 20  |.block%!4=37:.. |
00000a30  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00000a40  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 03 98 16 73  |te",,block%....s|
00000a50  70 72 6e 61 6d 65 25 3d  62 6c 6f 63 6b 25 21 32  |prname%=block%!2|
00000a60  38 0d 03 a2 2e 62 6c 6f  63 6b 25 21 34 3d 33 38  |8....block%!4=38|
00000a70  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
00000a80  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00000a90  03 ac 14 77 64 74 78 74  25 3d 62 6c 6f 63 6b 25  |...wdtxt%=block%|
00000aa0  21 32 38 0d 03 b6 2e 62  6c 6f 63 6b 25 21 34 3d  |!28....block%!4=|
00000ab0  33 39 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |39:.. "Wimp_GetI|
00000ac0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00000ad0  25 0d 03 c0 14 68 67 74  78 74 25 3d 62 6c 6f 63  |%....hgtxt%=bloc|
00000ae0  6b 25 21 32 38 0d 03 ca  1f 21 62 6c 6f 63 6b 25  |k%!28....!block%|
00000af0  3d 73 74 61 74 77 69 6e  25 3a 62 6c 6f 63 6b 25  |=statwin%:block%|
00000b00  21 34 3d 37 0d 03 d4 22  c8 99 20 22 57 69 6d 70  |!4=7...".. "Wimp|
00000b10  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00000b20  62 6c 6f 63 6b 25 0d 03  de 14 74 6f 74 6d 65 25  |block%....totme%|
00000b30  3d 62 6c 6f 63 6b 25 21  32 38 0d 03 e8 2e 62 6c  |=block%!28....bl|
00000b40  6f 63 6b 25 21 34 3d 31  31 3a c8 99 20 22 57 69  |ock%!4=11:.. "Wi|
00000b50  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000b60  2c 2c 62 6c 6f 63 6b 25  0d 03 f2 15 65 6c 70 74  |,,block%....elpt|
00000b70  6d 65 25 3d 62 6c 6f 63  6b 25 21 32 38 0d 03 fc  |me%=block%!28...|
00000b80  2e 62 6c 6f 63 6b 25 21  34 3d 31 35 3a c8 99 20  |.block%!4=15:.. |
00000b90  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00000ba0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 04 06 14 61  |te",,block%....a|
00000bb0  76 74 6d 65 25 3d 62 6c  6f 63 6b 25 21 32 38 0d  |vtme%=block%!28.|
00000bc0  04 10 1c 24 28 76 65 72  74 78 74 25 29 3d 76 65  |...$(vertxt%)=ve|
00000bd0  72 73 69 6f 6e 24 2b bd  28 30 29 0d 04 1a 05 e1  |rsion$+.(0).....|
00000be0  0d 04 24 05 3a 0d 04 2e  0e dd 20 a4 69 63 6f 6e  |..$.:..... .icon|
00000bf0  62 61 72 0d 04 38 19 21  62 6c 6f 63 6b 25 3d 2d  |bar..8.!block%=-|
00000c00  31 3a 62 6c 6f 63 6b 25  21 34 3d 30 0d 04 42 1b  |1:block%!4=0..B.|
00000c10  62 6c 6f 63 6b 25 21 38  3d 30 3a 62 6c 6f 63 6b  |block%!8=0:block|
00000c20  25 21 31 32 3d 36 38 0d  04 4c 10 62 6c 6f 63 6b  |%!12=68..L.block|
00000c30  25 21 31 36 3d 36 38 0d  04 56 10 62 6c 6f 63 6b  |%!16=68..V.block|
00000c40  25 21 31 32 3d 36 38 0d  04 60 13 62 6c 6f 63 6b  |%!12=68..`.block|
00000c50  25 21 32 30 3d 26 32 30  30 32 0d 04 6a 19 24 28  |%!20=&2002..j.$(|
00000c60  62 6c 6f 63 6b 25 2b 32  34 29 3d 22 21 6d 6f 72  |block%+24)="!mor|
00000c70  70 68 22 0d 04 74 28 c8  99 20 22 57 69 6d 70 5f  |ph"..t(.. "Wimp_|
00000c80  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 62 6c 6f  |CreateIcon",,blo|
00000c90  63 6b 25 20 b8 20 69 63  6f 6e 25 0d 04 7e 0a 3d  |ck% . icon%..~.=|
00000ca0  69 63 6f 6e 25 0d 04 88  05 3a 0d 04 92 0b dd 20  |icon%....:..... |
00000cb0  f2 70 6f 6c 6c 0d 04 9c  15 69 63 6f 6e 62 61 72  |.poll....iconbar|
00000cc0  25 3d a4 69 63 6f 6e 62  61 72 0d 04 a6 05 f5 0d  |%=.iconbar......|
00000cd0  04 b0 2d c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |..-.. "Wimp_Poll|
00000ce0  22 2c 26 46 46 46 39 46  38 42 30 2c 62 6c 6f 63  |",&FFF9F8B0,bloc|
00000cf0  6b 25 20 b8 20 72 65 61  73 6f 6e 25 0d 04 ba 10  |k% . reason%....|
00000d00  c8 8e 20 72 65 61 73 6f  6e 25 20 ca 0d 04 c4 0f  |.. reason% .....|
00000d10  c9 20 31 3a f2 72 65 64  72 61 77 0d 04 ce 24 c9  |. 1:.redraw...$.|
00000d20  20 32 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  | 2:.. "Wimp_Open|
00000d30  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00000d40  04 d8 25 c9 20 33 3a c8  99 20 22 57 69 6d 70 5f  |..%. 3:.. "Wimp_|
00000d50  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00000d60  6f 63 6b 25 0d 04 e2 0e  c9 20 36 3a f2 63 6c 69  |ock%..... 6:.cli|
00000d70  63 6b 0d 04 ec 10 c9 20  37 3a f2 64 72 61 67 62  |ck..... 7:.dragb|
00000d80  6f 78 0d 04 f6 11 c9 20  38 3a f2 6b 65 79 70 72  |ox..... 8:.keypr|
00000d90  65 73 73 0d 05 00 13 c9  20 39 3a f2 6d 65 6e 75  |ess..... 9:.menu|
00000da0  73 65 6c 65 63 74 0d 05  0a 14 c9 20 31 37 2c 31  |select..... 17,1|
00000db0  38 3a f2 6d 65 73 73 61  67 65 0d 05 14 05 7f 0d  |8:.message......|
00000dc0  05 1e 1f e7 20 28 69 6e  74 66 6c 61 67 25 20 80  |.... (intflag% .|
00000dd0  20 33 29 3d 31 20 8c 20  f2 6d 6f 72 70 68 0d 05  | 3)=1 . .morph..|
00000de0  28 05 cb 0d 05 32 07 fd  20 a3 0d 05 3c 05 e1 0d  |(....2.. ...<...|
00000df0  05 46 05 3a 0d 05 50 0e  dd 20 f2 6d 65 73 73 61  |.F.:..P.. .messa|
00000e00  67 65 0d 05 5a 13 6d 65  73 73 25 3d 62 6c 6f 63  |ge..Z.mess%=bloc|
00000e10  6b 25 21 31 36 0d 05 64  0e c8 8e 20 6d 65 73 73  |k%!16..d... mess|
00000e20  25 20 ca 0d 05 6e 32 c9  20 26 30 30 30 30 30 3a  |% ...n2. &00000:|
00000e30  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000e40  77 6e 22 2c 74 61 73 6b  68 61 6e 64 6c 65 25 2c  |wn",taskhandle%,|
00000e50  74 61 73 6b 25 0d 05 78  2b c9 20 31 3a e7 20 62  |task%..x+. 1:. b|
00000e60  6c 6f 63 6b 25 21 34 30  3d 26 46 46 39 20 84 20  |lock%!40=&FF9 . |
00000e70  62 6c 6f 63 6b 25 21 34  30 3d 26 30 30 33 20 8c  |block%!40=&003 .|
00000e80  0d 05 82 10 62 6c 6f 63  6b 25 21 33 36 3d 2d 31  |....block%!36=-1|
00000e90  0d 05 8c 24 24 28 62 6c  6f 63 6b 25 2b 34 34 29  |...$$(block%+44)|
00000ea0  3d 22 3c 57 69 6d 70 24  53 63 72 61 70 3e 22 2b  |="<Wimp$Scrap>"+|
00000eb0  bd 28 30 29 0d 05 96 22  62 6c 6f 63 6b 25 21 31  |.(0)..."block%!1|
00000ec0  32 3d 62 6c 6f 63 6b 25  21 38 3a 62 6c 6f 63 6b  |2=block%!8:block|
00000ed0  25 21 31 36 3d 32 0d 05  a0 0e 21 62 6c 6f 63 6b  |%!16=2....!block|
00000ee0  25 3d 36 30 0d 05 aa 2c  c8 99 20 22 57 69 6d 70  |%=60...,.. "Wimp|
00000ef0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00000f00  2c 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 34  |,block%,block%!4|
00000f10  0d 05 b4 05 cd 0d 05 be  05 3a 0d 05 c8 07 c9 20  |.........:..... |
00000f20  32 0d 05 d2 0f e7 20 73  70 73 61 76 65 25 20 8c  |2..... spsave% .|
00000f30  0d 05 dc 25 24 28 73 70  72 6e 61 6d 65 25 29 3d  |...%$(sprname%)=|
00000f40  a4 73 74 72 69 6e 67 28  62 6c 6f 63 6b 25 2b 34  |.string(block%+4|
00000f50  34 29 2b bd 30 0d 05 e6  32 21 62 6c 6f 63 6b 25  |4)+.0...2!block%|
00000f60  3d 73 76 65 77 69 6e 32  25 3a c8 99 20 22 57 69  |=svewin2%:.. "Wi|
00000f70  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000f80  2c 62 6c 6f 63 6b 25 0d  05 f0 1f 21 62 6c 6f 63  |,block%....!bloc|
00000f90  6b 25 3d 6d 72 70 77 69  6e 25 3a 62 6c 6f 63 6b  |k%=mrpwin%:block|
00000fa0  25 21 34 3d 33 37 0d 05  fa 1a 62 6c 6f 63 6b 25  |%!4=37....block%|
00000fb0  21 38 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 30  |!8=0:block%!12=0|
00000fc0  0d 06 04 22 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...".. "Wimp_Set|
00000fd0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00000fe0  6b 25 0d 06 0e 05 cc 0d  06 18 1a f2 73 61 76 65  |k%..........save|
00000ff0  28 62 6c 6f 63 6b 25 2b  34 34 2c 73 61 76 65 25  |(block%+44,save%|
00001000  29 0d 06 22 0d e7 20 73  61 76 65 25 20 8c 0d 06  |)..".. save% ...|
00001010  2c 26 24 28 66 69 6c 65  6e 61 6d 65 25 29 3d a4  |,&$(filename%)=.|
00001020  73 74 72 69 6e 67 28 62  6c 6f 63 6b 25 2b 34 34  |string(block%+44|
00001030  29 2b bd 30 0d 06 36 16  62 6c 6f 63 6b 25 21 31  |)+.0..6.block%!1|
00001040  32 3d 62 6c 6f 63 6b 25  21 38 0d 06 40 0f 62 6c  |2=block%!8..@.bl|
00001050  6f 63 6b 25 21 31 36 3d  33 0d 06 4a 2c c8 99 20  |ock%!16=3..J,.. |
00001060  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001070  65 22 2c 31 37 2c 62 6c  6f 63 6b 25 2c 62 6c 6f  |e",17,block%,blo|
00001080  63 6b 25 21 34 0d 06 54  31 21 62 6c 6f 63 6b 25  |ck%!4..T1!block%|
00001090  3d 73 76 65 77 69 6e 25  3a c8 99 20 22 57 69 6d  |=svewin%:.. "Wim|
000010a0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000010b0  62 6c 6f 63 6b 25 0d 06  5e 05 cd 0d 06 68 1c c8  |block%..^....h..|
000010c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000010d0  6e 75 22 2c 2c 2d 31 0d  06 72 05 cd 0d 06 7c 05  |nu",,-1..r....|.|
000010e0  3a 0d 06 86 23 c9 20 26  30 30 30 30 33 3a f2 6c  |:...#. &00003:.l|
000010f0  6f 61 64 28 62 6c 6f 63  6b 25 2b 34 34 2c 6c 6f  |oad(block%+44,lo|
00001100  61 64 25 29 0d 06 90 0d  e7 20 6c 6f 61 64 25 20  |ad%)..... load% |
00001110  8c 0d 06 9a 3e e7 20 62  6c 6f 63 6b 25 21 34 30  |....>. block%!40|
00001120  3d 66 69 6c 65 74 79 70  65 25 20 8c 20 24 28 66  |=filetype% . $(f|
00001130  69 6c 65 6e 61 6d 65 25  29 3d a4 73 74 72 69 6e  |ilename%)=.strin|
00001140  67 28 62 6c 6f 63 6b 25  2b 34 34 29 2b bd 30 0d  |g(block%+44)+.0.|
00001150  06 a4 22 62 6c 6f 63 6b  25 21 31 32 3d 62 6c 6f  |.."block%!12=blo|
00001160  63 6b 25 21 38 3a 62 6c  6f 63 6b 25 21 31 36 3d  |ck%!8:block%!16=|
00001170  34 0d 06 ae 2c c8 99 20  22 57 69 6d 70 5f 53 65  |4...,.. "Wimp_Se|
00001180  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 62 6c  |ndMessage",17,bl|
00001190  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 34 0d 06 b8  |ock%,block%!4...|
000011a0  05 cd 0d 06 c2 17 c9 20  26 34 30 30 43 31 3a f2  |....... &400C1:.|
000011b0  74 72 61 6e 73 6c 61 74  65 0d 06 cc 05 cb 0d 06  |translate.......|
000011c0  d6 05 e1 0d 06 e0 05 3a  0d 06 ea 0c dd 20 f2 63  |.......:..... .c|
000011d0  6c 69 63 6b 0d 06 f4 11  78 70 6e 74 25 3d 21 62  |lick....xpnt%=!b|
000011e0  6c 6f 63 6b 25 0d 06 fe  12 79 70 6e 74 25 3d 62  |lock%....ypnt%=b|
000011f0  6c 6f 63 6b 25 21 34 0d  07 08 12 62 75 74 6e 25  |lock%!4....butn%|
00001200  3d 62 6c 6f 63 6b 25 21  38 0d 07 12 15 77 69 6e  |=block%!8....win|
00001210  64 6f 77 25 3d 62 6c 6f  63 6b 25 21 31 32 0d 07  |dow%=block%!12..|
00001220  1c 13 69 63 6f 6e 25 3d  62 6c 6f 63 6b 25 21 31  |..icon%=block%!1|
00001230  36 0d 07 26 05 3a 0d 07  30 10 c8 8e 20 77 69 6e  |6..&.:..0... win|
00001240  64 6f 77 25 20 ca 0d 07  3a 08 c9 20 2d 32 0d 07  |dow% ...:.. -2..|
00001250  44 33 e7 20 69 63 6f 6e  25 3d 69 63 6f 6e 62 61  |D3. icon%=iconba|
00001260  72 25 20 80 20 28 69 6e  74 66 6c 61 67 25 20 80  |r% . (intflag% .|
00001270  20 34 29 3d 30 20 80 20  62 75 74 6e 25 3d 34 20  | 4)=0 . butn%=4 |
00001280  8c 0d 07 4e 34 21 62 6c  6f 63 6b 25 3d 65 6e 64  |...N4!block%=end|
00001290  77 69 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |win%:.. "Wimp_Ge|
000012a0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
000012b0  6c 6f 63 6b 25 0d 07 58  20 c8 99 20 22 57 69 6d  |lock%..X .. "Wim|
000012c0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000012d0  6c 6f 63 6b 25 0d 07 62  34 21 62 6c 6f 63 6b 25  |lock%..b4!block%|
000012e0  3d 73 74 72 77 69 6e 25  3a c8 99 20 22 57 69 6d  |=strwin%:.. "Wim|
000012f0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001300  22 2c 2c 62 6c 6f 63 6b  25 0d 07 6c 20 c8 99 20  |",,block%..l .. |
00001310  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001320  22 2c 2c 62 6c 6f 63 6b  25 0d 07 76 05 cd 0d 07  |",,block%..v....|
00001330  80 33 e7 20 69 63 6f 6e  25 3d 69 63 6f 6e 62 61  |.3. icon%=iconba|
00001340  72 25 20 80 20 28 69 6e  74 66 6c 61 67 25 20 80  |r% . (intflag% .|
00001350  20 34 29 3d 34 20 80 20  62 75 74 6e 25 3d 34 20  | 4)=4 . butn%=4 |
00001360  8c 0d 07 8a 34 21 62 6c  6f 63 6b 25 3d 6d 72 70  |....4!block%=mrp|
00001370  77 69 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |win%:.. "Wimp_Ge|
00001380  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00001390  6c 6f 63 6b 25 0d 07 94  20 c8 99 20 22 57 69 6d  |lock%... .. "Wim|
000013a0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
000013b0  6c 6f 63 6b 25 0d 07 9e  34 21 62 6c 6f 63 6b 25  |lock%...4!block%|
000013c0  3d 70 72 76 77 69 6e 25  3a c8 99 20 22 57 69 6d  |=prvwin%:.. "Wim|
000013d0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000013e0  22 2c 2c 62 6c 6f 63 6b  25 0d 07 a8 20 c8 99 20  |",,block%... .. |
000013f0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001400  22 2c 2c 62 6c 6f 63 6b  25 0d 07 b2 05 cd 0d 07  |",,block%.......|
00001410  bc 2a e7 20 69 63 6f 6e  25 3d 69 63 6f 6e 62 61  |.*. icon%=iconba|
00001420  72 25 20 80 20 62 75 74  6e 25 3d 32 20 8c 20 f2  |r% . butn%=2 . .|
00001430  69 63 6f 6e 6d 65 6e 75  0d 07 c6 05 3a 0d 07 d0  |iconmenu....:...|
00001440  0d c9 20 73 76 65 77 69  6e 25 0d 07 da 19 e7 20  |.. svewin%..... |
00001450  69 63 6f 6e 25 3d 30 20  80 20 62 75 74 6e 25 3d  |icon%=0 . butn%=|
00001460  34 20 8c 0d 07 e4 1a f2  73 61 76 65 28 66 69 6c  |4 ......save(fil|
00001470  65 6e 61 6d 65 25 2c 73  61 76 65 25 29 0d 07 ee  |ename%,save%)...|
00001480  0d e7 20 73 61 76 65 25  20 8c 0d 07 f8 33 21 62  |.. save% ....3!b|
00001490  6c 6f 63 6b 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |lock%=block%!12:|
000014a0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
000014b0  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 08 02  |ndow",,block%...|
000014c0  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
000014d0  4d 65 6e 75 22 2c 2c 2d  31 0d 08 0c 05 cd 0d 08  |Menu",,-1.......|
000014e0  16 05 cd 0d 08 20 21 e7  20 69 63 6f 6e 25 3d 33  |..... !. icon%=3|
000014f0  20 80 20 28 62 75 74 6e  25 20 80 20 31 31 32 29  | . (butn% . 112)|
00001500  3e 30 20 8c 0d 08 2a 3c  21 62 6c 6f 63 6b 25 3d  |>0 ...*<!block%=|
00001510  62 6c 6f 63 6b 25 21 31  32 3a 62 6c 6f 63 6b 25  |block%!12:block%|
00001520  21 34 30 3d 62 6c 6f 63  6b 25 21 31 32 3a 62 6c  |!40=block%!12:bl|
00001530  6f 63 6b 25 21 34 3d 62  6c 6f 63 6b 25 21 31 36  |ock%!4=block%!16|
00001540  0d 08 34 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..4".. "Wimp_Get|
00001550  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00001560  6b 25 0d 08 3e 27 c8 99  20 22 57 69 6d 70 5f 47  |k%..>'.. "Wimp_G|
00001570  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001580  62 6c 6f 63 6b 25 2b 34  30 0d 08 48 37 62 6c 6f  |block%+40..H7blo|
00001590  63 6b 25 21 34 3d 35 3a  62 6c 6f 63 6b 25 21 38  |ck%!4=5:block%!8|
000015a0  2b 3d 62 6c 6f 63 6b 25  21 34 34 3a 62 6c 6f 63  |+=block%!44:bloc|
000015b0  6b 25 21 31 32 2b 3d 62  6c 6f 63 6b 25 21 35 36  |k%!12+=block%!56|
000015c0  0d 08 52 2d 62 6c 6f 63  6b 25 21 31 36 2b 3d 62  |..R-block%!16+=b|
000015d0  6c 6f 63 6b 25 21 34 34  3a 62 6c 6f 63 6b 25 21  |lock%!44:block%!|
000015e0  32 30 2b 3d 62 6c 6f 63  6b 25 21 35 36 0d 08 5c  |20+=block%!56..\|
000015f0  43 62 6c 6f 63 6b 25 21  32 34 3d 30 3a 62 6c 6f  |Cblock%!24=0:blo|
00001600  63 6b 25 21 32 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ck%!28=0:block%!|
00001610  33 32 3d 26 37 46 46 46  46 46 46 46 3a 62 6c 6f  |32=&7FFFFFFF:blo|
00001620  63 6b 25 21 33 36 3d 26  37 46 46 46 46 46 46 46  |ck%!36=&7FFFFFFF|
00001630  0d 08 66 1d c8 99 20 22  57 69 6d 70 5f 44 72 61  |..f... "Wimp_Dra|
00001640  67 42 6f 78 22 2c 2c 62  6c 6f 63 6b 25 0d 08 70  |gBox",,block%..p|
00001650  0d 73 70 73 61 76 65 25  3d a3 0d 08 7a 05 cd 0d  |.spsave%=...z...|
00001660  08 84 05 3a 0d 08 8e 15  c9 20 73 74 72 77 69 6e  |...:..... strwin|
00001670  25 2c 65 6e 64 77 69 6e  25 0d 08 98 19 e7 20 62  |%,endwin%..... b|
00001680  75 74 6e 25 3d 32 20 8c  20 f2 65 64 69 74 6d 65  |utn%=2 . .editme|
00001690  6e 75 0d 08 a2 15 21 62  6c 6f 63 6b 25 3d 62 6c  |nu....!block%=bl|
000016a0  6f 63 6b 25 21 31 32 0d  08 ac 24 c8 99 20 22 57  |ock%!12...$.. "W|
000016b0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
000016c0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 08 b6 22 78  |te",,block%..."x|
000016d0  70 6e 74 25 3d 78 70 6e  74 25 2d 62 6c 6f 63 6b  |pnt%=xpnt%-block|
000016e0  25 21 34 2b 62 6c 6f 63  6b 25 21 32 30 0d 08 c0  |%!4+block%!20...|
000016f0  28 79 70 6e 74 25 3d 79  70 6e 74 25 2d 62 6c 6f  |(ypnt%=ypnt%-blo|
00001700  63 6b 25 21 31 36 2b 62  6c 6f 63 6b 25 21 32 34  |ck%!16+block%!24|
00001710  2b 68 67 74 25 0d 08 ca  28 70 6e 74 6e 75 6d 25  |+hgt%...(pntnum%|
00001720  3d a4 6c 6f 63 61 74 65  28 21 62 6c 6f 63 6b 25  |=.locate(!block%|
00001730  2c 78 70 6e 74 25 2c 79  70 6e 74 25 29 0d 08 d4  |,xpnt%,ypnt%)...|
00001740  12 e7 20 62 75 74 6e 25  3d 31 30 32 34 20 8c 0d  |.. butn%=1024 ..|
00001750  08 de 11 f2 74 69 64 79  28 63 6c 61 69 6d 25 29  |....tidy(claim%)|
00001760  0d 08 e8 0e e7 20 63 6c  61 69 6d 25 20 8c 0d 08  |..... claim% ...|
00001770  f2 0d f2 76 61 72 69 61  62 6c 65 0d 08 fc 11 e7  |...variable.....|
00001780  20 70 6e 74 6e 75 6d 25  3c 30 20 8c 0d 09 06 15  | pntnum%<0 .....|
00001790  70 6e 74 6e 75 6d 25 3d  21 69 6e 69 74 69 61 6c  |pntnum%=!initial|
000017a0  25 0d 09 10 2c 69 6e 69  74 69 61 6c 25 21 28 34  |%...,initial%!(4|
000017b0  2b 38 2a 70 6e 74 6e 75  6d 25 29 3d 78 70 6e 74  |+8*pntnum%)=xpnt|
000017c0  25 2a 28 31 3c 3c 73 68  69 66 74 25 29 0d 09 1a  |%*(1<<shift%)...|
000017d0  2c 69 6e 69 74 69 61 6c  25 21 28 38 2b 38 2a 70  |,initial%!(8+8*p|
000017e0  6e 74 6e 75 6d 25 29 3d  79 70 6e 74 25 2a 28 31  |ntnum%)=ypnt%*(1|
000017f0  3c 3c 73 68 69 66 74 25  29 0d 09 24 2f 66 69 6e  |<<shift%)..$/fin|
00001800  61 6c 25 21 28 34 2b 38  2a 70 6e 74 6e 75 6d 25  |al%!(4+8*pntnum%|
00001810  29 3d 69 6e 69 74 69 61  6c 25 21 28 34 2b 38 2a  |)=initial%!(4+8*|
00001820  70 6e 74 6e 75 6d 25 29  0d 09 2e 2f 66 69 6e 61  |pntnum%).../fina|
00001830  6c 25 21 28 38 2b 38 2a  70 6e 74 6e 75 6d 25 29  |l%!(8+8*pntnum%)|
00001840  3d 69 6e 69 74 69 61 6c  25 21 28 38 2b 38 2a 70  |=initial%!(8+8*p|
00001850  6e 74 6e 75 6d 25 29 0d  09 38 29 21 69 6e 69 74  |ntnum%)..8)!init|
00001860  69 61 6c 25 3d 70 6e 74  6e 75 6d 25 2b 31 3a 21  |ial%=pntnum%+1:!|
00001870  66 69 6e 61 6c 25 3d 70  6e 74 6e 75 6d 25 2b 31  |final%=pntnum%+1|
00001880  0d 09 42 05 cd 0d 09 4c  14 70 6f 6c 6e 75 6d 25  |..B....L.polnum%|
00001890  3d 21 6f 66 66 73 65 74  25 0d 09 56 12 70 6f 6c  |=!offset%..V.pol|
000018a0  61 64 72 25 3d 21 70 6f  6c 79 25 0d 09 60 1d 70  |adr%=!poly%..`.p|
000018b0  6f 6c 79 25 21 28 34 2b  70 6f 6c 61 64 72 25 29  |oly%!(4+poladr%)|
000018c0  3d 70 6e 74 6e 75 6d 25  0d 09 6a 21 70 6f 6c 6f  |=pntnum%..j!polo|
000018d0  66 66 25 3d 6f 66 66 73  65 74 25 21 28 34 2b 34  |ff%=offset%!(4+4|
000018e0  2a 70 6f 6c 6e 75 6d 25  29 0d 09 74 29 70 6f 6c  |*polnum%)..t)pol|
000018f0  79 25 21 28 34 2b 70 6f  6c 6f 66 66 25 29 3d 70  |y%!(4+poloff%)=p|
00001900  6f 6c 79 25 21 28 34 2b  70 6f 6c 6f 66 66 25 29  |oly%!(4+poloff%)|
00001910  2b 31 0d 09 7e 14 21 70  6f 6c 79 25 3d 70 6f 6c  |+1..~.!poly%=pol|
00001920  61 64 72 25 2b 34 0d 09  88 25 e7 20 70 6f 6c 79  |adr%+4...%. poly|
00001930  25 21 28 34 2b 70 6f 6c  6f 66 66 25 29 3e 33 20  |%!(4+poloff%)>3 |
00001940  8c 20 62 75 74 6e 25 3d  32 35 36 0d 09 92 05 cc  |. butn%=256.....|
00001950  0d 09 9c 09 f2 66 75 6c  6c 0d 09 a6 05 cd 0d 09  |.....full.......|
00001960  b0 05 cd 0d 09 ba 11 e7  20 62 75 74 6e 25 3d 32  |........ butn%=2|
00001970  35 36 20 8c 0d 09 c4 11  f2 74 69 64 79 28 63 6c  |56 ......tidy(cl|
00001980  61 69 6d 25 29 0d 09 ce  0e e7 20 63 6c 61 69 6d  |aim%)..... claim|
00001990  25 20 8c 0d 09 d8 0d f2  76 61 72 69 61 62 6c 65  |% ......variable|
000019a0  0d 09 e2 14 70 6f 6c 6e  75 6d 25 3d 21 6f 66 66  |....polnum%=!off|
000019b0  73 65 74 25 0d 09 ec 21  70 6f 6c 6f 66 66 25 3d  |set%...!poloff%=|
000019c0  6f 66 66 73 65 74 25 21  28 34 2b 34 2a 70 6f 6c  |offset%!(4+4*pol|
000019d0  6e 75 6d 25 29 0d 09 f6  1b e7 20 70 6f 6c 79 25  |num%)..... poly%|
000019e0  21 28 34 2b 70 6f 6c 6f  66 66 25 29 3e 30 20 8c  |!(4+poloff%)>0 .|
000019f0  0d 0a 00 12 70 6f 6c 61  64 72 25 3d 21 70 6f 6c  |....poladr%=!pol|
00001a00  79 25 0d 0a 0a 1d 70 6e  74 6e 75 6d 25 3d 70 6f  |y%....pntnum%=po|
00001a10  6c 79 25 21 28 38 2b 70  6f 6c 6f 66 66 25 29 0d  |ly%!(8+poloff%).|
00001a20  0a 14 1d 70 6f 6c 79 25  21 28 34 2b 70 6f 6c 61  |...poly%!(4+pola|
00001a30  64 72 25 29 3d 70 6e 74  6e 75 6d 25 0d 0a 1e 29  |dr%)=pntnum%...)|
00001a40  70 6f 6c 79 25 21 28 34  2b 70 6f 6c 6f 66 66 25  |poly%!(4+poloff%|
00001a50  29 3d 70 6f 6c 79 25 21  28 34 2b 70 6f 6c 6f 66  |)=poly%!(4+polof|
00001a60  66 25 29 2b 31 0d 0a 28  21 70 6f 6c 61 64 72 25  |f%)+1..(!poladr%|
00001a70  2b 3d 34 3a 21 6f 66 66  73 65 74 25 3d 70 6f 6c  |+=4:!offset%=pol|
00001a80  6e 75 6d 25 2b 31 0d 0a  32 35 6f 66 66 73 65 74  |num%+1..25offset|
00001a90  25 21 28 38 2b 34 2a 70  6f 6c 6e 75 6d 25 29 3d  |%!(8+4*polnum%)=|
00001aa0  70 6f 6c 61 64 72 25 3a  70 6f 6c 79 25 21 28 34  |poladr%:poly%!(4|
00001ab0  2b 70 6f 6c 61 64 72 25  29 3d 30 0d 0a 3c 14 21  |+poladr%)=0..<.!|
00001ac0  70 6f 6c 79 25 3d 70 6f  6c 61 64 72 25 2b 34 0d  |poly%=poladr%+4.|
00001ad0  0a 46 30 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |.F0.. "Wimp_Forc|
00001ae0  65 52 65 64 72 61 77 22  2c 73 74 72 77 69 6e 25  |eRedraw",strwin%|
00001af0  2c 30 2c 2d 68 67 74 25  2c 77 64 74 25 2c 30 0d  |,0,-hgt%,wdt%,0.|
00001b00  0a 50 30 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |.P0.. "Wimp_Forc|
00001b10  65 52 65 64 72 61 77 22  2c 65 6e 64 77 69 6e 25  |eRedraw",endwin%|
00001b20  2c 30 2c 2d 68 67 74 25  2c 77 64 74 25 2c 30 0d  |,0,-hgt%,wdt%,0.|
00001b30  0a 5a 05 cd 0d 0a 64 05  cc 0d 0a 6e 09 f2 66 75  |.Z....d....n..fu|
00001b40  6c 6c 0d 0a 78 05 cd 0d  0a 82 05 cd 0d 0a 8c 1d  |ll..x...........|
00001b50  e7 20 62 75 74 6e 25 3d  31 36 20 80 20 70 6e 74  |. butn%=16 . pnt|
00001b60  6e 75 6d 25 3e 3d 30 20  8c 0d 0a 96 29 62 6c 6f  |num%>=0 ....)blo|
00001b70  63 6b 25 21 32 34 3d 62  6c 6f 63 6b 25 21 34 3a  |ck%!24=block%!4:|
00001b80  62 6c 6f 63 6b 25 21 32  38 3d 62 6c 6f 63 6b 25  |block%!28=block%|
00001b90  21 38 0d 0a a0 2b 62 6c  6f 63 6b 25 21 33 32 3d  |!8...+block%!32=|
00001ba0  62 6c 6f 63 6b 25 21 31  32 3a 62 6c 6f 63 6b 25  |block%!12:block%|
00001bb0  21 33 36 3d 62 6c 6f 63  6b 25 21 31 36 0d 0a aa  |!36=block%!16...|
00001bc0  0e 62 6c 6f 63 6b 25 21  34 3d 37 0d 0a b4 1d c8  |.block%!4=7.....|
00001bd0  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
00001be0  2c 2c 62 6c 6f 63 6b 25  0d 0a be 05 cd 0d 0a c8  |,,block%........|
00001bf0  12 e7 20 70 6e 74 6e 75  6d 25 3e 3d 30 20 8c 0d  |.. pntnum%>=0 ..|
00001c00  0a d2 38 62 6c 6f 63 6b  25 21 34 3d 30 3a 62 6c  |..8block%!4=0:bl|
00001c10  6f 63 6b 25 21 38 3d 2d  68 67 74 25 3a 62 6c 6f  |ock%!8=-hgt%:blo|
00001c20  63 6b 25 21 31 32 3d 77  64 74 25 3a 62 6c 6f 63  |ck%!12=wdt%:bloc|
00001c30  6b 25 21 31 36 3d 30 0d  0a dc 13 21 62 6c 6f 63  |k%!16=0....!bloc|
00001c40  6b 25 3d 73 74 72 77 69  6e 25 0d 0a e6 0f f2 66  |k%=strwin%.....f|
00001c50  61 73 74 72 65 64 72 61  77 0d 0a f0 38 62 6c 6f  |astredraw...8blo|
00001c60  63 6b 25 21 34 3d 30 3a  62 6c 6f 63 6b 25 21 38  |ck%!4=0:block%!8|
00001c70  3d 2d 68 67 74 25 3a 62  6c 6f 63 6b 25 21 31 32  |=-hgt%:block%!12|
00001c80  3d 77 64 74 25 3a 62 6c  6f 63 6b 25 21 31 36 3d  |=wdt%:block%!16=|
00001c90  30 0d 0a fa 13 21 62 6c  6f 63 6b 25 3d 65 6e 64  |0....!block%=end|
00001ca0  77 69 6e 25 0d 0b 04 0f  f2 66 61 73 74 72 65 64  |win%.....fastred|
00001cb0  72 61 77 0d 0b 0e 13 73  65 6c 65 63 74 25 3d 70  |raw....select%=p|
00001cc0  6e 74 6e 75 6d 25 0d 0b  18 05 cd 0d 0b 22 05 3a  |ntnum%.......".:|
00001cd0  0d 0b 2c 0d c9 20 6d 72  70 77 69 6e 25 0d 0b 36  |..,.. mrpwin%..6|
00001ce0  26 e7 20 69 63 6f 6e 25  3e 3d 32 37 20 80 20 69  |&. icon%>=27 . i|
00001cf0  63 6f 6e 25 3c 33 31 20  80 20 62 75 74 6e 25 3e  |con%<31 . butn%>|
00001d00  30 20 8c 0d 0b 40 2e 69  6e 70 75 74 25 21 28 34  |0 ...@.input%!(4|
00001d10  30 2b 28 69 63 6f 6e 25  20 80 20 32 29 2a 32 29  |0+(icon% . 2)*2)|
00001d20  2b 3d 32 2a 28 69 63 6f  6e 25 20 80 20 31 29 2d  |+=2*(icon% . 1)-|
00001d30  31 0d 0b 4a 3d f2 6c 69  6d 69 74 28 69 6e 70 75  |1..J=.limit(inpu|
00001d40  74 25 21 34 30 2c 30 2c  69 6e 70 75 74 25 21 34  |t%!40,0,input%!4|
00001d50  34 29 3a f2 6c 69 6d 69  74 28 69 6e 70 75 74 25  |4):.limit(input%|
00001d60  21 34 34 2c 31 2c 6d 61  78 66 72 6d 25 29 0d 0b  |!44,1,maxfrm%)..|
00001d70  54 20 24 28 65 6e 64 66  72 6d 25 29 3d c3 28 69  |T $(endfrm%)=.(i|
00001d80  6e 70 75 74 25 21 34 34  29 2b bd 28 30 29 0d 0b  |nput%!44)+.(0)..|
00001d90  5e 20 24 28 73 74 72 66  72 6d 25 29 3d c3 28 69  |^ $(strfrm%)=.(i|
00001da0  6e 70 75 74 25 21 34 30  29 2b bd 28 30 29 0d 0b  |nput%!40)+.(0)..|
00001db0  68 1a d6 20 69 6e 62 65  74 77 65 65 6e 3a d6 20  |h.. inbetween:. |
00001dc0  62 6f 75 6e 64 62 6f 78  0d 0b 72 2c 21 62 6c 6f  |boundbox..r,!blo|
00001dd0  63 6b 25 3d 62 6c 6f 63  6b 25 21 31 32 3a 62 6c  |ck%=block%!12:bl|
00001de0  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00001df0  31 32 3d 30 0d 0b 7c 2e  62 6c 6f 63 6b 25 21 34  |12=0..|.block%!4|
00001e00  3d 33 31 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |=31:.. "Wimp_Set|
00001e10  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00001e20  6b 25 0d 0b 86 2e 62 6c  6f 63 6b 25 21 34 3d 33  |k%....block%!4=3|
00001e30  32 3a c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |2:.. "Wimp_SetIc|
00001e40  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
00001e50  0d 0b 90 17 e7 20 21 28  34 2b 68 65 61 70 25 21  |..... !(4+heap%!|
00001e60  32 34 29 3e 30 20 8c 0d  0b 9a 32 c8 99 20 22 4f  |24)>0 ....2.. "O|
00001e70  53 5f 53 70 72 69 74 65  4f 70 22 2c 35 31 32 2b  |S_SpriteOp",512+|
00001e80  32 35 2c 68 65 61 70 25  21 32 34 2c 28 68 65 61  |25,heap%!24,(hea|
00001e90  70 25 21 32 34 29 2b 31  36 0d 0b a4 33 f2 63 6c  |p%!24)+16...3.cl|
00001ea0  61 69 6d 28 68 65 61 70  25 2b 32 34 2c 33 32 2c  |aim(heap%+24,32,|
00001eb0  63 6c 61 69 6d 25 29 3a  21 28 68 65 61 70 25 21  |claim%):!(heap%!|
00001ec0  32 34 29 3d 68 65 61 70  25 21 32 38 0d 0b ae 0d  |24)=heap%!28....|
00001ed0  f2 76 61 72 69 61 62 6c  65 0d 0b b8 05 cd 0d 0b  |.variable.......|
00001ee0  c2 30 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |.0.. "Wimp_Force|
00001ef0  52 65 64 72 61 77 22 2c  70 72 76 77 69 6e 25 2c  |Redraw",prvwin%,|
00001f00  30 2c 2d 68 67 74 25 2c  77 64 74 25 2c 30 0d 0b  |0,-hgt%,wdt%,0..|
00001f10  cc 05 cd 0d 0b d6 27 e7  20 69 63 6f 6e 25 3d 33  |......'. icon%=3|
00001f20  33 20 80 20 62 75 74 6e  25 3e 30 20 8c 20 69 6e  |3 . butn%>0 . in|
00001f30  70 75 74 25 21 34 38 3d  31 33 0d 0b e0 27 e7 20  |put%!48=13...'. |
00001f40  69 63 6f 6e 25 3d 33 34  20 80 20 62 75 74 6e 25  |icon%=34 . butn%|
00001f50  3e 30 20 8c 20 69 6e 70  75 74 25 21 34 38 3d 31  |>0 . input%!48=1|
00001f60  35 0d 0b ea 27 e7 20 69  63 6f 6e 25 3d 33 35 20  |5...'. icon%=35 |
00001f70  80 20 62 75 74 6e 25 3e  30 20 8c 20 69 6e 70 75  |. butn%>0 . inpu|
00001f80  74 25 21 34 38 3d 32 31  0d 0b f4 76 e7 20 69 63  |t%!48=21...v. ic|
00001f90  6f 6e 25 3d 33 33 20 80  20 62 75 74 6e 25 3d 31  |on%=33 . butn%=1|
00001fa0  20 8c 20 21 62 6c 6f 63  6b 25 3d 62 6c 6f 63 6b  | . !block%=block|
00001fb0  25 21 31 32 3a 62 6c 6f  63 6b 25 21 38 3d 31 3c  |%!12:block%!8=1<|
00001fc0  3c 32 31 3a 62 6c 6f 63  6b 25 21 31 32 3d 31 3c  |<21:block%!12=1<|
00001fd0  3c 32 31 3a 62 6c 6f 63  6b 25 21 34 3d 33 33 3a  |<21:block%!4=33:|
00001fe0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00001ff0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 0b  |State",,block%..|
00002000  fe 76 e7 20 69 63 6f 6e  25 3d 33 34 20 80 20 62  |.v. icon%=34 . b|
00002010  75 74 6e 25 3d 31 20 8c  20 21 62 6c 6f 63 6b 25  |utn%=1 . !block%|
00002020  3d 62 6c 6f 63 6b 25 21  31 32 3a 62 6c 6f 63 6b  |=block%!12:block|
00002030  25 21 38 3d 31 3c 3c 32  31 3a 62 6c 6f 63 6b 25  |%!8=1<<21:block%|
00002040  21 31 32 3d 31 3c 3c 32  31 3a 62 6c 6f 63 6b 25  |!12=1<<21:block%|
00002050  21 34 3d 33 34 3a c8 99  20 22 57 69 6d 70 5f 53  |!4=34:.. "Wimp_S|
00002060  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00002070  6f 63 6b 25 0d 0c 08 76  e7 20 69 63 6f 6e 25 3d  |ock%...v. icon%=|
00002080  33 35 20 80 20 62 75 74  6e 25 3d 31 20 8c 20 21  |35 . butn%=1 . !|
00002090  62 6c 6f 63 6b 25 3d 62  6c 6f 63 6b 25 21 31 32  |block%=block%!12|
000020a0  3a 62 6c 6f 63 6b 25 21  38 3d 31 3c 3c 32 31 3a  |:block%!8=1<<21:|
000020b0  62 6c 6f 63 6b 25 21 31  32 3d 31 3c 3c 32 31 3a  |block%!12=1<<21:|
000020c0  62 6c 6f 63 6b 25 21 34  3d 33 35 3a c8 99 20 22  |block%!4=35:.. "|
000020d0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
000020e0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0c 12 31 e7 20  |e",,block%...1. |
000020f0  69 63 6f 6e 25 3d 33 36  20 80 20 62 75 74 6e 25  |icon%=36 . butn%|
00002100  3e 30 20 8c 20 69 6e 74  66 6c 61 67 25 3d 69 6e  |>0 . intflag%=in|
00002110  74 66 6c 61 67 25 20 82  20 31 36 0d 0c 1c 2d e7  |tflag% . 16...-.|
00002120  20 69 63 6f 6e 25 3d 34  30 20 80 20 28 69 6e 74  | icon%=40 . (int|
00002130  66 6c 61 67 25 20 80 20  31 29 3d 31 20 80 20 62  |flag% . 1)=1 . b|
00002140  75 74 6e 25 3e 30 20 8c  0d 0c 26 1b 69 6e 74 66  |utn%>0 ...&.intf|
00002150  6c 61 67 25 3d 69 6e 74  66 6c 61 67 25 20 80 20  |lag%=intflag% . |
00002160  ac 20 32 0d 0c 30 29 21  62 6c 6f 63 6b 25 3d 62  |. 2..0)!block%=b|
00002170  6c 6f 63 6b 25 21 31 32  3a 62 6c 6f 63 6b 25 21  |lock%!12:block%!|
00002180  31 32 3d 26 46 30 30 30  30 30 30 30 0d 0c 3a 41  |12=&F0000000..:A|
00002190  62 6c 6f 63 6b 25 21 34  3d 34 30 3a 62 6c 6f 63  |block%!4=40:bloc|
000021a0  6b 25 21 38 3d 26 45 30  30 30 30 30 30 30 3a c8  |k%!8=&E0000000:.|
000021b0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
000021c0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0c 44  |tate",,block%..D|
000021d0  41 62 6c 6f 63 6b 25 21  34 3d 34 31 3a 62 6c 6f  |Ablock%!4=41:blo|
000021e0  63 6b 25 21 38 3d 26 43  30 30 30 30 30 30 30 3a  |ck%!8=&C0000000:|
000021f0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00002200  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 0c  |State",,block%..|
00002210  4e 05 cd 0d 0c 58 2d e7  20 69 63 6f 6e 25 3d 34  |N....X-. icon%=4|
00002220  30 20 80 20 28 69 6e 74  66 6c 61 67 25 20 80 20  |0 . (intflag% . |
00002230  31 29 3d 30 20 80 20 62  75 74 6e 25 3e 30 20 8c  |1)=0 . butn%>0 .|
00002240  0d 0c 62 1f 74 69 6d 65  25 3d 91 3a 66 72 6d 74  |..b.time%=.:frmt|
00002250  6d 65 25 3d 91 3a 66 72  6d 64 6e 65 25 3d 30 0d  |me%=.:frmdne%=0.|
00002260  0c 6c 34 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |.l4.. "OS_ReadMo|
00002270  64 65 56 61 72 69 61 62  6c 65 22 2c 69 6e 70 75  |deVariable",inpu|
00002280  74 25 21 34 38 2c 34 20  b8 20 2c 2c 73 70 72 77  |t%!48,4 . ,,sprw|
00002290  64 74 25 0d 0c 76 34 c8  99 20 22 4f 53 5f 52 65  |dt%..v4.. "OS_Re|
000022a0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
000022b0  69 6e 70 75 74 25 21 34  38 2c 35 20 b8 20 2c 2c  |input%!48,5 . ,,|
000022c0  73 70 72 68 67 74 25 0d  0c 80 20 73 70 72 77 64  |sprhgt%... sprwd|
000022d0  74 25 3d 77 64 74 73 63  6c 25 2f 28 31 3c 3c 73  |t%=wdtscl%/(1<<s|
000022e0  70 72 77 64 74 25 29 0d  0c 8a 20 73 70 72 68 67  |prwdt%)... sprhg|
000022f0  74 25 3d 68 67 74 73 63  6c 25 2f 28 31 3c 3c 73  |t%=hgtscl%/(1<<s|
00002300  70 72 68 67 74 25 29 0d  0c 94 34 c8 99 20 22 4f  |prhgt%)...4.. "O|
00002310  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00002320  6c 65 22 2c 69 6e 70 75  74 25 21 34 38 2c 37 20  |le",input%!48,7 |
00002330  b8 20 2c 2c 73 63 72 73  7a 65 25 0d 0c 9e 20 73  |. ,,scrsze%... s|
00002340  63 72 73 7a 65 25 3d 28  73 63 72 73 7a 65 25 2b  |crsze%=(scrsze%+|
00002350  26 35 46 29 80 20 ac 20  26 31 46 0d 0c a8 23 f2  |&5F). . &1F...#.|
00002360  63 6c 61 69 6d 28 68 65  61 70 25 2b 32 34 2c 73  |claim(heap%+24,s|
00002370  63 72 73 7a 65 25 2c 63  6c 61 69 6d 25 29 0d 0c  |crsze%,claim%)..|
00002380  b2 0e e7 20 63 6c 61 69  6d 25 20 8c 0d 0c bc 0d  |... claim% .....|
00002390  f2 76 61 72 69 61 62 6c  65 0d 0c c6 18 21 28 68  |.variable....!(h|
000023a0  65 61 70 25 21 32 34 29  3d 68 65 61 70 25 21 32  |eap%!24)=heap%!2|
000023b0  38 0d 0c d0 49 c8 99 20  22 4f 53 5f 53 70 72 69  |8...I.. "OS_Spri|
000023c0  74 65 4f 70 22 2c 32 35  36 2b 31 35 2c 68 65 61  |teOp",256+15,hea|
000023d0  70 25 21 32 34 2c 22 6f  75 74 70 75 74 22 2c 30  |p%!24,"output",0|
000023e0  2c 73 70 72 77 64 74 25  2c 73 70 72 68 67 74 25  |,sprwdt%,sprhgt%|
000023f0  2c 69 6e 70 75 74 25 21  34 38 0d 0c da 0e f2 74  |,input%!48.....t|
00002400  72 61 6e 73 6c 61 74 65  0d 0c e4 2a 69 6e 70 75  |ranslate...*inpu|
00002410  74 25 21 35 32 3d 28 31  32 38 30 20 81 20 73 70  |t%!52=(1280 . sp|
00002420  72 77 64 74 25 29 2a 28  31 3c 3c 73 68 69 66 74  |rwdt%)*(1<<shift|
00002430  25 29 0d 0c ee 2a 69 6e  70 75 74 25 21 35 36 3d  |%)...*input%!56=|
00002440  28 31 30 32 34 20 81 20  73 70 72 68 67 74 25 29  |(1024 . sprhgt%)|
00002450  2a 28 31 3c 3c 73 68 69  66 74 25 29 0d 0c f8 1e  |*(1<<shift%)....|
00002460  69 6e 70 75 74 25 21 36  30 3d 31 32 37 39 2a 28  |input%!60=1279*(|
00002470  31 3c 3c 73 68 69 66 74  25 29 0d 0d 02 1e 69 6e  |1<<shift%)....in|
00002480  70 75 74 25 21 36 34 3d  31 30 32 33 2a 28 31 3c  |put%!64=1023*(1<|
00002490  3c 73 68 69 66 74 25 29  0d 0d 0c 28 21 69 6e 70  |<shift%)...(!inp|
000024a0  75 74 25 3d 69 6e 70 75  74 25 21 36 30 3a 69 6e  |ut%=input%!60:in|
000024b0  70 75 74 25 21 34 3d 69  6e 70 75 74 25 21 36 34  |put%!4=input%!64|
000024c0  0d 0d 16 0b d6 20 6d 6f  72 70 68 0d 0d 20 19 69  |..... morph.. .i|
000024d0  6e 74 66 6c 61 67 25 3d  69 6e 74 66 6c 61 67 25  |ntflag%=intflag%|
000024e0  20 84 20 31 0d 0d 2a 30  21 62 6c 6f 63 6b 25 3d  | . 1..*0!block%=|
000024f0  62 6c 6f 63 6b 25 21 31  32 3a 62 6c 6f 63 6b 25  |block%!12:block%|
00002500  21 38 3d 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 26  |!8=0:block%!12=&|
00002510  46 30 30 30 0d 0d 34 12  e3 20 73 65 74 25 3d 32  |F000..4.. set%=2|
00002520  37 20 b8 20 33 39 0d 0d  3e 30 62 6c 6f 63 6b 25  |7 . 39..>0block%|
00002530  21 34 3d 73 65 74 25 3a  c8 99 20 22 57 69 6d 70  |!4=set%:.. "Wimp|
00002540  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00002550  62 6c 6f 63 6b 25 0d 0d  48 0a ed 20 73 65 74 25  |block%..H.. set%|
00002560  0d 0d 52 36 62 6c 6f 63  6b 25 21 34 3d 34 30 3a  |..R6block%!4=40:|
00002570  62 6c 6f 63 6b 25 21 38  3d 26 45 30 30 30 30 30  |block%!8=&E00000|
00002580  30 30 3a 62 6c 6f 63 6b  25 21 31 32 3d 26 46 30  |00:block%!12=&F0|
00002590  30 30 30 30 30 30 0d 0d  5c 22 c8 99 20 22 57 69  |000000..\".. "Wi|
000025a0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000025b0  2c 2c 62 6c 6f 63 6b 25  0d 0d 66 30 c8 99 20 22  |,,block%..f0.. "|
000025c0  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
000025d0  22 2c 70 72 76 77 69 6e  25 2c 30 2c 2d 68 67 74  |",prvwin%,0,-hgt|
000025e0  25 2c 77 64 74 25 2c 30  0d 0d 70 05 cc 0d 0d 7a  |%,wdt%,0..p....z|
000025f0  09 f2 66 75 6c 6c 0d 0d  84 05 cd 0d 0d 8e 05 cd  |..full..........|
00002600  0d 0d 98 1a e7 20 69 63  6f 6e 25 3d 34 31 20 80  |..... icon%=41 .|
00002610  20 62 75 74 6e 25 3e 30  20 8c 0d 0d a2 19 69 6e  | butn%>0 .....in|
00002620  74 66 6c 61 67 25 3d 69  6e 74 66 6c 61 67 25 20  |tflag%=intflag% |
00002630  84 20 32 0d 0d ac 29 21  62 6c 6f 63 6b 25 3d 62  |. 2...)!block%=b|
00002640  6c 6f 63 6b 25 21 31 32  3a 62 6c 6f 63 6b 25 21  |lock%!12:block%!|
00002650  31 32 3d 26 46 30 30 30  30 30 30 30 0d 0d b6 41  |12=&F0000000...A|
00002660  62 6c 6f 63 6b 25 21 34  3d 34 30 3a 62 6c 6f 63  |block%!4=40:bloc|
00002670  6b 25 21 38 3d 26 43 30  30 30 30 30 30 30 3a c8  |k%!8=&C0000000:.|
00002680  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00002690  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0d c0  |tate",,block%...|
000026a0  41 62 6c 6f 63 6b 25 21  34 3d 34 31 3a 62 6c 6f  |Ablock%!4=41:blo|
000026b0  63 6b 25 21 38 3d 26 45  30 30 30 30 30 30 30 3a  |ck%!8=&E0000000:|
000026c0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000026d0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 0d  |State",,block%..|
000026e0  ca 05 cd 0d 0d d4 1a e7  20 69 63 6f 6e 25 3d 34  |........ icon%=4|
000026f0  32 20 80 20 62 75 74 6e  25 3e 30 20 8c 0d 0d de  |2 . butn%>0 ....|
00002700  17 e7 20 21 28 34 2b 68  65 61 70 25 21 32 34 29  |.. !(4+heap%!24)|
00002710  3e 30 20 8c 0d 0d e8 32  c8 99 20 22 4f 53 5f 53  |>0 ....2.. "OS_S|
00002720  70 72 69 74 65 4f 70 22  2c 35 31 32 2b 32 35 2c  |priteOp",512+25,|
00002730  68 65 61 70 25 21 32 34  2c 28 68 65 61 70 25 21  |heap%!24,(heap%!|
00002740  32 34 29 2b 31 36 0d 0d  f2 33 f2 63 6c 61 69 6d  |24)+16...3.claim|
00002750  28 68 65 61 70 25 2b 32  34 2c 33 32 2c 63 6c 61  |(heap%+24,32,cla|
00002760  69 6d 25 29 3a 21 28 68  65 61 70 25 21 32 34 29  |im%):!(heap%!24)|
00002770  3d 68 65 61 70 25 21 32  38 0d 0d fc 1e f2 63 6c  |=heap%!28.....cl|
00002780  61 69 6d 28 68 65 61 70  25 2b 37 32 2c 33 32 2c  |aim(heap%+72,32,|
00002790  63 6c 61 69 6d 25 29 0d  0e 06 0d f2 76 61 72 69  |claim%).....vari|
000027a0  61 62 6c 65 0d 0e 10 05  cd 0d 0e 1a 1b 69 6e 74  |able.........int|
000027b0  66 6c 61 67 25 3d 69 6e  74 66 6c 61 67 25 20 80  |flag%=intflag% .|
000027c0  20 ac 20 37 0d 0e 24 34  21 62 6c 6f 63 6b 25 3d  | . 7..$4!block%=|
000027d0  62 6c 6f 63 6b 25 21 31  32 3a 62 6c 6f 63 6b 25  |block%!12:block%|
000027e0  21 38 3d 26 32 30 30 30  3a 62 6c 6f 63 6b 25 21  |!8=&2000:block%!|
000027f0  31 32 3d 26 46 30 30 30  0d 0e 2e 12 e3 20 73 65  |12=&F000..... se|
00002800  74 25 3d 32 37 20 b8 20  33 30 0d 0e 38 30 62 6c  |t%=27 . 30..80bl|
00002810  6f 63 6b 25 21 34 3d 73  65 74 25 3a c8 99 20 22  |ock%!4=set%:.. "|
00002820  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002830  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0e 42 0a ed 20  |e",,block%..B.. |
00002840  73 65 74 25 0d 0e 4c 3d  62 6c 6f 63 6b 25 21 34  |set%..L=block%!4|
00002850  3d 33 31 3a 62 6c 6f 63  6b 25 21 38 3d 26 46 30  |=31:block%!8=&F0|
00002860  30 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |00:.. "Wimp_SetI|
00002870  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00002880  25 0d 0e 56 2e 62 6c 6f  63 6b 25 21 34 3d 33 32  |%..V.block%!4=32|
00002890  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |:.. "Wimp_SetIco|
000028a0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
000028b0  0e 60 2e 62 6c 6f 63 6b  25 21 34 3d 33 37 3a c8  |.`.block%!4=37:.|
000028c0  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
000028d0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0e 6a  |tate",,block%..j|
000028e0  2e 62 6c 6f 63 6b 25 21  34 3d 33 38 3a c8 99 20  |.block%!4=38:.. |
000028f0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00002900  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 0e 74 3d 62  |te",,block%..t=b|
00002910  6c 6f 63 6b 25 21 34 3d  33 39 3a c8 99 20 22 57  |lock%!4=39:.. "W|
00002920  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002930  22 2c 2c 62 6c 6f 63 6b  25 3a 62 6c 6f 63 6b 25  |",,block%:block%|
00002940  21 38 3d 26 42 30 30 30  0d 0e 7e 12 e3 20 73 65  |!8=&B000..~.. se|
00002950  74 25 3d 33 33 20 b8 20  33 36 0d 0e 88 30 62 6c  |t%=33 . 36...0bl|
00002960  6f 63 6b 25 21 34 3d 73  65 74 25 3a c8 99 20 22  |ock%!4=set%:.. "|
00002970  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002980  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0e 92 0a ed 20  |e",,block%..... |
00002990  73 65 74 25 0d 0e 9c 2a  62 6c 6f 63 6b 25 21 31  |set%...*block%!1|
000029a0  32 3d 26 46 30 30 30 30  30 30 30 3a 62 6c 6f 63  |2=&F0000000:bloc|
000029b0  6b 25 21 38 3d 26 43 30  30 30 30 30 30 30 0d 0e  |k%!8=&C0000000..|
000029c0  a6 2e 62 6c 6f 63 6b 25  21 34 3d 34 30 3a c8 99  |..block%!4=40:..|
000029d0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000029e0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 0e b0 2e  |ate",,block%....|
000029f0  62 6c 6f 63 6b 25 21 34  3d 34 31 3a c8 99 20 22  |block%!4=41:.. "|
00002a00  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002a10  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0e ba 31 21 62  |e",,block%...1!b|
00002a20  6c 6f 63 6b 25 3d 6d 72  70 77 69 6e 25 3a c8 99  |lock%=mrpwin%:..|
00002a30  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00002a40  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 0e c4 31 21  |ow",,block%...1!|
00002a50  62 6c 6f 63 6b 25 3d 70  72 76 77 69 6e 25 3a c8  |block%=prvwin%:.|
00002a60  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00002a70  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 0e ce 05  |dow",,block%....|
00002a80  cd 0d 0e d8 43 e7 20 69  63 6f 6e 25 3d 34 33 20  |....C. icon%=43 |
00002a90  8c 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |. .. "Wimp_Creat|
00002aa0  65 4d 65 6e 75 22 2c 2c  73 76 65 77 69 6e 32 25  |eMenu",,svewin2%|
00002ab0  2c 21 62 6c 6f 63 6b 25  2d 36 34 2c 62 6c 6f 63  |,!block%-64,bloc|
00002ac0  6b 25 21 34 0d 0e e2 05  3a 0d 0e ec 0d c9 20 70  |k%!4....:..... p|
00002ad0  72 76 77 69 6e 25 0d 0e  f6 19 e7 20 62 75 74 6e  |rvwin%..... butn|
00002ae0  25 3d 32 20 8c 20 f2 70  72 65 76 6d 65 6e 75 0d  |%=2 . .prevmenu.|
00002af0  0f 00 05 3a 0d 0f 0a 0e  c9 20 73 76 65 77 69 6e  |...:..... svewin|
00002b00  32 25 0d 0f 14 28 e7 20  28 62 6c 6f 63 6b 25 21  |2%...(. (block%!|
00002b10  38 20 80 20 26 35 30 29  3e 30 20 80 20 62 6c 6f  |8 . &50)>0 . blo|
00002b20  63 6b 25 21 31 36 3d 32  20 8c 0d 0f 1e 3c 21 62  |ck%!16=2 ....<!b|
00002b30  6c 6f 63 6b 25 3d 62 6c  6f 63 6b 25 21 31 32 3a  |lock%=block%!12:|
00002b40  62 6c 6f 63 6b 25 21 34  30 3d 62 6c 6f 63 6b 25  |block%!40=block%|
00002b50  21 31 32 3a 62 6c 6f 63  6b 25 21 34 3d 62 6c 6f  |!12:block%!4=blo|
00002b60  63 6b 25 21 31 36 0d 0f  28 22 c8 99 20 22 57 69  |ck%!16..(".. "Wi|
00002b70  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00002b80  2c 2c 62 6c 6f 63 6b 25  0d 0f 32 27 c8 99 20 22  |,,block%..2'.. "|
00002b90  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002ba0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2b 34 30 0d  |ate",,block%+40.|
00002bb0  0f 3c 37 62 6c 6f 63 6b  25 21 34 3d 35 3a 62 6c  |.<7block%!4=5:bl|
00002bc0  6f 63 6b 25 21 38 2b 3d  62 6c 6f 63 6b 25 21 34  |ock%!8+=block%!4|
00002bd0  34 3a 62 6c 6f 63 6b 25  21 31 32 2b 3d 62 6c 6f  |4:block%!12+=blo|
00002be0  63 6b 25 21 35 36 0d 0f  46 2d 62 6c 6f 63 6b 25  |ck%!56..F-block%|
00002bf0  21 31 36 2b 3d 62 6c 6f  63 6b 25 21 34 34 3a 62  |!16+=block%!44:b|
00002c00  6c 6f 63 6b 25 21 32 30  2b 3d 62 6c 6f 63 6b 25  |lock%!20+=block%|
00002c10  21 35 36 0d 0f 50 43 62  6c 6f 63 6b 25 21 32 34  |!56..PCblock%!24|
00002c20  3d 30 3a 62 6c 6f 63 6b  25 21 32 38 3d 30 3a 62  |=0:block%!28=0:b|
00002c30  6c 6f 63 6b 25 21 33 32  3d 26 37 46 46 46 46 46  |lock%!32=&7FFFFF|
00002c40  46 46 3a 62 6c 6f 63 6b  25 21 33 36 3d 26 37 46  |FF:block%!36=&7F|
00002c50  46 46 46 46 46 46 0d 0f  5a 1d c8 99 20 22 57 69  |FFFFFF..Z... "Wi|
00002c60  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 62 6c 6f  |mp_DragBox",,blo|
00002c70  63 6b 25 0d 0f 64 0d 73  70 73 61 76 65 25 3d b9  |ck%..d.spsave%=.|
00002c80  0d 0f 6e 05 cd 0d 0f 78  05 cb 0d 0f 82 05 e1 0d  |..n....x........|
00002c90  0f 8c 05 3a 0d 0f 96 11  dd 20 f2 66 61 73 74 72  |...:..... .fastr|
00002ca0  65 64 72 61 77 0d 0f a0  2a c8 99 20 22 57 69 6d  |edraw...*.. "Wim|
00002cb0  70 5f 55 70 64 61 74 65  57 69 6e 64 6f 77 22 2c  |p_UpdateWindow",|
00002cc0  2c 62 6c 6f 63 6b 25 20  b8 20 66 6c 61 67 25 0d  |,block% . flag%.|
00002cd0  0f aa 37 e7 20 21 62 6c  6f 63 6b 25 3d 73 74 72  |..7. !block%=str|
00002ce0  77 69 6e 25 20 8c 20 70  6f 69 6e 74 25 3d 69 6e  |win% . point%=in|
00002cf0  69 74 69 61 6c 25 20 8b  20 70 6f 69 6e 74 25 3d  |itial% . point%=|
00002d00  66 69 6e 61 6c 25 0d 0f  b4 0c c8 95 20 66 6c 61  |final%...... fla|
00002d10  67 25 0d 0f be 39 78 73  63 25 3d 62 6c 6f 63 6b  |g%...9xsc%=block|
00002d20  25 21 32 30 2d 62 6c 6f  63 6b 25 21 34 3a 79 73  |%!20-block%!4:ys|
00002d30  63 25 3d 62 6c 6f 63 6b  25 21 32 34 2d 62 6c 6f  |c%=block%!24-blo|
00002d40  63 6b 25 21 31 36 2b 68  67 74 25 0d 0f c8 29 78  |ck%!16+hgt%...)x|
00002d50  70 6c 25 3d 70 6f 69 6e  74 25 21 28 34 2b 38 2a  |pl%=point%!(4+8*|
00002d60  73 65 6c 65 63 74 25 29  2f 28 31 3c 3c 73 68 69  |select%)/(1<<shi|
00002d70  66 74 25 29 0d 0f d2 29  79 70 6c 25 3d 70 6f 69  |ft%)...)ypl%=poi|
00002d80  6e 74 25 21 28 38 2b 38  2a 73 65 6c 65 63 74 25  |nt%!(8+8*select%|
00002d90  29 2f 28 31 3c 3c 73 68  69 66 74 25 29 0d 0f dc  |)/(1<<shift%)...|
00002da0  1a c8 99 20 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |... "Wimp_SetCol|
00002db0  6f 75 72 22 2c 31 35 0d  0f e6 27 c8 93 20 c8 90  |our",15...'.. ..|
00002dc0  20 78 70 6c 25 2d 38 2d  78 73 63 25 2c 79 70 6c  | xpl%-8-xsc%,ypl|
00002dd0  25 2d 38 2d 79 73 63 25  2c 31 35 2c 31 35 0d 0f  |%-8-ysc%,15,15..|
00002de0  f0 29 78 70 6c 25 3d 70  6f 69 6e 74 25 21 28 34  |.)xpl%=point%!(4|
00002df0  2b 38 2a 70 6e 74 6e 75  6d 25 29 2f 28 31 3c 3c  |+8*pntnum%)/(1<<|
00002e00  73 68 69 66 74 25 29 0d  0f fa 29 79 70 6c 25 3d  |shift%)...)ypl%=|
00002e10  70 6f 69 6e 74 25 21 28  38 2b 38 2a 70 6e 74 6e  |point%!(8+8*pntn|
00002e20  75 6d 25 29 2f 28 31 3c  3c 73 68 69 66 74 25 29  |um%)/(1<<shift%)|
00002e30  0d 10 04 1a c8 99 20 22  57 69 6d 70 5f 53 65 74  |...... "Wimp_Set|
00002e40  43 6f 6c 6f 75 72 22 2c  31 34 0d 10 0e 21 70 6f  |Colour",14...!po|
00002e50  6c 6f 66 66 25 3d 6f 66  66 73 65 74 25 21 28 34  |loff%=offset%!(4|
00002e60  2b 34 2a 70 6f 6c 6e 75  6d 25 29 0d 10 18 32 e7  |+4*polnum%)...2.|
00002e70  20 70 6f 6c 79 25 21 28  34 2b 70 6f 6c 6f 66 66  | poly%!(4+poloff|
00002e80  25 29 3e 30 20 8c 20 c8  99 20 22 57 69 6d 70 5f  |%)>0 . .. "Wimp_|
00002e90  53 65 74 43 6f 6c 6f 75  72 22 2c 31 31 0d 10 22  |SetColour",11.."|
00002ea0  27 c8 93 20 c8 90 20 78  70 6c 25 2d 38 2d 78 73  |'.. .. xpl%-8-xs|
00002eb0  63 25 2c 79 70 6c 25 2d  38 2d 79 73 63 25 2c 31  |c%,ypl%-8-ysc%,1|
00002ec0  35 2c 31 35 0d 10 2c 19  ec 20 78 70 6c 25 2d 78  |5,15..,.. xpl%-x|
00002ed0  73 63 25 2c 79 70 6c 25  2d 79 73 63 25 0d 10 36  |sc%,ypl%-ysc%..6|
00002ee0  14 70 6f 6c 6e 75 6d 25  3d 21 6f 66 66 73 65 74  |.polnum%=!offset|
00002ef0  25 0d 10 40 21 70 6f 6c  6f 66 66 25 3d 6f 66 66  |%..@!poloff%=off|
00002f00  73 65 74 25 21 28 34 2b  34 2a 70 6f 6c 6e 75 6d  |set%!(4+4*polnum|
00002f10  25 29 0d 10 4a 1b e7 20  70 6f 6c 79 25 21 28 34  |%)..J.. poly%!(4|
00002f20  2b 70 6f 6c 6f 66 66 25  29 3e 31 20 8c 0d 10 54  |+poloff%)>1 ...T|
00002f30  16 76 72 74 25 3d 70 6f  6c 79 25 21 70 6f 6c 61  |.vrt%=poly%!pola|
00002f40  64 72 25 0d 10 5e 26 78  70 6c 25 3d 70 6f 69 6e  |dr%..^&xpl%=poin|
00002f50  74 25 21 28 34 2b 38 2a  76 72 74 25 29 2f 28 31  |t%!(4+8*vrt%)/(1|
00002f60  3c 3c 73 68 69 66 74 25  29 0d 10 68 26 79 70 6c  |<<shift%)..h&ypl|
00002f70  25 3d 70 6f 69 6e 74 25  21 28 38 2b 38 2a 76 72  |%=point%!(8+8*vr|
00002f80  74 25 29 2f 28 31 3c 3c  73 68 69 66 74 25 29 0d  |t%)/(1<<shift%).|
00002f90  10 72 19 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |.r... "Wimp_SetC|
00002fa0  6f 6c 6f 75 72 22 2c 32  0d 10 7c 19 df 20 78 70  |olour",2..|.. xp|
00002fb0  6c 25 2d 78 73 63 25 2c  79 70 6c 25 2d 79 73 63  |l%-xsc%,ypl%-ysc|
00002fc0  25 0d 10 86 05 cd 0d 10  90 2a c8 99 20 22 57 69  |%........*.. "Wi|
00002fd0  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00002fe0  2c 2c 62 6c 6f 63 6b 25  20 b8 20 66 6c 61 67 25  |,,block% . flag%|
00002ff0  0d 10 9a 05 ce 0d 10 a4  05 e1 0d 10 ae 05 3a 0d  |..............:.|
00003000  10 b8 0e dd 20 f2 64 72  61 67 62 6f 78 0d 10 c2  |.... .dragbox...|
00003010  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$.. "Wimp_GetPoi|
00003020  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00003030  25 0d 10 cc 15 77 69 6e  64 6f 77 25 3d 62 6c 6f  |%....window%=blo|
00003040  63 6b 25 21 31 32 0d 10  d6 13 69 63 6f 6e 25 3d  |ck%!12....icon%=|
00003050  62 6c 6f 63 6b 25 21 31  36 0d 10 e0 05 3a 0d 10  |block%!16....:..|
00003060  ea 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 10  |.... window% ...|
00003070  f4 15 c9 20 73 74 72 77  69 6e 25 2c 65 6e 64 77  |... strwin%,endw|
00003080  69 6e 25 0d 10 fe 11 78  70 6e 74 25 3d 21 62 6c  |in%....xpnt%=!bl|
00003090  6f 63 6b 25 0d 11 08 12  79 70 6e 74 25 3d 62 6c  |ock%....ypnt%=bl|
000030a0  6f 63 6b 25 21 34 0d 11  12 15 21 62 6c 6f 63 6b  |ock%!4....!block|
000030b0  25 3d 62 6c 6f 63 6b 25  21 31 32 0d 11 1c 24 c8  |%=block%!12...$.|
000030c0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000030d0  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |wState",,block%.|
000030e0  11 26 22 78 70 6e 74 25  3d 78 70 6e 74 25 2d 62  |.&"xpnt%=xpnt%-b|
000030f0  6c 6f 63 6b 25 21 34 2b  62 6c 6f 63 6b 25 21 32  |lock%!4+block%!2|
00003100  30 0d 11 30 28 79 70 6e  74 25 3d 79 70 6e 74 25  |0..0(ypnt%=ypnt%|
00003110  2d 62 6c 6f 63 6b 25 21  31 36 2b 62 6c 6f 63 6b  |-block%!16+block|
00003120  25 21 32 34 2b 68 67 74  25 0d 11 3a 37 e7 20 21  |%!24+hgt%..:7. !|
00003130  62 6c 6f 63 6b 25 3d 73  74 72 77 69 6e 25 20 8c  |block%=strwin% .|
00003140  20 70 6f 69 6e 74 25 3d  69 6e 69 74 69 61 6c 25  | point%=initial%|
00003150  20 8b 20 70 6f 69 6e 74  25 3d 66 69 6e 61 6c 25  | . point%=final%|
00003160  0d 11 44 2a 70 6f 69 6e  74 25 21 28 34 2b 38 2a  |..D*point%!(4+8*|
00003170  73 65 6c 65 63 74 25 29  3d 78 70 6e 74 25 2a 28  |select%)=xpnt%*(|
00003180  31 3c 3c 73 68 69 66 74  25 29 0d 11 4e 2a 70 6f  |1<<shift%)..N*po|
00003190  69 6e 74 25 21 28 38 2b  38 2a 73 65 6c 65 63 74  |int%!(8+8*select|
000031a0  25 29 3d 79 70 6e 74 25  2a 28 31 3c 3c 73 68 69  |%)=ypnt%*(1<<shi|
000031b0  66 74 25 29 0d 11 58 30  c8 99 20 22 57 69 6d 70  |ft%)..X0.. "Wimp|
000031c0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 21 62  |_ForceRedraw",!b|
000031d0  6c 6f 63 6b 25 2c 30 2c  2d 68 67 74 25 2c 77 64  |lock%,0,-hgt%,wd|
000031e0  74 25 2c 30 0d 11 62 05  7f 0d 11 6c 25 62 6c 6f  |t%,0..b....l%blo|
000031f0  63 6b 25 21 32 30 3d 77  69 6e 64 6f 77 25 3a 62  |ck%!20=window%:b|
00003200  6c 6f 63 6b 25 21 32 34  3d 69 63 6f 6e 25 0d 11  |lock%!24=icon%..|
00003210  76 28 62 6c 6f 63 6b 25  21 32 38 3d 21 62 6c 6f  |v(block%!28=!blo|
00003220  63 6b 25 3a 62 6c 6f 63  6b 25 21 33 32 3d 62 6c  |ck%:block%!32=bl|
00003230  6f 63 6b 25 21 34 0d 11  80 58 e7 20 73 70 73 61  |ock%!4...X. spsa|
00003240  76 65 25 20 8c 20 24 28  62 6c 6f 63 6b 25 2b 34  |ve% . $(block%+4|
00003250  34 29 3d a4 6c 65 61 66  28 66 69 6c 65 6e 61 6d  |4)=.leaf(filenam|
00003260  65 32 25 29 2b bd 28 30  29 20 8b 20 24 28 62 6c  |e2%)+.(0) . $(bl|
00003270  6f 63 6b 25 2b 34 34 29  3d a4 6c 65 61 66 28 66  |ock%+44)=.leaf(f|
00003280  69 6c 65 6e 61 6d 65 25  29 2b bd 28 30 29 0d 11  |ilename%)+.(0)..|
00003290  8a 26 21 62 6c 6f 63 6b  25 3d 36 30 3a 62 6c 6f  |.&!block%=60:blo|
000032a0  63 6b 25 21 31 32 3d 30  3a 62 6c 6f 63 6b 25 21  |ck%!12=0:block%!|
000032b0  31 36 3d 31 0d 11 94 37  c8 99 20 22 57 69 6d 70  |16=1...7.. "Wimp|
000032c0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000032d0  2c 62 6c 6f 63 6b 25 2c  62 6c 6f 63 6b 25 21 32  |,block%,block%!2|
000032e0  30 2c 62 6c 6f 63 6b 25  21 32 34 0d 11 9e 05 cb  |0,block%!24.....|
000032f0  0d 11 a8 05 e1 0d 11 b2  05 3a 0d 11 bc 0f dd 20  |.........:..... |
00003300  f2 6b 65 79 70 72 65 73  73 0d 11 c6 13 77 69 6e  |.keypress....win|
00003310  64 6f 77 25 3d 21 62 6c  6f 63 6b 25 0d 11 d0 12  |dow%=!block%....|
00003320  69 63 6f 6e 25 3d 62 6c  6f 63 6b 25 21 34 0d 11  |icon%=block%!4..|
00003330  da 12 63 68 72 25 3d 62  6c 6f 63 6b 25 21 32 34  |..chr%=block%!24|
00003340  0d 11 e4 46 e7 20 63 68  72 25 3c 3e 31 33 20 80  |...F. chr%<>13 .|
00003350  20 28 63 68 72 25 3c 97  22 30 22 20 84 20 63 68  | (chr%<."0" . ch|
00003360  72 25 3e 97 22 39 22 29  20 8c 20 c8 99 20 22 57  |r%>."9") . .. "W|
00003370  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00003380  63 68 72 25 3a e1 0d 11  ee 10 c8 8e 20 77 69 6e  |chr%:....... win|
00003390  64 6f 77 25 20 ca 0d 11  f8 0d c9 20 73 76 65 77  |dow% ...... svew|
000033a0  69 6e 25 0d 12 02 19 e7  20 69 63 6f 6e 25 3d 32  |in%..... icon%=2|
000033b0  20 80 20 63 68 72 25 3d  31 33 20 8c 0d 12 0c 1a  | . chr%=13 .....|
000033c0  f2 73 61 76 65 28 66 69  6c 65 6e 61 6d 65 25 2c  |.save(filename%,|
000033d0  73 61 76 65 25 29 0d 12  16 0d e7 20 73 61 76 65  |save%)..... save|
000033e0  25 20 8c 0d 12 20 21 c8  99 20 22 57 69 6d 70 5f  |% ... !.. "Wimp_|
000033f0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |CloseWindow",,bl|
00003400  6f 63 6b 25 0d 12 2a 1c  c8 99 20 22 57 69 6d 70  |ock%..*... "Wimp|
00003410  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
00003420  0d 12 34 05 cd 0d 12 3e  05 3a 0d 12 48 0d c9 20  |..4....>.:..H.. |
00003430  6d 72 70 77 69 6e 25 0d  12 52 1b e7 20 69 63 6f  |mrpwin%..R.. ico|
00003440  6e 25 3d 33 31 20 84 20  69 63 6f 6e 25 3d 33 32  |n%=31 . icon%=32|
00003450  20 8c 0d 12 5c 21 69 6e  70 75 74 25 21 34 34 3d  | ...\!input%!44=|
00003460  bb 28 a4 73 74 72 69 6e  67 28 65 6e 64 66 72 6d  |.(.string(endfrm|
00003470  25 29 29 0d 12 66 21 69  6e 70 75 74 25 21 34 30  |%))..f!input%!40|
00003480  3d bb 28 a4 73 74 72 69  6e 67 28 73 74 72 66 72  |=.(.string(strfr|
00003490  6d 25 29 29 0d 12 70 3d  f2 6c 69 6d 69 74 28 69  |m%))..p=.limit(i|
000034a0  6e 70 75 74 25 21 34 30  2c 30 2c 69 6e 70 75 74  |nput%!40,0,input|
000034b0  25 21 34 34 29 3a f2 6c  69 6d 69 74 28 69 6e 70  |%!44):.limit(inp|
000034c0  75 74 25 21 34 34 2c 31  2c 6d 61 78 66 72 6d 25  |ut%!44,1,maxfrm%|
000034d0  29 0d 12 7a 20 24 28 65  6e 64 66 72 6d 25 29 3d  |)..z $(endfrm%)=|
000034e0  c3 28 69 6e 70 75 74 25  21 34 34 29 2b bd 28 30  |.(input%!44)+.(0|
000034f0  29 0d 12 84 20 24 28 73  74 72 66 72 6d 25 29 3d  |)... $(strfrm%)=|
00003500  c3 28 69 6e 70 75 74 25  21 34 30 29 2b bd 28 30  |.(input%!40)+.(0|
00003510  29 0d 12 8e 1a d6 20 69  6e 62 65 74 77 65 65 6e  |)..... inbetween|
00003520  3a d6 20 62 6f 75 6e 64  62 6f 78 0d 12 98 1a 62  |:. boundbox....b|
00003530  6c 6f 63 6b 25 21 38 3d  30 3a 62 6c 6f 63 6b 25  |lock%!8=0:block%|
00003540  21 31 32 3d 30 0d 12 a2  2e 62 6c 6f 63 6b 25 21  |!12=0....block%!|
00003550  34 3d 33 31 3a c8 99 20  22 57 69 6d 70 5f 53 65  |4=31:.. "Wimp_Se|
00003560  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00003570  63 6b 25 0d 12 ac 2e 62  6c 6f 63 6b 25 21 34 3d  |ck%....block%!4=|
00003580  33 32 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |32:.. "Wimp_SetI|
00003590  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000035a0  25 0d 12 b6 17 e7 20 21  28 34 2b 68 65 61 70 25  |%..... !(4+heap%|
000035b0  21 32 34 29 3e 30 20 8c  0d 12 c0 32 c8 99 20 22  |!24)>0 ....2.. "|
000035c0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 35 31 32  |OS_SpriteOp",512|
000035d0  2b 32 35 2c 68 65 61 70  25 21 32 34 2c 28 68 65  |+25,heap%!24,(he|
000035e0  61 70 25 21 32 34 29 2b  31 36 0d 12 ca 33 f2 63  |ap%!24)+16...3.c|
000035f0  6c 61 69 6d 28 68 65 61  70 25 2b 32 34 2c 33 32  |laim(heap%+24,32|
00003600  2c 63 6c 61 69 6d 25 29  3a 21 28 68 65 61 70 25  |,claim%):!(heap%|
00003610  21 32 34 29 3d 68 65 61  70 25 21 32 38 0d 12 d4  |!24)=heap%!28...|
00003620  0d f2 76 61 72 69 61 62  6c 65 0d 12 de 05 cd 0d  |..variable......|
00003630  12 e8 30 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |..0.. "Wimp_Forc|
00003640  65 52 65 64 72 61 77 22  2c 70 72 76 77 69 6e 25  |eRedraw",prvwin%|
00003650  2c 30 2c 2d 68 67 74 25  2c 77 64 74 25 2c 30 0d  |,0,-hgt%,wdt%,0.|
00003660  12 f2 05 cd 0d 12 fc 05  3a 0d 13 06 1b e7 20 69  |........:..... i|
00003670  63 6f 6e 25 3d 33 38 20  84 20 69 63 6f 6e 25 3d  |con%=38 . icon%=|
00003680  33 39 20 8c 0d 13 10 1e  77 64 74 73 63 6c 25 3d  |39 .....wdtscl%=|
00003690  bb 28 a4 73 74 72 69 6e  67 28 77 64 74 78 74 25  |.(.string(wdtxt%|
000036a0  29 29 0d 13 1a 1e 68 67  74 73 63 6c 25 3d bb 28  |))....hgtscl%=.(|
000036b0  a4 73 74 72 69 6e 67 28  68 67 74 78 74 25 29 29  |.string(hgtxt%))|
000036c0  0d 13 24 1a 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |..$.block%!8=0:b|
000036d0  6c 6f 63 6b 25 21 31 32  3d 30 0d 13 2e 31 62 6c  |lock%!12=0...1bl|
000036e0  6f 63 6b 25 21 34 3d 69  63 6f 6e 25 3a c8 99 20  |ock%!4=icon%:.. |
000036f0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003700  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 13 38 17 e7  |te",,block%..8..|
00003710  20 21 28 34 2b 68 65 61  70 25 21 32 34 29 3e 30  | !(4+heap%!24)>0|
00003720  20 8c 0d 13 42 32 c8 99  20 22 4f 53 5f 53 70 72  | ...B2.. "OS_Spr|
00003730  69 74 65 4f 70 22 2c 35  31 32 2b 32 35 2c 68 65  |iteOp",512+25,he|
00003740  61 70 25 21 32 34 2c 28  68 65 61 70 25 21 32 34  |ap%!24,(heap%!24|
00003750  29 2b 31 36 0d 13 4c 33  f2 63 6c 61 69 6d 28 68  |)+16..L3.claim(h|
00003760  65 61 70 25 2b 32 34 2c  33 32 2c 63 6c 61 69 6d  |eap%+24,32,claim|
00003770  25 29 3a 21 28 68 65 61  70 25 21 32 34 29 3d 68  |%):!(heap%!24)=h|
00003780  65 61 70 25 21 32 38 0d  13 56 0d f2 76 61 72 69  |eap%!28..V..vari|
00003790  61 62 6c 65 0d 13 60 05  cd 0d 13 6a 30 c8 99 20  |able..`....j0.. |
000037a0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
000037b0  77 22 2c 70 72 76 77 69  6e 25 2c 30 2c 2d 68 67  |w",prvwin%,0,-hg|
000037c0  74 25 2c 77 64 74 25 2c  30 0d 13 74 05 cd 0d 13  |t%,wdt%,0..t....|
000037d0  7e 05 cb 0d 13 88 05 e1  0d 13 92 05 3a 0d 13 9c  |~...........:...|
000037e0  0b dd 20 f2 63 6f 64 65  0d 13 a6 2c c8 99 20 22  |.. .code...,.. "|
000037f0  4f 53 5f 46 69 6c 65 22  2c 26 46 46 2c 22 3c 4f  |OS_File",&FF,"<O|
00003800  62 65 79 24 44 69 72 3e  2e 63 6f 64 65 22 2c 63  |bey$Dir>.code",c|
00003810  6f 64 65 25 0d 13 b0 19  62 6f 75 6e 64 62 6f 78  |ode%....boundbox|
00003820  3d 21 63 6f 64 65 25 2b  63 6f 64 65 25 0d 13 ba  |=!code%+code%...|
00003830  1a 73 63 61 6e 6c 69 6e  65 3d 63 6f 64 65 25 21  |.scanline=code%!|
00003840  34 2b 63 6f 64 65 25 0d  13 c4 17 70 6f 69 6e 74  |4+code%....point|
00003850  3d 63 6f 64 65 25 21 38  2b 63 6f 64 65 25 0d 13  |=code%!8+code%..|
00003860  ce 18 6d 6f 72 70 68 3d  63 6f 64 65 25 21 31 32  |..morph=code%!12|
00003870  2b 63 6f 64 65 25 0d 13  d8 1a 70 72 65 76 69 65  |+code%....previe|
00003880  77 3d 63 6f 64 65 25 21  31 36 2b 63 6f 64 65 25  |w=code%!16+code%|
00003890  0d 13 e2 1c 69 6e 62 65  74 77 65 65 6e 3d 63 6f  |....inbetween=co|
000038a0  64 65 25 21 32 30 2b 63  6f 64 65 25 0d 13 ec 16  |de%!20+code%....|
000038b0  6d 61 70 3d 63 6f 64 65  25 21 32 34 2b 63 6f 64  |map=code%!24+cod|
000038c0  65 25 0d 13 f6 19 63 6f  6c 6f 75 72 3d 63 6f 64  |e%....colour=cod|
000038d0  65 25 21 32 38 2b 63 6f  64 65 25 0d 14 00 19 64  |e%!28+code%....d|
000038e0  65 6c 65 74 65 3d 63 6f  64 65 25 21 33 32 2b 63  |elete=code%!32+c|
000038f0  6f 64 65 25 0d 14 0a 19  6c 6f 63 61 74 65 3d 63  |ode%....locate=c|
00003900  6f 64 65 25 21 33 36 2b  63 6f 64 65 25 0d 14 14  |ode%!36+code%...|
00003910  18 67 72 6f 75 70 3d 63  6f 64 65 25 21 34 30 2b  |.group=code%!40+|
00003920  63 6f 64 65 25 0d 14 1e  1a 75 6e 67 72 6f 75 70  |code%....ungroup|
00003930  3d 63 6f 64 65 25 21 34  34 2b 63 6f 64 65 25 0d  |=code%!44+code%.|
00003940  14 28 17 68 65 61 70 3d  63 6f 64 65 25 21 34 38  |.(.heap=code%!48|
00003950  2b 63 6f 64 65 25 0d 14  32 12 69 6e 70 75 74 3d  |+code%..2.input=|
00003960  63 6f 64 65 25 2b 35 32  0d 14 3c 13 6f 75 74 70  |code%+52..<.outp|
00003970  75 74 3d 63 6f 64 65 25  2b 35 36 0d 14 46 05 3a  |ut=code%+56..F.:|
00003980  0d 14 50 21 21 69 6e 70  75 74 3d 69 6e 70 75 74  |..P!!input=input|
00003990  25 3a 21 6f 75 74 70 75  74 3d 6f 75 74 70 75 74  |%:!output=output|
000039a0  25 0d 14 5a 13 69 6e 70  75 74 25 21 38 3d 74 77  |%..Z.input%!8=tw|
000039b0  65 65 6e 25 0d 14 64 15  69 6e 70 75 74 25 21 31  |een%..d.input%!1|
000039c0  32 3d 6f 66 66 73 65 74  25 0d 14 6e 13 69 6e 70  |2=offset%..n.inp|
000039d0  75 74 25 21 31 36 3d 70  6f 6c 79 25 0d 14 78 16  |ut%!16=poly%..x.|
000039e0  69 6e 70 75 74 25 21 33  32 3d 69 6e 69 74 69 61  |input%!32=initia|
000039f0  6c 25 0d 14 82 14 69 6e  70 75 74 25 21 33 36 3d  |l%....input%!36=|
00003a00  66 69 6e 61 6c 25 0d 14  8c 0f 69 6e 70 75 74 25  |final%....input%|
00003a10  21 34 30 3d 30 0d 14 96  10 69 6e 70 75 74 25 21  |!40=0....input%!|
00003a20  34 34 3d 32 30 0d 14 a0  10 69 6e 70 75 74 25 21  |44=20....input%!|
00003a30  34 38 3d 31 33 0d 14 aa  05 e1 0d 14 b4 05 3a 0d  |48=13.........:.|
00003a40  14 be 20 dd 20 a4 6c 6f  63 61 74 65 28 77 69 6e  |.. . .locate(win|
00003a50  64 6f 77 25 2c 78 70 73  25 2c 79 70 73 25 29 0d  |dow%,xps%,yps%).|
00003a60  14 c8 31 e7 20 77 69 6e  64 6f 77 25 3d 73 74 72  |..1. window%=str|
00003a70  77 69 6e 25 20 8c 20 69  6e 70 75 74 25 21 36 38  |win% . input%!68|
00003a80  3d 30 20 8b 20 69 6e 70  75 74 25 21 36 38 3d 31  |=0 . input%!68=1|
00003a90  0d 14 d2 10 69 6e 70 75  74 25 21 37 32 3d 2d 31  |....input%!72=-1|
00003aa0  0d 14 dc 1c 21 69 6e 70  75 74 25 3d 78 70 73 25  |....!input%=xps%|
00003ab0  2a 28 31 3c 3c 73 68 69  66 74 25 29 0d 14 e6 1d  |*(1<<shift%)....|
00003ac0  69 6e 70 75 74 25 21 34  3d 79 70 73 25 2a 28 31  |input%!4=yps%*(1|
00003ad0  3c 3c 73 68 69 66 74 25  29 0d 14 f0 0c d6 20 6c  |<<shift%)..... l|
00003ae0  6f 63 61 74 65 0d 14 fa  0d 3d 21 6f 75 74 70 75  |ocate....=!outpu|
00003af0  74 25 0d 15 04 05 3a 0d  15 0e 0d dd 20 f2 72 65  |t%....:..... .re|
00003b00  64 72 61 77 0d 15 18 2a  c8 99 20 22 57 69 6d 70  |draw...*.. "Wimp|
00003b10  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00003b20  62 6c 6f 63 6b 25 20 b8  20 66 6c 61 67 25 0d 15  |block% . flag%..|
00003b30  22 0c c8 95 20 66 6c 61  67 25 0d 15 2c 13 77 69  |"... flag%..,.wi|
00003b40  6e 64 6f 77 25 3d 21 62  6c 6f 63 6b 25 0d 15 36  |ndow%=!block%..6|
00003b50  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 15 40  |... window% ...@|
00003b60  1f c9 20 73 74 72 77 69  6e 25 2c 65 6e 64 77 69  |.. strwin%,endwi|
00003b70  6e 25 3a f2 65 64 69 74  64 72 61 77 0d 15 4a 1a  |n%:.editdraw..J.|
00003b80  c9 20 70 72 76 77 69 6e  25 3a f2 70 72 65 76 69  |. prvwin%:.previ|
00003b90  65 77 64 72 61 77 0d 15  54 05 cb 0d 15 5e 2a c8  |ewdraw..T....^*.|
00003ba0  99 20 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |. "Wimp_GetRecta|
00003bb0  6e 67 6c 65 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ngle",,block% . |
00003bc0  66 6c 61 67 25 0d 15 68  05 ce 0d 15 72 05 e1 0d  |flag%..h....r...|
00003bd0  15 7c 05 3a 0d 15 86 0f  dd 20 f2 65 64 69 74 64  |.|.:..... .editd|
00003be0  72 61 77 0d 15 90 39 78  73 63 25 3d 62 6c 6f 63  |raw...9xsc%=bloc|
00003bf0  6b 25 21 32 30 2d 62 6c  6f 63 6b 25 21 34 3a 79  |k%!20-block%!4:y|
00003c00  73 63 25 3d 62 6c 6f 63  6b 25 21 32 34 2d 62 6c  |sc%=block%!24-bl|
00003c10  6f 63 6b 25 21 31 36 2b  68 67 74 25 0d 15 9a 37  |ock%!16+hgt%...7|
00003c20  e7 20 21 62 6c 6f 63 6b  25 3d 73 74 72 77 69 6e  |. !block%=strwin|
00003c30  25 20 8c 20 70 6f 69 6e  74 25 3d 69 6e 69 74 69  |% . point%=initi|
00003c40  61 6c 25 20 8b 20 70 6f  69 6e 74 25 3d 66 69 6e  |al% . point%=fin|
00003c50  61 6c 25 0d 15 a4 3b e7  20 21 62 6c 6f 63 6b 25  |al%...;. !block%|
00003c60  3d 73 74 72 77 69 6e 25  20 80 20 21 28 34 2b 68  |=strwin% . !(4+h|
00003c70  65 61 70 25 21 38 29 3e  30 20 80 20 28 69 6e 74  |eap%!8)>0 . (int|
00003c80  66 6c 61 67 25 20 80 20  38 29 3e 30 20 8c 0d 15  |flag% . 8)>0 ...|
00003c90  ae 4c c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.L.. "OS_SpriteO|
00003ca0  70 22 2c 35 31 32 2b 35  32 2c 68 65 61 70 25 21  |p",512+52,heap%!|
00003cb0  38 2c 28 68 65 61 70 25  21 38 29 2b 31 36 2c 2d  |8,(heap%!8)+16,-|
00003cc0  78 73 63 25 2c 2d 79 73  63 25 2c 2c 73 63 61 6c  |xsc%,-ysc%,,scal|
00003cd0  65 25 2c 62 69 74 6d 61  70 25 0d 15 b8 05 cd 0d  |e%,bitmap%......|
00003ce0  15 c2 3c e7 20 21 62 6c  6f 63 6b 25 3d 65 6e 64  |..<. !block%=end|
00003cf0  77 69 6e 25 20 80 20 21  28 34 2b 68 65 61 70 25  |win% . !(4+heap%|
00003d00  21 31 36 29 3e 30 20 80  20 28 69 6e 74 66 6c 61  |!16)>0 . (intfla|
00003d10  67 25 20 80 20 38 29 3e  30 20 8c 0d 15 cc 55 c8  |g% . 8)>0 ....U.|
00003d20  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00003d30  35 31 32 2b 35 32 2c 68  65 61 70 25 21 31 36 2c  |512+52,heap%!16,|
00003d40  28 68 65 61 70 25 21 31  36 29 2b 31 36 2c 2d 78  |(heap%!16)+16,-x|
00003d50  73 63 25 2c 2d 79 73 63  25 2c 2c 73 63 61 6c 65  |sc%,-ysc%,,scale|
00003d60  25 2b 31 36 2c 62 69 74  6d 61 70 25 2b 32 35 36  |%+16,bitmap%+256|
00003d70  0d 15 d6 05 cd 0d 15 e0  13 e7 20 21 69 6e 69 74  |.......... !init|
00003d80  69 61 6c 25 3e 30 20 8c  0d 15 ea 1b e3 20 64 72  |ial%>0 ...... dr|
00003d90  61 77 25 3d 30 20 b8 20  21 69 6e 69 74 69 61 6c  |aw%=0 . !initial|
00003da0  25 2d 31 0d 15 f4 45 e7  20 64 72 61 77 25 3d 73  |%-1...E. draw%=s|
00003db0  65 6c 65 63 74 25 20 8c  20 c8 99 20 22 57 69 6d  |elect% . .. "Wim|
00003dc0  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 31 34 20  |p_SetColour",14 |
00003dd0  8b 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 6f  |. .. "Wimp_SetCo|
00003de0  6c 6f 75 72 22 2c 31 35  0d 15 fe 27 78 70 6c 25  |lour",15...'xpl%|
00003df0  3d 70 6f 69 6e 74 25 21  28 34 2b 38 2a 64 72 61  |=point%!(4+8*dra|
00003e00  77 25 29 2f 28 31 3c 3c  73 68 69 66 74 25 29 0d  |w%)/(1<<shift%).|
00003e10  16 08 27 79 70 6c 25 3d  70 6f 69 6e 74 25 21 28  |..'ypl%=point%!(|
00003e20  38 2b 38 2a 64 72 61 77  25 29 2f 28 31 3c 3c 73  |8+8*draw%)/(1<<s|
00003e30  68 69 66 74 25 29 0d 16  12 27 c8 93 20 c8 90 20  |hift%)...'.. .. |
00003e40  78 70 6c 25 2d 38 2d 78  73 63 25 2c 79 70 6c 25  |xpl%-8-xsc%,ypl%|
00003e50  2d 38 2d 79 73 63 25 2c  31 35 2c 31 35 0d 16 1c  |-8-ysc%,15,15...|
00003e60  0b ed 20 64 72 61 77 25  0d 16 26 05 cd 0d 16 30  |.. draw%..&....0|
00003e70  18 e7 20 21 6f 66 66 73  65 74 25 3e 30 20 8c 20  |.. !offset%>0 . |
00003e80  f2 6d 65 73 68 0d 16 3a  19 c8 99 20 22 57 69 6d  |.mesh..:... "Wim|
00003e90  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 32 0d 16  |p_SetColour",2..|
00003ea0  44 14 70 6f 6c 6e 75 6d  25 3d 21 6f 66 66 73 65  |D.polnum%=!offse|
00003eb0  74 25 0d 16 4e 21 70 6f  6c 6f 66 66 25 3d 6f 66  |t%..N!poloff%=of|
00003ec0  66 73 65 74 25 21 28 34  2b 34 2a 70 6f 6c 6e 75  |fset%!(4+4*polnu|
00003ed0  6d 25 29 0d 16 58 0d 64  72 77 73 64 65 25 3d 31  |m%)..X.drwsde%=1|
00003ee0  0d 16 62 21 c8 95 20 64  72 77 73 64 65 25 3c 3d  |..b!.. drwsde%<=|
00003ef0  70 6f 6c 79 25 21 28 34  2b 70 6f 6c 6f 66 66 25  |poly%!(4+poloff%|
00003f00  29 0d 16 6c 24 76 72 74  25 3d 70 6f 6c 79 25 21  |)..l$vrt%=poly%!|
00003f10  28 34 2b 70 6f 6c 6f 66  66 25 2b 34 2a 64 72 77  |(4+poloff%+4*drw|
00003f20  73 64 65 25 29 0d 16 76  26 78 70 6c 25 3d 70 6f  |sde%)..v&xpl%=po|
00003f30  69 6e 74 25 21 28 34 2b  38 2a 76 72 74 25 29 2f  |int%!(4+8*vrt%)/|
00003f40  28 31 3c 3c 73 68 69 66  74 25 29 0d 16 80 26 79  |(1<<shift%)...&y|
00003f50  70 6c 25 3d 70 6f 69 6e  74 25 21 28 38 2b 38 2a  |pl%=point%!(8+8*|
00003f60  76 72 74 25 29 2f 28 31  3c 3c 73 68 69 66 74 25  |vrt%)/(1<<shift%|
00003f70  29 0d 16 8a 3f e7 20 64  72 77 73 64 65 25 3d 31  |)...?. drwsde%=1|
00003f80  20 8c 20 ec 20 78 70 6c  25 2d 78 73 63 25 2c 79  | . . xpl%-xsc%,y|
00003f90  70 6c 25 2d 79 73 63 25  20 8b 20 df 20 78 70 6c  |pl%-ysc% . . xpl|
00003fa0  25 2d 78 73 63 25 2c 79  70 6c 25 2d 79 73 63 25  |%-xsc%,ypl%-ysc%|
00003fb0  0d 16 94 0e 64 72 77 73  64 65 25 2b 3d 31 0d 16  |....drwsde%+=1..|
00003fc0  9e 05 ce 0d 16 a8 05 e1  0d 16 b2 05 3a 0d 16 bc  |............:...|
00003fd0  12 dd 20 f2 70 72 65 76  69 65 77 64 72 61 77 0d  |.. .previewdraw.|
00003fe0  16 c6 39 78 73 63 25 3d  62 6c 6f 63 6b 25 21 32  |..9xsc%=block%!2|
00003ff0  30 2d 62 6c 6f 63 6b 25  21 34 3a 79 73 63 25 3d  |0-block%!4:ysc%=|
00004000  62 6c 6f 63 6b 25 21 32  34 2d 62 6c 6f 63 6b 25  |block%!24-block%|
00004010  21 31 36 2b 68 67 74 25  0d 16 d0 17 e7 20 21 28  |!16+hgt%..... !(|
00004020  34 2b 68 65 61 70 25 21  32 34 29 3e 30 20 8c 0d  |4+heap%!24)>0 ..|
00004030  16 da 55 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..U.. "OS_Sprite|
00004040  4f 70 22 2c 35 31 32 2b  35 32 2c 68 65 61 70 25  |Op",512+52,heap%|
00004050  21 32 34 2c 28 68 65 61  70 25 21 32 34 29 2b 31  |!24,(heap%!24)+1|
00004060  36 2c 2d 78 73 63 25 2c  2d 79 73 63 25 2c 2c 73  |6,-xsc%,-ysc%,,s|
00004070  63 61 6c 65 25 2b 33 32  2c 62 69 74 6d 61 70 25  |cale%+32,bitmap%|
00004080  2b 35 31 32 0d 16 e4 05  cc 0d 16 ee 11 70 6f 69  |+512.........poi|
00004090  6e 74 25 3d 74 77 65 65  6e 25 0d 16 f8 19 c8 99  |nt%=tween%......|
000040a0  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
000040b0  22 2c 37 0d 17 02 1a e3  20 64 72 61 77 25 3d 30  |",7..... draw%=0|
000040c0  20 b8 20 21 6f 66 66 73  65 74 25 2d 31 0d 17 0c  | . !offset%-1...|
000040d0  1f 70 6f 6c 6f 66 66 25  3d 6f 66 66 73 65 74 25  |.poloff%=offset%|
000040e0  21 28 34 2b 34 2a 64 72  61 77 25 29 0d 17 16 23  |!(4+4*draw%)...#|
000040f0  e3 20 64 72 77 73 64 65  25 3d 31 20 b8 20 70 6f  |. drwsde%=1 . po|
00004100  6c 79 25 21 28 34 2b 70  6f 6c 6f 66 66 25 29 0d  |ly%!(4+poloff%).|
00004110  17 20 24 76 72 74 25 3d  70 6f 6c 79 25 21 28 34  |. $vrt%=poly%!(4|
00004120  2b 70 6f 6c 6f 66 66 25  2b 34 2a 64 72 77 73 64  |+poloff%+4*drwsd|
00004130  65 25 29 0d 17 2a 33 78  70 6c 25 3d 70 6f 69 6e  |e%)..*3xpl%=poin|
00004140  74 25 21 28 34 2b 38 2a  76 72 74 25 29 2f 28 31  |t%!(4+8*vrt%)/(1|
00004150  3c 3c 73 68 69 66 74 25  29 2a 77 64 74 73 63 6c  |<<shift%)*wdtscl|
00004160  25 2f 31 32 38 30 0d 17  34 33 79 70 6c 25 3d 70  |%/1280..43ypl%=p|
00004170  6f 69 6e 74 25 21 28 38  2b 38 2a 76 72 74 25 29  |oint%!(8+8*vrt%)|
00004180  2f 28 31 3c 3c 73 68 69  66 74 25 29 2a 68 67 74  |/(1<<shift%)*hgt|
00004190  73 63 6c 25 2f 31 30 32  34 0d 17 3e 3f e7 20 64  |scl%/1024..>?. d|
000041a0  72 77 73 64 65 25 3d 31  20 8c 20 ec 20 78 70 6c  |rwsde%=1 . . xpl|
000041b0  25 2d 78 73 63 25 2c 79  70 6c 25 2d 79 73 63 25  |%-xsc%,ypl%-ysc%|
000041c0  20 8b 20 df 20 78 70 6c  25 2d 78 73 63 25 2c 79  | . . xpl%-xsc%,y|
000041d0  70 6c 25 2d 79 73 63 25  0d 17 48 0d ed 20 64 72  |pl%-ysc%..H.. dr|
000041e0  77 73 64 65 25 0d 17 52  0b ed 20 64 72 61 77 25  |wsde%..R.. draw%|
000041f0  0d 17 5c 05 cd 0d 17 66  05 e1 0d 17 70 05 3a 0d  |..\....f....p.:.|
00004200  17 7a 0b dd 20 f2 6d 65  73 68 0d 17 84 19 c8 99  |.z.. .mesh......|
00004210  20 22 57 69 6d 70 5f 53  65 74 43 6f 6c 6f 75 72  | "Wimp_SetColour|
00004220  22 2c 37 0d 17 8e 1a e3  20 64 72 61 77 25 3d 30  |",7..... draw%=0|
00004230  20 b8 20 21 6f 66 66 73  65 74 25 2d 31 0d 17 98  | . !offset%-1...|
00004240  1f 70 6f 6c 6f 66 66 25  3d 6f 66 66 73 65 74 25  |.poloff%=offset%|
00004250  21 28 34 2b 34 2a 64 72  61 77 25 29 0d 17 a2 23  |!(4+4*draw%)...#|
00004260  e3 20 64 72 77 73 64 65  25 3d 31 20 b8 20 70 6f  |. drwsde%=1 . po|
00004270  6c 79 25 21 28 34 2b 70  6f 6c 6f 66 66 25 29 0d  |ly%!(4+poloff%).|
00004280  17 ac 24 76 72 74 25 3d  70 6f 6c 79 25 21 28 34  |..$vrt%=poly%!(4|
00004290  2b 70 6f 6c 6f 66 66 25  2b 34 2a 64 72 77 73 64  |+poloff%+4*drwsd|
000042a0  65 25 29 0d 17 b6 26 78  70 6c 25 3d 70 6f 69 6e  |e%)...&xpl%=poin|
000042b0  74 25 21 28 34 2b 38 2a  76 72 74 25 29 2f 28 31  |t%!(4+8*vrt%)/(1|
000042c0  3c 3c 73 68 69 66 74 25  29 0d 17 c0 26 79 70 6c  |<<shift%)...&ypl|
000042d0  25 3d 70 6f 69 6e 74 25  21 28 38 2b 38 2a 76 72  |%=point%!(8+8*vr|
000042e0  74 25 29 2f 28 31 3c 3c  73 68 69 66 74 25 29 0d  |t%)/(1<<shift%).|
000042f0  17 ca 3f e7 20 64 72 77  73 64 65 25 3d 31 20 8c  |..?. drwsde%=1 .|
00004300  20 ec 20 78 70 6c 25 2d  78 73 63 25 2c 79 70 6c  | . xpl%-xsc%,ypl|
00004310  25 2d 79 73 63 25 20 8b  20 df 20 78 70 6c 25 2d  |%-ysc% . . xpl%-|
00004320  78 73 63 25 2c 79 70 6c  25 2d 79 73 63 25 0d 17  |xsc%,ypl%-ysc%..|
00004330  d4 0d ed 20 64 72 77 73  64 65 25 0d 17 de 0b ed  |... drwsde%.....|
00004340  20 64 72 61 77 25 0d 17  e8 05 e1 0d 17 f2 05 3a  | draw%.........:|
00004350  0d 17 fc 0f dd 20 f2 69  63 6f 6e 6d 65 6e 75 0d  |..... .iconmenu.|
00004360  18 06 14 24 28 6d 65 6e  75 25 29 3d 22 4d 6f 72  |...$(menu%)="Mor|
00004370  70 68 22 0d 18 10 13 6d  65 6e 75 25 21 31 32 3d  |ph"....menu%!12=|
00004380  26 37 30 32 30 37 0d 18  1a 1b 6d 65 6e 75 25 21  |&70207....menu%!|
00004390  31 36 3d 38 30 3a 6d 65  6e 75 25 21 32 30 3d 34  |16=80:menu%!20=4|
000043a0  30 0d 18 24 0e 6d 65 6e  75 25 21 32 34 3d 30 0d  |0..$.menu%!24=0.|
000043b0  18 2e 31 6d 65 6e 75 25  21 32 38 3d 30 3a 6d 65  |..1menu%!28=0:me|
000043c0  6e 75 25 21 33 32 3d 69  6e 66 77 69 6e 25 3a 6d  |nu%!32=infwin%:m|
000043d0  65 6e 75 25 21 33 36 3d  26 37 30 30 30 30 31 39  |enu%!36=&7000019|
000043e0  0d 18 38 16 24 28 6d 65  6e 75 25 2b 34 30 29 3d  |..8.$(menu%+40)=|
000043f0  22 49 6e 66 6f 22 0d 18  42 2d 6d 65 6e 75 25 21  |"Info"..B-menu%!|
00004400  35 32 3d 31 32 38 3a 6d  65 6e 75 25 21 35 36 3d  |52=128:menu%!56=|
00004410  30 3a 6d 65 6e 75 25 21  36 30 3d 26 37 30 30 30  |0:menu%!60=&7000|
00004420  30 31 39 0d 18 4c 16 24  28 6d 65 6e 75 25 2b 36  |019..L.$(menu%+6|
00004430  34 29 3d 22 51 75 69 74  22 0d 18 56 2c c8 99 20  |4)="Quit"..V,.. |
00004440  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00004450  22 2c 2c 6d 65 6e 75 25  2c 78 70 6e 74 25 2d 36  |",,menu%,xpnt%-6|
00004460  34 2c 31 37 36 0d 18 60  0c 6d 65 6e 6e 6f 25 3d  |4,176..`.menno%=|
00004470  31 0d 18 6a 05 e1 0d 18  74 05 3a 0d 18 7e 0f dd  |1..j....t.:..~..|
00004480  20 f2 65 64 69 74 6d 65  6e 75 0d 18 88 14 24 28  | .editmenu....$(|
00004490  6d 65 6e 75 25 29 3d 22  4d 6f 72 70 68 22 0d 18  |menu%)="Morph"..|
000044a0  92 13 6d 65 6e 75 25 21  31 32 3d 26 37 30 32 30  |..menu%!12=&7020|
000044b0  37 0d 18 9c 1c 6d 65 6e  75 25 21 31 36 3d 32 30  |7....menu%!16=20|
000044c0  38 3a 6d 65 6e 75 25 21  32 30 3d 34 30 0d 18 a6  |8:menu%!20=40...|
000044d0  0e 6d 65 6e 75 25 21 32  34 3d 30 0d 18 b0 31 6d  |.menu%!24=0...1m|
000044e0  65 6e 75 25 21 32 38 3d  32 3a 6d 65 6e 75 25 21  |enu%!28=2:menu%!|
000044f0  33 32 3d 73 76 65 77 69  6e 25 3a 6d 65 6e 75 25  |32=svewin%:menu%|
00004500  21 33 36 3d 26 37 30 30  30 30 31 31 0d 18 ba 16  |!36=&7000011....|
00004510  24 28 6d 65 6e 75 25 2b  34 30 29 3d 22 53 61 76  |$(menu%+40)="Sav|
00004520  65 22 0d 18 c4 29 6d 65  6e 75 25 21 35 32 3d 28  |e"...)menu%!52=(|
00004530  69 6e 74 66 6c 61 67 25  20 80 20 38 29 3e 3e 33  |intflag% . 8)>>3|
00004540  3a 6d 65 6e 75 25 21 35  36 3d 30 0d 18 ce 2d 6d  |:menu%!56=0...-m|
00004550  65 6e 75 25 21 36 30 3d  26 37 34 30 30 30 31 31  |enu%!60=&7400011|
00004560  20 82 20 94 28 21 28 34  2b 68 65 61 70 25 21 38  | . .(!(4+heap%!8|
00004570  29 3e 30 29 3c 3c 32 32  0d 18 d8 1e 24 28 6d 65  |)>0)<<22....$(me|
00004580  6e 75 25 2b 36 34 29 3d  22 53 68 6f 77 20 53 70  |nu%+64)="Show Sp|
00004590  72 69 74 65 73 22 0d 18  e2 21 6d 65 6e 75 25 21  |rites"...!menu%!|
000045a0  37 36 3d 30 3a 6d 65 6e  75 25 21 38 30 3d 6d 65  |76=0:menu%!80=me|
000045b0  6e 75 25 2b 31 32 34 0d  18 ec 2a 6d 65 6e 75 25  |nu%+124...*menu%|
000045c0  21 38 34 3d 26 37 34 30  30 30 31 31 20 82 20 94  |!84=&7400011 . .|
000045d0  28 21 69 6e 69 74 69 61  6c 25 3e 30 29 3c 3c 32  |(!initial%>0)<<2|
000045e0  32 0d 18 f6 17 24 28 6d  65 6e 75 25 2b 38 38 29  |2....$(menu%+88)|
000045f0  3d 22 50 6f 69 6e 74 22  0d 19 00 1d 6d 65 6e 75  |="Point"....menu|
00004600  25 21 31 30 30 3d 31 32  38 3a 6d 65 6e 75 25 21  |%!100=128:menu%!|
00004610  31 30 34 3d 30 0d 19 0a  40 6d 65 6e 75 25 21 31  |104=0...@menu%!1|
00004620  30 38 3d 26 37 34 30 30  30 31 31 20 82 20 28 94  |08=&7400011 . (.|
00004630  28 21 28 34 2b 68 65 61  70 25 21 38 29 3e 30 29  |(!(4+heap%!8)>0)|
00004640  20 80 20 94 28 21 6f 66  66 73 65 74 25 3e 30 29  | . .(!offset%>0)|
00004650  29 3c 3c 32 32 0d 19 14  18 24 28 6d 65 6e 75 25  |)<<22....$(menu%|
00004660  2b 31 31 32 29 3d 22 4d  6f 72 70 68 22 0d 19 1e  |+112)="Morph"...|
00004670  18 24 28 6d 65 6e 75 25  2b 31 32 34 29 3d 22 50  |.$(menu%+124)="P|
00004680  6f 69 6e 74 22 0d 19 28  14 6d 65 6e 75 25 21 31  |oint"..(.menu%!1|
00004690  33 36 3d 26 37 30 32 30  37 0d 19 32 1e 6d 65 6e  |36=&70207..2.men|
000046a0  75 25 21 31 34 30 3d 32  30 38 3a 6d 65 6e 75 25  |u%!140=208:menu%|
000046b0  21 31 34 34 3d 34 30 0d  19 3c 0f 6d 65 6e 75 25  |!144=40..<.menu%|
000046c0  21 31 34 38 3d 30 0d 19  46 2e 6d 65 6e 75 25 21  |!148=0..F.menu%!|
000046d0  31 35 32 3d 30 3a 6d 65  6e 75 25 21 31 35 36 3d  |152=0:menu%!156=|
000046e0  30 3a 6d 65 6e 75 25 21  31 36 30 3d 26 37 30 30  |0:menu%!160=&700|
000046f0  30 30 31 31 0d 19 50 19  24 28 6d 65 6e 75 25 2b  |0011..P.$(menu%+|
00004700  31 36 34 29 3d 22 44 65  6c 65 74 65 22 0d 19 5a  |164)="Delete"..Z|
00004710  2e 6d 65 6e 75 25 21 31  37 36 3d 32 3a 6d 65 6e  |.menu%!176=2:men|
00004720  75 25 21 31 38 30 3d 30  3a 6d 65 6e 75 25 21 31  |u%!180=0:menu%!1|
00004730  38 34 3d 26 37 30 30 30  30 31 31 0d 19 64 1d 24  |84=&7000011..d.$|
00004740  28 6d 65 6e 75 25 2b 31  38 38 29 3d 22 44 65 6c  |(menu%+188)="Del|
00004750  65 74 65 20 41 6c 6c 22  0d 19 6e 2e 6d 65 6e 75  |ete All"..n.menu|
00004760  25 21 32 30 30 3d 30 3a  6d 65 6e 75 25 21 32 30  |%!200=0:menu%!20|
00004770  34 3d 30 3a 6d 65 6e 75  25 21 32 30 38 3d 26 37  |4=0:menu%!208=&7|
00004780  30 30 30 30 31 31 0d 19  78 18 24 28 6d 65 6e 75  |000011..x.$(menu|
00004790  25 2b 32 31 32 29 3d 22  47 72 6f 75 70 22 0d 19  |%+212)="Group"..|
000047a0  82 30 6d 65 6e 75 25 21  32 32 34 3d 31 32 38 3a  |.0menu%!224=128:|
000047b0  6d 65 6e 75 25 21 32 32  38 3d 30 3a 6d 65 6e 75  |menu%!228=0:menu|
000047c0  25 21 32 33 32 3d 26 37  30 30 30 30 31 31 0d 19  |%!232=&7000011..|
000047d0  8c 1a 24 28 6d 65 6e 75  25 2b 32 33 36 29 3d 22  |..$(menu%+236)="|
000047e0  55 6e 67 72 6f 75 70 22  0d 19 96 2b c8 99 20 22  |Ungroup"...+.. "|
000047f0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00004800  2c 2c 6d 65 6e 75 25 2c  78 70 6e 74 25 2c 79 70  |,,menu%,xpnt%,yp|
00004810  6e 74 25 0d 19 a0 20 6d  65 6e 6e 6f 25 3d 33 2b  |nt%... menno%=3+|
00004820  28 62 6c 6f 63 6b 25 21  31 32 3d 73 74 72 77 69  |(block%!12=strwi|
00004830  6e 25 29 0d 19 aa 05 e1  0d 19 b4 05 3a 0d 19 be  |n%).........:...|
00004840  0f dd 20 f2 70 72 65 76  6d 65 6e 75 0d 19 c8 14  |.. .prevmenu....|
00004850  24 28 6d 65 6e 75 25 29  3d 22 4d 6f 72 70 68 22  |$(menu%)="Morph"|
00004860  0d 19 d2 13 6d 65 6e 75  25 21 31 32 3d 26 37 30  |....menu%!12=&70|
00004870  32 30 37 0d 19 dc 1c 6d  65 6e 75 25 21 31 36 3d  |207....menu%!16=|
00004880  32 30 38 3a 6d 65 6e 75  25 21 32 30 3d 34 30 0d  |208:menu%!20=40.|
00004890  19 e6 0e 6d 65 6e 75 25  21 32 34 3d 30 0d 19 f0  |...menu%!24=0...|
000048a0  32 6d 65 6e 75 25 21 32  38 3d 32 3a 6d 65 6e 75  |2menu%!28=2:menu|
000048b0  25 21 33 32 3d 73 74 61  74 77 69 6e 25 3a 6d 65  |%!32=statwin%:me|
000048c0  6e 75 25 21 33 36 3d 26  37 30 30 30 30 31 31 0d  |nu%!36=&7000011.|
000048d0  19 fa 1c 24 28 6d 65 6e  75 25 2b 34 30 29 3d 22  |...$(menu%+40)="|
000048e0  53 74 61 74 69 73 74 69  63 73 22 0d 1a 04 19 6d  |Statistics"....m|
000048f0  65 6e 75 25 21 35 32 3d  30 3a 6d 65 6e 75 25 21  |enu%!52=0:menu%!|
00004900  35 36 3d 30 0d 1a 0e 2f  6d 65 6e 75 25 21 36 30  |56=0.../menu%!60|
00004910  3d 26 37 34 30 30 30 31  31 20 82 20 94 28 28 69  |=&7400011 . .((i|
00004920  6e 74 66 6c 61 67 25 20  80 20 33 29 3d 30 29 3c  |ntflag% . 3)=0)<|
00004930  3c 32 32 0d 1a 18 19 24  28 6d 65 6e 75 25 2b 36  |<22....$(menu%+6|
00004940  34 29 3d 22 50 72 65 76  69 65 77 22 0d 1a 22 1b  |4)="Preview"..".|
00004950  6d 65 6e 75 25 21 37 36  3d 31 32 38 3a 6d 65 6e  |menu%!76=128:men|
00004960  75 25 21 38 30 3d 30 0d  1a 2c 2f 6d 65 6e 75 25  |u%!80=0..,/menu%|
00004970  21 38 34 3d 26 37 34 30  30 30 31 31 20 82 20 94  |!84=&7400011 . .|
00004980  28 28 69 6e 74 66 6c 61  67 25 20 80 20 33 29 3d  |((intflag% . 3)=|
00004990  31 29 3c 3c 32 32 0d 1a  36 1d 24 28 6d 65 6e 75  |1)<<22..6.$(menu|
000049a0  25 2b 38 38 29 3d 22 53  69 6e 67 6c 65 20 54 61  |%+88)="Single Ta|
000049b0  73 6b 22 0d 1a 40 2b c8  99 20 22 57 69 6d 70 5f  |sk"..@+.. "Wimp_|
000049c0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
000049d0  75 25 2c 78 70 6e 74 25  2c 79 70 6e 74 25 0d 1a  |u%,xpnt%,ypnt%..|
000049e0  4a 0c 6d 65 6e 6e 6f 25  3d 34 0d 1a 54 05 e1 0d  |J.menno%=4..T...|
000049f0  1a 5e 05 3a 0d 1a 68 11  dd 20 f2 6d 65 6e 75 73  |.^.:..h.. .menus|
00004a00  65 6c 65 63 74 0d 1a 72  13 72 65 73 75 6c 74 25  |elect..r.result%|
00004a10  3d 21 62 6c 6f 63 6b 25  0d 1a 7c 0f c8 8e 20 6d  |=!block%..|... m|
00004a20  65 6e 6e 6f 25 20 ca 0d  1a 86 07 c9 20 31 0d 1a  |enno% ...... 1..|
00004a30  90 39 e7 20 72 65 73 75  6c 74 25 3d 31 20 8c 20  |.9. result%=1 . |
00004a40  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00004a50  77 6e 22 2c 74 61 73 6b  68 61 6e 64 6c 65 25 2c  |wn",taskhandle%,|
00004a60  74 61 73 6b 25 3a e0 0d  1a 9a 09 c9 20 32 2c 33  |task%:...... 2,3|
00004a70  0d 1a a4 11 e7 20 72 65  73 75 6c 74 25 3d 31 20  |..... result%=1 |
00004a80  8c 0d 1a ae 19 69 6e 74  66 6c 61 67 25 3d 69 6e  |.....intflag%=in|
00004a90  74 66 6c 61 67 25 20 82  20 38 0d 1a b8 30 c8 99  |tflag% . 8...0..|
00004aa0  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00004ab0  61 77 22 2c 73 74 72 77  69 6e 25 2c 30 2c 2d 68  |aw",strwin%,0,-h|
00004ac0  67 74 25 2c 77 64 74 25  2c 30 0d 1a c2 30 c8 99  |gt%,wdt%,0...0..|
00004ad0  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00004ae0  61 77 22 2c 65 6e 64 77  69 6e 25 2c 30 2c 2d 68  |aw",endwin%,0,-h|
00004af0  67 74 25 2c 77 64 74 25  2c 30 0d 1a cc 05 cd 0d  |gt%,wdt%,0......|
00004b00  1a d6 11 e7 20 72 65 73  75 6c 74 25 3d 32 20 8c  |.... result%=2 .|
00004b10  0d 1a e0 1a e7 20 62 6c  6f 63 6b 25 21 34 3d 30  |..... block%!4=0|
00004b20  20 8c 20 f2 64 65 6c 65  74 65 0d 1a ea 12 e7 20  | . .delete..... |
00004b30  62 6c 6f 63 6b 25 21 34  3d 31 20 8c 0d 1a f4 23  |block%!4=1 ....#|
00004b40  73 65 6c 65 63 74 25 3d  30 3a 21 69 6e 69 74 69  |select%=0:!initi|
00004b50  61 6c 25 3d 30 3a 21 66  69 6e 61 6c 25 3d 30 0d  |al%=0:!final%=0.|
00004b60  1a fe 2d 21 6f 66 66 73  65 74 25 3d 30 3a 6f 66  |..-!offset%=0:of|
00004b70  66 73 65 74 25 21 34 3d  30 3a 21 70 6f 6c 79 25  |fset%!4=0:!poly%|
00004b80  3d 34 3a 70 6f 6c 79 25  21 34 3d 30 0d 1b 08 1b  |=4:poly%!4=0....|
00004b90  f2 74 69 64 79 28 63 6c  61 69 6d 25 29 3a f2 76  |.tidy(claim%):.v|
00004ba0  61 72 69 61 62 6c 65 0d  1b 12 05 cd 0d 1b 1c 19  |ariable.........|
00004bb0  e7 20 62 6c 6f 63 6b 25  21 34 3d 32 20 8c 20 f2  |. block%!4=2 . .|
00004bc0  67 72 6f 75 70 0d 1b 26  1b e7 20 62 6c 6f 63 6b  |group..&.. block|
00004bd0  25 21 34 3d 33 20 8c 20  f2 75 6e 67 72 6f 75 70  |%!4=3 . .ungroup|
00004be0  0d 1b 30 30 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |..00.. "Wimp_For|
00004bf0  63 65 52 65 64 72 61 77  22 2c 73 74 72 77 69 6e  |ceRedraw",strwin|
00004c00  25 2c 30 2c 2d 68 67 74  25 2c 77 64 74 25 2c 30  |%,0,-hgt%,wdt%,0|
00004c10  0d 1b 3a 30 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |..:0.. "Wimp_For|
00004c20  63 65 52 65 64 72 61 77  22 2c 65 6e 64 77 69 6e  |ceRedraw",endwin|
00004c30  25 2c 30 2c 2d 68 67 74  25 2c 77 64 74 25 2c 30  |%,0,-hgt%,wdt%,0|
00004c40  0d 1b 44 05 cd 0d 1b 4e  11 e7 20 72 65 73 75 6c  |..D....N.. resul|
00004c50  74 25 3d 33 20 8c 0d 1b  58 24 62 6e 64 73 7a 65  |t%=3 ...X$bndsze|
00004c60  25 3d 28 26 31 46 2b 33  32 2a 21 6f 66 66 73 65  |%=(&1F+32*!offse|
00004c70  74 25 29 80 20 ac 20 26  31 46 0d 1b 62 23 f2 63  |t%). . &1F..b#.c|
00004c80  6c 61 69 6d 28 68 65 61  70 25 2b 37 32 2c 62 6e  |laim(heap%+72,bn|
00004c90  64 73 7a 65 25 2c 63 6c  61 69 6d 25 29 0d 1b 6c  |dsze%,claim%)..l|
00004ca0  0e e7 20 63 6c 61 69 6d  25 20 8c 0d 1b 76 0d f2  |.. claim% ...v..|
00004cb0  76 61 72 69 61 62 6c 65  0d 1b 80 1a d6 20 69 6e  |variable..... in|
00004cc0  62 65 74 77 65 65 6e 3a  d6 20 62 6f 75 6e 64 62  |between:. boundb|
00004cd0  6f 78 0d 1b 8a 19 69 6e  74 66 6c 61 67 25 3d 69  |ox....intflag%=i|
00004ce0  6e 74 66 6c 61 67 25 20  84 20 34 0d 1b 94 31 21  |ntflag% . 4...1!|
00004cf0  62 6c 6f 63 6b 25 3d 73  74 72 77 69 6e 25 3a c8  |block%=strwin%:.|
00004d00  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00004d10  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 1b 9e 31  |dow",,block%...1|
00004d20  21 62 6c 6f 63 6b 25 3d  65 6e 64 77 69 6e 25 3a  |!block%=endwin%:|
00004d30  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00004d40  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 1b a8  |ndow",,block%...|
00004d50  34 21 62 6c 6f 63 6b 25  3d 70 72 76 77 69 6e 25  |4!block%=prvwin%|
00004d60  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00004d70  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
00004d80  25 0d 1b b2 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |%... .. "Wimp_Op|
00004d90  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |enWindow",,block|
00004da0  25 0d 1b bc 34 21 62 6c  6f 63 6b 25 3d 6d 72 70  |%...4!block%=mrp|
00004db0  77 69 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |win%:.. "Wimp_Ge|
00004dc0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00004dd0  6c 6f 63 6b 25 0d 1b c6  20 c8 99 20 22 57 69 6d  |lock%... .. "Wim|
00004de0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00004df0  6c 6f 63 6b 25 0d 1b d0  0b f2 6d 61 70 28 30 29  |lock%.....map(0)|
00004e00  0d 1b da 1f e7 20 21 28  34 2b 68 65 61 70 25 21  |..... !(4+heap%!|
00004e10  31 36 29 3e 30 20 8c 20  f2 6d 61 70 28 31 29 0d  |16)>0 . .map(1).|
00004e20  1b e4 05 cc 0d 1b ee 09  f2 66 75 6c 6c 0d 1b f8  |.........full...|
00004e30  05 cd 0d 1c 02 1b 24 28  74 6f 74 6d 65 25 29 3d  |......$(totme%)=|
00004e40  a4 74 69 6d 65 28 30 29  2b bd 28 30 29 0d 1c 0c  |.time(0)+.(0)...|
00004e50  1c 24 28 65 6c 70 74 6d  65 25 29 3d a4 74 69 6d  |.$(elptme%)=.tim|
00004e60  65 28 30 29 2b bd 28 30  29 0d 1c 16 1b 24 28 61  |e(0)+.(0)....$(a|
00004e70  76 74 6d 65 25 29 3d a4  74 69 6d 65 28 30 29 2b  |vtme%)=.time(0)+|
00004e80  bd 28 30 29 0d 1c 20 05  cd 0d 1c 2a 24 c8 99 20  |.(0).. ....*$.. |
00004e90  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00004ea0  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 25 0d 1c 34  |Info",,block%..4|
00004eb0  2e e7 20 72 65 73 75 6c  74 25 3c 33 20 80 20 28  |.. result%<3 . (|
00004ec0  62 6c 6f 63 6b 25 21 38  20 80 20 31 29 3d 31 20  |block%!8 . 1)=1 |
00004ed0  8c 20 f2 65 64 69 74 6d  65 6e 75 0d 1c 3e 07 c9  |. .editmenu..>..|
00004ee0  20 34 0d 1c 48 2d e7 20  72 65 73 75 6c 74 25 3d  | 4..H-. result%=|
00004ef0  31 20 80 20 28 69 6e 74  66 6c 61 67 25 20 80 20  |1 . (intflag% . |
00004f00  33 29 3d 30 20 8c 20 f2  70 72 65 76 69 65 77 0d  |3)=0 . .preview.|
00004f10  1c 52 30 e7 20 72 65 73  75 6c 74 25 3d 32 20 80  |.R0. result%=2 .|
00004f20  20 28 69 6e 74 66 6c 61  67 25 20 80 20 33 29 3d  | (intflag% . 3)=|
00004f30  31 20 8c 20 f2 73 69 6e  67 6c 65 74 61 73 6b 0d  |1 . .singletask.|
00004f40  1c 5c 05 cb 0d 1c 66 05  e1 0d 1c 70 05 3a 0d 1c  |.\....f....p.:..|
00004f50  7a 0d dd 20 f2 64 65 6c  65 74 65 0d 1c 84 15 69  |z.. .delete....i|
00004f60  6e 70 75 74 25 21 37 32  3d 73 65 6c 65 63 74 25  |nput%!72=select%|
00004f70  0d 1c 8e 0c d6 20 64 65  6c 65 74 65 0d 1c 98 0e  |..... delete....|
00004f80  73 65 6c 65 63 74 25 2d  3d 31 0d 1c a2 1b e7 20  |select%-=1..... |
00004f90  73 65 6c 65 63 74 25 3c  30 20 8c 20 73 65 6c 65  |select%<0 . sele|
00004fa0  63 74 25 3d 30 0d 1c ac  1b f2 74 69 64 79 28 63  |ct%=0.....tidy(c|
00004fb0  6c 61 69 6d 25 29 3a f2  76 61 72 69 61 62 6c 65  |laim%):.variable|
00004fc0  0d 1c b6 05 e1 0d 1c c0  05 3a 0d 1c ca 0c dd 20  |.........:..... |
00004fd0  f2 67 72 6f 75 70 0d 1c  d4 16 69 6e 70 75 74 25  |.group....input%|
00004fe0  21 36 38 3d 6d 65 6e 6e  6f 25 2d 32 0d 1c de 30  |!68=menno%-2...0|
00004ff0  e7 20 6d 65 6e 6e 6f 25  3d 32 20 8c 20 70 6f 69  |. menno%=2 . poi|
00005000  6e 74 25 3d 69 6e 69 74  69 61 6c 25 20 8b 20 70  |nt%=initial% . p|
00005010  6f 69 6e 74 25 3d 66 69  6e 61 6c 25 0d 1c e8 20  |oint%=final%... |
00005020  21 69 6e 70 75 74 25 3d  70 6f 69 6e 74 25 21 28  |!input%=point%!(|
00005030  34 2b 38 2a 73 65 6c 65  63 74 25 29 0d 1c f2 21  |4+8*select%)...!|
00005040  69 6e 70 75 74 25 21 34  3d 70 6f 69 6e 74 25 21  |input%!4=point%!|
00005050  28 38 2b 38 2a 73 65 6c  65 63 74 25 29 0d 1c fc  |(8+8*select%)...|
00005060  15 69 6e 70 75 74 25 21  37 32 3d 73 65 6c 65 63  |.input%!72=selec|
00005070  74 25 0d 1d 06 0c d6 20  6c 6f 63 61 74 65 0d 1d  |t%..... locate..|
00005080  10 12 c8 95 20 21 6f 75  74 70 75 74 25 3e 3d 30  |.... !output%>=0|
00005090  0d 1d 1a 16 69 6e 70 75  74 25 21 37 36 3d 21 6f  |....input%!76=!o|
000050a0  75 74 70 75 74 25 0d 1d  24 0b d6 20 67 72 6f 75  |utput%..$.. grou|
000050b0  70 0d 1d 2e 2e e7 20 21  6f 75 74 70 75 74 25 3e  |p..... !output%>|
000050c0  69 6e 70 75 74 25 21 37  32 20 8c 20 21 6f 75 74  |input%!72 . !out|
000050d0  70 75 74 25 3d 21 6f 75  74 70 75 74 25 2d 31 0d  |put%=!output%-1.|
000050e0  1d 38 16 69 6e 70 75 74  25 21 37 32 3d 21 6f 75  |.8.input%!72=!ou|
000050f0  74 70 75 74 25 0d 1d 42  0c d6 20 6c 6f 63 61 74  |tput%..B.. locat|
00005100  65 0d 1d 4c 05 ce 0d 1d  56 15 73 65 6c 65 63 74  |e..L....V.select|
00005110  25 3d 69 6e 70 75 74 25  21 37 32 0d 1d 60 1b f2  |%=input%!72..`..|
00005120  74 69 64 79 28 63 6c 61  69 6d 25 29 3a f2 76 61  |tidy(claim%):.va|
00005130  72 69 61 62 6c 65 0d 1d  6a 05 e1 0d 1d 74 05 3a  |riable..j....t.:|
00005140  0d 1d 7e 0e dd 20 f2 75  6e 67 72 6f 75 70 0d 1d  |..~.. .ungroup..|
00005150  88 15 69 6e 70 75 74 25  21 37 32 3d 73 65 6c 65  |..input%!72=sele|
00005160  63 74 25 0d 1d 92 0d d6  20 75 6e 67 72 6f 75 70  |ct%..... ungroup|
00005170  0d 1d 9c 15 70 6e 74 6e  75 6d 25 3d 21 69 6e 69  |....pntnum%=!ini|
00005180  74 69 61 6c 25 0d 1d a6  17 c8 95 20 21 6f 75 74  |tial%...... !out|
00005190  70 75 74 25 3e 70 6e 74  6e 75 6d 25 0d 1d b0 1b  |put%>pntnum%....|
000051a0  f2 74 69 64 79 28 63 6c  61 69 6d 25 29 3a f2 76  |.tidy(claim%):.v|
000051b0  61 72 69 61 62 6c 65 0d  1d ba 0e e7 20 63 6c 61  |ariable..... cla|
000051c0  69 6d 25 20 8c 0d 1d c4  31 69 6e 69 74 69 61 6c  |im% ....1initial|
000051d0  25 21 28 34 2b 38 2a 70  6e 74 6e 75 6d 25 29 3d  |%!(4+8*pntnum%)=|
000051e0  69 6e 69 74 69 61 6c 25  21 28 34 2b 38 2a 73 65  |initial%!(4+8*se|
000051f0  6c 65 63 74 25 29 0d 1d  ce 31 69 6e 69 74 69 61  |lect%)...1initia|
00005200  6c 25 21 28 38 2b 38 2a  70 6e 74 6e 75 6d 25 29  |l%!(8+8*pntnum%)|
00005210  3d 69 6e 69 74 69 61 6c  25 21 28 38 2b 38 2a 73  |=initial%!(8+8*s|
00005220  65 6c 65 63 74 25 29 0d  1d d8 2d 66 69 6e 61 6c  |elect%)...-final|
00005230  25 21 28 34 2b 38 2a 70  6e 74 6e 75 6d 25 29 3d  |%!(4+8*pntnum%)=|
00005240  66 69 6e 61 6c 25 21 28  34 2b 38 2a 73 65 6c 65  |final%!(4+8*sele|
00005250  63 74 25 29 0d 1d e2 2d  66 69 6e 61 6c 25 21 28  |ct%)...-final%!(|
00005260  38 2b 38 2a 70 6e 74 6e  75 6d 25 29 3d 66 69 6e  |8+8*pntnum%)=fin|
00005270  61 6c 25 21 28 38 2b 38  2a 73 65 6c 65 63 74 25  |al%!(8+8*select%|
00005280  29 0d 1d ec 0e 70 6e 74  6e 75 6d 25 2b 3d 31 0d  |)....pntnum%+=1.|
00005290  1d f6 05 cc 0d 1e 00 09  f2 66 75 6c 6c 0d 1e 0a  |.........full...|
000052a0  05 cd 0d 1e 14 05 ce 0d  1e 1e 2d e7 20 21 6f 75  |..........-. !ou|
000052b0  74 70 75 74 25 3e 21 69  6e 69 74 69 61 6c 25 20  |tput%>!initial% |
000052c0  8c 20 73 65 6c 65 63 74  25 3d 21 6f 75 74 70 75  |. select%=!outpu|
000052d0  74 25 2d 31 0d 1e 28 25  21 69 6e 69 74 69 61 6c  |t%-1..(%!initial|
000052e0  25 3d 70 6e 74 6e 75 6d  25 3a 21 66 69 6e 61 6c  |%=pntnum%:!final|
000052f0  25 3d 70 6e 74 6e 75 6d  25 0d 1e 32 05 e1 0d 1e  |%=pntnum%..2....|
00005300  3c 05 3a 0d 1e 46 1c dd  20 f2 73 61 76 65 28 62  |<.:..F.. .save(b|
00005310  75 66 66 65 72 25 2c f8  20 73 61 76 65 25 29 0d  |uffer%,. save%).|
00005320  1e 50 07 ea 20 85 0d 1e  5a 14 ee 20 85 20 ea 20  |.P.. ...Z.. . . |
00005330  f2 65 72 72 66 69 6c 65  3a e1 0d 1e 64 1a 66 69  |.errfile:...d.fi|
00005340  6c 65 24 3d a4 73 74 72  69 6e 67 28 62 75 66 66  |le$=.string(buff|
00005350  65 72 25 29 0d 1e 6e 3c  73 61 76 65 25 3d a7 66  |er%)..n<save%=.f|
00005360  69 6c 65 24 2c 22 2e 22  29 20 84 20 a7 66 69 6c  |ile$,".") . .fil|
00005370  65 24 2c 22 3a 22 29 20  84 20 a7 66 69 6c 65 24  |e$,":") . .file$|
00005380  2c 22 3c 57 69 6d 70 24  53 63 72 61 70 3e 22 29  |,"<Wimp$Scrap>")|
00005390  0d 1e 78 0d e7 20 73 61  76 65 25 20 8c 0d 1e 82  |..x.. save% ....|
000053a0  22 c8 99 20 22 4f 53 5f  46 69 6e 64 22 2c 26 38  |".. "OS_Find",&8|
000053b0  30 2c 66 69 6c 65 24 20  b8 20 66 69 6c 65 25 0d  |0,file$ . file%.|
000053c0  1e 8c 2f c8 99 20 22 4f  53 5f 47 42 50 42 22 2c  |../.. "OS_GBPB",|
000053d0  32 2c 66 69 6c 65 25 2c  69 6e 69 74 69 61 6c 25  |2,file%,initial%|
000053e0  2c 34 2b 38 2a 21 69 6e  69 74 69 61 6c 25 0d 1e  |,4+8*!initial%..|
000053f0  96 2b c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 32  |.+.. "OS_GBPB",2|
00005400  2c 66 69 6c 65 25 2c 66  69 6e 61 6c 25 2c 34 2b  |,file%,final%,4+|
00005410  38 2a 21 66 69 6e 61 6c  25 0d 1e a0 2d c8 99 20  |8*!final%...-.. |
00005420  22 4f 53 5f 47 42 50 42  22 2c 32 2c 66 69 6c 65  |"OS_GBPB",2,file|
00005430  25 2c 6f 66 66 73 65 74  25 2c 38 2b 34 2a 21 6f  |%,offset%,8+4*!o|
00005440  66 66 73 65 74 25 0d 1e  aa 27 c8 99 20 22 4f 53  |ffset%...'.. "OS|
00005450  5f 47 42 50 42 22 2c 32  2c 66 69 6c 65 25 2c 70  |_GBPB",2,file%,p|
00005460  6f 6c 79 25 2c 34 2b 21  70 6f 6c 79 25 0d 1e b4  |oly%,4+!poly%...|
00005470  1a c8 99 20 22 4f 53 5f  46 69 6e 64 22 2c 26 30  |... "OS_Find",&0|
00005480  30 2c 66 69 6c 65 25 0d  1e be 24 c8 99 20 22 4f  |0,file%...$.. "O|
00005490  53 5f 46 69 6c 65 22 2c  26 31 32 2c 66 69 6c 65  |S_File",&12,file|
000054a0  24 2c 66 69 6c 65 74 79  70 65 25 0d 1e c8 05 cc  |$,filetype%.....|
000054b0  0d 1e d2 0d 21 62 6c 6f  63 6b 25 3d 30 0d 1e dc  |....!block%=0...|
000054c0  42 24 28 62 6c 6f 63 6b  25 2b 34 29 3d 22 54 6f  |B$(block%+4)="To|
000054d0  20 73 61 76 65 2c 20 64  72 61 67 20 66 69 6c 65  | save, drag file|
000054e0  20 69 63 6f 6e 20 74 6f  20 64 69 72 65 63 74 6f  | icon to directo|
000054f0  72 79 20 76 69 65 77 65  72 22 2b bd 28 30 29 0d  |ry viewer"+.(0).|
00005500  1e e6 2b c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..+.. "Wimp_Repo|
00005510  72 74 45 72 72 6f 72 22  2c 62 6c 6f 63 6b 25 2c  |rtError",block%,|
00005520  31 2c 22 21 4d 6f 72 70  68 22 0d 1e f0 05 cd 0d  |1,"!Morph"......|
00005530  1e fa 07 f7 20 85 0d 1f  04 05 e1 0d 1f 0e 05 3a  |.... ..........:|
00005540  0d 1f 18 0e dd 20 f2 65  72 72 66 69 6c 65 0d 1f  |..... .errfile..|
00005550  22 0d 21 62 6c 6f 63 6b  25 3d 30 0d 1f 2c 17 24  |".!block%=0..,.$|
00005560  28 62 6c 6f 63 6b 25 2b  34 29 3d f6 24 2b bd 28  |(block%+4)=.$+.(|
00005570  30 29 0d 1f 36 2b c8 99  20 22 57 69 6d 70 5f 52  |0)..6+.. "Wimp_R|
00005580  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 6c 6f 63  |eportError",bloc|
00005590  6b 25 2c 31 2c 22 21 4d  6f 72 70 68 22 0d 1f 40  |k%,1,"!Morph"..@|
000055a0  0b 73 61 76 65 25 3d a3  0d 1f 4a 05 e1 0d 1f 54  |.save%=...J....T|
000055b0  05 3a 0d 1f 5e 1c dd 20  f2 6c 6f 61 64 28 62 75  |.:..^.. .load(bu|
000055c0  66 66 65 72 25 2c f8 20  6c 6f 61 64 25 29 0d 1f  |ffer%,. load%)..|
000055d0  68 1a 66 69 6c 65 24 3d  a4 73 74 72 69 6e 67 28  |h.file$=.string(|
000055e0  62 75 66 66 65 72 25 29  0d 1f 72 0b 6c 6f 61 64  |buffer%)..r.load|
000055f0  25 3d a3 0d 1f 7c 2a e7  20 62 6c 6f 63 6b 25 21  |%=...|*. block%!|
00005600  32 30 3d 73 74 72 77 69  6e 25 20 80 20 62 6c 6f  |20=strwin% . blo|
00005610  63 6b 25 21 34 30 3d 26  46 46 39 20 8c 0d 1f 86  |ck%!40=&FF9 ....|
00005620  28 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 26 30  |(.. "OS_File",&0|
00005630  35 2c 66 69 6c 65 24 20  b8 20 2c 2c 2c 2c 66 6c  |5,file$ . ,,,,fl|
00005640  65 73 7a 65 25 0d 1f 90  23 66 6c 65 73 7a 65 25  |esze%...#flesze%|
00005650  3d 28 66 6c 65 73 7a 65  25 2b 26 31 30 31 46 29  |=(flesze%+&101F)|
00005660  20 80 20 ac 20 26 31 46  0d 1f 9a 22 f2 63 6c 61  | . . &1F...".cla|
00005670  69 6d 28 68 65 61 70 25  2b 38 2c 66 6c 65 73 7a  |im(heap%+8,flesz|
00005680  65 25 2c 63 6c 61 69 6d  25 29 0d 1f a4 0e e7 20  |e%,claim%)..... |
00005690  63 6c 61 69 6d 25 20 8c  0d 1f ae 0d f2 76 61 72  |claim% ......var|
000056a0  69 61 62 6c 65 0d 1f b8  17 21 28 68 65 61 70 25  |iable....!(heap%|
000056b0  21 38 29 3d 68 65 61 70  25 21 31 32 0d 1f c2 29  |!8)=heap%!12...)|
000056c0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000056d0  2c 32 35 36 2b 31 30 2c  68 65 61 70 25 21 38 2c  |,256+10,heap%!8,|
000056e0  66 69 6c 65 24 0d 1f cc  0e f2 74 72 61 6e 73 6c  |file$.....transl|
000056f0  61 74 65 0d 1f d6 30 c8  99 20 22 57 69 6d 70 5f  |ate...0.. "Wimp_|
00005700  46 6f 72 63 65 52 65 64  72 61 77 22 2c 73 74 72  |ForceRedraw",str|
00005710  77 69 6e 25 2c 30 2c 2d  68 67 74 25 2c 77 64 74  |win%,0,-hgt%,wdt|
00005720  25 2c 30 0d 1f e0 21 6c  6f 61 64 25 3d b9 3a 69  |%,0...!load%=.:i|
00005730  6e 74 66 6c 61 67 25 3d  69 6e 74 66 6c 61 67 25  |ntflag%=intflag%|
00005740  20 84 20 38 0d 1f ea 05  cc 0d 1f f4 09 f2 66 75  | . 8..........fu|
00005750  6c 6c 0d 1f fe 05 cd 0d  20 08 05 cd 0d 20 12 05  |ll...... .... ..|
00005760  3a 0d 20 1c 3b e7 20 62  6c 6f 63 6b 25 21 32 30  |:. .;. block%!20|
00005770  3d 65 6e 64 77 69 6e 25  20 80 20 62 6c 6f 63 6b  |=endwin% . block|
00005780  25 21 34 30 3d 26 46 46  39 20 80 20 21 28 34 2b  |%!40=&FF9 . !(4+|
00005790  68 65 61 70 25 21 38 29  3e 30 20 8c 0d 20 26 28  |heap%!8)>0 .. &(|
000057a0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 26 30 35  |.. "OS_File",&05|
000057b0  2c 66 69 6c 65 24 20 b8  20 2c 2c 2c 2c 66 6c 65  |,file$ . ,,,,fle|
000057c0  73 7a 65 25 0d 20 30 23  66 6c 65 73 7a 65 25 3d  |sze%. 0#flesze%=|
000057d0  28 66 6c 65 73 7a 65 25  2b 26 31 30 31 46 29 20  |(flesze%+&101F) |
000057e0  80 20 ac 20 26 31 46 0d  20 3a 23 f2 63 6c 61 69  |. . &1F. :#.clai|
000057f0  6d 28 68 65 61 70 25 2b  31 36 2c 66 6c 65 73 7a  |m(heap%+16,flesz|
00005800  65 25 2c 63 6c 61 69 6d  25 29 0d 20 44 0e e7 20  |e%,claim%). D.. |
00005810  63 6c 61 69 6d 25 20 8c  0d 20 4e 0d f2 76 61 72  |claim% .. N..var|
00005820  69 61 62 6c 65 0d 20 58  18 21 28 68 65 61 70 25  |iable. X.!(heap%|
00005830  21 31 36 29 3d 68 65 61  70 25 21 32 30 0d 20 62  |!16)=heap%!20. b|
00005840  2a c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |*.. "OS_SpriteOp|
00005850  22 2c 32 35 36 2b 31 30  2c 68 65 61 70 25 21 31  |",256+10,heap%!1|
00005860  36 2c 66 69 6c 65 24 0d  20 6c 0e f2 74 72 61 6e  |6,file$. l..tran|
00005870  73 6c 61 74 65 0d 20 76  30 c8 99 20 22 57 69 6d  |slate. v0.. "Wim|
00005880  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 65  |p_ForceRedraw",e|
00005890  6e 64 77 69 6e 25 2c 30  2c 2d 68 67 74 25 2c 77  |ndwin%,0,-hgt%,w|
000058a0  64 74 25 2c 30 0d 20 80  21 6c 6f 61 64 25 3d b9  |dt%,0. .!load%=.|
000058b0  3a 69 6e 74 66 6c 61 67  25 3d 69 6e 74 66 6c 61  |:intflag%=intfla|
000058c0  67 25 20 84 20 38 0d 20  8a 05 cc 0d 20 94 09 f2  |g% . 8. .... ...|
000058d0  66 75 6c 6c 0d 20 9e 05  cd 0d 20 a8 05 cd 0d 20  |full. .... .... |
000058e0  b2 05 3a 0d 20 bc 45 e7  20 28 62 6c 6f 63 6b 25  |..:. .E. (block%|
000058f0  21 32 30 3d 73 74 72 77  69 6e 25 20 84 20 62 6c  |!20=strwin% . bl|
00005900  6f 63 6b 25 21 32 30 3d  65 6e 64 77 69 6e 25 29  |ock%!20=endwin%)|
00005910  20 80 20 62 6c 6f 63 6b  25 21 34 30 3d 66 69 6c  | . block%!40=fil|
00005920  65 74 79 70 65 25 20 8c  0d 20 c6 22 c8 99 20 22  |etype% .. .".. "|
00005930  4f 53 5f 46 69 6e 64 22  2c 26 34 30 2c 66 69 6c  |OS_Find",&40,fil|
00005940  65 24 20 b8 20 66 69 6c  65 25 0d 20 d0 23 c8 99  |e$ . file%. .#..|
00005950  20 22 4f 53 5f 47 42 50  42 22 2c 34 2c 66 69 6c  | "OS_GBPB",4,fil|
00005960  65 25 2c 69 6e 69 74 69  61 6c 25 2c 34 0d 20 da  |e%,initial%,4. .|
00005970  1b f2 74 69 64 79 28 63  6c 61 69 6d 25 29 3a f2  |..tidy(claim%):.|
00005980  76 61 72 69 61 62 6c 65  0d 20 e4 0e e7 20 63 6c  |variable. ... cl|
00005990  61 69 6d 25 20 8c 0d 20  ee 2f c8 99 20 22 4f 53  |aim% .. ./.. "OS|
000059a0  5f 47 42 50 42 22 2c 34  2c 66 69 6c 65 25 2c 69  |_GBPB",4,file%,i|
000059b0  6e 69 74 69 61 6c 25 2b  34 2c 38 2a 21 69 6e 69  |nitial%+4,8*!ini|
000059c0  74 69 61 6c 25 0d 20 f8  21 c8 99 20 22 4f 53 5f  |tial%. .!.. "OS_|
000059d0  47 42 50 42 22 2c 34 2c  66 69 6c 65 25 2c 66 69  |GBPB",4,file%,fi|
000059e0  6e 61 6c 25 2c 34 0d 21  02 2b c8 99 20 22 4f 53  |nal%,4.!.+.. "OS|
000059f0  5f 47 42 50 42 22 2c 34  2c 66 69 6c 65 25 2c 66  |_GBPB",4,file%,f|
00005a00  69 6e 61 6c 25 2b 34 2c  38 2a 21 66 69 6e 61 6c  |inal%+4,8*!final|
00005a10  25 0d 21 0c 05 cc 0d 21  16 09 f2 66 75 6c 6c 0d  |%.!....!...full.|
00005a20  21 20 05 cd 0d 21 2a 22  c8 99 20 22 4f 53 5f 47  |! ...!*".. "OS_G|
00005a30  42 50 42 22 2c 34 2c 66  69 6c 65 25 2c 6f 66 66  |BPB",4,file%,off|
00005a40  73 65 74 25 2c 34 0d 21  34 1b f2 74 69 64 79 28  |set%,4.!4..tidy(|
00005a50  63 6c 61 69 6d 25 29 3a  f2 76 61 72 69 61 62 6c  |claim%):.variabl|
00005a60  65 0d 21 3e 42 e7 20 63  6c 61 69 6d 25 20 8c 20  |e.!>B. claim% . |
00005a70  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 34 2c 66  |.. "OS_GBPB",4,f|
00005a80  69 6c 65 25 2c 6f 66 66  73 65 74 25 2b 34 2c 34  |ile%,offset%+4,4|
00005a90  2b 34 2a 21 6f 66 66 73  65 74 25 20 8b 20 f2 66  |+4*!offset% . .f|
00005aa0  75 6c 6c 0d 21 48 20 c8  99 20 22 4f 53 5f 47 42  |ull.!H .. "OS_GB|
00005ab0  50 42 22 2c 34 2c 66 69  6c 65 25 2c 70 6f 6c 79  |PB",4,file%,poly|
00005ac0  25 2c 34 0d 21 52 1b f2  74 69 64 79 28 63 6c 61  |%,4.!R..tidy(cla|
00005ad0  69 6d 25 29 3a f2 76 61  72 69 61 62 6c 65 0d 21  |im%):.variable.!|
00005ae0  5c 3a e7 20 63 6c 61 69  6d 25 20 8c 20 c8 99 20  |\:. claim% . .. |
00005af0  22 4f 53 5f 47 42 50 42  22 2c 34 2c 66 69 6c 65  |"OS_GBPB",4,file|
00005b00  25 2c 70 6f 6c 79 25 2b  34 2c 21 70 6f 6c 79 25  |%,poly%+4,!poly%|
00005b10  20 8b 20 f2 66 75 6c 6c  0d 21 66 1a c8 99 20 22  | . .full.!f... "|
00005b20  4f 53 5f 46 69 6e 64 22  2c 26 30 30 2c 66 69 6c  |OS_Find",&00,fil|
00005b30  65 25 0d 21 70 30 c8 99  20 22 57 69 6d 70 5f 46  |e%.!p0.. "Wimp_F|
00005b40  6f 72 63 65 52 65 64 72  61 77 22 2c 73 74 72 77  |orceRedraw",strw|
00005b50  69 6e 25 2c 30 2c 2d 68  67 74 25 2c 77 64 74 25  |in%,0,-hgt%,wdt%|
00005b60  2c 30 0d 21 7a 30 c8 99  20 22 57 69 6d 70 5f 46  |,0.!z0.. "Wimp_F|
00005b70  6f 72 63 65 52 65 64 72  61 77 22 2c 65 6e 64 77  |orceRedraw",endw|
00005b80  69 6e 25 2c 30 2c 2d 68  67 74 25 2c 77 64 74 25  |in%,0,-hgt%,wdt%|
00005b90  2c 30 0d 21 84 0b 6c 6f  61 64 25 3d b9 0d 21 8e  |,0.!..load%=..!.|
00005ba0  05 cd 0d 21 98 05 e1 0d  21 a2 05 3a 0d 21 ac 14  |...!....!..:.!..|
00005bb0  dd 20 a4 6c 65 61 66 28  62 75 66 66 65 72 25 29  |. .leaf(buffer%)|
00005bc0  0d 21 b6 0d 62 75 66 6f  66 66 25 3d 30 0d 21 c0  |.!..bufoff%=0.!.|
00005bd0  0b 73 74 72 24 3d 22 22  0d 21 ca 28 c8 95 20 62  |.str$="".!.(.. b|
00005be0  75 66 66 65 72 25 3f 62  75 66 6f 66 66 25 3e 3d  |uffer%?bufoff%>=|
00005bf0  33 32 20 80 20 62 75 66  6f 66 66 25 3c 32 35 35  |32 . bufoff%<255|
00005c00  0d 21 d4 20 73 74 72 24  3d 73 74 72 24 2b bd 28  |.!. str$=str$+.(|
00005c10  62 75 66 66 65 72 25 3f  62 75 66 6f 66 66 25 29  |buffer%?bufoff%)|
00005c20  0d 21 de 22 e7 20 62 75  66 66 65 72 25 3f 62 75  |.!.". buffer%?bu|
00005c30  66 6f 66 66 25 3d 34 36  20 8c 20 73 74 72 24 3d  |foff%=46 . str$=|
00005c40  22 22 0d 21 e8 0e 62 75  66 6f 66 66 25 2b 3d 31  |"".!..bufoff%+=1|
00005c50  0d 21 f2 05 ce 0d 21 fc  09 3d 73 74 72 24 0d 22  |.!....!..=str$."|
00005c60  06 05 3a 0d 22 10 16 dd  20 a4 73 74 72 69 6e 67  |..:."... .string|
00005c70  28 62 75 66 66 65 72 25  29 0d 22 1a 0d 62 75 66  |(buffer%)."..buf|
00005c80  6f 66 66 25 3d 30 0d 22  24 0b 73 74 72 24 3d 22  |off%=0."$.str$="|
00005c90  22 0d 22 2e 28 c8 95 20  62 75 66 66 65 72 25 3f  |".".(.. buffer%?|
00005ca0  62 75 66 6f 66 66 25 3e  3d 33 32 20 80 20 62 75  |bufoff%>=32 . bu|
00005cb0  66 6f 66 66 25 3c 32 35  35 0d 22 38 20 73 74 72  |foff%<255."8 str|
00005cc0  24 3d 73 74 72 24 2b bd  28 62 75 66 66 65 72 25  |$=str$+.(buffer%|
00005cd0  3f 62 75 66 6f 66 66 25  29 0d 22 42 0e 62 75 66  |?bufoff%)."B.buf|
00005ce0  6f 66 66 25 2b 3d 31 0d  22 4c 05 ce 0d 22 56 09  |off%+=1."L..."V.|
00005cf0  3d 73 74 72 24 0d 22 60  05 3a 0d 22 6a 1f dd 20  |=str$."`.:."j.. |
00005d00  f2 6c 69 6d 69 74 28 f8  20 6e 75 6d 25 2c 6c 6f  |.limit(. num%,lo|
00005d10  77 25 2c 68 69 67 68 25  29 0d 22 74 1b e7 20 6e  |w%,high%)."t.. n|
00005d20  75 6d 25 3c 6c 6f 77 25  20 8c 20 6e 75 6d 25 3d  |um%<low% . num%=|
00005d30  6c 6f 77 25 0d 22 7e 1d  e7 20 6e 75 6d 25 3e 68  |low%."~.. num%>h|
00005d40  69 67 68 25 20 8c 20 6e  75 6d 25 3d 68 69 67 68  |igh% . num%=high|
00005d50  25 0d 22 88 05 e1 0d 22  92 05 3a 0d 22 9c 11 dd  |%."...."..:."...|
00005d60  20 a4 74 69 6d 65 28 74  6d 65 25 29 0d 22 a6 13  | .time(tme%)."..|
00005d70  74 6d 65 25 3d 74 6d 65  25 20 81 20 31 30 30 0d  |tme%=tme% . 100.|
00005d80  22 b0 3b 3d c3 28 74 6d  65 25 20 81 20 33 36 30  |".;=.(tme% . 360|
00005d90  30 29 2b 22 3a 22 2b c3  28 28 74 6d 65 25 20 81  |0)+":"+.((tme% .|
00005da0  20 36 30 29 83 20 36 30  29 2b 22 3a 22 2b c3 28  | 60). 60)+":"+.(|
00005db0  74 6d 65 25 20 83 20 36  30 29 0d 22 ba 05 3a 0d  |tme% . 60)."..:.|
00005dc0  22 c4 10 dd 20 f2 74 72  61 6e 73 6c 61 74 65 0d  |"... .translate.|
00005dd0  22 ce 16 e7 20 21 28 34  2b 68 65 61 70 25 21 38  |"... !(4+heap%!8|
00005de0  29 3e 30 20 8c 0d 22 d8  38 c8 99 20 22 4f 53 5f  |)>0 ..".8.. "OS_|
00005df0  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00005e00  22 2c 21 28 35 36 2b 68  65 61 70 25 21 38 29 2c  |",!(56+heap%!8),|
00005e10  34 20 b8 20 2c 2c 21 73  63 61 6c 65 25 0d 22 e2  |4 . ,,!scale%.".|
00005e20  39 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |9.. "OS_ReadMode|
00005e30  56 61 72 69 61 62 6c 65  22 2c 21 28 35 36 2b 68  |Variable",!(56+h|
00005e40  65 61 70 25 21 38 29 2c  35 20 b8 20 2c 2c 73 63  |eap%!8),5 . ,,sc|
00005e50  61 6c 65 25 21 34 0d 22  ec 2d c8 99 20 22 4f 53  |ale%!4.".-.. "OS|
00005e60  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00005e70  65 22 2c eb 2c 34 20 b8  20 2c 2c 73 63 61 6c 65  |e",.,4 . ,,scale|
00005e80  25 21 38 0d 22 f6 2e c8  99 20 22 4f 53 5f 52 65  |%!8.".... "OS_Re|
00005e90  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00005ea0  eb 2c 35 20 b8 20 2c 2c  73 63 61 6c 65 25 21 31  |.,5 . ,,scale%!1|
00005eb0  32 0d 23 00 18 e7 20 21  28 34 38 2b 68 65 61 70  |2.#... !(48+heap|
00005ec0  25 21 38 29 3e 34 34 20  8c 0d 23 0a 11 e3 20 63  |%!8)>44 ..#... c|
00005ed0  6f 6c 25 3d 30 20 b8 20  31 35 0d 23 14 2a 70 61  |ol%=0 . 15.#.*pa|
00005ee0  6c 65 74 74 65 25 21 28  63 6f 6c 25 2a 34 29 3d  |lette%!(col%*4)=|
00005ef0  21 28 36 30 2b 63 6f 6c  25 2a 38 2b 68 65 61 70  |!(60+col%*8+heap|
00005f00  25 21 38 29 0d 23 1e 0a  ed 20 63 6f 6c 25 0d 23  |%!8).#... col%.#|
00005f10  28 45 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |(E.. "ColourTran|
00005f20  73 5f 53 65 6c 65 63 74  54 61 62 6c 65 22 2c 21  |s_SelectTable",!|
00005f30  28 35 36 2b 68 65 61 70  25 21 38 29 2c 70 61 6c  |(56+heap%!8),pal|
00005f40  65 74 74 65 25 2c 2d 31  2c 2d 31 2c 62 69 74 6d  |ette%,-1,-1,bitm|
00005f50  61 70 25 0d 23 32 05 cc  0d 23 3c 3e c8 99 20 22  |ap%.#2...#<>.. "|
00005f60  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 6c 65  |ColourTrans_Sele|
00005f70  63 74 54 61 62 6c 65 22  2c 21 28 35 36 2b 68 65  |ctTable",!(56+he|
00005f80  61 70 25 21 38 29 2c 30  2c 2d 31 2c 2d 31 2c 62  |ap%!8),0,-1,-1,b|
00005f90  69 74 6d 61 70 25 0d 23  46 05 cd 0d 23 50 05 cd  |itmap%.#F...#P..|
00005fa0  0d 23 5a 17 e7 20 21 28  34 2b 68 65 61 70 25 21  |.#Z.. !(4+heap%!|
00005fb0  31 36 29 3e 30 20 8c 0d  23 64 3b c8 99 20 22 4f  |16)>0 ..#d;.. "O|
00005fc0  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00005fd0  6c 65 22 2c 21 28 35 36  2b 68 65 61 70 25 21 31  |le",!(56+heap%!1|
00005fe0  36 29 2c 34 20 b8 20 2c  2c 73 63 61 6c 65 25 21  |6),4 . ,,scale%!|
00005ff0  31 36 0d 23 6e 3b c8 99  20 22 4f 53 5f 52 65 61  |16.#n;.. "OS_Rea|
00006000  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 21  |dModeVariable",!|
00006010  28 35 36 2b 68 65 61 70  25 21 31 36 29 2c 35 20  |(56+heap%!16),5 |
00006020  b8 20 2c 2c 73 63 61 6c  65 25 21 32 30 0d 23 78  |. ,,scale%!20.#x|
00006030  2e c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |... "OS_ReadMode|
00006040  56 61 72 69 61 62 6c 65  22 2c eb 2c 34 20 b8 20  |Variable",.,4 . |
00006050  2c 2c 73 63 61 6c 65 25  21 32 34 0d 23 82 2e c8  |,,scale%!24.#...|
00006060  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00006070  72 69 61 62 6c 65 22 2c  eb 2c 35 20 b8 20 2c 2c  |riable",.,5 . ,,|
00006080  73 63 61 6c 65 25 21 32  38 0d 23 8c 19 e7 20 21  |scale%!28.#... !|
00006090  28 34 38 2b 68 65 61 70  25 21 31 36 29 3e 34 34  |(48+heap%!16)>44|
000060a0  20 8c 0d 23 96 11 e3 20  63 6f 6c 25 3d 30 20 b8  | ..#... col%=0 .|
000060b0  20 31 35 0d 23 a0 2b 70  61 6c 65 74 74 65 25 21  | 15.#.+palette%!|
000060c0  28 63 6f 6c 25 2a 34 29  3d 21 28 36 30 2b 63 6f  |(col%*4)=!(60+co|
000060d0  6c 25 2a 38 2b 68 65 61  70 25 21 31 36 29 0d 23  |l%*8+heap%!16).#|
000060e0  aa 0a ed 20 63 6f 6c 25  0d 23 b4 4a c8 99 20 22  |... col%.#.J.. "|
000060f0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 6c 65  |ColourTrans_Sele|
00006100  63 74 54 61 62 6c 65 22  2c 21 28 35 36 2b 68 65  |ctTable",!(56+he|
00006110  61 70 25 21 31 36 29 2c  70 61 6c 65 74 74 65 25  |ap%!16),palette%|
00006120  2c 2d 31 2c 2d 31 2c 62  69 74 6d 61 70 25 2b 32  |,-1,-1,bitmap%+2|
00006130  35 36 0d 23 be 05 cc 0d  23 c8 43 c8 99 20 22 43  |56.#....#.C.. "C|
00006140  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 6c 65 63  |olourTrans_Selec|
00006150  74 54 61 62 6c 65 22 2c  21 28 35 36 2b 68 65 61  |tTable",!(56+hea|
00006160  70 25 21 31 36 29 2c 30  2c 2d 31 2c 2d 31 2c 62  |p%!16),0,-1,-1,b|
00006170  69 74 6d 61 70 25 2b 32  35 36 0d 23 d2 05 cd 0d  |itmap%+256.#....|
00006180  23 dc 05 cd 0d 23 e6 17  e7 20 21 28 34 2b 68 65  |#....#... !(4+he|
00006190  61 70 25 21 32 34 29 3e  30 20 8c 0d 23 f0 3b c8  |ap%!24)>0 ..#.;.|
000061a0  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
000061b0  72 69 61 62 6c 65 22 2c  21 28 35 36 2b 68 65 61  |riable",!(56+hea|
000061c0  70 25 21 32 34 29 2c 34  20 b8 20 2c 2c 73 63 61  |p%!24),4 . ,,sca|
000061d0  6c 65 25 21 33 32 0d 23  fa 3b c8 99 20 22 4f 53  |le%!32.#.;.. "OS|
000061e0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
000061f0  65 22 2c 21 28 35 36 2b  68 65 61 70 25 21 32 34  |e",!(56+heap%!24|
00006200  29 2c 35 20 b8 20 2c 2c  73 63 61 6c 65 25 21 33  |),5 . ,,scale%!3|
00006210  36 0d 24 04 2e c8 99 20  22 4f 53 5f 52 65 61 64  |6.$.... "OS_Read|
00006220  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c eb 2c  |ModeVariable",.,|
00006230  34 20 b8 20 2c 2c 73 63  61 6c 65 25 21 34 30 0d  |4 . ,,scale%!40.|
00006240  24 0e 2e c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |$.... "OS_ReadMo|
00006250  64 65 56 61 72 69 61 62  6c 65 22 2c eb 2c 35 20  |deVariable",.,5 |
00006260  b8 20 2c 2c 73 63 61 6c  65 25 21 34 34 0d 24 18  |. ,,scale%!44.$.|
00006270  43 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  |C.. "ColourTrans|
00006280  5f 53 65 6c 65 63 74 54  61 62 6c 65 22 2c 21 28  |_SelectTable",!(|
00006290  35 36 2b 68 65 61 70 25  21 32 34 29 2c 30 2c 2d  |56+heap%!24),0,-|
000062a0  31 2c 2d 31 2c 62 69 74  6d 61 70 25 2b 35 31 32  |1,-1,bitmap%+512|
000062b0  0d 24 22 05 cd 0d 24 2c  05 e1 0d 24 36 05 3a 0d  |.$"...$,...$6.:.|
000062c0  24 40 0c dd 20 f2 6d 6f  72 70 68 0d 24 4a 0b d6  |$@.. .morph.$J..|
000062d0  20 6d 6f 72 70 68 0d 24  54 12 e7 20 21 6f 75 74  | morph.$T.. !out|
000062e0  70 75 74 25 3c 30 20 8c  0d 24 5e 32 c8 99 20 22  |put%<0 ..$^2.. "|
000062f0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 35 31 32  |OS_SpriteOp",512|
00006300  2b 36 30 2c 68 65 61 70  25 21 32 34 2c 28 68 65  |+60,heap%!24,(he|
00006310  61 70 25 21 32 34 29 2b  31 36 0d 24 68 33 ff 28  |ap%!24)+16.$h3.(|
00006320  22 53 63 72 65 65 6e 53  61 76 65 20 22 2b a4 73  |"ScreenSave "+.s|
00006330  74 72 69 6e 67 28 73 70  72 6e 61 6d 65 25 29 2b  |tring(sprname%)+|
00006340  c3 28 69 6e 70 75 74 25  21 34 30 29 29 0d 24 72  |.(input%!40)).$r|
00006350  10 e6 20 31 32 38 20 c8  9c 20 30 3a da 0d 24 7c  |.. 128 .. 0:..$||
00006360  1d c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |... "OS_SpriteOp|
00006370  22 2c 36 30 2c 30 2c 30  2c 31 0d 24 86 30 c8 99  |",60,0,0,1.$.0..|
00006380  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00006390  61 77 22 2c 70 72 76 77  69 6e 25 2c 30 2c 2d 68  |aw",prvwin%,0,-h|
000063a0  67 74 25 2c 77 64 74 25  2c 30 0d 24 90 10 69 6e  |gt%,wdt%,0.$..in|
000063b0  70 75 74 25 21 34 30 2b  3d 31 0d 24 9a 1b e7 20  |put%!40+=1.$... |
000063c0  69 6e 70 75 74 25 21 34  30 3e 69 6e 70 75 74 25  |input%!40>input%|
000063d0  21 34 34 20 8c 0d 24 a4  32 c8 99 20 22 4f 53 5f  |!44 ..$.2.. "OS_|
000063e0  53 70 72 69 74 65 4f 70  22 2c 35 31 32 2b 32 35  |SpriteOp",512+25|
000063f0  2c 68 65 61 70 25 21 32  34 2c 28 68 65 61 70 25  |,heap%!24,(heap%|
00006400  21 32 34 29 2b 31 36 0d  24 ae 33 f2 63 6c 61 69  |!24)+16.$.3.clai|
00006410  6d 28 68 65 61 70 25 2b  32 34 2c 33 32 2c 63 6c  |m(heap%+24,32,cl|
00006420  61 69 6d 25 29 3a 21 28  68 65 61 70 25 21 32 34  |aim%):!(heap%!24|
00006430  29 3d 68 65 61 70 25 21  32 38 0d 24 b8 0d f2 76  |)=heap%!28.$...v|
00006440  61 72 69 61 62 6c 65 0d  24 c2 1b 69 6e 74 66 6c  |ariable.$..intfl|
00006450  61 67 25 3d 69 6e 74 66  6c 61 67 25 20 80 20 ac  |ag%=intflag% . .|
00006460  20 33 0d 24 cc 32 21 62  6c 6f 63 6b 25 3d 6d 72  | 3.$.2!block%=mr|
00006470  70 77 69 6e 25 3a 62 6c  6f 63 6b 25 21 38 3d 26  |pwin%:block%!8=&|
00006480  32 30 30 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 26  |2000:block%!12=&|
00006490  46 30 30 30 0d 24 d6 12  e3 20 73 65 74 25 3d 32  |F000.$... set%=2|
000064a0  37 20 b8 20 33 30 0d 24  e0 30 62 6c 6f 63 6b 25  |7 . 30.$.0block%|
000064b0  21 34 3d 73 65 74 25 3a  c8 99 20 22 57 69 6d 70  |!4=set%:.. "Wimp|
000064c0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000064d0  62 6c 6f 63 6b 25 0d 24  ea 0a ed 20 73 65 74 25  |block%.$... set%|
000064e0  0d 24 f4 3d 62 6c 6f 63  6b 25 21 34 3d 33 31 3a  |.$.=block%!4=31:|
000064f0  62 6c 6f 63 6b 25 21 38  3d 26 46 30 30 30 3a c8  |block%!8=&F000:.|
00006500  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00006510  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 24 fe  |tate",,block%.$.|
00006520  2e 62 6c 6f 63 6b 25 21  34 3d 33 32 3a c8 99 20  |.block%!4=32:.. |
00006530  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00006540  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 25 08 2e 62  |te",,block%.%..b|
00006550  6c 6f 63 6b 25 21 34 3d  33 37 3a c8 99 20 22 57  |lock%!4=37:.. "W|
00006560  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00006570  22 2c 2c 62 6c 6f 63 6b  25 0d 25 12 2e 62 6c 6f  |",,block%.%..blo|
00006580  63 6b 25 21 34 3d 33 38  3a c8 99 20 22 57 69 6d  |ck%!4=38:.. "Wim|
00006590  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000065a0  2c 62 6c 6f 63 6b 25 0d  25 1c 3d 62 6c 6f 63 6b  |,block%.%.=block|
000065b0  25 21 34 3d 33 39 3a c8  99 20 22 57 69 6d 70 5f  |%!4=39:.. "Wimp_|
000065c0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
000065d0  6c 6f 63 6b 25 3a 62 6c  6f 63 6b 25 21 38 3d 26  |lock%:block%!8=&|
000065e0  42 30 30 30 0d 25 26 12  e3 20 73 65 74 25 3d 33  |B000.%&.. set%=3|
000065f0  33 20 b8 20 33 36 0d 25  30 30 62 6c 6f 63 6b 25  |3 . 36.%00block%|
00006600  21 34 3d 73 65 74 25 3a  c8 99 20 22 57 69 6d 70  |!4=set%:.. "Wimp|
00006610  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00006620  62 6c 6f 63 6b 25 0d 25  3a 0a ed 20 73 65 74 25  |block%.%:.. set%|
00006630  0d 25 44 2a 62 6c 6f 63  6b 25 21 31 32 3d 26 46  |.%D*block%!12=&F|
00006640  30 30 30 30 30 30 30 3a  62 6c 6f 63 6b 25 21 38  |0000000:block%!8|
00006650  3d 26 43 30 30 30 30 30  30 30 0d 25 4e 2e 62 6c  |=&C0000000.%N.bl|
00006660  6f 63 6b 25 21 34 3d 34  30 3a c8 99 20 22 57 69  |ock%!4=40:.. "Wi|
00006670  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00006680  2c 2c 62 6c 6f 63 6b 25  0d 25 58 2e 62 6c 6f 63  |,,block%.%X.bloc|
00006690  6b 25 21 34 3d 34 31 3a  c8 99 20 22 57 69 6d 70  |k%!4=41:.. "Wimp|
000066a0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000066b0  62 6c 6f 63 6b 25 0d 25  62 05 cc 0d 25 6c 1a d6  |block%.%b...%l..|
000066c0  20 69 6e 62 65 74 77 65  65 6e 3a d6 20 62 6f 75  | inbetween:. bou|
000066d0  6e 64 62 6f 78 0d 25 76  20 24 28 73 74 72 66 72  |ndbox.%v $(strfr|
000066e0  6d 25 29 3d c3 28 69 6e  70 75 74 25 21 34 30 29  |m%)=.(input%!40)|
000066f0  2b bd 28 30 29 0d 25 80  36 21 62 6c 6f 63 6b 25  |+.(0).%.6!block%|
00006700  3d 6d 72 70 77 69 6e 25  3a 62 6c 6f 63 6b 25 21  |=mrpwin%:block%!|
00006710  34 3d 33 32 3a 62 6c 6f  63 6b 25 21 38 3d 30 3a  |4=32:block%!8=0:|
00006720  62 6c 6f 63 6b 25 21 31  32 3d 30 0d 25 8a 22 c8  |block%!12=0.%.".|
00006730  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00006740  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 25 94  |tate",,block%.%.|
00006750  18 66 72 6d 74 6d 65 25  3d 91 3a 66 72 6d 64 6e  |.frmtme%=.:frmdn|
00006760  65 25 2b 3d 31 0d 25 9e  2b 24 28 61 76 74 6d 65  |e%+=1.%.+$(avtme|
00006770  25 29 3d a4 74 69 6d 65  28 28 91 2d 74 69 6d 65  |%)=.time((.-time|
00006780  25 29 2f 66 72 6d 64 6e  65 25 29 2b bd 28 30 29  |%)/frmdne%)+.(0)|
00006790  0d 25 a8 05 cd 0d 25 b2  05 cc 0d 25 bc 1f 78 73  |.%....%....%..xs|
000067a0  74 70 25 3d 69 6e 70 75  74 25 21 35 32 2f 28 31  |tp%=input%!52/(1|
000067b0  3c 3c 73 68 69 66 74 25  29 0d 25 c6 1f 79 73 74  |<<shift%).%..yst|
000067c0  70 25 3d 69 6e 70 75 74  25 21 35 36 2f 28 31 3c  |p%=input%!56/(1<|
000067d0  3c 73 68 69 66 74 25 29  0d 25 d0 1f 78 70 6e 74  |<shift%).%..xpnt|
000067e0  25 3d 6f 75 74 70 75 74  25 21 34 2f 28 31 3c 3c  |%=output%!4/(1<<|
000067f0  73 68 69 66 74 25 29 0d  25 da 1f 79 70 6e 74 25  |shift%).%..ypnt%|
00006800  3d 6f 75 74 70 75 74 25  21 38 2f 28 31 3c 3c 73  |=output%!8/(1<<s|
00006810  68 69 66 74 25 29 0d 25  e4 2d f2 6c 69 6d 69 74  |hift%).%.-.limit|
00006820  28 78 70 6e 74 25 2c 30  2c 31 32 37 39 29 3a f2  |(xpnt%,0,1279):.|
00006830  6c 69 6d 69 74 28 79 70  6e 74 25 2c 30 2c 31 30  |limit(ypnt%,0,10|
00006840  32 33 29 0d 25 ee 30 c8  99 20 22 4f 53 5f 53 70  |23).%.0.. "OS_Sp|
00006850  72 69 74 65 4f 70 22 2c  35 31 32 2b 36 30 2c 68  |riteOp",512+60,h|
00006860  65 61 70 25 21 38 2c 28  68 65 61 70 25 21 38 29  |eap%!8,(heap%!8)|
00006870  2b 31 36 0d 25 f8 28 63  6f 6c 25 3d b0 78 70 6e  |+16.%.(col%=.xpn|
00006880  74 25 2c 79 70 6e 74 25  29 20 84 20 c8 9c 28 78  |t%,ypnt%) . ..(x|
00006890  70 6e 74 25 2c 79 70 6e  74 25 29 0d 26 02 1d 69  |pnt%,ypnt%).&..i|
000068a0  6e 70 75 74 25 21 39 36  3d 6d 61 70 25 3f 28 34  |nput%!96=map%?(4|
000068b0  2a 63 6f 6c 25 2b 31 29  0d 26 0c 1e 69 6e 70 75  |*col%+1).&..inpu|
000068c0  74 25 21 31 30 30 3d 6d  61 70 25 3f 28 34 2a 63  |t%!100=map%?(4*c|
000068d0  6f 6c 25 2b 32 29 0d 26  16 1e 69 6e 70 75 74 25  |ol%+2).&..input%|
000068e0  21 31 30 34 3d 6d 61 70  25 3f 28 34 2a 63 6f 6c  |!104=map%?(4*col|
000068f0  25 2b 33 29 0d 26 20 17  e7 20 21 28 34 2b 68 65  |%+3).& .. !(4+he|
00006900  61 70 25 21 31 36 29 3e  30 20 8c 0d 26 2a 20 78  |ap%!16)>0 ..&* x|
00006910  70 6e 74 25 3d 6f 75 74  70 75 74 25 21 31 32 2f  |pnt%=output%!12/|
00006920  28 31 3c 3c 73 68 69 66  74 25 29 0d 26 34 20 79  |(1<<shift%).&4 y|
00006930  70 6e 74 25 3d 6f 75 74  70 75 74 25 21 31 36 2f  |pnt%=output%!16/|
00006940  28 31 3c 3c 73 68 69 66  74 25 29 0d 26 3e 2d f2  |(1<<shift%).&>-.|
00006950  6c 69 6d 69 74 28 78 70  6e 74 25 2c 30 2c 31 32  |limit(xpnt%,0,12|
00006960  37 39 29 3a f2 6c 69 6d  69 74 28 79 70 6e 74 25  |79):.limit(ypnt%|
00006970  2c 30 2c 31 30 32 33 29  0d 26 48 32 c8 99 20 22  |,0,1023).&H2.. "|
00006980  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 35 31 32  |OS_SpriteOp",512|
00006990  2b 36 30 2c 68 65 61 70  25 21 31 36 2c 28 68 65  |+60,heap%!16,(he|
000069a0  61 70 25 21 31 36 29 2b  31 36 0d 26 52 28 63 6f  |ap%!16)+16.&R(co|
000069b0  6c 25 3d b0 78 70 6e 74  25 2c 79 70 6e 74 25 29  |l%=.xpnt%,ypnt%)|
000069c0  20 84 20 c8 9c 28 78 70  6e 74 25 2c 79 70 6e 74  | . ..(xpnt%,ypnt|
000069d0  25 29 0d 26 5c 4c 69 6e  70 75 74 25 21 39 36 3d  |%).&\Linput%!96=|
000069e0  28 69 6e 70 75 74 25 21  34 30 2f 69 6e 70 75 74  |(input%!40/input|
000069f0  25 21 34 34 29 2a 28 6d  61 70 25 3f 28 34 2a 63  |%!44)*(map%?(4*c|
00006a00  6f 6c 25 2b 31 30 32 35  29 2d 69 6e 70 75 74 25  |ol%+1025)-input%|
00006a10  21 39 36 29 2b 69 6e 70  75 74 25 21 39 36 0d 26  |!96)+input%!96.&|
00006a20  66 4f 69 6e 70 75 74 25  21 31 30 30 3d 28 69 6e  |fOinput%!100=(in|
00006a30  70 75 74 25 21 34 30 2f  69 6e 70 75 74 25 21 34  |put%!40/input%!4|
00006a40  34 29 2a 28 6d 61 70 25  3f 28 34 2a 63 6f 6c 25  |4)*(map%?(4*col%|
00006a50  2b 31 30 32 36 29 2d 69  6e 70 75 74 25 21 31 30  |+1026)-input%!10|
00006a60  30 29 2b 69 6e 70 75 74  25 21 31 30 30 0d 26 70  |0)+input%!100.&p|
00006a70  4f 69 6e 70 75 74 25 21  31 30 34 3d 28 69 6e 70  |Oinput%!104=(inp|
00006a80  75 74 25 21 34 30 2f 69  6e 70 75 74 25 21 34 34  |ut%!40/input%!44|
00006a90  29 2a 28 6d 61 70 25 3f  28 34 2a 63 6f 6c 25 2b  |)*(map%?(4*col%+|
00006aa0  31 30 32 37 29 2d 69 6e  70 75 74 25 21 31 30 34  |1027)-input%!104|
00006ab0  29 2b 69 6e 70 75 74 25  21 31 30 34 0d 26 7a 05  |)+input%!104.&z.|
00006ac0  cd 0d 26 84 05 3a 0d 26  8e 1c 69 6e 70 75 74 25  |..&..:.&..input%|
00006ad0  21 31 30 38 3d 69 6e 74  66 6c 61 67 25 20 80 20  |!108=intflag% . |
00006ae0  31 36 0d 26 98 1b d6 20  63 6f 6c 6f 75 72 3a 62  |16.&... colour:b|
00006af0  79 74 65 25 3d 21 6f 75  74 70 75 74 25 0d 26 a2  |yte%=!output%.&.|
00006b00  2a 78 70 6e 74 25 3d 21  69 6e 70 75 74 25 2f 28  |*xpnt%=!input%/(|
00006b10  31 3c 3c 73 68 69 66 74  25 29 2a 77 64 74 73 63  |1<<shift%)*wdtsc|
00006b20  6c 25 2f 31 32 38 30 0d  26 ac 2b 79 70 6e 74 25  |l%/1280.&.+ypnt%|
00006b30  3d 69 6e 70 75 74 25 21  34 2f 28 31 3c 3c 73 68  |=input%!4/(1<<sh|
00006b40  69 66 74 25 29 2a 68 67  74 73 63 6c 25 2f 31 30  |ift%)*hgtscl%/10|
00006b50  32 34 0d 26 b6 1c 78 73  74 70 25 3d 78 73 74 70  |24.&..xstp%=xstp|
00006b60  25 2a 77 64 74 73 63 6c  25 2f 31 32 38 30 0d 26  |%*wdtscl%/1280.&|
00006b70  c0 1c 79 73 74 70 25 3d  79 73 74 70 25 2a 68 67  |..ystp%=ystp%*hg|
00006b80  74 73 63 6c 25 2f 31 30  32 34 0d 26 ca 32 c8 99  |tscl%/1024.&.2..|
00006b90  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 35  | "OS_SpriteOp",5|
00006ba0  31 32 2b 36 30 2c 68 65  61 70 25 21 32 34 2c 28  |12+60,heap%!24,(|
00006bb0  68 65 61 70 25 21 32 34  29 2b 31 36 0d 26 d4 1f  |heap%!24)+16.&..|
00006bc0  e6 20 62 79 74 65 25 20  80 20 36 33 20 c8 9c 20  |. byte% . 63 .. |
00006bd0  62 79 74 65 25 20 80 20  31 39 32 0d 26 de 25 c8  |byte% . 192.&.%.|
00006be0  93 20 c8 90 20 78 70 6e  74 25 2c 79 70 6e 74 25  |. .. xpnt%,ypnt%|
00006bf0  2c 78 73 74 70 25 2d 31  2c 79 73 74 70 25 2d 31  |,xstp%-1,ystp%-1|
00006c00  0d 26 e8 1d c8 99 20 22  4f 53 5f 53 70 72 69 74  |.&.... "OS_Sprit|
00006c10  65 4f 70 22 2c 36 30 2c  30 2c 30 2c 31 0d 26 f2  |eOp",60,0,0,1.&.|
00006c20  05 3a 0d 26 fc 2c 62 79  74 65 25 3d 28 62 79 74  |.:.&.,byte%=(byt|
00006c30  65 25 20 80 20 36 33 29  3c 3c 32 20 84 20 28 62  |e% . 63)<<2 . (b|
00006c40  79 74 65 25 20 80 20 31  39 32 29 3e 3e 36 0d 27  |yte% . 192)>>6.'|
00006c50  06 35 c8 99 20 22 43 6f  6c 6f 75 72 54 72 61 6e  |.5.. "ColourTran|
00006c60  73 5f 47 43 4f 4c 54 6f  43 6f 6c 6f 75 72 4e 75  |s_GCOLToColourNu|
00006c70  6d 62 65 72 22 2c 62 79  74 65 25 20 b8 20 62 79  |mber",byte% . by|
00006c80  74 65 25 0d 27 10 29 c8  99 20 22 4f 53 5f 52 65  |te%.'.).. "OS_Re|
00006c90  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00006ca0  eb 2c 33 20 b8 20 2c 2c  62 69 74 25 0d 27 1a 1d  |.,3 . ,,bit%.'..|
00006cb0  62 79 74 65 25 3d 62 69  74 6d 61 70 25 3f 28 35  |byte%=bitmap%?(5|
00006cc0  31 32 2b 62 79 74 65 25  29 0d 27 24 0f e7 20 62  |12+byte%).'$.. b|
00006cd0  69 74 25 3d 36 33 20 8c  0d 27 2e 35 c8 99 20 22  |it%=63 ..'.5.. "|
00006ce0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 43 6f 6c 6f  |ColourTrans_Colo|
00006cf0  75 72 4e 75 6d 62 65 72  54 6f 47 43 4f 4c 22 2c  |urNumberToGCOL",|
00006d00  62 79 74 65 25 20 b8 20  62 79 74 65 25 0d 27 38  |byte% . byte%.'8|
00006d10  2b 62 79 74 65 25 3d 28  62 79 74 65 25 20 80 20  |+byte%=(byte% . |
00006d20  32 35 32 29 3e 3e 32 20  84 20 28 62 79 74 65 25  |252)>>2 . (byte%|
00006d30  20 80 20 33 29 3c 3c 36  0d 27 42 05 cd 0d 27 4c  | . 3)<<6.'B...'L|
00006d40  48 21 62 6c 6f 63 6b 25  3d 70 72 76 77 69 6e 25  |H!block%=prvwin%|
00006d50  3a 62 6c 6f 63 6b 25 21  34 3d 30 3a 62 6c 6f 63  |:block%!4=0:bloc|
00006d60  6b 25 21 38 3d 2d 68 67  74 25 3a 62 6c 6f 63 6b  |k%!8=-hgt%:block|
00006d70  25 21 31 32 3d 77 64 74  25 3a 62 6c 6f 63 6b 25  |%!12=wdt%:block%|
00006d80  21 31 36 3d 30 0d 27 56  2a c8 99 20 22 57 69 6d  |!16=0.'V*.. "Wim|
00006d90  70 5f 55 70 64 61 74 65  57 69 6e 64 6f 77 22 2c  |p_UpdateWindow",|
00006da0  2c 62 6c 6f 63 6b 25 20  b8 20 66 6c 61 67 25 0d  |,block% . flag%.|
00006db0  27 60 0c c8 95 20 66 6c  61 67 25 0d 27 6a 39 78  |'`... flag%.'j9x|
00006dc0  73 63 25 3d 62 6c 6f 63  6b 25 21 32 30 2d 62 6c  |sc%=block%!20-bl|
00006dd0  6f 63 6b 25 21 34 3a 79  73 63 25 3d 62 6c 6f 63  |ock%!4:ysc%=bloc|
00006de0  6b 25 21 32 34 2d 62 6c  6f 63 6b 25 21 31 36 2b  |k%!24-block%!16+|
00006df0  68 67 74 25 0d 27 74 1f  e6 20 62 79 74 65 25 20  |hgt%.'t.. byte% |
00006e00  80 20 36 33 20 c8 9c 20  62 79 74 65 25 20 80 20  |. 63 .. byte% . |
00006e10  31 39 32 0d 27 7e 2f c8  93 20 c8 90 20 78 70 6e  |192.'~/.. .. xpn|
00006e20  74 25 2d 78 73 63 25 2c  79 70 6e 74 25 2d 79 73  |t%-xsc%,ypnt%-ys|
00006e30  63 25 2c 78 73 74 70 25  2d 31 2c 79 73 74 70 25  |c%,xstp%-1,ystp%|
00006e40  2d 31 0d 27 88 2a c8 99  20 22 57 69 6d 70 5f 47  |-1.'.*.. "Wimp_G|
00006e50  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 62 6c  |etRectangle",,bl|
00006e60  6f 63 6b 25 20 b8 20 66  6c 61 67 25 0d 27 92 05  |ock% . flag%.'..|
00006e70  ce 0d 27 9c 05 cd 0d 27  a6 21 24 28 74 6f 74 6d  |..'....'.!$(totm|
00006e80  65 25 29 3d a4 74 69 6d  65 28 91 2d 74 69 6d 65  |e%)=.time(.-time|
00006e90  25 29 2b bd 28 30 29 0d  27 b0 24 24 28 65 6c 70  |%)+.(0).'.$$(elp|
00006ea0  74 6d 65 25 29 3d a4 74  69 6d 65 28 91 2d 66 72  |tme%)=.time(.-fr|
00006eb0  6d 74 6d 65 25 29 2b bd  28 30 29 0d 27 ba 05 e1  |mtme%)+.(0).'...|
00006ec0  0d 27 c4 05 3a 0d 27 ce  11 dd 20 f2 73 69 6e 67  |.'..:.'... .sing|
00006ed0  6c 65 74 61 73 6b 0d 27  d8 0b 6d 6f 64 65 25 3d  |letask.'..mode%=|
00006ee0  eb 0d 27 e2 0f eb 20 69  6e 70 75 74 25 21 34 38  |..'... input%!48|
00006ef0  0d 27 ec 05 87 0d 27 f6  36 c8 99 20 22 4f 53 5f  |.'....'.6.. "OS_|
00006f00  53 70 72 69 74 65 4f 70  22 2c 35 31 32 2b 33 34  |SpriteOp",512+34|
00006f10  2c 68 65 61 70 25 21 32  34 2c 28 68 65 61 70 25  |,heap%!24,(heap%|
00006f20  21 32 34 29 2b 31 36 2c  30 2c 30 0d 28 00 05 f5  |!24)+16,0,0.(...|
00006f30  0d 28 0a 0b d6 20 6d 6f  72 70 68 0d 28 14 12 e7  |.(... morph.(...|
00006f40  20 21 6f 75 74 70 75 74  25 3c 30 20 8c 0d 28 1e  | !output%<0 ..(.|
00006f50  32 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2.. "OS_SpriteOp|
00006f60  22 2c 35 31 32 2b 36 30  2c 68 65 61 70 25 21 32  |",512+60,heap%!2|
00006f70  34 2c 28 68 65 61 70 25  21 32 34 29 2b 31 36 0d  |4,(heap%!24)+16.|
00006f80  28 28 33 ff 28 22 53 63  72 65 65 6e 53 61 76 65  |((3.("ScreenSave|
00006f90  20 22 2b a4 73 74 72 69  6e 67 28 73 70 72 6e 61  | "+.string(sprna|
00006fa0  6d 65 25 29 2b c3 28 69  6e 70 75 74 25 21 34 30  |me%)+.(input%!40|
00006fb0  29 29 0d 28 32 10 e6 20  31 32 38 20 c8 9c 20 30  |)).(2.. 128 .. 0|
00006fc0  3a da 0d 28 3c 1d c8 99  20 22 4f 53 5f 53 70 72  |:..(<... "OS_Spr|
00006fd0  69 74 65 4f 70 22 2c 36  30 2c 30 2c 30 2c 31 0d  |iteOp",60,0,0,1.|
00006fe0  28 46 10 e6 20 31 32 38  20 c8 9c 20 30 3a da 0d  |(F.. 128 .. 0:..|
00006ff0  28 50 10 69 6e 70 75 74  25 21 34 30 2b 3d 31 0d  |(P.input%!40+=1.|
00007000  28 5a 1b e7 20 69 6e 70  75 74 25 21 34 30 3e 69  |(Z.. input%!40>i|
00007010  6e 70 75 74 25 21 34 34  20 8c 0d 28 64 1b c8 99  |nput%!44 ..(d...|
00007020  20 22 57 69 6d 70 5f 53  65 74 4d 6f 64 65 22 2c  | "Wimp_SetMode",|
00007030  6d 6f 64 65 25 0d 28 6e  32 c8 99 20 22 4f 53 5f  |mode%.(n2.. "OS_|
00007040  53 70 72 69 74 65 4f 70  22 2c 35 31 32 2b 32 35  |SpriteOp",512+25|
00007050  2c 68 65 61 70 25 21 32  34 2c 28 68 65 61 70 25  |,heap%!24,(heap%|
00007060  21 32 34 29 2b 31 36 0d  28 78 33 f2 63 6c 61 69  |!24)+16.(x3.clai|
00007070  6d 28 68 65 61 70 25 2b  32 34 2c 33 32 2c 63 6c  |m(heap%+24,32,cl|
00007080  61 69 6d 25 29 3a 21 28  68 65 61 70 25 21 32 34  |aim%):!(heap%!24|
00007090  29 3d 68 65 61 70 25 21  32 38 0d 28 82 0d f2 76  |)=heap%!28.(...v|
000070a0  61 72 69 61 62 6c 65 0d  28 8c 1b 69 6e 74 66 6c  |ariable.(..intfl|
000070b0  61 67 25 3d 69 6e 74 66  6c 61 67 25 20 80 20 ac  |ag%=intflag% . .|
000070c0  20 33 0d 28 96 32 21 62  6c 6f 63 6b 25 3d 6d 72  | 3.(.2!block%=mr|
000070d0  70 77 69 6e 25 3a 62 6c  6f 63 6b 25 21 38 3d 26  |pwin%:block%!8=&|
000070e0  32 30 30 30 3a 62 6c 6f  63 6b 25 21 31 32 3d 26  |2000:block%!12=&|
000070f0  46 30 30 30 0d 28 a0 12  e3 20 73 65 74 25 3d 32  |F000.(... set%=2|
00007100  37 20 b8 20 33 30 0d 28  aa 30 62 6c 6f 63 6b 25  |7 . 30.(.0block%|
00007110  21 34 3d 73 65 74 25 3a  c8 99 20 22 57 69 6d 70  |!4=set%:.. "Wimp|
00007120  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00007130  62 6c 6f 63 6b 25 0d 28  b4 0a ed 20 73 65 74 25  |block%.(... set%|
00007140  0d 28 be 3d 62 6c 6f 63  6b 25 21 34 3d 33 31 3a  |.(.=block%!4=31:|
00007150  62 6c 6f 63 6b 25 21 38  3d 26 46 30 30 30 3a c8  |block%!8=&F000:.|
00007160  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00007170  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 28 c8  |tate",,block%.(.|
00007180  2e 62 6c 6f 63 6b 25 21  34 3d 33 32 3a c8 99 20  |.block%!4=32:.. |
00007190  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000071a0  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 28 d2 2e 62  |te",,block%.(..b|
000071b0  6c 6f 63 6b 25 21 34 3d  33 37 3a c8 99 20 22 57  |lock%!4=37:.. "W|
000071c0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000071d0  22 2c 2c 62 6c 6f 63 6b  25 0d 28 dc 2e 62 6c 6f  |",,block%.(..blo|
000071e0  63 6b 25 21 34 3d 33 38  3a c8 99 20 22 57 69 6d  |ck%!4=38:.. "Wim|
000071f0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00007200  2c 62 6c 6f 63 6b 25 0d  28 e6 3d 62 6c 6f 63 6b  |,block%.(.=block|
00007210  25 21 34 3d 33 39 3a c8  99 20 22 57 69 6d 70 5f  |%!4=39:.. "Wimp_|
00007220  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |SetIconState",,b|
00007230  6c 6f 63 6b 25 3a 62 6c  6f 63 6b 25 21 38 3d 26  |lock%:block%!8=&|
00007240  42 30 30 30 0d 28 f0 12  e3 20 73 65 74 25 3d 33  |B000.(... set%=3|
00007250  33 20 b8 20 33 36 0d 28  fa 30 62 6c 6f 63 6b 25  |3 . 36.(.0block%|
00007260  21 34 3d 73 65 74 25 3a  c8 99 20 22 57 69 6d 70  |!4=set%:.. "Wimp|
00007270  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00007280  62 6c 6f 63 6b 25 0d 29  04 0a ed 20 73 65 74 25  |block%.)... set%|
00007290  0d 29 0e 2a 62 6c 6f 63  6b 25 21 31 32 3d 26 46  |.).*block%!12=&F|
000072a0  30 30 30 30 30 30 30 3a  62 6c 6f 63 6b 25 21 38  |0000000:block%!8|
000072b0  3d 26 43 30 30 30 30 30  30 30 0d 29 18 2e 62 6c  |=&C0000000.)..bl|
000072c0  6f 63 6b 25 21 34 3d 34  30 3a c8 99 20 22 57 69  |ock%!4=40:.. "Wi|
000072d0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000072e0  2c 2c 62 6c 6f 63 6b 25  0d 29 22 2e 62 6c 6f 63  |,,block%.)".bloc|
000072f0  6b 25 21 34 3d 34 31 3a  c8 99 20 22 57 69 6d 70  |k%!4=41:.. "Wimp|
00007300  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00007310  62 6c 6f 63 6b 25 0d 29  2c 05 cc 0d 29 36 1a d6  |block%.),...)6..|
00007320  20 69 6e 62 65 74 77 65  65 6e 3a d6 20 62 6f 75  | inbetween:. bou|
00007330  6e 64 62 6f 78 0d 29 40  20 24 28 73 74 72 66 72  |ndbox.)@ $(strfr|
00007340  6d 25 29 3d c3 28 69 6e  70 75 74 25 21 34 30 29  |m%)=.(input%!40)|
00007350  2b bd 28 30 29 0d 29 4a  18 66 72 6d 74 6d 65 25  |+.(0).)J.frmtme%|
00007360  3d 91 3a 66 72 6d 64 6e  65 25 2b 3d 31 0d 29 54  |=.:frmdne%+=1.)T|
00007370  2b 24 28 61 76 74 6d 65  25 29 3d a4 74 69 6d 65  |+$(avtme%)=.time|
00007380  28 28 91 2d 74 69 6d 65  25 29 2f 66 72 6d 64 6e  |((.-time%)/frmdn|
00007390  65 25 29 2b bd 28 30 29  0d 29 5e 05 cd 0d 29 68  |e%)+.(0).)^...)h|
000073a0  05 cc 0d 29 72 1f 78 73  74 70 25 3d 69 6e 70 75  |...)r.xstp%=inpu|
000073b0  74 25 21 35 32 2f 28 31  3c 3c 73 68 69 66 74 25  |t%!52/(1<<shift%|
000073c0  29 0d 29 7c 1f 79 73 74  70 25 3d 69 6e 70 75 74  |).)|.ystp%=input|
000073d0  25 21 35 36 2f 28 31 3c  3c 73 68 69 66 74 25 29  |%!56/(1<<shift%)|
000073e0  0d 29 86 1f 78 70 6e 74  25 3d 6f 75 74 70 75 74  |.)..xpnt%=output|
000073f0  25 21 34 2f 28 31 3c 3c  73 68 69 66 74 25 29 0d  |%!4/(1<<shift%).|
00007400  29 90 1f 79 70 6e 74 25  3d 6f 75 74 70 75 74 25  |)..ypnt%=output%|
00007410  21 38 2f 28 31 3c 3c 73  68 69 66 74 25 29 0d 29  |!8/(1<<shift%).)|
00007420  9a 2d f2 6c 69 6d 69 74  28 78 70 6e 74 25 2c 30  |.-.limit(xpnt%,0|
00007430  2c 31 32 37 39 29 3a f2  6c 69 6d 69 74 28 79 70  |,1279):.limit(yp|
00007440  6e 74 25 2c 30 2c 31 30  32 33 29 0d 29 a4 30 c8  |nt%,0,1023).).0.|
00007450  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00007460  35 31 32 2b 36 30 2c 68  65 61 70 25 21 38 2c 28  |512+60,heap%!8,(|
00007470  68 65 61 70 25 21 38 29  2b 31 36 0d 29 ae 28 63  |heap%!8)+16.).(c|
00007480  6f 6c 25 3d b0 78 70 6e  74 25 2c 79 70 6e 74 25  |ol%=.xpnt%,ypnt%|
00007490  29 20 84 20 c8 9c 28 78  70 6e 74 25 2c 79 70 6e  |) . ..(xpnt%,ypn|
000074a0  74 25 29 0d 29 b8 1d 69  6e 70 75 74 25 21 39 36  |t%).)..input%!96|
000074b0  3d 6d 61 70 25 3f 28 34  2a 63 6f 6c 25 2b 31 29  |=map%?(4*col%+1)|
000074c0  0d 29 c2 1e 69 6e 70 75  74 25 21 31 30 30 3d 6d  |.)..input%!100=m|
000074d0  61 70 25 3f 28 34 2a 63  6f 6c 25 2b 32 29 0d 29  |ap%?(4*col%+2).)|
000074e0  cc 1e 69 6e 70 75 74 25  21 31 30 34 3d 6d 61 70  |..input%!104=map|
000074f0  25 3f 28 34 2a 63 6f 6c  25 2b 33 29 0d 29 d6 17  |%?(4*col%+3).)..|
00007500  e7 20 21 28 34 2b 68 65  61 70 25 21 31 36 29 3e  |. !(4+heap%!16)>|
00007510  30 20 8c 0d 29 e0 20 78  70 6e 74 25 3d 6f 75 74  |0 ..). xpnt%=out|
00007520  70 75 74 25 21 31 32 2f  28 31 3c 3c 73 68 69 66  |put%!12/(1<<shif|
00007530  74 25 29 0d 29 ea 20 79  70 6e 74 25 3d 6f 75 74  |t%).). ypnt%=out|
00007540  70 75 74 25 21 31 36 2f  28 31 3c 3c 73 68 69 66  |put%!16/(1<<shif|
00007550  74 25 29 0d 29 f4 2d f2  6c 69 6d 69 74 28 78 70  |t%).).-.limit(xp|
00007560  6e 74 25 2c 30 2c 31 32  37 39 29 3a f2 6c 69 6d  |nt%,0,1279):.lim|
00007570  69 74 28 79 70 6e 74 25  2c 30 2c 31 30 32 33 29  |it(ypnt%,0,1023)|
00007580  0d 29 fe 32 c8 99 20 22  4f 53 5f 53 70 72 69 74  |.).2.. "OS_Sprit|
00007590  65 4f 70 22 2c 35 31 32  2b 36 30 2c 68 65 61 70  |eOp",512+60,heap|
000075a0  25 21 31 36 2c 28 68 65  61 70 25 21 31 36 29 2b  |%!16,(heap%!16)+|
000075b0  31 36 0d 2a 08 28 63 6f  6c 25 3d b0 78 70 6e 74  |16.*.(col%=.xpnt|
000075c0  25 2c 79 70 6e 74 25 29  20 84 20 c8 9c 28 78 70  |%,ypnt%) . ..(xp|
000075d0  6e 74 25 2c 79 70 6e 74  25 29 0d 2a 12 4c 69 6e  |nt%,ypnt%).*.Lin|
000075e0  70 75 74 25 21 39 36 3d  28 69 6e 70 75 74 25 21  |put%!96=(input%!|
000075f0  34 30 2f 69 6e 70 75 74  25 21 34 34 29 2a 28 6d  |40/input%!44)*(m|
00007600  61 70 25 3f 28 34 2a 63  6f 6c 25 2b 31 30 32 35  |ap%?(4*col%+1025|
00007610  29 2d 69 6e 70 75 74 25  21 39 36 29 2b 69 6e 70  |)-input%!96)+inp|
00007620  75 74 25 21 39 36 0d 2a  1c 4f 69 6e 70 75 74 25  |ut%!96.*.Oinput%|
00007630  21 31 30 30 3d 28 69 6e  70 75 74 25 21 34 30 2f  |!100=(input%!40/|
00007640  69 6e 70 75 74 25 21 34  34 29 2a 28 6d 61 70 25  |input%!44)*(map%|
00007650  3f 28 34 2a 63 6f 6c 25  2b 31 30 32 36 29 2d 69  |?(4*col%+1026)-i|
00007660  6e 70 75 74 25 21 31 30  30 29 2b 69 6e 70 75 74  |nput%!100)+input|
00007670  25 21 31 30 30 0d 2a 26  4f 69 6e 70 75 74 25 21  |%!100.*&Oinput%!|
00007680  31 30 34 3d 28 69 6e 70  75 74 25 21 34 30 2f 69  |104=(input%!40/i|
00007690  6e 70 75 74 25 21 34 34  29 2a 28 6d 61 70 25 3f  |nput%!44)*(map%?|
000076a0  28 34 2a 63 6f 6c 25 2b  31 30 32 37 29 2d 69 6e  |(4*col%+1027)-in|
000076b0  70 75 74 25 21 31 30 34  29 2b 69 6e 70 75 74 25  |put%!104)+input%|
000076c0  21 31 30 34 0d 2a 30 05  cd 0d 2a 3a 05 3a 0d 2a  |!104.*0...*:.:.*|
000076d0  44 1c 69 6e 70 75 74 25  21 31 30 38 3d 69 6e 74  |D.input%!108=int|
000076e0  66 6c 61 67 25 20 80 20  31 36 0d 2a 4e 1b d6 20  |flag% . 16.*N.. |
000076f0  63 6f 6c 6f 75 72 3a 62  79 74 65 25 3d 21 6f 75  |colour:byte%=!ou|
00007700  74 70 75 74 25 0d 2a 58  2a 78 70 6e 74 25 3d 21  |tput%.*X*xpnt%=!|
00007710  69 6e 70 75 74 25 2f 28  31 3c 3c 73 68 69 66 74  |input%/(1<<shift|
00007720  25 29 2a 77 64 74 73 63  6c 25 2f 31 32 38 30 0d  |%)*wdtscl%/1280.|
00007730  2a 62 2b 79 70 6e 74 25  3d 69 6e 70 75 74 25 21  |*b+ypnt%=input%!|
00007740  34 2f 28 31 3c 3c 73 68  69 66 74 25 29 2a 68 67  |4/(1<<shift%)*hg|
00007750  74 73 63 6c 25 2f 31 30  32 34 0d 2a 6c 1c 78 73  |tscl%/1024.*l.xs|
00007760  74 70 25 3d 78 73 74 70  25 2a 77 64 74 73 63 6c  |tp%=xstp%*wdtscl|
00007770  25 2f 31 32 38 30 0d 2a  76 1c 79 73 74 70 25 3d  |%/1280.*v.ystp%=|
00007780  79 73 74 70 25 2a 68 67  74 73 63 6c 25 2f 31 30  |ystp%*hgtscl%/10|
00007790  32 34 0d 2a 80 32 c8 99  20 22 4f 53 5f 53 70 72  |24.*.2.. "OS_Spr|
000077a0  69 74 65 4f 70 22 2c 35  31 32 2b 36 30 2c 68 65  |iteOp",512+60,he|
000077b0  61 70 25 21 32 34 2c 28  68 65 61 70 25 21 32 34  |ap%!24,(heap%!24|
000077c0  29 2b 31 36 0d 2a 8a 1f  e6 20 62 79 74 65 25 20  |)+16.*... byte% |
000077d0  80 20 36 33 20 c8 9c 20  62 79 74 65 25 20 80 20  |. 63 .. byte% . |
000077e0  31 39 32 0d 2a 94 25 c8  93 20 c8 90 20 78 70 6e  |192.*.%.. .. xpn|
000077f0  74 25 2c 79 70 6e 74 25  2c 78 73 74 70 25 2d 31  |t%,ypnt%,xstp%-1|
00007800  2c 79 73 74 70 25 2d 31  0d 2a 9e 1d c8 99 20 22  |,ystp%-1.*.... "|
00007810  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 36 30 2c  |OS_SpriteOp",60,|
00007820  30 2c 30 2c 31 0d 2a a8  1f e6 20 62 79 74 65 25  |0,0,1.*... byte%|
00007830  20 80 20 36 33 20 c8 9c  20 62 79 74 65 25 20 80  | . 63 .. byte% .|
00007840  20 31 39 32 0d 2a b2 25  c8 93 20 c8 90 20 78 70  | 192.*.%.. .. xp|
00007850  6e 74 25 2c 79 70 6e 74  25 2c 78 73 74 70 25 2d  |nt%,ypnt%,xstp%-|
00007860  31 2c 79 73 74 70 25 2d  31 0d 2a bc 05 cd 0d 2a  |1,ystp%-1.*....*|
00007870  c6 16 c8 97 20 78 70 73  25 2c 79 70 73 25 2c 62  |.... xps%,yps%,b|
00007880  75 74 6e 25 0d 2a d0 20  fd 20 62 75 74 6e 25 3e  |utn%.*. . butn%>|
00007890  30 20 84 20 28 69 6e 74  66 6c 61 67 25 20 80 20  |0 . (intflag% . |
000078a0  33 29 3d 30 0d 2a da 1c  24 28 74 6f 74 6d 65 25  |3)=0.*..$(totme%|
000078b0  29 3d a4 74 69 6d 65 28  91 2d 74 69 6d 65 25 29  |)=.time(.-time%)|
000078c0  0d 2a e4 24 24 28 65 6c  70 74 6d 65 25 29 3d a4  |.*.$$(elptme%)=.|
000078d0  74 69 6d 65 28 91 2d 66  72 6d 74 6d 65 25 29 2b  |time(.-frmtme%)+|
000078e0  bd 28 30 29 0d 2a ee 1b  c8 99 20 22 57 69 6d 70  |.(0).*.... "Wimp|
000078f0  5f 53 65 74 4d 6f 64 65  22 2c 6d 6f 64 65 25 0d  |_SetMode",mode%.|
00007900  2a f8 05 e1 0d 2b 02 05  3a 0d 2b 0c 0e dd 20 f2  |*....+..:.+... .|
00007910  70 72 65 76 69 65 77 0d  2b 16 34 c8 99 20 22 4f  |preview.+.4.. "O|
00007920  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00007930  6c 65 22 2c 69 6e 70 75  74 25 21 34 38 2c 34 20  |le",input%!48,4 |
00007940  b8 20 2c 2c 73 70 72 77  64 74 25 0d 2b 20 34 c8  |. ,,sprwdt%.+ 4.|
00007950  99 20 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |. "OS_ReadModeVa|
00007960  72 69 61 62 6c 65 22 2c  69 6e 70 75 74 25 21 34  |riable",input%!4|
00007970  38 2c 35 20 b8 20 2c 2c  73 70 72 68 67 74 25 0d  |8,5 . ,,sprhgt%.|
00007980  2b 2a 20 73 70 72 77 64  74 25 3d 77 64 74 73 63  |+* sprwdt%=wdtsc|
00007990  6c 25 2f 28 31 3c 3c 73  70 72 77 64 74 25 29 0d  |l%/(1<<sprwdt%).|
000079a0  2b 34 20 73 70 72 68 67  74 25 3d 68 67 74 73 63  |+4 sprhgt%=hgtsc|
000079b0  6c 25 2f 28 31 3c 3c 73  70 72 68 67 74 25 29 0d  |l%/(1<<sprhgt%).|
000079c0  2b 3e 34 c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |+>4.. "OS_ReadMo|
000079d0  64 65 56 61 72 69 61 62  6c 65 22 2c 69 6e 70 75  |deVariable",inpu|
000079e0  74 25 21 34 38 2c 37 20  b8 20 2c 2c 73 63 72 73  |t%!48,7 . ,,scrs|
000079f0  7a 65 25 0d 2b 48 20 73  63 72 73 7a 65 25 3d 28  |ze%.+H scrsze%=(|
00007a00  73 63 72 73 7a 65 25 2b  26 35 46 29 80 20 ac 20  |scrsze%+&5F). . |
00007a10  26 31 46 0d 2b 52 23 f2  63 6c 61 69 6d 28 68 65  |&1F.+R#.claim(he|
00007a20  61 70 25 2b 32 34 2c 73  63 72 73 7a 65 25 2c 63  |ap%+24,scrsze%,c|
00007a30  6c 61 69 6d 25 29 0d 2b  5c 0e e7 20 63 6c 61 69  |laim%).+\.. clai|
00007a40  6d 25 20 8c 0d 2b 66 0d  f2 76 61 72 69 61 62 6c  |m% ..+f..variabl|
00007a50  65 0d 2b 70 18 21 28 68  65 61 70 25 21 32 34 29  |e.+p.!(heap%!24)|
00007a60  3d 68 65 61 70 25 21 32  38 0d 2b 7a 49 c8 99 20  |=heap%!28.+zI.. |
00007a70  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00007a80  36 2b 31 35 2c 68 65 61  70 25 21 32 34 2c 22 6f  |6+15,heap%!24,"o|
00007a90  75 74 70 75 74 22 2c 30  2c 73 70 72 77 64 74 25  |utput",0,sprwdt%|
00007aa0  2c 73 70 72 68 67 74 25  2c 69 6e 70 75 74 25 21  |,sprhgt%,input%!|
00007ab0  34 38 0d 2b 84 0e f2 74  72 61 6e 73 6c 61 74 65  |48.+...translate|
00007ac0  0d 2b 8e 2a 69 6e 70 75  74 25 21 35 32 3d 28 31  |.+.*input%!52=(1|
00007ad0  32 38 30 20 81 20 73 70  72 77 64 74 25 29 2a 28  |280 . sprwdt%)*(|
00007ae0  31 3c 3c 73 68 69 66 74  25 29 0d 2b 98 2a 69 6e  |1<<shift%).+.*in|
00007af0  70 75 74 25 21 35 36 3d  28 31 30 32 34 20 81 20  |put%!56=(1024 . |
00007b00  73 70 72 68 67 74 25 29  2a 28 31 3c 3c 73 68 69  |sprhgt%)*(1<<shi|
00007b10  66 74 25 29 0d 2b a2 1e  69 6e 70 75 74 25 21 36  |ft%).+..input%!6|
00007b20  30 3d 31 32 37 39 2a 28  31 3c 3c 73 68 69 66 74  |0=1279*(1<<shift|
00007b30  25 29 0d 2b ac 1e 69 6e  70 75 74 25 21 36 34 3d  |%).+..input%!64=|
00007b40  31 30 32 33 2a 28 31 3c  3c 73 68 69 66 74 25 29  |1023*(1<<shift%)|
00007b50  0d 2b b6 28 21 69 6e 70  75 74 25 3d 69 6e 70 75  |.+.(!input%=inpu|
00007b60  74 25 21 36 30 3a 69 6e  70 75 74 25 21 34 3d 69  |t%!60:input%!4=i|
00007b70  6e 70 75 74 25 21 36 34  0d 2b c0 15 c8 99 20 22  |nput%!64.+.... "|
00007b80  48 6f 75 72 67 6c 61 73  73 5f 4f 6e 22 0d 2b ca  |Hourglass_On".+.|
00007b90  32 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2.. "OS_SpriteOp|
00007ba0  22 2c 35 31 32 2b 36 30  2c 68 65 61 70 25 21 32  |",512+60,heap%!2|
00007bb0  34 2c 28 68 65 61 70 25  21 32 34 29 2b 31 36 0d  |4,(heap%!24)+16.|
00007bc0  2b d4 0d d6 20 70 72 65  76 69 65 77 0d 2b de 0c  |+... preview.+..|
00007bd0  63 6f 75 6e 74 25 3d 30  0d 2b e8 05 f5 0d 2b f2  |count%=0.+....+.|
00007be0  2a 78 70 6e 74 25 3d 21  69 6e 70 75 74 25 2f 28  |*xpnt%=!input%/(|
00007bf0  31 3c 3c 73 68 69 66 74  25 29 2a 77 64 74 73 63  |1<<shift%)*wdtsc|
00007c00  6c 25 2f 31 32 38 30 0d  2b fc 2b 79 70 6e 74 25  |l%/1280.+.+ypnt%|
00007c10  3d 69 6e 70 75 74 25 21  34 2f 28 31 3c 3c 73 68  |=input%!4/(1<<sh|
00007c20  69 66 74 25 29 2a 68 67  74 73 63 6c 25 2f 31 30  |ift%)*hgtscl%/10|
00007c30  32 34 0d 2c 06 2c 78 73  74 70 25 3d 69 6e 70 75  |24.,.,xstp%=inpu|
00007c40  74 25 21 35 32 2f 28 31  3c 3c 73 68 69 66 74 25  |t%!52/(1<<shift%|
00007c50  29 2a 77 64 74 73 63 6c  25 2f 31 32 38 30 0d 2c  |)*wdtscl%/1280.,|
00007c60  10 2c 79 73 74 70 25 3d  69 6e 70 75 74 25 21 35  |.,ystp%=input%!5|
00007c70  36 2f 28 31 3c 3c 73 68  69 66 74 25 29 2a 68 67  |6/(1<<shift%)*hg|
00007c80  74 73 63 6c 25 2f 31 30  32 34 0d 2c 1a 0d 63 6f  |tscl%/1024.,..co|
00007c90  75 6e 74 25 2b 3d 31 0d  2c 24 17 e7 20 63 6f 75  |unt%+=1.,$.. cou|
00007ca0  6e 74 25 20 83 20 31 32  38 30 3d 30 20 8c 0d 2c  |nt% . 1280=0 ..,|
00007cb0  2e 35 64 6f 6e 65 25 3d  31 30 30 2a 28 78 70 6e  |.5done%=100*(xpn|
00007cc0  74 25 2b 79 70 6e 74 25  2a 77 64 74 73 63 6c 25  |t%+ypnt%*wdtscl%|
00007cd0  29 2f 28 77 64 74 73 63  6c 25 2a 68 67 74 73 63  |)/(wdtscl%*hgtsc|
00007ce0  6c 25 29 0d 2c 38 23 c8  99 20 22 48 6f 75 72 67  |l%).,8#.. "Hourg|
00007cf0  6c 61 73 73 5f 50 65 72  63 65 6e 74 61 67 65 22  |lass_Percentage"|
00007d00  2c 64 6f 6e 65 25 0d 2c  42 05 cd 0d 2c 4c 0f e6  |,done%.,B...,L..|
00007d10  20 36 33 20 c8 9c 20 31  39 32 0d 2c 56 25 c8 93  | 63 .. 192.,V%..|
00007d20  20 c8 90 20 78 70 6e 74  25 2c 79 70 6e 74 25 2c  | .. xpnt%,ypnt%,|
00007d30  78 73 74 70 25 2d 31 2c  79 73 74 70 25 2d 31 0d  |xstp%-1,ystp%-1.|
00007d40  2c 60 0d d6 20 70 72 65  76 69 65 77 0d 2c 6a 18  |,`.. preview.,j.|
00007d50  c8 97 20 78 70 6e 74 25  2c 79 70 6e 74 25 2c 62  |.. xpnt%,ypnt%,b|
00007d60  75 74 6e 25 0d 2c 74 1a  fd 20 21 6f 75 74 70 75  |utn%.,t.. !outpu|
00007d70  74 25 3c 30 20 84 20 62  75 74 6e 25 3d 31 0d 2c  |t%<0 . butn%=1.,|
00007d80  7e 1d c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |~... "OS_SpriteO|
00007d90  70 22 2c 36 30 2c 30 2c  30 2c 31 0d 2c 88 16 c8  |p",60,0,0,1.,...|
00007da0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00007db0  22 0d 2c 92 30 c8 99 20  22 57 69 6d 70 5f 46 6f  |".,.0.. "Wimp_Fo|
00007dc0  72 63 65 52 65 64 72 61  77 22 2c 70 72 76 77 69  |rceRedraw",prvwi|
00007dd0  6e 25 2c 30 2c 2d 68 67  74 25 2c 77 64 74 25 2c  |n%,0,-hgt%,wdt%,|
00007de0  30 0d 2c 9c 05 e1 0d 2c  a6 05 3a 0d 2c b0 11 dd  |0.,....,..:.,...|
00007df0  20 f2 6d 61 70 28 73 70  72 74 25 29 0d 2c ba 3f  | .map(sprt%).,.?|
00007e00  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 64 65 56  |.. "OS_ReadModeV|
00007e10  61 72 69 61 62 6c 65 22  2c 21 28 35 36 2b 68 65  |ariable",!(56+he|
00007e20  61 70 25 21 28 38 2b 38  2a 73 70 72 74 25 29 29  |ap%!(8+8*sprt%))|
00007e30  2c 33 20 b8 20 2c 2c 62  69 74 25 0d 2c c4 0f e7  |,3 . ,,bit%.,...|
00007e40  20 62 69 74 25 3d 36 33  20 8c 0d 2c ce 12 e3 20  | bit%=63 ..,... |
00007e50  63 6f 6c 25 3d 30 20 b8  20 32 35 35 0d 2c d8 3e  |col%=0 . 255.,.>|
00007e60  6d 61 70 25 3f 28 31 30  32 34 2a 73 70 72 74 25  |map%?(1024*sprt%|
00007e70  2b 34 2a 63 6f 6c 25 2b  31 29 3d 28 63 6f 6c 25  |+4*col%+1)=(col%|
00007e80  20 80 20 33 29 3c 3c 36  20 84 20 28 63 6f 6c 25  | . 3)<<6 . (col%|
00007e90  20 80 20 31 39 32 29 3e  3e 32 0d 2c e2 3f 6d 61  | . 192)>>2.,.?ma|
00007ea0  70 25 3f 28 31 30 32 34  2a 73 70 72 74 25 2b 34  |p%?(1024*sprt%+4|
00007eb0  2a 63 6f 6c 25 2b 32 29  3d 28 63 6f 6c 25 20 80  |*col%+2)=(col% .|
00007ec0  20 31 32 29 3c 3c 34 20  84 20 28 63 6f 6c 25 20  | 12)<<4 . (col% |
00007ed0  80 20 31 39 32 29 3e 3e  32 0d 2c ec 3f 6d 61 70  |. 192)>>2.,.?map|
00007ee0  25 3f 28 31 30 32 34 2a  73 70 72 74 25 2b 34 2a  |%?(1024*sprt%+4*|
00007ef0  63 6f 6c 25 2b 33 29 3d  28 63 6f 6c 25 20 80 20  |col%+3)=(col% . |
00007f00  34 38 29 3c 3c 32 20 84  20 28 63 6f 6c 25 20 80  |48)<<2 . (col% .|
00007f10  20 31 39 32 29 3e 3e 32  0d 2c f6 0a ed 20 63 6f  | 192)>>2.,... co|
00007f20  6c 25 0d 2d 00 05 cc 0d  2d 0a 13 e3 20 63 6f 6c  |l%.-....-... col|
00007f30  25 3d 30 20 b8 20 62 69  74 25 0d 2d 14 18 e7 20  |%=0 . bit%.-... |
00007f40  21 28 34 38 2b 68 65 61  70 25 21 38 29 3e 34 34  |!(48+heap%!8)>44|
00007f50  20 8c 0d 2d 1e 3b 6d 61  70 25 21 28 31 30 32 34  | ..-.;map%!(1024|
00007f60  2a 73 70 72 74 25 2b 34  2a 63 6f 6c 25 29 3d 21  |*sprt%+4*col%)=!|
00007f70  28 36 30 2b 38 2a 63 6f  6c 25 2b 68 65 61 70 25  |(60+8*col%+heap%|
00007f80  21 28 38 2b 38 2a 73 70  72 74 25 29 29 0d 2d 28  |!(8+8*sprt%)).-(|
00007f90  05 cc 0d 2d 32 3c c8 99  20 22 4f 53 5f 52 65 61  |...-2<.. "OS_Rea|
00007fa0  64 50 61 6c 65 74 74 65  22 2c 63 6f 6c 25 2c 31  |dPalette",col%,1|
00007fb0  36 20 b8 20 2c 2c 6d 61  70 25 21 28 31 30 32 34  |6 . ,,map%!(1024|
00007fc0  2a 73 70 72 74 25 2b 34  2a 63 6f 6c 25 29 0d 2d  |*sprt%+4*col%).-|
00007fd0  3c 05 cd 0d 2d 46 0a ed  20 63 6f 6c 25 0d 2d 50  |<...-F.. col%.-P|
00007fe0  05 cd 0d 2d 5a 05 e1 0d  2d 64 05 3a 0d 2d 6e 0e  |...-Z...-d.:.-n.|
00007ff0  dd 20 f2 73 65 74 68 65  61 70 0d 2d 78 26 c8 99  |. .setheap.-x&..|
00008000  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
00008010  2c 2d 31 2c 2d 31 20 b8  20 65 78 74 65 6e 74 25  |,-1,-1 . extent%|
00008020  0d 2d 82 29 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |.-.).. "Wimp_Slo|
00008030  74 53 69 7a 65 22 2c 65  78 74 65 6e 74 25 2b 32  |tSize",extent%+2|
00008040  35 36 2b 32 38 38 2c 2d  31 0d 2d 8c 24 21 68 65  |56+288,-1.-.$!he|
00008050  61 70 25 3d 39 3a 68 65  61 70 25 21 34 3d 65 78  |ap%=9:heap%!4=ex|
00008060  74 65 6e 74 25 2b 32 35  36 2b 32 38 38 0d 2d 96  |tent%+256+288.-.|
00008070  21 68 65 61 70 25 21 38  3d 68 65 61 70 25 2b 32  |!heap%!8=heap%+2|
00008080  35 36 3a 68 65 61 70 25  21 31 32 3d 33 32 0d 2d  |56:heap%!12=32.-|
00008090  a0 25 68 65 61 70 25 21  31 36 3d 68 65 61 70 25  |.%heap%!16=heap%|
000080a0  2b 32 35 36 2b 33 32 3a  68 65 61 70 25 21 32 30  |+256+32:heap%!20|
000080b0  3d 33 32 0d 2d aa 25 68  65 61 70 25 21 32 34 3d  |=32.-.%heap%!24=|
000080c0  68 65 61 70 25 2b 32 35  36 2b 36 34 3a 68 65 61  |heap%+256+64:hea|
000080d0  70 25 21 32 38 3d 33 32  0d 2d b4 25 68 65 61 70  |p%!28=32.-.%heap|
000080e0  25 21 33 32 3d 68 65 61  70 25 2b 32 35 36 2b 39  |%!32=heap%+256+9|
000080f0  36 3a 68 65 61 70 25 21  33 36 3d 33 32 0d 2d be  |6:heap%!36=32.-.|
00008100  26 68 65 61 70 25 21 34  30 3d 68 65 61 70 25 2b  |&heap%!40=heap%+|
00008110  32 35 36 2b 31 32 38 3a  68 65 61 70 25 21 34 34  |256+128:heap%!44|
00008120  3d 33 32 0d 2d c8 26 68  65 61 70 25 21 34 38 3d  |=32.-.&heap%!48=|
00008130  68 65 61 70 25 2b 32 35  36 2b 31 36 30 3a 68 65  |heap%+256+160:he|
00008140  61 70 25 21 35 32 3d 33  32 0d 2d d2 26 68 65 61  |ap%!52=32.-.&hea|
00008150  70 25 21 35 36 3d 68 65  61 70 25 2b 32 35 36 2b  |p%!56=heap%+256+|
00008160  31 39 32 3a 68 65 61 70  25 21 36 30 3d 33 32 0d  |192:heap%!60=32.|
00008170  2d dc 26 68 65 61 70 25  21 36 34 3d 68 65 61 70  |-.&heap%!64=heap|
00008180  25 2b 32 35 36 2b 32 32  34 3a 68 65 61 70 25 21  |%+256+224:heap%!|
00008190  36 38 3d 33 32 0d 2d e6  26 68 65 61 70 25 21 37  |68=32.-.&heap%!7|
000081a0  32 3d 68 65 61 70 25 2b  32 35 36 2b 32 35 36 3a  |2=heap%+256+256:|
000081b0  68 65 61 70 25 21 37 36  3d 33 32 0d 2d f0 41 21  |heap%!76=32.-.A!|
000081c0  28 68 65 61 70 25 21 38  29 3d 33 32 3a 21 28 34  |(heap%!8)=32:!(4|
000081d0  2b 68 65 61 70 25 21 38  29 3d 30 3a 21 28 38 2b  |+heap%!8)=0:!(8+|
000081e0  68 65 61 70 25 21 38 29  3d 31 36 3a 21 28 31 32  |heap%!8)=16:!(12|
000081f0  2b 68 65 61 70 25 21 38  29 3d 31 36 0d 2d fa 45  |+heap%!8)=16.-.E|
00008200  21 28 68 65 61 70 25 21  31 36 29 3d 33 32 3a 21  |!(heap%!16)=32:!|
00008210  28 34 2b 68 65 61 70 25  21 31 36 29 3d 30 3a 21  |(4+heap%!16)=0:!|
00008220  28 38 2b 68 65 61 70 25  21 31 36 29 3d 31 36 3a  |(8+heap%!16)=16:|
00008230  21 28 31 32 2b 68 65 61  70 25 21 31 36 29 3d 31  |!(12+heap%!16)=1|
00008240  36 0d 2e 04 45 21 28 68  65 61 70 25 21 32 34 29  |6...E!(heap%!24)|
00008250  3d 33 32 3a 21 28 34 2b  68 65 61 70 25 21 32 34  |=32:!(4+heap%!24|
00008260  29 3d 30 3a 21 28 38 2b  68 65 61 70 25 21 32 34  |)=0:!(8+heap%!24|
00008270  29 3d 31 36 3a 21 28 31  32 2b 68 65 61 70 25 21  |)=16:!(12+heap%!|
00008280  32 34 29 3d 31 36 0d 2e  0e 14 69 6e 70 75 74 25  |24)=16....input%|
00008290  21 31 32 38 3d 68 65 61  70 25 0d 2e 18 05 e1 0d  |!128=heap%......|
000082a0  2e 22 05 3a 0d 2e 2c 14  dd 20 f2 74 69 64 79 28  |.".:..,.. .tidy(|
000082b0  f8 20 66 6c 61 67 25 29  0d 2e 36 0b 66 6c 61 67  |. flag%)..6.flag|
000082c0  25 3d b9 0d 2e 40 26 70  6e 74 73 7a 65 25 3d 28  |%=...@&pntsze%=(|
000082d0  26 34 33 2b 21 28 68 65  61 70 25 21 33 32 29 2a  |&43+!(heap%!32)*|
000082e0  38 29 80 20 ac 20 26 31  46 0d 2e 4a 30 f2 63 6c  |8). . &1F..J0.cl|
000082f0  61 69 6d 28 68 65 61 70  25 2b 33 32 2c 70 6e 74  |aim(heap%+32,pnt|
00008300  73 7a 65 25 2c 66 6c 61  67 25 29 3a e7 20 ac 20  |sze%,flag%):. . |
00008310  66 6c 61 67 25 20 8c 20  e1 0d 2e 54 30 f2 63 6c  |flag% . ...T0.cl|
00008320  61 69 6d 28 68 65 61 70  25 2b 34 30 2c 70 6e 74  |aim(heap%+40,pnt|
00008330  73 7a 65 25 2c 66 6c 61  67 25 29 3a e7 20 ac 20  |sze%,flag%):. . |
00008340  66 6c 61 67 25 20 8c 20  e1 0d 2e 5e 30 f2 63 6c  |flag% . ...^0.cl|
00008350  61 69 6d 28 68 65 61 70  25 2b 34 38 2c 70 6e 74  |aim(heap%+48,pnt|
00008360  73 7a 65 25 2c 66 6c 61  67 25 29 3a e7 20 ac 20  |sze%,flag%):. . |
00008370  66 6c 61 67 25 20 8c 20  e1 0d 2e 68 24 70 6f 6c  |flag% . ...h$pol|
00008380  73 7a 65 25 3d 28 21 28  68 65 61 70 25 21 35 36  |sze%=(!(heap%!56|
00008390  29 2b 26 34 33 29 80 20  ac 20 26 31 46 0d 2e 72  |)+&43). . &1F..r|
000083a0  30 f2 63 6c 61 69 6d 28  68 65 61 70 25 2b 35 36  |0.claim(heap%+56|
000083b0  2c 70 6f 6c 73 7a 65 25  2c 66 6c 61 67 25 29 3a  |,polsze%,flag%):|
000083c0  e7 20 ac 20 66 6c 61 67  25 20 8c 20 e1 0d 2e 7c  |. . flag% . ...||
000083d0  26 6f 66 66 73 7a 65 25  3d 28 26 34 33 2b 21 28  |&offsze%=(&43+!(|
000083e0  68 65 61 70 25 21 36 34  29 2a 38 29 80 20 ac 20  |heap%!64)*8). . |
000083f0  26 31 46 0d 2e 86 30 f2  63 6c 61 69 6d 28 68 65  |&1F...0.claim(he|
00008400  61 70 25 2b 36 34 2c 6f  66 66 73 7a 65 25 2c 66  |ap%+64,offsze%,f|
00008410  6c 61 67 25 29 3a e7 20  ac 20 66 6c 61 67 25 20  |lag%):. . flag% |
00008420  8c 20 e1 0d 2e 90 05 e1  0d 2e 9a 05 3a 0d 2e a4  |. ..........:...|
00008430  0f dd 20 f2 76 61 72 69  61 62 6c 65 0d 2e ae 35  |.. .variable...5|
00008440  69 6e 69 74 69 61 6c 25  3d 68 65 61 70 25 21 33  |initial%=heap%!3|
00008450  32 3a 66 69 6e 61 6c 25  3d 68 65 61 70 25 21 34  |2:final%=heap%!4|
00008460  30 3a 74 77 65 65 6e 25  3d 68 65 61 70 25 21 34  |0:tween%=heap%!4|
00008470  38 0d 2e b8 23 70 6f 6c  79 25 3d 68 65 61 70 25  |8...#poly%=heap%|
00008480  21 35 36 3a 6f 66 66 73  65 74 25 3d 68 65 61 70  |!56:offset%=heap|
00008490  25 21 36 34 0d 2e c2 3b  69 6e 70 75 74 25 21 38  |%!64...;input%!8|
000084a0  3d 68 65 61 70 25 21 34  38 3a 69 6e 70 75 74 25  |=heap%!48:input%|
000084b0  21 33 32 3d 68 65 61 70  25 21 33 32 3a 69 6e 70  |!32=heap%!32:inp|
000084c0  75 74 25 21 33 36 3d 68  65 61 70 25 21 34 30 0d  |ut%!36=heap%!40.|
000084d0  2e cc 29 69 6e 70 75 74  25 21 31 36 3d 68 65 61  |..)input%!16=hea|
000084e0  70 25 21 35 36 3a 69 6e  70 75 74 25 21 31 32 3d  |p%!56:input%!12=|
000084f0  68 65 61 70 25 21 36 34  0d 2e d6 38 69 6e 70 75  |heap%!64...8inpu|
00008500  74 25 21 32 34 3d 68 65  61 70 25 21 37 32 3a 69  |t%!24=heap%!72:i|
00008510  6e 70 75 74 25 21 32 38  3d 68 65 61 70 25 21 37  |nput%!28=heap%!7|
00008520  32 2b 28 68 65 61 70 25  21 37 36 29 20 81 20 38  |2+(heap%!76) . 8|
00008530  0d 2e e0 27 69 6e 70 75  74 25 21 32 30 3d 68 65  |...'input%!20=he|
00008540  61 70 25 21 37 32 2b 33  2a 28 68 65 61 70 25 21  |ap%!72+3*(heap%!|
00008550  37 36 29 20 81 20 38 0d  2e ea 05 e1 0d 2e f4 05  |76) . 8.........|
00008560  3a 0d 2e fe 22 dd 20 f2  63 6c 61 69 6d 28 62 6c  |:...". .claim(bl|
00008570  6f 63 6b 25 2c 73 69 7a  65 25 2c f8 20 66 6c 61  |ock%,size%,. fla|
00008580  67 25 29 0d 2f 08 0b 66  6c 61 67 25 3d a3 0d 2f  |g%)./..flag%=../|
00008590  12 19 64 65 6c 74 61 25  3d 73 69 7a 65 25 2d 62  |..delta%=size%-b|
000085a0  6c 6f 63 6b 25 21 34 0d  2f 1c 26 c8 99 20 22 57  |lock%!4./.&.. "W|
000085b0  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 2d 31  |imp_SlotSize",-1|
000085c0  2c 2d 31 20 b8 20 2c 2c  66 72 65 65 25 0d 2f 26  |,-1 . ,,free%./&|
000085d0  14 e7 20 64 65 6c 74 61  25 3c 66 72 65 65 25 20  |.. delta%<free% |
000085e0  8c 0d 2f 30 0b 66 6c 61  67 25 3d b9 0d 2f 3a 35  |../0.flag%=../:5|
000085f0  e7 20 64 65 6c 74 61 25  3e 30 20 8c 20 c8 99 20  |. delta%>0 . .. |
00008600  22 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |"Wimp_SlotSize",|
00008610  68 65 61 70 25 21 34 2b  64 65 6c 74 61 25 2c 2d  |heap%!4+delta%,-|
00008620  31 0d 2f 44 2e 69 6e 70  75 74 25 21 31 33 32 3d  |1./D.input%!132=|
00008630  21 62 6c 6f 63 6b 25 3a  69 6e 70 75 74 25 21 31  |!block%:input%!1|
00008640  33 36 3d 73 69 7a 65 25  3a d6 20 68 65 61 70 0d  |36=size%:. heap.|
00008650  2f 4e 2e e7 20 64 65 6c  74 61 25 3c 30 20 8c 20  |/N.. delta%<0 . |
00008660  c8 99 20 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |.. "Wimp_SlotSiz|
00008670  65 22 2c 68 65 61 70 25  21 34 2c 2d 31 0d 2f 58  |e",heap%!4,-1./X|
00008680  05 cd 0d 2f 62 05 e1 0d  2f 6c 05 3a 0d 2f 76 0b  |.../b.../l.:./v.|
00008690  dd 20 f2 66 75 6c 6c 0d  2f 80 0d 21 62 6c 6f 63  |. .full./..!bloc|
000086a0  6b 25 3d 30 0d 2f 8a 2c  24 28 62 6c 6f 63 6b 25  |k%=0./.,$(block%|
000086b0  2b 34 29 3d 22 4e 6f 20  52 6f 6f 6d 20 2d 20 6d  |+4)="No Room - m|
000086c0  65 6d 6f 72 79 20 66 75  6c 6c 22 2b bd 28 30 29  |emory full"+.(0)|
000086d0  0d 2f 94 2b c8 99 20 22  57 69 6d 70 5f 52 65 70  |./.+.. "Wimp_Rep|
000086e0  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
000086f0  2c 31 2c 22 21 4d 6f 72  70 68 22 0d 2f 9e 05 e1  |,1,"!Morph"./...|
00008700  0d ff                                             |..|
00008702