� > !RunImage

Q� ---------------------------------------------------------------------------

)�  Aurthor   - Computer Concepts Ltd.
Q�  Purpose   - Basic code to perform translation of photo cd files to sprites
�  Version   - 1.00
�  Started   - 21/12/93
	�  Completed -

4�  Changes   - Mike Kenny - Originated this file

Q� ---------------------------------------------------------------------------


 � � �ReportSystemError(�$):�
Debug%=�
� blk 1024
� scratch 1024
� PackName 256

� bmdb 40
� PhCD(6,2)
� icons% 256
� win_buff% 2048

	�vars

�Mem_Init
�W_Initialise(app_name$)
T%=�loadresources
� T%=� � �W_CloseDown:�
J�win_load_create(app_path$+".Resources.Templates","control",-1,ctrlh%)
�W_Poll
�W_CloseDown
 �
!
"
#� �vars
$app_name$="TransPhotoCD"
%"app_path$="<TransPhotoCD$Dir>"
&app_leaf$="TPhotoCD"
'root$="PHOTO_CD."
(
)FType_Sprite = &FF9
*FType_Draw   = &AFF
+
,mess_Size    = 0
-mess_Sender  = 4
.mess_MyRef   = 8
/mess_YourRef = 12
0mess_Type    = 16
1mess_Data    = 20
2mess_Length  = mess_Size
3mess_TaskID  = mess_Sender
4mess_Action  = mess_Type
5mess_SIZE    = 256
6
7DataSave% = 1
8DataSaveAck% = 2
9DataLoad% = 3
:DataLoadAck% = 4
;dloadref%=0
<dsaveref%=0
=
>ST_1bpp  = 1
?ST_2bpp  = 2
@ST_4bpp  = 3
AST_8bpp  = 4
BST_16bpp = 5
CST_32bpp = 6
DST_CMYK  = 7
EST_24bpp = 8
FST_Shift = 27
GST_Mask  = &F8000000
H
Ires_icon%=5
Jtype_icon%=11
Kok_icon%=4
Lcan_icon%=17
Micon_fr%=15
Nicon_fo%=16
Oicon_n%=19
P�
Q
R
S� �W_Initialise(n$)
T$blk = "TASK"
U:ș "Wimp_Initialise",200,!blk,app_name$ � ,TaskHandle%
V�
W
X
Y
� �W_Poll
Zpoll_mask% = %000110001
[
quit% = �
\�
]+ș "Wimp_Poll",poll_mask%,blk � reason%
^Ȏ reason% �
_  � 2:�W_OpenWindow
`  � 3:�W_CloseWindow
a  � 6:�W_MouseClick
b  � 17,18:�W_Message
c  � 19:�W_RecordedMessage
d�
e� quit%
f�
g
h� �W_OpenWindow
iș "Wimp_OpenWindow",,blk
j�
k
l��W_CloseWindow
mș "Wimp_CloseWindow",,blk
n�
o
p� �W_CloseDown
q$blk = "TASK"
r(ș "Wimp_CloseDown",TaskHandle%,!blk
s�
t
u� �W_MouseClick
vwind%=blk!12
wicon%=blk!16
x*� wind%=ctrlh% � �control_click(icon%)
y�
z
{� �W_Message
|=ref% =blk!8                            :� the senders ref
}Atask%=blk!4                            :� the senders task id
~;� task%=TaskHandle%:�           :� ignore if we sent it
 Ȏ blk!16 �
�  � 0: quit%=�
�  � 2: �DataSaveAck
�  � 4: �DataLoadAck
�%  � &80E1F:�ReceivedTransFFG(blk)
��
��
�
�� �W_RecordedMessage
�=ref% =blk!8                            :� the senders ref
�Atask%=blk!4                            :� the senders task id
� Ȏ blk!16 �
�-  � DataSave%: � ref%=dsaveref% � quit%=�
�-  � DataLoad%: � ref%=dloadref% � quit%=�
� �
��
�
�
�Q� ---------------------------------------------------------------------------
��
�!� String manipulation section
��
�Q� ---------------------------------------------------------------------------
�
�� �getstring(a%)
�� a$
�	a$=""
�ȕ ?a%>=32
�  a$=a$+�(?a%)
�  a%+=1
��
�=a$
�
�� �pokestr(s$,ptr,pad)
�� m%
�� m%=0 � pad-1
�
 ptr?m%=0
��
�$ptr=�s$,pad-1)
��
�
�
�Q� ---------------------------------------------------------------------------
��
�� Data loading section
��
�Q� ---------------------------------------------------------------------------
�
�� �ReceivedTransFFG(mess)
�0� �getstring(mess+48)<>app_name$ � quit%=�:�
�oftype%=mess!44
�Ȏ oftype% �
�� FType_Draw :oflags%=0
�� FType_Sprite :oflags%=1
� oflags%=256
��
�/� oflags%=256 � �ResError("CF00"):quit%=�:�
�dwin%=mess!20
�dicon%=mess!24
�dix%=mess!28
�diy%=mess!32
�sender%=mess!4
�myref%=mess!8
�orig%=mess!36
�fpath$=�getstring(mess+104)
�flen%=�FileLength(fpath$)
�+� flen%=0 � �ResError("CF08"):quit%=�:�
��SendTranslateFFGAck
�cl%=�control_config(fpath$)
�� cl% �
� �win_topcentred(ctrlh%)
�  �PROCwin_boundmouse(ctrlh%)
��
� quit%=�
��
��
�
�
�� �control_config(path$)
�� err%,pack%,packhdle%,m%
�pack%=�getpackname(path$)
�� pack%=0 � =0
�"packhdle%=�PhotoCD_Open(pack%)
�� packhdle%=0 � =0
�%err%=�PhotoCD_PackInfo(packhdle%)
�+� err%=0 � �PhotoCD_Close(packhdle%):=0
�� m%=0 � 5
� � (resm% � (1<<m%)) �
�)   err%=�PhotoCD_GetRes(packhdle%,m%)
�!   � err%=0 � xres%=0:yres%=0
�   PhCD(m%+1,1)=xres%
�   PhCD(m%+1,2)=yres%
� �
�   PhCD(m%+1,1)=0
�   PhCD(m%+1,2)=0
� �
��
�� m%=5 � 0 �-1
�#  � (resm% � (1<<m%)) � pic%=m%
��
�� (resm% � (1<<3)) � pic%=3
�� m%=0 � 5
�8 � PhCD(m%+1,1)=0 � �icon_shade(ctrlh%,m%+res_icon%)
��
�'�icon_select(ctrlh%,pic%+res_icon%)
�%�icon_write(ctrlh%,icon_n%,path$)
��PhotoCD_Close(packhdle%)
��showres
�=�
�
�
�� �control_click(i%)
�4� i%>(res_icon%-1) � i%<(res_icon%+6) � �showres
�6� i%>(type_icon%-1) � i%<(type_icon%+3) � �showres
�� i%=ok_icon% � �control_ok
�� i%=can_icon% � quit%=�
��
�
�
�� �control_ok
��win_releasemouse
�.cl%=�FilterPhotoCD(1,fpath$,flen%,oflags%)
�$� orig%<>0 � �DeleteFile(fpath$)
�� cl% �
�% �ReturnFile(sender%,cl%,oftype%)
��
� �Mem_KillSlot
� quit%=�
��

�






� �showres

�control_info

#fsize%=�ImageSize(bpp%,rx%,ry%)

.ș "OS_ConvertFileSize",fsize%,scratch,256

)s$="Output size="+�getstring(scratch)

F�icon_write(ctrlh%,icon_fr%,"Resolution="+�rx%+"x"+�ry%+" pixels")

	#�icon_write(ctrlh%,icon_fo%,s$)


�






� �control_info

.ress%=�win_getselradio(ctrlh%,1)-res_icon%

/type%=�win_getselradio(ctrlh%,2)-type_icon%

rx%=PhCD(ress%+1,1)

ry%=PhCD(ress%+1,2)

*� type%=0 � type%=1 � bpp%=8 � bpp%=32

�





� �SendTranslateFFGAck

scratch!12=myref%

scratch!16=&80E20

scratch!0=20

,ș "Wimp_SendMessage",17,scratch,sender%

�





� �DataSaveAck

%� blk!mess_YourRef<>dsaveref% � �

 spath$=�getstring(blk+44)

!$s%=�SaveTransFile(spath$,blk!40)

"
� s% �

#  sender%=blk!mess_Sender

$  blk!12=blk!8

%  blk!mess_Type=DataLoad%

&*  ș "Wimp_SendMessage",18,blk,sender%

'  dloadref%=blk!mess_MyRef

(�

)
  quit%=�

*�

+�

,

-

.� �DataLoadAck

/yref%=blk!mess_YourRef

0*� blk!mess_YourRef=dloadref% � quit%=�

1�

2

3

4$� �ReturnFile(sndr%,len%,ftype%)

5&� �doesvarexist("Wimp$Scrap")<>0 �

6  blk!mess_YourRef=0

7  blk!mess_Type=DataSave%

8  blk!20=dwin%

9  blk!24=dicon%

:  blk!28=dix%

;  blk!32=diy%

<  blk!36=len%

=  blk!40=ftype%

>  $(blk+44)=app_leaf$

?'  blk!0 =((45+�(app_leaf$))+3) � -4

@(  ș "Wimp_SendMessage",18,blk,sndr%

A  dsaveref%=blk!8

B�

C  �ResError("WSNF")

D
  quit%=�

E�

F�

G

H

I� �doesvarexist(v$)

J� e%

K0ș "XOS_ReadVarVal",v$,scratch,-1,0,3 � ,,e%

L=e%

M

N

OQ� ---------------------------------------------------------------------------

P�

Q� File handling section

R�

SQ� ---------------------------------------------------------------------------

T

U� �FileLength(path$)

V� type%,len%

W(ș "OS_File",5,path$ � type%,,,,len%

X� type%<>1 � len%=0

Y	=len%

Z

[� �DeleteFile(p$)

\� flags%

] ș "XOS_File",6,p$ � ;flags%

^�

_

`

a

bQ� ---------------------------------------------------------------------------

c�

d� Error section

e�

fQ� ---------------------------------------------------------------------------

g

h� �ReportWimpError(report$)

i!scratch = 0

j$(scratch+4)=report$

k?(scratch+4+�report$)=0

l.ș "Wimp_ReportError",scratch,%1,app_name$

m�

n

o!� �ReportSystemError(report$)

p!scratch = 0

q0report$=report$+" internal error ("+�(�)+")"

r$(scratch+4)=report$

s?(scratch+4+�report$)=0

t.ș "Wimp_ReportError",scratch,%1,app_name$

u�

v

w� �ResError(r$)

xr$=�FindResourceString(r$)

y�ReportWimpError(r$)

z�

{

|� �PeekError(err%)

}(�ReportWimpError(�getstring(err%+4))

~�



�� �loadresources

�� l%,res$,claim

�
res%=0

� ș "OS_Byte",70,127 � ,cnum%

�5ș "OS_ServiceCall",0,&43,2,0,scratch,32 � ,claim

�� claim=0 �

�  res$="UK"

��

�  res$=�getstring(scratch)

��

�%res$=app_path$+".Resources."+res$

�l%=�FileLength(res$)

�;� l%=0 � �ReportWimpError("resource file not found"):=�

�res%=�Claim(l%+4)

�J� res%=-1 � �ReportWimpError("Not enough memory to load resources"):=�

�
res%!0=l%

�!� "LOAD "+res$+" "+�~(res%+4)

�=�

�

�� �FindResourceString(r$)

�� l%,rend%

�-� res%=0 � ="Unknown resource error: "+r$

�
l%=res%!0

�
a%=res%+4

�rend%=res%+l%+4

�f%=�

�ȕ a%<rend% � � f%

�' s$=�(a%?0)+�(a%?1)+�(a%?2)+�(a%?3)

� � s$=r$ �

�"   s$=�getres(a%+5,rend%):f%=�

� �

�   ȕ ?a%>31 � a%<rend%

�     a%+=1

�   �

�   a%+=1

� �

��

�� f% � =s$

�"="Unknown resource error: "+r$

�

�� �getres(r%,e%)

�� a$

�	a$=""

�ȕ ?r%>=32 � r%<e%

�  a$=a$+�(?r%)

�  r%+=1

��

�=a$

�

�

�

�

�Q� ---------------------------------------------------------------------------

��

�� Memory bits

��

�O� Ensuremem will ensure that there is enough memory in the variable buffer.

�O� This buffer is held above HIMEM, using Wimp_SlotSize to resize the amount

�� of memory free.

��

�Q� ---------------------------------------------------------------------------

�

�

�� �Mem_Init

�MyHimem =�

�base    =�

�insert  =base

�8ș "Wimp_SlotSize",-1,-1 � origslot%,envnext,envfree

�.ș "OS_ReadMemMapInfo" � pagesize,numpages

��

�

�

�� �Claim(req)

�req=(req+3) � -4

�:� (insert+req)<MyHimem � insert=insert+req:=insert-req

�Kș "Wimp_SlotSize",-1,-1 � current,next,free           :� get slot info

�newhimem=insert+req

�newhimem+=pagesize-1

�)newhimem =newhimem � (� (pagesize-1))

�!� newhimem-MyHimem>free � =-1

� next=next-(newhimem-MyHimem)

�&current=current+(newhimem-MyHimem)

�7ș "Wimp_SlotSize",current,next � current,next,free

�MyHimem=current+&8000

�insert=insert+req

�=insert-req

�

�� �Mem_KillSlot

�0ș "Wimp_SlotSize",origslot%,envnext,envfree

�
�Mem_Init

��

�

�

�

�Q� ---------------------------------------------------------------------------

��

�)� Ok finally application related code

��

�Q� ---------------------------------------------------------------------------

�

�

�)� �FilterPhotoCD(cf%,path$,len%,flg%)

�� cf%<>1 � =0

�"PackName = �getpackname(path$)

�� PackName=0 � =0

�%packhdle%=�PhotoCD_Open(PackName)

�� packhdle%=0 � =0

�@ș "XPhotoCD_GetRotation",packhdle%,0 � err%,,trnsfm%;flags%

�@� flags% � 1 � �PeekError(err%):�PhotoCD_Close(packhdle%):=0

��control_info

�obpp%=bpp%

�
xres%=rx%

�
yres%=ry%

�

�Ȏ type% �

� � 0:otype%=0

� � 1:otype%=3

� � 2:otype%=2

��

�

�� otype%=2 �

�  palnum%=0

�  plane%=1

�  column%=4

�  sprt%=ST_32bpp

��

�  palnum%=256

�  plane%=1
  column%=1

  sprt%=ST_8bpp
�
palsize%=palnum%<<3

0� ** build the photo cd bitmap data block **

bmdb!0  = 0
bmdb!4  = 0
	bmdb!8  = xres%

bmdb!12 = yres%
bmdb!16 = %011
#bmdb!20 = otype%  :� col format

%bmdb!24 = plane%  :� plane offset
&bmdb!28 = column% :� column offset
bmdb!32 = palnum%
bmdb!36 = scratch


Ȏ flg% �
 � 0:imhdr%=64
 � 1:imhdr%=12
 � 2:imhdr%=0
�

4imagesize=�ImageSize(obpp%,xres%,yres%)+palsize%
"Image=�Claim(imagesize+imhdr%)
?� Image=-1 � �ResError("CF01"):�PhotoCD_Close(packhdle%):=0
@�createsprite(obpp%,xres%,yres%,sprt%,palsize%,Image+imhdr%)
.� otype%=0 � �pal_defgrey(Image+imhdr%+44)
/� otype%=3 � �pal_defcol(Image+imhdr%+44,3)
'� otype%=3 � �pal_defcol(scratch,2)
%stride%=(!(Image+imhdr%+16)+1)<<2
 
Ȏ flg% �
!   � 0:�InitDrawHeader(Image)
""  � 1:�InitSpriteHeader(Image)
#�
$ș "Hourglass_On"
%hș "XPhotoCD_GetBlock",packhdle%,0,bmdb,Image+imhdr%+44+palsize%,ress%,trnsfm%,stride% � err%;flags%
&ș "Hourglass_Off"
'@� flags% � 1 � �PeekError(err%):�PhotoCD_Close(packhdle%):=0
(!ș "XPhotoCD_Close",packhdle%
)=�
*
+� �PhotoCD_Open(PakName%)
,� hdle%,flags%
-2ș "XPhotoCD_Open",1,PakName%,0 � hdle%;flags%
.'� flags% � 1 � �PeekError(hdle%):=0
/
=hdle%
0
1� �PhotoCD_Close(hdle%)
2ș "XPhotoCD_Close",hdle%
3�
4
5� �PhotoCD_PackInfo(hdle%)
6� err%,flags%
7<ș "XPhotoCD_GetRotation",hdle%,0 � err%,,trnsfm%;flags%
8&� flags% � 1 � �PeekError(err%):=0
99ș "XPhotoCD_GetCount",hdle% � err%,resm%,resn%;flags
:&� flags% � 1 � �PeekError(err%):=0
;!� resm%=0 � �ResError("CF09")
<=�
=
>!� �PhotoCD_GetRes(hdle%,pic%)
?� err%,flags%
@Kș "XPhotoCD_GetSize",hdle%,0,pic%,trnsfm% � err%,,,,xres%,yres%;flags%
A&� flags% � 1 � �PeekError(err%):=0
B=�
C
D� �getpackname(path$)
E$PackName=path$
F
=PackName
Gpnum%=�getpacknum(path$)
H$� pnum%=0 � �ResError("CF04"):=0
I$� pnum%<0 � �ResError("CF06"):=0
J,� �path$,root$)=0 � �ResError("CF05"):=0
K%pathspec$=�path$,�path$,root$)-1)
L)� pathspec$="" � �ResError("CF05"):=0
MNș "XPhotoCD_GetPacName",pnum%,PackName,256,pathspec$ � err%,,size%;flags%
N&� flags% � 1 � �PeekError(err%):=0
OPackName?size%=0
P
=PackName
Q
R� �getpacknum(p$)
Sp$=�p$,�p$,".IMG"))
T
p$=�p$,5)
U� p$="" � =-1
V=�getstrval(p$)
W
X� �getstrval(p$)
Y� i%,x%,y%
Z
i%=1:y%=0
[�
\ x%=�(�p$,i%,1))-�"0"
]" � x%>-1 � x%<10 � y%=y%*10+x%
^
 i%+=1
_� i%=�(p$)+1 � x%<0 � x%>9
`=y%
a
b
c4� �createsprite(bpp%,x%,y%,type%,palsize%,buff%)
d� bits%,wrds%,size%
ebits%=bpp%*x%
fwrds%=((bits%+31) � -32)>>5
g#size%=44+palsize%+(wrds%<<2)*y%
hbits%=bits% � 31
ibits%=bits%-1
jbits%=bits% � 31
kbuff%!0=size%
l#�stuffit("imagepic",12,buff%+4)
mbuff%!16=wrds%-1
nbuff%!20=y%-1
obuff%!24=0
pbuff%!28=bits%
qbuff%!32=palsize%+44
rbuff%!36=palsize%+44
s� type%>ST_8bpp �
t8 buff%!40=(type%<<ST_Shift) � (90<<14) � (90<<1) � 1
u�
v buff%!40=(type%+18-1)
w�
x�
y
z� �stuffit(n$,len,buff)
{� i%,x%
|x%=� n$
}� x%>len � x%=len
~� i%=0 � x%-1
 buff?i% = � �n$,i%+1,1)
��
�� x%=len � �
�� i%=x% � len-1
� buff?i%=0
��
��
�
�� �pal_defgrey(pal%)
�� M%=0 � 255
�&  c%=(M%<<8) � (M%<<16) � (M%<<24)
�  pal%!((M%<<3)+0)=c%
�  pal%!((M%<<3)+4)=c%
��
��
�
�� �pal_defcol(pal%,s%)
�� xx%,r0%,g0%,b0%
�� M%=0 � 255
�  r0%=M% � %00000111
�  xx%=M% � %00010000
�  r0%=r0% � (xx%>>1)
�  g0%=M% � %00000011
�  xx%=M% � %01100000
�  g0%=g0% � (xx%>>3)
�  b0%=M% � %00000011
�  xx%=M% � %00001011
�  b0%=b0% � (xx%>>1)
�  xx%=M% � %10000000
�  b0%=b0% � (xx%>>4)
�&  r0%=(r0%<<8)+(g0%<<16)+(b0%<<24)
�&  pal%!((M%<<s%)+0)=r0% � (r0%<<4)
�/  � s%=3 � pal%!((M%<<s%)+4)=r0% � (r0%<<4)
��
��
�
�� �SaveTransFile(p$,t%)
�%� return false if failed to save!
�� flags%
�Gș "XOS_File",10,p$,t%,0,Image,Image+imagesize+imhdr% � err%;flags%
�(� (flags% � 1)=1 � �ResError("CF03")
�6�Mem_KillSlot   :� dont kill slot before ResError!
�� (flags% � 1)=1 � =�
�=�
�
�� �InitDrawHeader(ptr)
�$ptr="Draw"
�
ptr!4=201
�ptr!8=0
� �pokestr("Imager",ptr+12,12)
�ptr!24=0
�ptr!28=0
�ptr!32=xres%<<(1+8)
�ptr!36=yres%<<(1+8)
�ptr!40=5
�ptr!44=imagesize+24
�ptr!48=0
�ptr!52=0
�ptr!56=xres%<<(1+8)
�ptr!60=yres%<<(1+8)
��
�
�� �InitSpriteHeader(ptr)
�ptr!0=1
�ptr!4=16
�ptr!8=imagesize+16
��
�
�� �ImageSize(bpp%,x%,y%)
�� size%,bits%
�+� bpp%<16 � size%=(1<<bpp%)*8 � size%=0
�bits%=((x%*bpp%)+31) � -32
�bits%=bits%>>3
�size%=44+size%+y%*bits%
�
=size%
�
�
�
�Q� ---------------------------------------------------------------------------
��
��  Window library
��
�Q� ---------------------------------------------------------------------------
�
�4� �win_load_create(f$,n$,sprite_pool%,� handle%)
�#�win_load(f$,n$,win_buff%,2048)
�win_buff%!64=sprite_pool%
�"�win_create(win_buff%,handle%)
��
�
�"� �win_load(f$,n$,buf%,limit%)
�(�   f$   - filename of template file
�'�   n$   - name of template to load
�P� buf%   - buffer which needs to be big enough to hold the window definition
�O�          AND the indirected data, due to the way Wimp_LoadTemplate works.
�� limit% - size of buf%
��
�A� PROCwin_load will automatically dimension enough memory for
�� the indirected data.
�
�
� ws_buf%
�� size%
�� data%
�� found%
�� s%,f%
�!�win_sizes(f$,n$,size%,data%)
�p� limit%<(size%+data%) � 0,"Buffer not big enough for '"+n$+"' - "+�(size%)+" + "+�(data%)+" bytes required"
�&� f$<>"" ș"Wimp_OpenTemplate",,f$
�� data%<>0 �
� � ws_buf% data%
�T ș "XWimp_LoadTemplate",,buf%,ws_buf%,ws_buf%+data%,-1,n$,0 � s%,,,,,,found%;f%
��
�B ș "XWimp_LoadTemplate",,buf%,0,0,-1,n$,0 � s%,,,,,,found%;f%
��
�#� f$<>"" ș"Wimp_CloseTemplate"
�)� (f%�1) � 0,n$+": "+�getstring(s%+4)
�0� found%=0 � 0,"Template '"+n$+"' not found"
��
�
�!� �win_create(buf%,� handle%)
�4�    buf% - buffer holding the window definition
�,� handle% - handle of the created window
�*ș "Wimp_CreateWindow",,buf% � handle%
��
�
�� �win_show(handle%)
�!scratch=handle%
�%ș "Wimp_GetWindowState",,scratch
�!ș "Wimp_OpenWindow",,scratch
�


� �win_topcentred(win%)
blk!0=win%
!ș "Wimp_GetWindowState",,blk
�win_centre(blk)

blk!28=-1
ș "Wimp_OpenWindow",,blk
�
	

� �win_centre(blk)
�win_deskdimensions
desky%-=132

wx0%=blk!4
wy0%=blk!8
wx1%=blk!12
wy1%=blk!16
flgs%=blk!32
� flgs% � &80000000 �
# � flgs% � (1<<26) � desky%-=40
# � flgs% � (1<<28) � deskx%-=40
# � flgs% � (1<<30) � desky%-=40
�
" � flgs% � (1<<0) � desky%-=40
" � flgs% � (1<<2) � deskx%-=40
" � flgs% � (1<<3) � desky%-=40
�
wid%=wx1%-wx0%
blk!4 =(deskx%-wid%)/2
blk!12=(deskx%+wid%)/2
hgt%=wy1%-wy0%
 blk!8 =((desky%-hgt%)/2)+132
  blk!16=((desky%+hgt%)/2)+132
!�
"
#
$'� �win_sizes(f$,n$,� size%,� data%)
%� i%
&� file%
'
� ptr%
(
� offset%
)� type%
*� ident$
+� num_icons%
,file%=�(f$)
-size%=0
.data%=0
/ptr%=16
0�
1 �#file%=ptr%
2 offset%=�win_word(file%)
3 � offset%<>0 �
4  �#file%=ptr%+8
5  type%=�win_word(file%)
6  ident$=�win_string(file%)
7  ptr%+=24
8  �type%=1 �
9   �ident$=n$ �
:    �#file%=offset%+84
;#    num_icons%=�win_word(file%)
<'    data%=�win_title(file%,offset%)
=B    � num_icons%<>0 data%+=�win_icon(file%,num_icons%,offset%)
>     size%=88+(num_icons%*32)
?/    offset%=0:� just to get out of the loop
@   �
A  �
B �
C� offset%=0
D�#file%
E�
F
G� �win_word(h%)
H/=�#h%+(�#h% << 8)+(�#h% << 16)+(�#h% << 24)
I
J� �win_string(h%)
K� s$,c%
L�
M c%=�#h%
N � c%>31 � s$+=�(c%)
O� c%<32
P=s$
Q
R� �win_title(file%,offset%)
S� v%
T�#file%=offset%+28
Uv%=�win_word(file%)
V� (v% � 1<<31) �
W � (v% � 1<<26) �
X4  =�win_isd(file%,offset%+56,offset%+72,offset%)
Y �
Z�
[ � (v% � 1) �
\4  =�win_isd(file%,offset%+56,offset%+72,offset%)
] �
^�
_=0
`
a#� �win_icon(file%,num%,offset%)
b� i%,j%
cj%=0
d�i%=0 � num%-1
eH j%+=�win_isd(file%,offset%+88+i%*32+16,offset%+88+i%*32+20,offset%)
f�
g=j%
h
i%� �win_isd(file%,o1%,o2%,offset%)
j� v%,ist%,size%,i%
k�#file%=o1%
lv%=�win_word(file%)
m*� even if an icon is marked as deleted
n� it must be allowed for!
oi%=(v% � %100000000)
pist%=(v% � 3) + (i% >> 6)
q
Ȏ ist% �
r�   0: size%=0
s�   1: size%=0
t�   2: size%=0
u�   3: size%=0
v�   4: size%=0
w� 5,7: �#file%=o2%+4
x!          v%=�win_word(file%)
y          �v%=-1 �
z           size%=0
{          �
|!           �#file%=offset%+v%
},           size%=�(�win_string(file%))+1
~          �
          �#file%=o2%+8
