� > !RunImage

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

6�  Aurthor   - Mike Kenny @ Computer Concepts Ltd.
M�  Purpose   - Basic code to perform translation of JPEG files to sprites
�  Version   - 1.00
�  Started   - 21/12/93
	�  Completed -

�  Changes
+�  21/12/93  MJK  Originated this file.


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

 � � �ReportSystemError(�$):�
Debug%=�

� blk 1024
� scratch 1024
� PackName 256

� bmdb 40
� icons% 256
� win_buff% 1024

	�vars
	�code

�Mem_Init
�W_Initialise(app_name$)
T%=�loadresources
� T%=� � �W_CloseDown:�
J�win_load_create(app_path$+".Resources.Templates","control",-1,ctrlh%)
 �loadcoltable
!�W_Poll
"�W_CloseDown
#�
$
%
&� �vars
'app_name$="TransJPEG"
(app_path$="<TransJPEG$Dir>"
)app_leaf$="TJPEG"
*
+FType_Sprite = &FF9
,FType_Draw   = &AFF
-
.mess_Size    = 0
/mess_Sender  = 4
0mess_MyRef   = 8
1mess_YourRef = 12
2mess_Type    = 16
3mess_Data    = 20
4mess_Length  = mess_Size
5mess_TaskID  = mess_Sender
6mess_Action  = mess_Type
7mess_SIZE    = 256
8
9DataSave% = 1
:DataSaveAck% = 2
;DataLoad% = 3
<DataLoadAck% = 4
=dloadref%=0
>dsaveref%=0
?
@ST_1bpp  = 1
AST_2bpp  = 2
BST_4bpp  = 3
CST_8bpp  = 4
DST_16bpp = 5
EST_32bpp = 6
FST_CMYK  = 7
GST_24bpp = 8
HST_Shift = 27
IST_Mask  = &F8000000
J
Ktype_icon%=7
Ldith_icon%=11
Mok_icon%=3
Ncancel_icon%=16
O
PJtype_Unkown    = 0
QJtype_Greyscale = 1
RJtype_RGB       = 2
SJtype_CMYK      = 3
TJtype_YCbCr     = 4
UJtype_YIQ       = 5
V
Wdith_none   = 0<<2
Xdith_simple = 1<<2
Ydith_floyd  = 2<<2
Zdith_forwards = 0<<5
[dith_backward = 1<<5
\dith_zigzag = 2<<5
]�
^
_� �W_Initialise(n$)
`$blk = "TASK"
a:ș "Wimp_Initialise",200,!blk,app_name$ � ,TaskHandle%
b�
c
d
� �W_Poll
epoll_mask% = %000110001
f
quit% = �
g�
h+ș "Wimp_Poll",poll_mask%,blk � reason%
iȎ reason% �
j  � 2:�W_OpenWindow
k  � 3:�W_CloseWindow
l  � 6:�W_MouseClick
m  � 17,18:�W_Message
n  � 19:�W_RecordedMessage
o�
p� quit%
q�
r
s� �W_OpenWindow
tș "Wimp_OpenWindow",,blk
u�
v
w��W_CloseWindow
xș "Wimp_CloseWindow",,blk
y�
z
{� �W_CloseDown
|$blk = "TASK"
}(ș "Wimp_CloseDown",TaskHandle%,!blk
~�

�� �W_MouseClick
�wind%=blk!12
�icon%=blk!16
�*� wind%=ctrlh% � �control_click(icon%)
��
�
�� �W_Message
�� ref%,task%,comm%
�=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("JP05"):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("JP01"):quit%=�:�
��SendTranslateFFGAck
�%cl%=�control_config(fpath$,flen%)
�� cl% �
� �win_topcentred(ctrlh%)
��
� quit%=�
��
��
�
�� �control_config(p$,fl%)
�JCache%=�Claim(1024)
�1� JCache%=-1 � �ResError1("JP08",bytereq%):=0
�!JCache%=1024
�aș "XDJPEG_DescribeImage",1,p$,JCache%,fl% � jflags,xres,yres,sinfo,xden,yden,jworklen;flags%
�(� flags% � 1 � �PeekError(jflags):=0
�itype%=jflags � &F
�J� itype%<>Jtype_Greyscale � itype%<>Jtype_YCbCr � �ResError("JP04"):=0
�insample%=sinfo � &FF
�isampbit%=(sinfo>>8) � &FF
�ibpp%=insample%*isampbit%
�9� isampbit%<>8 � isampbit%<>12 � �ResError("JP02"):=0
��showres
�=�
�
�� �control_click(i%)
�7� i%>(type_icon%-1) � i%<(type_icon%+3) � �showsize
�� i%=ok_icon% � �control_ok
�.� i%=cancel_icon% �  �Mem_KillSlot:quit%=�
��
�
�
�� �control_ok
�+cl%=�FilterJPEG(1,fpath$,flen%,oflags%)
�$� orig%<>0 � �DeleteFile(fpath$)
�� cl% �
�% �ReturnFile(sender%,cl%,oftype%)
��
� �Mem_KillSlot
� quit%=�
��
��
�
�
�� �showres
��control_info
�i%=9
�Ȏ itype% �
�4� Jtype_Greyscale:s$="JFIF Greyscale, 8bpp":i%=7
�-� Jtype_YCbCr:s$="JFIF YCbCr, 24bpp":i%=9
��

%�icon_write(ctrlh%,14,"Type="+s$)


A�icon_write(ctrlh%,5,"Resolution="+�xres+"x"+�yres+" pixels")

"�icon_setselradio(ctrlh%,i%,1)


�showsize

�



��showsize

�control_info

&fsize%=�ImageSize(obpp%,xres,yres)

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


s$=�getstring(scratch)

�icon_write(ctrlh%,6,s$)

�




� �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%



� �control_info

0otype%=�win_getselradio(ctrlh%,1)-type_icon%

0odith%=�win_getselradio(ctrlh%,2)-dith_icon%

.� otype%=0 � otype%=1 � obpp%=8 � obpp%=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

/�

0
  quit%=�

1�

2�

3

4

5� �DataLoadAck

6yref%=blk!mess_YourRef

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

8�

9

:

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

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

=  blk!mess_YourRef=0

>  blk!mess_Type=DataSave%

?  blk!20=dwin%

@  blk!24=dicon%

A  blk!28=dix%

B  blk!32=diy%

C  blk!36=len%

D  blk!40=ftype%

E  $(blk+44)=app_leaf$

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

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

H  dsaveref%=blk!8

I�

J  �ResError("WSNF")

K
  quit%=�

L�

M�

N

O

P� �doesvarexist(v$)

Q� e%

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

S=e%

T

U

VQ� ---------------------------------------------------------------------------

W�

X� File handling section

Y�

ZQ� ---------------------------------------------------------------------------

[

\� �FileLength(path$)

]� type%,len%

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

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

`	=len%

a

b� �DeleteFile(p$)

c� flags%

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

e�

f

g� �FileLength(path$)

h� type%,len%

i%ș"OS_File",5,path$�type%,,,,len%

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

k	=len%

l

mQ� ---------------------------------------------------------------------------

n�

o� Error section

p�

qQ� ---------------------------------------------------------------------------

r

s� �ReportWimpError(report$)

t!scratch = 0

u$(scratch+4)=report$

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

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

x�

y

z!� �ReportSystemError(report$)

{!scratch = 0

|0report$=report$+" internal error ("+�(�)+")"

}$(scratch+4)=report$

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

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

��

�

�� �ResError(r$)

�r$=�FindResourceString(r$)

��ReportWimpError(r$)

��

�

�� �ResError1(r$,x%)

�� p%

�r$=�FindResourceString(r$)

�p%=�r$,"%d")

�� p%>0 �

�$  r$=�r$,p%-1)+�x%+�r$,�r$-1-p%)

��

�  p%=�r$,"%h")

�-  � x>0 � r$=�r$,p%-1)+�~x%+�r$,�r$-1-p%)

��

��ReportWimpError(r$)

��

�

�� �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

�$bytereq%=(newhimem-MyHimem)-free

�'kreq%=((bytereq%+1023) � -1024)>>10

�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

��

�

�

�� �loadcoltable

�PalData = �Claim(34*1024)

�� PalData=-1 �

� PalPtr%=-1:RevMap%=-1

��

� PalPtr%=PalData

� RevMap%=PalData+2048

�" ș "Image_Misc",0,1,8,PalPtr%

�8 ș "OS_File",&FF,"<TransJPEG$Dir>.ColTable",RevMap%
 � PalPtr%=-1:RevMap%=-1

�
�

Q� ---------------------------------------------------------------------------
�
)� Ok finally application related code
�
Q� ---------------------------------------------------------------------------
	


'� �FilterJPEG(cf%,path$,jlen%,flg%)
� cf%<>1 � =0

 JWorkSpace%=�Claim(jworklen)