�%          size%+=�win_word(file%)
��   6: �#file%=o2%+8
�$          size%=�win_word(file%)
��
�
=size%
�
�!� �win_getselradio(win%,esg%)
�esg%=(esg% � %11111)<<16
�=ș "Wimp_WhichIcon",win%,scratch,&3F<<16,(&20<<16) � esg%
�=scratch!0
�
�� �win_boundmouse(win%)
�
!blk=win%
�#ș "Wimp_GetWindowOutline",,blk
�7�win_setmouserec(blk!4,blk!8,(blk!12)-4,(blk!16)-4)
��
�
�� �win_releasemouse
��win_deskdimensions
�'�win_setmouserec(0,0,deskx%,desky%)
��
�
�'� �win_setmouserec(x0%,y0%,x1%,y1%)
�%ȗ ȓ x0%,y0%,(x1%-x0%),(y1%-y0%)
��
�
�� �win_deskdimensions
�+ș "OS_ReadModeVariable",-1,4 � ,,xeig%
�+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
�-ș "OS_ReadModeVariable",-1,11 � ,,deskx%
�-ș "OS_ReadModeVariable",-1,12 � ,,desky%
�deskx%=(deskx%+1)<<xeig%
�desky%=(desky%+1)<<yeig%
��
�
�Q� ---------------------------------------------------------------------------
��
��  Icon library
��
�Q� ---------------------------------------------------------------------------
�
�� �icon_hide(a%,b%)
�!icons%=a%
�icons%!4=b%
�icons%!8=(1<<7)+(1<<23)
�icons%!12=(1<<7)+(1<<23)
�!ș"Wimp_SetIconState",,icons%
��
�
�� �icon_write(a%,b%,s$)
�!icons%=a%
�icons%!4=b%
�!ș"Wimp_GetIconState",,icons%
�1� (�(s$)+1)>icons%!36 � s$=�s$,(icons%!36)-1)
�$(icons%!28)=s$
�icons%!8=0:icons%!12=0
�"ș "Wimp_SetIconState",,icons%
��
�
�� �icon_shade(a%,b%)
�!icons%=a%
�icons%!4=b%
�icons%!8=1<<22
�icons%!12=1<<22
�!ș"Wimp_SetIconState",,icons%
��
�
�� �icon_set(a%,b%)
�!icons%=a%
�icons%!4=b%
�!ș"Wimp_GetIconState",,icons%
�=((icons%!24 � (1<<21))<>0)
�
�� �icon_unhide(a%,b%)
�!icons%=a%
�icons%!4=b%
�icons%!8=0
�icons%!12=1<<23
�!ș"Wimp_SetIconState",,icons%
��
�
�� �icon_unshade(a%,b%)
�!icons%=a%
�icons%!4=b%
�icons%!8=0
�icons%!12=1<<22
�!ș"Wimp_SetIconState",,icons%
��
�
�� �icon_select(a%,b%)
�!icons%=a%
�icons%!4=b%
�icons%!8=1<<21
�icons%!12=1<<21
�!ș"Wimp_SetIconState",,icons%
��
�
�

00000000  0d 00 01 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 02 04 0d 00 03  51 f4 20 2d 2d 2d 2d 2d  |e.......Q. -----|
00000020  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000060  2d 2d 2d 2d 2d 2d 0d 00  04 04 0d 00 05 29 f4 20  |------.......). |
00000070  20 41 75 72 74 68 6f 72  20 20 20 2d 20 43 6f 6d  | Aurthor   - Com|
00000080  70 75 74 65 72 20 43 6f  6e 63 65 70 74 73 20 4c  |puter Concepts L|
00000090  74 64 2e 0d 00 06 51 f4  20 20 50 75 72 70 6f 73  |td....Q.  Purpos|
000000a0  65 20 20 20 2d 20 42 61  73 69 63 20 63 6f 64 65  |e   - Basic code|
000000b0  20 74 6f 20 70 65 72 66  6f 72 6d 20 74 72 61 6e  | to perform tran|
000000c0  73 6c 61 74 69 6f 6e 20  6f 66 20 70 68 6f 74 6f  |slation of photo|
000000d0  20 63 64 20 66 69 6c 65  73 20 74 6f 20 73 70 72  | cd files to spr|
000000e0  69 74 65 73 0d 00 07 17  f4 20 20 56 65 72 73 69  |ites.....  Versi|
000000f0  6f 6e 20 20 20 2d 20 31  2e 30 30 0d 00 08 1b f4  |on   - 1.00.....|
00000100  20 20 53 74 61 72 74 65  64 20 20 20 2d 20 32 31  |  Started   - 21|
00000110  2f 31 32 2f 39 33 0d 00  09 12 f4 20 20 43 6f 6d  |/12/93.....  Com|
00000120  70 6c 65 74 65 64 20 2d  0d 00 0a 34 f4 20 20 43  |pleted -...4.  C|
00000130  68 61 6e 67 65 73 20 20  20 2d 20 4d 69 6b 65 20  |hanges   - Mike |
00000140  4b 65 6e 6e 79 20 2d 20  4f 72 69 67 69 6e 61 74  |Kenny - Originat|
00000150  65 64 20 74 68 69 73 20  66 69 6c 65 0d 00 0b 04  |ed this file....|
00000160  0d 00 0c 51 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...Q. ----------|
00000170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001b0  2d 0d 00 0d 04 0d 00 0e  20 ee 20 85 20 f2 52 65  |-....... . . .Re|
000001c0  70 6f 72 74 53 79 73 74  65 6d 45 72 72 6f 72 28  |portSystemError(|
000001d0  f6 24 29 3a e0 0d 00 0f  0c 44 65 62 75 67 25 3d  |.$):.....Debug%=|
000001e0  a3 0d 00 10 0e de 20 62  6c 6b 20 31 30 32 34 0d  |...... blk 1024.|
000001f0  00 11 12 de 20 73 63 72  61 74 63 68 20 31 30 32  |.... scratch 102|
00000200  34 0d 00 12 12 de 20 50  61 63 6b 4e 61 6d 65 20  |4..... PackName |
00000210  32 35 36 0d 00 13 0d de  20 62 6d 64 62 20 34 30  |256..... bmdb 40|
00000220  0d 00 14 0f de 20 50 68  43 44 28 36 2c 32 29 0d  |..... PhCD(6,2).|
00000230  00 15 10 de 20 69 63 6f  6e 73 25 20 32 35 36 0d  |.... icons% 256.|
00000240  00 16 14 de 20 77 69 6e  5f 62 75 66 66 25 20 32  |.... win_buff% 2|
00000250  30 34 38 0d 00 17 04 0d  00 18 09 f2 76 61 72 73  |048.........vars|
00000260  0d 00 19 0d f2 4d 65 6d  5f 49 6e 69 74 0d 00 1a  |.....Mem_Init...|
00000270  1c f2 57 5f 49 6e 69 74  69 61 6c 69 73 65 28 61  |..W_Initialise(a|
00000280  70 70 5f 6e 61 6d 65 24  29 0d 00 1b 15 54 25 3d  |pp_name$)....T%=|
00000290  a4 6c 6f 61 64 72 65 73  6f 75 72 63 65 73 0d 00  |.loadresources..|
000002a0  1c 1b e7 20 54 25 3d a3  20 8c 20 f2 57 5f 43 6c  |... T%=. . .W_Cl|
000002b0  6f 73 65 44 6f 77 6e 3a  e0 0d 00 1d 4a f2 77 69  |oseDown:....J.wi|
000002c0  6e 5f 6c 6f 61 64 5f 63  72 65 61 74 65 28 61 70  |n_load_create(ap|
000002d0  70 5f 70 61 74 68 24 2b  22 2e 52 65 73 6f 75 72  |p_path$+".Resour|
000002e0  63 65 73 2e 54 65 6d 70  6c 61 74 65 73 22 2c 22  |ces.Templates","|
000002f0  63 6f 6e 74 72 6f 6c 22  2c 2d 31 2c 63 74 72 6c  |control",-1,ctrl|
00000300  68 25 29 0d 00 1e 0b f2  57 5f 50 6f 6c 6c 0d 00  |h%).....W_Poll..|
00000310  1f 10 f2 57 5f 43 6c 6f  73 65 44 6f 77 6e 0d 00  |...W_CloseDown..|
00000320  20 05 e0 0d 00 21 04 0d  00 22 04 0d 00 23 0b dd  | ....!..."...#..|
00000330  20 f2 76 61 72 73 0d 00  24 1c 61 70 70 5f 6e 61  | .vars..$.app_na|
00000340  6d 65 24 3d 22 54 72 61  6e 73 50 68 6f 74 6f 43  |me$="TransPhotoC|
00000350  44 22 0d 00 25 22 61 70  70 5f 70 61 74 68 24 3d  |D"..%"app_path$=|
00000360  22 3c 54 72 61 6e 73 50  68 6f 74 6f 43 44 24 44  |"<TransPhotoCD$D|
00000370  69 72 3e 22 0d 00 26 18  61 70 70 5f 6c 65 61 66  |ir>"..&.app_leaf|
00000380  24 3d 22 54 50 68 6f 74  6f 43 44 22 0d 00 27 15  |$="TPhotoCD"..'.|
00000390  72 6f 6f 74 24 3d 22 50  48 4f 54 4f 5f 43 44 2e  |root$="PHOTO_CD.|
000003a0  22 0d 00 28 04 0d 00 29  17 46 54 79 70 65 5f 53  |"..(...).FType_S|
000003b0  70 72 69 74 65 20 3d 20  26 46 46 39 0d 00 2a 17  |prite = &FF9..*.|
000003c0  46 54 79 70 65 5f 44 72  61 77 20 20 20 3d 20 26  |FType_Draw   = &|
000003d0  41 46 46 0d 00 2b 04 0d  00 2c 14 6d 65 73 73 5f  |AFF..+...,.mess_|
000003e0  53 69 7a 65 20 20 20 20  3d 20 30 0d 00 2d 14 6d  |Size    = 0..-.m|
000003f0  65 73 73 5f 53 65 6e 64  65 72 20 20 3d 20 34 0d  |ess_Sender  = 4.|
00000400  00 2e 14 6d 65 73 73 5f  4d 79 52 65 66 20 20 20  |...mess_MyRef   |
00000410  3d 20 38 0d 00 2f 15 6d  65 73 73 5f 59 6f 75 72  |= 8../.mess_Your|
00000420  52 65 66 20 3d 20 31 32  0d 00 30 15 6d 65 73 73  |Ref = 12..0.mess|
00000430  5f 54 79 70 65 20 20 20  20 3d 20 31 36 0d 00 31  |_Type    = 16..1|
00000440  15 6d 65 73 73 5f 44 61  74 61 20 20 20 20 3d 20  |.mess_Data    = |
00000450  32 30 0d 00 32 1c 6d 65  73 73 5f 4c 65 6e 67 74  |20..2.mess_Lengt|
00000460  68 20 20 3d 20 6d 65 73  73 5f 53 69 7a 65 0d 00  |h  = mess_Size..|
00000470  33 1e 6d 65 73 73 5f 54  61 73 6b 49 44 20 20 3d  |3.mess_TaskID  =|
00000480  20 6d 65 73 73 5f 53 65  6e 64 65 72 0d 00 34 1c  | mess_Sender..4.|
00000490  6d 65 73 73 5f 41 63 74  69 6f 6e 20 20 3d 20 6d  |mess_Action  = m|
000004a0  65 73 73 5f 54 79 70 65  0d 00 35 16 6d 65 73 73  |ess_Type..5.mess|
000004b0  5f 53 49 5a 45 20 20 20  20 3d 20 32 35 36 0d 00  |_SIZE    = 256..|
000004c0  36 04 0d 00 37 11 44 61  74 61 53 61 76 65 25 20  |6...7.DataSave% |
000004d0  3d 20 31 0d 00 38 14 44  61 74 61 53 61 76 65 41  |= 1..8.DataSaveA|
000004e0  63 6b 25 20 3d 20 32 0d  00 39 11 44 61 74 61 4c  |ck% = 2..9.DataL|
000004f0  6f 61 64 25 20 3d 20 33  0d 00 3a 14 44 61 74 61  |oad% = 3..:.Data|
00000500  4c 6f 61 64 41 63 6b 25  20 3d 20 34 0d 00 3b 0f  |LoadAck% = 4..;.|
00000510  64 6c 6f 61 64 72 65 66  25 3d 30 0d 00 3c 0f 64  |dloadref%=0..<.d|
00000520  73 61 76 65 72 65 66 25  3d 30 0d 00 3d 04 0d 00  |saveref%=0..=...|
00000530  3e 10 53 54 5f 31 62 70  70 20 20 3d 20 31 0d 00  |>.ST_1bpp  = 1..|
00000540  3f 10 53 54 5f 32 62 70  70 20 20 3d 20 32 0d 00  |?.ST_2bpp  = 2..|
00000550  40 10 53 54 5f 34 62 70  70 20 20 3d 20 33 0d 00  |@.ST_4bpp  = 3..|
00000560  41 10 53 54 5f 38 62 70  70 20 20 3d 20 34 0d 00  |A.ST_8bpp  = 4..|
00000570  42 10 53 54 5f 31 36 62  70 70 20 3d 20 35 0d 00  |B.ST_16bpp = 5..|
00000580  43 10 53 54 5f 33 32 62  70 70 20 3d 20 36 0d 00  |C.ST_32bpp = 6..|
00000590  44 10 53 54 5f 43 4d 59  4b 20 20 3d 20 37 0d 00  |D.ST_CMYK  = 7..|
000005a0  45 10 53 54 5f 32 34 62  70 70 20 3d 20 38 0d 00  |E.ST_24bpp = 8..|
000005b0  46 11 53 54 5f 53 68 69  66 74 20 3d 20 32 37 0d  |F.ST_Shift = 27.|
000005c0  00 47 18 53 54 5f 4d 61  73 6b 20 20 3d 20 26 46  |.G.ST_Mask  = &F|
000005d0  38 30 30 30 30 30 30 0d  00 48 04 0d 00 49 0f 72  |8000000..H...I.r|
000005e0  65 73 5f 69 63 6f 6e 25  3d 35 0d 00 4a 11 74 79  |es_icon%=5..J.ty|
000005f0  70 65 5f 69 63 6f 6e 25  3d 31 31 0d 00 4b 0e 6f  |pe_icon%=11..K.o|
00000600  6b 5f 69 63 6f 6e 25 3d  34 0d 00 4c 10 63 61 6e  |k_icon%=4..L.can|
00000610  5f 69 63 6f 6e 25 3d 31  37 0d 00 4d 0f 69 63 6f  |_icon%=17..M.ico|
00000620  6e 5f 66 72 25 3d 31 35  0d 00 4e 0f 69 63 6f 6e  |n_fr%=15..N.icon|
00000630  5f 66 6f 25 3d 31 36 0d  00 4f 0e 69 63 6f 6e 5f  |_fo%=16..O.icon_|
00000640  6e 25 3d 31 39 0d 00 50  05 e1 0d 00 51 04 0d 00  |n%=19..P....Q...|
00000650  52 04 0d 00 53 17 dd 20  f2 57 5f 49 6e 69 74 69  |R...S.. .W_Initi|
00000660  61 6c 69 73 65 28 6e 24  29 0d 00 54 11 24 62 6c  |alise(n$)..T.$bl|
00000670  6b 20 3d 20 22 54 41 53  4b 22 0d 00 55 3a c8 99  |k = "TASK"..U:..|
00000680  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000690  65 22 2c 32 30 30 2c 21  62 6c 6b 2c 61 70 70 5f  |e",200,!blk,app_|
000006a0  6e 61 6d 65 24 20 b8 20  2c 54 61 73 6b 48 61 6e  |name$ . ,TaskHan|
000006b0  64 6c 65 25 0d 00 56 05  e1 0d 00 57 04 0d 00 58  |dle%..V....W...X|
000006c0  04 0d 00 59 0d dd 20 f2  57 5f 50 6f 6c 6c 0d 00  |...Y.. .W_Poll..|
000006d0  5a 1b 70 6f 6c 6c 5f 6d  61 73 6b 25 20 3d 20 25  |Z.poll_mask% = %|
000006e0  30 30 30 31 31 30 30 30  31 0d 00 5b 0d 71 75 69  |000110001..[.qui|
000006f0  74 25 20 3d 20 a3 0d 00  5c 05 f5 0d 00 5d 2b c8  |t% = ...\....]+.|
00000700  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 70 6f  |. "Wimp_Poll",po|
00000710  6c 6c 5f 6d 61 73 6b 25  2c 62 6c 6b 20 b8 20 72  |ll_mask%,blk . r|
00000720  65 61 73 6f 6e 25 0d 00  5e 10 c8 8e 20 72 65 61  |eason%..^... rea|
00000730  73 6f 6e 25 20 ca 0d 00  5f 17 20 20 c9 20 32 3a  |son% ..._.  . 2:|
00000740  f2 57 5f 4f 70 65 6e 57  69 6e 64 6f 77 0d 00 60  |.W_OpenWindow..`|
00000750  18 20 20 c9 20 33 3a f2  57 5f 43 6c 6f 73 65 57  |.  . 3:.W_CloseW|
00000760  69 6e 64 6f 77 0d 00 61  17 20 20 c9 20 36 3a f2  |indow..a.  . 6:.|
00000770  57 5f 4d 6f 75 73 65 43  6c 69 63 6b 0d 00 62 18  |W_MouseClick..b.|
00000780  20 20 c9 20 31 37 2c 31  38 3a f2 57 5f 4d 65 73  |  . 17,18:.W_Mes|
00000790  73 61 67 65 0d 00 63 1d  20 20 c9 20 31 39 3a f2  |sage..c.  . 19:.|
000007a0  57 5f 52 65 63 6f 72 64  65 64 4d 65 73 73 61 67  |W_RecordedMessag|
000007b0  65 0d 00 64 05 cb 0d 00  65 0b fd 20 71 75 69 74  |e..d....e.. quit|
000007c0  25 0d 00 66 05 e1 0d 00  67 04 0d 00 68 13 dd 20  |%..f....g...h.. |
000007d0  f2 57 5f 4f 70 65 6e 57  69 6e 64 6f 77 0d 00 69  |.W_OpenWindow..i|
000007e0  1d c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |... "Wimp_OpenWi|
000007f0  6e 64 6f 77 22 2c 2c 62  6c 6b 0d 00 6a 05 e1 0d  |ndow",,blk..j...|
00000800  00 6b 04 0d 00 6c 13 dd  f2 57 5f 43 6c 6f 73 65  |.k...l...W_Close|
00000810  57 69 6e 64 6f 77 0d 00  6d 1e c8 99 20 22 57 69  |Window..m... "Wi|
00000820  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000830  2c 62 6c 6b 0d 00 6e 05  e1 0d 00 6f 04 0d 00 70  |,blk..n....o...p|
00000840  12 dd 20 f2 57 5f 43 6c  6f 73 65 44 6f 77 6e 0d  |.. .W_CloseDown.|
00000850  00 71 11 24 62 6c 6b 20  3d 20 22 54 41 53 4b 22  |.q.$blk = "TASK"|
00000860  0d 00 72 28 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..r(.. "Wimp_Clo|
00000870  73 65 44 6f 77 6e 22 2c  54 61 73 6b 48 61 6e 64  |seDown",TaskHand|
00000880  6c 65 25 2c 21 62 6c 6b  0d 00 73 05 e1 0d 00 74  |le%,!blk..s....t|
00000890  04 0d 00 75 13 dd 20 f2  57 5f 4d 6f 75 73 65 43  |...u.. .W_MouseC|
000008a0  6c 69 63 6b 0d 00 76 10  77 69 6e 64 25 3d 62 6c  |lick..v.wind%=bl|
000008b0  6b 21 31 32 0d 00 77 10  69 63 6f 6e 25 3d 62 6c  |k!12..w.icon%=bl|
000008c0  6b 21 31 36 0d 00 78 2a  e7 20 77 69 6e 64 25 3d  |k!16..x*. wind%=|
000008d0  63 74 72 6c 68 25 20 8c  20 f2 63 6f 6e 74 72 6f  |ctrlh% . .contro|
000008e0  6c 5f 63 6c 69 63 6b 28  69 63 6f 6e 25 29 0d 00  |l_click(icon%)..|
000008f0  79 05 e1 0d 00 7a 04 0d  00 7b 10 dd 20 f2 57 5f  |y....z...{.. .W_|
00000900  4d 65 73 73 61 67 65 0d  00 7c 3d 72 65 66 25 20  |Message..|=ref% |
00000910  3d 62 6c 6b 21 38 20 20  20 20 20 20 20 20 20 20  |=blk!8          |
00000920  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000930  20 20 3a f4 20 74 68 65  20 73 65 6e 64 65 72 73  |  :. the senders|
00000940  20 72 65 66 0d 00 7d 41  74 61 73 6b 25 3d 62 6c  | ref..}Atask%=bl|
00000950  6b 21 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |k!4             |
00000960  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00000970  f4 20 74 68 65 20 73 65  6e 64 65 72 73 20 74 61  |. the senders ta|
00000980  73 6b 20 69 64 0d 00 7e  3b e7 20 74 61 73 6b 25  |sk id..~;. task%|
00000990  3d 54 61 73 6b 48 61 6e  64 6c 65 25 3a e1 20 20  |=TaskHandle%:.  |
000009a0  20 20 20 20 20 20 20 20  20 3a f4 20 69 67 6e 6f  |         :. igno|
000009b0  72 65 20 69 66 20 77 65  20 73 65 6e 74 20 69 74  |re if we sent it|
000009c0  0d 00 7f 10 20 c8 8e 20  62 6c 6b 21 31 36 20 ca  |.... .. blk!16 .|
000009d0  0d 00 80 12 20 20 c9 20  30 3a 20 71 75 69 74 25  |....  . 0: quit%|
000009e0  3d b9 0d 00 81 17 20 20  c9 20 32 3a 20 f2 44 61  |=.....  . 2: .Da|
000009f0  74 61 53 61 76 65 41 63  6b 0d 00 82 17 20 20 c9  |taSaveAck....  .|
00000a00  20 34 3a 20 f2 44 61 74  61 4c 6f 61 64 41 63 6b  | 4: .DataLoadAck|
00000a10  0d 00 83 25 20 20 c9 20  26 38 30 45 31 46 3a f2  |...%  . &80E1F:.|
00000a20  52 65 63 65 69 76 65 64  54 72 61 6e 73 46 46 47  |ReceivedTransFFG|
00000a30  28 62 6c 6b 29 0d 00 84  05 cb 0d 00 85 05 e1 0d  |(blk)...........|
00000a40  00 86 04 0d 00 87 18 dd  20 f2 57 5f 52 65 63 6f  |........ .W_Reco|
00000a50  72 64 65 64 4d 65 73 73  61 67 65 0d 00 88 3d 72  |rdedMessage...=r|
00000a60  65 66 25 20 3d 62 6c 6b  21 38 20 20 20 20 20 20  |ef% =blk!8      |
00000a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a80  20 20 20 20 20 20 3a f4  20 74 68 65 20 73 65 6e  |      :. the sen|
00000a90  64 65 72 73 20 72 65 66  0d 00 89 41 74 61 73 6b  |ders ref...Atask|
00000aa0  25 3d 62 6c 6b 21 34 20  20 20 20 20 20 20 20 20  |%=blk!4         |
00000ab0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ac0  20 20 20 3a f4 20 74 68  65 20 73 65 6e 64 65 72  |   :. the sender|
00000ad0  73 20 74 61 73 6b 20 69  64 0d 00 8a 10 20 c8 8e  |s task id.... ..|
00000ae0  20 62 6c 6b 21 31 36 20  ca 0d 00 8b 2d 20 20 c9  | blk!16 ....-  .|
00000af0  20 44 61 74 61 53 61 76  65 25 3a 20 e7 20 72 65  | DataSave%: . re|
00000b00  66 25 3d 64 73 61 76 65  72 65 66 25 20 8c 20 71  |f%=dsaveref% . q|
00000b10  75 69 74 25 3d b9 0d 00  8c 2d 20 20 c9 20 44 61  |uit%=....-  . Da|
00000b20  74 61 4c 6f 61 64 25 3a  20 e7 20 72 65 66 25 3d  |taLoad%: . ref%=|
00000b30  64 6c 6f 61 64 72 65 66  25 20 8c 20 71 75 69 74  |dloadref% . quit|
00000b40  25 3d b9 0d 00 8d 06 20  cb 0d 00 8e 05 e1 0d 00  |%=..... ........|
00000b50  8f 04 0d 00 90 04 0d 00  91 51 f4 20 2d 2d 2d 2d  |.........Q. ----|
00000b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ba0  2d 2d 2d 2d 2d 2d 2d 0d  00 92 05 f4 0d 00 93 21  |-------........!|
00000bb0  f4 20 53 74 72 69 6e 67  20 6d 61 6e 69 70 75 6c  |. String manipul|
00000bc0  61 74 69 6f 6e 20 73 65  63 74 69 6f 6e 0d 00 94  |ation section...|
00000bd0  05 f4 0d 00 95 51 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.....Q. --------|
00000be0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c20  2d 2d 2d 0d 00 96 04 0d  00 97 14 dd 20 a4 67 65  |---......... .ge|
00000c30  74 73 74 72 69 6e 67 28  61 25 29 0d 00 98 08 ea  |tstring(a%).....|
00000c40  20 61 24 0d 00 99 09 61  24 3d 22 22 0d 00 9a 0e  | a$....a$=""....|
00000c50  c8 95 20 3f 61 25 3e 3d  33 32 0d 00 9b 12 20 20  |.. ?a%>=32....  |
00000c60  61 24 3d 61 24 2b bd 28  3f 61 25 29 0d 00 9c 0b  |a$=a$+.(?a%)....|
00000c70  20 20 61 25 2b 3d 31 0d  00 9d 05 ce 0d 00 9e 07  |  a%+=1.........|
00000c80  3d 61 24 0d 00 9f 04 0d  00 a0 1a dd 20 f2 70 6f  |=a$......... .po|
00000c90  6b 65 73 74 72 28 73 24  2c 70 74 72 2c 70 61 64  |kestr(s$,ptr,pad|
00000ca0  29 0d 00 a1 08 ea 20 6d  25 0d 00 a2 12 e3 20 6d  |)..... m%..... m|
00000cb0  25 3d 30 20 b8 20 70 61  64 2d 31 0d 00 a3 0d 20  |%=0 . pad-1.... |
00000cc0  70 74 72 3f 6d 25 3d 30  0d 00 a4 05 ed 0d 00 a5  |ptr?m%=0........|
00000cd0  13 24 70 74 72 3d c0 73  24 2c 70 61 64 2d 31 29  |.$ptr=.s$,pad-1)|
00000ce0  0d 00 a6 05 e1 0d 00 a7  04 0d 00 a8 04 0d 00 a9  |................|
00000cf0  51 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |Q. -------------|
00000d00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000d40  aa 05 f4 0d 00 ab 1a f4  20 44 61 74 61 20 6c 6f  |........ Data lo|
00000d50  61 64 69 6e 67 20 73 65  63 74 69 6f 6e 0d 00 ac  |ading section...|
00000d60  05 f4 0d 00 ad 51 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |.....Q. --------|
00000d70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000db0  2d 2d 2d 0d 00 ae 04 0d  00 af 1d dd 20 f2 52 65  |---......... .Re|
00000dc0  63 65 69 76 65 64 54 72  61 6e 73 46 46 47 28 6d  |ceivedTransFFG(m|
00000dd0  65 73 73 29 0d 00 b0 30  e7 20 a4 67 65 74 73 74  |ess)...0. .getst|
00000de0  72 69 6e 67 28 6d 65 73  73 2b 34 38 29 3c 3e 61  |ring(mess+48)<>a|
00000df0  70 70 5f 6e 61 6d 65 24  20 8c 20 71 75 69 74 25  |pp_name$ . quit%|
00000e00  3d b9 3a e1 0d 00 b1 13  6f 66 74 79 70 65 25 3d  |=.:.....oftype%=|
00000e10  6d 65 73 73 21 34 34 0d  00 b2 10 c8 8e 20 6f 66  |mess!44...... of|
00000e20  74 79 70 65 25 20 ca 0d  00 b3 1b c9 20 46 54 79  |type% ...... FTy|
00000e30  70 65 5f 44 72 61 77 20  3a 6f 66 6c 61 67 73 25  |pe_Draw :oflags%|
00000e40  3d 30 0d 00 b4 1d c9 20  46 54 79 70 65 5f 53 70  |=0..... FType_Sp|
00000e50  72 69 74 65 20 3a 6f 66  6c 61 67 73 25 3d 31 0d  |rite :oflags%=1.|
00000e60  00 b5 11 7f 20 6f 66 6c  61 67 73 25 3d 32 35 36  |.... oflags%=256|
00000e70  0d 00 b6 05 cb 0d 00 b7  2f e7 20 6f 66 6c 61 67  |......../. oflag|
00000e80  73 25 3d 32 35 36 20 8c  20 f2 52 65 73 45 72 72  |s%=256 . .ResErr|
00000e90  6f 72 28 22 43 46 30 30  22 29 3a 71 75 69 74 25  |or("CF00"):quit%|
00000ea0  3d b9 3a e1 0d 00 b8 11  64 77 69 6e 25 3d 6d 65  |=.:.....dwin%=me|
00000eb0  73 73 21 32 30 0d 00 b9  12 64 69 63 6f 6e 25 3d  |ss!20....dicon%=|
00000ec0  6d 65 73 73 21 32 34 0d  00 ba 10 64 69 78 25 3d  |mess!24....dix%=|
00000ed0  6d 65 73 73 21 32 38 0d  00 bb 10 64 69 79 25 3d  |mess!28....diy%=|
00000ee0  6d 65 73 73 21 33 32 0d  00 bc 12 73 65 6e 64 65  |mess!32....sende|
00000ef0  72 25 3d 6d 65 73 73 21  34 0d 00 bd 11 6d 79 72  |r%=mess!4....myr|
00000f00  65 66 25 3d 6d 65 73 73  21 38 0d 00 be 11 6f 72  |ef%=mess!8....or|
00000f10  69 67 25 3d 6d 65 73 73  21 33 36 0d 00 bf 1f 66  |ig%=mess!36....f|
00000f20  70 61 74 68 24 3d a4 67  65 74 73 74 72 69 6e 67  |path$=.getstring|
00000f30  28 6d 65 73 73 2b 31 30  34 29 0d 00 c0 1d 66 6c  |(mess+104)....fl|
00000f40  65 6e 25 3d a4 46 69 6c  65 4c 65 6e 67 74 68 28  |en%=.FileLength(|
00000f50  66 70 61 74 68 24 29 0d  00 c1 2b e7 20 66 6c 65  |fpath$)...+. fle|
00000f60  6e 25 3d 30 20 8c 20 f2  52 65 73 45 72 72 6f 72  |n%=0 . .ResError|
00000f70  28 22 43 46 30 38 22 29  3a 71 75 69 74 25 3d b9  |("CF08"):quit%=.|
00000f80  3a e1 0d 00 c2 18 f2 53  65 6e 64 54 72 61 6e 73  |:......SendTrans|
00000f90  6c 61 74 65 46 46 47 41  63 6b 0d 00 c3 1f 63 6c  |lateFFGAck....cl|
00000fa0  25 3d a4 63 6f 6e 74 72  6f 6c 5f 63 6f 6e 66 69  |%=.control_confi|
00000fb0  67 28 66 70 61 74 68 24  29 0d 00 c4 0b e7 20 63  |g(fpath$)..... c|
00000fc0  6c 25 20 8c 0d 00 c5 1c  20 f2 77 69 6e 5f 74 6f  |l% ..... .win_to|
00000fd0  70 63 65 6e 74 72 65 64  28 63 74 72 6c 68 25 29  |pcentred(ctrlh%)|
00000fe0  0d 00 c6 20 20 f4 50 52  4f 43 77 69 6e 5f 62 6f  |...  .PROCwin_bo|
00000ff0  75 6e 64 6d 6f 75 73 65  28 63 74 72 6c 68 25 29  |undmouse(ctrlh%)|
00001000  0d 00 c7 05 cc 0d 00 c8  0c 20 71 75 69 74 25 3d  |......... quit%=|
00001010  b9 0d 00 c9 05 cd 0d 00  ca 05 e1 0d 00 cb 04 0d  |................|
00001020  00 cc 04 0d 00 cd 1c dd  20 a4 63 6f 6e 74 72 6f  |........ .contro|
00001030  6c 5f 63 6f 6e 66 69 67  28 70 61 74 68 24 29 0d  |l_config(path$).|
00001040  00 ce 1d ea 20 65 72 72  25 2c 70 61 63 6b 25 2c  |.... err%,pack%,|
00001050  70 61 63 6b 68 64 6c 65  25 2c 6d 25 0d 00 cf 1d  |packhdle%,m%....|
00001060  70 61 63 6b 25 3d a4 67  65 74 70 61 63 6b 6e 61  |pack%=.getpackna|
00001070  6d 65 28 70 61 74 68 24  29 0d 00 d0 12 e7 20 70  |me(path$)..... p|
00001080  61 63 6b 25 3d 30 20 8c  20 3d 30 0d 00 d1 22 70  |ack%=0 . =0..."p|
00001090  61 63 6b 68 64 6c 65 25  3d a4 50 68 6f 74 6f 43  |ackhdle%=.PhotoC|
000010a0  44 5f 4f 70 65 6e 28 70  61 63 6b 25 29 0d 00 d2  |D_Open(pack%)...|
000010b0  16 e7 20 70 61 63 6b 68  64 6c 65 25 3d 30 20 8c  |.. packhdle%=0 .|
000010c0  20 3d 30 0d 00 d3 25 65  72 72 25 3d a4 50 68 6f  | =0...%err%=.Pho|
000010d0  74 6f 43 44 5f 50 61 63  6b 49 6e 66 6f 28 70 61  |toCD_PackInfo(pa|
000010e0  63 6b 68 64 6c 65 25 29  0d 00 d4 2b e7 20 65 72  |ckhdle%)...+. er|
000010f0  72 25 3d 30 20 8c 20 f2  50 68 6f 74 6f 43 44 5f  |r%=0 . .PhotoCD_|
00001100  43 6c 6f 73 65 28 70 61  63 6b 68 64 6c 65 25 29  |Close(packhdle%)|
00001110  3a 3d 30 0d 00 d5 0e e3  20 6d 25 3d 30 20 b8 20  |:=0..... m%=0 . |
00001120  35 0d 00 d6 1a 20 e7 20  28 72 65 73 6d 25 20 80  |5.... . (resm% .|
00001130  20 28 31 3c 3c 6d 25 29  29 20 8c 0d 00 d7 29 20  | (1<<m%)) ....) |
00001140  20 20 65 72 72 25 3d a4  50 68 6f 74 6f 43 44 5f  |  err%=.PhotoCD_|
00001150  47 65 74 52 65 73 28 70  61 63 6b 68 64 6c 65 25  |GetRes(packhdle%|
00001160  2c 6d 25 29 0d 00 d8 21  20 20 20 e7 20 65 72 72  |,m%)...!   . err|
00001170  25 3d 30 20 8c 20 78 72  65 73 25 3d 30 3a 79 72  |%=0 . xres%=0:yr|
00001180  65 73 25 3d 30 0d 00 d9  19 20 20 20 50 68 43 44  |es%=0....   PhCD|
00001190  28 6d 25 2b 31 2c 31 29  3d 78 72 65 73 25 0d 00  |(m%+1,1)=xres%..|
000011a0  da 19 20 20 20 50 68 43  44 28 6d 25 2b 31 2c 32  |..   PhCD(m%+1,2|
000011b0  29 3d 79 72 65 73 25 0d  00 db 06 20 cc 0d 00 dc  |)=yres%.... ....|
000011c0  15 20 20 20 50 68 43 44  28 6d 25 2b 31 2c 31 29  |.   PhCD(m%+1,1)|
000011d0  3d 30 0d 00 dd 15 20 20  20 50 68 43 44 28 6d 25  |=0....   PhCD(m%|
000011e0  2b 31 2c 32 29 3d 30 0d  00 de 06 20 cd 0d 00 df  |+1,2)=0.... ....|
000011f0  05 ed 0d 00 e0 12 e3 20  6d 25 3d 35 20 b8 20 30  |....... m%=5 . 0|
00001200  20 88 2d 31 0d 00 e1 23  20 20 e7 20 28 72 65 73  | .-1...#  . (res|
00001210  6d 25 20 80 20 28 31 3c  3c 6d 25 29 29 20 8c 20  |m% . (1<<m%)) . |
00001220  70 69 63 25 3d 6d 25 0d  00 e2 05 ed 0d 00 e3 1f  |pic%=m%.........|
00001230  e7 20 28 72 65 73 6d 25  20 80 20 28 31 3c 3c 33  |. (resm% . (1<<3|
00001240  29 29 20 8c 20 70 69 63  25 3d 33 0d 00 e4 0e e3  |)) . pic%=3.....|
00001250  20 6d 25 3d 30 20 b8 20  35 0d 00 e5 38 20 e7 20  | m%=0 . 5...8 . |
00001260  50 68 43 44 28 6d 25 2b  31 2c 31 29 3d 30 20 8c  |PhCD(m%+1,1)=0 .|
00001270  20 f2 69 63 6f 6e 5f 73  68 61 64 65 28 63 74 72  | .icon_shade(ctr|
00001280  6c 68 25 2c 6d 25 2b 72  65 73 5f 69 63 6f 6e 25  |lh%,m%+res_icon%|
00001290  29 0d 00 e6 05 ed 0d 00  e7 27 f2 69 63 6f 6e 5f  |)........'.icon_|
000012a0  73 65 6c 65 63 74 28 63  74 72 6c 68 25 2c 70 69  |select(ctrlh%,pi|
000012b0  63 25 2b 72 65 73 5f 69  63 6f 6e 25 29 0d 00 e8  |c%+res_icon%)...|
000012c0  25 f2 69 63 6f 6e 5f 77  72 69 74 65 28 63 74 72  |%.icon_write(ctr|
000012d0  6c 68 25 2c 69 63 6f 6e  5f 6e 25 2c 70 61 74 68  |lh%,icon_n%,path|
000012e0  24 29 0d 00 e9 1d f2 50  68 6f 74 6f 43 44 5f 43  |$).....PhotoCD_C|
000012f0  6c 6f 73 65 28 70 61 63  6b 68 64 6c 65 25 29 0d  |lose(packhdle%).|
00001300  00 ea 0c f2 73 68 6f 77  72 65 73 0d 00 eb 06 3d  |....showres....=|
00001310  b9 0d 00 ec 04 0d 00 ed  04 0d 00 ee 18 dd 20 f2  |.............. .|
00001320  63 6f 6e 74 72 6f 6c 5f  63 6c 69 63 6b 28 69 25  |control_click(i%|
00001330  29 0d 00 ef 34 e7 20 69  25 3e 28 72 65 73 5f 69  |)...4. i%>(res_i|
00001340  63 6f 6e 25 2d 31 29 20  80 20 69 25 3c 28 72 65  |con%-1) . i%<(re|
00001350  73 5f 69 63 6f 6e 25 2b  36 29 20 8c 20 f2 73 68  |s_icon%+6) . .sh|
00001360  6f 77 72 65 73 0d 00 f0  36 e7 20 69 25 3e 28 74  |owres...6. i%>(t|
00001370  79 70 65 5f 69 63 6f 6e  25 2d 31 29 20 80 20 69  |ype_icon%-1) . i|
00001380  25 3c 28 74 79 70 65 5f  69 63 6f 6e 25 2b 33 29  |%<(type_icon%+3)|
00001390  20 8c 20 f2 73 68 6f 77  72 65 73 0d 00 f1 1f e7  | . .showres.....|
000013a0  20 69 25 3d 6f 6b 5f 69  63 6f 6e 25 20 8c 20 f2  | i%=ok_icon% . .|
000013b0  63 6f 6e 74 72 6f 6c 5f  6f 6b 0d 00 f2 1c e7 20  |control_ok..... |
000013c0  69 25 3d 63 61 6e 5f 69  63 6f 6e 25 20 8c 20 71  |i%=can_icon% . q|
000013d0  75 69 74 25 3d b9 0d 00  f3 05 e1 0d 00 f4 04 0d  |uit%=...........|
000013e0  00 f5 04 0d 00 f6 11 dd  20 f2 63 6f 6e 74 72 6f  |........ .contro|
000013f0  6c 5f 6f 6b 0d 00 f7 15  f2 77 69 6e 5f 72 65 6c  |l_ok.....win_rel|
00001400  65 61 73 65 6d 6f 75 73  65 0d 00 f8 2e 63 6c 25  |easemouse....cl%|
00001410  3d a4 46 69 6c 74 65 72  50 68 6f 74 6f 43 44 28  |=.FilterPhotoCD(|
00001420  31 2c 66 70 61 74 68 24  2c 66 6c 65 6e 25 2c 6f  |1,fpath$,flen%,o|
00001430  66 6c 61 67 73 25 29 0d  00 f9 24 e7 20 6f 72 69  |flags%)...$. ori|
00001440  67 25 3c 3e 30 20 8c 20  f2 44 65 6c 65 74 65 46  |g%<>0 . .DeleteF|
00001450  69 6c 65 28 66 70 61 74  68 24 29 0d 00 fa 0b e7  |ile(fpath$).....|
00001460  20 63 6c 25 20 8c 0d 00  fb 25 20 f2 52 65 74 75  | cl% ....% .Retu|
00001470  72 6e 46 69 6c 65 28 73  65 6e 64 65 72 25 2c 63  |rnFile(sender%,c|
00001480  6c 25 2c 6f 66 74 79 70  65 25 29 0d 00 fc 05 cc  |l%,oftype%).....|
00001490  0d 00 fd 12 20 f2 4d 65  6d 5f 4b 69 6c 6c 53 6c  |.... .Mem_KillSl|
000014a0  6f 74 0d 00 fe 0c 20 71  75 69 74 25 3d b9 0d 00  |ot.... quit%=...|
000014b0  ff 05 cd 0d 01 00 05 e1  0d 01 01 04 0d 01 02 04  |................|
000014c0  0d 01 03 0e dd 20 f2 73  68 6f 77 72 65 73 0d 01  |..... .showres..|
000014d0  04 11 f2 63 6f 6e 74 72  6f 6c 5f 69 6e 66 6f 0d  |...control_info.|
000014e0  01 05 23 66 73 69 7a 65  25 3d a4 49 6d 61 67 65  |..#fsize%=.Image|
000014f0  53 69 7a 65 28 62 70 70  25 2c 72 78 25 2c 72 79  |Size(bpp%,rx%,ry|
00001500  25 29 0d 01 06 2e c8 99  20 22 4f 53 5f 43 6f 6e  |%)...... "OS_Con|
00001510  76 65 72 74 46 69 6c 65  53 69 7a 65 22 2c 66 73  |vertFileSize",fs|
00001520  69 7a 65 25 2c 73 63 72  61 74 63 68 2c 32 35 36  |ize%,scratch,256|
00001530  0d 01 07 29 73 24 3d 22  4f 75 74 70 75 74 20 73  |...)s$="Output s|
00001540  69 7a 65 3d 22 2b a4 67  65 74 73 74 72 69 6e 67  |ize="+.getstring|
00001550  28 73 63 72 61 74 63 68  29 0d 01 08 46 f2 69 63  |(scratch)...F.ic|
00001560  6f 6e 5f 77 72 69 74 65  28 63 74 72 6c 68 25 2c  |on_write(ctrlh%,|
00001570  69 63 6f 6e 5f 66 72 25  2c 22 52 65 73 6f 6c 75  |icon_fr%,"Resolu|
00001580  74 69 6f 6e 3d 22 2b c3  72 78 25 2b 22 78 22 2b  |tion="+.rx%+"x"+|
00001590  c3 72 79 25 2b 22 20 70  69 78 65 6c 73 22 29 0d  |.ry%+" pixels").|
000015a0  01 09 23 f2 69 63 6f 6e  5f 77 72 69 74 65 28 63  |..#.icon_write(c|
000015b0  74 72 6c 68 25 2c 69 63  6f 6e 5f 66 6f 25 2c 73  |trlh%,icon_fo%,s|
000015c0  24 29 0d 01 0a 05 e1 0d  01 0b 04 0d 01 0c 04 0d  |$)..............|
000015d0  01 0d 13 dd 20 f2 63 6f  6e 74 72 6f 6c 5f 69 6e  |.... .control_in|
000015e0  66 6f 0d 01 0e 2e 72 65  73 73 25 3d a4 77 69 6e  |fo....ress%=.win|
000015f0  5f 67 65 74 73 65 6c 72  61 64 69 6f 28 63 74 72  |_getselradio(ctr|
00001600  6c 68 25 2c 31 29 2d 72  65 73 5f 69 63 6f 6e 25  |lh%,1)-res_icon%|
00001610  0d 01 0f 2f 74 79 70 65  25 3d a4 77 69 6e 5f 67  |.../type%=.win_g|
00001620  65 74 73 65 6c 72 61 64  69 6f 28 63 74 72 6c 68  |etselradio(ctrlh|
00001630  25 2c 32 29 2d 74 79 70  65 5f 69 63 6f 6e 25 0d  |%,2)-type_icon%.|
00001640  01 10 17 72 78 25 3d 50  68 43 44 28 72 65 73 73  |...rx%=PhCD(ress|
00001650  25 2b 31 2c 31 29 0d 01  11 17 72 79 25 3d 50 68  |%+1,1)....ry%=Ph|
00001660  43 44 28 72 65 73 73 25  2b 31 2c 32 29 0d 01 12  |CD(ress%+1,2)...|
00001670  2a e7 20 74 79 70 65 25  3d 30 20 84 20 74 79 70  |*. type%=0 . typ|
00001680  65 25 3d 31 20 8c 20 62  70 70 25 3d 38 20 8b 20  |e%=1 . bpp%=8 . |
00001690  62 70 70 25 3d 33 32 0d  01 13 05 e1 0d 01 14 04  |bpp%=32.........|
000016a0  0d 01 15 04 0d 01 16 1a  dd 20 f2 53 65 6e 64 54  |......... .SendT|
000016b0  72 61 6e 73 6c 61 74 65  46 46 47 41 63 6b 0d 01  |ranslateFFGAck..|
000016c0  17 15 73 63 72 61 74 63  68 21 31 32 3d 6d 79 72  |..scratch!12=myr|
000016d0  65 66 25 0d 01 18 15 73  63 72 61 74 63 68 21 31  |ef%....scratch!1|
000016e0  36 3d 26 38 30 45 32 30  0d 01 19 10 73 63 72 61  |6=&80E20....scra|
000016f0  74 63 68 21 30 3d 32 30  0d 01 1a 2c c8 99 20 22  |tch!0=20...,.. "|
00001700  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00001710  22 2c 31 37 2c 73 63 72  61 74 63 68 2c 73 65 6e  |",17,scratch,sen|
00001720  64 65 72 25 0d 01 1b 05  e1 0d 01 1c 04 0d 01 1d  |der%............|
00001730  04 0d 01 1e 12 dd 20 f2  44 61 74 61 53 61 76 65  |...... .DataSave|
00001740  41 63 6b 0d 01 1f 25 e7  20 62 6c 6b 21 6d 65 73  |Ack...%. blk!mes|
00001750  73 5f 59 6f 75 72 52 65  66 3c 3e 64 73 61 76 65  |s_YourRef<>dsave|
00001760  72 65 66 25 20 8c 20 e1  0d 01 20 1d 73 70 61 74  |ref% . ... .spat|
00001770  68 24 3d a4 67 65 74 73  74 72 69 6e 67 28 62 6c  |h$=.getstring(bl|
00001780  6b 2b 34 34 29 0d 01 21  24 73 25 3d a4 53 61 76  |k+44)..!$s%=.Sav|
00001790  65 54 72 61 6e 73 46 69  6c 65 28 73 70 61 74 68  |eTransFile(spath|
000017a0  24 2c 62 6c 6b 21 34 30  29 0d 01 22 0a e7 20 73  |$,blk!40)..".. s|
000017b0  25 20 8c 0d 01 23 1d 20  20 73 65 6e 64 65 72 25  |% ...#.  sender%|
000017c0  3d 62 6c 6b 21 6d 65 73  73 5f 53 65 6e 64 65 72  |=blk!mess_Sender|
000017d0  0d 01 24 12 20 20 62 6c  6b 21 31 32 3d 62 6c 6b  |..$.  blk!12=blk|
000017e0  21 38 0d 01 25 1d 20 20  62 6c 6b 21 6d 65 73 73  |!8..%.  blk!mess|
000017f0  5f 54 79 70 65 3d 44 61  74 61 4c 6f 61 64 25 0d  |_Type=DataLoad%.|
00001800  01 26 2a 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |.&*  .. "Wimp_Se|
00001810  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 62 6c  |ndMessage",18,bl|
00001820  6b 2c 73 65 6e 64 65 72  25 0d 01 27 1e 20 20 64  |k,sender%..'.  d|
00001830  6c 6f 61 64 72 65 66 25  3d 62 6c 6b 21 6d 65 73  |loadref%=blk!mes|
00001840  73 5f 4d 79 52 65 66 0d  01 28 05 cc 0d 01 29 0d  |s_MyRef..(....).|
00001850  20 20 71 75 69 74 25 3d  b9 0d 01 2a 05 cd 0d 01  |  quit%=...*....|
00001860  2b 05 e1 0d 01 2c 04 0d  01 2d 04 0d 01 2e 12 dd  |+....,...-......|
00001870  20 f2 44 61 74 61 4c 6f  61 64 41 63 6b 0d 01 2f  | .DataLoadAck../|
00001880  1a 79 72 65 66 25 3d 62  6c 6b 21 6d 65 73 73 5f  |.yref%=blk!mess_|
00001890  59 6f 75 72 52 65 66 0d  01 30 2a e7 20 62 6c 6b  |YourRef..0*. blk|
000018a0  21 6d 65 73 73 5f 59 6f  75 72 52 65 66 3d 64 6c  |!mess_YourRef=dl|
000018b0  6f 61 64 72 65 66 25 20  8c 20 71 75 69 74 25 3d  |oadref% . quit%=|
000018c0  b9 0d 01 31 05 e1 0d 01  32 04 0d 01 33 04 0d 01  |...1....2...3...|
000018d0  34 24 dd 20 f2 52 65 74  75 72 6e 46 69 6c 65 28  |4$. .ReturnFile(|
000018e0  73 6e 64 72 25 2c 6c 65  6e 25 2c 66 74 79 70 65  |sndr%,len%,ftype|
000018f0  25 29 0d 01 35 26 e7 20  a4 64 6f 65 73 76 61 72  |%)..5&. .doesvar|
00001900  65 78 69 73 74 28 22 57  69 6d 70 24 53 63 72 61  |exist("Wimp$Scra|
00001910  70 22 29 3c 3e 30 20 8c  0d 01 36 18 20 20 62 6c  |p")<>0 ...6.  bl|
00001920  6b 21 6d 65 73 73 5f 59  6f 75 72 52 65 66 3d 30  |k!mess_YourRef=0|
00001930  0d 01 37 1d 20 20 62 6c  6b 21 6d 65 73 73 5f 54  |..7.  blk!mess_T|
00001940  79 70 65 3d 44 61 74 61  53 61 76 65 25 0d 01 38  |ype=DataSave%..8|
00001950  12 20 20 62 6c 6b 21 32  30 3d 64 77 69 6e 25 0d  |.  blk!20=dwin%.|
00001960  01 39 13 20 20 62 6c 6b  21 32 34 3d 64 69 63 6f  |.9.  blk!24=dico|
00001970  6e 25 0d 01 3a 11 20 20  62 6c 6b 21 32 38 3d 64  |n%..:.  blk!28=d|
00001980  69 78 25 0d 01 3b 11 20  20 62 6c 6b 21 33 32 3d  |ix%..;.  blk!32=|
00001990  64 69 79 25 0d 01 3c 11  20 20 62 6c 6b 21 33 36  |diy%..<.  blk!36|
000019a0  3d 6c 65 6e 25 0d 01 3d  13 20 20 62 6c 6b 21 34  |=len%..=.  blk!4|
000019b0  30 3d 66 74 79 70 65 25  0d 01 3e 19 20 20 24 28  |0=ftype%..>.  $(|
000019c0  62 6c 6b 2b 34 34 29 3d  61 70 70 5f 6c 65 61 66  |blk+44)=app_leaf|
000019d0  24 0d 01 3f 27 20 20 62  6c 6b 21 30 20 3d 28 28  |$..?'  blk!0 =((|
000019e0  34 35 2b a9 28 61 70 70  5f 6c 65 61 66 24 29 29  |45+.(app_leaf$))|
000019f0  2b 33 29 20 80 20 2d 34  0d 01 40 28 20 20 c8 99  |+3) . -4..@(  ..|
00001a00  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00001a10  67 65 22 2c 31 38 2c 62  6c 6b 2c 73 6e 64 72 25  |ge",18,blk,sndr%|
00001a20  0d 01 41 15 20 20 64 73  61 76 65 72 65 66 25 3d  |..A.  dsaveref%=|
00001a30  62 6c 6b 21 38 0d 01 42  05 cc 0d 01 43 17 20 20  |blk!8..B....C.  |
00001a40  f2 52 65 73 45 72 72 6f  72 28 22 57 53 4e 46 22  |.ResError("WSNF"|
00001a50  29 0d 01 44 0d 20 20 71  75 69 74 25 3d b9 0d 01  |)..D.  quit%=...|
00001a60  45 05 cd 0d 01 46 05 e1  0d 01 47 04 0d 01 48 04  |E....F....G...H.|
00001a70  0d 01 49 17 dd 20 a4 64  6f 65 73 76 61 72 65 78  |..I.. .doesvarex|
00001a80  69 73 74 28 76 24 29 0d  01 4a 08 ea 20 65 25 0d  |ist(v$)..J.. e%.|
00001a90  01 4b 30 c8 99 20 22 58  4f 53 5f 52 65 61 64 56  |.K0.. "XOS_ReadV|
00001aa0  61 72 56 61 6c 22 2c 76  24 2c 73 63 72 61 74 63  |arVal",v$,scratc|
00001ab0  68 2c 2d 31 2c 30 2c 33  20 b8 20 2c 2c 65 25 0d  |h,-1,0,3 . ,,e%.|
00001ac0  01 4c 07 3d 65 25 0d 01  4d 04 0d 01 4e 04 0d 01  |.L.=e%..M...N...|
00001ad0  4f 51 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |OQ. ------------|
00001ae0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001b10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001b20  01 50 05 f4 0d 01 51 1b  f4 20 46 69 6c 65 20 68  |.P....Q.. File h|
00001b30  61 6e 64 6c 69 6e 67 20  73 65 63 74 69 6f 6e 0d  |andling section.|
00001b40  01 52 05 f4 0d 01 53 51  f4 20 2d 2d 2d 2d 2d 2d  |.R....SQ. ------|
00001b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001b90  2d 2d 2d 2d 2d 0d 01 54  04 0d 01 55 18 dd 20 a4  |-----..T...U.. .|
00001ba0  46 69 6c 65 4c 65 6e 67  74 68 28 70 61 74 68 24  |FileLength(path$|
00001bb0  29 0d 01 56 10 ea 20 74  79 70 65 25 2c 6c 65 6e  |)..V.. type%,len|
00001bc0  25 0d 01 57 28 c8 99 20  22 4f 53 5f 46 69 6c 65  |%..W(.. "OS_File|
00001bd0  22 2c 35 2c 70 61 74 68  24 20 b8 20 74 79 70 65  |",5,path$ . type|
00001be0  25 2c 2c 2c 2c 6c 65 6e  25 0d 01 58 17 e7 20 74  |%,,,,len%..X.. t|
00001bf0  79 70 65 25 3c 3e 31 20  8c 20 6c 65 6e 25 3d 30  |ype%<>1 . len%=0|
00001c00  0d 01 59 09 3d 6c 65 6e  25 0d 01 5a 04 0d 01 5b  |..Y.=len%..Z...[|
00001c10  15 dd 20 f2 44 65 6c 65  74 65 46 69 6c 65 28 70  |.. .DeleteFile(p|
00001c20  24 29 0d 01 5c 0c ea 20  66 6c 61 67 73 25 0d 01  |$)..\.. flags%..|
00001c30  5d 20 c8 99 20 22 58 4f  53 5f 46 69 6c 65 22 2c  |] .. "XOS_File",|
00001c40  36 2c 70 24 20 b8 20 3b  66 6c 61 67 73 25 0d 01  |6,p$ . ;flags%..|
00001c50  5e 05 e1 0d 01 5f 04 0d  01 60 04 0d 01 61 04 0d  |^...._...`...a..|
00001c60  01 62 51 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.bQ. -----------|
00001c70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001cb0  0d 01 63 05 f4 0d 01 64  13 f4 20 45 72 72 6f 72  |..c....d.. Error|
00001cc0  20 73 65 63 74 69 6f 6e  0d 01 65 05 f4 0d 01 66  | section..e....f|
00001cd0  51 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |Q. -------------|
00001ce0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001d10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 01  |--------------..|
00001d20  67 04 0d 01 68 1f dd 20  f2 52 65 70 6f 72 74 57  |g...h.. .ReportW|
00001d30  69 6d 70 45 72 72 6f 72  28 72 65 70 6f 72 74 24  |impError(report$|
00001d40  29 0d 01 69 10 21 73 63  72 61 74 63 68 20 3d 20  |)..i.!scratch = |
00001d50  30 0d 01 6a 18 24 28 73  63 72 61 74 63 68 2b 34  |0..j.$(scratch+4|
00001d60  29 3d 72 65 70 6f 72 74  24 0d 01 6b 1b 3f 28 73  |)=report$..k.?(s|
00001d70  63 72 61 74 63 68 2b 34  2b a9 72 65 70 6f 72 74  |cratch+4+.report|
00001d80  24 29 3d 30 0d 01 6c 2e  c8 99 20 22 57 69 6d 70  |$)=0..l... "Wimp|
00001d90  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 73 63  |_ReportError",sc|
00001da0  72 61 74 63 68 2c 25 31  2c 61 70 70 5f 6e 61 6d  |ratch,%1,app_nam|
00001db0  65 24 0d 01 6d 05 e1 0d  01 6e 04 0d 01 6f 21 dd  |e$..m....n...o!.|
00001dc0  20 f2 52 65 70 6f 72 74  53 79 73 74 65 6d 45 72  | .ReportSystemEr|
00001dd0  72 6f 72 28 72 65 70 6f  72 74 24 29 0d 01 70 10  |ror(report$)..p.|
00001de0  21 73 63 72 61 74 63 68  20 3d 20 30 0d 01 71 30  |!scratch = 0..q0|
00001df0  72 65 70 6f 72 74 24 3d  72 65 70 6f 72 74 24 2b  |report$=report$+|
00001e00  22 20 69 6e 74 65 72 6e  61 6c 20 65 72 72 6f 72  |" internal error|
00001e10  20 28 22 2b c3 28 9e 29  2b 22 29 22 0d 01 72 18  | ("+.(.)+")"..r.|
00001e20  24 28 73 63 72 61 74 63  68 2b 34 29 3d 72 65 70  |$(scratch+4)=rep|
00001e30  6f 72 74 24 0d 01 73 1b  3f 28 73 63 72 61 74 63  |ort$..s.?(scratc|
00001e40  68 2b 34 2b a9 72 65 70  6f 72 74 24 29 3d 30 0d  |h+4+.report$)=0.|
00001e50  01 74 2e c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.t... "Wimp_Repo|
00001e60  72 74 45 72 72 6f 72 22  2c 73 63 72 61 74 63 68  |rtError",scratch|
00001e70  2c 25 31 2c 61 70 70 5f  6e 61 6d 65 24 0d 01 75  |,%1,app_name$..u|
00001e80  05 e1 0d 01 76 04 0d 01  77 13 dd 20 f2 52 65 73  |....v...w.. .Res|
00001e90  45 72 72 6f 72 28 72 24  29 0d 01 78 1e 72 24 3d  |Error(r$)..x.r$=|
00001ea0  a4 46 69 6e 64 52 65 73  6f 75 72 63 65 53 74 72  |.FindResourceStr|
00001eb0  69 6e 67 28 72 24 29 0d  01 79 18 f2 52 65 70 6f  |ing(r$)..y..Repo|
00001ec0  72 74 57 69 6d 70 45 72  72 6f 72 28 72 24 29 0d  |rtWimpError(r$).|
00001ed0  01 7a 05 e1 0d 01 7b 04  0d 01 7c 16 dd 20 f2 50  |.z....{...|.. .P|
00001ee0  65 65 6b 45 72 72 6f 72  28 65 72 72 25 29 0d 01  |eekError(err%)..|
00001ef0  7d 28 f2 52 65 70 6f 72  74 57 69 6d 70 45 72 72  |}(.ReportWimpErr|
00001f00  6f 72 28 a4 67 65 74 73  74 72 69 6e 67 28 65 72  |or(.getstring(er|
00001f10  72 25 2b 34 29 29 0d 01  7e 05 e1 0d 01 7f 04 0d  |r%+4))..~.......|
00001f20  01 80 14 dd 20 a4 6c 6f  61 64 72 65 73 6f 75 72  |.... .loadresour|
00001f30  63 65 73 0d 01 81 13 ea  20 6c 25 2c 72 65 73 24  |ces..... l%,res$|
00001f40  2c 63 6c 61 69 6d 0d 01  82 0a 72 65 73 25 3d 30  |,claim....res%=0|
00001f50  0d 01 83 20 c8 99 20 22  4f 53 5f 42 79 74 65 22  |... .. "OS_Byte"|
00001f60  2c 37 30 2c 31 32 37 20  b8 20 2c 63 6e 75 6d 25  |,70,127 . ,cnum%|
00001f70  0d 01 84 35 c8 99 20 22  4f 53 5f 53 65 72 76 69  |...5.. "OS_Servi|
00001f80  63 65 43 61 6c 6c 22 2c  30 2c 26 34 33 2c 32 2c  |ceCall",0,&43,2,|
00001f90  30 2c 73 63 72 61 74 63  68 2c 33 32 20 b8 20 2c  |0,scratch,32 . ,|
00001fa0  63 6c 61 69 6d 0d 01 85  0f e7 20 63 6c 61 69 6d  |claim..... claim|
00001fb0  3d 30 20 8c 0d 01 86 0f  20 20 72 65 73 24 3d 22  |=0 .....  res$="|
00001fc0  55 4b 22 0d 01 87 05 cc  0d 01 88 1e 20 20 72 65  |UK".........  re|
00001fd0  73 24 3d a4 67 65 74 73  74 72 69 6e 67 28 73 63  |s$=.getstring(sc|
00001fe0  72 61 74 63 68 29 0d 01  89 05 cd 0d 01 8a 25 72  |ratch)........%r|
00001ff0  65 73 24 3d 61 70 70 5f  70 61 74 68 24 2b 22 2e  |es$=app_path$+".|
00002000  52 65 73 6f 75 72 63 65  73 2e 22 2b 72 65 73 24  |Resources."+res$|
00002010  0d 01 8b 18 6c 25 3d a4  46 69 6c 65 4c 65 6e 67  |....l%=.FileLeng|
00002020  74 68 28 72 65 73 24 29  0d 01 8c 3b e7 20 6c 25  |th(res$)...;. l%|
00002030  3d 30 20 8c 20 f2 52 65  70 6f 72 74 57 69 6d 70  |=0 . .ReportWimp|
00002040  45 72 72 6f 72 28 22 72  65 73 6f 75 72 63 65 20  |Error("resource |
00002050  66 69 6c 65 20 6e 6f 74  20 66 6f 75 6e 64 22 29  |file not found")|
00002060  3a 3d a3 0d 01 8d 15 72  65 73 25 3d a4 43 6c 61  |:=.....res%=.Cla|
00002070  69 6d 28 6c 25 2b 34 29  0d 01 8e 4a e7 20 72 65  |im(l%+4)...J. re|
00002080  73 25 3d 2d 31 20 8c 20  f2 52 65 70 6f 72 74 57  |s%=-1 . .ReportW|
00002090  69 6d 70 45 72 72 6f 72  28 22 4e 6f 74 20 65 6e  |impError("Not en|
000020a0  6f 75 67 68 20 6d 65 6d  6f 72 79 20 74 6f 20 6c  |ough memory to l|
000020b0  6f 61 64 20 72 65 73 6f  75 72 63 65 73 22 29 3a  |oad resources"):|
000020c0  3d a3 0d 01 8f 0d 72 65  73 25 21 30 3d 6c 25 0d  |=.....res%!0=l%.|
000020d0  01 90 21 ff 20 22 4c 4f  41 44 20 22 2b 72 65 73  |..!. "LOAD "+res|
000020e0  24 2b 22 20 22 2b c3 7e  28 72 65 73 25 2b 34 29  |$+" "+.~(res%+4)|
000020f0  0d 01 91 06 3d b9 0d 01  92 04 0d 01 93 1d dd 20  |....=.......... |
00002100  a4 46 69 6e 64 52 65 73  6f 75 72 63 65 53 74 72  |.FindResourceStr|
00002110  69 6e 67 28 72 24 29 0d  01 94 0e ea 20 6c 25 2c  |ing(r$)..... l%,|
00002120  72 65 6e 64 25 0d 01 95  2d e7 20 72 65 73 25 3d  |rend%...-. res%=|
00002130  30 20 8c 20 3d 22 55 6e  6b 6e 6f 77 6e 20 72 65  |0 . ="Unknown re|
00002140  73 6f 75 72 63 65 20 65  72 72 6f 72 3a 20 22 2b  |source error: "+|
00002150  72 24 0d 01 96 0d 6c 25  3d 72 65 73 25 21 30 0d  |r$....l%=res%!0.|
00002160  01 97 0d 61 25 3d 72 65  73 25 2b 34 0d 01 98 13  |...a%=res%+4....|
00002170  72 65 6e 64 25 3d 72 65  73 25 2b 6c 25 2b 34 0d  |rend%=res%+l%+4.|
00002180  01 99 08 66 25 3d a3 0d  01 9a 16 c8 95 20 61 25  |...f%=....... a%|
00002190  3c 72 65 6e 64 25 20 80  20 ac 20 66 25 0d 01 9b  |<rend% . . f%...|
000021a0  27 20 73 24 3d bd 28 61  25 3f 30 29 2b bd 28 61  |' s$=.(a%?0)+.(a|
000021b0  25 3f 31 29 2b bd 28 61  25 3f 32 29 2b bd 28 61  |%?1)+.(a%?2)+.(a|
000021c0  25 3f 33 29 0d 01 9c 0e  20 e7 20 73 24 3d 72 24  |%?3).... . s$=r$|
000021d0  20 8c 0d 01 9d 22 20 20  20 73 24 3d a4 67 65 74  | ...."   s$=.get|
000021e0  72 65 73 28 61 25 2b 35  2c 72 65 6e 64 25 29 3a  |res(a%+5,rend%):|
000021f0  66 25 3d b9 0d 01 9e 06  20 cc 0d 01 9f 1b 20 20  |f%=..... .....  |
00002200  20 c8 95 20 3f 61 25 3e  33 31 20 80 20 61 25 3c  | .. ?a%>31 . a%<|
00002210  72 65 6e 64 25 0d 01 a0  0e 20 20 20 20 20 61 25  |rend%....     a%|
00002220  2b 3d 31 0d 01 a1 08 20  20 20 ce 0d 01 a2 0c 20  |+=1....   ..... |
00002230  20 20 61 25 2b 3d 31 0d  01 a3 06 20 cd 0d 01 a4  |  a%+=1.... ....|
00002240  05 ce 0d 01 a5 0e e7 20  66 25 20 8c 20 3d 73 24  |....... f% . =s$|
00002250  0d 01 a6 22 3d 22 55 6e  6b 6e 6f 77 6e 20 72 65  |..."="Unknown re|
00002260  73 6f 75 72 63 65 20 65  72 72 6f 72 3a 20 22 2b  |source error: "+|
00002270  72 24 0d 01 a7 04 0d 01  a8 14 dd 20 a4 67 65 74  |r$......... .get|
00002280  72 65 73 28 72 25 2c 65  25 29 0d 01 a9 08 ea 20  |res(r%,e%)..... |
00002290  61 24 0d 01 aa 09 61 24  3d 22 22 0d 01 ab 16 c8  |a$....a$="".....|
000022a0  95 20 3f 72 25 3e 3d 33  32 20 80 20 72 25 3c 65  |. ?r%>=32 . r%<e|
000022b0  25 0d 01 ac 12 20 20 61  24 3d 61 24 2b bd 28 3f  |%....  a$=a$+.(?|
000022c0  72 25 29 0d 01 ad 0b 20  20 72 25 2b 3d 31 0d 01  |r%)....  r%+=1..|
000022d0  ae 05 ce 0d 01 af 07 3d  61 24 0d 01 b0 04 0d 01  |.......=a$......|
000022e0  b1 04 0d 01 b2 04 0d 01  b3 04 0d 01 b4 51 f4 20  |.............Q. |
000022f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002330  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 b5 05 f4  |-----------.....|
00002340  0d 01 b6 11 f4 20 4d 65  6d 6f 72 79 20 62 69 74  |..... Memory bit|
00002350  73 0d 01 b7 05 f4 0d 01  b8 4f f4 20 45 6e 73 75  |s........O. Ensu|
00002360  72 65 6d 65 6d 20 77 69  6c 6c 20 65 6e 73 75 72  |remem will ensur|
00002370  65 20 74 68 61 74 20 74  68 65 72 65 20 69 73 20  |e that there is |
00002380  65 6e 6f 75 67 68 20 6d  65 6d 6f 72 79 20 69 6e  |enough memory in|
00002390  20 74 68 65 20 76 61 72  69 61 62 6c 65 20 62 75  | the variable bu|
000023a0  66 66 65 72 2e 0d 01 b9  4f f4 20 54 68 69 73 20  |ffer....O. This |
000023b0  62 75 66 66 65 72 20 69  73 20 68 65 6c 64 20 61  |buffer is held a|
000023c0  62 6f 76 65 20 48 49 4d  45 4d 2c 20 75 73 69 6e  |bove HIMEM, usin|
000023d0  67 20 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 20  |g Wimp_SlotSize |
000023e0  74 6f 20 72 65 73 69 7a  65 20 74 68 65 20 61 6d  |to resize the am|
000023f0  6f 75 6e 74 0d 01 ba 15  f4 20 6f 66 20 6d 65 6d  |ount..... of mem|
00002400  6f 72 79 20 66 72 65 65  2e 0d 01 bb 05 f4 0d 01  |ory free........|
00002410  bc 51 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.Q. ------------|
00002420  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00002460  01 bd 04 0d 01 be 04 0d  01 bf 0f dd 20 f2 4d 65  |............ .Me|
00002470  6d 5f 49 6e 69 74 0d 01  c0 0e 4d 79 48 69 6d 65  |m_Init....MyHime|
00002480  6d 20 3d 93 0d 01 c1 0e  62 61 73 65 20 20 20 20  |m =.....base    |
00002490  3d 93 0d 01 c2 11 69 6e  73 65 72 74 20 20 3d 62  |=.....insert  =b|
000024a0  61 73 65 0d 01 c3 38 c8  99 20 22 57 69 6d 70 5f  |ase...8.. "Wimp_|
000024b0  53 6c 6f 74 53 69 7a 65  22 2c 2d 31 2c 2d 31 20  |SlotSize",-1,-1 |
000024c0  b8 20 6f 72 69 67 73 6c  6f 74 25 2c 65 6e 76 6e  |. origslot%,envn|
000024d0  65 78 74 2c 65 6e 76 66  72 65 65 0d 01 c4 2e c8  |ext,envfree.....|
000024e0  99 20 22 4f 53 5f 52 65  61 64 4d 65 6d 4d 61 70  |. "OS_ReadMemMap|
000024f0  49 6e 66 6f 22 20 b8 20  70 61 67 65 73 69 7a 65  |Info" . pagesize|
00002500  2c 6e 75 6d 70 61 67 65  73 0d 01 c5 05 e1 0d 01  |,numpages.......|
00002510  c6 04 0d 01 c7 04 0d 01  c8 11 dd 20 a4 43 6c 61  |........... .Cla|
00002520  69 6d 28 72 65 71 29 0d  01 c9 14 72 65 71 3d 28  |im(req)....req=(|
00002530  72 65 71 2b 33 29 20 80  20 2d 34 0d 01 ca 3a e7  |req+3) . -4...:.|
00002540  20 28 69 6e 73 65 72 74  2b 72 65 71 29 3c 4d 79  | (insert+req)<My|
00002550  48 69 6d 65 6d 20 8c 20  69 6e 73 65 72 74 3d 69  |Himem . insert=i|
00002560  6e 73 65 72 74 2b 72 65  71 3a 3d 69 6e 73 65 72  |nsert+req:=inser|
00002570  74 2d 72 65 71 0d 01 cb  4b c8 99 20 22 57 69 6d  |t-req...K.. "Wim|
00002580  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
00002590  31 20 b8 20 63 75 72 72  65 6e 74 2c 6e 65 78 74  |1 . current,next|
000025a0  2c 66 72 65 65 20 20 20  20 20 20 20 20 20 20 20  |,free           |
000025b0  3a f4 20 67 65 74 20 73  6c 6f 74 20 69 6e 66 6f  |:. get slot info|
000025c0  0d 01 cc 17 6e 65 77 68  69 6d 65 6d 3d 69 6e 73  |....newhimem=ins|
000025d0  65 72 74 2b 72 65 71 0d  01 cd 18 6e 65 77 68 69  |ert+req....newhi|
000025e0  6d 65 6d 2b 3d 70 61 67  65 73 69 7a 65 2d 31 0d  |mem+=pagesize-1.|
000025f0  01 ce 29 6e 65 77 68 69  6d 65 6d 20 3d 6e 65 77  |..)newhimem =new|
00002600  68 69 6d 65 6d 20 80 20  28 ac 20 28 70 61 67 65  |himem . (. (page|
00002610  73 69 7a 65 2d 31 29 29  0d 01 cf 21 e7 20 6e 65  |size-1))...!. ne|
00002620  77 68 69 6d 65 6d 2d 4d  79 48 69 6d 65 6d 3e 66  |whimem-MyHimem>f|
00002630  72 65 65 20 8c 20 3d 2d  31 0d 01 d0 20 6e 65 78  |ree . =-1... nex|
00002640  74 3d 6e 65 78 74 2d 28  6e 65 77 68 69 6d 65 6d  |t=next-(newhimem|
00002650  2d 4d 79 48 69 6d 65 6d  29 0d 01 d1 26 63 75 72  |-MyHimem)...&cur|
00002660  72 65 6e 74 3d 63 75 72  72 65 6e 74 2b 28 6e 65  |rent=current+(ne|
00002670  77 68 69 6d 65 6d 2d 4d  79 48 69 6d 65 6d 29 0d  |whimem-MyHimem).|
00002680  01 d2 37 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |..7.. "Wimp_Slot|
00002690  53 69 7a 65 22 2c 63 75  72 72 65 6e 74 2c 6e 65  |Size",current,ne|
000026a0  78 74 20 b8 20 63 75 72  72 65 6e 74 2c 6e 65 78  |xt . current,nex|
000026b0  74 2c 66 72 65 65 0d 01  d3 19 4d 79 48 69 6d 65  |t,free....MyHime|
000026c0  6d 3d 63 75 72 72 65 6e  74 2b 26 38 30 30 30 0d  |m=current+&8000.|
000026d0  01 d4 15 69 6e 73 65 72  74 3d 69 6e 73 65 72 74  |...insert=insert|
000026e0  2b 72 65 71 0d 01 d5 0f  3d 69 6e 73 65 72 74 2d  |+req....=insert-|
000026f0  72 65 71 0d 01 d6 04 0d  01 d7 13 dd 20 f2 4d 65  |req......... .Me|
00002700  6d 5f 4b 69 6c 6c 53 6c  6f 74 0d 01 d8 30 c8 99  |m_KillSlot...0..|
00002710  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
00002720  2c 6f 72 69 67 73 6c 6f  74 25 2c 65 6e 76 6e 65  |,origslot%,envne|
00002730  78 74 2c 65 6e 76 66 72  65 65 0d 01 d9 0d f2 4d  |xt,envfree.....M|
00002740  65 6d 5f 49 6e 69 74 0d  01 da 05 e1 0d 01 db 04  |em_Init.........|
00002750  0d 01 dc 04 0d 01 dd 04  0d 01 de 51 f4 20 2d 2d  |...........Q. --|
00002760  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000027a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 01 df 05 f4 0d 01  |---------.......|
000027b0  e0 29 f4 20 4f 6b 20 66  69 6e 61 6c 6c 79 20 61  |.). Ok finally a|
000027c0  70 70 6c 69 63 61 74 69  6f 6e 20 72 65 6c 61 74  |pplication relat|
000027d0  65 64 20 63 6f 64 65 0d  01 e1 05 f4 0d 01 e2 51  |ed code........Q|
000027e0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
000027f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002820  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 01 e3  |-------------...|
00002830  04 0d 01 e4 04 0d 01 e5  29 dd 20 a4 46 69 6c 74  |........). .Filt|
00002840  65 72 50 68 6f 74 6f 43  44 28 63 66 25 2c 70 61  |erPhotoCD(cf%,pa|
00002850  74 68 24 2c 6c 65 6e 25  2c 66 6c 67 25 29 0d 01  |th$,len%,flg%)..|
00002860  e6 11 e7 20 63 66 25 3c  3e 31 20 8c 20 3d 30 0d  |... cf%<>1 . =0.|
00002870  01 e7 22 50 61 63 6b 4e  61 6d 65 20 3d 20 a4 67  |.."PackName = .g|
00002880  65 74 70 61 63 6b 6e 61  6d 65 28 70 61 74 68 24  |etpackname(path$|
00002890  29 0d 01 e8 15 e7 20 50  61 63 6b 4e 61 6d 65 3d  |)..... PackName=|
000028a0  30 20 8c 20 3d 30 0d 01  e9 25 70 61 63 6b 68 64  |0 . =0...%packhd|
000028b0  6c 65 25 3d a4 50 68 6f  74 6f 43 44 5f 4f 70 65  |le%=.PhotoCD_Ope|
000028c0  6e 28 50 61 63 6b 4e 61  6d 65 29 0d 01 ea 16 e7  |n(PackName).....|
000028d0  20 70 61 63 6b 68 64 6c  65 25 3d 30 20 8c 20 3d  | packhdle%=0 . =|
000028e0  30 0d 01 eb 40 c8 99 20  22 58 50 68 6f 74 6f 43  |0...@.. "XPhotoC|
000028f0  44 5f 47 65 74 52 6f 74  61 74 69 6f 6e 22 2c 70  |D_GetRotation",p|
00002900  61 63 6b 68 64 6c 65 25  2c 30 20 b8 20 65 72 72  |ackhdle%,0 . err|
00002910  25 2c 2c 74 72 6e 73 66  6d 25 3b 66 6c 61 67 73  |%,,trnsfm%;flags|
00002920  25 0d 01 ec 40 e7 20 66  6c 61 67 73 25 20 80 20  |%...@. flags% . |
00002930  31 20 8c 20 f2 50 65 65  6b 45 72 72 6f 72 28 65  |1 . .PeekError(e|
00002940  72 72 25 29 3a f2 50 68  6f 74 6f 43 44 5f 43 6c  |rr%):.PhotoCD_Cl|
00002950  6f 73 65 28 70 61 63 6b  68 64 6c 65 25 29 3a 3d  |ose(packhdle%):=|
00002960  30 0d 01 ed 11 f2 63 6f  6e 74 72 6f 6c 5f 69 6e  |0.....control_in|
00002970  66 6f 0d 01 ee 0e 6f 62  70 70 25 3d 62 70 70 25  |fo....obpp%=bpp%|
00002980  0d 01 ef 0d 78 72 65 73  25 3d 72 78 25 0d 01 f0  |....xres%=rx%...|
00002990  0d 79 72 65 73 25 3d 72  79 25 0d 01 f1 04 0d 01  |.yres%=ry%......|
000029a0  f2 0e c8 8e 20 74 79 70  65 25 20 ca 0d 01 f3 11  |.... type% .....|
000029b0  20 c9 20 30 3a 6f 74 79  70 65 25 3d 30 0d 01 f4  | . 0:otype%=0...|
000029c0  11 20 c9 20 31 3a 6f 74  79 70 65 25 3d 33 0d 01  |. . 1:otype%=3..|
000029d0  f5 11 20 c9 20 32 3a 6f  74 79 70 65 25 3d 32 0d  |.. . 2:otype%=2.|
000029e0  01 f6 05 cb 0d 01 f7 04  0d 01 f8 10 e7 20 6f 74  |............. ot|
000029f0  79 70 65 25 3d 32 20 8c  0d 01 f9 0f 20 20 70 61  |ype%=2 .....  pa|
00002a00  6c 6e 75 6d 25 3d 30 0d  01 fa 0e 20 20 70 6c 61  |lnum%=0....  pla|
00002a10  6e 65 25 3d 31 0d 01 fb  0f 20 20 63 6f 6c 75 6d  |ne%=1....  colum|
00002a20  6e 25 3d 34 0d 01 fc 14  20 20 73 70 72 74 25 3d  |n%=4....  sprt%=|
00002a30  53 54 5f 33 32 62 70 70  0d 01 fd 05 cc 0d 01 fe  |ST_32bpp........|
00002a40  11 20 20 70 61 6c 6e 75  6d 25 3d 32 35 36 0d 01  |.  palnum%=256..|
00002a50  ff 0e 20 20 70 6c 61 6e  65 25 3d 31 0d 02 00 0f  |..  plane%=1....|
00002a60  20 20 63 6f 6c 75 6d 6e  25 3d 31 0d 02 01 13 20  |  column%=1.... |
00002a70  20 73 70 72 74 25 3d 53  54 5f 38 62 70 70 0d 02  | sprt%=ST_8bpp..|
00002a80  02 05 cd 0d 02 03 17 70  61 6c 73 69 7a 65 25 3d  |.......palsize%=|
00002a90  70 61 6c 6e 75 6d 25 3c  3c 33 0d 02 04 04 0d 02  |palnum%<<3......|
00002aa0  05 30 f4 20 2a 2a 20 62  75 69 6c 64 20 74 68 65  |.0. ** build the|
00002ab0  20 70 68 6f 74 6f 20 63  64 20 62 69 74 6d 61 70  | photo cd bitmap|
00002ac0  20 64 61 74 61 20 62 6c  6f 63 6b 20 2a 2a 0d 02  | data block **..|
00002ad0  06 04 0d 02 07 0f 62 6d  64 62 21 30 20 20 3d 20  |......bmdb!0  = |
00002ae0  30 0d 02 08 0f 62 6d 64  62 21 34 20 20 3d 20 30  |0....bmdb!4  = 0|
00002af0  0d 02 09 13 62 6d 64 62  21 38 20 20 3d 20 78 72  |....bmdb!8  = xr|
00002b00  65 73 25 0d 02 0a 13 62  6d 64 62 21 31 32 20 3d  |es%....bmdb!12 =|
00002b10  20 79 72 65 73 25 0d 02  0b 12 62 6d 64 62 21 31  | yres%....bmdb!1|
00002b20  36 20 3d 20 25 30 31 31  0d 02 0c 23 62 6d 64 62  |6 = %011...#bmdb|
00002b30  21 32 30 20 3d 20 6f 74  79 70 65 25 20 20 3a f4  |!20 = otype%  :.|
00002b40  20 63 6f 6c 20 66 6f 72  6d 61 74 0d 02 0d 25 62  | col format...%b|
00002b50  6d 64 62 21 32 34 20 3d  20 70 6c 61 6e 65 25 20  |mdb!24 = plane% |
00002b60  20 3a f4 20 70 6c 61 6e  65 20 6f 66 66 73 65 74  | :. plane offset|
00002b70  0d 02 0e 26 62 6d 64 62  21 32 38 20 3d 20 63 6f  |...&bmdb!28 = co|
00002b80  6c 75 6d 6e 25 20 3a f4  20 63 6f 6c 75 6d 6e 20  |lumn% :. column |
00002b90  6f 66 66 73 65 74 0d 02  0f 15 62 6d 64 62 21 33  |offset....bmdb!3|
00002ba0  32 20 3d 20 70 61 6c 6e  75 6d 25 0d 02 10 15 62  |2 = palnum%....b|
00002bb0  6d 64 62 21 33 36 20 3d  20 73 63 72 61 74 63 68  |mdb!36 = scratch|
00002bc0  0d 02 11 04 0d 02 12 0d  c8 8e 20 66 6c 67 25 20  |.......... flg% |
00002bd0  ca 0d 02 13 12 20 c9 20  30 3a 69 6d 68 64 72 25  |..... . 0:imhdr%|
00002be0  3d 36 34 0d 02 14 12 20  c9 20 31 3a 69 6d 68 64  |=64.... . 1:imhd|
00002bf0  72 25 3d 31 32 0d 02 15  11 20 c9 20 32 3a 69 6d  |r%=12.... . 2:im|
00002c00  68 64 72 25 3d 30 0d 02  16 05 cb 0d 02 17 04 0d  |hdr%=0..........|
00002c10  02 18 34 69 6d 61 67 65  73 69 7a 65 3d a4 49 6d  |..4imagesize=.Im|
00002c20  61 67 65 53 69 7a 65 28  6f 62 70 70 25 2c 78 72  |ageSize(obpp%,xr|
00002c30  65 73 25 2c 79 72 65 73  25 29 2b 70 61 6c 73 69  |es%,yres%)+palsi|
00002c40  7a 65 25 0d 02 19 22 49  6d 61 67 65 3d a4 43 6c  |ze%..."Image=.Cl|
00002c50  61 69 6d 28 69 6d 61 67  65 73 69 7a 65 2b 69 6d  |aim(imagesize+im|
00002c60  68 64 72 25 29 0d 02 1a  3f e7 20 49 6d 61 67 65  |hdr%)...?. Image|
00002c70  3d 2d 31 20 8c 20 f2 52  65 73 45 72 72 6f 72 28  |=-1 . .ResError(|
00002c80  22 43 46 30 31 22 29 3a  f2 50 68 6f 74 6f 43 44  |"CF01"):.PhotoCD|
00002c90  5f 43 6c 6f 73 65 28 70  61 63 6b 68 64 6c 65 25  |_Close(packhdle%|
00002ca0  29 3a 3d 30 0d 02 1b 40  f2 63 72 65 61 74 65 73  |):=0...@.creates|
00002cb0  70 72 69 74 65 28 6f 62  70 70 25 2c 78 72 65 73  |prite(obpp%,xres|
00002cc0  25 2c 79 72 65 73 25 2c  73 70 72 74 25 2c 70 61  |%,yres%,sprt%,pa|
00002cd0  6c 73 69 7a 65 25 2c 49  6d 61 67 65 2b 69 6d 68  |lsize%,Image+imh|
00002ce0  64 72 25 29 0d 02 1c 2e  e7 20 6f 74 79 70 65 25  |dr%)..... otype%|
00002cf0  3d 30 20 8c 20 f2 70 61  6c 5f 64 65 66 67 72 65  |=0 . .pal_defgre|
00002d00  79 28 49 6d 61 67 65 2b  69 6d 68 64 72 25 2b 34  |y(Image+imhdr%+4|
00002d10  34 29 0d 02 1d 2f e7 20  6f 74 79 70 65 25 3d 33  |4).../. otype%=3|
00002d20  20 8c 20 f2 70 61 6c 5f  64 65 66 63 6f 6c 28 49  | . .pal_defcol(I|
00002d30  6d 61 67 65 2b 69 6d 68  64 72 25 2b 34 34 2c 33  |mage+imhdr%+44,3|
00002d40  29 0d 02 1e 27 e7 20 6f  74 79 70 65 25 3d 33 20  |)...'. otype%=3 |
00002d50  8c 20 f2 70 61 6c 5f 64  65 66 63 6f 6c 28 73 63  |. .pal_defcol(sc|
00002d60  72 61 74 63 68 2c 32 29  0d 02 1f 25 73 74 72 69  |ratch,2)...%stri|
00002d70  64 65 25 3d 28 21 28 49  6d 61 67 65 2b 69 6d 68  |de%=(!(Image+imh|
00002d80  64 72 25 2b 31 36 29 2b  31 29 3c 3c 32 0d 02 20  |dr%+16)+1)<<2.. |
00002d90  0d c8 8e 20 66 6c 67 25  20 ca 0d 02 21 20 20 20  |... flg% ...!   |
00002da0  c9 20 30 3a f2 49 6e 69  74 44 72 61 77 48 65 61  |. 0:.InitDrawHea|
00002db0  64 65 72 28 49 6d 61 67  65 29 0d 02 22 22 20 20  |der(Image)..""  |
00002dc0  c9 20 31 3a f2 49 6e 69  74 53 70 72 69 74 65 48  |. 1:.InitSpriteH|
00002dd0  65 61 64 65 72 28 49 6d  61 67 65 29 0d 02 23 05  |eader(Image)..#.|
00002de0  cb 0d 02 24 15 c8 99 20  22 48 6f 75 72 67 6c 61  |...$... "Hourgla|
00002df0  73 73 5f 4f 6e 22 0d 02  25 68 c8 99 20 22 58 50  |ss_On"..%h.. "XP|
00002e00  68 6f 74 6f 43 44 5f 47  65 74 42 6c 6f 63 6b 22  |hotoCD_GetBlock"|
00002e10  2c 70 61 63 6b 68 64 6c  65 25 2c 30 2c 62 6d 64  |,packhdle%,0,bmd|
00002e20  62 2c 49 6d 61 67 65 2b  69 6d 68 64 72 25 2b 34  |b,Image+imhdr%+4|
00002e30  34 2b 70 61 6c 73 69 7a  65 25 2c 72 65 73 73 25  |4+palsize%,ress%|
00002e40  2c 74 72 6e 73 66 6d 25  2c 73 74 72 69 64 65 25  |,trnsfm%,stride%|
00002e50  20 b8 20 65 72 72 25 3b  66 6c 61 67 73 25 0d 02  | . err%;flags%..|
00002e60  26 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |&... "Hourglass_|
00002e70  4f 66 66 22 0d 02 27 40  e7 20 66 6c 61 67 73 25  |Off"..'@. flags%|
00002e80  20 80 20 31 20 8c 20 f2  50 65 65 6b 45 72 72 6f  | . 1 . .PeekErro|
00002e90  72 28 65 72 72 25 29 3a  f2 50 68 6f 74 6f 43 44  |r(err%):.PhotoCD|
00002ea0  5f 43 6c 6f 73 65 28 70  61 63 6b 68 64 6c 65 25  |_Close(packhdle%|
00002eb0  29 3a 3d 30 0d 02 28 21  c8 99 20 22 58 50 68 6f  |):=0..(!.. "XPho|
00002ec0  74 6f 43 44 5f 43 6c 6f  73 65 22 2c 70 61 63 6b  |toCD_Close",pack|
00002ed0  68 64 6c 65 25 0d 02 29  06 3d b9 0d 02 2a 04 0d  |hdle%..).=...*..|
00002ee0  02 2b 1d dd 20 a4 50 68  6f 74 6f 43 44 5f 4f 70  |.+.. .PhotoCD_Op|
00002ef0  65 6e 28 50 61 6b 4e 61  6d 65 25 29 0d 02 2c 12  |en(PakName%)..,.|
00002f00  ea 20 68 64 6c 65 25 2c  66 6c 61 67 73 25 0d 02  |. hdle%,flags%..|
00002f10  2d 32 c8 99 20 22 58 50  68 6f 74 6f 43 44 5f 4f  |-2.. "XPhotoCD_O|
00002f20  70 65 6e 22 2c 31 2c 50  61 6b 4e 61 6d 65 25 2c  |pen",1,PakName%,|
00002f30  30 20 b8 20 68 64 6c 65  25 3b 66 6c 61 67 73 25  |0 . hdle%;flags%|
00002f40  0d 02 2e 27 e7 20 66 6c  61 67 73 25 20 80 20 31  |...'. flags% . 1|
00002f50  20 8c 20 f2 50 65 65 6b  45 72 72 6f 72 28 68 64  | . .PeekError(hd|
00002f60  6c 65 25 29 3a 3d 30 0d  02 2f 0a 3d 68 64 6c 65  |le%):=0../.=hdle|
00002f70  25 0d 02 30 04 0d 02 31  1b dd 20 f2 50 68 6f 74  |%..0...1.. .Phot|
00002f80  6f 43 44 5f 43 6c 6f 73  65 28 68 64 6c 65 25 29  |oCD_Close(hdle%)|
00002f90  0d 02 32 1d c8 99 20 22  58 50 68 6f 74 6f 43 44  |..2... "XPhotoCD|
00002fa0  5f 43 6c 6f 73 65 22 2c  68 64 6c 65 25 0d 02 33  |_Close",hdle%..3|
00002fb0  05 e1 0d 02 34 04 0d 02  35 1e dd 20 a4 50 68 6f  |....4...5.. .Pho|
00002fc0  74 6f 43 44 5f 50 61 63  6b 49 6e 66 6f 28 68 64  |toCD_PackInfo(hd|
00002fd0  6c 65 25 29 0d 02 36 11  ea 20 65 72 72 25 2c 66  |le%)..6.. err%,f|
00002fe0  6c 61 67 73 25 0d 02 37  3c c8 99 20 22 58 50 68  |lags%..7<.. "XPh|
00002ff0  6f 74 6f 43 44 5f 47 65  74 52 6f 74 61 74 69 6f  |otoCD_GetRotatio|
00003000  6e 22 2c 68 64 6c 65 25  2c 30 20 b8 20 65 72 72  |n",hdle%,0 . err|
00003010  25 2c 2c 74 72 6e 73 66  6d 25 3b 66 6c 61 67 73  |%,,trnsfm%;flags|
00003020  25 0d 02 38 26 e7 20 66  6c 61 67 73 25 20 80 20  |%..8&. flags% . |
00003030  31 20 8c 20 f2 50 65 65  6b 45 72 72 6f 72 28 65  |1 . .PeekError(e|
00003040  72 72 25 29 3a 3d 30 0d  02 39 39 c8 99 20 22 58  |rr%):=0..99.. "X|
00003050  50 68 6f 74 6f 43 44 5f  47 65 74 43 6f 75 6e 74  |PhotoCD_GetCount|
00003060  22 2c 68 64 6c 65 25 20  b8 20 65 72 72 25 2c 72  |",hdle% . err%,r|
00003070  65 73 6d 25 2c 72 65 73  6e 25 3b 66 6c 61 67 73  |esm%,resn%;flags|
00003080  0d 02 3a 26 e7 20 66 6c  61 67 73 25 20 80 20 31  |..:&. flags% . 1|
00003090  20 8c 20 f2 50 65 65 6b  45 72 72 6f 72 28 65 72  | . .PeekError(er|
000030a0  72 25 29 3a 3d 30 0d 02  3b 21 e7 20 72 65 73 6d  |r%):=0..;!. resm|
000030b0  25 3d 30 20 8c 20 f2 52  65 73 45 72 72 6f 72 28  |%=0 . .ResError(|
000030c0  22 43 46 30 39 22 29 0d  02 3c 06 3d b9 0d 02 3d  |"CF09")..<.=...=|
000030d0  04 0d 02 3e 21 dd 20 a4  50 68 6f 74 6f 43 44 5f  |...>!. .PhotoCD_|
000030e0  47 65 74 52 65 73 28 68  64 6c 65 25 2c 70 69 63  |GetRes(hdle%,pic|
000030f0  25 29 0d 02 3f 11 ea 20  65 72 72 25 2c 66 6c 61  |%)..?.. err%,fla|
00003100  67 73 25 0d 02 40 4b c8  99 20 22 58 50 68 6f 74  |gs%..@K.. "XPhot|
00003110  6f 43 44 5f 47 65 74 53  69 7a 65 22 2c 68 64 6c  |oCD_GetSize",hdl|
00003120  65 25 2c 30 2c 70 69 63  25 2c 74 72 6e 73 66 6d  |e%,0,pic%,trnsfm|
00003130  25 20 b8 20 65 72 72 25  2c 2c 2c 2c 78 72 65 73  |% . err%,,,,xres|
00003140  25 2c 79 72 65 73 25 3b  66 6c 61 67 73 25 0d 02  |%,yres%;flags%..|
00003150  41 26 e7 20 66 6c 61 67  73 25 20 80 20 31 20 8c  |A&. flags% . 1 .|
00003160  20 f2 50 65 65 6b 45 72  72 6f 72 28 65 72 72 25  | .PeekError(err%|
00003170  29 3a 3d 30 0d 02 42 06  3d b9 0d 02 43 04 0d 02  |):=0..B.=...C...|
00003180  44 19 dd 20 a4 67 65 74  70 61 63 6b 6e 61 6d 65  |D.. .getpackname|
00003190  28 70 61 74 68 24 29 0d  02 45 13 24 50 61 63 6b  |(path$)..E.$Pack|
000031a0  4e 61 6d 65 3d 70 61 74  68 24 0d 02 46 0d 3d 50  |Name=path$..F.=P|
000031b0  61 63 6b 4e 61 6d 65 0d  02 47 1c 70 6e 75 6d 25  |ackName..G.pnum%|
000031c0  3d a4 67 65 74 70 61 63  6b 6e 75 6d 28 70 61 74  |=.getpacknum(pat|
000031d0  68 24 29 0d 02 48 24 e7  20 70 6e 75 6d 25 3d 30  |h$)..H$. pnum%=0|
000031e0  20 8c 20 f2 52 65 73 45  72 72 6f 72 28 22 43 46  | . .ResError("CF|
000031f0  30 34 22 29 3a 3d 30 0d  02 49 24 e7 20 70 6e 75  |04"):=0..I$. pnu|
00003200  6d 25 3c 30 20 8c 20 f2  52 65 73 45 72 72 6f 72  |m%<0 . .ResError|
00003210  28 22 43 46 30 36 22 29  3a 3d 30 0d 02 4a 2c e7  |("CF06"):=0..J,.|
00003220  20 a7 70 61 74 68 24 2c  72 6f 6f 74 24 29 3d 30  | .path$,root$)=0|
00003230  20 8c 20 f2 52 65 73 45  72 72 6f 72 28 22 43 46  | . .ResError("CF|
00003240  30 35 22 29 3a 3d 30 0d  02 4b 25 70 61 74 68 73  |05"):=0..K%paths|
00003250  70 65 63 24 3d c0 70 61  74 68 24 2c a7 70 61 74  |pec$=.path$,.pat|
00003260  68 24 2c 72 6f 6f 74 24  29 2d 31 29 0d 02 4c 29  |h$,root$)-1)..L)|
00003270  e7 20 70 61 74 68 73 70  65 63 24 3d 22 22 20 8c  |. pathspec$="" .|
00003280  20 f2 52 65 73 45 72 72  6f 72 28 22 43 46 30 35  | .ResError("CF05|
00003290  22 29 3a 3d 30 0d 02 4d  4e c8 99 20 22 58 50 68  |"):=0..MN.. "XPh|
000032a0  6f 74 6f 43 44 5f 47 65  74 50 61 63 4e 61 6d 65  |otoCD_GetPacName|
000032b0  22 2c 70 6e 75 6d 25 2c  50 61 63 6b 4e 61 6d 65  |",pnum%,PackName|
000032c0  2c 32 35 36 2c 70 61 74  68 73 70 65 63 24 20 b8  |,256,pathspec$ .|
000032d0  20 65 72 72 25 2c 2c 73  69 7a 65 25 3b 66 6c 61  | err%,,size%;fla|
000032e0  67 73 25 0d 02 4e 26 e7  20 66 6c 61 67 73 25 20  |gs%..N&. flags% |
000032f0  80 20 31 20 8c 20 f2 50  65 65 6b 45 72 72 6f 72  |. 1 . .PeekError|
00003300  28 65 72 72 25 29 3a 3d  30 0d 02 4f 14 50 61 63  |(err%):=0..O.Pac|
00003310  6b 4e 61 6d 65 3f 73 69  7a 65 25 3d 30 0d 02 50  |kName?size%=0..P|
00003320  0d 3d 50 61 63 6b 4e 61  6d 65 0d 02 51 04 0d 02  |.=PackName..Q...|
00003330  52 15 dd 20 a4 67 65 74  70 61 63 6b 6e 75 6d 28  |R.. .getpacknum(|
00003340  70 24 29 0d 02 53 17 70  24 3d c1 70 24 2c a7 70  |p$)..S.p$=.p$,.p|
00003350  24 2c 22 2e 49 4d 47 22  29 29 0d 02 54 0d 70 24  |$,".IMG"))..T.p$|
00003360  3d c1 70 24 2c 35 29 0d  02 55 11 e7 20 70 24 3d  |=.p$,5)..U.. p$=|
00003370  22 22 20 8c 20 3d 2d 31  0d 02 56 13 3d a4 67 65  |"" . =-1..V.=.ge|
00003380  74 73 74 72 76 61 6c 28  70 24 29 0d 02 57 04 0d  |tstrval(p$)..W..|
00003390  02 58 14 dd 20 a4 67 65  74 73 74 72 76 61 6c 28  |.X.. .getstrval(|
000033a0  70 24 29 0d 02 59 0e ea  20 69 25 2c 78 25 2c 79  |p$)..Y.. i%,x%,y|
000033b0  25 0d 02 5a 0d 69 25 3d  31 3a 79 25 3d 30 0d 02  |%..Z.i%=1:y%=0..|
000033c0  5b 05 f5 0d 02 5c 19 20  78 25 3d 97 28 c1 70 24  |[....\. x%=.(.p$|
000033d0  2c 69 25 2c 31 29 29 2d  97 22 30 22 0d 02 5d 22  |,i%,1))-."0"..]"|
000033e0  20 e7 20 78 25 3e 2d 31  20 80 20 78 25 3c 31 30  | . x%>-1 . x%<10|
000033f0  20 8c 20 79 25 3d 79 25  2a 31 30 2b 78 25 0d 02  | . y%=y%*10+x%..|
00003400  5e 0a 20 69 25 2b 3d 31  0d 02 5f 1e fd 20 69 25  |^. i%+=1.._.. i%|
00003410  3d a9 28 70 24 29 2b 31  20 84 20 78 25 3c 30 20  |=.(p$)+1 . x%<0 |
00003420  84 20 78 25 3e 39 0d 02  60 07 3d 79 25 0d 02 61  |. x%>9..`.=y%..a|
00003430  04 0d 02 62 04 0d 02 63  34 dd 20 f2 63 72 65 61  |...b...c4. .crea|
00003440  74 65 73 70 72 69 74 65  28 62 70 70 25 2c 78 25  |tesprite(bpp%,x%|
00003450  2c 79 25 2c 74 79 70 65  25 2c 70 61 6c 73 69 7a  |,y%,type%,palsiz|
00003460  65 25 2c 62 75 66 66 25  29 0d 02 64 17 ea 20 62  |e%,buff%)..d.. b|
00003470  69 74 73 25 2c 77 72 64  73 25 2c 73 69 7a 65 25  |its%,wrds%,size%|
00003480  0d 02 65 11 62 69 74 73  25 3d 62 70 70 25 2a 78  |..e.bits%=bpp%*x|
00003490  25 0d 02 66 1f 77 72 64  73 25 3d 28 28 62 69 74  |%..f.wrds%=((bit|
000034a0  73 25 2b 33 31 29 20 80  20 2d 33 32 29 3e 3e 35  |s%+31) . -32)>>5|
000034b0  0d 02 67 23 73 69 7a 65  25 3d 34 34 2b 70 61 6c  |..g#size%=44+pal|
000034c0  73 69 7a 65 25 2b 28 77  72 64 73 25 3c 3c 32 29  |size%+(wrds%<<2)|
000034d0  2a 79 25 0d 02 68 14 62  69 74 73 25 3d 62 69 74  |*y%..h.bits%=bit|
000034e0  73 25 20 80 20 33 31 0d  02 69 11 62 69 74 73 25  |s% . 31..i.bits%|
000034f0  3d 62 69 74 73 25 2d 31  0d 02 6a 14 62 69 74 73  |=bits%-1..j.bits|
00003500  25 3d 62 69 74 73 25 20  80 20 33 31 0d 02 6b 11  |%=bits% . 31..k.|
00003510  62 75 66 66 25 21 30 3d  73 69 7a 65 25 0d 02 6c  |buff%!0=size%..l|
00003520  23 f2 73 74 75 66 66 69  74 28 22 69 6d 61 67 65  |#.stuffit("image|
00003530  70 69 63 22 2c 31 32 2c  62 75 66 66 25 2b 34 29  |pic",12,buff%+4)|
00003540  0d 02 6d 14 62 75 66 66  25 21 31 36 3d 77 72 64  |..m.buff%!16=wrd|
00003550  73 25 2d 31 0d 02 6e 11  62 75 66 66 25 21 32 30  |s%-1..n.buff%!20|
00003560  3d 79 25 2d 31 0d 02 6f  0e 62 75 66 66 25 21 32  |=y%-1..o.buff%!2|
00003570  34 3d 30 0d 02 70 12 62  75 66 66 25 21 32 38 3d  |4=0..p.buff%!28=|
00003580  62 69 74 73 25 0d 02 71  18 62 75 66 66 25 21 33  |bits%..q.buff%!3|
00003590  32 3d 70 61 6c 73 69 7a  65 25 2b 34 34 0d 02 72  |2=palsize%+44..r|
000035a0  18 62 75 66 66 25 21 33  36 3d 70 61 6c 73 69 7a  |.buff%!36=palsiz|
000035b0  65 25 2b 34 34 0d 02 73  15 e7 20 74 79 70 65 25  |e%+44..s.. type%|
000035c0  3e 53 54 5f 38 62 70 70  20 8c 0d 02 74 38 20 62  |>ST_8bpp ...t8 b|
000035d0  75 66 66 25 21 34 30 3d  28 74 79 70 65 25 3c 3c  |uff%!40=(type%<<|
000035e0  53 54 5f 53 68 69 66 74  29 20 84 20 28 39 30 3c  |ST_Shift) . (90<|
000035f0  3c 31 34 29 20 84 20 28  39 30 3c 3c 31 29 20 84  |<14) . (90<<1) .|
00003600  20 31 0d 02 75 05 cc 0d  02 76 1a 20 62 75 66 66  | 1..u....v. buff|
00003610  25 21 34 30 3d 28 74 79  70 65 25 2b 31 38 2d 31  |%!40=(type%+18-1|
00003620  29 0d 02 77 05 cd 0d 02  78 05 e1 0d 02 79 04 0d  |)..w....x....y..|
00003630  02 7a 1b dd 20 f2 73 74  75 66 66 69 74 28 6e 24  |.z.. .stuffit(n$|
00003640  2c 6c 65 6e 2c 62 75 66  66 29 0d 02 7b 0b ea 20  |,len,buff)..{.. |
00003650  69 25 2c 78 25 0d 02 7c  0b 78 25 3d a9 20 6e 24  |i%,x%..|.x%=. n$|
00003660  0d 02 7d 15 e7 20 78 25  3e 6c 65 6e 20 8c 20 78  |..}.. x%>len . x|
00003670  25 3d 6c 65 6e 0d 02 7e  11 e3 20 69 25 3d 30 20  |%=len..~.. i%=0 |
00003680  b8 20 78 25 2d 31 0d 02  7f 1c 20 62 75 66 66 3f  |. x%-1.... buff?|
00003690  69 25 20 3d 20 97 20 c1  6e 24 2c 69 25 2b 31 2c  |i% = . .n$,i%+1,|
000036a0  31 29 0d 02 80 05 ed 0d  02 81 10 e7 20 78 25 3d  |1).......... x%=|
000036b0  6c 65 6e 20 8c 20 e1 0d  02 82 13 e3 20 69 25 3d  |len . ...... i%=|
000036c0  78 25 20 b8 20 6c 65 6e  2d 31 0d 02 83 0e 20 62  |x% . len-1.... b|
000036d0  75 66 66 3f 69 25 3d 30  0d 02 84 05 ed 0d 02 85  |uff?i%=0........|
000036e0  05 e1 0d 02 86 04 0d 02  87 18 dd 20 f2 70 61 6c  |........... .pal|
000036f0  5f 64 65 66 67 72 65 79  28 70 61 6c 25 29 0d 02  |_defgrey(pal%)..|
00003700  88 10 e3 20 4d 25 3d 30  20 b8 20 32 35 35 0d 02  |... M%=0 . 255..|
00003710  89 26 20 20 63 25 3d 28  4d 25 3c 3c 38 29 20 84  |.&  c%=(M%<<8) .|
00003720  20 28 4d 25 3c 3c 31 36  29 20 84 20 28 4d 25 3c  | (M%<<16) . (M%<|
00003730  3c 32 34 29 0d 02 8a 19  20 20 70 61 6c 25 21 28  |<24)....  pal%!(|
00003740  28 4d 25 3c 3c 33 29 2b  30 29 3d 63 25 0d 02 8b  |(M%<<3)+0)=c%...|
00003750  19 20 20 70 61 6c 25 21  28 28 4d 25 3c 3c 33 29  |.  pal%!((M%<<3)|
00003760  2b 34 29 3d 63 25 0d 02  8c 05 ed 0d 02 8d 05 e1  |+4)=c%..........|
00003770  0d 02 8e 04 0d 02 8f 1a  dd 20 f2 70 61 6c 5f 64  |......... .pal_d|
00003780  65 66 63 6f 6c 28 70 61  6c 25 2c 73 25 29 0d 02  |efcol(pal%,s%)..|
00003790  90 15 ea 20 78 78 25 2c  72 30 25 2c 67 30 25 2c  |... xx%,r0%,g0%,|
000037a0  62 30 25 0d 02 91 10 e3  20 4d 25 3d 30 20 b8 20  |b0%..... M%=0 . |
000037b0  32 35 35 0d 02 92 18 20  20 72 30 25 3d 4d 25 20  |255....  r0%=M% |
000037c0  80 20 25 30 30 30 30 30  31 31 31 0d 02 93 18 20  |. %00000111.... |
000037d0  20 78 78 25 3d 4d 25 20  80 20 25 30 30 30 31 30  | xx%=M% . %00010|
000037e0  30 30 30 0d 02 94 18 20  20 72 30 25 3d 72 30 25  |000....  r0%=r0%|
000037f0  20 84 20 28 78 78 25 3e  3e 31 29 0d 02 95 18 20  | . (xx%>>1).... |
00003800  20 67 30 25 3d 4d 25 20  80 20 25 30 30 30 30 30  | g0%=M% . %00000|
00003810  30 31 31 0d 02 96 18 20  20 78 78 25 3d 4d 25 20  |011....  xx%=M% |
00003820  80 20 25 30 31 31 30 30  30 30 30 0d 02 97 18 20  |. %01100000.... |
00003830  20 67 30 25 3d 67 30 25  20 84 20 28 78 78 25 3e  | g0%=g0% . (xx%>|
00003840  3e 33 29 0d 02 98 18 20  20 62 30 25 3d 4d 25 20  |>3)....  b0%=M% |
00003850  80 20 25 30 30 30 30 30  30 31 31 0d 02 99 18 20  |. %00000011.... |
00003860  20 78 78 25 3d 4d 25 20  80 20 25 30 30 30 30 31  | xx%=M% . %00001|
00003870  30 31 31 0d 02 9a 18 20  20 62 30 25 3d 62 30 25  |011....  b0%=b0%|
00003880  20 84 20 28 78 78 25 3e  3e 31 29 0d 02 9b 18 20  | . (xx%>>1).... |
00003890  20 78 78 25 3d 4d 25 20  80 20 25 31 30 30 30 30  | xx%=M% . %10000|
000038a0  30 30 30 0d 02 9c 18 20  20 62 30 25 3d 62 30 25  |000....  b0%=b0%|
000038b0  20 84 20 28 78 78 25 3e  3e 34 29 0d 02 9d 26 20  | . (xx%>>4)...& |
000038c0  20 72 30 25 3d 28 72 30  25 3c 3c 38 29 2b 28 67  | r0%=(r0%<<8)+(g|
000038d0  30 25 3c 3c 31 36 29 2b  28 62 30 25 3c 3c 32 34  |0%<<16)+(b0%<<24|
000038e0  29 0d 02 9e 26 20 20 70  61 6c 25 21 28 28 4d 25  |)...&  pal%!((M%|
000038f0  3c 3c 73 25 29 2b 30 29  3d 72 30 25 20 84 20 28  |<<s%)+0)=r0% . (|
00003900  72 30 25 3c 3c 34 29 0d  02 9f 2f 20 20 e7 20 73  |r0%<<4).../  . s|
00003910  25 3d 33 20 8c 20 70 61  6c 25 21 28 28 4d 25 3c  |%=3 . pal%!((M%<|
00003920  3c 73 25 29 2b 34 29 3d  72 30 25 20 84 20 28 72  |<s%)+4)=r0% . (r|
00003930  30 25 3c 3c 34 29 0d 02  a0 05 ed 0d 02 a1 05 e1  |0%<<4)..........|
00003940  0d 02 a2 04 0d 02 a3 1b  dd 20 a4 53 61 76 65 54  |......... .SaveT|
00003950  72 61 6e 73 46 69 6c 65  28 70 24 2c 74 25 29 0d  |ransFile(p$,t%).|
00003960  02 a4 25 f4 20 72 65 74  75 72 6e 20 66 61 6c 73  |..%. return fals|
00003970  65 20 69 66 20 66 61 69  6c 65 64 20 74 6f 20 73  |e if failed to s|
00003980  61 76 65 21 0d 02 a5 0c  ea 20 66 6c 61 67 73 25  |ave!..... flags%|
00003990  0d 02 a6 47 c8 99 20 22  58 4f 53 5f 46 69 6c 65  |...G.. "XOS_File|
000039a0  22 2c 31 30 2c 70 24 2c  74 25 2c 30 2c 49 6d 61  |",10,p$,t%,0,Ima|
000039b0  67 65 2c 49 6d 61 67 65  2b 69 6d 61 67 65 73 69  |ge,Image+imagesi|
000039c0  7a 65 2b 69 6d 68 64 72  25 20 b8 20 65 72 72 25  |ze+imhdr% . err%|
000039d0  3b 66 6c 61 67 73 25 0d  02 a7 28 e7 20 28 66 6c  |;flags%...(. (fl|
000039e0  61 67 73 25 20 80 20 31  29 3d 31 20 8c 20 f2 52  |ags% . 1)=1 . .R|
000039f0  65 73 45 72 72 6f 72 28  22 43 46 30 33 22 29 0d  |esError("CF03").|
00003a00  02 a8 36 f2 4d 65 6d 5f  4b 69 6c 6c 53 6c 6f 74  |..6.Mem_KillSlot|
00003a10  20 20 20 3a f4 20 64 6f  6e 74 20 6b 69 6c 6c 20  |   :. dont kill |
00003a20  73 6c 6f 74 20 62 65 66  6f 72 65 20 52 65 73 45  |slot before ResE|
00003a30  72 72 6f 72 21 0d 02 a9  19 e7 20 28 66 6c 61 67  |rror!..... (flag|
00003a40  73 25 20 80 20 31 29 3d  31 20 8c 20 3d a3 0d 02  |s% . 1)=1 . =...|
00003a50  aa 06 3d b9 0d 02 ab 04  0d 02 ac 1a dd 20 f2 49  |..=.......... .I|
00003a60  6e 69 74 44 72 61 77 48  65 61 64 65 72 28 70 74  |nitDrawHeader(pt|
00003a70  72 29 0d 02 ad 0f 24 70  74 72 3d 22 44 72 61 77  |r)....$ptr="Draw|
00003a80  22 0d 02 ae 0d 70 74 72  21 34 3d 32 30 31 0d 02  |"....ptr!4=201..|
00003a90  af 0b 70 74 72 21 38 3d  30 0d 02 b0 20 f2 70 6f  |..ptr!8=0... .po|
00003aa0  6b 65 73 74 72 28 22 49  6d 61 67 65 72 22 2c 70  |kestr("Imager",p|
00003ab0  74 72 2b 31 32 2c 31 32  29 0d 02 b1 0c 70 74 72  |tr+12,12)....ptr|
00003ac0  21 32 34 3d 30 0d 02 b2  0c 70 74 72 21 32 38 3d  |!24=0....ptr!28=|
00003ad0  30 0d 02 b3 17 70 74 72  21 33 32 3d 78 72 65 73  |0....ptr!32=xres|
00003ae0  25 3c 3c 28 31 2b 38 29  0d 02 b4 17 70 74 72 21  |%<<(1+8)....ptr!|
00003af0  33 36 3d 79 72 65 73 25  3c 3c 28 31 2b 38 29 0d  |36=yres%<<(1+8).|
00003b00  02 b5 0c 70 74 72 21 34  30 3d 35 0d 02 b6 17 70  |...ptr!40=5....p|
00003b10  74 72 21 34 34 3d 69 6d  61 67 65 73 69 7a 65 2b  |tr!44=imagesize+|
00003b20  32 34 0d 02 b7 0c 70 74  72 21 34 38 3d 30 0d 02  |24....ptr!48=0..|
00003b30  b8 0c 70 74 72 21 35 32  3d 30 0d 02 b9 17 70 74  |..ptr!52=0....pt|
00003b40  72 21 35 36 3d 78 72 65  73 25 3c 3c 28 31 2b 38  |r!56=xres%<<(1+8|
00003b50  29 0d 02 ba 17 70 74 72  21 36 30 3d 79 72 65 73  |)....ptr!60=yres|
00003b60  25 3c 3c 28 31 2b 38 29  0d 02 bb 05 e1 0d 02 bc  |%<<(1+8)........|
00003b70  04 0d 02 bd 1c dd 20 f2  49 6e 69 74 53 70 72 69  |...... .InitSpri|
00003b80  74 65 48 65 61 64 65 72  28 70 74 72 29 0d 02 be  |teHeader(ptr)...|
00003b90  0b 70 74 72 21 30 3d 31  0d 02 bf 0c 70 74 72 21  |.ptr!0=1....ptr!|
00003ba0  34 3d 31 36 0d 02 c0 16  70 74 72 21 38 3d 69 6d  |4=16....ptr!8=im|
00003bb0  61 67 65 73 69 7a 65 2b  31 36 0d 02 c1 05 e1 0d  |agesize+16......|
00003bc0  02 c2 04 0d 02 c3 1c dd  20 a4 49 6d 61 67 65 53  |........ .ImageS|
00003bd0  69 7a 65 28 62 70 70 25  2c 78 25 2c 79 25 29 0d  |ize(bpp%,x%,y%).|
00003be0  02 c4 11 ea 20 73 69 7a  65 25 2c 62 69 74 73 25  |.... size%,bits%|
00003bf0  0d 02 c5 2b e7 20 62 70  70 25 3c 31 36 20 8c 20  |...+. bpp%<16 . |
00003c00  73 69 7a 65 25 3d 28 31  3c 3c 62 70 70 25 29 2a  |size%=(1<<bpp%)*|
00003c10  38 20 8b 20 73 69 7a 65  25 3d 30 0d 02 c6 1e 62  |8 . size%=0....b|
00003c20  69 74 73 25 3d 28 28 78  25 2a 62 70 70 25 29 2b  |its%=((x%*bpp%)+|
00003c30  33 31 29 20 80 20 2d 33  32 0d 02 c7 12 62 69 74  |31) . -32....bit|
00003c40  73 25 3d 62 69 74 73 25  3e 3e 33 0d 02 c8 1b 73  |s%=bits%>>3....s|
00003c50  69 7a 65 25 3d 34 34 2b  73 69 7a 65 25 2b 79 25  |ize%=44+size%+y%|
00003c60  2a 62 69 74 73 25 0d 02  c9 0a 3d 73 69 7a 65 25  |*bits%....=size%|
00003c70  0d 02 ca 04 0d 02 cb 04  0d 02 cc 04 0d 02 cd 51  |...............Q|
00003c80  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00003c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003cc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 02 ce  |-------------...|
00003cd0  05 f4 0d 02 cf 15 f4 20  20 57 69 6e 64 6f 77 20  |.......  Window |
00003ce0  6c 69 62 72 61 72 79 0d  02 d0 05 f4 0d 02 d1 51  |library........Q|
00003cf0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00003d00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003d30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 02 d2  |-------------...|
00003d40  04 0d 02 d3 34 dd 20 f2  77 69 6e 5f 6c 6f 61 64  |....4. .win_load|
00003d50  5f 63 72 65 61 74 65 28  66 24 2c 6e 24 2c 73 70  |_create(f$,n$,sp|
00003d60  72 69 74 65 5f 70 6f 6f  6c 25 2c f8 20 68 61 6e  |rite_pool%,. han|
00003d70  64 6c 65 25 29 0d 02 d4  23 f2 77 69 6e 5f 6c 6f  |dle%)...#.win_lo|
00003d80  61 64 28 66 24 2c 6e 24  2c 77 69 6e 5f 62 75 66  |ad(f$,n$,win_buf|
00003d90  66 25 2c 32 30 34 38 29  0d 02 d5 1d 77 69 6e 5f  |f%,2048)....win_|
00003da0  62 75 66 66 25 21 36 34  3d 73 70 72 69 74 65 5f  |buff%!64=sprite_|
00003db0  70 6f 6f 6c 25 0d 02 d6  22 f2 77 69 6e 5f 63 72  |pool%...".win_cr|
00003dc0  65 61 74 65 28 77 69 6e  5f 62 75 66 66 25 2c 68  |eate(win_buff%,h|
00003dd0  61 6e 64 6c 65 25 29 0d  02 d7 05 e1 0d 02 d8 04  |andle%).........|
00003de0  0d 02 d9 22 dd 20 f2 77  69 6e 5f 6c 6f 61 64 28  |...". .win_load(|
00003df0  66 24 2c 6e 24 2c 62 75  66 25 2c 6c 69 6d 69 74  |f$,n$,buf%,limit|
00003e00  25 29 0d 02 da 28 f4 20  20 20 66 24 20 20 20 2d  |%)...(.   f$   -|
00003e10  20 66 69 6c 65 6e 61 6d  65 20 6f 66 20 74 65 6d  | filename of tem|
00003e20  70 6c 61 74 65 20 66 69  6c 65 0d 02 db 27 f4 20  |plate file...'. |
00003e30  20 20 6e 24 20 20 20 2d  20 6e 61 6d 65 20 6f 66  |  n$   - name of|
00003e40  20 74 65 6d 70 6c 61 74  65 20 74 6f 20 6c 6f 61  | template to loa|
00003e50  64 0d 02 dc 50 f4 20 62  75 66 25 20 20 20 2d 20  |d...P. buf%   - |
00003e60  62 75 66 66 65 72 20 77  68 69 63 68 20 6e 65 65  |buffer which nee|
00003e70  64 73 20 74 6f 20 62 65  20 62 69 67 20 65 6e 6f  |ds to be big eno|
00003e80  75 67 68 20 74 6f 20 68  6f 6c 64 20 74 68 65 20  |ugh to hold the |
00003e90  77 69 6e 64 6f 77 20 64  65 66 69 6e 69 74 69 6f  |window definitio|
00003ea0  6e 0d 02 dd 4f f4 20 20  20 20 20 20 20 20 20 20  |n...O.          |
00003eb0  41 4e 44 20 74 68 65 20  69 6e 64 69 72 65 63 74  |AND the indirect|
00003ec0  65 64 20 64 61 74 61 2c  20 64 75 65 20 74 6f 20  |ed data, due to |
00003ed0  74 68 65 20 77 61 79 20  57 69 6d 70 5f 4c 6f 61  |the way Wimp_Loa|
00003ee0  64 54 65 6d 70 6c 61 74  65 20 77 6f 72 6b 73 2e  |dTemplate works.|
00003ef0  0d 02 de 1b f4 20 6c 69  6d 69 74 25 20 2d 20 73  |..... limit% - s|
00003f00  69 7a 65 20 6f 66 20 62  75 66 25 0d 02 df 05 f4  |ize of buf%.....|
00003f10  0d 02 e0 41 f4 20 50 52  4f 43 77 69 6e 5f 6c 6f  |...A. PROCwin_lo|
00003f20  61 64 20 77 69 6c 6c 20  61 75 74 6f 6d 61 74 69  |ad will automati|
00003f30  63 61 6c 6c 79 20 64 69  6d 65 6e 73 69 6f 6e 20  |cally dimension |
00003f40  65 6e 6f 75 67 68 20 6d  65 6d 6f 72 79 20 66 6f  |enough memory fo|
00003f50  72 0d 02 e1 1a f4 20 74  68 65 20 69 6e 64 69 72  |r..... the indir|
00003f60  65 63 74 65 64 20 64 61  74 61 2e 0d 02 e2 04 0d  |ected data......|
00003f70  02 e3 0d ea 20 77 73 5f  62 75 66 25 0d 02 e4 0b  |.... ws_buf%....|
00003f80  ea 20 73 69 7a 65 25 0d  02 e5 0b ea 20 64 61 74  |. size%..... dat|
00003f90  61 25 0d 02 e6 0c ea 20  66 6f 75 6e 64 25 0d 02  |a%..... found%..|
00003fa0  e7 0b ea 20 73 25 2c 66  25 0d 02 e8 21 f2 77 69  |... s%,f%...!.wi|
00003fb0  6e 5f 73 69 7a 65 73 28  66 24 2c 6e 24 2c 73 69  |n_sizes(f$,n$,si|
00003fc0  7a 65 25 2c 64 61 74 61  25 29 0d 02 e9 70 e7 20  |ze%,data%)...p. |
00003fd0  6c 69 6d 69 74 25 3c 28  73 69 7a 65 25 2b 64 61  |limit%<(size%+da|
00003fe0  74 61 25 29 20 85 20 30  2c 22 42 75 66 66 65 72  |ta%) . 0,"Buffer|
00003ff0  20 6e 6f 74 20 62 69 67  20 65 6e 6f 75 67 68 20  | not big enough |
00004000  66 6f 72 20 27 22 2b 6e  24 2b 22 27 20 2d 20 22  |for '"+n$+"' - "|
00004010  2b c3 28 73 69 7a 65 25  29 2b 22 20 2b 20 22 2b  |+.(size%)+" + "+|
00004020  c3 28 64 61 74 61 25 29  2b 22 20 62 79 74 65 73  |.(data%)+" bytes|
00004030  20 72 65 71 75 69 72 65  64 22 0d 02 ea 26 e7 20  | required"...&. |
00004040  66 24 3c 3e 22 22 20 c8  99 22 57 69 6d 70 5f 4f  |f$<>"" .."Wimp_O|
00004050  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 66 24  |penTemplate",,f$|
00004060  0d 02 eb 10 e7 20 64 61  74 61 25 3c 3e 30 20 8c  |..... data%<>0 .|
00004070  0d 02 ec 14 20 de 20 77  73 5f 62 75 66 25 20 64  |.... . ws_buf% d|
00004080  61 74 61 25 0d 02 ed 54  20 c8 99 20 22 58 57 69  |ata%...T .. "XWi|
00004090  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000040a0  2c 2c 62 75 66 25 2c 77  73 5f 62 75 66 25 2c 77  |,,buf%,ws_buf%,w|
000040b0  73 5f 62 75 66 25 2b 64  61 74 61 25 2c 2d 31 2c  |s_buf%+data%,-1,|
000040c0  6e 24 2c 30 20 b8 20 73  25 2c 2c 2c 2c 2c 2c 66  |n$,0 . s%,,,,,,f|
000040d0  6f 75 6e 64 25 3b 66 25  0d 02 ee 05 cc 0d 02 ef  |ound%;f%........|
000040e0  42 20 c8 99 20 22 58 57  69 6d 70 5f 4c 6f 61 64  |B .. "XWimp_Load|
000040f0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 75 66 25 2c  |Template",,buf%,|
00004100  30 2c 30 2c 2d 31 2c 6e  24 2c 30 20 b8 20 73 25  |0,0,-1,n$,0 . s%|
00004110  2c 2c 2c 2c 2c 2c 66 6f  75 6e 64 25 3b 66 25 0d  |,,,,,,found%;f%.|
00004120  02 f0 05 cd 0d 02 f1 23  e7 20 66 24 3c 3e 22 22  |.......#. f$<>""|
00004130  20 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  | .."Wimp_CloseTe|
00004140  6d 70 6c 61 74 65 22 0d  02 f2 29 e7 20 28 66 25  |mplate"...). (f%|
00004150  80 31 29 20 85 20 30 2c  6e 24 2b 22 3a 20 22 2b  |.1) . 0,n$+": "+|
00004160  a4 67 65 74 73 74 72 69  6e 67 28 73 25 2b 34 29  |.getstring(s%+4)|
00004170  0d 02 f3 30 e7 20 66 6f  75 6e 64 25 3d 30 20 85  |...0. found%=0 .|
00004180  20 30 2c 22 54 65 6d 70  6c 61 74 65 20 27 22 2b  | 0,"Template '"+|
00004190  6e 24 2b 22 27 20 6e 6f  74 20 66 6f 75 6e 64 22  |n$+"' not found"|
000041a0  0d 02 f4 05 e1 0d 02 f5  04 0d 02 f6 21 dd 20 f2  |............!. .|
000041b0  77 69 6e 5f 63 72 65 61  74 65 28 62 75 66 25 2c  |win_create(buf%,|
000041c0  f8 20 68 61 6e 64 6c 65  25 29 0d 02 f7 34 f4 20  |. handle%)...4. |
000041d0  20 20 20 62 75 66 25 20  2d 20 62 75 66 66 65 72  |   buf% - buffer|
000041e0  20 68 6f 6c 64 69 6e 67  20 74 68 65 20 77 69 6e  | holding the win|
000041f0  64 6f 77 20 64 65 66 69  6e 69 74 69 6f 6e 0d 02  |dow definition..|
00004200  f8 2c f4 20 68 61 6e 64  6c 65 25 20 2d 20 68 61  |.,. handle% - ha|
00004210  6e 64 6c 65 20 6f 66 20  74 68 65 20 63 72 65 61  |ndle of the crea|
00004220  74 65 64 20 77 69 6e 64  6f 77 0d 02 f9 2a c8 99  |ted window...*..|
00004230  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00004240  64 6f 77 22 2c 2c 62 75  66 25 20 b8 20 68 61 6e  |dow",,buf% . han|
00004250  64 6c 65 25 0d 02 fa 05  e1 0d 02 fb 04 0d 02 fc  |dle%............|
00004260  18 dd 20 f2 77 69 6e 5f  73 68 6f 77 28 68 61 6e  |.. .win_show(han|
00004270  64 6c 65 25 29 0d 02 fd  14 21 73 63 72 61 74 63  |dle%)....!scratc|
00004280  68 3d 68 61 6e 64 6c 65  25 0d 02 fe 25 c8 99 20  |h=handle%...%.. |
00004290  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000042a0  74 61 74 65 22 2c 2c 73  63 72 61 74 63 68 0d 02  |tate",,scratch..|
000042b0  ff 21 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |.!.. "Wimp_OpenW|
000042c0  69 6e 64 6f 77 22 2c 2c  73 63 72 61 74 63 68 0d  |indow",,scratch.|
000042d0  03 00 05 e1 0d 03 01 04  0d 03 02 1b dd 20 f2 77  |............. .w|
000042e0  69 6e 5f 74 6f 70 63 65  6e 74 72 65 64 28 77 69  |in_topcentred(wi|
000042f0  6e 25 29 0d 03 03 0e 62  6c 6b 21 30 3d 77 69 6e  |n%)....blk!0=win|
00004300  25 0d 03 04 21 c8 99 20  22 57 69 6d 70 5f 47 65  |%...!.. "Wimp_Ge|
00004310  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00004320  6c 6b 0d 03 05 14 f2 77  69 6e 5f 63 65 6e 74 72  |lk.....win_centr|
00004330  65 28 62 6c 6b 29 0d 03  06 0d 62 6c 6b 21 32 38  |e(blk)....blk!28|
00004340  3d 2d 31 0d 03 07 1d c8  99 20 22 57 69 6d 70 5f  |=-1...... "Wimp_|
00004350  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6b  |OpenWindow",,blk|
00004360  0d 03 08 05 e1 0d 03 09  04 0d 03 0a 16 dd 20 f2  |.............. .|
00004370  77 69 6e 5f 63 65 6e 74  72 65 28 62 6c 6b 29 0d  |win_centre(blk).|
00004380  03 0b 17 f2 77 69 6e 5f  64 65 73 6b 64 69 6d 65  |....win_deskdime|
00004390  6e 73 69 6f 6e 73 0d 03  0c 0f 64 65 73 6b 79 25  |nsions....desky%|
000043a0  2d 3d 31 33 32 0d 03 0d  0e 77 78 30 25 3d 62 6c  |-=132....wx0%=bl|
000043b0  6b 21 34 0d 03 0e 0e 77  79 30 25 3d 62 6c 6b 21  |k!4....wy0%=blk!|
000043c0  38 0d 03 0f 0f 77 78 31  25 3d 62 6c 6b 21 31 32  |8....wx1%=blk!12|
000043d0  0d 03 10 0f 77 79 31 25  3d 62 6c 6b 21 31 36 0d  |....wy1%=blk!16.|
000043e0  03 11 10 66 6c 67 73 25  3d 62 6c 6b 21 33 32 0d  |...flgs%=blk!32.|
000043f0  03 12 19 e7 20 66 6c 67  73 25 20 80 20 26 38 30  |.... flgs% . &80|
00004400  30 30 30 30 30 30 20 8c  0d 03 13 23 20 e7 20 66  |000000 ....# . f|
00004410  6c 67 73 25 20 80 20 28  31 3c 3c 32 36 29 20 8c  |lgs% . (1<<26) .|
00004420  20 64 65 73 6b 79 25 2d  3d 34 30 0d 03 14 23 20  | desky%-=40...# |
00004430  e7 20 66 6c 67 73 25 20  80 20 28 31 3c 3c 32 38  |. flgs% . (1<<28|
00004440  29 20 8c 20 64 65 73 6b  78 25 2d 3d 34 30 0d 03  |) . deskx%-=40..|
00004450  15 23 20 e7 20 66 6c 67  73 25 20 80 20 28 31 3c  |.# . flgs% . (1<|
00004460  3c 33 30 29 20 8c 20 64  65 73 6b 79 25 2d 3d 34  |<30) . desky%-=4|
00004470  30 0d 03 16 05 cc 0d 03  17 22 20 e7 20 66 6c 67  |0........" . flg|
00004480  73 25 20 80 20 28 31 3c  3c 30 29 20 8c 20 64 65  |s% . (1<<0) . de|
00004490  73 6b 79 25 2d 3d 34 30  0d 03 18 22 20 e7 20 66  |sky%-=40..." . f|
000044a0  6c 67 73 25 20 80 20 28  31 3c 3c 32 29 20 8c 20  |lgs% . (1<<2) . |
000044b0  64 65 73 6b 78 25 2d 3d  34 30 0d 03 19 22 20 e7  |deskx%-=40..." .|
000044c0  20 66 6c 67 73 25 20 80  20 28 31 3c 3c 33 29 20  | flgs% . (1<<3) |
000044d0  8c 20 64 65 73 6b 79 25  2d 3d 34 30 0d 03 1a 05  |. desky%-=40....|
000044e0  cd 0d 03 1b 12 77 69 64  25 3d 77 78 31 25 2d 77  |.....wid%=wx1%-w|
000044f0  78 30 25 0d 03 1c 1a 62  6c 6b 21 34 20 3d 28 64  |x0%....blk!4 =(d|
00004500  65 73 6b 78 25 2d 77 69  64 25 29 2f 32 0d 03 1d  |eskx%-wid%)/2...|
00004510  1a 62 6c 6b 21 31 32 3d  28 64 65 73 6b 78 25 2b  |.blk!12=(deskx%+|
00004520  77 69 64 25 29 2f 32 0d  03 1e 12 68 67 74 25 3d  |wid%)/2....hgt%=|
00004530  77 79 31 25 2d 77 79 30  25 0d 03 1f 20 62 6c 6b  |wy1%-wy0%... blk|
00004540  21 38 20 3d 28 28 64 65  73 6b 79 25 2d 68 67 74  |!8 =((desky%-hgt|
00004550  25 29 2f 32 29 2b 31 33  32 0d 03 20 20 62 6c 6b  |%)/2)+132..  blk|
00004560  21 31 36 3d 28 28 64 65  73 6b 79 25 2b 68 67 74  |!16=((desky%+hgt|
00004570  25 29 2f 32 29 2b 31 33  32 0d 03 21 05 e1 0d 03  |%)/2)+132..!....|
00004580  22 04 0d 03 23 04 0d 03  24 27 dd 20 f2 77 69 6e  |"...#...$'. .win|
00004590  5f 73 69 7a 65 73 28 66  24 2c 6e 24 2c f8 20 73  |_sizes(f$,n$,. s|
000045a0  69 7a 65 25 2c f8 20 64  61 74 61 25 29 0d 03 25  |ize%,. data%)..%|
000045b0  08 ea 20 69 25 0d 03 26  0b ea 20 66 69 6c 65 25  |.. i%..&.. file%|
000045c0  0d 03 27 0a ea 20 70 74  72 25 0d 03 28 0d ea 20  |..'.. ptr%..(.. |
000045d0  6f 66 66 73 65 74 25 0d  03 29 0b ea 20 74 79 70  |offset%..).. typ|
000045e0  65 25 0d 03 2a 0c ea 20  69 64 65 6e 74 24 0d 03  |e%..*.. ident$..|
000045f0  2b 10 ea 20 6e 75 6d 5f  69 63 6f 6e 73 25 0d 03  |+.. num_icons%..|
00004600  2c 0f 66 69 6c 65 25 3d  8e 28 66 24 29 0d 03 2d  |,.file%=.(f$)..-|
00004610  0b 73 69 7a 65 25 3d 30  0d 03 2e 0b 64 61 74 61  |.size%=0....data|
00004620  25 3d 30 0d 03 2f 0b 70  74 72 25 3d 31 36 0d 03  |%=0../.ptr%=16..|
00004630  30 05 f5 0d 03 31 11 20  cf 23 66 69 6c 65 25 3d  |0....1. .#file%=|
00004640  70 74 72 25 0d 03 32 1d  20 6f 66 66 73 65 74 25  |ptr%..2. offset%|
00004650  3d a4 77 69 6e 5f 77 6f  72 64 28 66 69 6c 65 25  |=.win_word(file%|
00004660  29 0d 03 33 13 20 e7 20  6f 66 66 73 65 74 25 3c  |)..3. . offset%<|
00004670  3e 30 20 8c 0d 03 34 14  20 20 cf 23 66 69 6c 65  |>0 ...4.  .#file|
00004680  25 3d 70 74 72 25 2b 38  0d 03 35 1c 20 20 74 79  |%=ptr%+8..5.  ty|
00004690  70 65 25 3d a4 77 69 6e  5f 77 6f 72 64 28 66 69  |pe%=.win_word(fi|
000046a0  6c 65 25 29 0d 03 36 1f  20 20 69 64 65 6e 74 24  |le%)..6.  ident$|
000046b0  3d a4 77 69 6e 5f 73 74  72 69 6e 67 28 66 69 6c  |=.win_string(fil|
000046c0  65 25 29 0d 03 37 0e 20  20 70 74 72 25 2b 3d 32  |e%)..7.  ptr%+=2|
000046d0  34 0d 03 38 10 20 20 e7  74 79 70 65 25 3d 31 20  |4..8.  .type%=1 |
000046e0  8c 0d 03 39 13 20 20 20  e7 69 64 65 6e 74 24 3d  |...9.   .ident$=|
000046f0  6e 24 20 8c 0d 03 3a 1a  20 20 20 20 cf 23 66 69  |n$ ...:.    .#fi|
00004700  6c 65 25 3d 6f 66 66 73  65 74 25 2b 38 34 0d 03  |le%=offset%+84..|
00004710  3b 23 20 20 20 20 6e 75  6d 5f 69 63 6f 6e 73 25  |;#    num_icons%|
00004720  3d a4 77 69 6e 5f 77 6f  72 64 28 66 69 6c 65 25  |=.win_word(file%|
00004730  29 0d 03 3c 27 20 20 20  20 64 61 74 61 25 3d a4  |)..<'    data%=.|
00004740  77 69 6e 5f 74 69 74 6c  65 28 66 69 6c 65 25 2c  |win_title(file%,|
00004750  6f 66 66 73 65 74 25 29  0d 03 3d 42 20 20 20 20  |offset%)..=B    |
00004760  e7 20 6e 75 6d 5f 69 63  6f 6e 73 25 3c 3e 30 20  |. num_icons%<>0 |
00004770  64 61 74 61 25 2b 3d a4  77 69 6e 5f 69 63 6f 6e  |data%+=.win_icon|
00004780  28 66 69 6c 65 25 2c 6e  75 6d 5f 69 63 6f 6e 73  |(file%,num_icons|
00004790  25 2c 6f 66 66 73 65 74  25 29 0d 03 3e 20 20 20  |%,offset%)..>   |
000047a0  20 20 73 69 7a 65 25 3d  38 38 2b 28 6e 75 6d 5f  |  size%=88+(num_|
000047b0  69 63 6f 6e 73 25 2a 33  32 29 0d 03 3f 2f 20 20  |icons%*32)..?/  |
000047c0  20 20 6f 66 66 73 65 74  25 3d 30 3a f4 20 6a 75  |  offset%=0:. ju|
000047d0  73 74 20 74 6f 20 67 65  74 20 6f 75 74 20 6f 66  |st to get out of|
000047e0  20 74 68 65 20 6c 6f 6f  70 0d 03 40 08 20 20 20  | the loop..@.   |
000047f0  cd 0d 03 41 07 20 20 cd  0d 03 42 06 20 cd 0d 03  |...A.  ...B. ...|
00004800  43 0f fd 20 6f 66 66 73  65 74 25 3d 30 0d 03 44  |C.. offset%=0..D|
00004810  0b d9 23 66 69 6c 65 25  0d 03 45 05 e1 0d 03 46  |..#file%..E....F|
00004820  04 0d 03 47 13 dd 20 a4  77 69 6e 5f 77 6f 72 64  |...G.. .win_word|
00004830  28 68 25 29 0d 03 48 2f  3d 9a 23 68 25 2b 28 9a  |(h%)..H/=.#h%+(.|
00004840  23 68 25 20 3c 3c 20 38  29 2b 28 9a 23 68 25 20  |#h% << 8)+(.#h% |
00004850  3c 3c 20 31 36 29 2b 28  9a 23 68 25 20 3c 3c 20  |<< 16)+(.#h% << |
00004860  32 34 29 0d 03 49 04 0d  03 4a 15 dd 20 a4 77 69  |24)..I...J.. .wi|
00004870  6e 5f 73 74 72 69 6e 67  28 68 25 29 0d 03 4b 0b  |n_string(h%)..K.|
00004880  ea 20 73 24 2c 63 25 0d  03 4c 05 f5 0d 03 4d 0c  |. s$,c%..L....M.|
00004890  20 63 25 3d 9a 23 68 25  0d 03 4e 18 20 e7 20 63  | c%=.#h%..N. . c|
000048a0  25 3e 33 31 20 8c 20 73  24 2b 3d bd 28 63 25 29  |%>31 . s$+=.(c%)|
000048b0  0d 03 4f 0b fd 20 63 25  3c 33 32 0d 03 50 07 3d  |..O.. c%<32..P.=|
000048c0  73 24 0d 03 51 04 0d 03  52 1f dd 20 a4 77 69 6e  |s$..Q...R.. .win|
000048d0  5f 74 69 74 6c 65 28 66  69 6c 65 25 2c 6f 66 66  |_title(file%,off|
000048e0  73 65 74 25 29 0d 03 53  08 ea 20 76 25 0d 03 54  |set%)..S.. v%..T|
000048f0  16 cf 23 66 69 6c 65 25  3d 6f 66 66 73 65 74 25  |..#file%=offset%|
00004900  2b 32 38 0d 03 55 17 76  25 3d a4 77 69 6e 5f 77  |+28..U.v%=.win_w|
00004910  6f 72 64 28 66 69 6c 65  25 29 0d 03 56 14 e7 20  |ord(file%)..V.. |
00004920  28 76 25 20 80 20 31 3c  3c 33 31 29 20 8c 0d 03  |(v% . 1<<31) ...|
00004930  57 15 20 e7 20 28 76 25  20 80 20 31 3c 3c 32 36  |W. . (v% . 1<<26|
00004940  29 20 8c 0d 03 58 34 20  20 3d a4 77 69 6e 5f 69  |) ...X4  =.win_i|
00004950  73 64 28 66 69 6c 65 25  2c 6f 66 66 73 65 74 25  |sd(file%,offset%|
00004960  2b 35 36 2c 6f 66 66 73  65 74 25 2b 37 32 2c 6f  |+56,offset%+72,o|
00004970  66 66 73 65 74 25 29 0d  03 59 06 20 cd 0d 03 5a  |ffset%)..Y. ...Z|
00004980  05 cc 0d 03 5b 11 20 e7  20 28 76 25 20 80 20 31  |....[. . (v% . 1|
00004990  29 20 8c 0d 03 5c 34 20  20 3d a4 77 69 6e 5f 69  |) ...\4  =.win_i|
000049a0  73 64 28 66 69 6c 65 25  2c 6f 66 66 73 65 74 25  |sd(file%,offset%|
000049b0  2b 35 36 2c 6f 66 66 73  65 74 25 2b 37 32 2c 6f  |+56,offset%+72,o|
000049c0  66 66 73 65 74 25 29 0d  03 5d 06 20 cd 0d 03 5e  |ffset%)..]. ...^|
000049d0  05 cd 0d 03 5f 06 3d 30  0d 03 60 04 0d 03 61 23  |...._.=0..`...a#|
000049e0  dd 20 a4 77 69 6e 5f 69  63 6f 6e 28 66 69 6c 65  |. .win_icon(file|
000049f0  25 2c 6e 75 6d 25 2c 6f  66 66 73 65 74 25 29 0d  |%,num%,offset%).|
00004a00  03 62 0b ea 20 69 25 2c  6a 25 0d 03 63 08 6a 25  |.b.. i%,j%..c.j%|
00004a10  3d 30 0d 03 64 12 e3 69  25 3d 30 20 b8 20 6e 75  |=0..d..i%=0 . nu|
00004a20  6d 25 2d 31 0d 03 65 48  20 6a 25 2b 3d a4 77 69  |m%-1..eH j%+=.wi|
00004a30  6e 5f 69 73 64 28 66 69  6c 65 25 2c 6f 66 66 73  |n_isd(file%,offs|
00004a40  65 74 25 2b 38 38 2b 69  25 2a 33 32 2b 31 36 2c  |et%+88+i%*32+16,|
00004a50  6f 66 66 73 65 74 25 2b  38 38 2b 69 25 2a 33 32  |offset%+88+i%*32|
00004a60  2b 32 30 2c 6f 66 66 73  65 74 25 29 0d 03 66 05  |+20,offset%)..f.|
00004a70  ed 0d 03 67 07 3d 6a 25  0d 03 68 04 0d 03 69 25  |...g.=j%..h...i%|
00004a80  dd 20 a4 77 69 6e 5f 69  73 64 28 66 69 6c 65 25  |. .win_isd(file%|
00004a90  2c 6f 31 25 2c 6f 32 25  2c 6f 66 66 73 65 74 25  |,o1%,o2%,offset%|
00004aa0  29 0d 03 6a 16 ea 20 76  25 2c 69 73 74 25 2c 73  |)..j.. v%,ist%,s|
00004ab0  69 7a 65 25 2c 69 25 0d  03 6b 0f cf 23 66 69 6c  |ize%,i%..k..#fil|
00004ac0  65 25 3d 6f 31 25 0d 03  6c 17 76 25 3d a4 77 69  |e%=o1%..l.v%=.wi|
00004ad0  6e 5f 77 6f 72 64 28 66  69 6c 65 25 29 0d 03 6d  |n_word(file%)..m|
00004ae0  2a f4 20 65 76 65 6e 20  69 66 20 61 6e 20 69 63  |*. even if an ic|
00004af0  6f 6e 20 69 73 20 6d 61  72 6b 65 64 20 61 73 20  |on is marked as |
00004b00  64 65 6c 65 74 65 64 0d  03 6e 1d f4 20 69 74 20  |deleted..n.. it |
00004b10  6d 75 73 74 20 62 65 20  61 6c 6c 6f 77 65 64 20  |must be allowed |
00004b20  66 6f 72 21 0d 03 6f 18  69 25 3d 28 76 25 20 80  |for!..o.i%=(v% .|
00004b30  20 25 31 30 30 30 30 30  30 30 30 29 0d 03 70 1d  | %100000000)..p.|
00004b40  69 73 74 25 3d 28 76 25  20 80 20 33 29 20 2b 20  |ist%=(v% . 3) + |
00004b50  28 69 25 20 3e 3e 20 36  29 0d 03 71 0d c8 8e 20  |(i% >> 6)..q... |
00004b60  69 73 74 25 20 ca 0d 03  72 12 c9 20 20 20 30 3a  |ist% ...r..   0:|
00004b70  20 73 69 7a 65 25 3d 30  0d 03 73 12 c9 20 20 20  | size%=0..s..   |
00004b80  31 3a 20 73 69 7a 65 25  3d 30 0d 03 74 12 c9 20  |1: size%=0..t.. |
00004b90  20 20 32 3a 20 73 69 7a  65 25 3d 30 0d 03 75 12  |  2: size%=0..u.|
00004ba0  c9 20 20 20 33 3a 20 73  69 7a 65 25 3d 30 0d 03  |.   3: size%=0..|
00004bb0  76 12 c9 20 20 20 34 3a  20 73 69 7a 65 25 3d 30  |v..   4: size%=0|
00004bc0  0d 03 77 18 c9 20 35 2c  37 3a 20 cf 23 66 69 6c  |..w.. 5,7: .#fil|
00004bd0  65 25 3d 6f 32 25 2b 34  0d 03 78 21 20 20 20 20  |e%=o2%+4..x!    |
00004be0  20 20 20 20 20 20 76 25  3d a4 77 69 6e 5f 77 6f  |      v%=.win_wo|
00004bf0  72 64 28 66 69 6c 65 25  29 0d 03 79 16 20 20 20  |rd(file%)..y.   |
00004c00  20 20 20 20 20 20 20 e7  76 25 3d 2d 31 20 8c 0d  |       .v%=-1 ..|
00004c10  03 7a 16 20 20 20 20 20  20 20 20 20 20 20 73 69  |.z.           si|
00004c20  7a 65 25 3d 30 0d 03 7b  0f 20 20 20 20 20 20 20  |ze%=0..{.       |
00004c30  20 20 20 cc 0d 03 7c 21  20 20 20 20 20 20 20 20  |   ...|!        |
00004c40  20 20 20 cf 23 66 69 6c  65 25 3d 6f 66 66 73 65  |   .#file%=offse|
00004c50  74 25 2b 76 25 0d 03 7d  2c 20 20 20 20 20 20 20  |t%+v%..},       |
00004c60  20 20 20 20 73 69 7a 65  25 3d a9 28 a4 77 69 6e  |    size%=.(.win|
00004c70  5f 73 74 72 69 6e 67 28  66 69 6c 65 25 29 29 2b  |_string(file%))+|
00004c80  31 0d 03 7e 0f 20 20 20  20 20 20 20 20 20 20 cd  |1..~.          .|
00004c90  0d 03 7f 1b 20 20 20 20  20 20 20 20 20 20 cf 23  |....          .#|
00004ca0  66 69 6c 65 25 3d 6f 32  25 2b 38 0d 03 80 25 20  |file%=o2%+8...% |
00004cb0  20 20 20 20 20 20 20 20  20 73 69 7a 65 25 2b 3d  |         size%+=|
00004cc0  a4 77 69 6e 5f 77 6f 72  64 28 66 69 6c 65 25 29  |.win_word(file%)|
00004cd0  0d 03 81 18 c9 20 20 20  36 3a 20 cf 23 66 69 6c  |.....   6: .#fil|
00004ce0  65 25 3d 6f 32 25 2b 38  0d 03 82 24 20 20 20 20  |e%=o2%+8...$    |
00004cf0  20 20 20 20 20 20 73 69  7a 65 25 3d a4 77 69 6e  |      size%=.win|
00004d00  5f 77 6f 72 64 28 66 69  6c 65 25 29 0d 03 83 05  |_word(file%)....|
00004d10  cb 0d 03 84 0a 3d 73 69  7a 65 25 0d 03 85 04 0d  |.....=size%.....|
00004d20  03 86 21 dd 20 a4 77 69  6e 5f 67 65 74 73 65 6c  |..!. .win_getsel|
00004d30  72 61 64 69 6f 28 77 69  6e 25 2c 65 73 67 25 29  |radio(win%,esg%)|
00004d40  0d 03 87 1c 65 73 67 25  3d 28 65 73 67 25 20 80  |....esg%=(esg% .|
00004d50  20 25 31 31 31 31 31 29  3c 3c 31 36 0d 03 88 3d  | %11111)<<16...=|
00004d60  c8 99 20 22 57 69 6d 70  5f 57 68 69 63 68 49 63  |.. "Wimp_WhichIc|
00004d70  6f 6e 22 2c 77 69 6e 25  2c 73 63 72 61 74 63 68  |on",win%,scratch|
00004d80  2c 26 33 46 3c 3c 31 36  2c 28 26 32 30 3c 3c 31  |,&3F<<16,(&20<<1|
00004d90  36 29 20 84 20 65 73 67  25 0d 03 89 0e 3d 73 63  |6) . esg%....=sc|
00004da0  72 61 74 63 68 21 30 0d  03 8a 04 0d 03 8b 1b dd  |ratch!0.........|
00004db0  20 f2 77 69 6e 5f 62 6f  75 6e 64 6d 6f 75 73 65  | .win_boundmouse|
00004dc0  28 77 69 6e 25 29 0d 03  8c 0d 21 62 6c 6b 3d 77  |(win%)....!blk=w|
00004dd0  69 6e 25 0d 03 8d 23 c8  99 20 22 57 69 6d 70 5f  |in%...#.. "Wimp_|
00004de0  47 65 74 57 69 6e 64 6f  77 4f 75 74 6c 69 6e 65  |GetWindowOutline|
00004df0  22 2c 2c 62 6c 6b 0d 03  8e 37 f2 77 69 6e 5f 73  |",,blk...7.win_s|
00004e00  65 74 6d 6f 75 73 65 72  65 63 28 62 6c 6b 21 34  |etmouserec(blk!4|
00004e10  2c 62 6c 6b 21 38 2c 28  62 6c 6b 21 31 32 29 2d  |,blk!8,(blk!12)-|
00004e20  34 2c 28 62 6c 6b 21 31  36 29 2d 34 29 0d 03 8f  |4,(blk!16)-4)...|
00004e30  05 e1 0d 03 90 04 0d 03  91 17 dd 20 f2 77 69 6e  |........... .win|
00004e40  5f 72 65 6c 65 61 73 65  6d 6f 75 73 65 0d 03 92  |_releasemouse...|
00004e50  17 f2 77 69 6e 5f 64 65  73 6b 64 69 6d 65 6e 73  |..win_deskdimens|
00004e60  69 6f 6e 73 0d 03 93 27  f2 77 69 6e 5f 73 65 74  |ions...'.win_set|
00004e70  6d 6f 75 73 65 72 65 63  28 30 2c 30 2c 64 65 73  |mouserec(0,0,des|
00004e80  6b 78 25 2c 64 65 73 6b  79 25 29 0d 03 94 05 e1  |kx%,desky%).....|
00004e90  0d 03 95 04 0d 03 96 27  dd 20 f2 77 69 6e 5f 73  |.......'. .win_s|
00004ea0  65 74 6d 6f 75 73 65 72  65 63 28 78 30 25 2c 79  |etmouserec(x0%,y|
00004eb0  30 25 2c 78 31 25 2c 79  31 25 29 0d 03 97 25 c8  |0%,x1%,y1%)...%.|
00004ec0  97 20 c8 93 20 78 30 25  2c 79 30 25 2c 28 78 31  |. .. x0%,y0%,(x1|
00004ed0  25 2d 78 30 25 29 2c 28  79 31 25 2d 79 30 25 29  |%-x0%),(y1%-y0%)|
00004ee0  0d 03 98 05 e1 0d 03 99  04 0d 03 9a 19 dd 20 f2  |.............. .|
00004ef0  77 69 6e 5f 64 65 73 6b  64 69 6d 65 6e 73 69 6f  |win_deskdimensio|
00004f00  6e 73 0d 03 9b 2b c8 99  20 22 4f 53 5f 52 65 61  |ns...+.. "OS_Rea|
00004f10  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00004f20  31 2c 34 20 b8 20 2c 2c  78 65 69 67 25 0d 03 9c  |1,4 . ,,xeig%...|
00004f30  2b c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |+.. "OS_ReadMode|
00004f40  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 b8  |Variable",-1,5 .|
00004f50  20 2c 2c 79 65 69 67 25  0d 03 9d 2d c8 99 20 22  | ,,yeig%...-.. "|
00004f60  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00004f70  62 6c 65 22 2c 2d 31 2c  31 31 20 b8 20 2c 2c 64  |ble",-1,11 . ,,d|
00004f80  65 73 6b 78 25 0d 03 9e  2d c8 99 20 22 4f 53 5f  |eskx%...-.. "OS_|
00004f90  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00004fa0  22 2c 2d 31 2c 31 32 20  b8 20 2c 2c 64 65 73 6b  |",-1,12 . ,,desk|
00004fb0  79 25 0d 03 9f 1c 64 65  73 6b 78 25 3d 28 64 65  |y%....deskx%=(de|
00004fc0  73 6b 78 25 2b 31 29 3c  3c 78 65 69 67 25 0d 03  |skx%+1)<<xeig%..|
00004fd0  a0 1c 64 65 73 6b 79 25  3d 28 64 65 73 6b 79 25  |..desky%=(desky%|
00004fe0  2b 31 29 3c 3c 79 65 69  67 25 0d 03 a1 05 e1 0d  |+1)<<yeig%......|
00004ff0  03 a2 04 0d 03 a3 51 f4  20 2d 2d 2d 2d 2d 2d 2d  |......Q. -------|
00005000  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005040  2d 2d 2d 2d 0d 03 a4 05  f4 0d 03 a5 13 f4 20 20  |----..........  |
00005050  49 63 6f 6e 20 6c 69 62  72 61 72 79 0d 03 a6 05  |Icon library....|
00005060  f4 0d 03 a7 51 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....Q. ---------|
00005070  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000050b0  2d 2d 0d 03 a8 04 0d 03  a9 17 dd 20 f2 69 63 6f  |--......... .ico|
000050c0  6e 5f 68 69 64 65 28 61  25 2c 62 25 29 0d 03 aa  |n_hide(a%,b%)...|
000050d0  0e 21 69 63 6f 6e 73 25  3d 61 25 0d 03 ab 0f 69  |.!icons%=a%....i|
000050e0  63 6f 6e 73 25 21 34 3d  62 25 0d 03 ac 1b 69 63  |cons%!4=b%....ic|
000050f0  6f 6e 73 25 21 38 3d 28  31 3c 3c 37 29 2b 28 31  |ons%!8=(1<<7)+(1|
00005100  3c 3c 32 33 29 0d 03 ad  1c 69 63 6f 6e 73 25 21  |<<23)....icons%!|
00005110  31 32 3d 28 31 3c 3c 37  29 2b 28 31 3c 3c 32 33  |12=(1<<7)+(1<<23|
00005120  29 0d 03 ae 21 c8 99 22  57 69 6d 70 5f 53 65 74  |)...!.."Wimp_Set|
00005130  49 63 6f 6e 53 74 61 74  65 22 2c 2c 69 63 6f 6e  |IconState",,icon|
00005140  73 25 0d 03 af 05 e1 0d  03 b0 04 0d 03 b1 1b dd  |s%..............|
00005150  20 f2 69 63 6f 6e 5f 77  72 69 74 65 28 61 25 2c  | .icon_write(a%,|
00005160  62 25 2c 73 24 29 0d 03  b2 0e 21 69 63 6f 6e 73  |b%,s$)....!icons|
00005170  25 3d 61 25 0d 03 b3 0f  69 63 6f 6e 73 25 21 34  |%=a%....icons%!4|
00005180  3d 62 25 0d 03 b4 21 c8  99 22 57 69 6d 70 5f 47  |=b%...!.."Wimp_G|
00005190  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 63  |etIconState",,ic|
000051a0  6f 6e 73 25 0d 03 b5 31  e7 20 28 a9 28 73 24 29  |ons%...1. (.(s$)|
000051b0  2b 31 29 3e 69 63 6f 6e  73 25 21 33 36 20 8c 20  |+1)>icons%!36 . |
000051c0  73 24 3d c2 73 24 2c 28  69 63 6f 6e 73 25 21 33  |s$=.s$,(icons%!3|
000051d0  36 29 2d 31 29 0d 03 b6  13 24 28 69 63 6f 6e 73  |6)-1)....$(icons|
000051e0  25 21 32 38 29 3d 73 24  0d 03 b7 1a 69 63 6f 6e  |%!28)=s$....icon|
000051f0  73 25 21 38 3d 30 3a 69  63 6f 6e 73 25 21 31 32  |s%!8=0:icons%!12|
00005200  3d 30 0d 03 b8 22 c8 99  20 22 57 69 6d 70 5f 53  |=0...".. "Wimp_S|
00005210  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 69 63  |etIconState",,ic|
00005220  6f 6e 73 25 0d 03 b9 05  e1 0d 03 ba 04 0d 03 bb  |ons%............|
00005230  18 dd 20 f2 69 63 6f 6e  5f 73 68 61 64 65 28 61  |.. .icon_shade(a|
00005240  25 2c 62 25 29 0d 03 bc  0e 21 69 63 6f 6e 73 25  |%,b%)....!icons%|
00005250  3d 61 25 0d 03 bd 0f 69  63 6f 6e 73 25 21 34 3d  |=a%....icons%!4=|
00005260  62 25 0d 03 be 12 69 63  6f 6e 73 25 21 38 3d 31  |b%....icons%!8=1|
00005270  3c 3c 32 32 0d 03 bf 13  69 63 6f 6e 73 25 21 31  |<<22....icons%!1|
00005280  32 3d 31 3c 3c 32 32 0d  03 c0 21 c8 99 22 57 69  |2=1<<22...!.."Wi|
00005290  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000052a0  2c 2c 69 63 6f 6e 73 25  0d 03 c1 05 e1 0d 03 c2  |,,icons%........|
000052b0  04 0d 03 c3 16 dd 20 a4  69 63 6f 6e 5f 73 65 74  |...... .icon_set|
000052c0  28 61 25 2c 62 25 29 0d  03 c4 0e 21 69 63 6f 6e  |(a%,b%)....!icon|
000052d0  73 25 3d 61 25 0d 03 c5  0f 69 63 6f 6e 73 25 21  |s%=a%....icons%!|
000052e0  34 3d 62 25 0d 03 c6 21  c8 99 22 57 69 6d 70 5f  |4=b%...!.."Wimp_|
000052f0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |GetIconState",,i|
00005300  63 6f 6e 73 25 0d 03 c7  1f 3d 28 28 69 63 6f 6e  |cons%....=((icon|
00005310  73 25 21 32 34 20 80 20  28 31 3c 3c 32 31 29 29  |s%!24 . (1<<21))|
00005320  3c 3e 30 29 0d 03 c8 04  0d 03 c9 19 dd 20 f2 69  |<>0)......... .i|
00005330  63 6f 6e 5f 75 6e 68 69  64 65 28 61 25 2c 62 25  |con_unhide(a%,b%|
00005340  29 0d 03 ca 0e 21 69 63  6f 6e 73 25 3d 61 25 0d  |)....!icons%=a%.|
00005350  03 cb 0f 69 63 6f 6e 73  25 21 34 3d 62 25 0d 03  |...icons%!4=b%..|
00005360  cc 0e 69 63 6f 6e 73 25  21 38 3d 30 0d 03 cd 13  |..icons%!8=0....|
00005370  69 63 6f 6e 73 25 21 31  32 3d 31 3c 3c 32 33 0d  |icons%!12=1<<23.|
00005380  03 ce 21 c8 99 22 57 69  6d 70 5f 53 65 74 49 63  |..!.."Wimp_SetIc|
00005390  6f 6e 53 74 61 74 65 22  2c 2c 69 63 6f 6e 73 25  |onState",,icons%|
000053a0  0d 03 cf 05 e1 0d 03 d0  04 0d 03 d1 1a dd 20 f2  |.............. .|
000053b0  69 63 6f 6e 5f 75 6e 73  68 61 64 65 28 61 25 2c  |icon_unshade(a%,|
000053c0  62 25 29 0d 03 d2 0e 21  69 63 6f 6e 73 25 3d 61  |b%)....!icons%=a|
000053d0  25 0d 03 d3 0f 69 63 6f  6e 73 25 21 34 3d 62 25  |%....icons%!4=b%|
000053e0  0d 03 d4 0e 69 63 6f 6e  73 25 21 38 3d 30 0d 03  |....icons%!8=0..|
000053f0  d5 13 69 63 6f 6e 73 25  21 31 32 3d 31 3c 3c 32  |..icons%!12=1<<2|
00005400  32 0d 03 d6 21 c8 99 22  57 69 6d 70 5f 53 65 74  |2...!.."Wimp_Set|
00005410  49 63 6f 6e 53 74 61 74  65 22 2c 2c 69 63 6f 6e  |IconState",,icon|
00005420  73 25 0d 03 d7 05 e1 0d  03 d8 04 0d 03 d9 19 dd  |s%..............|
00005430  20 f2 69 63 6f 6e 5f 73  65 6c 65 63 74 28 61 25  | .icon_select(a%|
00005440  2c 62 25 29 0d 03 da 0e  21 69 63 6f 6e 73 25 3d  |,b%)....!icons%=|
00005450  61 25 0d 03 db 0f 69 63  6f 6e 73 25 21 34 3d 62  |a%....icons%!4=b|
00005460  25 0d 03 dc 12 69 63 6f  6e 73 25 21 38 3d 31 3c  |%....icons%!8=1<|
00005470  3c 32 31 0d 03 dd 13 69  63 6f 6e 73 25 21 31 32  |<21....icons%!12|
00005480  3d 31 3c 3c 32 31 0d 03  de 21 c8 99 22 57 69 6d  |=1<<21...!.."Wim|
00005490  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000054a0  2c 69 63 6f 6e 73 25 0d  03 df 05 e1 0d 03 e0 04  |,icons%.........|
000054b0  0d ff                                             |..|
000054b2