5� JWorkSpace%=-1 � �ResError1("JP07",bytereq%):=0
Pș "XDJPEG_OpenStream",1,path$,JCache%,JWorkSpace% � JDecode%,JParam%;flags%
*� flags% � 1 � �PeekError(JDecode%):=0
Ȏ itype% �
� Jtype_Greyscale
( � isampbit%=8 � otype%=6 � otype%=7
� Jtype_YCbCr
( � isampbit%=8 � otype%=8 � otype%=9
�
Hș "XImage_DescribeSource",otype%,ibpp%,xres,yres,0 � handle%;flags%
0� flags% � 1 � �PeekError(handle%):�close:=0
�control_info
Ȏ otype% �
F� 0:PalPtr%=-1:RevMap%=-1:otype%=0:dith%=(odith%<<2) � dith_zigzag
6� 2:PalPtr%=-1:RevMap%=-1:otype%=1:dith%=dith_none
0� 1:otype%=1:dith%=(odith%<<2) � dith_zigzag
�
Pș "XImage_DescribeDestin",handle%,otype%,obpp% � imagesize,imagework;flags%
 2� flags% � 1 � �PeekError(imagesize):�close:=0
!
Ȏ flg% �
" � 0:imhdr%=64
# � 1:imhdr%=12
$ � 2:imhdr%=0
%�
&"Image=�Claim(imagesize+imhdr%)
'3� Image=-1 � �ResError1("JP03",kreq%):�close:=0
(IWork%=�Claim(imagework)
)7� IWork%=-1 � �ResError1("JP07",bytereq%):�close:=0
*mș "XImage_OpenOutput",handle%,0+dith%,Image+imhdr%,PalPtr%,IWork%,RevMap% � err%,,,IScan%,IParam%;flags%
+-� flags% � 1 � �PeekError(err%):�close:=0
,
Ȏ flg% �
-   � 0:�InitDrawHeader(Image)
."  � 1:�InitSpriteHeader(Image)
/�
0!JP_Work = JWorkSpace%
1!JP_Cache = JCache%
2!JP_DecParam = JParam%
3!JP_Decoder = JDecode%
4!JP_ImWork = IWork%
5!JP_LinePtr = Image+imhdr%
6!JP_ScanParam = IParam%
7!JP_ConvScan = IScan%
8ș "Hourglass_On"
9� y%=0 � yres-1
:  !JP_Index=y%
;+  ș "Hourglass_Percentage",y%*100/yres
<  � ConvertScan
=�
>ș "Hourglass_Off"
?
�close
@=�
A
B� �close
C%ș "XDJPEG_CloseStream",,,JCache%
D�
E
F
G� �code
H	LK=14
ISR_C=1<<29
JSR_V=1<<28
K� CODE &100
L� PASS=0 � 2 � 2
MP%=CODE
N
[OPT PASS
O
PS;------------------------------------------------------------------------------
Q;
R; ProcessNextScan
S;
T; On entry -
U#; On exit  - CC if processed ok
V#;          - CS if no more data
W;
XS;------------------------------------------------------------------------------
Y
Z".ConvertScan STMFD   R13!,{LK}
[#             LDR     R1,JP_Work
\             MOV     R6,R1
]$             LDR     R2,JP_Cache
^S             LDR     R3,JP_Index                    ; get kernel scanline index
_N             LDR     R4,JP_DecParam                 ; Get JPEG modules R12
`             MOV     LK,PC
aF             LDR     PC,JP_Decoder                  ; Call decoder
b'             BVS     DoneImageError
cK             LDMIA   R3,{R2,R3,R4,R5}               ; whip in scan ptrs
d!             ADD     R2,R6,R2
e!             ADD     R3,R6,R3
f!             ADD     R4,R6,R4
g!             ADD     R5,R6,R5
h%             LDR     R7,JP_ImWork
i             MOV     R0,#0
j&             LDR     R1,JP_LinePtr
k$             LDR     R6,JP_Index
l(             LDR     R5,JP_ScanParam
m             MOV     LK,PC
n'             LDR     PC,JP_ConvScan
o'             BVS     DoneImageError
p&             STR     R1,JP_LinePtr
q"             LDMFD   R13!,{LK}
r$             BICS    PC,LK,#SR_C
s
t.DoneImageError
u".DoneImage   LDMFD   R13!,{LK}
v#             �RS    PC,LK,#SR_C
w
x.JP_Index       EQUD    0
y.JP_Work        EQUD    0
z.JP_Cache       EQUD    0
{.JP_DecParam    EQUD    0
|.JP_Decoder     EQUD    0
}.JP_ImWork      EQUD    0
~.JP_LinePtr     EQUD    0
.JP_ScanParam   EQUD    0
�.JP_ConvScan    EQUD    0
�
�]�
��
�
�
�� �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("JP06")
�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
��
�
�
�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

�
 �#file%=ptr%
 offset%=�win_word(file%)

 � offset%<>0 �
  �#file%=ptr%+8
  type%=�win_word(file%)
  ident$=�win_string(file%)
  ptr%+=24
  �type%=1 �
   �ident$=n$ �
    �#file%=offset%+84
#    num_icons%=�win_word(file%)
'    data%=�win_title(file%,offset%)
A    �num_icons%<>0 data%+=�win_icon(file%,num_icons%,offset%)
     size%=88+(num_icons%*32)
/    offset%=0:� just to get out of the loop
   �
  �
 �
� offset%=0
�#file%
�
 
!� �win_word(h%)
"/=�#h%+(�#h% << 8)+(�#h% << 16)+(�#h% << 24)
#
$� �win_string(h%)
%� s$,c%
&�
' c%=�#h%
( � c%>31 � s$+=�(c%)
)� c%<32
*=s$
+
,� �win_title(file%,offset%)
-� v%
.�#file%=offset%+28
/v%=�win_word(file%)
0� (v% � 1<<31) �
1 � (v% � 1<<26) �
24  =�win_isd(file%,offset%+56,offset%+72,offset%)
3 �
4�
5 � (v% � 1) �
64  =�win_isd(file%,offset%+56,offset%+72,offset%)
7 �
8�
9=0
:
;#� �win_icon(file%,num%,offset%)
<� i%,j%
=
j%=0:x%=0
>�i%=0 � num%-1
?H j%+=�win_isd(file%,offset%+88+i%*32+16,offset%+88+i%*32+20,offset%)
@�
A=j%
B
C%� �win_isd(file%,o1%,o2%,offset%)
D� v%,ist%,size%,i%
E�#file%=o1%
Fv%=�win_word(file%)
G*� even if an icon is marked as deleted
H� it must be allowed for!
Ii%=(v% � %100000000)
Jist%=(v% � 3) + (i% >> 6)
K
Ȏ ist% �
L�   0: size%=0
M�   1: size%=0
N�   2: size%=0
O�   3: size%=0
P�   4: size%=0
Q� 5,7: �#file%=o2%+4
R!          v%=�win_word(file%)
S          �v%=-1 �
T           size%=0
U          �
V!           �#file%=offset%+v%
W,           size%=�(�win_string(file%))+1
X          �
Y          �#file%=o2%+8
Z%          size%+=�win_word(file%)
[�   6: �#file%=o2%+8
\$          size%=�win_word(file%)
]�
^
=size%
_
`!� �win_getselradio(win%,esg%)
aesg%=(esg% � %11111)<<16
b=ș "Wimp_WhichIcon",win%,scratch,&3F<<16,(&20<<16) � esg%
c=scratch!0
d
e� �win_boundmouse(win%)
f
!blk=win%
g#ș "Wimp_GetWindowOutline",,blk
h7�win_setmouserec(blk!4,blk!8,(blk!12)-4,(blk!16)-4)
i�
j
k� �win_releasemouse
l�win_deskdimensions
m'�win_setmouserec(0,0,deskx%,desky%)
n�
o
p'� �win_setmouserec(x0%,y0%,x1%,y1%)
q%ȗ ȓ x0%,y0%,(x1%-x0%),(y1%-y0%)
r�
s
t� �win_deskdimensions
u+ș "OS_ReadModeVariable",-1,4 � ,,xeig%
v+ș "OS_ReadModeVariable",-1,5 � ,,yeig%
w-ș "OS_ReadModeVariable",-1,11 � ,,deskx%
x-ș "OS_ReadModeVariable",-1,12 � ,,desky%
ydeskx%=(deskx%+1)<<xeig%
zdesky%=(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%
��(�(s$)+1)>icons%!36 �
�) � 0,"'"+s$+"' won't fit icon "+�(b%)
��
�$(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%
��
�
�� �icon_toggle(w%,i%,s%)
�!icons%=w%
�icons%!4=i%
�icons%!8=(s% � 1)<<21
�icons%!12=1<<21
�!ș"Wimp_SetIconState",,icons%
��
�
�!� �icon_setselradio(w%,i%,e%)
�	� se%
� se%=�icon_getselradio(w%,e%)
�%� se%>-1 � �icon_toggle(w%,se%,0)
��icon_toggle(w%,i%,1)
��
�
�� �icon_getselradio(w%,e%)
�e%=e% � %11111
�>ș "Wimp_WhichIcon",w%,icons%,&3F0000,(&200000 � (e%<<16))
�=!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 36 f4 20  |------.......6. |
00000070  20 41 75 72 74 68 6f 72  20 20 20 2d 20 4d 69 6b  | Aurthor   - Mik|
00000080  65 20 4b 65 6e 6e 79 20  40 20 43 6f 6d 70 75 74  |e Kenny @ Comput|
00000090  65 72 20 43 6f 6e 63 65  70 74 73 20 4c 74 64 2e  |er Concepts Ltd.|
000000a0  0d 00 06 4d f4 20 20 50  75 72 70 6f 73 65 20 20  |...M.  Purpose  |
000000b0  20 2d 20 42 61 73 69 63  20 63 6f 64 65 20 74 6f  | - Basic code to|
000000c0  20 70 65 72 66 6f 72 6d  20 74 72 61 6e 73 6c 61  | perform transla|
000000d0  74 69 6f 6e 20 6f 66 20  4a 50 45 47 20 66 69 6c  |tion of JPEG fil|
000000e0  65 73 20 74 6f 20 73 70  72 69 74 65 73 0d 00 07  |es to sprites...|
000000f0  17 f4 20 20 56 65 72 73  69 6f 6e 20 20 20 2d 20  |..  Version   - |
00000100  31 2e 30 30 0d 00 08 1b  f4 20 20 53 74 61 72 74  |1.00.....  Start|
00000110  65 64 20 20 20 2d 20 32  31 2f 31 32 2f 39 33 0d  |ed   - 21/12/93.|
00000120  00 09 12 f4 20 20 43 6f  6d 70 6c 65 74 65 64 20  |....  Completed |
00000130  2d 0d 00 0a 0e f4 20 20  43 68 61 6e 67 65 73 0d  |-.....  Changes.|
00000140  00 0b 2b f4 20 20 32 31  2f 31 32 2f 39 33 20 20  |..+.  21/12/93  |
00000150  4d 4a 4b 20 20 4f 72 69  67 69 6e 61 74 65 64 20  |MJK  Originated |
00000160  74 68 69 73 20 66 69 6c  65 2e 0d 00 0c 04 0d 00  |this file.......|
00000170  0d 51 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.Q. ------------|
00000180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000001c0  00 0e 04 0d 00 0f 20 ee  20 85 20 f2 52 65 70 6f  |...... . . .Repo|
000001d0  72 74 53 79 73 74 65 6d  45 72 72 6f 72 28 f6 24  |rtSystemError(.$|
000001e0  29 3a e0 0d 00 10 0c 44  65 62 75 67 25 3d a3 0d  |):.....Debug%=..|
000001f0  00 11 04 0d 00 12 0e de  20 62 6c 6b 20 31 30 32  |........ blk 102|
00000200  34 0d 00 13 12 de 20 73  63 72 61 74 63 68 20 31  |4..... scratch 1|
00000210  30 32 34 0d 00 14 12 de  20 50 61 63 6b 4e 61 6d  |024..... PackNam|
00000220  65 20 32 35 36 0d 00 15  0d de 20 62 6d 64 62 20  |e 256..... bmdb |
00000230  34 30 0d 00 16 10 de 20  69 63 6f 6e 73 25 20 32  |40..... icons% 2|
00000240  35 36 0d 00 17 14 de 20  77 69 6e 5f 62 75 66 66  |56..... win_buff|
00000250  25 20 31 30 32 34 0d 00  18 04 0d 00 19 09 f2 76  |% 1024.........v|
00000260  61 72 73 0d 00 1a 09 f2  63 6f 64 65 0d 00 1b 0d  |ars.....code....|
00000270  f2 4d 65 6d 5f 49 6e 69  74 0d 00 1c 1c f2 57 5f  |.Mem_Init.....W_|
00000280  49 6e 69 74 69 61 6c 69  73 65 28 61 70 70 5f 6e  |Initialise(app_n|
00000290  61 6d 65 24 29 0d 00 1d  15 54 25 3d a4 6c 6f 61  |ame$)....T%=.loa|
000002a0  64 72 65 73 6f 75 72 63  65 73 0d 00 1e 1b e7 20  |dresources..... |
000002b0  54 25 3d a3 20 8c 20 f2  57 5f 43 6c 6f 73 65 44  |T%=. . .W_CloseD|
000002c0  6f 77 6e 3a e0 0d 00 1f  4a f2 77 69 6e 5f 6c 6f  |own:....J.win_lo|
000002d0  61 64 5f 63 72 65 61 74  65 28 61 70 70 5f 70 61  |ad_create(app_pa|
000002e0  74 68 24 2b 22 2e 52 65  73 6f 75 72 63 65 73 2e  |th$+".Resources.|
000002f0  54 65 6d 70 6c 61 74 65  73 22 2c 22 63 6f 6e 74  |Templates","cont|
00000300  72 6f 6c 22 2c 2d 31 2c  63 74 72 6c 68 25 29 0d  |rol",-1,ctrlh%).|
00000310  00 20 11 f2 6c 6f 61 64  63 6f 6c 74 61 62 6c 65  |. ..loadcoltable|
00000320  0d 00 21 0b f2 57 5f 50  6f 6c 6c 0d 00 22 10 f2  |..!..W_Poll.."..|
00000330  57 5f 43 6c 6f 73 65 44  6f 77 6e 0d 00 23 05 e0  |W_CloseDown..#..|
00000340  0d 00 24 04 0d 00 25 04  0d 00 26 0b dd 20 f2 76  |..$...%...&.. .v|
00000350  61 72 73 0d 00 27 19 61  70 70 5f 6e 61 6d 65 24  |ars..'.app_name$|
00000360  3d 22 54 72 61 6e 73 4a  50 45 47 22 0d 00 28 1f  |="TransJPEG"..(.|
00000370  61 70 70 5f 70 61 74 68  24 3d 22 3c 54 72 61 6e  |app_path$="<Tran|
00000380  73 4a 50 45 47 24 44 69  72 3e 22 0d 00 29 15 61  |sJPEG$Dir>"..).a|
00000390  70 70 5f 6c 65 61 66 24  3d 22 54 4a 50 45 47 22  |pp_leaf$="TJPEG"|
000003a0  0d 00 2a 04 0d 00 2b 17  46 54 79 70 65 5f 53 70  |..*...+.FType_Sp|
000003b0  72 69 74 65 20 3d 20 26  46 46 39 0d 00 2c 17 46  |rite = &FF9..,.F|
000003c0  54 79 70 65 5f 44 72 61  77 20 20 20 3d 20 26 41  |Type_Draw   = &A|
000003d0  46 46 0d 00 2d 04 0d 00  2e 14 6d 65 73 73 5f 53  |FF..-.....mess_S|
000003e0  69 7a 65 20 20 20 20 3d  20 30 0d 00 2f 14 6d 65  |ize    = 0../.me|
000003f0  73 73 5f 53 65 6e 64 65  72 20 20 3d 20 34 0d 00  |ss_Sender  = 4..|
00000400  30 14 6d 65 73 73 5f 4d  79 52 65 66 20 20 20 3d  |0.mess_MyRef   =|
00000410  20 38 0d 00 31 15 6d 65  73 73 5f 59 6f 75 72 52  | 8..1.mess_YourR|
00000420  65 66 20 3d 20 31 32 0d  00 32 15 6d 65 73 73 5f  |ef = 12..2.mess_|
00000430  54 79 70 65 20 20 20 20  3d 20 31 36 0d 00 33 15  |Type    = 16..3.|
00000440  6d 65 73 73 5f 44 61 74  61 20 20 20 20 3d 20 32  |mess_Data    = 2|
00000450  30 0d 00 34 1c 6d 65 73  73 5f 4c 65 6e 67 74 68  |0..4.mess_Length|
00000460  20 20 3d 20 6d 65 73 73  5f 53 69 7a 65 0d 00 35  |  = mess_Size..5|
00000470  1e 6d 65 73 73 5f 54 61  73 6b 49 44 20 20 3d 20  |.mess_TaskID  = |
00000480  6d 65 73 73 5f 53 65 6e  64 65 72 0d 00 36 1c 6d  |mess_Sender..6.m|
00000490  65 73 73 5f 41 63 74 69  6f 6e 20 20 3d 20 6d 65  |ess_Action  = me|
000004a0  73 73 5f 54 79 70 65 0d  00 37 16 6d 65 73 73 5f  |ss_Type..7.mess_|
000004b0  53 49 5a 45 20 20 20 20  3d 20 32 35 36 0d 00 38  |SIZE    = 256..8|
000004c0  04 0d 00 39 11 44 61 74  61 53 61 76 65 25 20 3d  |...9.DataSave% =|
000004d0  20 31 0d 00 3a 14 44 61  74 61 53 61 76 65 41 63  | 1..:.DataSaveAc|
000004e0  6b 25 20 3d 20 32 0d 00  3b 11 44 61 74 61 4c 6f  |k% = 2..;.DataLo|
000004f0  61 64 25 20 3d 20 33 0d  00 3c 14 44 61 74 61 4c  |ad% = 3..<.DataL|
00000500  6f 61 64 41 63 6b 25 20  3d 20 34 0d 00 3d 0f 64  |oadAck% = 4..=.d|
00000510  6c 6f 61 64 72 65 66 25  3d 30 0d 00 3e 0f 64 73  |loadref%=0..>.ds|
00000520  61 76 65 72 65 66 25 3d  30 0d 00 3f 04 0d 00 40  |averef%=0..?...@|
00000530  10 53 54 5f 31 62 70 70  20 20 3d 20 31 0d 00 41  |.ST_1bpp  = 1..A|
00000540  10 53 54 5f 32 62 70 70  20 20 3d 20 32 0d 00 42  |.ST_2bpp  = 2..B|
00000550  10 53 54 5f 34 62 70 70  20 20 3d 20 33 0d 00 43  |.ST_4bpp  = 3..C|
00000560  10 53 54 5f 38 62 70 70  20 20 3d 20 34 0d 00 44  |.ST_8bpp  = 4..D|
00000570  10 53 54 5f 31 36 62 70  70 20 3d 20 35 0d 00 45  |.ST_16bpp = 5..E|
00000580  10 53 54 5f 33 32 62 70  70 20 3d 20 36 0d 00 46  |.ST_32bpp = 6..F|
00000590  10 53 54 5f 43 4d 59 4b  20 20 3d 20 37 0d 00 47  |.ST_CMYK  = 7..G|
000005a0  10 53 54 5f 32 34 62 70  70 20 3d 20 38 0d 00 48  |.ST_24bpp = 8..H|
000005b0  11 53 54 5f 53 68 69 66  74 20 3d 20 32 37 0d 00  |.ST_Shift = 27..|
000005c0  49 18 53 54 5f 4d 61 73  6b 20 20 3d 20 26 46 38  |I.ST_Mask  = &F8|
000005d0  30 30 30 30 30 30 0d 00  4a 04 0d 00 4b 10 74 79  |000000..J...K.ty|
000005e0  70 65 5f 69 63 6f 6e 25  3d 37 0d 00 4c 11 64 69  |pe_icon%=7..L.di|
000005f0  74 68 5f 69 63 6f 6e 25  3d 31 31 0d 00 4d 0e 6f  |th_icon%=11..M.o|
00000600  6b 5f 69 63 6f 6e 25 3d  33 0d 00 4e 13 63 61 6e  |k_icon%=3..N.can|
00000610  63 65 6c 5f 69 63 6f 6e  25 3d 31 36 0d 00 4f 04  |cel_icon%=16..O.|
00000620  0d 00 50 17 4a 74 79 70  65 5f 55 6e 6b 6f 77 6e  |..P.Jtype_Unkown|
00000630  20 20 20 20 3d 20 30 0d  00 51 17 4a 74 79 70 65  |    = 0..Q.Jtype|
00000640  5f 47 72 65 79 73 63 61  6c 65 20 3d 20 31 0d 00  |_Greyscale = 1..|
00000650  52 17 4a 74 79 70 65 5f  52 47 42 20 20 20 20 20  |R.Jtype_RGB     |
00000660  20 20 3d 20 32 0d 00 53  17 4a 74 79 70 65 5f 43  |  = 2..S.Jtype_C|
00000670  4d 59 4b 20 20 20 20 20  20 3d 20 33 0d 00 54 17  |MYK      = 3..T.|
00000680  4a 74 79 70 65 5f 59 43  62 43 72 20 20 20 20 20  |Jtype_YCbCr     |
00000690  3d 20 34 0d 00 55 17 4a  74 79 70 65 5f 59 49 51  |= 4..U.Jtype_YIQ|
000006a0  20 20 20 20 20 20 20 3d  20 35 0d 00 56 04 0d 00  |       = 5..V...|
000006b0  57 16 64 69 74 68 5f 6e  6f 6e 65 20 20 20 3d 20  |W.dith_none   = |
000006c0  30 3c 3c 32 0d 00 58 16  64 69 74 68 5f 73 69 6d  |0<<2..X.dith_sim|
000006d0  70 6c 65 20 3d 20 31 3c  3c 32 0d 00 59 16 64 69  |ple = 1<<2..Y.di|
000006e0  74 68 5f 66 6c 6f 79 64  20 20 3d 20 32 3c 3c 32  |th_floyd  = 2<<2|
000006f0  0d 00 5a 18 64 69 74 68  5f 66 6f 72 77 61 72 64  |..Z.dith_forward|
00000700  73 20 3d 20 30 3c 3c 35  0d 00 5b 18 64 69 74 68  |s = 0<<5..[.dith|
00000710  5f 62 61 63 6b 77 61 72  64 20 3d 20 31 3c 3c 35  |_backward = 1<<5|
00000720  0d 00 5c 16 64 69 74 68  5f 7a 69 67 7a 61 67 20  |..\.dith_zigzag |
00000730  3d 20 32 3c 3c 35 0d 00  5d 05 e1 0d 00 5e 04 0d  |= 2<<5..]....^..|
00000740  00 5f 17 dd 20 f2 57 5f  49 6e 69 74 69 61 6c 69  |._.. .W_Initiali|
00000750  73 65 28 6e 24 29 0d 00  60 11 24 62 6c 6b 20 3d  |se(n$)..`.$blk =|
00000760  20 22 54 41 53 4b 22 0d  00 61 3a c8 99 20 22 57  | "TASK"..a:.. "W|
00000770  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000780  32 30 30 2c 21 62 6c 6b  2c 61 70 70 5f 6e 61 6d  |200,!blk,app_nam|
00000790  65 24 20 b8 20 2c 54 61  73 6b 48 61 6e 64 6c 65  |e$ . ,TaskHandle|
000007a0  25 0d 00 62 05 e1 0d 00  63 04 0d 00 64 0d dd 20  |%..b....c...d.. |
000007b0  f2 57 5f 50 6f 6c 6c 0d  00 65 1b 70 6f 6c 6c 5f  |.W_Poll..e.poll_|
000007c0  6d 61 73 6b 25 20 3d 20  25 30 30 30 31 31 30 30  |mask% = %0001100|
000007d0  30 31 0d 00 66 0d 71 75  69 74 25 20 3d 20 a3 0d  |01..f.quit% = ..|
000007e0  00 67 05 f5 0d 00 68 2b  c8 99 20 22 57 69 6d 70  |.g....h+.. "Wimp|
000007f0  5f 50 6f 6c 6c 22 2c 70  6f 6c 6c 5f 6d 61 73 6b  |_Poll",poll_mask|
00000800  25 2c 62 6c 6b 20 b8 20  72 65 61 73 6f 6e 25 0d  |%,blk . reason%.|
00000810  00 69 10 c8 8e 20 72 65  61 73 6f 6e 25 20 ca 0d  |.i... reason% ..|
00000820  00 6a 17 20 20 c9 20 32  3a f2 57 5f 4f 70 65 6e  |.j.  . 2:.W_Open|
00000830  57 69 6e 64 6f 77 0d 00  6b 18 20 20 c9 20 33 3a  |Window..k.  . 3:|
00000840  f2 57 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 0d 00  |.W_CloseWindow..|
00000850  6c 17 20 20 c9 20 36 3a  f2 57 5f 4d 6f 75 73 65  |l.  . 6:.W_Mouse|
00000860  43 6c 69 63 6b 0d 00 6d  18 20 20 c9 20 31 37 2c  |Click..m.  . 17,|
00000870  31 38 3a f2 57 5f 4d 65  73 73 61 67 65 0d 00 6e  |18:.W_Message..n|
00000880  1d 20 20 c9 20 31 39 3a  f2 57 5f 52 65 63 6f 72  |.  . 19:.W_Recor|
00000890  64 65 64 4d 65 73 73 61  67 65 0d 00 6f 05 cb 0d  |dedMessage..o...|
000008a0  00 70 0b fd 20 71 75 69  74 25 0d 00 71 05 e1 0d  |.p.. quit%..q...|
000008b0  00 72 04 0d 00 73 13 dd  20 f2 57 5f 4f 70 65 6e  |.r...s.. .W_Open|
000008c0  57 69 6e 64 6f 77 0d 00  74 1d c8 99 20 22 57 69  |Window..t... "Wi|
000008d0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000008e0  62 6c 6b 0d 00 75 05 e1  0d 00 76 04 0d 00 77 13  |blk..u....v...w.|
000008f0  dd f2 57 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 0d  |..W_CloseWindow.|
00000900  00 78 1e c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.x... "Wimp_Clos|
00000910  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 0d 00 79  |eWindow",,blk..y|
00000920  05 e1 0d 00 7a 04 0d 00  7b 12 dd 20 f2 57 5f 43  |....z...{.. .W_C|
00000930  6c 6f 73 65 44 6f 77 6e  0d 00 7c 11 24 62 6c 6b  |loseDown..|.$blk|
00000940  20 3d 20 22 54 41 53 4b  22 0d 00 7d 28 c8 99 20  | = "TASK"..}(.. |
00000950  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000960  2c 54 61 73 6b 48 61 6e  64 6c 65 25 2c 21 62 6c  |,TaskHandle%,!bl|
00000970  6b 0d 00 7e 05 e1 0d 00  7f 04 0d 00 80 13 dd 20  |k..~........... |
00000980  f2 57 5f 4d 6f 75 73 65  43 6c 69 63 6b 0d 00 81  |.W_MouseClick...|
00000990  10 77 69 6e 64 25 3d 62  6c 6b 21 31 32 0d 00 82  |.wind%=blk!12...|
000009a0  10 69 63 6f 6e 25 3d 62  6c 6b 21 31 36 0d 00 83  |.icon%=blk!16...|
000009b0  2a e7 20 77 69 6e 64 25  3d 63 74 72 6c 68 25 20  |*. wind%=ctrlh% |
000009c0  8c 20 f2 63 6f 6e 74 72  6f 6c 5f 63 6c 69 63 6b  |. .control_click|
000009d0  28 69 63 6f 6e 25 29 0d  00 84 05 e1 0d 00 85 04  |(icon%).........|
000009e0  0d 00 86 10 dd 20 f2 57  5f 4d 65 73 73 61 67 65  |..... .W_Message|
000009f0  0d 00 87 16 ea 20 72 65  66 25 2c 74 61 73 6b 25  |..... ref%,task%|
00000a00  2c 63 6f 6d 6d 25 0d 00  88 3d 72 65 66 25 20 3d  |,comm%...=ref% =|
00000a10  62 6c 6b 21 38 20 20 20  20 20 20 20 20 20 20 20  |blk!8           |
00000a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a30  20 3a f4 20 74 68 65 20  73 65 6e 64 65 72 73 20  | :. the senders |
00000a40  72 65 66 0d 00 89 41 74  61 73 6b 25 3d 62 6c 6b  |ref...Atask%=blk|
00000a50  21 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |!4              |
00000a60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00000a70  20 74 68 65 20 73 65 6e  64 65 72 73 20 74 61 73  | the senders tas|
00000a80  6b 20 69 64 0d 00 8a 3b  e7 20 74 61 73 6b 25 3d  |k id...;. task%=|
00000a90  54 61 73 6b 48 61 6e 64  6c 65 25 3a e1 20 20 20  |TaskHandle%:.   |
00000aa0  20 20 20 20 20 20 20 20  3a f4 20 69 67 6e 6f 72  |        :. ignor|
00000ab0  65 20 69 66 20 77 65 20  73 65 6e 74 20 69 74 0d  |e if we sent it.|
00000ac0  00 8b 10 20 c8 8e 20 62  6c 6b 21 31 36 20 ca 0d  |... .. blk!16 ..|
00000ad0  00 8c 12 20 20 c9 20 30  3a 20 71 75 69 74 25 3d  |...  . 0: quit%=|
00000ae0  b9 0d 00 8d 17 20 20 c9  20 32 3a 20 f2 44 61 74  |.....  . 2: .Dat|
00000af0  61 53 61 76 65 41 63 6b  0d 00 8e 17 20 20 c9 20  |aSaveAck....  . |
00000b00  34 3a 20 f2 44 61 74 61  4c 6f 61 64 41 63 6b 0d  |4: .DataLoadAck.|
00000b10  00 8f 25 20 20 c9 20 26  38 30 45 31 46 3a f2 52  |..%  . &80E1F:.R|
00000b20  65 63 65 69 76 65 64 54  72 61 6e 73 46 46 47 28  |eceivedTransFFG(|
00000b30  62 6c 6b 29 0d 00 90 05  cb 0d 00 91 05 e1 0d 00  |blk)............|
00000b40  92 04 0d 00 93 18 dd 20  f2 57 5f 52 65 63 6f 72  |....... .W_Recor|
00000b50  64 65 64 4d 65 73 73 61  67 65 0d 00 94 3d 72 65  |dedMessage...=re|
00000b60  66 25 20 3d 62 6c 6b 21  38 20 20 20 20 20 20 20  |f% =blk!8       |
00000b70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b80  20 20 20 20 20 3a f4 20  74 68 65 20 73 65 6e 64  |     :. the send|
00000b90  65 72 73 20 72 65 66 0d  00 95 41 74 61 73 6b 25  |ers ref...Atask%|
00000ba0  3d 62 6c 6b 21 34 20 20  20 20 20 20 20 20 20 20  |=blk!4          |
00000bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000bc0  20 20 3a f4 20 74 68 65  20 73 65 6e 64 65 72 73  |  :. the senders|
00000bd0  20 74 61 73 6b 20 69 64  0d 00 96 10 20 c8 8e 20  | task id.... .. |
00000be0  62 6c 6b 21 31 36 20 ca  0d 00 97 2d 20 20 c9 20  |blk!16 ....-  . |
00000bf0  44 61 74 61 53 61 76 65  25 3a 20 e7 20 72 65 66  |DataSave%: . ref|
00000c00  25 3d 64 73 61 76 65 72  65 66 25 20 8c 20 71 75  |%=dsaveref% . qu|
00000c10  69 74 25 3d b9 0d 00 98  2d 20 20 c9 20 44 61 74  |it%=....-  . Dat|
00000c20  61 4c 6f 61 64 25 3a 20  e7 20 72 65 66 25 3d 64  |aLoad%: . ref%=d|
00000c30  6c 6f 61 64 72 65 66 25  20 8c 20 71 75 69 74 25  |loadref% . quit%|
00000c40  3d b9 0d 00 99 06 20 cb  0d 00 9a 05 e1 0d 00 9b  |=..... .........|
00000c50  04 0d 00 9c 04 0d 00 9d  51 f4 20 2d 2d 2d 2d 2d  |........Q. -----|
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ca0  2d 2d 2d 2d 2d 2d 0d 00  9e 05 f4 0d 00 9f 21 f4  |------........!.|
00000cb0  20 53 74 72 69 6e 67 20  6d 61 6e 69 70 75 6c 61  | String manipula|
00000cc0  74 69 6f 6e 20 73 65 63  74 69 6f 6e 0d 00 a0 05  |tion section....|
00000cd0  f4 0d 00 a1 51 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....Q. ---------|
00000ce0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d20  2d 2d 0d 00 a2 04 0d 00  a3 14 dd 20 a4 67 65 74  |--......... .get|
00000d30  73 74 72 69 6e 67 28 61  25 29 0d 00 a4 08 ea 20  |string(a%)..... |
00000d40  61 24 0d 00 a5 09 61 24  3d 22 22 0d 00 a6 0e c8  |a$....a$="".....|
00000d50  95 20 3f 61 25 3e 3d 33  32 0d 00 a7 12 20 20 61  |. ?a%>=32....  a|
00000d60  24 3d 61 24 2b bd 28 3f  61 25 29 0d 00 a8 0b 20  |$=a$+.(?a%).... |
00000d70  20 61 25 2b 3d 31 0d 00  a9 05 ce 0d 00 aa 07 3d  | a%+=1.........=|
00000d80  61 24 0d 00 ab 04 0d 00  ac 1a dd 20 f2 70 6f 6b  |a$......... .pok|
00000d90  65 73 74 72 28 73 24 2c  70 74 72 2c 70 61 64 29  |estr(s$,ptr,pad)|
00000da0  0d 00 ad 08 ea 20 6d 25  0d 00 ae 12 e3 20 6d 25  |..... m%..... m%|
00000db0  3d 30 20 b8 20 70 61 64  2d 31 0d 00 af 0d 20 70  |=0 . pad-1.... p|
00000dc0  74 72 3f 6d 25 3d 30 0d  00 b0 05 ed 0d 00 b1 13  |tr?m%=0.........|
00000dd0  24 70 74 72 3d c0 73 24  2c 70 61 64 2d 31 29 0d  |$ptr=.s$,pad-1).|
00000de0  00 b2 05 e1 0d 00 b3 04  0d 00 b4 04 0d 00 b5 51  |...............Q|
00000df0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000e00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000e30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 b6  |-------------...|
00000e40  05 f4 0d 00 b7 1a f4 20  44 61 74 61 20 6c 6f 61  |....... Data loa|
00000e50  64 69 6e 67 20 73 65 63  74 69 6f 6e 0d 00 b8 05  |ding section....|
00000e60  f4 0d 00 b9 51 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....Q. ---------|
00000e70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000eb0  2d 2d 0d 00 ba 04 0d 00  bb 1d dd 20 f2 52 65 63  |--......... .Rec|
00000ec0  65 69 76 65 64 54 72 61  6e 73 46 46 47 28 6d 65  |eivedTransFFG(me|
00000ed0  73 73 29 0d 00 bc 30 e7  20 a4 67 65 74 73 74 72  |ss)...0. .getstr|
00000ee0  69 6e 67 28 6d 65 73 73  2b 34 38 29 3c 3e 61 70  |ing(mess+48)<>ap|
00000ef0  70 5f 6e 61 6d 65 24 20  8c 20 71 75 69 74 25 3d  |p_name$ . quit%=|
00000f00  b9 3a e1 0d 00 bd 13 6f  66 74 79 70 65 25 3d 6d  |.:.....oftype%=m|
00000f10  65 73 73 21 34 34 0d 00  be 10 c8 8e 20 6f 66 74  |ess!44...... oft|
00000f20  79 70 65 25 20 ca 0d 00  bf 1b c9 20 46 54 79 70  |ype% ...... FTyp|
00000f30  65 5f 44 72 61 77 20 3a  6f 66 6c 61 67 73 25 3d  |e_Draw :oflags%=|
00000f40  30 0d 00 c0 1d c9 20 46  54 79 70 65 5f 53 70 72  |0..... FType_Spr|
00000f50  69 74 65 20 3a 6f 66 6c  61 67 73 25 3d 31 0d 00  |ite :oflags%=1..|
00000f60  c1 11 7f 20 6f 66 6c 61  67 73 25 3d 32 35 36 0d  |... oflags%=256.|
00000f70  00 c2 05 cb 0d 00 c3 2f  e7 20 6f 66 6c 61 67 73  |......./. oflags|
00000f80  25 3d 32 35 36 20 8c 20  f2 52 65 73 45 72 72 6f  |%=256 . .ResErro|
00000f90  72 28 22 4a 50 30 35 22  29 3a 71 75 69 74 25 3d  |r("JP05"):quit%=|
00000fa0  b9 3a e1 0d 00 c4 11 64  77 69 6e 25 3d 6d 65 73  |.:.....dwin%=mes|
00000fb0  73 21 32 30 0d 00 c5 12  64 69 63 6f 6e 25 3d 6d  |s!20....dicon%=m|
00000fc0  65 73 73 21 32 34 0d 00  c6 10 64 69 78 25 3d 6d  |ess!24....dix%=m|
00000fd0  65 73 73 21 32 38 0d 00  c7 10 64 69 79 25 3d 6d  |ess!28....diy%=m|
00000fe0  65 73 73 21 33 32 0d 00  c8 12 73 65 6e 64 65 72  |ess!32....sender|
00000ff0  25 3d 6d 65 73 73 21 34  0d 00 c9 11 6d 79 72 65  |%=mess!4....myre|
00001000  66 25 3d 6d 65 73 73 21  38 0d 00 ca 11 6f 72 69  |f%=mess!8....ori|
00001010  67 25 3d 6d 65 73 73 21  33 36 0d 00 cb 1f 66 70  |g%=mess!36....fp|
00001020  61 74 68 24 3d a4 67 65  74 73 74 72 69 6e 67 28  |ath$=.getstring(|
00001030  6d 65 73 73 2b 31 30 34  29 0d 00 cc 1d 66 6c 65  |mess+104)....fle|
00001040  6e 25 3d a4 46 69 6c 65  4c 65 6e 67 74 68 28 66  |n%=.FileLength(f|
00001050  70 61 74 68 24 29 0d 00  cd 2b e7 20 66 6c 65 6e  |path$)...+. flen|
00001060  25 3d 30 20 8c 20 f2 52  65 73 45 72 72 6f 72 28  |%=0 . .ResError(|
00001070  22 4a 50 30 31 22 29 3a  71 75 69 74 25 3d b9 3a  |"JP01"):quit%=.:|
00001080  e1 0d 00 ce 18 f2 53 65  6e 64 54 72 61 6e 73 6c  |......SendTransl|
00001090  61 74 65 46 46 47 41 63  6b 0d 00 cf 25 63 6c 25  |ateFFGAck...%cl%|
000010a0  3d a4 63 6f 6e 74 72 6f  6c 5f 63 6f 6e 66 69 67  |=.control_config|
000010b0  28 66 70 61 74 68 24 2c  66 6c 65 6e 25 29 0d 00  |(fpath$,flen%)..|
000010c0  d0 0b e7 20 63 6c 25 20  8c 0d 00 d1 1c 20 f2 77  |... cl% ..... .w|
000010d0  69 6e 5f 74 6f 70 63 65  6e 74 72 65 64 28 63 74  |in_topcentred(ct|
000010e0  72 6c 68 25 29 0d 00 d2  05 cc 0d 00 d3 0c 20 71  |rlh%)......... q|
000010f0  75 69 74 25 3d b9 0d 00  d4 05 cd 0d 00 d5 05 e1  |uit%=...........|
00001100  0d 00 d6 04 0d 00 d7 1d  dd 20 a4 63 6f 6e 74 72  |......... .contr|
00001110  6f 6c 5f 63 6f 6e 66 69  67 28 70 24 2c 66 6c 25  |ol_config(p$,fl%|
00001120  29 0d 00 d8 18 4a 43 61  63 68 65 25 3d a4 43 6c  |)....JCache%=.Cl|
00001130  61 69 6d 28 31 30 32 34  29 0d 00 d9 31 e7 20 4a  |aim(1024)...1. J|
00001140  43 61 63 68 65 25 3d 2d  31 20 8c 20 f2 52 65 73  |Cache%=-1 . .Res|
00001150  45 72 72 6f 72 31 28 22  4a 50 30 38 22 2c 62 79  |Error1("JP08",by|
00001160  74 65 72 65 71 25 29 3a  3d 30 0d 00 da 11 21 4a  |tereq%):=0....!J|
00001170  43 61 63 68 65 25 3d 31  30 32 34 0d 00 db 61 c8  |Cache%=1024...a.|
00001180  99 20 22 58 44 4a 50 45  47 5f 44 65 73 63 72 69  |. "XDJPEG_Descri|
00001190  62 65 49 6d 61 67 65 22  2c 31 2c 70 24 2c 4a 43  |beImage",1,p$,JC|
000011a0  61 63 68 65 25 2c 66 6c  25 20 b8 20 6a 66 6c 61  |ache%,fl% . jfla|
000011b0  67 73 2c 78 72 65 73 2c  79 72 65 73 2c 73 69 6e  |gs,xres,yres,sin|
000011c0  66 6f 2c 78 64 65 6e 2c  79 64 65 6e 2c 6a 77 6f  |fo,xden,yden,jwo|
000011d0  72 6b 6c 65 6e 3b 66 6c  61 67 73 25 0d 00 dc 28  |rklen;flags%...(|
000011e0  e7 20 66 6c 61 67 73 25  20 80 20 31 20 8c 20 f2  |. flags% . 1 . .|
000011f0  50 65 65 6b 45 72 72 6f  72 28 6a 66 6c 61 67 73  |PeekError(jflags|
00001200  29 3a 3d 30 0d 00 dd 16  69 74 79 70 65 25 3d 6a  |):=0....itype%=j|
00001210  66 6c 61 67 73 20 80 20  26 46 0d 00 de 4a e7 20  |flags . &F...J. |
00001220  69 74 79 70 65 25 3c 3e  4a 74 79 70 65 5f 47 72  |itype%<>Jtype_Gr|
00001230  65 79 73 63 61 6c 65 20  80 20 69 74 79 70 65 25  |eyscale . itype%|
00001240  3c 3e 4a 74 79 70 65 5f  59 43 62 43 72 20 8c 20  |<>Jtype_YCbCr . |
00001250  f2 52 65 73 45 72 72 6f  72 28 22 4a 50 30 34 22  |.ResError("JP04"|
00001260  29 3a 3d 30 0d 00 df 19  69 6e 73 61 6d 70 6c 65  |):=0....insample|
00001270  25 3d 73 69 6e 66 6f 20  80 20 26 46 46 0d 00 e0  |%=sinfo . &FF...|
00001280  1e 69 73 61 6d 70 62 69  74 25 3d 28 73 69 6e 66  |.isampbit%=(sinf|
00001290  6f 3e 3e 38 29 20 80 20  26 46 46 0d 00 e1 1d 69  |o>>8) . &FF....i|
000012a0  62 70 70 25 3d 69 6e 73  61 6d 70 6c 65 25 2a 69  |bpp%=insample%*i|
000012b0  73 61 6d 70 62 69 74 25  0d 00 e2 39 e7 20 69 73  |sampbit%...9. is|
000012c0  61 6d 70 62 69 74 25 3c  3e 38 20 80 20 69 73 61  |ampbit%<>8 . isa|
000012d0  6d 70 62 69 74 25 3c 3e  31 32 20 8c 20 f2 52 65  |mpbit%<>12 . .Re|
000012e0  73 45 72 72 6f 72 28 22  4a 50 30 32 22 29 3a 3d  |sError("JP02"):=|
000012f0  30 0d 00 e3 0c f2 73 68  6f 77 72 65 73 0d 00 e4  |0.....showres...|
00001300  06 3d b9 0d 00 e5 04 0d  00 e6 18 dd 20 f2 63 6f  |.=.......... .co|
00001310  6e 74 72 6f 6c 5f 63 6c  69 63 6b 28 69 25 29 0d  |ntrol_click(i%).|
00001320  00 e7 37 e7 20 69 25 3e  28 74 79 70 65 5f 69 63  |..7. i%>(type_ic|
00001330  6f 6e 25 2d 31 29 20 80  20 69 25 3c 28 74 79 70  |on%-1) . i%<(typ|
00001340  65 5f 69 63 6f 6e 25 2b  33 29 20 8c 20 f2 73 68  |e_icon%+3) . .sh|
00001350  6f 77 73 69 7a 65 0d 00  e8 1f e7 20 69 25 3d 6f  |owsize..... i%=o|
00001360  6b 5f 69 63 6f 6e 25 20  8c 20 f2 63 6f 6e 74 72  |k_icon% . .contr|
00001370  6f 6c 5f 6f 6b 0d 00 e9  2e e7 20 69 25 3d 63 61  |ol_ok..... i%=ca|
00001380  6e 63 65 6c 5f 69 63 6f  6e 25 20 8c 20 20 f2 4d  |ncel_icon% .  .M|
00001390  65 6d 5f 4b 69 6c 6c 53  6c 6f 74 3a 71 75 69 74  |em_KillSlot:quit|
000013a0  25 3d b9 0d 00 ea 05 e1  0d 00 eb 04 0d 00 ec 04  |%=..............|
000013b0  0d 00 ed 11 dd 20 f2 63  6f 6e 74 72 6f 6c 5f 6f  |..... .control_o|
000013c0  6b 0d 00 ee 2b 63 6c 25  3d a4 46 69 6c 74 65 72  |k...+cl%=.Filter|
000013d0  4a 50 45 47 28 31 2c 66  70 61 74 68 24 2c 66 6c  |JPEG(1,fpath$,fl|
000013e0  65 6e 25 2c 6f 66 6c 61  67 73 25 29 0d 00 ef 24  |en%,oflags%)...$|
000013f0  e7 20 6f 72 69 67 25 3c  3e 30 20 8c 20 f2 44 65  |. orig%<>0 . .De|
00001400  6c 65 74 65 46 69 6c 65  28 66 70 61 74 68 24 29  |leteFile(fpath$)|
00001410  0d 00 f0 0b e7 20 63 6c  25 20 8c 0d 00 f1 25 20  |..... cl% ....% |
00001420  f2 52 65 74 75 72 6e 46  69 6c 65 28 73 65 6e 64  |.ReturnFile(send|
00001430  65 72 25 2c 63 6c 25 2c  6f 66 74 79 70 65 25 29  |er%,cl%,oftype%)|
00001440  0d 00 f2 05 cc 0d 00 f3  12 20 f2 4d 65 6d 5f 4b  |......... .Mem_K|
00001450  69 6c 6c 53 6c 6f 74 0d  00 f4 0c 20 71 75 69 74  |illSlot.... quit|
00001460  25 3d b9 0d 00 f5 05 cd  0d 00 f6 05 e1 0d 00 f7  |%=..............|
00001470  04 0d 00 f8 04 0d 00 f9  0e dd 20 f2 73 68 6f 77  |.......... .show|
00001480  72 65 73 0d 00 fa 11 f2  63 6f 6e 74 72 6f 6c 5f  |res.....control_|
00001490  69 6e 66 6f 0d 00 fb 08  69 25 3d 39 0d 00 fc 0f  |info....i%=9....|
000014a0  c8 8e 20 69 74 79 70 65  25 20 ca 0d 00 fd 34 c9  |.. itype% ....4.|
000014b0  20 4a 74 79 70 65 5f 47  72 65 79 73 63 61 6c 65  | Jtype_Greyscale|
000014c0  3a 73 24 3d 22 4a 46 49  46 20 47 72 65 79 73 63  |:s$="JFIF Greysc|
000014d0  61 6c 65 2c 20 38 62 70  70 22 3a 69 25 3d 37 0d  |ale, 8bpp":i%=7.|
000014e0  00 fe 2d c9 20 4a 74 79  70 65 5f 59 43 62 43 72  |..-. Jtype_YCbCr|
000014f0  3a 73 24 3d 22 4a 46 49  46 20 59 43 62 43 72 2c  |:s$="JFIF YCbCr,|
00001500  20 32 34 62 70 70 22 3a  69 25 3d 39 0d 00 ff 05  | 24bpp":i%=9....|
00001510  cb 0d 01 00 25 f2 69 63  6f 6e 5f 77 72 69 74 65  |....%.icon_write|
00001520  28 63 74 72 6c 68 25 2c  31 34 2c 22 54 79 70 65  |(ctrlh%,14,"Type|
00001530  3d 22 2b 73 24 29 0d 01  01 41 f2 69 63 6f 6e 5f  |="+s$)...A.icon_|
00001540  77 72 69 74 65 28 63 74  72 6c 68 25 2c 35 2c 22  |write(ctrlh%,5,"|
00001550  52 65 73 6f 6c 75 74 69  6f 6e 3d 22 2b c3 78 72  |Resolution="+.xr|
00001560  65 73 2b 22 78 22 2b c3  79 72 65 73 2b 22 20 70  |es+"x"+.yres+" p|
00001570  69 78 65 6c 73 22 29 0d  01 02 22 f2 69 63 6f 6e  |ixels")...".icon|
00001580  5f 73 65 74 73 65 6c 72  61 64 69 6f 28 63 74 72  |_setselradio(ctr|
00001590  6c 68 25 2c 69 25 2c 31  29 0d 01 03 0d f2 73 68  |lh%,i%,1).....sh|
000015a0  6f 77 73 69 7a 65 0d 01  04 05 e1 0d 01 05 04 0d  |owsize..........|
000015b0  01 06 0e dd f2 73 68 6f  77 73 69 7a 65 0d 01 07  |.....showsize...|
000015c0  11 f2 63 6f 6e 74 72 6f  6c 5f 69 6e 66 6f 0d 01  |..control_info..|
000015d0  08 26 66 73 69 7a 65 25  3d a4 49 6d 61 67 65 53  |.&fsize%=.ImageS|
000015e0  69 7a 65 28 6f 62 70 70  25 2c 78 72 65 73 2c 79  |ize(obpp%,xres,y|
000015f0  72 65 73 29 0d 01 09 2e  c8 99 20 22 4f 53 5f 43  |res)...... "OS_C|
00001600  6f 6e 76 65 72 74 46 69  6c 65 53 69 7a 65 22 2c  |onvertFileSize",|
00001610  66 73 69 7a 65 25 2c 73  63 72 61 74 63 68 2c 32  |fsize%,scratch,2|
00001620  35 36 0d 01 0a 1a 73 24  3d a4 67 65 74 73 74 72  |56....s$=.getstr|
00001630  69 6e 67 28 73 63 72 61  74 63 68 29 0d 01 0b 1c  |ing(scratch)....|
00001640  f2 69 63 6f 6e 5f 77 72  69 74 65 28 63 74 72 6c  |.icon_write(ctrl|
00001650  68 25 2c 36 2c 73 24 29  0d 01 0c 05 e1 0d 01 0d  |h%,6,s$)........|
00001660  04 0d 01 0e 1c dd 20 a4  49 6d 61 67 65 53 69 7a  |...... .ImageSiz|
00001670  65 28 62 70 70 25 2c 78  25 2c 79 25 29 0d 01 0f  |e(bpp%,x%,y%)...|
00001680  11 ea 20 73 69 7a 65 25  2c 62 69 74 73 25 0d 01  |.. size%,bits%..|
00001690  10 2b e7 20 62 70 70 25  3c 31 36 20 8c 20 73 69  |.+. bpp%<16 . si|
000016a0  7a 65 25 3d 28 31 3c 3c  62 70 70 25 29 2a 38 20  |ze%=(1<<bpp%)*8 |
000016b0  8b 20 73 69 7a 65 25 3d  30 0d 01 11 1e 62 69 74  |. size%=0....bit|
000016c0  73 25 3d 28 28 78 25 2a  62 70 70 25 29 2b 33 31  |s%=((x%*bpp%)+31|
000016d0  29 20 80 20 2d 33 32 0d  01 12 12 62 69 74 73 25  |) . -32....bits%|
000016e0  3d 62 69 74 73 25 3e 3e  33 0d 01 13 1b 73 69 7a  |=bits%>>3....siz|
000016f0  65 25 3d 34 34 2b 73 69  7a 65 25 2b 79 25 2a 62  |e%=44+size%+y%*b|
00001700  69 74 73 25 0d 01 14 0a  3d 73 69 7a 65 25 0d 01  |its%....=size%..|
00001710  15 04 0d 01 16 13 dd 20  f2 63 6f 6e 74 72 6f 6c  |....... .control|
00001720  5f 69 6e 66 6f 0d 01 17  30 6f 74 79 70 65 25 3d  |_info...0otype%=|
00001730  a4 77 69 6e 5f 67 65 74  73 65 6c 72 61 64 69 6f  |.win_getselradio|
00001740  28 63 74 72 6c 68 25 2c  31 29 2d 74 79 70 65 5f  |(ctrlh%,1)-type_|
00001750  69 63 6f 6e 25 0d 01 18  30 6f 64 69 74 68 25 3d  |icon%...0odith%=|
00001760  a4 77 69 6e 5f 67 65 74  73 65 6c 72 61 64 69 6f  |.win_getselradio|
00001770  28 63 74 72 6c 68 25 2c  32 29 2d 64 69 74 68 5f  |(ctrlh%,2)-dith_|
00001780  69 63 6f 6e 25 0d 01 19  2e e7 20 6f 74 79 70 65  |icon%..... otype|
00001790  25 3d 30 20 84 20 6f 74  79 70 65 25 3d 31 20 8c  |%=0 . otype%=1 .|
000017a0  20 6f 62 70 70 25 3d 38  20 8b 20 6f 62 70 70 25  | obpp%=8 . obpp%|
000017b0  3d 33 32 0d 01 1a 05 e1  0d 01 1b 04 0d 01 1c 04  |=32.............|
000017c0  0d 01 1d 1a dd 20 f2 53  65 6e 64 54 72 61 6e 73  |..... .SendTrans|
000017d0  6c 61 74 65 46 46 47 41  63 6b 0d 01 1e 15 73 63  |lateFFGAck....sc|
000017e0  72 61 74 63 68 21 31 32  3d 6d 79 72 65 66 25 0d  |ratch!12=myref%.|
000017f0  01 1f 15 73 63 72 61 74  63 68 21 31 36 3d 26 38  |...scratch!16=&8|
00001800  30 45 32 30 0d 01 20 10  73 63 72 61 74 63 68 21  |0E20.. .scratch!|
00001810  30 3d 32 30 0d 01 21 2c  c8 99 20 22 57 69 6d 70  |0=20..!,.. "Wimp|
00001820  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00001830  2c 73 63 72 61 74 63 68  2c 73 65 6e 64 65 72 25  |,scratch,sender%|
00001840  0d 01 22 05 e1 0d 01 23  04 0d 01 24 04 0d 01 25  |.."....#...$...%|
00001850  12 dd 20 f2 44 61 74 61  53 61 76 65 41 63 6b 0d  |.. .DataSaveAck.|
00001860  01 26 25 e7 20 62 6c 6b  21 6d 65 73 73 5f 59 6f  |.&%. blk!mess_Yo|
00001870  75 72 52 65 66 3c 3e 64  73 61 76 65 72 65 66 25  |urRef<>dsaveref%|
00001880  20 8c 20 e1 0d 01 27 1d  73 70 61 74 68 24 3d a4  | . ...'.spath$=.|
00001890  67 65 74 73 74 72 69 6e  67 28 62 6c 6b 2b 34 34  |getstring(blk+44|
000018a0  29 0d 01 28 24 73 25 3d  a4 53 61 76 65 54 72 61  |)..($s%=.SaveTra|
000018b0  6e 73 46 69 6c 65 28 73  70 61 74 68 24 2c 62 6c  |nsFile(spath$,bl|
000018c0  6b 21 34 30 29 0d 01 29  0a e7 20 73 25 20 8c 0d  |k!40)..).. s% ..|
000018d0  01 2a 1d 20 20 73 65 6e  64 65 72 25 3d 62 6c 6b  |.*.  sender%=blk|
000018e0  21 6d 65 73 73 5f 53 65  6e 64 65 72 0d 01 2b 12  |!mess_Sender..+.|
000018f0  20 20 62 6c 6b 21 31 32  3d 62 6c 6b 21 38 0d 01  |  blk!12=blk!8..|
00001900  2c 1d 20 20 62 6c 6b 21  6d 65 73 73 5f 54 79 70  |,.  blk!mess_Typ|
00001910  65 3d 44 61 74 61 4c 6f  61 64 25 0d 01 2d 2a 20  |e=DataLoad%..-* |
00001920  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00001930  73 73 61 67 65 22 2c 31  38 2c 62 6c 6b 2c 73 65  |ssage",18,blk,se|
00001940  6e 64 65 72 25 0d 01 2e  1e 20 20 64 6c 6f 61 64  |nder%....  dload|
00001950  72 65 66 25 3d 62 6c 6b  21 6d 65 73 73 5f 4d 79  |ref%=blk!mess_My|
00001960  52 65 66 0d 01 2f 05 cc  0d 01 30 0d 20 20 71 75  |Ref../....0.  qu|
00001970  69 74 25 3d b9 0d 01 31  05 cd 0d 01 32 05 e1 0d  |it%=...1....2...|
00001980  01 33 04 0d 01 34 04 0d  01 35 12 dd 20 f2 44 61  |.3...4...5.. .Da|
00001990  74 61 4c 6f 61 64 41 63  6b 0d 01 36 1a 79 72 65  |taLoadAck..6.yre|
000019a0  66 25 3d 62 6c 6b 21 6d  65 73 73 5f 59 6f 75 72  |f%=blk!mess_Your|
000019b0  52 65 66 0d 01 37 2a e7  20 62 6c 6b 21 6d 65 73  |Ref..7*. blk!mes|
000019c0  73 5f 59 6f 75 72 52 65  66 3d 64 6c 6f 61 64 72  |s_YourRef=dloadr|
000019d0  65 66 25 20 8c 20 71 75  69 74 25 3d b9 0d 01 38  |ef% . quit%=...8|
000019e0  05 e1 0d 01 39 04 0d 01  3a 04 0d 01 3b 24 dd 20  |....9...:...;$. |
000019f0  f2 52 65 74 75 72 6e 46  69 6c 65 28 73 6e 64 72  |.ReturnFile(sndr|
00001a00  25 2c 6c 65 6e 25 2c 66  74 79 70 65 25 29 0d 01  |%,len%,ftype%)..|
00001a10  3c 26 e7 20 a4 64 6f 65  73 76 61 72 65 78 69 73  |<&. .doesvarexis|
00001a20  74 28 22 57 69 6d 70 24  53 63 72 61 70 22 29 3c  |t("Wimp$Scrap")<|
00001a30  3e 30 20 8c 0d 01 3d 18  20 20 62 6c 6b 21 6d 65  |>0 ...=.  blk!me|
00001a40  73 73 5f 59 6f 75 72 52  65 66 3d 30 0d 01 3e 1d  |ss_YourRef=0..>.|
00001a50  20 20 62 6c 6b 21 6d 65  73 73 5f 54 79 70 65 3d  |  blk!mess_Type=|
00001a60  44 61 74 61 53 61 76 65  25 0d 01 3f 12 20 20 62  |DataSave%..?.  b|
00001a70  6c 6b 21 32 30 3d 64 77  69 6e 25 0d 01 40 13 20  |lk!20=dwin%..@. |
00001a80  20 62 6c 6b 21 32 34 3d  64 69 63 6f 6e 25 0d 01  | blk!24=dicon%..|
00001a90  41 11 20 20 62 6c 6b 21  32 38 3d 64 69 78 25 0d  |A.  blk!28=dix%.|
00001aa0  01 42 11 20 20 62 6c 6b  21 33 32 3d 64 69 79 25  |.B.  blk!32=diy%|
00001ab0  0d 01 43 11 20 20 62 6c  6b 21 33 36 3d 6c 65 6e  |..C.  blk!36=len|
00001ac0  25 0d 01 44 13 20 20 62  6c 6b 21 34 30 3d 66 74  |%..D.  blk!40=ft|
00001ad0  79 70 65 25 0d 01 45 19  20 20 24 28 62 6c 6b 2b  |ype%..E.  $(blk+|
00001ae0  34 34 29 3d 61 70 70 5f  6c 65 61 66 24 0d 01 46  |44)=app_leaf$..F|
00001af0  27 20 20 62 6c 6b 21 30  20 3d 28 28 34 35 2b a9  |'  blk!0 =((45+.|
00001b00  28 61 70 70 5f 6c 65 61  66 24 29 29 2b 33 29 20  |(app_leaf$))+3) |
00001b10  80 20 2d 34 0d 01 47 28  20 20 c8 99 20 22 57 69  |. -4..G(  .. "Wi|
00001b20  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001b30  31 38 2c 62 6c 6b 2c 73  6e 64 72 25 0d 01 48 15  |18,blk,sndr%..H.|
00001b40  20 20 64 73 61 76 65 72  65 66 25 3d 62 6c 6b 21  |  dsaveref%=blk!|
00001b50  38 0d 01 49 05 cc 0d 01  4a 17 20 20 f2 52 65 73  |8..I....J.  .Res|
00001b60  45 72 72 6f 72 28 22 57  53 4e 46 22 29 0d 01 4b  |Error("WSNF")..K|
00001b70  0d 20 20 71 75 69 74 25  3d b9 0d 01 4c 05 cd 0d  |.  quit%=...L...|
00001b80  01 4d 05 e1 0d 01 4e 04  0d 01 4f 04 0d 01 50 17  |.M....N...O...P.|
00001b90  dd 20 a4 64 6f 65 73 76  61 72 65 78 69 73 74 28  |. .doesvarexist(|
00001ba0  76 24 29 0d 01 51 08 ea  20 65 25 0d 01 52 30 c8  |v$)..Q.. e%..R0.|
00001bb0  99 20 22 58 4f 53 5f 52  65 61 64 56 61 72 56 61  |. "XOS_ReadVarVa|
00001bc0  6c 22 2c 76 24 2c 73 63  72 61 74 63 68 2c 2d 31  |l",v$,scratch,-1|
00001bd0  2c 30 2c 33 20 b8 20 2c  2c 65 25 0d 01 53 07 3d  |,0,3 . ,,e%..S.=|
00001be0  65 25 0d 01 54 04 0d 01  55 04 0d 01 56 51 f4 20  |e%..T...U...VQ. |
00001bf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 57 05 f4  |-----------..W..|
00001c40  0d 01 58 1b f4 20 46 69  6c 65 20 68 61 6e 64 6c  |..X.. File handl|
00001c50  69 6e 67 20 73 65 63 74  69 6f 6e 0d 01 59 05 f4  |ing section..Y..|
00001c60  0d 01 5a 51 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..ZQ. ----------|
00001c70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001cb0  2d 0d 01 5b 04 0d 01 5c  18 dd 20 a4 46 69 6c 65  |-..[...\.. .File|
00001cc0  4c 65 6e 67 74 68 28 70  61 74 68 24 29 0d 01 5d  |Length(path$)..]|
00001cd0  10 ea 20 74 79 70 65 25  2c 6c 65 6e 25 0d 01 5e  |.. type%,len%..^|
00001ce0  28 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  |(.. "OS_File",5,|
00001cf0  70 61 74 68 24 20 b8 20  74 79 70 65 25 2c 2c 2c  |path$ . type%,,,|
00001d00  2c 6c 65 6e 25 0d 01 5f  17 e7 20 74 79 70 65 25  |,len%.._.. type%|
00001d10  3c 3e 31 20 8c 20 6c 65  6e 25 3d 30 0d 01 60 09  |<>1 . len%=0..`.|
00001d20  3d 6c 65 6e 25 0d 01 61  04 0d 01 62 15 dd 20 f2  |=len%..a...b.. .|
00001d30  44 65 6c 65 74 65 46 69  6c 65 28 70 24 29 0d 01  |DeleteFile(p$)..|
00001d40  63 0c ea 20 66 6c 61 67  73 25 0d 01 64 20 c8 99  |c.. flags%..d ..|
00001d50  20 22 58 4f 53 5f 46 69  6c 65 22 2c 36 2c 70 24  | "XOS_File",6,p$|
00001d60  20 b8 20 3b 66 6c 61 67  73 25 0d 01 65 05 e1 0d  | . ;flags%..e...|
00001d70  01 66 04 0d 01 67 18 dd  20 a4 46 69 6c 65 4c 65  |.f...g.. .FileLe|
00001d80  6e 67 74 68 28 70 61 74  68 24 29 0d 01 68 10 ea  |ngth(path$)..h..|
00001d90  20 74 79 70 65 25 2c 6c  65 6e 25 0d 01 69 25 c8  | type%,len%..i%.|
00001da0  99 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 70 61 74  |."OS_File",5,pat|
00001db0  68 24 b8 74 79 70 65 25  2c 2c 2c 2c 6c 65 6e 25  |h$.type%,,,,len%|
00001dc0  0d 01 6a 17 e7 20 74 79  70 65 25 3c 3e 31 20 8c  |..j.. type%<>1 .|
00001dd0  20 6c 65 6e 25 3d 30 0d  01 6b 09 3d 6c 65 6e 25  | len%=0..k.=len%|
00001de0  0d 01 6c 04 0d 01 6d 51  f4 20 2d 2d 2d 2d 2d 2d  |..l...mQ. ------|
00001df0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001e30  2d 2d 2d 2d 2d 0d 01 6e  05 f4 0d 01 6f 13 f4 20  |-----..n....o.. |
00001e40  45 72 72 6f 72 20 73 65  63 74 69 6f 6e 0d 01 70  |Error section..p|
00001e50  05 f4 0d 01 71 51 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |....qQ. --------|
00001e60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001ea0  2d 2d 2d 0d 01 72 04 0d  01 73 1f dd 20 f2 52 65  |---..r...s.. .Re|
00001eb0  70 6f 72 74 57 69 6d 70  45 72 72 6f 72 28 72 65  |portWimpError(re|
00001ec0  70 6f 72 74 24 29 0d 01  74 10 21 73 63 72 61 74  |port$)..t.!scrat|
00001ed0  63 68 20 3d 20 30 0d 01  75 18 24 28 73 63 72 61  |ch = 0..u.$(scra|
00001ee0  74 63 68 2b 34 29 3d 72  65 70 6f 72 74 24 0d 01  |tch+4)=report$..|
00001ef0  76 1b 3f 28 73 63 72 61  74 63 68 2b 34 2b a9 72  |v.?(scratch+4+.r|
00001f00  65 70 6f 72 74 24 29 3d  30 0d 01 77 2e c8 99 20  |eport$)=0..w... |
00001f10  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00001f20  72 22 2c 73 63 72 61 74  63 68 2c 25 31 2c 61 70  |r",scratch,%1,ap|
00001f30  70 5f 6e 61 6d 65 24 0d  01 78 05 e1 0d 01 79 04  |p_name$..x....y.|
00001f40  0d 01 7a 21 dd 20 f2 52  65 70 6f 72 74 53 79 73  |..z!. .ReportSys|
00001f50  74 65 6d 45 72 72 6f 72  28 72 65 70 6f 72 74 24  |temError(report$|
00001f60  29 0d 01 7b 10 21 73 63  72 61 74 63 68 20 3d 20  |)..{.!scratch = |
00001f70  30 0d 01 7c 30 72 65 70  6f 72 74 24 3d 72 65 70  |0..|0report$=rep|
00001f80  6f 72 74 24 2b 22 20 69  6e 74 65 72 6e 61 6c 20  |ort$+" internal |
00001f90  65 72 72 6f 72 20 28 22  2b c3 28 9e 29 2b 22 29  |error ("+.(.)+")|
00001fa0  22 0d 01 7d 18 24 28 73  63 72 61 74 63 68 2b 34  |"..}.$(scratch+4|
00001fb0  29 3d 72 65 70 6f 72 74  24 0d 01 7e 1b 3f 28 73  |)=report$..~.?(s|
00001fc0  63 72 61 74 63 68 2b 34  2b a9 72 65 70 6f 72 74  |cratch+4+.report|
00001fd0  24 29 3d 30 0d 01 7f 2e  c8 99 20 22 57 69 6d 70  |$)=0...... "Wimp|
00001fe0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 73 63  |_ReportError",sc|
00001ff0  72 61 74 63 68 2c 25 31  2c 61 70 70 5f 6e 61 6d  |ratch,%1,app_nam|
00002000  65 24 0d 01 80 05 e1 0d  01 81 04 0d 01 82 13 dd  |e$..............|
00002010  20 f2 52 65 73 45 72 72  6f 72 28 72 24 29 0d 01  | .ResError(r$)..|
00002020  83 1e 72 24 3d a4 46 69  6e 64 52 65 73 6f 75 72  |..r$=.FindResour|
00002030  63 65 53 74 72 69 6e 67  28 72 24 29 0d 01 84 18  |ceString(r$)....|
00002040  f2 52 65 70 6f 72 74 57  69 6d 70 45 72 72 6f 72  |.ReportWimpError|
00002050  28 72 24 29 0d 01 85 05  e1 0d 01 86 04 0d 01 87  |(r$)............|
00002060  17 dd 20 f2 52 65 73 45  72 72 6f 72 31 28 72 24  |.. .ResError1(r$|
00002070  2c 78 25 29 0d 01 88 08  ea 20 70 25 0d 01 89 1e  |,x%)..... p%....|
00002080  72 24 3d a4 46 69 6e 64  52 65 73 6f 75 72 63 65  |r$=.FindResource|
00002090  53 74 72 69 6e 67 28 72  24 29 0d 01 8a 10 70 25  |String(r$)....p%|
000020a0  3d a7 72 24 2c 22 25 64  22 29 0d 01 8b 0c e7 20  |=.r$,"%d")..... |
000020b0  70 25 3e 30 20 8c 0d 01  8c 24 20 20 72 24 3d c0  |p%>0 ....$  r$=.|
000020c0  72 24 2c 70 25 2d 31 29  2b c3 78 25 2b c2 72 24  |r$,p%-1)+.x%+.r$|
000020d0  2c a9 72 24 2d 31 2d 70  25 29 0d 01 8d 05 cc 0d  |,.r$-1-p%)......|
000020e0  01 8e 12 20 20 70 25 3d  a7 72 24 2c 22 25 68 22  |...  p%=.r$,"%h"|
000020f0  29 0d 01 8f 2d 20 20 e7  20 78 3e 30 20 8c 20 72  |)...-  . x>0 . r|
00002100  24 3d c0 72 24 2c 70 25  2d 31 29 2b c3 7e 78 25  |$=.r$,p%-1)+.~x%|
00002110  2b c2 72 24 2c a9 72 24  2d 31 2d 70 25 29 0d 01  |+.r$,.r$-1-p%)..|
00002120  90 05 cd 0d 01 91 18 f2  52 65 70 6f 72 74 57 69  |........ReportWi|
00002130  6d 70 45 72 72 6f 72 28  72 24 29 0d 01 92 05 e1  |mpError(r$).....|
00002140  0d 01 93 04 0d 01 94 16  dd 20 f2 50 65 65 6b 45  |......... .PeekE|
00002150  72 72 6f 72 28 65 72 72  25 29 0d 01 95 28 f2 52  |rror(err%)...(.R|
00002160  65 70 6f 72 74 57 69 6d  70 45 72 72 6f 72 28 a4  |eportWimpError(.|
00002170  67 65 74 73 74 72 69 6e  67 28 65 72 72 25 2b 34  |getstring(err%+4|
00002180  29 29 0d 01 96 05 e1 0d  01 97 04 0d 01 98 14 dd  |))..............|
00002190  20 a4 6c 6f 61 64 72 65  73 6f 75 72 63 65 73 0d  | .loadresources.|
000021a0  01 99 13 ea 20 6c 25 2c  72 65 73 24 2c 63 6c 61  |.... l%,res$,cla|
000021b0  69 6d 0d 01 9a 0a 72 65  73 25 3d 30 0d 01 9b 20  |im....res%=0... |
000021c0  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 37 30 2c  |.. "OS_Byte",70,|
000021d0  31 32 37 20 b8 20 2c 63  6e 75 6d 25 0d 01 9c 35  |127 . ,cnum%...5|
000021e0  c8 99 20 22 4f 53 5f 53  65 72 76 69 63 65 43 61  |.. "OS_ServiceCa|
000021f0  6c 6c 22 2c 30 2c 26 34  33 2c 32 2c 30 2c 73 63  |ll",0,&43,2,0,sc|
00002200  72 61 74 63 68 2c 33 32  20 b8 20 2c 63 6c 61 69  |ratch,32 . ,clai|
00002210  6d 0d 01 9d 0f e7 20 63  6c 61 69 6d 3d 30 20 8c  |m..... claim=0 .|
00002220  0d 01 9e 0f 20 20 72 65  73 24 3d 22 55 4b 22 0d  |....  res$="UK".|
00002230  01 9f 05 cc 0d 01 a0 1e  20 20 72 65 73 24 3d a4  |........  res$=.|
00002240  67 65 74 73 74 72 69 6e  67 28 73 63 72 61 74 63  |getstring(scratc|
00002250  68 29 0d 01 a1 05 cd 0d  01 a2 25 72 65 73 24 3d  |h)........%res$=|
00002260  61 70 70 5f 70 61 74 68  24 2b 22 2e 52 65 73 6f  |app_path$+".Reso|
00002270  75 72 63 65 73 2e 22 2b  72 65 73 24 0d 01 a3 18  |urces."+res$....|
00002280  6c 25 3d a4 46 69 6c 65  4c 65 6e 67 74 68 28 72  |l%=.FileLength(r|
00002290  65 73 24 29 0d 01 a4 3b  e7 20 6c 25 3d 30 20 8c  |es$)...;. l%=0 .|
000022a0  20 f2 52 65 70 6f 72 74  57 69 6d 70 45 72 72 6f  | .ReportWimpErro|
000022b0  72 28 22 72 65 73 6f 75  72 63 65 20 66 69 6c 65  |r("resource file|
000022c0  20 6e 6f 74 20 66 6f 75  6e 64 22 29 3a 3d a3 0d  | not found"):=..|
000022d0  01 a5 15 72 65 73 25 3d  a4 43 6c 61 69 6d 28 6c  |...res%=.Claim(l|
000022e0  25 2b 34 29 0d 01 a6 4a  e7 20 72 65 73 25 3d 2d  |%+4)...J. res%=-|
000022f0  31 20 8c 20 f2 52 65 70  6f 72 74 57 69 6d 70 45  |1 . .ReportWimpE|
00002300  72 72 6f 72 28 22 4e 6f  74 20 65 6e 6f 75 67 68  |rror("Not enough|
00002310  20 6d 65 6d 6f 72 79 20  74 6f 20 6c 6f 61 64 20  | memory to load |
00002320  72 65 73 6f 75 72 63 65  73 22 29 3a 3d a3 0d 01  |resources"):=...|
00002330  a7 0d 72 65 73 25 21 30  3d 6c 25 0d 01 a8 21 ff  |..res%!0=l%...!.|
00002340  20 22 4c 4f 41 44 20 22  2b 72 65 73 24 2b 22 20  | "LOAD "+res$+" |
00002350  22 2b c3 7e 28 72 65 73  25 2b 34 29 0d 01 a9 06  |"+.~(res%+4)....|
00002360  3d b9 0d 01 aa 04 0d 01  ab 1d dd 20 a4 46 69 6e  |=.......... .Fin|
00002370  64 52 65 73 6f 75 72 63  65 53 74 72 69 6e 67 28  |dResourceString(|
00002380  72 24 29 0d 01 ac 0e ea  20 6c 25 2c 72 65 6e 64  |r$)..... l%,rend|
00002390  25 0d 01 ad 2d e7 20 72  65 73 25 3d 30 20 8c 20  |%...-. res%=0 . |
000023a0  3d 22 55 6e 6b 6e 6f 77  6e 20 72 65 73 6f 75 72  |="Unknown resour|
000023b0  63 65 20 65 72 72 6f 72  3a 20 22 2b 72 24 0d 01  |ce error: "+r$..|
000023c0  ae 0d 6c 25 3d 72 65 73  25 21 30 0d 01 af 0d 61  |..l%=res%!0....a|
000023d0  25 3d 72 65 73 25 2b 34  0d 01 b0 13 72 65 6e 64  |%=res%+4....rend|
000023e0  25 3d 72 65 73 25 2b 6c  25 2b 34 0d 01 b1 08 66  |%=res%+l%+4....f|
000023f0  25 3d a3 0d 01 b2 16 c8  95 20 61 25 3c 72 65 6e  |%=....... a%<ren|
00002400  64 25 20 80 20 ac 20 66  25 0d 01 b3 27 20 73 24  |d% . . f%...' s$|
00002410  3d bd 28 61 25 3f 30 29  2b bd 28 61 25 3f 31 29  |=.(a%?0)+.(a%?1)|
00002420  2b bd 28 61 25 3f 32 29  2b bd 28 61 25 3f 33 29  |+.(a%?2)+.(a%?3)|
00002430  0d 01 b4 0e 20 e7 20 73  24 3d 72 24 20 8c 0d 01  |.... . s$=r$ ...|
00002440  b5 22 20 20 20 73 24 3d  a4 67 65 74 72 65 73 28  |."   s$=.getres(|
00002450  61 25 2b 35 2c 72 65 6e  64 25 29 3a 66 25 3d b9  |a%+5,rend%):f%=.|
00002460  0d 01 b6 06 20 cc 0d 01  b7 1b 20 20 20 c8 95 20  |.... .....   .. |
00002470  3f 61 25 3e 33 31 20 80  20 61 25 3c 72 65 6e 64  |?a%>31 . a%<rend|
00002480  25 0d 01 b8 0e 20 20 20  20 20 61 25 2b 3d 31 0d  |%....     a%+=1.|
00002490  01 b9 08 20 20 20 ce 0d  01 ba 0c 20 20 20 61 25  |...   .....   a%|
000024a0  2b 3d 31 0d 01 bb 06 20  cd 0d 01 bc 05 ce 0d 01  |+=1.... ........|
000024b0  bd 0e e7 20 66 25 20 8c  20 3d 73 24 0d 01 be 22  |... f% . =s$..."|
000024c0  3d 22 55 6e 6b 6e 6f 77  6e 20 72 65 73 6f 75 72  |="Unknown resour|
000024d0  63 65 20 65 72 72 6f 72  3a 20 22 2b 72 24 0d 01  |ce error: "+r$..|
000024e0  bf 04 0d 01 c0 14 dd 20  a4 67 65 74 72 65 73 28  |....... .getres(|
000024f0  72 25 2c 65 25 29 0d 01  c1 08 ea 20 61 24 0d 01  |r%,e%)..... a$..|
00002500  c2 09 61 24 3d 22 22 0d  01 c3 16 c8 95 20 3f 72  |..a$=""...... ?r|
00002510  25 3e 3d 33 32 20 80 20  72 25 3c 65 25 0d 01 c4  |%>=32 . r%<e%...|
00002520  12 20 20 61 24 3d 61 24  2b bd 28 3f 72 25 29 0d  |.  a$=a$+.(?r%).|
00002530  01 c5 0b 20 20 72 25 2b  3d 31 0d 01 c6 05 ce 0d  |...  r%+=1......|
00002540  01 c7 07 3d 61 24 0d 01  c8 04 0d 01 c9 04 0d 01  |...=a$..........|
00002550  ca 04 0d 01 cb 04 0d 01  cc 51 f4 20 2d 2d 2d 2d  |.........Q. ----|
00002560  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000025a0  2d 2d 2d 2d 2d 2d 2d 0d  01 cd 05 f4 0d 01 ce 11  |-------.........|
000025b0  f4 20 4d 65 6d 6f 72 79  20 62 69 74 73 0d 01 cf  |. Memory bits...|
000025c0  05 f4 0d 01 d0 4f f4 20  45 6e 73 75 72 65 6d 65  |.....O. Ensureme|
000025d0  6d 20 77 69 6c 6c 20 65  6e 73 75 72 65 20 74 68  |m will ensure th|
000025e0  61 74 20 74 68 65 72 65  20 69 73 20 65 6e 6f 75  |at there is enou|
000025f0  67 68 20 6d 65 6d 6f 72  79 20 69 6e 20 74 68 65  |gh memory in the|
00002600  20 76 61 72 69 61 62 6c  65 20 62 75 66 66 65 72  | variable buffer|
00002610  2e 0d 01 d1 4f f4 20 54  68 69 73 20 62 75 66 66  |....O. This buff|
00002620  65 72 20 69 73 20 68 65  6c 64 20 61 62 6f 76 65  |er is held above|
00002630  20 48 49 4d 45 4d 2c 20  75 73 69 6e 67 20 57 69  | HIMEM, using Wi|
00002640  6d 70 5f 53 6c 6f 74 53  69 7a 65 20 74 6f 20 72  |mp_SlotSize to r|
00002650  65 73 69 7a 65 20 74 68  65 20 61 6d 6f 75 6e 74  |esize the amount|
00002660  0d 01 d2 15 f4 20 6f 66  20 6d 65 6d 6f 72 79 20  |..... of memory |
00002670  66 72 65 65 2e 0d 01 d3  05 f4 0d 01 d4 51 f4 20  |free.........Q. |
00002680  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000026c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 d5 04 0d  |-----------.....|
000026d0  01 d6 04 0d 01 d7 0f dd  20 f2 4d 65 6d 5f 49 6e  |........ .Mem_In|
000026e0  69 74 0d 01 d8 0e 4d 79  48 69 6d 65 6d 20 3d 93  |it....MyHimem =.|
000026f0  0d 01 d9 0e 62 61 73 65  20 20 20 20 3d 93 0d 01  |....base    =...|
00002700  da 11 69 6e 73 65 72 74  20 20 3d 62 61 73 65 0d  |..insert  =base.|
00002710  01 db 38 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |..8.. "Wimp_Slot|
00002720  53 69 7a 65 22 2c 2d 31  2c 2d 31 20 b8 20 6f 72  |Size",-1,-1 . or|
00002730  69 67 73 6c 6f 74 25 2c  65 6e 76 6e 65 78 74 2c  |igslot%,envnext,|
00002740  65 6e 76 66 72 65 65 0d  01 dc 2e c8 99 20 22 4f  |envfree...... "O|
00002750  53 5f 52 65 61 64 4d 65  6d 4d 61 70 49 6e 66 6f  |S_ReadMemMapInfo|
00002760  22 20 b8 20 70 61 67 65  73 69 7a 65 2c 6e 75 6d  |" . pagesize,num|
00002770  70 61 67 65 73 0d 01 dd  05 e1 0d 01 de 04 0d 01  |pages...........|
00002780  df 04 0d 01 e0 11 dd 20  a4 43 6c 61 69 6d 28 72  |....... .Claim(r|
00002790  65 71 29 0d 01 e1 14 72  65 71 3d 28 72 65 71 2b  |eq)....req=(req+|
000027a0  33 29 20 80 20 2d 34 0d  01 e2 3a e7 20 28 69 6e  |3) . -4...:. (in|
000027b0  73 65 72 74 2b 72 65 71  29 3c 4d 79 48 69 6d 65  |sert+req)<MyHime|
000027c0  6d 20 8c 20 69 6e 73 65  72 74 3d 69 6e 73 65 72  |m . insert=inser|
000027d0  74 2b 72 65 71 3a 3d 69  6e 73 65 72 74 2d 72 65  |t+req:=insert-re|
000027e0  71 0d 01 e3 4b c8 99 20  22 57 69 6d 70 5f 53 6c  |q...K.. "Wimp_Sl|
000027f0  6f 74 53 69 7a 65 22 2c  2d 31 2c 2d 31 20 b8 20  |otSize",-1,-1 . |
00002800  63 75 72 72 65 6e 74 2c  6e 65 78 74 2c 66 72 65  |current,next,fre|
00002810  65 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 67  |e           :. g|
00002820  65 74 20 73 6c 6f 74 20  69 6e 66 6f 0d 01 e4 17  |et slot info....|
00002830  6e 65 77 68 69 6d 65 6d  3d 69 6e 73 65 72 74 2b  |newhimem=insert+|
00002840  72 65 71 0d 01 e5 24 62  79 74 65 72 65 71 25 3d  |req...$bytereq%=|
00002850  28 6e 65 77 68 69 6d 65  6d 2d 4d 79 48 69 6d 65  |(newhimem-MyHime|
00002860  6d 29 2d 66 72 65 65 0d  01 e6 27 6b 72 65 71 25  |m)-free...'kreq%|
00002870  3d 28 28 62 79 74 65 72  65 71 25 2b 31 30 32 33  |=((bytereq%+1023|
00002880  29 20 80 20 2d 31 30 32  34 29 3e 3e 31 30 0d 01  |) . -1024)>>10..|
00002890  e7 18 6e 65 77 68 69 6d  65 6d 2b 3d 70 61 67 65  |..newhimem+=page|
000028a0  73 69 7a 65 2d 31 0d 01  e8 29 6e 65 77 68 69 6d  |size-1...)newhim|
000028b0  65 6d 20 3d 6e 65 77 68  69 6d 65 6d 20 80 20 28  |em =newhimem . (|
000028c0  ac 20 28 70 61 67 65 73  69 7a 65 2d 31 29 29 0d  |. (pagesize-1)).|
000028d0  01 e9 21 e7 20 6e 65 77  68 69 6d 65 6d 2d 4d 79  |..!. newhimem-My|
000028e0  48 69 6d 65 6d 3e 66 72  65 65 20 8c 20 3d 2d 31  |Himem>free . =-1|
000028f0  0d 01 ea 20 6e 65 78 74  3d 6e 65 78 74 2d 28 6e  |... next=next-(n|
00002900  65 77 68 69 6d 65 6d 2d  4d 79 48 69 6d 65 6d 29  |ewhimem-MyHimem)|
00002910  0d 01 eb 26 63 75 72 72  65 6e 74 3d 63 75 72 72  |...&current=curr|
00002920  65 6e 74 2b 28 6e 65 77  68 69 6d 65 6d 2d 4d 79  |ent+(newhimem-My|
00002930  48 69 6d 65 6d 29 0d 01  ec 37 c8 99 20 22 57 69  |Himem)...7.. "Wi|
00002940  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 63 75 72  |mp_SlotSize",cur|
00002950  72 65 6e 74 2c 6e 65 78  74 20 b8 20 63 75 72 72  |rent,next . curr|
00002960  65 6e 74 2c 6e 65 78 74  2c 66 72 65 65 0d 01 ed  |ent,next,free...|
00002970  19 4d 79 48 69 6d 65 6d  3d 63 75 72 72 65 6e 74  |.MyHimem=current|
00002980  2b 26 38 30 30 30 0d 01  ee 15 69 6e 73 65 72 74  |+&8000....insert|
00002990  3d 69 6e 73 65 72 74 2b  72 65 71 0d 01 ef 0f 3d  |=insert+req....=|
000029a0  69 6e 73 65 72 74 2d 72  65 71 0d 01 f0 04 0d 01  |insert-req......|
000029b0  f1 13 dd 20 f2 4d 65 6d  5f 4b 69 6c 6c 53 6c 6f  |... .Mem_KillSlo|
000029c0  74 0d 01 f2 30 c8 99 20  22 57 69 6d 70 5f 53 6c  |t...0.. "Wimp_Sl|
000029d0  6f 74 53 69 7a 65 22 2c  6f 72 69 67 73 6c 6f 74  |otSize",origslot|
000029e0  25 2c 65 6e 76 6e 65 78  74 2c 65 6e 76 66 72 65  |%,envnext,envfre|
000029f0  65 0d 01 f3 0d f2 4d 65  6d 5f 49 6e 69 74 0d 01  |e.....Mem_Init..|
00002a00  f4 05 e1 0d 01 f5 04 0d  01 f6 04 0d 01 f7 13 dd  |................|
00002a10  20 f2 6c 6f 61 64 63 6f  6c 74 61 62 6c 65 0d 01  | .loadcoltable..|
00002a20  f8 1d 50 61 6c 44 61 74  61 20 3d 20 a4 43 6c 61  |..PalData = .Cla|
00002a30  69 6d 28 33 34 2a 31 30  32 34 29 0d 01 f9 12 e7  |im(34*1024).....|
00002a40  20 50 61 6c 44 61 74 61  3d 2d 31 20 8c 0d 01 fa  | PalData=-1 ....|
00002a50  1a 20 50 61 6c 50 74 72  25 3d 2d 31 3a 52 65 76  |. PalPtr%=-1:Rev|
00002a60  4d 61 70 25 3d 2d 31 0d  01 fb 05 cc 0d 01 fc 14  |Map%=-1.........|
00002a70  20 50 61 6c 50 74 72 25  3d 50 61 6c 44 61 74 61  | PalPtr%=PalData|
00002a80  0d 01 fd 19 20 52 65 76  4d 61 70 25 3d 50 61 6c  |.... RevMap%=Pal|
00002a90  44 61 74 61 2b 32 30 34  38 0d 01 fe 22 20 c8 99  |Data+2048..." ..|
00002aa0  20 22 49 6d 61 67 65 5f  4d 69 73 63 22 2c 30 2c  | "Image_Misc",0,|
00002ab0  31 2c 38 2c 50 61 6c 50  74 72 25 0d 01 ff 38 20  |1,8,PalPtr%...8 |
00002ac0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 26 46 46  |.. "OS_File",&FF|
00002ad0  2c 22 3c 54 72 61 6e 73  4a 50 45 47 24 44 69 72  |,"<TransJPEG$Dir|
00002ae0  3e 2e 43 6f 6c 54 61 62  6c 65 22 2c 52 65 76 4d  |>.ColTable",RevM|
00002af0  61 70 25 0d 02 00 1c 20  f4 20 50 61 6c 50 74 72  |ap%.... . PalPtr|
00002b00  25 3d 2d 31 3a 52 65 76  4d 61 70 25 3d 2d 31 0d  |%=-1:RevMap%=-1.|
00002b10  02 01 05 cd 0d 02 02 05  e1 0d 02 03 04 0d 02 04  |................|
00002b20  51 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |Q. -------------|
00002b30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002b60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 02  |--------------..|
00002b70  05 05 f4 0d 02 06 29 f4  20 4f 6b 20 66 69 6e 61  |......). Ok fina|
00002b80  6c 6c 79 20 61 70 70 6c  69 63 61 74 69 6f 6e 20  |lly application |
00002b90  72 65 6c 61 74 65 64 20  63 6f 64 65 0d 02 07 05  |related code....|
00002ba0  f4 0d 02 08 51 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....Q. ---------|
00002bb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002bf0  2d 2d 0d 02 09 04 0d 02  0a 04 0d 02 0b 27 dd 20  |--...........'. |
00002c00  a4 46 69 6c 74 65 72 4a  50 45 47 28 63 66 25 2c  |.FilterJPEG(cf%,|
00002c10  70 61 74 68 24 2c 6a 6c  65 6e 25 2c 66 6c 67 25  |path$,jlen%,flg%|
00002c20  29 0d 02 0c 11 e7 20 63  66 25 3c 3e 31 20 8c 20  |)..... cf%<>1 . |
00002c30  3d 30 0d 02 0d 20 4a 57  6f 72 6b 53 70 61 63 65  |=0... JWorkSpace|
00002c40  25 3d a4 43 6c 61 69 6d  28 6a 77 6f 72 6b 6c 65  |%=.Claim(jworkle|
00002c50  6e 29 0d 02 0e 35 e7 20  4a 57 6f 72 6b 53 70 61  |n)...5. JWorkSpa|
00002c60  63 65 25 3d 2d 31 20 8c  20 f2 52 65 73 45 72 72  |ce%=-1 . .ResErr|
00002c70  6f 72 31 28 22 4a 50 30  37 22 2c 62 79 74 65 72  |or1("JP07",byter|
00002c80  65 71 25 29 3a 3d 30 0d  02 0f 50 c8 99 20 22 58  |eq%):=0...P.. "X|
00002c90  44 4a 50 45 47 5f 4f 70  65 6e 53 74 72 65 61 6d  |DJPEG_OpenStream|
00002ca0  22 2c 31 2c 70 61 74 68  24 2c 4a 43 61 63 68 65  |",1,path$,JCache|
00002cb0  25 2c 4a 57 6f 72 6b 53  70 61 63 65 25 20 b8 20  |%,JWorkSpace% . |
00002cc0  4a 44 65 63 6f 64 65 25  2c 4a 50 61 72 61 6d 25  |JDecode%,JParam%|
00002cd0  3b 66 6c 61 67 73 25 0d  02 10 2a e7 20 66 6c 61  |;flags%...*. fla|
00002ce0  67 73 25 20 80 20 31 20  8c 20 f2 50 65 65 6b 45  |gs% . 1 . .PeekE|
00002cf0  72 72 6f 72 28 4a 44 65  63 6f 64 65 25 29 3a 3d  |rror(JDecode%):=|
00002d00  30 0d 02 11 0f c8 8e 20  69 74 79 70 65 25 20 ca  |0...... itype% .|
00002d10  0d 02 12 15 c9 20 4a 74  79 70 65 5f 47 72 65 79  |..... Jtype_Grey|
00002d20  73 63 61 6c 65 0d 02 13  28 20 e7 20 69 73 61 6d  |scale...( . isam|
00002d30  70 62 69 74 25 3d 38 20  8c 20 6f 74 79 70 65 25  |pbit%=8 . otype%|
00002d40  3d 36 20 8b 20 6f 74 79  70 65 25 3d 37 0d 02 14  |=6 . otype%=7...|
00002d50  11 c9 20 4a 74 79 70 65  5f 59 43 62 43 72 0d 02  |.. Jtype_YCbCr..|
00002d60  15 28 20 e7 20 69 73 61  6d 70 62 69 74 25 3d 38  |.( . isampbit%=8|
00002d70  20 8c 20 6f 74 79 70 65  25 3d 38 20 8b 20 6f 74  | . otype%=8 . ot|
00002d80  79 70 65 25 3d 39 0d 02  16 05 cb 0d 02 17 48 c8  |ype%=9........H.|
00002d90  99 20 22 58 49 6d 61 67  65 5f 44 65 73 63 72 69  |. "XImage_Descri|
00002da0  62 65 53 6f 75 72 63 65  22 2c 6f 74 79 70 65 25  |beSource",otype%|
00002db0  2c 69 62 70 70 25 2c 78  72 65 73 2c 79 72 65 73  |,ibpp%,xres,yres|
00002dc0  2c 30 20 b8 20 68 61 6e  64 6c 65 25 3b 66 6c 61  |,0 . handle%;fla|
00002dd0  67 73 25 0d 02 18 30 e7  20 66 6c 61 67 73 25 20  |gs%...0. flags% |
00002de0  80 20 31 20 8c 20 f2 50  65 65 6b 45 72 72 6f 72  |. 1 . .PeekError|
00002df0  28 68 61 6e 64 6c 65 25  29 3a f2 63 6c 6f 73 65  |(handle%):.close|
00002e00  3a 3d 30 0d 02 19 11 f2  63 6f 6e 74 72 6f 6c 5f  |:=0.....control_|
00002e10  69 6e 66 6f 0d 02 1a 0f  c8 8e 20 6f 74 79 70 65  |info...... otype|
00002e20  25 20 ca 0d 02 1b 46 c9  20 30 3a 50 61 6c 50 74  |% ....F. 0:PalPt|
00002e30  72 25 3d 2d 31 3a 52 65  76 4d 61 70 25 3d 2d 31  |r%=-1:RevMap%=-1|
00002e40  3a 6f 74 79 70 65 25 3d  30 3a 64 69 74 68 25 3d  |:otype%=0:dith%=|
00002e50  28 6f 64 69 74 68 25 3c  3c 32 29 20 84 20 64 69  |(odith%<<2) . di|
00002e60  74 68 5f 7a 69 67 7a 61  67 0d 02 1c 36 c9 20 32  |th_zigzag...6. 2|
00002e70  3a 50 61 6c 50 74 72 25  3d 2d 31 3a 52 65 76 4d  |:PalPtr%=-1:RevM|
00002e80  61 70 25 3d 2d 31 3a 6f  74 79 70 65 25 3d 31 3a  |ap%=-1:otype%=1:|
00002e90  64 69 74 68 25 3d 64 69  74 68 5f 6e 6f 6e 65 0d  |dith%=dith_none.|
00002ea0  02 1d 30 c9 20 31 3a 6f  74 79 70 65 25 3d 31 3a  |..0. 1:otype%=1:|
00002eb0  64 69 74 68 25 3d 28 6f  64 69 74 68 25 3c 3c 32  |dith%=(odith%<<2|
00002ec0  29 20 84 20 64 69 74 68  5f 7a 69 67 7a 61 67 0d  |) . dith_zigzag.|
00002ed0  02 1e 05 cb 0d 02 1f 50  c8 99 20 22 58 49 6d 61  |.......P.. "XIma|
00002ee0  67 65 5f 44 65 73 63 72  69 62 65 44 65 73 74 69  |ge_DescribeDesti|
00002ef0  6e 22 2c 68 61 6e 64 6c  65 25 2c 6f 74 79 70 65  |n",handle%,otype|
00002f00  25 2c 6f 62 70 70 25 20  b8 20 69 6d 61 67 65 73  |%,obpp% . images|
00002f10  69 7a 65 2c 69 6d 61 67  65 77 6f 72 6b 3b 66 6c  |ize,imagework;fl|
00002f20  61 67 73 25 0d 02 20 32  e7 20 66 6c 61 67 73 25  |ags%.. 2. flags%|
00002f30  20 80 20 31 20 8c 20 f2  50 65 65 6b 45 72 72 6f  | . 1 . .PeekErro|
00002f40  72 28 69 6d 61 67 65 73  69 7a 65 29 3a f2 63 6c  |r(imagesize):.cl|
00002f50  6f 73 65 3a 3d 30 0d 02  21 0d c8 8e 20 66 6c 67  |ose:=0..!... flg|
00002f60  25 20 ca 0d 02 22 12 20  c9 20 30 3a 69 6d 68 64  |% ...". . 0:imhd|
00002f70  72 25 3d 36 34 0d 02 23  12 20 c9 20 31 3a 69 6d  |r%=64..#. . 1:im|
00002f80  68 64 72 25 3d 31 32 0d  02 24 11 20 c9 20 32 3a  |hdr%=12..$. . 2:|
00002f90  69 6d 68 64 72 25 3d 30  0d 02 25 05 cb 0d 02 26  |imhdr%=0..%....&|
00002fa0  22 49 6d 61 67 65 3d a4  43 6c 61 69 6d 28 69 6d  |"Image=.Claim(im|
00002fb0  61 67 65 73 69 7a 65 2b  69 6d 68 64 72 25 29 0d  |agesize+imhdr%).|
00002fc0  02 27 33 e7 20 49 6d 61  67 65 3d 2d 31 20 8c 20  |.'3. Image=-1 . |
00002fd0  f2 52 65 73 45 72 72 6f  72 31 28 22 4a 50 30 33  |.ResError1("JP03|
00002fe0  22 2c 6b 72 65 71 25 29  3a f2 63 6c 6f 73 65 3a  |",kreq%):.close:|
00002ff0  3d 30 0d 02 28 1c 49 57  6f 72 6b 25 3d a4 43 6c  |=0..(.IWork%=.Cl|
00003000  61 69 6d 28 69 6d 61 67  65 77 6f 72 6b 29 0d 02  |aim(imagework)..|
00003010  29 37 e7 20 49 57 6f 72  6b 25 3d 2d 31 20 8c 20  |)7. IWork%=-1 . |
00003020  f2 52 65 73 45 72 72 6f  72 31 28 22 4a 50 30 37  |.ResError1("JP07|
00003030  22 2c 62 79 74 65 72 65  71 25 29 3a f2 63 6c 6f  |",bytereq%):.clo|
00003040  73 65 3a 3d 30 0d 02 2a  6d c8 99 20 22 58 49 6d  |se:=0..*m.. "XIm|
00003050  61 67 65 5f 4f 70 65 6e  4f 75 74 70 75 74 22 2c  |age_OpenOutput",|
00003060  68 61 6e 64 6c 65 25 2c  30 2b 64 69 74 68 25 2c  |handle%,0+dith%,|
00003070  49 6d 61 67 65 2b 69 6d  68 64 72 25 2c 50 61 6c  |Image+imhdr%,Pal|
00003080  50 74 72 25 2c 49 57 6f  72 6b 25 2c 52 65 76 4d  |Ptr%,IWork%,RevM|
00003090  61 70 25 20 b8 20 65 72  72 25 2c 2c 2c 49 53 63  |ap% . err%,,,ISc|
000030a0  61 6e 25 2c 49 50 61 72  61 6d 25 3b 66 6c 61 67  |an%,IParam%;flag|
000030b0  73 25 0d 02 2b 2d e7 20  66 6c 61 67 73 25 20 80  |s%..+-. flags% .|
000030c0  20 31 20 8c 20 f2 50 65  65 6b 45 72 72 6f 72 28  | 1 . .PeekError(|
000030d0  65 72 72 25 29 3a f2 63  6c 6f 73 65 3a 3d 30 0d  |err%):.close:=0.|
000030e0  02 2c 0d c8 8e 20 66 6c  67 25 20 ca 0d 02 2d 20  |.,... flg% ...- |
000030f0  20 20 c9 20 30 3a f2 49  6e 69 74 44 72 61 77 48  |  . 0:.InitDrawH|
00003100  65 61 64 65 72 28 49 6d  61 67 65 29 0d 02 2e 22  |eader(Image)..."|
00003110  20 20 c9 20 31 3a f2 49  6e 69 74 53 70 72 69 74  |  . 1:.InitSprit|
00003120  65 48 65 61 64 65 72 28  49 6d 61 67 65 29 0d 02  |eHeader(Image)..|
00003130  2f 05 cb 0d 02 30 1a 21  4a 50 5f 57 6f 72 6b 20  |/....0.!JP_Work |
00003140  3d 20 4a 57 6f 72 6b 53  70 61 63 65 25 0d 02 31  |= JWorkSpace%..1|
00003150  17 21 4a 50 5f 43 61 63  68 65 20 3d 20 4a 43 61  |.!JP_Cache = JCa|
00003160  63 68 65 25 0d 02 32 1a  21 4a 50 5f 44 65 63 50  |che%..2.!JP_DecP|
00003170  61 72 61 6d 20 3d 20 4a  50 61 72 61 6d 25 0d 02  |aram = JParam%..|
00003180  33 1a 21 4a 50 5f 44 65  63 6f 64 65 72 20 3d 20  |3.!JP_Decoder = |
00003190  4a 44 65 63 6f 64 65 25  0d 02 34 17 21 4a 50 5f  |JDecode%..4.!JP_|
000031a0  49 6d 57 6f 72 6b 20 3d  20 49 57 6f 72 6b 25 0d  |ImWork = IWork%.|
000031b0  02 35 1e 21 4a 50 5f 4c  69 6e 65 50 74 72 20 3d  |.5.!JP_LinePtr =|
000031c0  20 49 6d 61 67 65 2b 69  6d 68 64 72 25 0d 02 36  | Image+imhdr%..6|
000031d0  1b 21 4a 50 5f 53 63 61  6e 50 61 72 61 6d 20 3d  |.!JP_ScanParam =|
000031e0  20 49 50 61 72 61 6d 25  0d 02 37 19 21 4a 50 5f  | IParam%..7.!JP_|
000031f0  43 6f 6e 76 53 63 61 6e  20 3d 20 49 53 63 61 6e  |ConvScan = IScan|
00003200  25 0d 02 38 15 c8 99 20  22 48 6f 75 72 67 6c 61  |%..8... "Hourgla|
00003210  73 73 5f 4f 6e 22 0d 02  39 13 e3 20 79 25 3d 30  |ss_On"..9.. y%=0|
00003220  20 b8 20 79 72 65 73 2d  31 0d 02 3a 12 20 20 21  | . yres-1..:.  !|
00003230  4a 50 5f 49 6e 64 65 78  3d 79 25 0d 02 3b 2b 20  |JP_Index=y%..;+ |
00003240  20 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  | .. "Hourglass_P|
00003250  65 72 63 65 6e 74 61 67  65 22 2c 79 25 2a 31 30  |ercentage",y%*10|
00003260  30 2f 79 72 65 73 0d 02  3c 13 20 20 d6 20 43 6f  |0/yres..<.  . Co|
00003270  6e 76 65 72 74 53 63 61  6e 0d 02 3d 05 ed 0d 02  |nvertScan..=....|
00003280  3e 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |>... "Hourglass_|
00003290  4f 66 66 22 0d 02 3f 0a  f2 63 6c 6f 73 65 0d 02  |Off"..?..close..|
000032a0  40 06 3d b9 0d 02 41 04  0d 02 42 0c dd 20 f2 63  |@.=...A...B.. .c|
000032b0  6c 6f 73 65 0d 02 43 25  c8 99 20 22 58 44 4a 50  |lose..C%.. "XDJP|
000032c0  45 47 5f 43 6c 6f 73 65  53 74 72 65 61 6d 22 2c  |EG_CloseStream",|
000032d0  2c 2c 4a 43 61 63 68 65  25 0d 02 44 05 e1 0d 02  |,,JCache%..D....|
000032e0  45 04 0d 02 46 04 0d 02  47 0b dd 20 f2 63 6f 64  |E...F...G.. .cod|
000032f0  65 0d 02 48 09 4c 4b 3d  31 34 0d 02 49 0e 53 52  |e..H.LK=14..I.SR|
00003300  5f 43 3d 31 3c 3c 32 39  0d 02 4a 0e 53 52 5f 56  |_C=1<<29..J.SR_V|
00003310  3d 31 3c 3c 32 38 0d 02  4b 0f de 20 43 4f 44 45  |=1<<28..K.. CODE|
00003320  20 26 31 30 30 0d 02 4c  14 e3 20 50 41 53 53 3d  | &100..L.. PASS=|
00003330  30 20 b8 20 32 20 88 20  32 0d 02 4d 0b 50 25 3d  |0 . 2 . 2..M.P%=|
00003340  43 4f 44 45 0d 02 4e 0d  5b 4f 50 54 20 50 41 53  |CODE..N.[OPT PAS|
00003350  53 0d 02 4f 04 0d 02 50  53 3b 2d 2d 2d 2d 2d 2d  |S..O...PS;------|
00003360  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000033a0  2d 2d 2d 2d 2d 2d 2d 2d  0d 02 51 05 3b 0d 02 52  |--------..Q.;..R|
000033b0  15 3b 20 50 72 6f 63 65  73 73 4e 65 78 74 53 63  |.; ProcessNextSc|
000033c0  61 6e 0d 02 53 05 3b 0d  02 54 10 3b 20 4f 6e 20  |an..S.;..T.; On |
000033d0  65 6e 74 72 79 20 2d 0d  02 55 23 3b 20 4f 6e 20  |entry -..U#; On |
000033e0  65 78 69 74 20 20 2d 20  43 43 20 69 66 20 70 72  |exit  - CC if pr|
000033f0  6f 63 65 73 73 65 64 20  6f 6b 0d 02 56 23 3b 20  |ocessed ok..V#; |
00003400  20 20 20 20 20 20 20 20  20 2d 20 43 53 20 69 66  |         - CS if|
00003410  20 6e 6f 20 6d 6f 72 65  20 64 61 74 61 0d 02 57  | no more data..W|
00003420  05 3b 0d 02 58 53 3b 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.;..XS;---------|
00003430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003470  2d 2d 2d 2d 2d 0d 02 59  04 0d 02 5a 22 2e 43 6f  |-----..Y...Z".Co|
00003480  6e 76 65 72 74 53 63 61  6e 20 53 54 4d 46 44 20  |nvertScan STMFD |
00003490  20 20 52 31 33 21 2c 7b  4c 4b 7d 0d 02 5b 23 20  |  R13!,{LK}..[# |
000034a0  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 52 20  |            LDR |
000034b0  20 20 20 20 52 31 2c 4a  50 5f 57 6f 72 6b 0d 02  |    R1,JP_Work..|
000034c0  5c 1e 20 20 20 20 20 20  20 20 20 20 20 20 20 4d  |\.             M|
000034d0  4f 56 20 20 20 20 20 52  36 2c 52 31 0d 02 5d 24  |OV     R6,R1..]$|
000034e0  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 52  |             LDR|
000034f0  20 20 20 20 20 52 32 2c  4a 50 5f 43 61 63 68 65  |     R2,JP_Cache|
00003500  0d 02 5e 53 20 20 20 20  20 20 20 20 20 20 20 20  |..^S            |
00003510  20 4c 44 52 20 20 20 20  20 52 33 2c 4a 50 5f 49  | LDR     R3,JP_I|
00003520  6e 64 65 78 20 20 20 20  20 20 20 20 20 20 20 20  |ndex            |
00003530  20 20 20 20 20 20 20 20  3b 20 67 65 74 20 6b 65  |        ; get ke|
00003540  72 6e 65 6c 20 73 63 61  6e 6c 69 6e 65 20 69 6e  |rnel scanline in|
00003550  64 65 78 0d 02 5f 4e 20  20 20 20 20 20 20 20 20  |dex.._N         |
00003560  20 20 20 20 4c 44 52 20  20 20 20 20 52 34 2c 4a  |    LDR     R4,J|
00003570  50 5f 44 65 63 50 61 72  61 6d 20 20 20 20 20 20  |P_DecParam      |
00003580  20 20 20 20 20 20 20 20  20 20 20 3b 20 47 65 74  |           ; Get|
00003590  20 4a 50 45 47 20 6d 6f  64 75 6c 65 73 20 52 31  | JPEG modules R1|
000035a0  32 0d 02 60 1e 20 20 20  20 20 20 20 20 20 20 20  |2..`.           |
000035b0  20 20 4d 4f 56 20 20 20  20 20 4c 4b 2c 50 43 0d  |  MOV     LK,PC.|
000035c0  02 61 46 20 20 20 20 20  20 20 20 20 20 20 20 20  |.aF             |
000035d0  4c 44 52 20 20 20 20 20  50 43 2c 4a 50 5f 44 65  |LDR     PC,JP_De|
000035e0  63 6f 64 65 72 20 20 20  20 20 20 20 20 20 20 20  |coder           |
000035f0  20 20 20 20 20 20 20 3b  20 43 61 6c 6c 20 64 65  |       ; Call de|
00003600  63 6f 64 65 72 0d 02 62  27 20 20 20 20 20 20 20  |coder..b'       |
00003610  20 20 20 20 20 20 42 56  53 20 20 20 20 20 44 6f  |      BVS     Do|
00003620  6e 65 49 6d 61 67 65 45  72 72 6f 72 0d 02 63 4b  |neImageError..cK|
00003630  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 4d  |             LDM|
00003640  49 41 20 20 20 52 33 2c  7b 52 32 2c 52 33 2c 52  |IA   R3,{R2,R3,R|
00003650  34 2c 52 35 7d 20 20 20  20 20 20 20 20 20 20 20  |4,R5}           |
00003660  20 20 20 20 3b 20 77 68  69 70 20 69 6e 20 73 63  |    ; whip in sc|
00003670  61 6e 20 70 74 72 73 0d  02 64 21 20 20 20 20 20  |an ptrs..d!     |
00003680  20 20 20 20 20 20 20 20  41 44 44 20 20 20 20 20  |        ADD     |
00003690  52 32 2c 52 36 2c 52 32  0d 02 65 21 20 20 20 20  |R2,R6,R2..e!    |
000036a0  20 20 20 20 20 20 20 20  20 41 44 44 20 20 20 20  |         ADD    |
000036b0  20 52 33 2c 52 36 2c 52  33 0d 02 66 21 20 20 20  | R3,R6,R3..f!   |
000036c0  20 20 20 20 20 20 20 20  20 20 41 44 44 20 20 20  |          ADD   |
000036d0  20 20 52 34 2c 52 36 2c  52 34 0d 02 67 21 20 20  |  R4,R6,R4..g!  |
000036e0  20 20 20 20 20 20 20 20  20 20 20 41 44 44 20 20  |           ADD  |
000036f0  20 20 20 52 35 2c 52 36  2c 52 35 0d 02 68 25 20  |   R5,R6,R5..h% |
00003700  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 52 20  |            LDR |
00003710  20 20 20 20 52 37 2c 4a  50 5f 49 6d 57 6f 72 6b  |    R7,JP_ImWork|
00003720  0d 02 69 1e 20 20 20 20  20 20 20 20 20 20 20 20  |..i.            |
00003730  20 4d 4f 56 20 20 20 20  20 52 30 2c 23 30 0d 02  | MOV     R0,#0..|
00003740  6a 26 20 20 20 20 20 20  20 20 20 20 20 20 20 4c  |j&             L|
00003750  44 52 20 20 20 20 20 52  31 2c 4a 50 5f 4c 69 6e  |DR     R1,JP_Lin|
00003760  65 50 74 72 0d 02 6b 24  20 20 20 20 20 20 20 20  |ePtr..k$        |
00003770  20 20 20 20 20 4c 44 52  20 20 20 20 20 52 36 2c  |     LDR     R6,|
00003780  4a 50 5f 49 6e 64 65 78  0d 02 6c 28 20 20 20 20  |JP_Index..l(    |
00003790  20 20 20 20 20 20 20 20  20 4c 44 52 20 20 20 20  |         LDR    |
000037a0  20 52 35 2c 4a 50 5f 53  63 61 6e 50 61 72 61 6d  | R5,JP_ScanParam|
000037b0  0d 02 6d 1e 20 20 20 20  20 20 20 20 20 20 20 20  |..m.            |
000037c0  20 4d 4f 56 20 20 20 20  20 4c 4b 2c 50 43 0d 02  | MOV     LK,PC..|
000037d0  6e 27 20 20 20 20 20 20  20 20 20 20 20 20 20 4c  |n'             L|
000037e0  44 52 20 20 20 20 20 50  43 2c 4a 50 5f 43 6f 6e  |DR     PC,JP_Con|
000037f0  76 53 63 61 6e 0d 02 6f  27 20 20 20 20 20 20 20  |vScan..o'       |
00003800  20 20 20 20 20 20 42 56  53 20 20 20 20 20 44 6f  |      BVS     Do|
00003810  6e 65 49 6d 61 67 65 45  72 72 6f 72 0d 02 70 26  |neImageError..p&|
00003820  20 20 20 20 20 20 20 20  20 20 20 20 20 53 54 52  |             STR|
00003830  20 20 20 20 20 52 31 2c  4a 50 5f 4c 69 6e 65 50  |     R1,JP_LineP|
00003840  74 72 0d 02 71 22 20 20  20 20 20 20 20 20 20 20  |tr..q"          |
00003850  20 20 20 4c 44 4d 46 44  20 20 20 52 31 33 21 2c  |   LDMFD   R13!,|
00003860  7b 4c 4b 7d 0d 02 72 24  20 20 20 20 20 20 20 20  |{LK}..r$        |
00003870  20 20 20 20 20 42 49 43  53 20 20 20 20 50 43 2c  |     BICS    PC,|
00003880  4c 4b 2c 23 53 52 5f 43  0d 02 73 04 0d 02 74 13  |LK,#SR_C..s...t.|
00003890  2e 44 6f 6e 65 49 6d 61  67 65 45 72 72 6f 72 0d  |.DoneImageError.|
000038a0  02 75 22 2e 44 6f 6e 65  49 6d 61 67 65 20 20 20  |.u".DoneImage   |
000038b0  4c 44 4d 46 44 20 20 20  52 31 33 21 2c 7b 4c 4b  |LDMFD   R13!,{LK|
000038c0  7d 0d 02 76 23 20 20 20  20 20 20 20 20 20 20 20  |}..v#           |
000038d0  20 20 84 52 53 20 20 20  20 50 43 2c 4c 4b 2c 23  |  .RS    PC,LK,#|
000038e0  53 52 5f 43 0d 02 77 04  0d 02 78 1d 2e 4a 50 5f  |SR_C..w...x..JP_|
000038f0  49 6e 64 65 78 20 20 20  20 20 20 20 45 51 55 44  |Index       EQUD|
00003900  20 20 20 20 30 0d 02 79  1d 2e 4a 50 5f 57 6f 72  |    0..y..JP_Wor|
00003910  6b 20 20 20 20 20 20 20  20 45 51 55 44 20 20 20  |k        EQUD   |
00003920  20 30 0d 02 7a 1d 2e 4a  50 5f 43 61 63 68 65 20  | 0..z..JP_Cache |
00003930  20 20 20 20 20 20 45 51  55 44 20 20 20 20 30 0d  |      EQUD    0.|
00003940  02 7b 1d 2e 4a 50 5f 44  65 63 50 61 72 61 6d 20  |.{..JP_DecParam |
00003950  20 20 20 45 51 55 44 20  20 20 20 30 0d 02 7c 1d  |   EQUD    0..|.|
00003960  2e 4a 50 5f 44 65 63 6f  64 65 72 20 20 20 20 20  |.JP_Decoder     |
00003970  45 51 55 44 20 20 20 20  30 0d 02 7d 1d 2e 4a 50  |EQUD    0..}..JP|
00003980  5f 49 6d 57 6f 72 6b 20  20 20 20 20 20 45 51 55  |_ImWork      EQU|
00003990  44 20 20 20 20 30 0d 02  7e 1d 2e 4a 50 5f 4c 69  |D    0..~..JP_Li|
000039a0  6e 65 50 74 72 20 20 20  20 20 45 51 55 44 20 20  |nePtr     EQUD  |
000039b0  20 20 30 0d 02 7f 1d 2e  4a 50 5f 53 63 61 6e 50  |  0.....JP_ScanP|
000039c0  61 72 61 6d 20 20 20 45  51 55 44 20 20 20 20 30  |aram   EQUD    0|
000039d0  0d 02 80 1d 2e 4a 50 5f  43 6f 6e 76 53 63 61 6e  |.....JP_ConvScan|
000039e0  20 20 20 20 45 51 55 44  20 20 20 20 30 0d 02 81  |    EQUD    0...|
000039f0  04 0d 02 82 06 5d ed 0d  02 83 05 e1 0d 02 84 04  |.....]..........|
00003a00  0d 02 85 04 0d 02 86 1b  dd 20 a4 53 61 76 65 54  |......... .SaveT|
00003a10  72 61 6e 73 46 69 6c 65  28 70 24 2c 74 25 29 0d  |ransFile(p$,t%).|
00003a20  02 87 25 f4 20 72 65 74  75 72 6e 20 66 61 6c 73  |..%. return fals|
00003a30  65 20 69 66 20 66 61 69  6c 65 64 20 74 6f 20 73  |e if failed to s|
00003a40  61 76 65 21 0d 02 88 0c  ea 20 66 6c 61 67 73 25  |ave!..... flags%|
00003a50  0d 02 89 47 c8 99 20 22  58 4f 53 5f 46 69 6c 65  |...G.. "XOS_File|
00003a60  22 2c 31 30 2c 70 24 2c  74 25 2c 30 2c 49 6d 61  |",10,p$,t%,0,Ima|
00003a70  67 65 2c 49 6d 61 67 65  2b 69 6d 61 67 65 73 69  |ge,Image+imagesi|
00003a80  7a 65 2b 69 6d 68 64 72  25 20 b8 20 65 72 72 25  |ze+imhdr% . err%|
00003a90  3b 66 6c 61 67 73 25 0d  02 8a 28 e7 20 28 66 6c  |;flags%...(. (fl|
00003aa0  61 67 73 25 20 80 20 31  29 3d 31 20 8c 20 f2 52  |ags% . 1)=1 . .R|
00003ab0  65 73 45 72 72 6f 72 28  22 4a 50 30 36 22 29 0d  |esError("JP06").|
00003ac0  02 8b 36 f2 4d 65 6d 5f  4b 69 6c 6c 53 6c 6f 74  |..6.Mem_KillSlot|
00003ad0  20 20 20 3a f4 20 64 6f  6e 74 20 6b 69 6c 6c 20  |   :. dont kill |
00003ae0  73 6c 6f 74 20 62 65 66  6f 72 65 20 52 65 73 45  |slot before ResE|
00003af0  72 72 6f 72 21 0d 02 8c  19 e7 20 28 66 6c 61 67  |rror!..... (flag|
00003b00  73 25 20 80 20 31 29 3d  31 20 8c 20 3d a3 0d 02  |s% . 1)=1 . =...|
00003b10  8d 06 3d b9 0d 02 8e 04  0d 02 8f 1a dd 20 f2 49  |..=.......... .I|
00003b20  6e 69 74 44 72 61 77 48  65 61 64 65 72 28 70 74  |nitDrawHeader(pt|
00003b30  72 29 0d 02 90 0f 24 70  74 72 3d 22 44 72 61 77  |r)....$ptr="Draw|
00003b40  22 0d 02 91 0d 70 74 72  21 34 3d 32 30 31 0d 02  |"....ptr!4=201..|
00003b50  92 0b 70 74 72 21 38 3d  30 0d 02 93 20 f2 70 6f  |..ptr!8=0... .po|
00003b60  6b 65 73 74 72 28 22 49  6d 61 67 65 72 22 2c 70  |kestr("Imager",p|
00003b70  74 72 2b 31 32 2c 31 32  29 0d 02 94 0c 70 74 72  |tr+12,12)....ptr|
00003b80  21 32 34 3d 30 0d 02 95  0c 70 74 72 21 32 38 3d  |!24=0....ptr!28=|
00003b90  30 0d 02 96 16 70 74 72  21 33 32 3d 78 72 65 73  |0....ptr!32=xres|
00003ba0  3c 3c 28 31 2b 38 29 0d  02 97 16 70 74 72 21 33  |<<(1+8)....ptr!3|
00003bb0  36 3d 79 72 65 73 3c 3c  28 31 2b 38 29 0d 02 98  |6=yres<<(1+8)...|
00003bc0  0c 70 74 72 21 34 30 3d  35 0d 02 99 17 70 74 72  |.ptr!40=5....ptr|
00003bd0  21 34 34 3d 69 6d 61 67  65 73 69 7a 65 2b 32 34  |!44=imagesize+24|
00003be0  0d 02 9a 0c 70 74 72 21  34 38 3d 30 0d 02 9b 0c  |....ptr!48=0....|
00003bf0  70 74 72 21 35 32 3d 30  0d 02 9c 16 70 74 72 21  |ptr!52=0....ptr!|
00003c00  35 36 3d 78 72 65 73 3c  3c 28 31 2b 38 29 0d 02  |56=xres<<(1+8)..|
00003c10  9d 16 70 74 72 21 36 30  3d 79 72 65 73 3c 3c 28  |..ptr!60=yres<<(|
00003c20  31 2b 38 29 0d 02 9e 05  e1 0d 02 9f 04 0d 02 a0  |1+8)............|
00003c30  1c dd 20 f2 49 6e 69 74  53 70 72 69 74 65 48 65  |.. .InitSpriteHe|
00003c40  61 64 65 72 28 70 74 72  29 0d 02 a1 0b 70 74 72  |ader(ptr)....ptr|
00003c50  21 30 3d 31 0d 02 a2 0c  70 74 72 21 34 3d 31 36  |!0=1....ptr!4=16|
00003c60  0d 02 a3 16 70 74 72 21  38 3d 69 6d 61 67 65 73  |....ptr!8=images|
00003c70  69 7a 65 2b 31 36 0d 02  a4 05 e1 0d 02 a5 04 0d  |ize+16..........|
00003c80  02 a6 04 0d 02 a7 51 f4  20 2d 2d 2d 2d 2d 2d 2d  |......Q. -------|
00003c90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003cd0  2d 2d 2d 2d 0d 02 a8 05  f4 0d 02 a9 15 f4 20 20  |----..........  |
00003ce0  57 69 6e 64 6f 77 20 6c  69 62 72 61 72 79 0d 02  |Window library..|
00003cf0  aa 05 f4 0d 02 ab 51 f4  20 2d 2d 2d 2d 2d 2d 2d  |......Q. -------|
00003d00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003d40  2d 2d 2d 2d 0d 02 ac 04  0d 02 ad 34 dd 20 f2 77  |----.......4. .w|
00003d50  69 6e 5f 6c 6f 61 64 5f  63 72 65 61 74 65 28 66  |in_load_create(f|
00003d60  24 2c 6e 24 2c 73 70 72  69 74 65 5f 70 6f 6f 6c  |$,n$,sprite_pool|
00003d70  25 2c f8 20 68 61 6e 64  6c 65 25 29 0d 02 ae 23  |%,. handle%)...#|
00003d80  f2 77 69 6e 5f 6c 6f 61  64 28 66 24 2c 6e 24 2c  |.win_load(f$,n$,|
00003d90  77 69 6e 5f 62 75 66 66  25 2c 32 30 34 38 29 0d  |win_buff%,2048).|
00003da0  02 af 1d 77 69 6e 5f 62  75 66 66 25 21 36 34 3d  |...win_buff%!64=|
00003db0  73 70 72 69 74 65 5f 70  6f 6f 6c 25 0d 02 b0 22  |sprite_pool%..."|
00003dc0  f2 77 69 6e 5f 63 72 65  61 74 65 28 77 69 6e 5f  |.win_create(win_|
00003dd0  62 75 66 66 25 2c 68 61  6e 64 6c 65 25 29 0d 02  |buff%,handle%)..|
00003de0  b1 05 e1 0d 02 b2 04 0d  02 b3 22 dd 20 f2 77 69  |..........". .wi|
00003df0  6e 5f 6c 6f 61 64 28 66  24 2c 6e 24 2c 62 75 66  |n_load(f$,n$,buf|
00003e00  25 2c 6c 69 6d 69 74 25  29 0d 02 b4 28 f4 20 20  |%,limit%)...(.  |
00003e10  20 66 24 20 20 20 2d 20  66 69 6c 65 6e 61 6d 65  | f$   - filename|
00003e20  20 6f 66 20 74 65 6d 70  6c 61 74 65 20 66 69 6c  | of template fil|
00003e30  65 0d 02 b5 27 f4 20 20  20 6e 24 20 20 20 2d 20  |e...'.   n$   - |
00003e40  6e 61 6d 65 20 6f 66 20  74 65 6d 70 6c 61 74 65  |name of template|
00003e50  20 74 6f 20 6c 6f 61 64  0d 02 b6 50 f4 20 62 75  | to load...P. bu|
00003e60  66 25 20 20 20 2d 20 62  75 66 66 65 72 20 77 68  |f%   - buffer wh|
00003e70  69 63 68 20 6e 65 65 64  73 20 74 6f 20 62 65 20  |ich needs to be |
00003e80  62 69 67 20 65 6e 6f 75  67 68 20 74 6f 20 68 6f  |big enough to ho|
00003e90  6c 64 20 74 68 65 20 77  69 6e 64 6f 77 20 64 65  |ld the window de|
00003ea0  66 69 6e 69 74 69 6f 6e  0d 02 b7 4f f4 20 20 20  |finition...O.   |
00003eb0  20 20 20 20 20 20 20 41  4e 44 20 74 68 65 20 69  |       AND the i|
00003ec0  6e 64 69 72 65 63 74 65  64 20 64 61 74 61 2c 20  |ndirected data, |
00003ed0  64 75 65 20 74 6f 20 74  68 65 20 77 61 79 20 57  |due to the way W|
00003ee0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00003ef0  20 77 6f 72 6b 73 2e 0d  02 b8 1b f4 20 6c 69 6d  | works...... lim|
00003f00  69 74 25 20 2d 20 73 69  7a 65 20 6f 66 20 62 75  |it% - size of bu|
00003f10  66 25 0d 02 b9 05 f4 0d  02 ba 41 f4 20 50 52 4f  |f%........A. PRO|
00003f20  43 77 69 6e 5f 6c 6f 61  64 20 77 69 6c 6c 20 61  |Cwin_load will a|
00003f30  75 74 6f 6d 61 74 69 63  61 6c 6c 79 20 64 69 6d  |utomatically dim|
00003f40  65 6e 73 69 6f 6e 20 65  6e 6f 75 67 68 20 6d 65  |ension enough me|
00003f50  6d 6f 72 79 20 66 6f 72  0d 02 bb 1a f4 20 74 68  |mory for..... th|
00003f60  65 20 69 6e 64 69 72 65  63 74 65 64 20 64 61 74  |e indirected dat|
00003f70  61 2e 0d 02 bc 04 0d 02  bd 0d ea 20 77 73 5f 62  |a.......... ws_b|
00003f80  75 66 25 0d 02 be 0b ea  20 73 69 7a 65 25 0d 02  |uf%..... size%..|
00003f90  bf 0b ea 20 64 61 74 61  25 0d 02 c0 0c ea 20 66  |... data%..... f|
00003fa0  6f 75 6e 64 25 0d 02 c1  0b ea 20 73 25 2c 66 25  |ound%..... s%,f%|
00003fb0  0d 02 c2 21 f2 77 69 6e  5f 73 69 7a 65 73 28 66  |...!.win_sizes(f|
00003fc0  24 2c 6e 24 2c 73 69 7a  65 25 2c 64 61 74 61 25  |$,n$,size%,data%|
00003fd0  29 0d 02 c3 70 e7 20 6c  69 6d 69 74 25 3c 28 73  |)...p. limit%<(s|
00003fe0  69 7a 65 25 2b 64 61 74  61 25 29 20 85 20 30 2c  |ize%+data%) . 0,|
00003ff0  22 42 75 66 66 65 72 20  6e 6f 74 20 62 69 67 20  |"Buffer not big |
00004000  65 6e 6f 75 67 68 20 66  6f 72 20 27 22 2b 6e 24  |enough for '"+n$|
00004010  2b 22 27 20 2d 20 22 2b  c3 28 73 69 7a 65 25 29  |+"' - "+.(size%)|
00004020  2b 22 20 2b 20 22 2b c3  28 64 61 74 61 25 29 2b  |+" + "+.(data%)+|
00004030  22 20 62 79 74 65 73 20  72 65 71 75 69 72 65 64  |" bytes required|
00004040  22 0d 02 c4 26 e7 20 66  24 3c 3e 22 22 20 c8 99  |"...&. f$<>"" ..|
00004050  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00004060  74 65 22 2c 2c 66 24 0d  02 c5 10 e7 20 64 61 74  |te",,f$..... dat|
00004070  61 25 3c 3e 30 20 8c 0d  02 c6 14 20 de 20 77 73  |a%<>0 ..... . ws|
00004080  5f 62 75 66 25 20 64 61  74 61 25 0d 02 c7 54 20  |_buf% data%...T |
00004090  c8 99 20 22 58 57 69 6d  70 5f 4c 6f 61 64 54 65  |.. "XWimp_LoadTe|
000040a0  6d 70 6c 61 74 65 22 2c  2c 62 75 66 25 2c 77 73  |mplate",,buf%,ws|
000040b0  5f 62 75 66 25 2c 77 73  5f 62 75 66 25 2b 64 61  |_buf%,ws_buf%+da|
000040c0  74 61 25 2c 2d 31 2c 6e  24 2c 30 20 b8 20 73 25  |ta%,-1,n$,0 . s%|
000040d0  2c 2c 2c 2c 2c 2c 66 6f  75 6e 64 25 3b 66 25 0d  |,,,,,,found%;f%.|
000040e0  02 c8 05 cc 0d 02 c9 42  20 c8 99 20 22 58 57 69  |.......B .. "XWi|
000040f0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00004100  2c 2c 62 75 66 25 2c 30  2c 30 2c 2d 31 2c 6e 24  |,,buf%,0,0,-1,n$|
00004110  2c 30 20 b8 20 73 25 2c  2c 2c 2c 2c 2c 66 6f 75  |,0 . s%,,,,,,fou|
00004120  6e 64 25 3b 66 25 0d 02  ca 05 cd 0d 02 cb 23 e7  |nd%;f%........#.|
00004130  20 66 24 3c 3e 22 22 20  c8 99 22 57 69 6d 70 5f  | f$<>"" .."Wimp_|
00004140  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 02  |CloseTemplate"..|
00004150  cc 29 e7 20 28 66 25 80  31 29 20 85 20 30 2c 6e  |.). (f%.1) . 0,n|
00004160  24 2b 22 3a 20 22 2b a4  67 65 74 73 74 72 69 6e  |$+": "+.getstrin|
00004170  67 28 73 25 2b 34 29 0d  02 cd 30 e7 20 66 6f 75  |g(s%+4)...0. fou|
00004180  6e 64 25 3d 30 20 85 20  30 2c 22 54 65 6d 70 6c  |nd%=0 . 0,"Templ|
00004190  61 74 65 20 27 22 2b 6e  24 2b 22 27 20 6e 6f 74  |ate '"+n$+"' not|
000041a0  20 66 6f 75 6e 64 22 0d  02 ce 05 e1 0d 02 cf 04  | found".........|
000041b0  0d 02 d0 21 dd 20 f2 77  69 6e 5f 63 72 65 61 74  |...!. .win_creat|
000041c0  65 28 62 75 66 25 2c f8  20 68 61 6e 64 6c 65 25  |e(buf%,. handle%|
000041d0  29 0d 02 d1 34 f4 20 20  20 20 62 75 66 25 20 2d  |)...4.    buf% -|
000041e0  20 62 75 66 66 65 72 20  68 6f 6c 64 69 6e 67 20  | buffer holding |
000041f0  74 68 65 20 77 69 6e 64  6f 77 20 64 65 66 69 6e  |the window defin|
00004200  69 74 69 6f 6e 0d 02 d2  2c f4 20 68 61 6e 64 6c  |ition...,. handl|
00004210  65 25 20 2d 20 68 61 6e  64 6c 65 20 6f 66 20 74  |e% - handle of t|
00004220  68 65 20 63 72 65 61 74  65 64 20 77 69 6e 64 6f  |he created windo|
00004230  77 0d 02 d3 2a c8 99 20  22 57 69 6d 70 5f 43 72  |w...*.. "Wimp_Cr|
00004240  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 75 66  |eateWindow",,buf|
00004250  25 20 b8 20 68 61 6e 64  6c 65 25 0d 02 d4 05 e1  |% . handle%.....|
00004260  0d 02 d5 04 0d 02 d6 18  dd 20 f2 77 69 6e 5f 73  |......... .win_s|
00004270  68 6f 77 28 68 61 6e 64  6c 65 25 29 0d 02 d7 14  |how(handle%)....|
00004280  21 73 63 72 61 74 63 68  3d 68 61 6e 64 6c 65 25  |!scratch=handle%|
00004290  0d 02 d8 25 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...%.. "Wimp_Get|
000042a0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 73 63  |WindowState",,sc|
000042b0  72 61 74 63 68 0d 02 d9  21 c8 99 20 22 57 69 6d  |ratch...!.. "Wim|
000042c0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 73  |p_OpenWindow",,s|
000042d0  63 72 61 74 63 68 0d 02  da 05 e1 0d 02 db 04 0d  |cratch..........|
000042e0  02 dc 1b dd 20 f2 77 69  6e 5f 74 6f 70 63 65 6e  |.... .win_topcen|
000042f0  74 72 65 64 28 77 69 6e  25 29 0d 02 dd 0e 62 6c  |tred(win%)....bl|
00004300  6b 21 30 3d 77 69 6e 25  0d 02 de 21 c8 99 20 22  |k!0=win%...!.. "|
00004310  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00004320  61 74 65 22 2c 2c 62 6c  6b 0d 02 df 14 f2 77 69  |ate",,blk.....wi|
00004330  6e 5f 63 65 6e 74 72 65  28 62 6c 6b 29 0d 02 e0  |n_centre(blk)...|
00004340  0d 62 6c 6b 21 32 38 3d  2d 31 0d 02 e1 1d c8 99  |.blk!28=-1......|
00004350  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00004360  77 22 2c 2c 62 6c 6b 0d  02 e2 05 e1 0d 02 e3 04  |w",,blk.........|
00004370  0d 02 e4 16 dd 20 f2 77  69 6e 5f 63 65 6e 74 72  |..... .win_centr|
00004380  65 28 62 6c 6b 29 0d 02  e5 17 f2 77 69 6e 5f 64  |e(blk).....win_d|
00004390  65 73 6b 64 69 6d 65 6e  73 69 6f 6e 73 0d 02 e6  |eskdimensions...|
000043a0  0f 64 65 73 6b 79 25 2d  3d 31 33 32 0d 02 e7 0e  |.desky%-=132....|
000043b0  77 78 30 25 3d 62 6c 6b  21 34 0d 02 e8 0e 77 79  |wx0%=blk!4....wy|
000043c0  30 25 3d 62 6c 6b 21 38  0d 02 e9 0f 77 78 31 25  |0%=blk!8....wx1%|
000043d0  3d 62 6c 6b 21 31 32 0d  02 ea 0f 77 79 31 25 3d  |=blk!12....wy1%=|
000043e0  62 6c 6b 21 31 36 0d 02  eb 10 66 6c 67 73 25 3d  |blk!16....flgs%=|
000043f0  62 6c 6b 21 33 32 0d 02  ec 19 e7 20 66 6c 67 73  |blk!32..... flgs|
00004400  25 20 80 20 26 38 30 30  30 30 30 30 30 20 8c 0d  |% . &80000000 ..|
00004410  02 ed 23 20 e7 20 66 6c  67 73 25 20 80 20 28 31  |..# . flgs% . (1|
00004420  3c 3c 32 36 29 20 8c 20  64 65 73 6b 79 25 2d 3d  |<<26) . desky%-=|
00004430  34 30 0d 02 ee 23 20 e7  20 66 6c 67 73 25 20 80  |40...# . flgs% .|
00004440  20 28 31 3c 3c 32 38 29  20 8c 20 64 65 73 6b 78  | (1<<28) . deskx|
00004450  25 2d 3d 34 30 0d 02 ef  23 20 e7 20 66 6c 67 73  |%-=40...# . flgs|
00004460  25 20 80 20 28 31 3c 3c  33 30 29 20 8c 20 64 65  |% . (1<<30) . de|
00004470  73 6b 79 25 2d 3d 34 30  0d 02 f0 05 cc 0d 02 f1  |sky%-=40........|
00004480  22 20 e7 20 66 6c 67 73  25 20 80 20 28 31 3c 3c  |" . flgs% . (1<<|
00004490  30 29 20 8c 20 64 65 73  6b 79 25 2d 3d 34 30 0d  |0) . desky%-=40.|
000044a0  02 f2 22 20 e7 20 66 6c  67 73 25 20 80 20 28 31  |.." . flgs% . (1|
000044b0  3c 3c 32 29 20 8c 20 64  65 73 6b 78 25 2d 3d 34  |<<2) . deskx%-=4|
000044c0  30 0d 02 f3 22 20 e7 20  66 6c 67 73 25 20 80 20  |0..." . flgs% . |
000044d0  28 31 3c 3c 33 29 20 8c  20 64 65 73 6b 79 25 2d  |(1<<3) . desky%-|
000044e0  3d 34 30 0d 02 f4 05 cd  0d 02 f5 12 77 69 64 25  |=40.........wid%|
000044f0  3d 77 78 31 25 2d 77 78  30 25 0d 02 f6 1a 62 6c  |=wx1%-wx0%....bl|
00004500  6b 21 34 20 3d 28 64 65  73 6b 78 25 2d 77 69 64  |k!4 =(deskx%-wid|
00004510  25 29 2f 32 0d 02 f7 1a  62 6c 6b 21 31 32 3d 28  |%)/2....blk!12=(|
00004520  64 65 73 6b 78 25 2b 77  69 64 25 29 2f 32 0d 02  |deskx%+wid%)/2..|
00004530  f8 12 68 67 74 25 3d 77  79 31 25 2d 77 79 30 25  |..hgt%=wy1%-wy0%|
00004540  0d 02 f9 20 62 6c 6b 21  38 20 3d 28 28 64 65 73  |... blk!8 =((des|
00004550  6b 79 25 2d 68 67 74 25  29 2f 32 29 2b 31 33 32  |ky%-hgt%)/2)+132|
00004560  0d 02 fa 20 62 6c 6b 21  31 36 3d 28 28 64 65 73  |... blk!16=((des|
00004570  6b 79 25 2b 68 67 74 25  29 2f 32 29 2b 31 33 32  |ky%+hgt%)/2)+132|
00004580  0d 02 fb 05 e1 0d 02 fc  04 0d 02 fd 04 0d 02 fe  |................|
00004590  27 dd 20 f2 77 69 6e 5f  73 69 7a 65 73 28 66 24  |'. .win_sizes(f$|
000045a0  2c 6e 24 2c f8 20 73 69  7a 65 25 2c f8 20 64 61  |,n$,. size%,. da|
000045b0  74 61 25 29 0d 02 ff 08  ea 20 69 25 0d 03 00 0b  |ta%)..... i%....|
000045c0  ea 20 66 69 6c 65 25 0d  03 01 0a ea 20 70 74 72  |. file%..... ptr|
000045d0  25 0d 03 02 0d ea 20 6f  66 66 73 65 74 25 0d 03  |%..... offset%..|
000045e0  03 0b ea 20 74 79 70 65  25 0d 03 04 0c ea 20 69  |... type%..... i|
000045f0  64 65 6e 74 24 0d 03 05  10 ea 20 6e 75 6d 5f 69  |dent$..... num_i|
00004600  63 6f 6e 73 25 0d 03 06  0f 66 69 6c 65 25 3d 8e  |cons%....file%=.|
00004610  28 66 24 29 0d 03 07 0b  73 69 7a 65 25 3d 30 0d  |(f$)....size%=0.|
00004620  03 08 0b 64 61 74 61 25  3d 30 0d 03 09 0b 70 74  |...data%=0....pt|
00004630  72 25 3d 31 36 0d 03 0a  05 f5 0d 03 0b 11 20 cf  |r%=16......... .|
00004640  23 66 69 6c 65 25 3d 70  74 72 25 0d 03 0c 1d 20  |#file%=ptr%.... |
00004650  6f 66 66 73 65 74 25 3d  a4 77 69 6e 5f 77 6f 72  |offset%=.win_wor|
00004660  64 28 66 69 6c 65 25 29  0d 03 0d 13 20 e7 20 6f  |d(file%).... . o|
00004670  66 66 73 65 74 25 3c 3e  30 20 8c 0d 03 0e 14 20  |ffset%<>0 ..... |
00004680  20 cf 23 66 69 6c 65 25  3d 70 74 72 25 2b 38 0d  | .#file%=ptr%+8.|
00004690  03 0f 1c 20 20 74 79 70  65 25 3d a4 77 69 6e 5f  |...  type%=.win_|
000046a0  77 6f 72 64 28 66 69 6c  65 25 29 0d 03 10 1f 20  |word(file%).... |
000046b0  20 69 64 65 6e 74 24 3d  a4 77 69 6e 5f 73 74 72  | ident$=.win_str|
000046c0  69 6e 67 28 66 69 6c 65  25 29 0d 03 11 0e 20 20  |ing(file%)....  |
000046d0  70 74 72 25 2b 3d 32 34  0d 03 12 10 20 20 e7 74  |ptr%+=24....  .t|
000046e0  79 70 65 25 3d 31 20 8c  0d 03 13 13 20 20 20 e7  |ype%=1 .....   .|
000046f0  69 64 65 6e 74 24 3d 6e  24 20 8c 0d 03 14 1a 20  |ident$=n$ ..... |
00004700  20 20 20 cf 23 66 69 6c  65 25 3d 6f 66 66 73 65  |   .#file%=offse|
00004710  74 25 2b 38 34 0d 03 15  23 20 20 20 20 6e 75 6d  |t%+84...#    num|
00004720  5f 69 63 6f 6e 73 25 3d  a4 77 69 6e 5f 77 6f 72  |_icons%=.win_wor|
00004730  64 28 66 69 6c 65 25 29  0d 03 16 27 20 20 20 20  |d(file%)...'    |
00004740  64 61 74 61 25 3d a4 77  69 6e 5f 74 69 74 6c 65  |data%=.win_title|
00004750  28 66 69 6c 65 25 2c 6f  66 66 73 65 74 25 29 0d  |(file%,offset%).|
00004760  03 17 41 20 20 20 20 e7  6e 75 6d 5f 69 63 6f 6e  |..A    .num_icon|
00004770  73 25 3c 3e 30 20 64 61  74 61 25 2b 3d a4 77 69  |s%<>0 data%+=.wi|
00004780  6e 5f 69 63 6f 6e 28 66  69 6c 65 25 2c 6e 75 6d  |n_icon(file%,num|
00004790  5f 69 63 6f 6e 73 25 2c  6f 66 66 73 65 74 25 29  |_icons%,offset%)|
000047a0  0d 03 18 20 20 20 20 20  73 69 7a 65 25 3d 38 38  |...     size%=88|
000047b0  2b 28 6e 75 6d 5f 69 63  6f 6e 73 25 2a 33 32 29  |+(num_icons%*32)|
000047c0  0d 03 19 2f 20 20 20 20  6f 66 66 73 65 74 25 3d  |.../    offset%=|
000047d0  30 3a f4 20 6a 75 73 74  20 74 6f 20 67 65 74 20  |0:. just to get |
000047e0  6f 75 74 20 6f 66 20 74  68 65 20 6c 6f 6f 70 0d  |out of the loop.|
000047f0  03 1a 08 20 20 20 cd 0d  03 1b 07 20 20 cd 0d 03  |...   .....  ...|
00004800  1c 06 20 cd 0d 03 1d 0f  fd 20 6f 66 66 73 65 74  |.. ...... offset|
00004810  25 3d 30 0d 03 1e 0b d9  23 66 69 6c 65 25 0d 03  |%=0.....#file%..|
00004820  1f 05 e1 0d 03 20 04 0d  03 21 13 dd 20 a4 77 69  |..... ...!.. .wi|
00004830  6e 5f 77 6f 72 64 28 68  25 29 0d 03 22 2f 3d 9a  |n_word(h%).."/=.|
00004840  23 68 25 2b 28 9a 23 68  25 20 3c 3c 20 38 29 2b  |#h%+(.#h% << 8)+|
00004850  28 9a 23 68 25 20 3c 3c  20 31 36 29 2b 28 9a 23  |(.#h% << 16)+(.#|
00004860  68 25 20 3c 3c 20 32 34  29 0d 03 23 04 0d 03 24  |h% << 24)..#...$|
00004870  15 dd 20 a4 77 69 6e 5f  73 74 72 69 6e 67 28 68  |.. .win_string(h|
00004880  25 29 0d 03 25 0b ea 20  73 24 2c 63 25 0d 03 26  |%)..%.. s$,c%..&|
00004890  05 f5 0d 03 27 0c 20 63  25 3d 9a 23 68 25 0d 03  |....'. c%=.#h%..|
000048a0  28 18 20 e7 20 63 25 3e  33 31 20 8c 20 73 24 2b  |(. . c%>31 . s$+|
000048b0  3d bd 28 63 25 29 0d 03  29 0b fd 20 63 25 3c 33  |=.(c%)..).. c%<3|
000048c0  32 0d 03 2a 07 3d 73 24  0d 03 2b 04 0d 03 2c 1f  |2..*.=s$..+...,.|
000048d0  dd 20 a4 77 69 6e 5f 74  69 74 6c 65 28 66 69 6c  |. .win_title(fil|
000048e0  65 25 2c 6f 66 66 73 65  74 25 29 0d 03 2d 08 ea  |e%,offset%)..-..|
000048f0  20 76 25 0d 03 2e 16 cf  23 66 69 6c 65 25 3d 6f  | v%.....#file%=o|
00004900  66 66 73 65 74 25 2b 32  38 0d 03 2f 17 76 25 3d  |ffset%+28../.v%=|
00004910  a4 77 69 6e 5f 77 6f 72  64 28 66 69 6c 65 25 29  |.win_word(file%)|
00004920  0d 03 30 14 e7 20 28 76  25 20 80 20 31 3c 3c 33  |..0.. (v% . 1<<3|
00004930  31 29 20 8c 0d 03 31 15  20 e7 20 28 76 25 20 80  |1) ...1. . (v% .|
00004940  20 31 3c 3c 32 36 29 20  8c 0d 03 32 34 20 20 3d  | 1<<26) ...24  =|
00004950  a4 77 69 6e 5f 69 73 64  28 66 69 6c 65 25 2c 6f  |.win_isd(file%,o|
00004960  66 66 73 65 74 25 2b 35  36 2c 6f 66 66 73 65 74  |ffset%+56,offset|
00004970  25 2b 37 32 2c 6f 66 66  73 65 74 25 29 0d 03 33  |%+72,offset%)..3|
00004980  06 20 cd 0d 03 34 05 cc  0d 03 35 11 20 e7 20 28  |. ...4....5. . (|
00004990  76 25 20 80 20 31 29 20  8c 0d 03 36 34 20 20 3d  |v% . 1) ...64  =|
000049a0  a4 77 69 6e 5f 69 73 64  28 66 69 6c 65 25 2c 6f  |.win_isd(file%,o|
000049b0  66 66 73 65 74 25 2b 35  36 2c 6f 66 66 73 65 74  |ffset%+56,offset|
000049c0  25 2b 37 32 2c 6f 66 66  73 65 74 25 29 0d 03 37  |%+72,offset%)..7|
000049d0  06 20 cd 0d 03 38 05 cd  0d 03 39 06 3d 30 0d 03  |. ...8....9.=0..|
000049e0  3a 04 0d 03 3b 23 dd 20  a4 77 69 6e 5f 69 63 6f  |:...;#. .win_ico|
000049f0  6e 28 66 69 6c 65 25 2c  6e 75 6d 25 2c 6f 66 66  |n(file%,num%,off|
00004a00  73 65 74 25 29 0d 03 3c  0b ea 20 69 25 2c 6a 25  |set%)..<.. i%,j%|
00004a10  0d 03 3d 0d 6a 25 3d 30  3a 78 25 3d 30 0d 03 3e  |..=.j%=0:x%=0..>|
00004a20  12 e3 69 25 3d 30 20 b8  20 6e 75 6d 25 2d 31 0d  |..i%=0 . num%-1.|
00004a30  03 3f 48 20 6a 25 2b 3d  a4 77 69 6e 5f 69 73 64  |.?H j%+=.win_isd|
00004a40  28 66 69 6c 65 25 2c 6f  66 66 73 65 74 25 2b 38  |(file%,offset%+8|
00004a50  38 2b 69 25 2a 33 32 2b  31 36 2c 6f 66 66 73 65  |8+i%*32+16,offse|
00004a60  74 25 2b 38 38 2b 69 25  2a 33 32 2b 32 30 2c 6f  |t%+88+i%*32+20,o|
00004a70  66 66 73 65 74 25 29 0d  03 40 05 ed 0d 03 41 07  |ffset%)..@....A.|
00004a80  3d 6a 25 0d 03 42 04 0d  03 43 25 dd 20 a4 77 69  |=j%..B...C%. .wi|
00004a90  6e 5f 69 73 64 28 66 69  6c 65 25 2c 6f 31 25 2c  |n_isd(file%,o1%,|
00004aa0  6f 32 25 2c 6f 66 66 73  65 74 25 29 0d 03 44 16  |o2%,offset%)..D.|
00004ab0  ea 20 76 25 2c 69 73 74  25 2c 73 69 7a 65 25 2c  |. v%,ist%,size%,|
00004ac0  69 25 0d 03 45 0f cf 23  66 69 6c 65 25 3d 6f 31  |i%..E..#file%=o1|
00004ad0  25 0d 03 46 17 76 25 3d  a4 77 69 6e 5f 77 6f 72  |%..F.v%=.win_wor|
00004ae0  64 28 66 69 6c 65 25 29  0d 03 47 2a f4 20 65 76  |d(file%)..G*. ev|
00004af0  65 6e 20 69 66 20 61 6e  20 69 63 6f 6e 20 69 73  |en if an icon is|
00004b00  20 6d 61 72 6b 65 64 20  61 73 20 64 65 6c 65 74  | marked as delet|
00004b10  65 64 0d 03 48 1d f4 20  69 74 20 6d 75 73 74 20  |ed..H.. it must |
00004b20  62 65 20 61 6c 6c 6f 77  65 64 20 66 6f 72 21 0d  |be allowed for!.|
00004b30  03 49 18 69 25 3d 28 76  25 20 80 20 25 31 30 30  |.I.i%=(v% . %100|
00004b40  30 30 30 30 30 30 29 0d  03 4a 1d 69 73 74 25 3d  |000000)..J.ist%=|
00004b50  28 76 25 20 80 20 33 29  20 2b 20 28 69 25 20 3e  |(v% . 3) + (i% >|
00004b60  3e 20 36 29 0d 03 4b 0d  c8 8e 20 69 73 74 25 20  |> 6)..K... ist% |
00004b70  ca 0d 03 4c 12 c9 20 20  20 30 3a 20 73 69 7a 65  |...L..   0: size|
00004b80  25 3d 30 0d 03 4d 12 c9  20 20 20 31 3a 20 73 69  |%=0..M..   1: si|
00004b90  7a 65 25 3d 30 0d 03 4e  12 c9 20 20 20 32 3a 20  |ze%=0..N..   2: |
00004ba0  73 69 7a 65 25 3d 30 0d  03 4f 12 c9 20 20 20 33  |size%=0..O..   3|
00004bb0  3a 20 73 69 7a 65 25 3d  30 0d 03 50 12 c9 20 20  |: size%=0..P..  |
00004bc0  20 34 3a 20 73 69 7a 65  25 3d 30 0d 03 51 18 c9  | 4: size%=0..Q..|
00004bd0  20 35 2c 37 3a 20 cf 23  66 69 6c 65 25 3d 6f 32  | 5,7: .#file%=o2|
00004be0  25 2b 34 0d 03 52 21 20  20 20 20 20 20 20 20 20  |%+4..R!         |
00004bf0  20 76 25 3d a4 77 69 6e  5f 77 6f 72 64 28 66 69  | v%=.win_word(fi|
00004c00  6c 65 25 29 0d 03 53 16  20 20 20 20 20 20 20 20  |le%)..S.        |
00004c10  20 20 e7 76 25 3d 2d 31  20 8c 0d 03 54 16 20 20  |  .v%=-1 ...T.  |
00004c20  20 20 20 20 20 20 20 20  20 73 69 7a 65 25 3d 30  |         size%=0|
00004c30  0d 03 55 0f 20 20 20 20  20 20 20 20 20 20 cc 0d  |..U.          ..|
00004c40  03 56 21 20 20 20 20 20  20 20 20 20 20 20 cf 23  |.V!           .#|
00004c50  66 69 6c 65 25 3d 6f 66  66 73 65 74 25 2b 76 25  |file%=offset%+v%|
00004c60  0d 03 57 2c 20 20 20 20  20 20 20 20 20 20 20 73  |..W,           s|
00004c70  69 7a 65 25 3d a9 28 a4  77 69 6e 5f 73 74 72 69  |ize%=.(.win_stri|
00004c80  6e 67 28 66 69 6c 65 25  29 29 2b 31 0d 03 58 0f  |ng(file%))+1..X.|
00004c90  20 20 20 20 20 20 20 20  20 20 cd 0d 03 59 1b 20  |          ...Y. |
00004ca0  20 20 20 20 20 20 20 20  20 cf 23 66 69 6c 65 25  |         .#file%|
00004cb0  3d 6f 32 25 2b 38 0d 03  5a 25 20 20 20 20 20 20  |=o2%+8..Z%      |
00004cc0  20 20 20 20 73 69 7a 65  25 2b 3d a4 77 69 6e 5f  |    size%+=.win_|
00004cd0  77 6f 72 64 28 66 69 6c  65 25 29 0d 03 5b 18 c9  |word(file%)..[..|
00004ce0  20 20 20 36 3a 20 cf 23  66 69 6c 65 25 3d 6f 32  |   6: .#file%=o2|
00004cf0  25 2b 38 0d 03 5c 24 20  20 20 20 20 20 20 20 20  |%+8..\$         |
00004d00  20 73 69 7a 65 25 3d a4  77 69 6e 5f 77 6f 72 64  | size%=.win_word|
00004d10  28 66 69 6c 65 25 29 0d  03 5d 05 cb 0d 03 5e 0a  |(file%)..]....^.|
00004d20  3d 73 69 7a 65 25 0d 03  5f 04 0d 03 60 21 dd 20  |=size%.._...`!. |
00004d30  a4 77 69 6e 5f 67 65 74  73 65 6c 72 61 64 69 6f  |.win_getselradio|
00004d40  28 77 69 6e 25 2c 65 73  67 25 29 0d 03 61 1c 65  |(win%,esg%)..a.e|
00004d50  73 67 25 3d 28 65 73 67  25 20 80 20 25 31 31 31  |sg%=(esg% . %111|
00004d60  31 31 29 3c 3c 31 36 0d  03 62 3d c8 99 20 22 57  |11)<<16..b=.. "W|
00004d70  69 6d 70 5f 57 68 69 63  68 49 63 6f 6e 22 2c 77  |imp_WhichIcon",w|
00004d80  69 6e 25 2c 73 63 72 61  74 63 68 2c 26 33 46 3c  |in%,scratch,&3F<|
00004d90  3c 31 36 2c 28 26 32 30  3c 3c 31 36 29 20 84 20  |<16,(&20<<16) . |
00004da0  65 73 67 25 0d 03 63 0e  3d 73 63 72 61 74 63 68  |esg%..c.=scratch|
00004db0  21 30 0d 03 64 04 0d 03  65 1b dd 20 f2 77 69 6e  |!0..d...e.. .win|
00004dc0  5f 62 6f 75 6e 64 6d 6f  75 73 65 28 77 69 6e 25  |_boundmouse(win%|
00004dd0  29 0d 03 66 0d 21 62 6c  6b 3d 77 69 6e 25 0d 03  |)..f.!blk=win%..|
00004de0  67 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |g#.. "Wimp_GetWi|
00004df0  6e 64 6f 77 4f 75 74 6c  69 6e 65 22 2c 2c 62 6c  |ndowOutline",,bl|
00004e00  6b 0d 03 68 37 f2 77 69  6e 5f 73 65 74 6d 6f 75  |k..h7.win_setmou|
00004e10  73 65 72 65 63 28 62 6c  6b 21 34 2c 62 6c 6b 21  |serec(blk!4,blk!|
00004e20  38 2c 28 62 6c 6b 21 31  32 29 2d 34 2c 28 62 6c  |8,(blk!12)-4,(bl|
00004e30  6b 21 31 36 29 2d 34 29  0d 03 69 05 e1 0d 03 6a  |k!16)-4)..i....j|
00004e40  04 0d 03 6b 17 dd 20 f2  77 69 6e 5f 72 65 6c 65  |...k.. .win_rele|
00004e50  61 73 65 6d 6f 75 73 65  0d 03 6c 17 f2 77 69 6e  |asemouse..l..win|
00004e60  5f 64 65 73 6b 64 69 6d  65 6e 73 69 6f 6e 73 0d  |_deskdimensions.|
00004e70  03 6d 27 f2 77 69 6e 5f  73 65 74 6d 6f 75 73 65  |.m'.win_setmouse|
00004e80  72 65 63 28 30 2c 30 2c  64 65 73 6b 78 25 2c 64  |rec(0,0,deskx%,d|
00004e90  65 73 6b 79 25 29 0d 03  6e 05 e1 0d 03 6f 04 0d  |esky%)..n....o..|
00004ea0  03 70 27 dd 20 f2 77 69  6e 5f 73 65 74 6d 6f 75  |.p'. .win_setmou|
00004eb0  73 65 72 65 63 28 78 30  25 2c 79 30 25 2c 78 31  |serec(x0%,y0%,x1|
00004ec0  25 2c 79 31 25 29 0d 03  71 25 c8 97 20 c8 93 20  |%,y1%)..q%.. .. |
00004ed0  78 30 25 2c 79 30 25 2c  28 78 31 25 2d 78 30 25  |x0%,y0%,(x1%-x0%|
00004ee0  29 2c 28 79 31 25 2d 79  30 25 29 0d 03 72 05 e1  |),(y1%-y0%)..r..|
00004ef0  0d 03 73 04 0d 03 74 19  dd 20 f2 77 69 6e 5f 64  |..s...t.. .win_d|
00004f00  65 73 6b 64 69 6d 65 6e  73 69 6f 6e 73 0d 03 75  |eskdimensions..u|
00004f10  2b c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |+.. "OS_ReadMode|
00004f20  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 34 20 b8  |Variable",-1,4 .|
00004f30  20 2c 2c 78 65 69 67 25  0d 03 76 2b c8 99 20 22  | ,,xeig%..v+.. "|
00004f40  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00004f50  62 6c 65 22 2c 2d 31 2c  35 20 b8 20 2c 2c 79 65  |ble",-1,5 . ,,ye|
00004f60  69 67 25 0d 03 77 2d c8  99 20 22 4f 53 5f 52 65  |ig%..w-.. "OS_Re|
00004f70  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00004f80  2d 31 2c 31 31 20 b8 20  2c 2c 64 65 73 6b 78 25  |-1,11 . ,,deskx%|
00004f90  0d 03 78 2d c8 99 20 22  4f 53 5f 52 65 61 64 4d  |..x-.. "OS_ReadM|
00004fa0  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
00004fb0  31 32 20 b8 20 2c 2c 64  65 73 6b 79 25 0d 03 79  |12 . ,,desky%..y|
00004fc0  1c 64 65 73 6b 78 25 3d  28 64 65 73 6b 78 25 2b  |.deskx%=(deskx%+|
00004fd0  31 29 3c 3c 78 65 69 67  25 0d 03 7a 1c 64 65 73  |1)<<xeig%..z.des|
00004fe0  6b 79 25 3d 28 64 65 73  6b 79 25 2b 31 29 3c 3c  |ky%=(desky%+1)<<|
00004ff0  79 65 69 67 25 0d 03 7b  05 e1 0d 03 7c 04 0d 03  |yeig%..{....|...|
00005000  7d 51 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |}Q. ------------|
00005010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005040  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00005050  03 7e 05 f4 0d 03 7f 13  f4 20 20 49 63 6f 6e 20  |.~.......  Icon |
00005060  6c 69 62 72 61 72 79 0d  03 80 05 f4 0d 03 81 51  |library........Q|
00005070  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00005080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000050b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 03 82  |-------------...|
000050c0  04 0d 03 83 17 dd 20 f2  69 63 6f 6e 5f 68 69 64  |...... .icon_hid|
000050d0  65 28 61 25 2c 62 25 29  0d 03 84 0e 21 69 63 6f  |e(a%,b%)....!ico|
000050e0  6e 73 25 3d 61 25 0d 03  85 0f 69 63 6f 6e 73 25  |ns%=a%....icons%|
000050f0  21 34 3d 62 25 0d 03 86  1b 69 63 6f 6e 73 25 21  |!4=b%....icons%!|
00005100  38 3d 28 31 3c 3c 37 29  2b 28 31 3c 3c 32 33 29  |8=(1<<7)+(1<<23)|
00005110  0d 03 87 1c 69 63 6f 6e  73 25 21 31 32 3d 28 31  |....icons%!12=(1|
00005120  3c 3c 37 29 2b 28 31 3c  3c 32 33 29 0d 03 88 21  |<<7)+(1<<23)...!|
00005130  c8 99 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |.."Wimp_SetIconS|
00005140  74 61 74 65 22 2c 2c 69  63 6f 6e 73 25 0d 03 89  |tate",,icons%...|
00005150  05 e1 0d 03 8a 04 0d 03  8b 1b dd 20 f2 69 63 6f  |........... .ico|
00005160  6e 5f 77 72 69 74 65 28  61 25 2c 62 25 2c 73 24  |n_write(a%,b%,s$|
00005170  29 0d 03 8c 0e 21 69 63  6f 6e 73 25 3d 61 25 0d  |)....!icons%=a%.|
00005180  03 8d 0f 69 63 6f 6e 73  25 21 34 3d 62 25 0d 03  |...icons%!4=b%..|
00005190  8e 21 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |.!.."Wimp_GetIco|
000051a0  6e 53 74 61 74 65 22 2c  2c 69 63 6f 6e 73 25 0d  |nState",,icons%.|
000051b0  03 8f 1a e7 28 a9 28 73  24 29 2b 31 29 3e 69 63  |....(.(s$)+1)>ic|
000051c0  6f 6e 73 25 21 33 36 20  8c 0d 03 90 29 20 85 20  |ons%!36 ....) . |
000051d0  30 2c 22 27 22 2b 73 24  2b 22 27 20 77 6f 6e 27  |0,"'"+s$+"' won'|
000051e0  74 20 66 69 74 20 69 63  6f 6e 20 22 2b c3 28 62  |t fit icon "+.(b|
000051f0  25 29 0d 03 91 05 cd 0d  03 92 13 24 28 69 63 6f  |%).........$(ico|
00005200  6e 73 25 21 32 38 29 3d  73 24 0d 03 93 1a 69 63  |ns%!28)=s$....ic|
00005210  6f 6e 73 25 21 38 3d 30  3a 69 63 6f 6e 73 25 21  |ons%!8=0:icons%!|
00005220  31 32 3d 30 0d 03 94 21  c8 99 22 57 69 6d 70 5f  |12=0...!.."Wimp_|
00005230  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 69  |SetIconState",,i|
00005240  63 6f 6e 73 25 0d 03 95  05 e1 0d 03 96 04 0d 03  |cons%...........|
00005250  97 18 dd 20 f2 69 63 6f  6e 5f 73 68 61 64 65 28  |... .icon_shade(|
00005260  61 25 2c 62 25 29 0d 03  98 0e 21 69 63 6f 6e 73  |a%,b%)....!icons|
00005270  25 3d 61 25 0d 03 99 0f  69 63 6f 6e 73 25 21 34  |%=a%....icons%!4|
00005280  3d 62 25 0d 03 9a 12 69  63 6f 6e 73 25 21 38 3d  |=b%....icons%!8=|
00005290  31 3c 3c 32 32 0d 03 9b  13 69 63 6f 6e 73 25 21  |1<<22....icons%!|
000052a0  31 32 3d 31 3c 3c 32 32  0d 03 9c 21 c8 99 22 57  |12=1<<22...!.."W|
000052b0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
000052c0  22 2c 2c 69 63 6f 6e 73  25 0d 03 9d 05 e1 0d 03  |",,icons%.......|
000052d0  9e 04 0d 03 9f 16 dd 20  a4 69 63 6f 6e 5f 73 65  |....... .icon_se|
000052e0  74 28 61 25 2c 62 25 29  0d 03 a0 0e 21 69 63 6f  |t(a%,b%)....!ico|
000052f0  6e 73 25 3d 61 25 0d 03  a1 0f 69 63 6f 6e 73 25  |ns%=a%....icons%|
00005300  21 34 3d 62 25 0d 03 a2  21 c8 99 22 57 69 6d 70  |!4=b%...!.."Wimp|
00005310  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00005320  69 63 6f 6e 73 25 0d 03  a3 1f 3d 28 28 69 63 6f  |icons%....=((ico|
00005330  6e 73 25 21 32 34 20 80  20 28 31 3c 3c 32 31 29  |ns%!24 . (1<<21)|
00005340  29 3c 3e 30 29 0d 03 a4  04 0d 03 a5 19 dd 20 f2  |)<>0)......... .|
00005350  69 63 6f 6e 5f 75 6e 68  69 64 65 28 61 25 2c 62  |icon_unhide(a%,b|
00005360  25 29 0d 03 a6 0e 21 69  63 6f 6e 73 25 3d 61 25  |%)....!icons%=a%|
00005370  0d 03 a7 0f 69 63 6f 6e  73 25 21 34 3d 62 25 0d  |....icons%!4=b%.|
00005380  03 a8 0e 69 63 6f 6e 73  25 21 38 3d 30 0d 03 a9  |...icons%!8=0...|
00005390  13 69 63 6f 6e 73 25 21  31 32 3d 31 3c 3c 32 33  |.icons%!12=1<<23|
000053a0  0d 03 aa 21 c8 99 22 57  69 6d 70 5f 53 65 74 49  |...!.."Wimp_SetI|
000053b0  63 6f 6e 53 74 61 74 65  22 2c 2c 69 63 6f 6e 73  |conState",,icons|
000053c0  25 0d 03 ab 05 e1 0d 03  ac 04 0d 03 ad 1a dd 20  |%.............. |
000053d0  f2 69 63 6f 6e 5f 75 6e  73 68 61 64 65 28 61 25  |.icon_unshade(a%|
000053e0  2c 62 25 29 0d 03 ae 0e  21 69 63 6f 6e 73 25 3d  |,b%)....!icons%=|
000053f0  61 25 0d 03 af 0f 69 63  6f 6e 73 25 21 34 3d 62  |a%....icons%!4=b|
00005400  25 0d 03 b0 0e 69 63 6f  6e 73 25 21 38 3d 30 0d  |%....icons%!8=0.|
00005410  03 b1 13 69 63 6f 6e 73  25 21 31 32 3d 31 3c 3c  |...icons%!12=1<<|
00005420  32 32 0d 03 b2 21 c8 99  22 57 69 6d 70 5f 53 65  |22...!.."Wimp_Se|
00005430  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 69 63 6f  |tIconState",,ico|
00005440  6e 73 25 0d 03 b3 05 e1  0d 03 b4 04 0d 03 b5 19  |ns%.............|
00005450  dd 20 f2 69 63 6f 6e 5f  73 65 6c 65 63 74 28 61  |. .icon_select(a|
00005460  25 2c 62 25 29 0d 03 b6  0e 21 69 63 6f 6e 73 25  |%,b%)....!icons%|
00005470  3d 61 25 0d 03 b7 0f 69  63 6f 6e 73 25 21 34 3d  |=a%....icons%!4=|
00005480  62 25 0d 03 b8 12 69 63  6f 6e 73 25 21 38 3d 31  |b%....icons%!8=1|
00005490  3c 3c 32 31 0d 03 b9 13  69 63 6f 6e 73 25 21 31  |<<21....icons%!1|
000054a0  32 3d 31 3c 3c 32 31 0d  03 ba 21 c8 99 22 57 69  |2=1<<21...!.."Wi|
000054b0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000054c0  2c 2c 69 63 6f 6e 73 25  0d 03 bb 05 e1 0d 03 bc  |,,icons%........|
000054d0  04 0d 03 bd 1c dd 20 f2  69 63 6f 6e 5f 74 6f 67  |...... .icon_tog|
000054e0  67 6c 65 28 77 25 2c 69  25 2c 73 25 29 0d 03 be  |gle(w%,i%,s%)...|
000054f0  0e 21 69 63 6f 6e 73 25  3d 77 25 0d 03 bf 0f 69  |.!icons%=w%....i|
00005500  63 6f 6e 73 25 21 34 3d  69 25 0d 03 c0 19 69 63  |cons%!4=i%....ic|
00005510  6f 6e 73 25 21 38 3d 28  73 25 20 80 20 31 29 3c  |ons%!8=(s% . 1)<|
00005520  3c 32 31 0d 03 c1 13 69  63 6f 6e 73 25 21 31 32  |<21....icons%!12|
00005530  3d 31 3c 3c 32 31 0d 03  c2 21 c8 99 22 57 69 6d  |=1<<21...!.."Wim|
00005540  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00005550  2c 69 63 6f 6e 73 25 0d  03 c3 05 e1 0d 03 c4 04  |,icons%.........|
00005560  0d 03 c5 21 dd 20 f2 69  63 6f 6e 5f 73 65 74 73  |...!. .icon_sets|
00005570  65 6c 72 61 64 69 6f 28  77 25 2c 69 25 2c 65 25  |elradio(w%,i%,e%|
00005580  29 0d 03 c6 09 ea 20 73  65 25 0d 03 c7 20 73 65  |)..... se%... se|
00005590  25 3d a4 69 63 6f 6e 5f  67 65 74 73 65 6c 72 61  |%=.icon_getselra|
000055a0  64 69 6f 28 77 25 2c 65  25 29 0d 03 c8 25 e7 20  |dio(w%,e%)...%. |
000055b0  73 65 25 3e 2d 31 20 8c  20 f2 69 63 6f 6e 5f 74  |se%>-1 . .icon_t|
000055c0  6f 67 67 6c 65 28 77 25  2c 73 65 25 2c 30 29 0d  |oggle(w%,se%,0).|
000055d0  03 c9 19 f2 69 63 6f 6e  5f 74 6f 67 67 6c 65 28  |....icon_toggle(|
000055e0  77 25 2c 69 25 2c 31 29  0d 03 ca 05 e1 0d 03 cb  |w%,i%,1)........|
000055f0  04 0d 03 cc 1e dd 20 a4  69 63 6f 6e 5f 67 65 74  |...... .icon_get|
00005600  73 65 6c 72 61 64 69 6f  28 77 25 2c 65 25 29 0d  |selradio(w%,e%).|
00005610  03 cd 12 65 25 3d 65 25  20 80 20 25 31 31 31 31  |...e%=e% . %1111|
00005620  31 0d 03 ce 3e c8 99 20  22 57 69 6d 70 5f 57 68  |1...>.. "Wimp_Wh|
00005630  69 63 68 49 63 6f 6e 22  2c 77 25 2c 69 63 6f 6e  |ichIcon",w%,icon|
00005640  73 25 2c 26 33 46 30 30  30 30 2c 28 26 32 30 30  |s%,&3F0000,(&200|
00005650  30 30 30 20 84 20 28 65  25 3c 3c 31 36 29 29 0d  |000 . (e%<<16)).|
00005660  03 cf 0c 3d 21 69 63 6f  6e 73 25 0d 03 d0 04 0d  |...=!icons%.....|
00005670  ff                                                |.|
00005671