!� !RunImage for Sprite 2 Jpeg
� � David Rodgman '95
� Freeware !
� See Help file for details
:
;� � 0,�$+" at line "+Þ:ș "XOS_CLI","Unset S2J$Dir":�
	�init
T�ONERROR PROCerror("Error from Sprite 2 Jpeg",%11,REPORT$+" at line "+STR$ERL,1)
	:

�
ș "WimpExt_PrePoll"
 ș "Wimp_Poll",,q% � reason%

4ș "WimpExt_Action",s2jpeg%,q%,reason% � reason%
Ȏ reason% �
#� 1:ș "WimpExt_AutoRedraw",,q%
#� 2:ș "WimpExt_OpenLinked",,q%
g� 3:ș "WimpExt_CloseLinked",,q%:� !q%=save% � ș"XOS_CLI","X Remove <S2J$Scrap>.Jpeg":�empty_scrap
� 6:�click
� 7:�drag_end
q� 8:� !q%=innards% � q%!24=13 � ș "WimpExt_SlabIcon",,,options%,2:sl%=-1 � ș "Wimp_ProcessKey",q%!24:sl%=-1
� 9:�menu_sel
� 17,18,19:�recieve
�
/� sl% � q%!12=options%:q%!16=2:sl%=�:�click

� quit%=�
�empty_scrap
*Unset S2J$Dir
"ș "WimpExt_CloseDown",s2jpeg%
ș "Wimp_CloseDown"
�
:
 � �click
!slab%=q%!16
"Ȏ q%!12 �
#� info%:� q%!16=2 � �author
$'� -2:� q%!16=iconbar% � �icon_click
%� save%:�save_click
&� options%:�options
'� innards%:�innards
(�
)(�SYS "XWimpExt_SlabIcon",,,0,slab%,0
*�
+:
,
� �author
-<ș "WimpExt_GetIcon",,,info%,2 � ,,,t%:t$=�string(t%,-1)
.F� �t$,5)="David" � t$="The Intelligent Stoat" � t$="David Rodgman"
/,ș "WimpExt_SetIconString",0,,info%,2,t$
0�
1:
2� �icon_click
3� q%!8=2 �
4H ș "WimpExt_CreateMenu",,main_menu%,!q%-64,96+44*3:menu%=main_menu%
5�
6 �set_vars:!q%=options%
7* ș "Wimp_GetWindowState",,q%:q%!28=-1
8  ș "WimpExt_OpenLinked",,q%
9+ ș "WimpExt_PutCaretIcon",,,innards%,4
:�
;�
<:
=� �options
>� q%!16=-1 � �
?� q%!8=2 � �
@9� q%!8<>1 � !q%=options%:ș "WimpExt_CloseLinked",,q%
AȎ q%!16 �
B� 0:�set_vars
C � 1:�read_vars:�save_options
D� 2:�read_vars
E�
F�
G:
H� �innards
I�
J:
K� �menu_sel
LȎ menu% �
M� main_menu%
N
 Ȏ !q% �
O � 1:�set_vars:!q%=options%
P1        ș "Wimp_GetWindowState",,q%:q%!28=-1
Q'        ș "WimpExt_OpenLinked",,q%
R2        ș "WimpExt_PutCaretIcon",,,innards%,4
S � 2:quit%=�
T �
U� type_menu%
V item%=!q%
W �type_tick(type_tick%,0)
X �type_tick(item%,1)
Y type_tick%=item%
Z�
[�
\:
]� �type_tick(item%,tick%)
^� tick%=0 �
_<type_menu%!(28+24*item%)=type_menu%!(28+24*item%) � �(1)
`�
a9type_menu%!(28+24*item%)=type_menu%!(28+24*item%) � 1
b�
c� tick%=1 � item%<6 �
dȎ item% �
e� 0:t$="file_c85":i$="Jpeg"
f � 1:t$="file_690":i$="Clear"
g'� 2:t$="file_ff9":i$="8-bit Sprite"
h(� 3:t$="file_ff9":i$="24-bit Sprite"
i� 4:t$="file_695":i$="GIF"
j � 5:t$="file_69d":i$="Targa"
k�
loutspr$=t$
m#t$="S"+t$+";wpptr_hand,6,1"+�13
n/!q%=save%:q%!4=3:ș "Wimp_GetIconState",,q%
o$(q%!32)=t$:q%!8=0:q%!12=0
pș "Wimp_SetIconState",,q%
q/!q%=save%:q%!4=4:ș "Wimp_GetIconState",,q%
r$(q%!28)=i$:q%!8=0:q%!12=0
sș "Wimp_SetIconState",,q%
t�
u�
v:
w� �recieve
x� i%:i%=q%!16:Ȏ i% �
y� 0:quit%=�
z� 2:�save_to_disc
{� 3:�load_from_disc
|�
}�
~:
� **** Filing routines
�:
�� �empty_scrap
�,ș "XOS_CLI","X Remove <S2J$Scrap>.Jpeg"
�-ș "XOS_CLI","X Remove <S2J$Scrap>.Jpeg2"
�.ș "XOS_CLI","X Remove <S2J$Scrap>.Output"
��
�<ș "OS_FSControl",9,"<Wimp$ScrapDir>.S2Jpeg" � ,,,,size%
�4� size%<=10240 � �:� 10k is not worth the hassle
�5ș "XOS_CLI","Wipe <Wimp$ScrapDir>.S2Jpeg ~CF~VR"
�.ș "XOS_CLI","CDir <Wimp$ScrapDir>.S2Jpeg"
��
�:
�� �load_from_disc
�err_click%=0
�&sender%=q%!4:� sender%=s2jpeg% � �
�;type%=q%!40:� type%<>&FF9 � type%<>&690 � type%<>&C85 �
�e �error("Message from Sprite 2 Jpeg",%011,"This does not look like an image file - continue ?",0)
��
�� err_click%=1 � �
�!fn$=�string(q%+44,-1):in$=fn$
�4!q%=256:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
�Ȏ type% �
�2� &FF9,&690:dodgy%=�:outspr$="file_c85":�cjpeg
�(� &c85:outspr$="file_690":�open_save
�
�&outspr$="file_c85":dodgy%=�:�cjpeg
��
��
�:
�� �open_save
�� type%<>&C85 �
� ot$="Jpeg"
�$ � i%=0 � 5:� i%=0 � s%=0 � s%=1
�
 � s%=1 �
�B type_menu%!(28+(24*i%)+8)=type_menu%!(28+(24*i%)+8) � (1<<22)
� �
�C type_menu%!(28+(24*i%)+8)=type_menu%!(28+(24*i%)+8) � �(1<<22)
� �
� �:�type_tick(0,1)
��
� ot$="Clear":type_tick%=1
�# � i%=0 � 5:� i%<>0 s%=0 � s%=1
� �type_tick(i%,0)
�
 � s%=1 �
�B type_menu%!(28+(24*i%)+8)=type_menu%!(28+(24*i%)+8) � (1<<22)
� �
�C type_menu%!(28+(24*i%)+8)=type_menu%!(28+(24*i%)+8) � �(1<<22)
� �
� �
� �type_tick(1,1)
�< type_menu%!(28+24*5+8)=type_menu%!(28+24*5+8) � (1<<22)
��
�-ș "WimpExt_SetIconString",0,,save%,4,ot$
�-ș "WimpExt_SetIconString",0,,save%,2,fn$
�*!q%=save%:ș "Wimp_GetWindowState",,q%
�ș "Wimp_OpenWindow",,q%
�'ș "WimpExt_PutCaretIcon",,,save%,2
��
�:
�� �save_click
�Ȏ q%!16 �
�� 0:�ok
�� 3:�begin_drag
�M� 5:!q%=save%:ș "Wimp_GetWindowState",,q%:ox%=q%!4-q%!20:oy%=q%!16-q%!24
�Hș "WimpExt_CreateMenu",,type_menu%,ox%+266,oy%-200:menu%=type_menu%
��
��
�:
�� �save_to_disc
�fn$=�string(q%+44,-1)
��do_save(fn$)
��
�:
�� �begin_drag
� � os%>=310 � sol%=� � sol%=�
�;ș "XOS_SWINumberFromString",,"DragASprite_Start" � ;e%
�� (e% � 1)=1 � sol%=�
�(� sol% � �solid_drag � �outline_drag
�drag%=�
��
�:
�� �solid_drag
� f%=%01000101:�bbox(q%,q%+16)
�s$=outspr$
�+ș "DragASprite_Start",f%,1,s$,q%,q%+16
��
�:
�� �outline_drag
�&!q%=save%:q%!4=5:�bbox(q%+8,q%+24)
�ș "Wimp_DragBox",,q%
��
�:
�� �bbox(cbox%,bbox%)
�4!buffer%=save%:ș "Wimp_GetWindowState",,buffer%
�6ox%=buffer%!4-buffer%!20:oy%=buffer%!16-buffer%!24
�/buffer%!4=3:ș "Wimp_GetIconState",,buffer%
�0cbox%!0=ox%+buffer%!8:cbox%!4=oy%+buffer%!12
�2cbox%!8=ox%+buffer%!16:cbox%!12=oy%+buffer%!20
�:bbox%!0=0:bbox%!4=0:bbox%!8=&7FFFFFFF:bbox%!12=bbox%!8
��
�:
�	� �ok
�>ș "WimpExt_GetIcon",,,save%,2 � ,,,t%:out$=�string(t%,-1)
��do_save(out$)
��
�:
�� �drag_end
�drag%=�
�<� sol% � ș "XDragASprite_Stop" � ș "XWimp_DragBox",,-1
��check_save
��
�:
�� �check_save
�<ș "WimpExt_GetIcon",,,save%,2 � ,,,t%:t$=�string(t%,-1)
�$ș "WimpExt_FindLeaf",t$ � leaf$
�=ș "OS_File",17,"<Wimp$ScrapDir>.S2Jpeg.Jpeg" � ,,,,size%
�5ș "Wimp_GetPointerInfo",,q%:win%=q%!12:ic%=q%!16
�=q%!16=1:q%!20=win%:q%!24=ic%:q%!28=!q%:q%!32=q%!4:!q%=100
�,q%!36=size%:q%!40=&c85:$(q%+44)=leaf$+�0
�0ș "Wimp_SendMessage",17,q%,win% � reciever%
��
�:
�� �do_save(out$)
�$ș "XOS_File",17,out$ � e%:go%=�
�Ȏ e% �
�\� 2:�error("Message from Sprite 2 Jpeg",%10,"A directory exists with this name",0):go%=�
�[� 1:�error("Message from Sprite 2 Jpeg",%111,"This file already exists - continue ?",0)
�!       � err_click%=0 � go%=�

� 0:� No file exists here


�

� � go% � �

"� outspr$<>"file_c85" � �djpeg

&ș "OS_SetVarVal","Temp$Temp",out$

Mș "Wimp_StartTask","Copy <S2J$Scrap>.Jpeg <Temp$Temp> D~V~CFSL~N~PQ~R~T"

!ș "OS_CLI","Unset Temp$Temp"

'!q%=save%:ș "Wimp_CloseWindow",,q%

�

	:


� �cjpeg

<switches$="-Q "+�quality%:� optimise% � switches$+=" -o"

 � cdebug% � switches$+=" -d"


$� interleave% � switches$+=" -I"

$� arithmetic% � switches$+=" -a"

(� cxtra$<>"" � switches$+=" "+cxtra$

%ș "OS_SetVarVal","Temp$Temp",fn$

Lcomm$="<ChangeFSI$Dir>.ChangeFSI <Temp$Temp> <S2J$Scrap>.PBM P6 -nomode"

ș "Wimp_StartTask",comm$

Xredir$=" { > <Wimp$ScrapDir>.S2Jpeg.Output }":� (� dodgy%) � (cdebug%=�) � redir$=""

Kcomm$="S2J:cjpeg "+switches$+" <S2J$Scrap>.PBM <S2J$Scrap>.Jpeg"+redir$

D� dodgy%=� � ș "XOS_CLI","Remove <Wimp$ScrapDir>.S2Jpeg.Output"

ș "Wimp_StartTask",comm$

,ș "XOS_File",17,"<S2J$Scrap>.Jpeg" � e%


� e%<>1 �

 � � dodgy% �

i �error("Message from Sprite 2 Jpeg",1,"Sorry, something went wrong - Jpeg creation has failed.",0):�

�

| �error("Message from Sprite 2 Jpeg",1,"Sorry, something went wrong - Jpeg creation has failed. (Bad input file ?)",0):�

�

�

)ș "XOS_CLI","Remove <S2J$Scrap>.PBM"

 1ș "XOS_CLI","X SetType <S2J$Scrap>.Jpeg c85"

!!ș "OS_CLI","Unset Temp$Temp"

"�open_save

#�

$:

%� �djpeg

&Ȏ type_tick% �

'� 1:cfo$=""

(� 2:cfo$="28"

)� 3:cfo$="s32"

*� 4:cfo$=""

+� 5:cfo$=""

,�:switches$=""

-,� quantize% � switches$="-q "+�quant_to%

. � passes% � switches$+=" -1"

/ � dither% � switches$+=" -D"

0� grey% � switches$+=" -g"

1 � xblock% � switches$+=" -b"

2 � ddebug% � switches$+=" -d"

3(� dxtra$<>"" � switches$+=" "+dxtra$

4Ȏ type_tick% �

5� 1,2,3:switches$+=" -P"

6� 4:switches$+=" -G"

7� 5:switches$+=" -T"

8�

9%ș "OS_SetVarVal","Temp$Temp",in$

:Kredir$=" { > <Wimp$ScrapDir>.S2Jpeg.Output }":� (ddebug%=�) � redir$=""

;Hcomm$="S2J:djpeg "+switches$+" <Temp$Temp> <S2J$Scrap>.Jpeg2"+redir$

<ș "Wimp_StartTask",comm$

=�

>ș "WimpExt_PrePoll"

? ș "Wimp_Poll",,q% � reason%

@4ș "WimpExt_Action",s2jpeg%,q%,reason% � reason%

AȎ reason% �

B"� 17,18,19:� q%!16=0 � quit%=�

C�

D-ș "XOS_File",17,"<S2J$Scrap>.Jpeg2" � e%

E
� e%=1

F� grey% � s$=" -d" � s$=""

G�

HȎ type_tick% �

I<� 1:�pbm_clear("<S2J$Scrap>.Jpeg2","<S2J$Scrap>.Jpeg",0)

J4       ș "XOS_CLI","X Remove <S2J$Scrap>.Jpeg2"

KZ� 2:comm$="<ChangeFSI$Dir>.ChangeFSI <S2J$Scrap>.Jpeg2 <S2J$Scrap>.Jpeg 28 -nomode"+s$

LL       ș "Wimp_StartTask",comm$:ș "XOS_CLI","Remove <S2J$Scrap>.Jpeg2"

M^� 3:comm$="<ChangeFSI$Dir>.ChangeFSI <S2J$Scrap>.Jpeg2 <S2J$Scrap>.Jpeg S32,90,90 -nomode"

NL       ș "Wimp_StartTask",comm$:ș "XOS_CLI","Remove <S2J$Scrap>.Jpeg2"

O4� 4:ș "XOS_CLI","SetType <S2J$Scrap>.Jpeg2 695"

PC       ș "XOS_CLI","Rename <S2J$Scrap>.Jpeg2 <S2J$Scrap>.Jpeg"

Q4� 5:ș "XOS_CLI","SetType <S2J$Scrap>.Jpeg2 69D"

RC       ș "XOS_CLI","Rename <S2J$Scrap>.Jpeg2 <S2J$Scrap>.Jpeg"

S�

T�

U:

V� �string(a%,l%)

Wd$="":� l%>0 �

X � i%=0 � l%-1

Y d$+=�(a%?i%)

Z �

[�

\# i%=0:max%=255:� l%<-1 max%=-l%

]+ ȕ �d$,1)<>�0 � �d$,1)<>�13 � i%<=max%

^ d$+=�(a%?i%):i%+=1

_ �

`  � �d$,1)=�0 � d$=�d$,�d$-1)

a�

b=d$

c:

d*� �error(title$,buttons%,mess$,fatal%)

eo�LOCAL ERROR:ONERROR ERROR 0,REPORT$+" in error handler at line "+STR$ERL:SYS "XOS_CLI","Unset S2J$Dir":END

fȎ buttons% �

g/� 0:$buffer%="OK"+�0+�0+�0+�0+�0+�0:die%=-1

h/� 1:$buffer%="OK"+�0+�0+�0+�0+�0+�0:die%=-1

i2� 2:$buffer%="Cancel"+�0+�0+�0+�0+�0+�0:die%=0

j4� 3:$buffer%="OK"+�0+"Cancel"+�0+�0+�0+�0:die%=1

k4� 7:$buffer%="Cancel"+�0+"OK"+�0+�0+�0+�0:die%=0

l�

m=�7:ș "WimpExt_OpenRequester",,,title$,mess$,buffer%,die%

n�

oș "WimpExt_PrePoll"

p%ș "Wimp_Poll",,buffer% � reason%

q9ș "WimpExt_Action",s2jpeg%,buffer%,reason% � reason%

rȎ reason% �

s(� 1:ș "WimpExt_AutoRedraw",,buffer%

t(� 2:ș "WimpExt_OpenLinked",,buffer%

u)� 3:ș "WimpExt_CloseLinked",,buffer%

v.� 6:� buffer%!16=die% � fatal%=1 � quit%=�

w� 17,18,19:�recieve

x�

y-� ((reason%=6 � buffer%!12=-3) � quit%=�)

zerr_click%=buffer%!16

{�

|:

}� �init

~Dș "Wimp_Initialise",200,&4B534154,"Sprite 2 Jpeg" � os%,s2jpeg%

;ș "WimpExt_Initialise",14,s2jpeg%,1874:q_size%=32*1024

�6quit%=�:sl%=�:type_tick%=0:� q% q_size%,buffer% 64

�=ș "WimpExt_IconBarSprite",,,-1,"!spr2jpeg",,3 � iconbar%

�ș "WimpExt_Heap",0,�,1

�-ș "WimpExt_Heap",2,0,1800 � ,temp_block%

�[� temp_block%=0 � Error 0,"Insufficient memory - please free some memory and try again"

��load_sprites

��load_templates

��make_menu

��load_options

��create_dir

��

�:

�� �create_dir

�2ș "XOS_File",17,"<Wimp$ScrapDir>.S2Jpeg" � e%

�6� e%=0 � ș "OS_CLI","CDir <Wimp$ScrapDir>.S2Jpeg"

��

�:

�� �read_vars

�8ș "WimpExt_GetNumberIcon",10,,innards%,4 � quality%

��icon_state(5,optimise%,0)

��icon_state(6,cdebug%,0)

��icon_strng(7,cxtra$,0)

� �icon_state(9,interleave%,0)

�!�icon_state(10,arithmetic%,0)

��icon_state(11,quantize%,0)

�:ș "WimpExt_GetNumberIcon",10,,innards%,12 � quant_to%

��icon_state(13,passes%,0)

��icon_state(14,dither%,0)

��icon_state(15,grey%,0)

��icon_state(16,xblock%,0)

��icon_state(17,ddebug%,0)

��icon_strng(18,dxtra$,0)

�� quant_to%<8 quant_to%=8

�!� quant_to%>256 quant_to%=256

�� quality%>100 quality%=100

�8ș "WimpExt_SetIconString",0,,innards%,12,�quant_to%

�6ș "WimpExt_SetIconString",0,,innards%,4,�quality%

��

�:

�� �set_vars

�� quant_to%<8 quant_to%=8

�!� quant_to%>256 quant_to%=256

�� quality%>100 quality%=100

�6ș "WimpExt_SetIconString",0,,innards%,4,�quality%

��icon_state(5,optimise%,1)

��icon_state(6,cdebug%,1)

��icon_strng(7,cxtra$,1)

� �icon_state(9,interleave%,1)

�!�icon_state(10,arithmetic%,1)

��icon_state(11,quantize%,1)

��icon_state(13,passes%,1)

��icon_state(14,dither%,1)

��icon_state(15,grey%,1)

��icon_state(16,xblock%,1)

��icon_state(17,ddebug%,1)

��icon_strng(18,dxtra$,1)

��shade(12,-(quantize%=0))

��shade(13,-(quantize%=0))

��

�:

�� �shade(i%,s%)

�3!q%=innards%:q%!4=i%:ș "Wimp_GetIconState",,q%

�Ȏ s% �

�� 0:c%=1<<22:e%=0

�� 1:c%=1<<22:e%=c%

�� 2:c%=0:e%=1<<22

�

�
c%=0:e%=0

��:q%!8=e%:q%!12=c%

�ș "Wimp_SetIconState",,q%

��

�:

�� �icon_strng(i%,� x$,w%)

�.ș "WimpExt_GetIcon",,,innards%,i% � ,,,t%

�(� w% � $t%=x$+�0 � x$=�string(t%,-1)

��

�:

�� �save_options

�'f%=�("<S2J$Dir>.Resources.Choices")

��#f%,quality%

��#f%,optimise%

��#f%,cdebug%

��#f%,interleave%

��#f%,arithmetic%

��#f%,quantize%

��#f%,quant_to%

��#f%,passes%

��#f%,dither%

��#f%,grey%

��#f%,xblock%

��#f%,ddebug%

��#f%,dxtra$

�	� #f%

��

�:

�� �load_options

�'f%=�("<S2J$Dir>.Resources.Choices")

�quality%=�#f%

�optimise%=�#f%

�cdebug%=�#f%

�interleave%=�#f%

�arithmetic%=�#f%

�quantize%=�#f%

�quant_to%=�#f%

�passes%=�#f%

�dither%=�#f%

�grey%=�#f%

�xblock%=�#f%

�ddebug%=�#f%

�dxtra$=�#f%

�	� #f%

�
�set_vars

��

�:

�� �icon_state(i%,� v%,wr%)

�� wr%=1 v%=v% � 1

�B!buffer%=innards%:buffer%!4=i%:ș "Wimp_GetIconState",,buffer%

�$f%=buffer%!24:old%=((f%>>21)� 1)

�� wr%=0 � v%=old% � 1:�

�v%=v% � 1:f%=0

�� v%=1 �

� c%=1<<21:e%=1<<21

��

� c%=1<<21:e%=0

��

�buffer%!8=e%:buffer%!12=c%

�#ș "Wimp_SetIconState",,buffer%

�v%=old% � 1
�

:
� �load_sprites
'f%=�("<S2J$Dir>.Resources.Sprites")
size%=� #f%+4:� #f%
� sprites% size%
!!sprites%=size%:sprites%!8=16
@ș "OS_SpriteOp",&10A,sprites%,"<S2J$Dir>.Resources.Sprites"
�
	:

� �load_templates
$buffer%=�64,�0)
� ind% 1375

nș "WimpExt_LoadTemplates",buffer%,!temp_block%,ind%,ind%+1375,-1,"<S2J$Dir>.Resources.Templates",sprites%
Iinfo%=!buffer%:options%=buffer%!4:save%=buffer%!8:innards%=buffer%!12
0ș "WimpExt_LinkWindows",,,options%,innards%
ș "WimpExt_Heap",13
�
:
� �make_menu
1� main_menu% 28+24*3,type_menu% 28+24*8,d% 14
� os%<310 �
! $main_menu%="Sprite2Jpeg"+�0
�
! $main_menu%="Sprite2Jpeg"+�0
�
Lmain_menu%!12=&70207:main_menu%!16=9*16:main_menu%!20=44:main_menu%!24=0
Vmain_menu%!28=0:main_menu%!32=info%:main_menu%!36=&7000021:$(main_menu%+40)="Info"
Ymain_menu%!52=0:main_menu%!56=-1:main_menu%!60=&7000021:$(main_menu%+64)="Options..."
Umain_menu%!76=&80:main_menu%!80=-1:main_menu%!84=&7000021:$(main_menu%+88)="Quit"
:
Hm%=type_menu%:$m%="Save as":m%!12=&70207:m%!16=9*16:m%!20=44:m%!24=0
 :m%!28=3:m%!32=-1:m%!36=&7000021:$(m%+40)="Jpeg":m%+=24
!;m%!28=0:m%!32=-1:m%!36=&7000021:$(m%+40)="Clear":m%+=24
"Bm%!28=0:m%!32=-1:m%!36=&7000021:$(m%+40)="8-bit sprite":m%+=24
#-m%!28=&0:m%!32=-1:m%!36=&7000121:m%!40=d%
$3$d%="24-bit sprite"+�0:m%!44=-1:m%!48=14:m%+=24
%9m%!28=0:m%!32=-1:m%!36=&7000021:$(m%+40)="GIF":m%+=24
&=m%!28=&80:m%!32=-1:m%!36=&7000021:$(m%+40)="Targa":m%+=24
'�
(:
) � �pbm_clear(pbm$,clr$,dir%)
*I� �:� � 0,"Error: "+�$+" at line "+Þ:ș "XOS_CLI","Unset S2J$Dir":�
+&� dir=0, pbm->clr, dir=1, clr->pbm
,ș "XOS_File",17,pbm$ � p%
-ș "XOS_File",17,clr$ � c%
.f� p%=0 � c%=0 � �error("Message from Sprite 2 Jpeg",%10,"Neither a PBM or Clear image exists",0):�
/Z� p%=2 � c%=2 � �error("Message from Sprite 2 Jpeg",%10,"One file is a directory",0):�
0� dir%=0 �
1! ș "OS_ReadMemMapInfo" � ps%
23 ș "Wimp_SlotSize",-1,-1 � c%,n%,f%:f%-=ps%*40
3
 � � �
4  block%=q%:bs%=q_size%
5 �
6  ș "WimpExt_Heap",0,�,2
7-  ș "WimpExt_Heap",2,0,f% � ,temp_block%
8  � temp_block%<>0 �
9!   block%=!temp_block%:bs%=f%
:  �
;   block%=q%:bs%=q_size%
<  �
= �
> � convert PBM to Clear
? pbm%=� pbm$
@ p$=�#pbm%
A � p$<>"P6" �
B  �PRINT "converting to P6"
C
  � #pbm%
D(  ș "OS_SetVarVal","Temp$Temp",pbm$
EO  comm$="<ChangeFSI$Dir>.ChangeFSI <Temp$Temp> <S2J$Scrap>.PBM6 P6 -nomode"
F2  ș "Wimp_StartTask",comm$:� convert PX to P6
G%  ș "XOS_CLI","Remove Temp$Temp"
HH  ș "XOS_CLI","Copy <SJ2$Scrap>.PBM6 <Temp$Temp> D~V~CFSL~N~PQ~R~T"
I  pbm%=� pbm$
J  a%=�#pbm%:a%=�#pbm%+48
K �
L( � pbm is now 24-bpp, binary encoded
M' �:m$=�#pbm%:� �m$,1)<>"#" � �#pbm%
N s$=m$:m$="Sprite 2 Jpeg"
O width%=�(�s$,�s$," ")-1))
P! height%=�(�s$,�s$-�s$," ")))
Q max%=�(�#pbm%)
R clr%=�(clr$):m$+=�0
S, �m=LENm$:m$+=STRING$(4-(m MOD 4),CHR$0)
T. �IF (m MOD 4)=0 THEN m$+=STRING$(CHR$0,4)
U �so(clr%,m$)
V �wo(clr%,107)
W �wo(clr%,width%)
X �wo(clr%,height%)
Y �wo(clr%,24)
Z( � i%=1 � ((height%*width%*3) � bs%)
[3  ș "OS_GBPB",4,pbm%,block%,bs% � ,,,not_done%
\$  ș "OS_GBPB",2,clr%,block%,bs%
] �
^& spare%=((height%*width%*3) � bs%)
_5 ș "OS_GBPB",4,pbm%,block%,spare% � ,,,not_done%
`& ș "OS_GBPB",2,clr%,block%,spare%
a �# clr%
b �# pbm%
c( ș "XOS_CLI","SetType "+clr$+" 690"
d ș "XWimpExt_Heap",13
e�
fT �error("Message from Sprite 2 Jpeg",%10,"Cannot convert from Clear to PBM",0):�
g�
h�
i:
j� �wo(fh%,wo%)
kb%=wo% � 255:� #fh%,b%
lb%=(wo%>>8) � 255:� #fh%,b%
m b%=(wo%>>16) � 255:� #fh%,b%
n b%=(wo%>>24) � 255:� #fh%,b%
o�
p:
q� �so(fh%,s$)
r�i%=1 � �s$
s�#fh%,�(�s$,i%,1))
t�
u�
�

00000000  0d 00 01 21 f4 20 21 52  75 6e 49 6d 61 67 65 20  |...!. !RunImage |
00000010  66 6f 72 20 53 70 72 69  74 65 20 32 20 4a 70 65  |for Sprite 2 Jpe|
00000020  67 0d 00 02 19 f4 20 a9  20 44 61 76 69 64 20 52  |g..... . David R|
00000030  6f 64 67 6d 61 6e 20 27  39 35 0d 00 03 10 f4 20  |odgman '95..... |
00000040  46 72 65 65 77 61 72 65  20 21 0d 00 04 1f f4 20  |Freeware !..... |
00000050  53 65 65 20 48 65 6c 70  20 66 69 6c 65 20 66 6f  |See Help file fo|
00000060  72 20 64 65 74 61 69 6c  73 0d 00 05 05 3a 0d 00  |r details....:..|
00000070  06 3b ee 85 20 85 20 30  2c f6 24 2b 22 20 61 74  |.;.. . 0,.$+" at|
00000080  20 6c 69 6e 65 20 22 2b  c3 9e 3a c8 99 20 22 58  | line "+..:.. "X|
00000090  4f 53 5f 43 4c 49 22 2c  22 55 6e 73 65 74 20 53  |OS_CLI","Unset S|
000000a0  32 4a 24 44 69 72 22 3a  e0 0d 00 07 09 f2 69 6e  |2J$Dir":......in|
000000b0  69 74 0d 00 08 54 f4 4f  4e 45 52 52 4f 52 20 50  |it...T.ONERROR P|
000000c0  52 4f 43 65 72 72 6f 72  28 22 45 72 72 6f 72 20  |ROCerror("Error |
000000d0  66 72 6f 6d 20 53 70 72  69 74 65 20 32 20 4a 70  |from Sprite 2 Jp|
000000e0  65 67 22 2c 25 31 31 2c  52 45 50 4f 52 54 24 2b  |eg",%11,REPORT$+|
000000f0  22 20 61 74 20 6c 69 6e  65 20 22 2b 53 54 52 24  |" at line "+STR$|
00000100  45 52 4c 2c 31 29 0d 00  09 05 3a 0d 00 0a 05 f5  |ERL,1)....:.....|
00000110  0d 00 0b 18 c8 99 20 22  57 69 6d 70 45 78 74 5f  |...... "WimpExt_|
00000120  50 72 65 50 6f 6c 6c 22  0d 00 0c 20 c8 99 20 22  |PrePoll"... .. "|
00000130  57 69 6d 70 5f 50 6f 6c  6c 22 2c 2c 71 25 20 b8  |Wimp_Poll",,q% .|
00000140  20 72 65 61 73 6f 6e 25  0d 00 0d 34 c8 99 20 22  | reason%...4.. "|
00000150  57 69 6d 70 45 78 74 5f  41 63 74 69 6f 6e 22 2c  |WimpExt_Action",|
00000160  73 32 6a 70 65 67 25 2c  71 25 2c 72 65 61 73 6f  |s2jpeg%,q%,reaso|
00000170  6e 25 20 b8 20 72 65 61  73 6f 6e 25 0d 00 0e 10  |n% . reason%....|
00000180  c8 8e 20 72 65 61 73 6f  6e 25 20 ca 0d 00 0f 23  |.. reason% ....#|
00000190  c9 20 31 3a c8 99 20 22  57 69 6d 70 45 78 74 5f  |. 1:.. "WimpExt_|
000001a0  41 75 74 6f 52 65 64 72  61 77 22 2c 2c 71 25 0d  |AutoRedraw",,q%.|
000001b0  00 10 23 c9 20 32 3a c8  99 20 22 57 69 6d 70 45  |..#. 2:.. "WimpE|
000001c0  78 74 5f 4f 70 65 6e 4c  69 6e 6b 65 64 22 2c 2c  |xt_OpenLinked",,|
000001d0  71 25 0d 00 11 67 c9 20  33 3a c8 99 20 22 57 69  |q%...g. 3:.. "Wi|
000001e0  6d 70 45 78 74 5f 43 6c  6f 73 65 4c 69 6e 6b 65  |mpExt_CloseLinke|
000001f0  64 22 2c 2c 71 25 3a e7  20 21 71 25 3d 73 61 76  |d",,q%:. !q%=sav|
00000200  65 25 20 8c 20 c8 99 22  58 4f 53 5f 43 4c 49 22  |e% . .."XOS_CLI"|
00000210  2c 22 58 20 52 65 6d 6f  76 65 20 3c 53 32 4a 24  |,"X Remove <S2J$|
00000220  53 63 72 61 70 3e 2e 4a  70 65 67 22 3a f2 65 6d  |Scrap>.Jpeg":.em|
00000230  70 74 79 5f 73 63 72 61  70 0d 00 12 0e c9 20 36  |pty_scrap..... 6|
00000240  3a f2 63 6c 69 63 6b 0d  00 13 11 c9 20 37 3a f2  |:.click..... 7:.|
00000250  64 72 61 67 5f 65 6e 64  0d 00 14 71 c9 20 38 3a  |drag_end...q. 8:|
00000260  e7 20 21 71 25 3d 69 6e  6e 61 72 64 73 25 20 80  |. !q%=innards% .|
00000270  20 71 25 21 32 34 3d 31  33 20 8c 20 c8 99 20 22  | q%!24=13 . .. "|
00000280  57 69 6d 70 45 78 74 5f  53 6c 61 62 49 63 6f 6e  |WimpExt_SlabIcon|
00000290  22 2c 2c 2c 6f 70 74 69  6f 6e 73 25 2c 32 3a 73  |",,,options%,2:s|
000002a0  6c 25 3d 2d 31 20 8b 20  c8 99 20 22 57 69 6d 70  |l%=-1 . .. "Wimp|
000002b0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 71 25 21  |_ProcessKey",q%!|
000002c0  32 34 3a 73 6c 25 3d 2d  31 0d 00 15 11 c9 20 39  |24:sl%=-1..... 9|
000002d0  3a f2 6d 65 6e 75 5f 73  65 6c 0d 00 16 17 c9 20  |:.menu_sel..... |
000002e0  31 37 2c 31 38 2c 31 39  3a f2 72 65 63 69 65 76  |17,18,19:.reciev|
000002f0  65 0d 00 17 05 cb 0d 00  18 2f e7 20 73 6c 25 20  |e......../. sl% |
00000300  8c 20 71 25 21 31 32 3d  6f 70 74 69 6f 6e 73 25  |. q%!12=options%|
00000310  3a 71 25 21 31 36 3d 32  3a 73 6c 25 3d a3 3a f2  |:q%!16=2:sl%=.:.|
00000320  63 6c 69 63 6b 0d 00 19  0d fd 20 71 75 69 74 25  |click..... quit%|
00000330  3d b9 0d 00 1a 10 f2 65  6d 70 74 79 5f 73 63 72  |=......empty_scr|
00000340  61 70 0d 00 1b 12 2a 55  6e 73 65 74 20 53 32 4a  |ap....*Unset S2J|
00000350  24 44 69 72 0d 00 1c 22  c8 99 20 22 57 69 6d 70  |$Dir...".. "Wimp|
00000360  45 78 74 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 73  |Ext_CloseDown",s|
00000370  32 6a 70 65 67 25 0d 00  1d 17 c8 99 20 22 57 69  |2jpeg%...... "Wi|
00000380  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 00 1e  |mp_CloseDown"...|
00000390  05 e0 0d 00 1f 05 3a 0d  00 20 0c dd 20 f2 63 6c  |......:.. .. .cl|
000003a0  69 63 6b 0d 00 21 0f 73  6c 61 62 25 3d 71 25 21  |ick..!.slab%=q%!|
000003b0  31 36 0d 00 22 0e c8 8e  20 71 25 21 31 32 20 ca  |16.."... q%!12 .|
000003c0  0d 00 23 1f c9 20 69 6e  66 6f 25 3a e7 20 71 25  |..#.. info%:. q%|
000003d0  21 31 36 3d 32 20 8c 20  f2 61 75 74 68 6f 72 0d  |!16=2 . .author.|
000003e0  00 24 27 c9 20 2d 32 3a  e7 20 71 25 21 31 36 3d  |.$'. -2:. q%!16=|
000003f0  69 63 6f 6e 62 61 72 25  20 8c 20 f2 69 63 6f 6e  |iconbar% . .icon|
00000400  5f 63 6c 69 63 6b 0d 00  25 17 c9 20 73 61 76 65  |_click..%.. save|
00000410  25 3a f2 73 61 76 65 5f  63 6c 69 63 6b 0d 00 26  |%:.save_click..&|
00000420  17 c9 20 6f 70 74 69 6f  6e 73 25 3a f2 6f 70 74  |.. options%:.opt|
00000430  69 6f 6e 73 0d 00 27 17  c9 20 69 6e 6e 61 72 64  |ions..'.. innard|
00000440  73 25 3a f2 69 6e 6e 61  72 64 73 0d 00 28 05 cb  |s%:.innards..(..|
00000450  0d 00 29 28 f4 53 59 53  20 22 58 57 69 6d 70 45  |..)(.SYS "XWimpE|
00000460  78 74 5f 53 6c 61 62 49  63 6f 6e 22 2c 2c 2c 30  |xt_SlabIcon",,,0|
00000470  2c 73 6c 61 62 25 2c 30  0d 00 2a 05 e1 0d 00 2b  |,slab%,0..*....+|
00000480  05 3a 0d 00 2c 0d dd 20  f2 61 75 74 68 6f 72 0d  |.:..,.. .author.|
00000490  00 2d 3c c8 99 20 22 57  69 6d 70 45 78 74 5f 47  |.-<.. "WimpExt_G|
000004a0  65 74 49 63 6f 6e 22 2c  2c 2c 69 6e 66 6f 25 2c  |etIcon",,,info%,|
000004b0  32 20 b8 20 2c 2c 2c 74  25 3a 74 24 3d a4 73 74  |2 . ,,,t%:t$=.st|
000004c0  72 69 6e 67 28 74 25 2c  2d 31 29 0d 00 2e 46 e7  |ring(t%,-1)...F.|
000004d0  20 c0 74 24 2c 35 29 3d  22 44 61 76 69 64 22 20  | .t$,5)="David" |
000004e0  8c 20 74 24 3d 22 54 68  65 20 49 6e 74 65 6c 6c  |. t$="The Intell|
000004f0  69 67 65 6e 74 20 53 74  6f 61 74 22 20 8b 20 74  |igent Stoat" . t|
00000500  24 3d 22 44 61 76 69 64  20 52 6f 64 67 6d 61 6e  |$="David Rodgman|
00000510  22 0d 00 2f 2c c8 99 20  22 57 69 6d 70 45 78 74  |"../,.. "WimpExt|
00000520  5f 53 65 74 49 63 6f 6e  53 74 72 69 6e 67 22 2c  |_SetIconString",|
00000530  30 2c 2c 69 6e 66 6f 25  2c 32 2c 74 24 0d 00 30  |0,,info%,2,t$..0|
00000540  05 e1 0d 00 31 05 3a 0d  00 32 11 dd 20 f2 69 63  |....1.:..2.. .ic|
00000550  6f 6e 5f 63 6c 69 63 6b  0d 00 33 0e e7 20 71 25  |on_click..3.. q%|
00000560  21 38 3d 32 20 8c 0d 00  34 48 20 c8 99 20 22 57  |!8=2 ...4H .. "W|
00000570  69 6d 70 45 78 74 5f 43  72 65 61 74 65 4d 65 6e  |impExt_CreateMen|
00000580  75 22 2c 2c 6d 61 69 6e  5f 6d 65 6e 75 25 2c 21  |u",,main_menu%,!|
00000590  71 25 2d 36 34 2c 39 36  2b 34 34 2a 33 3a 6d 65  |q%-64,96+44*3:me|
000005a0  6e 75 25 3d 6d 61 69 6e  5f 6d 65 6e 75 25 0d 00  |nu%=main_menu%..|
000005b0  35 05 cc 0d 00 36 1b 20  f2 73 65 74 5f 76 61 72  |5....6. .set_var|
000005c0  73 3a 21 71 25 3d 6f 70  74 69 6f 6e 73 25 0d 00  |s:!q%=options%..|
000005d0  37 2a 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |7* .. "Wimp_GetW|
000005e0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 71 25 3a  |indowState",,q%:|
000005f0  71 25 21 32 38 3d 2d 31  0d 00 38 20 20 c8 99 20  |q%!28=-1..8  .. |
00000600  22 57 69 6d 70 45 78 74  5f 4f 70 65 6e 4c 69 6e  |"WimpExt_OpenLin|
00000610  6b 65 64 22 2c 2c 71 25  0d 00 39 2b 20 c8 99 20  |ked",,q%..9+ .. |
00000620  22 57 69 6d 70 45 78 74  5f 50 75 74 43 61 72 65  |"WimpExt_PutCare|
00000630  74 49 63 6f 6e 22 2c 2c  2c 69 6e 6e 61 72 64 73  |tIcon",,,innards|
00000640  25 2c 34 0d 00 3a 05 cd  0d 00 3b 05 e1 0d 00 3c  |%,4..:....;....<|
00000650  05 3a 0d 00 3d 0e dd 20  f2 6f 70 74 69 6f 6e 73  |.:..=.. .options|
00000660  0d 00 3e 12 e7 20 71 25  21 31 36 3d 2d 31 20 8c  |..>.. q%!16=-1 .|
00000670  20 e1 0d 00 3f 10 e7 20  71 25 21 38 3d 32 20 8c  | ...?.. q%!8=2 .|
00000680  20 e1 0d 00 40 39 e7 20  71 25 21 38 3c 3e 31 20  | ...@9. q%!8<>1 |
00000690  8c 20 21 71 25 3d 6f 70  74 69 6f 6e 73 25 3a c8  |. !q%=options%:.|
000006a0  99 20 22 57 69 6d 70 45  78 74 5f 43 6c 6f 73 65  |. "WimpExt_Close|
000006b0  4c 69 6e 6b 65 64 22 2c  2c 71 25 0d 00 41 0e c8  |Linked",,q%..A..|
000006c0  8e 20 71 25 21 31 36 20  ca 0d 00 42 11 c9 20 30  |. q%!16 ...B.. 0|
000006d0  3a f2 73 65 74 5f 76 61  72 73 0d 00 43 20 c9 20  |:.set_vars..C . |
000006e0  31 3a f2 72 65 61 64 5f  76 61 72 73 3a f2 73 61  |1:.read_vars:.sa|
000006f0  76 65 5f 6f 70 74 69 6f  6e 73 0d 00 44 12 c9 20  |ve_options..D.. |
00000700  32 3a f2 72 65 61 64 5f  76 61 72 73 0d 00 45 05  |2:.read_vars..E.|
00000710  cb 0d 00 46 05 e1 0d 00  47 05 3a 0d 00 48 0e dd  |...F....G.:..H..|
00000720  20 f2 69 6e 6e 61 72 64  73 0d 00 49 05 e1 0d 00  | .innards..I....|
00000730  4a 05 3a 0d 00 4b 0f dd  20 f2 6d 65 6e 75 5f 73  |J.:..K.. .menu_s|
00000740  65 6c 0d 00 4c 0e c8 8e  20 6d 65 6e 75 25 20 ca  |el..L... menu% .|
00000750  0d 00 4d 10 c9 20 6d 61  69 6e 5f 6d 65 6e 75 25  |..M.. main_menu%|
00000760  0d 00 4e 0d 20 c8 8e 20  21 71 25 20 ca 0d 00 4f  |..N. .. !q% ...O|
00000770  1f 20 c9 20 31 3a f2 73  65 74 5f 76 61 72 73 3a  |. . 1:.set_vars:|
00000780  21 71 25 3d 6f 70 74 69  6f 6e 73 25 0d 00 50 31  |!q%=options%..P1|
00000790  20 20 20 20 20 20 20 20  c8 99 20 22 57 69 6d 70  |        .. "Wimp|
000007a0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000007b0  2c 2c 71 25 3a 71 25 21  32 38 3d 2d 31 0d 00 51  |,,q%:q%!28=-1..Q|
000007c0  27 20 20 20 20 20 20 20  20 c8 99 20 22 57 69 6d  |'        .. "Wim|
000007d0  70 45 78 74 5f 4f 70 65  6e 4c 69 6e 6b 65 64 22  |pExt_OpenLinked"|
000007e0  2c 2c 71 25 0d 00 52 32  20 20 20 20 20 20 20 20  |,,q%..R2        |
000007f0  c8 99 20 22 57 69 6d 70  45 78 74 5f 50 75 74 43  |.. "WimpExt_PutC|
00000800  61 72 65 74 49 63 6f 6e  22 2c 2c 2c 69 6e 6e 61  |aretIcon",,,inna|
00000810  72 64 73 25 2c 34 0d 00  53 10 20 c9 20 32 3a 71  |rds%,4..S. . 2:q|
00000820  75 69 74 25 3d b9 0d 00  54 06 20 cb 0d 00 55 10  |uit%=...T. ...U.|
00000830  c9 20 74 79 70 65 5f 6d  65 6e 75 25 0d 00 56 0e  |. type_menu%..V.|
00000840  20 69 74 65 6d 25 3d 21  71 25 0d 00 57 1d 20 f2  | item%=!q%..W. .|
00000850  74 79 70 65 5f 74 69 63  6b 28 74 79 70 65 5f 74  |type_tick(type_t|
00000860  69 63 6b 25 2c 30 29 0d  00 58 18 20 f2 74 79 70  |ick%,0)..X. .typ|
00000870  65 5f 74 69 63 6b 28 69  74 65 6d 25 2c 31 29 0d  |e_tick(item%,1).|
00000880  00 59 15 20 74 79 70 65  5f 74 69 63 6b 25 3d 69  |.Y. type_tick%=i|
00000890  74 65 6d 25 0d 00 5a 05  cb 0d 00 5b 05 e1 0d 00  |tem%..Z....[....|
000008a0  5c 05 3a 0d 00 5d 1d dd  20 f2 74 79 70 65 5f 74  |\.:..].. .type_t|
000008b0  69 63 6b 28 69 74 65 6d  25 2c 74 69 63 6b 25 29  |ick(item%,tick%)|
000008c0  0d 00 5e 0f e7 20 74 69  63 6b 25 3d 30 20 8c 0d  |..^.. tick%=0 ..|
000008d0  00 5f 3c 74 79 70 65 5f  6d 65 6e 75 25 21 28 32  |._<type_menu%!(2|
000008e0  38 2b 32 34 2a 69 74 65  6d 25 29 3d 74 79 70 65  |8+24*item%)=type|
000008f0  5f 6d 65 6e 75 25 21 28  32 38 2b 32 34 2a 69 74  |_menu%!(28+24*it|
00000900  65 6d 25 29 20 80 20 ac  28 31 29 0d 00 60 05 cc  |em%) . .(1)..`..|
00000910  0d 00 61 39 74 79 70 65  5f 6d 65 6e 75 25 21 28  |..a9type_menu%!(|
00000920  32 38 2b 32 34 2a 69 74  65 6d 25 29 3d 74 79 70  |28+24*item%)=typ|
00000930  65 5f 6d 65 6e 75 25 21  28 32 38 2b 32 34 2a 69  |e_menu%!(28+24*i|
00000940  74 65 6d 25 29 20 84 20  31 0d 00 62 05 cd 0d 00  |tem%) . 1..b....|
00000950  63 19 e7 20 74 69 63 6b  25 3d 31 20 80 20 69 74  |c.. tick%=1 . it|
00000960  65 6d 25 3c 36 20 8c 0d  00 64 0e c8 8e 20 69 74  |em%<6 ...d... it|
00000970  65 6d 25 20 ca 0d 00 65  1f c9 20 30 3a 74 24 3d  |em% ...e.. 0:t$=|
00000980  22 66 69 6c 65 5f 63 38  35 22 3a 69 24 3d 22 4a  |"file_c85":i$="J|
00000990  70 65 67 22 0d 00 66 20  c9 20 31 3a 74 24 3d 22  |peg"..f . 1:t$="|
000009a0  66 69 6c 65 5f 36 39 30  22 3a 69 24 3d 22 43 6c  |file_690":i$="Cl|
000009b0  65 61 72 22 0d 00 67 27  c9 20 32 3a 74 24 3d 22  |ear"..g'. 2:t$="|
000009c0  66 69 6c 65 5f 66 66 39  22 3a 69 24 3d 22 38 2d  |file_ff9":i$="8-|
000009d0  62 69 74 20 53 70 72 69  74 65 22 0d 00 68 28 c9  |bit Sprite"..h(.|
000009e0  20 33 3a 74 24 3d 22 66  69 6c 65 5f 66 66 39 22  | 3:t$="file_ff9"|
000009f0  3a 69 24 3d 22 32 34 2d  62 69 74 20 53 70 72 69  |:i$="24-bit Spri|
00000a00  74 65 22 0d 00 69 1e c9  20 34 3a 74 24 3d 22 66  |te"..i.. 4:t$="f|
00000a10  69 6c 65 5f 36 39 35 22  3a 69 24 3d 22 47 49 46  |ile_695":i$="GIF|
00000a20  22 0d 00 6a 20 c9 20 35  3a 74 24 3d 22 66 69 6c  |"..j . 5:t$="fil|
00000a30  65 5f 36 39 64 22 3a 69  24 3d 22 54 61 72 67 61  |e_69d":i$="Targa|
00000a40  22 0d 00 6b 05 cb 0d 00  6c 0e 6f 75 74 73 70 72  |"..k....l.outspr|
00000a50  24 3d 74 24 0d 00 6d 23  74 24 3d 22 53 22 2b 74  |$=t$..m#t$="S"+t|
00000a60  24 2b 22 3b 77 70 70 74  72 5f 68 61 6e 64 2c 36  |$+";wpptr_hand,6|
00000a70  2c 31 22 2b bd 31 33 0d  00 6e 2f 21 71 25 3d 73  |,1"+.13..n/!q%=s|
00000a80  61 76 65 25 3a 71 25 21  34 3d 33 3a c8 99 20 22  |ave%:q%!4=3:.. "|
00000a90  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000aa0  65 22 2c 2c 71 25 0d 00  6f 1e 24 28 71 25 21 33  |e",,q%..o.$(q%!3|
00000ab0  32 29 3d 74 24 3a 71 25  21 38 3d 30 3a 71 25 21  |2)=t$:q%!8=0:q%!|
00000ac0  31 32 3d 30 0d 00 70 1e  c8 99 20 22 57 69 6d 70  |12=0..p... "Wimp|
00000ad0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00000ae0  71 25 0d 00 71 2f 21 71  25 3d 73 61 76 65 25 3a  |q%..q/!q%=save%:|
00000af0  71 25 21 34 3d 34 3a c8  99 20 22 57 69 6d 70 5f  |q%!4=4:.. "Wimp_|
00000b00  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00000b10  25 0d 00 72 1e 24 28 71  25 21 32 38 29 3d 69 24  |%..r.$(q%!28)=i$|
00000b20  3a 71 25 21 38 3d 30 3a  71 25 21 31 32 3d 30 0d  |:q%!8=0:q%!12=0.|
00000b30  00 73 1e c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |.s... "Wimp_SetI|
00000b40  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 0d 00 74  |conState",,q%..t|
00000b50  05 cd 0d 00 75 05 e1 0d  00 76 05 3a 0d 00 77 0e  |....u....v.:..w.|
00000b60  dd 20 f2 72 65 63 69 65  76 65 0d 00 78 19 ea 20  |. .recieve..x.. |
00000b70  69 25 3a 69 25 3d 71 25  21 31 36 3a c8 8e 20 69  |i%:i%=q%!16:.. i|
00000b80  25 20 ca 0d 00 79 0f c9  20 30 3a 71 75 69 74 25  |% ...y.. 0:quit%|
00000b90  3d b9 0d 00 7a 15 c9 20  32 3a f2 73 61 76 65 5f  |=...z.. 2:.save_|
00000ba0  74 6f 5f 64 69 73 63 0d  00 7b 17 c9 20 33 3a f2  |to_disc..{.. 3:.|
00000bb0  6c 6f 61 64 5f 66 72 6f  6d 5f 64 69 73 63 0d 00  |load_from_disc..|
00000bc0  7c 05 cb 0d 00 7d 05 e1  0d 00 7e 05 3a 0d 00 7f  ||....}....~.:...|
00000bd0  1a f4 20 2a 2a 2a 2a 20  46 69 6c 69 6e 67 20 72  |.. **** Filing r|
00000be0  6f 75 74 69 6e 65 73 0d  00 80 05 3a 0d 00 81 12  |outines....:....|
00000bf0  dd 20 f2 65 6d 70 74 79  5f 73 63 72 61 70 0d 00  |. .empty_scrap..|
00000c00  82 2c c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |.,.. "XOS_CLI","|
00000c10  58 20 52 65 6d 6f 76 65  20 3c 53 32 4a 24 53 63  |X Remove <S2J$Sc|
00000c20  72 61 70 3e 2e 4a 70 65  67 22 0d 00 83 2d c8 99  |rap>.Jpeg"...-..|
00000c30  20 22 58 4f 53 5f 43 4c  49 22 2c 22 58 20 52 65  | "XOS_CLI","X Re|
00000c40  6d 6f 76 65 20 3c 53 32  4a 24 53 63 72 61 70 3e  |move <S2J$Scrap>|
00000c50  2e 4a 70 65 67 32 22 0d  00 84 2e c8 99 20 22 58  |.Jpeg2"...... "X|
00000c60  4f 53 5f 43 4c 49 22 2c  22 58 20 52 65 6d 6f 76  |OS_CLI","X Remov|
00000c70  65 20 3c 53 32 4a 24 53  63 72 61 70 3e 2e 4f 75  |e <S2J$Scrap>.Ou|
00000c80  74 70 75 74 22 0d 00 85  05 e1 0d 00 86 3c c8 99  |tput"........<..|
00000c90  20 22 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 2c  | "OS_FSControl",|
00000ca0  39 2c 22 3c 57 69 6d 70  24 53 63 72 61 70 44 69  |9,"<Wimp$ScrapDi|
00000cb0  72 3e 2e 53 32 4a 70 65  67 22 20 b8 20 2c 2c 2c  |r>.S2Jpeg" . ,,,|
00000cc0  2c 73 69 7a 65 25 0d 00  87 34 e7 20 73 69 7a 65  |,size%...4. size|
00000cd0  25 3c 3d 31 30 32 34 30  20 8c 20 e1 3a f4 20 31  |%<=10240 . .:. 1|
00000ce0  30 6b 20 69 73 20 6e 6f  74 20 77 6f 72 74 68 20  |0k is not worth |
00000cf0  74 68 65 20 68 61 73 73  6c 65 0d 00 88 35 c8 99  |the hassle...5..|
00000d00  20 22 58 4f 53 5f 43 4c  49 22 2c 22 57 69 70 65  | "XOS_CLI","Wipe|
00000d10  20 3c 57 69 6d 70 24 53  63 72 61 70 44 69 72 3e  | <Wimp$ScrapDir>|
00000d20  2e 53 32 4a 70 65 67 20  7e 43 46 7e 56 52 22 0d  |.S2Jpeg ~CF~VR".|
00000d30  00 89 2e c8 99 20 22 58  4f 53 5f 43 4c 49 22 2c  |..... "XOS_CLI",|
00000d40  22 43 44 69 72 20 3c 57  69 6d 70 24 53 63 72 61  |"CDir <Wimp$Scra|
00000d50  70 44 69 72 3e 2e 53 32  4a 70 65 67 22 0d 00 8a  |pDir>.S2Jpeg"...|
00000d60  05 e1 0d 00 8b 05 3a 0d  00 8c 15 dd 20 f2 6c 6f  |......:..... .lo|
00000d70  61 64 5f 66 72 6f 6d 5f  64 69 73 63 0d 00 8d 10  |ad_from_disc....|
00000d80  65 72 72 5f 63 6c 69 63  6b 25 3d 30 0d 00 8e 26  |err_click%=0...&|
00000d90  73 65 6e 64 65 72 25 3d  71 25 21 34 3a e7 20 73  |sender%=q%!4:. s|
00000da0  65 6e 64 65 72 25 3d 73  32 6a 70 65 67 25 20 8c  |ender%=s2jpeg% .|
00000db0  20 e1 0d 00 8f 3b 74 79  70 65 25 3d 71 25 21 34  | ....;type%=q%!4|
00000dc0  30 3a e7 20 74 79 70 65  25 3c 3e 26 46 46 39 20  |0:. type%<>&FF9 |
00000dd0  80 20 74 79 70 65 25 3c  3e 26 36 39 30 20 80 20  |. type%<>&690 . |
00000de0  74 79 70 65 25 3c 3e 26  43 38 35 20 8c 0d 00 90  |type%<>&C85 ....|
00000df0  65 20 f2 65 72 72 6f 72  28 22 4d 65 73 73 61 67  |e .error("Messag|
00000e00  65 20 66 72 6f 6d 20 53  70 72 69 74 65 20 32 20  |e from Sprite 2 |
00000e10  4a 70 65 67 22 2c 25 30  31 31 2c 22 54 68 69 73  |Jpeg",%011,"This|
00000e20  20 64 6f 65 73 20 6e 6f  74 20 6c 6f 6f 6b 20 6c  | does not look l|
00000e30  69 6b 65 20 61 6e 20 69  6d 61 67 65 20 66 69 6c  |ike an image fil|
00000e40  65 20 2d 20 63 6f 6e 74  69 6e 75 65 20 3f 22 2c  |e - continue ?",|
00000e50  30 29 0d 00 91 05 cd 0d  00 92 16 e7 20 65 72 72  |0).......... err|
00000e60  5f 63 6c 69 63 6b 25 3d  31 20 8c 20 e1 0d 00 93  |_click%=1 . ....|
00000e70  21 66 6e 24 3d a4 73 74  72 69 6e 67 28 71 25 2b  |!fn$=.string(q%+|
00000e80  34 34 2c 2d 31 29 3a 69  6e 24 3d 66 6e 24 0d 00  |44,-1):in$=fn$..|
00000e90  94 34 21 71 25 3d 32 35  36 3a 71 25 21 31 36 3d  |.4!q%=256:q%!16=|
00000ea0  34 3a c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |4:.. "Wimp_SendM|
00000eb0  65 73 73 61 67 65 22 2c  31 37 2c 71 25 2c 71 25  |essage",17,q%,q%|
00000ec0  21 34 0d 00 95 0e c8 8e  20 74 79 70 65 25 20 ca  |!4...... type% .|
00000ed0  0d 00 96 32 c9 20 26 46  46 39 2c 26 36 39 30 3a  |...2. &FF9,&690:|
00000ee0  64 6f 64 67 79 25 3d a3  3a 6f 75 74 73 70 72 24  |dodgy%=.:outspr$|
00000ef0  3d 22 66 69 6c 65 5f 63  38 35 22 3a f2 63 6a 70  |="file_c85":.cjp|
00000f00  65 67 0d 00 97 28 c9 20  26 63 38 35 3a 6f 75 74  |eg...(. &c85:out|
00000f10  73 70 72 24 3d 22 66 69  6c 65 5f 36 39 30 22 3a  |spr$="file_690":|
00000f20  f2 6f 70 65 6e 5f 73 61  76 65 0d 00 98 05 7f 0d  |.open_save......|
00000f30  00 99 26 6f 75 74 73 70  72 24 3d 22 66 69 6c 65  |..&outspr$="file|
00000f40  5f 63 38 35 22 3a 64 6f  64 67 79 25 3d b9 3a f2  |_c85":dodgy%=.:.|
00000f50  63 6a 70 65 67 0d 00 9a  05 cb 0d 00 9b 05 e1 0d  |cjpeg...........|
00000f60  00 9c 05 3a 0d 00 9d 10  dd 20 f2 6f 70 65 6e 5f  |...:..... .open_|
00000f70  73 61 76 65 0d 00 9e 13  e7 20 74 79 70 65 25 3c  |save..... type%<|
00000f80  3e 26 43 38 35 20 8c 0d  00 9f 0f 20 6f 74 24 3d  |>&C85 ..... ot$=|
00000f90  22 4a 70 65 67 22 0d 00  a0 24 20 e3 20 69 25 3d  |"Jpeg"...$ . i%=|
00000fa0  30 20 b8 20 35 3a e7 20  69 25 3d 30 20 8c 20 73  |0 . 5:. i%=0 . s|
00000fb0  25 3d 30 20 8b 20 73 25  3d 31 0d 00 a1 0d 20 e7  |%=0 . s%=1.... .|
00000fc0  20 73 25 3d 31 20 8c 0d  00 a2 42 20 74 79 70 65  | s%=1 ....B type|
00000fd0  5f 6d 65 6e 75 25 21 28  32 38 2b 28 32 34 2a 69  |_menu%!(28+(24*i|
00000fe0  25 29 2b 38 29 3d 74 79  70 65 5f 6d 65 6e 75 25  |%)+8)=type_menu%|
00000ff0  21 28 32 38 2b 28 32 34  2a 69 25 29 2b 38 29 20  |!(28+(24*i%)+8) |
00001000  84 20 28 31 3c 3c 32 32  29 0d 00 a3 06 20 cc 0d  |. (1<<22).... ..|
00001010  00 a4 43 20 74 79 70 65  5f 6d 65 6e 75 25 21 28  |..C type_menu%!(|
00001020  32 38 2b 28 32 34 2a 69  25 29 2b 38 29 3d 74 79  |28+(24*i%)+8)=ty|
00001030  70 65 5f 6d 65 6e 75 25  21 28 32 38 2b 28 32 34  |pe_menu%!(28+(24|
00001040  2a 69 25 29 2b 38 29 20  80 20 ac 28 31 3c 3c 32  |*i%)+8) . .(1<<2|
00001050  32 29 0d 00 a5 06 20 cd  0d 00 a6 16 20 ed 3a f2  |2).... ..... .:.|
00001060  74 79 70 65 5f 74 69 63  6b 28 30 2c 31 29 0d 00  |type_tick(0,1)..|
00001070  a7 05 cc 0d 00 a8 1d 20  6f 74 24 3d 22 43 6c 65  |....... ot$="Cle|
00001080  61 72 22 3a 74 79 70 65  5f 74 69 63 6b 25 3d 31  |ar":type_tick%=1|
00001090  0d 00 a9 23 20 e3 20 69  25 3d 30 20 b8 20 35 3a  |...# . i%=0 . 5:|
000010a0  e7 20 69 25 3c 3e 30 20  73 25 3d 30 20 8b 20 73  |. i%<>0 s%=0 . s|
000010b0  25 3d 31 0d 00 aa 15 20  f2 74 79 70 65 5f 74 69  |%=1.... .type_ti|
000010c0  63 6b 28 69 25 2c 30 29  0d 00 ab 0d 20 e7 20 73  |ck(i%,0).... . s|
000010d0  25 3d 31 20 8c 0d 00 ac  42 20 74 79 70 65 5f 6d  |%=1 ....B type_m|
000010e0  65 6e 75 25 21 28 32 38  2b 28 32 34 2a 69 25 29  |enu%!(28+(24*i%)|
000010f0  2b 38 29 3d 74 79 70 65  5f 6d 65 6e 75 25 21 28  |+8)=type_menu%!(|
00001100  32 38 2b 28 32 34 2a 69  25 29 2b 38 29 20 84 20  |28+(24*i%)+8) . |
00001110  28 31 3c 3c 32 32 29 0d  00 ad 06 20 cc 0d 00 ae  |(1<<22).... ....|
00001120  43 20 74 79 70 65 5f 6d  65 6e 75 25 21 28 32 38  |C type_menu%!(28|
00001130  2b 28 32 34 2a 69 25 29  2b 38 29 3d 74 79 70 65  |+(24*i%)+8)=type|
00001140  5f 6d 65 6e 75 25 21 28  32 38 2b 28 32 34 2a 69  |_menu%!(28+(24*i|
00001150  25 29 2b 38 29 20 80 20  ac 28 31 3c 3c 32 32 29  |%)+8) . .(1<<22)|
00001160  0d 00 af 06 20 cd 0d 00  b0 06 20 ed 0d 00 b1 14  |.... ..... .....|
00001170  20 f2 74 79 70 65 5f 74  69 63 6b 28 31 2c 31 29  | .type_tick(1,1)|
00001180  0d 00 b2 3c 20 74 79 70  65 5f 6d 65 6e 75 25 21  |...< type_menu%!|
00001190  28 32 38 2b 32 34 2a 35  2b 38 29 3d 74 79 70 65  |(28+24*5+8)=type|
000011a0  5f 6d 65 6e 75 25 21 28  32 38 2b 32 34 2a 35 2b  |_menu%!(28+24*5+|
000011b0  38 29 20 84 20 28 31 3c  3c 32 32 29 0d 00 b3 05  |8) . (1<<22)....|
000011c0  cd 0d 00 b4 2d c8 99 20  22 57 69 6d 70 45 78 74  |....-.. "WimpExt|
000011d0  5f 53 65 74 49 63 6f 6e  53 74 72 69 6e 67 22 2c  |_SetIconString",|
000011e0  30 2c 2c 73 61 76 65 25  2c 34 2c 6f 74 24 0d 00  |0,,save%,4,ot$..|
000011f0  b5 2d c8 99 20 22 57 69  6d 70 45 78 74 5f 53 65  |.-.. "WimpExt_Se|
00001200  74 49 63 6f 6e 53 74 72  69 6e 67 22 2c 30 2c 2c  |tIconString",0,,|
00001210  73 61 76 65 25 2c 32 2c  66 6e 24 0d 00 b6 2a 21  |save%,2,fn$...*!|
00001220  71 25 3d 73 61 76 65 25  3a c8 99 20 22 57 69 6d  |q%=save%:.. "Wim|
00001230  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001240  22 2c 2c 71 25 0d 00 b7  1c c8 99 20 22 57 69 6d  |",,q%...... "Wim|
00001250  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00001260  25 0d 00 b8 27 c8 99 20  22 57 69 6d 70 45 78 74  |%...'.. "WimpExt|
00001270  5f 50 75 74 43 61 72 65  74 49 63 6f 6e 22 2c 2c  |_PutCaretIcon",,|
00001280  2c 73 61 76 65 25 2c 32  0d 00 b9 05 e1 0d 00 ba  |,save%,2........|
00001290  05 3a 0d 00 bb 11 dd 20  f2 73 61 76 65 5f 63 6c  |.:..... .save_cl|
000012a0  69 63 6b 0d 00 bc 0e c8  8e 20 71 25 21 31 36 20  |ick...... q%!16 |
000012b0  ca 0d 00 bd 0b c9 20 30  3a f2 6f 6b 0d 00 be 13  |...... 0:.ok....|
000012c0  c9 20 33 3a f2 62 65 67  69 6e 5f 64 72 61 67 0d  |. 3:.begin_drag.|
000012d0  00 bf 4d c9 20 35 3a 21  71 25 3d 73 61 76 65 25  |..M. 5:!q%=save%|
000012e0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
000012f0  64 6f 77 53 74 61 74 65  22 2c 2c 71 25 3a 6f 78  |dowState",,q%:ox|
00001300  25 3d 71 25 21 34 2d 71  25 21 32 30 3a 6f 79 25  |%=q%!4-q%!20:oy%|
00001310  3d 71 25 21 31 36 2d 71  25 21 32 34 0d 00 c0 48  |=q%!16-q%!24...H|
00001320  c8 99 20 22 57 69 6d 70  45 78 74 5f 43 72 65 61  |.. "WimpExt_Crea|
00001330  74 65 4d 65 6e 75 22 2c  2c 74 79 70 65 5f 6d 65  |teMenu",,type_me|
00001340  6e 75 25 2c 6f 78 25 2b  32 36 36 2c 6f 79 25 2d  |nu%,ox%+266,oy%-|
00001350  32 30 30 3a 6d 65 6e 75  25 3d 74 79 70 65 5f 6d  |200:menu%=type_m|
00001360  65 6e 75 25 0d 00 c1 05  cb 0d 00 c2 05 e1 0d 00  |enu%............|
00001370  c3 05 3a 0d 00 c4 13 dd  20 f2 73 61 76 65 5f 74  |..:..... .save_t|
00001380  6f 5f 64 69 73 63 0d 00  c5 19 66 6e 24 3d a4 73  |o_disc....fn$=.s|
00001390  74 72 69 6e 67 28 71 25  2b 34 34 2c 2d 31 29 0d  |tring(q%+44,-1).|
000013a0  00 c6 11 f2 64 6f 5f 73  61 76 65 28 66 6e 24 29  |....do_save(fn$)|
000013b0  0d 00 c7 05 e1 0d 00 c8  05 3a 0d 00 c9 11 dd 20  |.........:..... |
000013c0  f2 62 65 67 69 6e 5f 64  72 61 67 0d 00 ca 20 e7  |.begin_drag... .|
000013d0  20 6f 73 25 3e 3d 33 31  30 20 8c 20 73 6f 6c 25  | os%>=310 . sol%|
000013e0  3d b9 20 8b 20 73 6f 6c  25 3d a3 0d 00 cb 3b c8  |=. . sol%=....;.|
000013f0  99 20 22 58 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |. "XOS_SWINumber|
00001400  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 44 72  |FromString",,"Dr|
00001410  61 67 41 53 70 72 69 74  65 5f 53 74 61 72 74 22  |agASprite_Start"|
00001420  20 b8 20 3b 65 25 0d 00  cc 19 e7 20 28 65 25 20  | . ;e%..... (e% |
00001430  80 20 31 29 3d 31 20 8c  20 73 6f 6c 25 3d a3 0d  |. 1)=1 . sol%=..|
00001440  00 cd 28 e7 20 73 6f 6c  25 20 8c 20 f2 73 6f 6c  |..(. sol% . .sol|
00001450  69 64 5f 64 72 61 67 20  8b 20 f2 6f 75 74 6c 69  |id_drag . .outli|
00001460  6e 65 5f 64 72 61 67 0d  00 ce 0b 64 72 61 67 25  |ne_drag....drag%|
00001470  3d b9 0d 00 cf 05 e1 0d  00 d0 05 3a 0d 00 d1 11  |=..........:....|
00001480  dd 20 f2 73 6f 6c 69 64  5f 64 72 61 67 0d 00 d2  |. .solid_drag...|
00001490  20 66 25 3d 25 30 31 30  30 30 31 30 31 3a f2 62  | f%=%01000101:.b|
000014a0  62 6f 78 28 71 25 2c 71  25 2b 31 36 29 0d 00 d3  |box(q%,q%+16)...|
000014b0  0e 73 24 3d 6f 75 74 73  70 72 24 0d 00 d4 2b c8  |.s$=outspr$...+.|
000014c0  99 20 22 44 72 61 67 41  53 70 72 69 74 65 5f 53  |. "DragASprite_S|
000014d0  74 61 72 74 22 2c 66 25  2c 31 2c 73 24 2c 71 25  |tart",f%,1,s$,q%|
000014e0  2c 71 25 2b 31 36 0d 00  d5 05 e1 0d 00 d6 05 3a  |,q%+16.........:|
000014f0  0d 00 d7 13 dd 20 f2 6f  75 74 6c 69 6e 65 5f 64  |..... .outline_d|
00001500  72 61 67 0d 00 d8 26 21  71 25 3d 73 61 76 65 25  |rag...&!q%=save%|
00001510  3a 71 25 21 34 3d 35 3a  f2 62 62 6f 78 28 71 25  |:q%!4=5:.bbox(q%|
00001520  2b 38 2c 71 25 2b 32 34  29 0d 00 d9 19 c8 99 20  |+8,q%+24)...... |
00001530  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00001540  71 25 0d 00 da 05 e1 0d  00 db 05 3a 0d 00 dc 18  |q%.........:....|
00001550  dd 20 f2 62 62 6f 78 28  63 62 6f 78 25 2c 62 62  |. .bbox(cbox%,bb|
00001560  6f 78 25 29 0d 00 dd 34  21 62 75 66 66 65 72 25  |ox%)...4!buffer%|
00001570  3d 73 61 76 65 25 3a c8  99 20 22 57 69 6d 70 5f  |=save%:.. "Wimp_|
00001580  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00001590  2c 62 75 66 66 65 72 25  0d 00 de 36 6f 78 25 3d  |,buffer%...6ox%=|
000015a0  62 75 66 66 65 72 25 21  34 2d 62 75 66 66 65 72  |buffer%!4-buffer|
000015b0  25 21 32 30 3a 6f 79 25  3d 62 75 66 66 65 72 25  |%!20:oy%=buffer%|
000015c0  21 31 36 2d 62 75 66 66  65 72 25 21 32 34 0d 00  |!16-buffer%!24..|
000015d0  df 2f 62 75 66 66 65 72  25 21 34 3d 33 3a c8 99  |./buffer%!4=3:..|
000015e0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
000015f0  61 74 65 22 2c 2c 62 75  66 66 65 72 25 0d 00 e0  |ate",,buffer%...|
00001600  30 63 62 6f 78 25 21 30  3d 6f 78 25 2b 62 75 66  |0cbox%!0=ox%+buf|
00001610  66 65 72 25 21 38 3a 63  62 6f 78 25 21 34 3d 6f  |fer%!8:cbox%!4=o|
00001620  79 25 2b 62 75 66 66 65  72 25 21 31 32 0d 00 e1  |y%+buffer%!12...|
00001630  32 63 62 6f 78 25 21 38  3d 6f 78 25 2b 62 75 66  |2cbox%!8=ox%+buf|
00001640  66 65 72 25 21 31 36 3a  63 62 6f 78 25 21 31 32  |fer%!16:cbox%!12|
00001650  3d 6f 79 25 2b 62 75 66  66 65 72 25 21 32 30 0d  |=oy%+buffer%!20.|
00001660  00 e2 3a 62 62 6f 78 25  21 30 3d 30 3a 62 62 6f  |..:bbox%!0=0:bbo|
00001670  78 25 21 34 3d 30 3a 62  62 6f 78 25 21 38 3d 26  |x%!4=0:bbox%!8=&|
00001680  37 46 46 46 46 46 46 46  3a 62 62 6f 78 25 21 31  |7FFFFFFF:bbox%!1|
00001690  32 3d 62 62 6f 78 25 21  38 0d 00 e3 05 e1 0d 00  |2=bbox%!8.......|
000016a0  e4 05 3a 0d 00 e5 09 dd  20 f2 6f 6b 0d 00 e6 3e  |..:..... .ok...>|
000016b0  c8 99 20 22 57 69 6d 70  45 78 74 5f 47 65 74 49  |.. "WimpExt_GetI|
000016c0  63 6f 6e 22 2c 2c 2c 73  61 76 65 25 2c 32 20 b8  |con",,,save%,2 .|
000016d0  20 2c 2c 2c 74 25 3a 6f  75 74 24 3d a4 73 74 72  | ,,,t%:out$=.str|
000016e0  69 6e 67 28 74 25 2c 2d  31 29 0d 00 e7 12 f2 64  |ing(t%,-1).....d|
000016f0  6f 5f 73 61 76 65 28 6f  75 74 24 29 0d 00 e8 05  |o_save(out$)....|
00001700  e1 0d 00 e9 05 3a 0d 00  ea 0f dd 20 f2 64 72 61  |.....:..... .dra|
00001710  67 5f 65 6e 64 0d 00 eb  0b 64 72 61 67 25 3d a3  |g_end....drag%=.|
00001720  0d 00 ec 3c e7 20 73 6f  6c 25 20 8c 20 c8 99 20  |...<. sol% . .. |
00001730  22 58 44 72 61 67 41 53  70 72 69 74 65 5f 53 74  |"XDragASprite_St|
00001740  6f 70 22 20 8b 20 c8 99  20 22 58 57 69 6d 70 5f  |op" . .. "XWimp_|
00001750  44 72 61 67 42 6f 78 22  2c 2c 2d 31 0d 00 ed 0f  |DragBox",,-1....|
00001760  f2 63 68 65 63 6b 5f 73  61 76 65 0d 00 ee 05 e1  |.check_save.....|
00001770  0d 00 ef 05 3a 0d 00 f0  11 dd 20 f2 63 68 65 63  |....:..... .chec|
00001780  6b 5f 73 61 76 65 0d 00  f1 3c c8 99 20 22 57 69  |k_save...<.. "Wi|
00001790  6d 70 45 78 74 5f 47 65  74 49 63 6f 6e 22 2c 2c  |mpExt_GetIcon",,|
000017a0  2c 73 61 76 65 25 2c 32  20 b8 20 2c 2c 2c 74 25  |,save%,2 . ,,,t%|
000017b0  3a 74 24 3d a4 73 74 72  69 6e 67 28 74 25 2c 2d  |:t$=.string(t%,-|
000017c0  31 29 0d 00 f2 24 c8 99  20 22 57 69 6d 70 45 78  |1)...$.. "WimpEx|
000017d0  74 5f 46 69 6e 64 4c 65  61 66 22 2c 74 24 20 b8  |t_FindLeaf",t$ .|
000017e0  20 6c 65 61 66 24 0d 00  f3 3d c8 99 20 22 4f 53  | leaf$...=.. "OS|
000017f0  5f 46 69 6c 65 22 2c 31  37 2c 22 3c 57 69 6d 70  |_File",17,"<Wimp|
00001800  24 53 63 72 61 70 44 69  72 3e 2e 53 32 4a 70 65  |$ScrapDir>.S2Jpe|
00001810  67 2e 4a 70 65 67 22 20  b8 20 2c 2c 2c 2c 73 69  |g.Jpeg" . ,,,,si|
00001820  7a 65 25 0d 00 f4 35 c8  99 20 22 57 69 6d 70 5f  |ze%...5.. "Wimp_|
00001830  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00001840  2c 71 25 3a 77 69 6e 25  3d 71 25 21 31 32 3a 69  |,q%:win%=q%!12:i|
00001850  63 25 3d 71 25 21 31 36  0d 00 f5 3d 71 25 21 31  |c%=q%!16...=q%!1|
00001860  36 3d 31 3a 71 25 21 32  30 3d 77 69 6e 25 3a 71  |6=1:q%!20=win%:q|
00001870  25 21 32 34 3d 69 63 25  3a 71 25 21 32 38 3d 21  |%!24=ic%:q%!28=!|
00001880  71 25 3a 71 25 21 33 32  3d 71 25 21 34 3a 21 71  |q%:q%!32=q%!4:!q|
00001890  25 3d 31 30 30 0d 00 f6  2c 71 25 21 33 36 3d 73  |%=100...,q%!36=s|
000018a0  69 7a 65 25 3a 71 25 21  34 30 3d 26 63 38 35 3a  |ize%:q%!40=&c85:|
000018b0  24 28 71 25 2b 34 34 29  3d 6c 65 61 66 24 2b bd  |$(q%+44)=leaf$+.|
000018c0  30 0d 00 f7 30 c8 99 20  22 57 69 6d 70 5f 53 65  |0...0.. "Wimp_Se|
000018d0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
000018e0  2c 77 69 6e 25 20 b8 20  72 65 63 69 65 76 65 72  |,win% . reciever|
000018f0  25 0d 00 f8 05 e1 0d 00  f9 05 3a 0d 00 fa 14 dd  |%.........:.....|
00001900  20 f2 64 6f 5f 73 61 76  65 28 6f 75 74 24 29 0d  | .do_save(out$).|
00001910  00 fb 24 c8 99 20 22 58  4f 53 5f 46 69 6c 65 22  |..$.. "XOS_File"|
00001920  2c 31 37 2c 6f 75 74 24  20 b8 20 65 25 3a 67 6f  |,17,out$ . e%:go|
00001930  25 3d b9 0d 00 fc 0b c8  8e 20 65 25 20 ca 0d 00  |%=....... e% ...|
00001940  fd 5c c9 20 32 3a f2 65  72 72 6f 72 28 22 4d 65  |.\. 2:.error("Me|
00001950  73 73 61 67 65 20 66 72  6f 6d 20 53 70 72 69 74  |ssage from Sprit|
00001960  65 20 32 20 4a 70 65 67  22 2c 25 31 30 2c 22 41  |e 2 Jpeg",%10,"A|
00001970  20 64 69 72 65 63 74 6f  72 79 20 65 78 69 73 74  | directory exist|
00001980  73 20 77 69 74 68 20 74  68 69 73 20 6e 61 6d 65  |s with this name|
00001990  22 2c 30 29 3a 67 6f 25  3d a3 0d 00 fe 5b c9 20  |",0):go%=....[. |
000019a0  31 3a f2 65 72 72 6f 72  28 22 4d 65 73 73 61 67  |1:.error("Messag|
000019b0  65 20 66 72 6f 6d 20 53  70 72 69 74 65 20 32 20  |e from Sprite 2 |
000019c0  4a 70 65 67 22 2c 25 31  31 31 2c 22 54 68 69 73  |Jpeg",%111,"This|
000019d0  20 66 69 6c 65 20 61 6c  72 65 61 64 79 20 65 78  | file already ex|
000019e0  69 73 74 73 20 2d 20 63  6f 6e 74 69 6e 75 65 20  |ists - continue |
000019f0  3f 22 2c 30 29 0d 00 ff  21 20 20 20 20 20 20 20  |?",0)...!       |
00001a00  e7 20 65 72 72 5f 63 6c  69 63 6b 25 3d 30 20 8c  |. err_click%=0 .|
00001a10  20 67 6f 25 3d a3 0d 01  00 1d c9 20 30 3a f4 20  | go%=...... 0:. |
00001a20  4e 6f 20 66 69 6c 65 20  65 78 69 73 74 73 20 68  |No file exists h|
00001a30  65 72 65 0d 01 01 05 cb  0d 01 02 0f e7 20 ac 20  |ere.......... . |
00001a40  67 6f 25 20 8c 20 e1 0d  01 03 22 e7 20 6f 75 74  |go% . ....". out|
00001a50  73 70 72 24 3c 3e 22 66  69 6c 65 5f 63 38 35 22  |spr$<>"file_c85"|
00001a60  20 8c 20 f2 64 6a 70 65  67 0d 01 04 26 c8 99 20  | . .djpeg...&.. |
00001a70  22 4f 53 5f 53 65 74 56  61 72 56 61 6c 22 2c 22  |"OS_SetVarVal","|
00001a80  54 65 6d 70 24 54 65 6d  70 22 2c 6f 75 74 24 0d  |Temp$Temp",out$.|
00001a90  01 05 4d c8 99 20 22 57  69 6d 70 5f 53 74 61 72  |..M.. "Wimp_Star|
00001aa0  74 54 61 73 6b 22 2c 22  43 6f 70 79 20 3c 53 32  |tTask","Copy <S2|
00001ab0  4a 24 53 63 72 61 70 3e  2e 4a 70 65 67 20 3c 54  |J$Scrap>.Jpeg <T|
00001ac0  65 6d 70 24 54 65 6d 70  3e 20 44 7e 56 7e 43 46  |emp$Temp> D~V~CF|
00001ad0  53 4c 7e 4e 7e 50 51 7e  52 7e 54 22 0d 01 06 21  |SL~N~PQ~R~T"...!|
00001ae0  c8 99 20 22 4f 53 5f 43  4c 49 22 2c 22 55 6e 73  |.. "OS_CLI","Uns|
00001af0  65 74 20 54 65 6d 70 24  54 65 6d 70 22 0d 01 07  |et Temp$Temp"...|
00001b00  27 21 71 25 3d 73 61 76  65 25 3a c8 99 20 22 57  |'!q%=save%:.. "W|
00001b10  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00001b20  2c 2c 71 25 0d 01 08 05  e1 0d 01 09 05 3a 0d 01  |,,q%.........:..|
00001b30  0a 0c dd 20 f2 63 6a 70  65 67 0d 01 0b 3c 73 77  |... .cjpeg...<sw|
00001b40  69 74 63 68 65 73 24 3d  22 2d 51 20 22 2b c3 71  |itches$="-Q "+.q|
00001b50  75 61 6c 69 74 79 25 3a  e7 20 6f 70 74 69 6d 69  |uality%:. optimi|
00001b60  73 65 25 20 8c 20 73 77  69 74 63 68 65 73 24 2b  |se% . switches$+|
00001b70  3d 22 20 2d 6f 22 0d 01  0c 20 e7 20 63 64 65 62  |=" -o"... . cdeb|
00001b80  75 67 25 20 8c 20 73 77  69 74 63 68 65 73 24 2b  |ug% . switches$+|
00001b90  3d 22 20 2d 64 22 0d 01  0d 24 e7 20 69 6e 74 65  |=" -d"...$. inte|
00001ba0  72 6c 65 61 76 65 25 20  8c 20 73 77 69 74 63 68  |rleave% . switch|
00001bb0  65 73 24 2b 3d 22 20 2d  49 22 0d 01 0e 24 e7 20  |es$+=" -I"...$. |
00001bc0  61 72 69 74 68 6d 65 74  69 63 25 20 8c 20 73 77  |arithmetic% . sw|
00001bd0  69 74 63 68 65 73 24 2b  3d 22 20 2d 61 22 0d 01  |itches$+=" -a"..|
00001be0  0f 28 e7 20 63 78 74 72  61 24 3c 3e 22 22 20 8c  |.(. cxtra$<>"" .|
00001bf0  20 73 77 69 74 63 68 65  73 24 2b 3d 22 20 22 2b  | switches$+=" "+|
00001c00  63 78 74 72 61 24 0d 01  10 25 c8 99 20 22 4f 53  |cxtra$...%.. "OS|
00001c10  5f 53 65 74 56 61 72 56  61 6c 22 2c 22 54 65 6d  |_SetVarVal","Tem|
00001c20  70 24 54 65 6d 70 22 2c  66 6e 24 0d 01 11 4c 63  |p$Temp",fn$...Lc|
00001c30  6f 6d 6d 24 3d 22 3c 43  68 61 6e 67 65 46 53 49  |omm$="<ChangeFSI|
00001c40  24 44 69 72 3e 2e 43 68  61 6e 67 65 46 53 49 20  |$Dir>.ChangeFSI |
00001c50  3c 54 65 6d 70 24 54 65  6d 70 3e 20 3c 53 32 4a  |<Temp$Temp> <S2J|
00001c60  24 53 63 72 61 70 3e 2e  50 42 4d 20 50 36 20 2d  |$Scrap>.PBM P6 -|
00001c70  6e 6f 6d 6f 64 65 22 0d  01 12 1d c8 99 20 22 57  |nomode"...... "W|
00001c80  69 6d 70 5f 53 74 61 72  74 54 61 73 6b 22 2c 63  |imp_StartTask",c|
00001c90  6f 6d 6d 24 0d 01 13 58  72 65 64 69 72 24 3d 22  |omm$...Xredir$="|
00001ca0  20 7b 20 3e 20 3c 57 69  6d 70 24 53 63 72 61 70  | { > <Wimp$Scrap|
00001cb0  44 69 72 3e 2e 53 32 4a  70 65 67 2e 4f 75 74 70  |Dir>.S2Jpeg.Outp|
00001cc0  75 74 20 7d 22 3a e7 20  28 ac 20 64 6f 64 67 79  |ut }":. (. dodgy|
00001cd0  25 29 20 84 20 28 63 64  65 62 75 67 25 3d b9 29  |%) . (cdebug%=.)|
00001ce0  20 8c 20 72 65 64 69 72  24 3d 22 22 0d 01 14 4b  | . redir$=""...K|
00001cf0  63 6f 6d 6d 24 3d 22 53  32 4a 3a 63 6a 70 65 67  |comm$="S2J:cjpeg|
00001d00  20 22 2b 73 77 69 74 63  68 65 73 24 2b 22 20 3c  | "+switches$+" <|
00001d10  53 32 4a 24 53 63 72 61  70 3e 2e 50 42 4d 20 3c  |S2J$Scrap>.PBM <|
00001d20  53 32 4a 24 53 63 72 61  70 3e 2e 4a 70 65 67 22  |S2J$Scrap>.Jpeg"|
00001d30  2b 72 65 64 69 72 24 0d  01 15 44 e7 20 64 6f 64  |+redir$...D. dod|
00001d40  67 79 25 3d b9 20 8c 20  c8 99 20 22 58 4f 53 5f  |gy%=. . .. "XOS_|
00001d50  43 4c 49 22 2c 22 52 65  6d 6f 76 65 20 3c 57 69  |CLI","Remove <Wi|
00001d60  6d 70 24 53 63 72 61 70  44 69 72 3e 2e 53 32 4a  |mp$ScrapDir>.S2J|
00001d70  70 65 67 2e 4f 75 74 70  75 74 22 0d 01 16 1d c8  |peg.Output".....|
00001d80  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
00001d90  6b 22 2c 63 6f 6d 6d 24  0d 01 17 2c c8 99 20 22  |k",comm$...,.. "|
00001da0  58 4f 53 5f 46 69 6c 65  22 2c 31 37 2c 22 3c 53  |XOS_File",17,"<S|
00001db0  32 4a 24 53 63 72 61 70  3e 2e 4a 70 65 67 22 20  |2J$Scrap>.Jpeg" |
00001dc0  b8 20 65 25 0d 01 18 0d  e7 20 65 25 3c 3e 31 20  |. e%..... e%<>1 |
00001dd0  8c 0d 01 19 11 20 e7 20  ac 20 64 6f 64 67 79 25  |..... . . dodgy%|
00001de0  20 8c 0d 01 1a 69 20 f2  65 72 72 6f 72 28 22 4d  | ....i .error("M|
00001df0  65 73 73 61 67 65 20 66  72 6f 6d 20 53 70 72 69  |essage from Spri|
00001e00  74 65 20 32 20 4a 70 65  67 22 2c 31 2c 22 53 6f  |te 2 Jpeg",1,"So|
00001e10  72 72 79 2c 20 73 6f 6d  65 74 68 69 6e 67 20 77  |rry, something w|
00001e20  65 6e 74 20 77 72 6f 6e  67 20 2d 20 4a 70 65 67  |ent wrong - Jpeg|
00001e30  20 63 72 65 61 74 69 6f  6e 20 68 61 73 20 66 61  | creation has fa|
00001e40  69 6c 65 64 2e 22 2c 30  29 3a e1 0d 01 1b 05 cc  |iled.",0):......|
00001e50  0d 01 1c 7c 20 f2 65 72  72 6f 72 28 22 4d 65 73  |...| .error("Mes|
00001e60  73 61 67 65 20 66 72 6f  6d 20 53 70 72 69 74 65  |sage from Sprite|
00001e70  20 32 20 4a 70 65 67 22  2c 31 2c 22 53 6f 72 72  | 2 Jpeg",1,"Sorr|
00001e80  79 2c 20 73 6f 6d 65 74  68 69 6e 67 20 77 65 6e  |y, something wen|
00001e90  74 20 77 72 6f 6e 67 20  2d 20 4a 70 65 67 20 63  |t wrong - Jpeg c|
00001ea0  72 65 61 74 69 6f 6e 20  68 61 73 20 66 61 69 6c  |reation has fail|
00001eb0  65 64 2e 20 28 42 61 64  20 69 6e 70 75 74 20 66  |ed. (Bad input f|
00001ec0  69 6c 65 20 3f 29 22 2c  30 29 3a e1 0d 01 1d 05  |ile ?)",0):.....|
00001ed0  cd 0d 01 1e 05 cd 0d 01  1f 29 c8 99 20 22 58 4f  |.........).. "XO|
00001ee0  53 5f 43 4c 49 22 2c 22  52 65 6d 6f 76 65 20 3c  |S_CLI","Remove <|
00001ef0  53 32 4a 24 53 63 72 61  70 3e 2e 50 42 4d 22 0d  |S2J$Scrap>.PBM".|
00001f00  01 20 31 c8 99 20 22 58  4f 53 5f 43 4c 49 22 2c  |. 1.. "XOS_CLI",|
00001f10  22 58 20 53 65 74 54 79  70 65 20 3c 53 32 4a 24  |"X SetType <S2J$|
00001f20  53 63 72 61 70 3e 2e 4a  70 65 67 20 63 38 35 22  |Scrap>.Jpeg c85"|
00001f30  0d 01 21 21 c8 99 20 22  4f 53 5f 43 4c 49 22 2c  |..!!.. "OS_CLI",|
00001f40  22 55 6e 73 65 74 20 54  65 6d 70 24 54 65 6d 70  |"Unset Temp$Temp|
00001f50  22 0d 01 22 0e f2 6f 70  65 6e 5f 73 61 76 65 0d  |".."..open_save.|
00001f60  01 23 05 e1 0d 01 24 05  3a 0d 01 25 0c dd 20 f2  |.#....$.:..%.. .|
00001f70  64 6a 70 65 67 0d 01 26  13 c8 8e 20 74 79 70 65  |djpeg..&... type|
00001f80  5f 74 69 63 6b 25 20 ca  0d 01 27 0f c9 20 31 3a  |_tick% ...'.. 1:|
00001f90  63 66 6f 24 3d 22 22 0d  01 28 11 c9 20 32 3a 63  |cfo$=""..(.. 2:c|
00001fa0  66 6f 24 3d 22 32 38 22  0d 01 29 12 c9 20 33 3a  |fo$="28"..).. 3:|
00001fb0  63 66 6f 24 3d 22 73 33  32 22 0d 01 2a 0f c9 20  |cfo$="s32"..*.. |
00001fc0  34 3a 63 66 6f 24 3d 22  22 0d 01 2b 0f c9 20 35  |4:cfo$=""..+.. 5|
00001fd0  3a 63 66 6f 24 3d 22 22  0d 01 2c 12 cb 3a 73 77  |:cfo$=""..,..:sw|
00001fe0  69 74 63 68 65 73 24 3d  22 22 0d 01 2d 2c e7 20  |itches$=""..-,. |
00001ff0  71 75 61 6e 74 69 7a 65  25 20 8c 20 73 77 69 74  |quantize% . swit|
00002000  63 68 65 73 24 3d 22 2d  71 20 22 2b c3 71 75 61  |ches$="-q "+.qua|
00002010  6e 74 5f 74 6f 25 0d 01  2e 20 e7 20 70 61 73 73  |nt_to%... . pass|
00002020  65 73 25 20 8c 20 73 77  69 74 63 68 65 73 24 2b  |es% . switches$+|
00002030  3d 22 20 2d 31 22 0d 01  2f 20 e7 20 64 69 74 68  |=" -1"../ . dith|
00002040  65 72 25 20 8c 20 73 77  69 74 63 68 65 73 24 2b  |er% . switches$+|
00002050  3d 22 20 2d 44 22 0d 01  30 1e e7 20 67 72 65 79  |=" -D"..0.. grey|
00002060  25 20 8c 20 73 77 69 74  63 68 65 73 24 2b 3d 22  |% . switches$+="|
00002070  20 2d 67 22 0d 01 31 20  e7 20 78 62 6c 6f 63 6b  | -g"..1 . xblock|
00002080  25 20 8c 20 73 77 69 74  63 68 65 73 24 2b 3d 22  |% . switches$+="|
00002090  20 2d 62 22 0d 01 32 20  e7 20 64 64 65 62 75 67  | -b"..2 . ddebug|
000020a0  25 20 8c 20 73 77 69 74  63 68 65 73 24 2b 3d 22  |% . switches$+="|
000020b0  20 2d 64 22 0d 01 33 28  e7 20 64 78 74 72 61 24  | -d"..3(. dxtra$|
000020c0  3c 3e 22 22 20 8c 20 73  77 69 74 63 68 65 73 24  |<>"" . switches$|
000020d0  2b 3d 22 20 22 2b 64 78  74 72 61 24 0d 01 34 13  |+=" "+dxtra$..4.|
000020e0  c8 8e 20 74 79 70 65 5f  74 69 63 6b 25 20 ca 0d  |.. type_tick% ..|
000020f0  01 35 1c c9 20 31 2c 32  2c 33 3a 73 77 69 74 63  |.5.. 1,2,3:switc|
00002100  68 65 73 24 2b 3d 22 20  2d 50 22 0d 01 36 18 c9  |hes$+=" -P"..6..|
00002110  20 34 3a 73 77 69 74 63  68 65 73 24 2b 3d 22 20  | 4:switches$+=" |
00002120  2d 47 22 0d 01 37 18 c9  20 35 3a 73 77 69 74 63  |-G"..7.. 5:switc|
00002130  68 65 73 24 2b 3d 22 20  2d 54 22 0d 01 38 05 cb  |hes$+=" -T"..8..|
00002140  0d 01 39 25 c8 99 20 22  4f 53 5f 53 65 74 56 61  |..9%.. "OS_SetVa|
00002150  72 56 61 6c 22 2c 22 54  65 6d 70 24 54 65 6d 70  |rVal","Temp$Temp|
00002160  22 2c 69 6e 24 0d 01 3a  4b 72 65 64 69 72 24 3d  |",in$..:Kredir$=|
00002170  22 20 7b 20 3e 20 3c 57  69 6d 70 24 53 63 72 61  |" { > <Wimp$Scra|
00002180  70 44 69 72 3e 2e 53 32  4a 70 65 67 2e 4f 75 74  |pDir>.S2Jpeg.Out|
00002190  70 75 74 20 7d 22 3a e7  20 28 64 64 65 62 75 67  |put }":. (ddebug|
000021a0  25 3d b9 29 20 8c 20 72  65 64 69 72 24 3d 22 22  |%=.) . redir$=""|
000021b0  0d 01 3b 48 63 6f 6d 6d  24 3d 22 53 32 4a 3a 64  |..;Hcomm$="S2J:d|
000021c0  6a 70 65 67 20 22 2b 73  77 69 74 63 68 65 73 24  |jpeg "+switches$|
000021d0  2b 22 20 3c 54 65 6d 70  24 54 65 6d 70 3e 20 3c  |+" <Temp$Temp> <|
000021e0  53 32 4a 24 53 63 72 61  70 3e 2e 4a 70 65 67 32  |S2J$Scrap>.Jpeg2|
000021f0  22 2b 72 65 64 69 72 24  0d 01 3c 1d c8 99 20 22  |"+redir$..<... "|
00002200  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
00002210  63 6f 6d 6d 24 0d 01 3d  05 f5 0d 01 3e 18 c8 99  |comm$..=....>...|
00002220  20 22 57 69 6d 70 45 78  74 5f 50 72 65 50 6f 6c  | "WimpExt_PrePol|
00002230  6c 22 0d 01 3f 20 c8 99  20 22 57 69 6d 70 5f 50  |l"..? .. "Wimp_P|
00002240  6f 6c 6c 22 2c 2c 71 25  20 b8 20 72 65 61 73 6f  |oll",,q% . reaso|
00002250  6e 25 0d 01 40 34 c8 99  20 22 57 69 6d 70 45 78  |n%..@4.. "WimpEx|
00002260  74 5f 41 63 74 69 6f 6e  22 2c 73 32 6a 70 65 67  |t_Action",s2jpeg|
00002270  25 2c 71 25 2c 72 65 61  73 6f 6e 25 20 b8 20 72  |%,q%,reason% . r|
00002280  65 61 73 6f 6e 25 0d 01  41 10 c8 8e 20 72 65 61  |eason%..A... rea|
00002290  73 6f 6e 25 20 ca 0d 01  42 22 c9 20 31 37 2c 31  |son% ...B". 17,1|
000022a0  38 2c 31 39 3a e7 20 71  25 21 31 36 3d 30 20 8c  |8,19:. q%!16=0 .|
000022b0  20 71 75 69 74 25 3d b9  0d 01 43 05 cb 0d 01 44  | quit%=...C....D|
000022c0  2d c8 99 20 22 58 4f 53  5f 46 69 6c 65 22 2c 31  |-.. "XOS_File",1|
000022d0  37 2c 22 3c 53 32 4a 24  53 63 72 61 70 3e 2e 4a  |7,"<S2J$Scrap>.J|
000022e0  70 65 67 32 22 20 b8 20  65 25 0d 01 45 0a fd 20  |peg2" . e%..E.. |
000022f0  65 25 3d 31 0d 01 46 1e  e7 20 67 72 65 79 25 20  |e%=1..F.. grey% |
00002300  8c 20 73 24 3d 22 20 2d  64 22 20 8b 20 73 24 3d  |. s$=" -d" . s$=|
00002310  22 22 0d 01 47 05 cd 0d  01 48 13 c8 8e 20 74 79  |""..G....H... ty|
00002320  70 65 5f 74 69 63 6b 25  20 ca 0d 01 49 3c c9 20  |pe_tick% ...I<. |
00002330  31 3a f2 70 62 6d 5f 63  6c 65 61 72 28 22 3c 53  |1:.pbm_clear("<S|
00002340  32 4a 24 53 63 72 61 70  3e 2e 4a 70 65 67 32 22  |2J$Scrap>.Jpeg2"|
00002350  2c 22 3c 53 32 4a 24 53  63 72 61 70 3e 2e 4a 70  |,"<S2J$Scrap>.Jp|
00002360  65 67 22 2c 30 29 0d 01  4a 34 20 20 20 20 20 20  |eg",0)..J4      |
00002370  20 c8 99 20 22 58 4f 53  5f 43 4c 49 22 2c 22 58  | .. "XOS_CLI","X|
00002380  20 52 65 6d 6f 76 65 20  3c 53 32 4a 24 53 63 72  | Remove <S2J$Scr|
00002390  61 70 3e 2e 4a 70 65 67  32 22 0d 01 4b 5a c9 20  |ap>.Jpeg2"..KZ. |
000023a0  32 3a 63 6f 6d 6d 24 3d  22 3c 43 68 61 6e 67 65  |2:comm$="<Change|
000023b0  46 53 49 24 44 69 72 3e  2e 43 68 61 6e 67 65 46  |FSI$Dir>.ChangeF|
000023c0  53 49 20 3c 53 32 4a 24  53 63 72 61 70 3e 2e 4a  |SI <S2J$Scrap>.J|
000023d0  70 65 67 32 20 3c 53 32  4a 24 53 63 72 61 70 3e  |peg2 <S2J$Scrap>|
000023e0  2e 4a 70 65 67 20 32 38  20 2d 6e 6f 6d 6f 64 65  |.Jpeg 28 -nomode|
000023f0  22 2b 73 24 0d 01 4c 4c  20 20 20 20 20 20 20 c8  |"+s$..LL       .|
00002400  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
00002410  6b 22 2c 63 6f 6d 6d 24  3a c8 99 20 22 58 4f 53  |k",comm$:.. "XOS|
00002420  5f 43 4c 49 22 2c 22 52  65 6d 6f 76 65 20 3c 53  |_CLI","Remove <S|
00002430  32 4a 24 53 63 72 61 70  3e 2e 4a 70 65 67 32 22  |2J$Scrap>.Jpeg2"|
00002440  0d 01 4d 5e c9 20 33 3a  63 6f 6d 6d 24 3d 22 3c  |..M^. 3:comm$="<|
00002450  43 68 61 6e 67 65 46 53  49 24 44 69 72 3e 2e 43  |ChangeFSI$Dir>.C|
00002460  68 61 6e 67 65 46 53 49  20 3c 53 32 4a 24 53 63  |hangeFSI <S2J$Sc|
00002470  72 61 70 3e 2e 4a 70 65  67 32 20 3c 53 32 4a 24  |rap>.Jpeg2 <S2J$|
00002480  53 63 72 61 70 3e 2e 4a  70 65 67 20 53 33 32 2c  |Scrap>.Jpeg S32,|
00002490  39 30 2c 39 30 20 2d 6e  6f 6d 6f 64 65 22 0d 01  |90,90 -nomode"..|
000024a0  4e 4c 20 20 20 20 20 20  20 c8 99 20 22 57 69 6d  |NL       .. "Wim|
000024b0  70 5f 53 74 61 72 74 54  61 73 6b 22 2c 63 6f 6d  |p_StartTask",com|
000024c0  6d 24 3a c8 99 20 22 58  4f 53 5f 43 4c 49 22 2c  |m$:.. "XOS_CLI",|
000024d0  22 52 65 6d 6f 76 65 20  3c 53 32 4a 24 53 63 72  |"Remove <S2J$Scr|
000024e0  61 70 3e 2e 4a 70 65 67  32 22 0d 01 4f 34 c9 20  |ap>.Jpeg2"..O4. |
000024f0  34 3a c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |4:.. "XOS_CLI","|
00002500  53 65 74 54 79 70 65 20  3c 53 32 4a 24 53 63 72  |SetType <S2J$Scr|
00002510  61 70 3e 2e 4a 70 65 67  32 20 36 39 35 22 0d 01  |ap>.Jpeg2 695"..|
00002520  50 43 20 20 20 20 20 20  20 c8 99 20 22 58 4f 53  |PC       .. "XOS|
00002530  5f 43 4c 49 22 2c 22 52  65 6e 61 6d 65 20 3c 53  |_CLI","Rename <S|
00002540  32 4a 24 53 63 72 61 70  3e 2e 4a 70 65 67 32 20  |2J$Scrap>.Jpeg2 |
00002550  3c 53 32 4a 24 53 63 72  61 70 3e 2e 4a 70 65 67  |<S2J$Scrap>.Jpeg|
00002560  22 0d 01 51 34 c9 20 35  3a c8 99 20 22 58 4f 53  |"..Q4. 5:.. "XOS|
00002570  5f 43 4c 49 22 2c 22 53  65 74 54 79 70 65 20 3c  |_CLI","SetType <|
00002580  53 32 4a 24 53 63 72 61  70 3e 2e 4a 70 65 67 32  |S2J$Scrap>.Jpeg2|
00002590  20 36 39 44 22 0d 01 52  43 20 20 20 20 20 20 20  | 69D"..RC       |
000025a0  c8 99 20 22 58 4f 53 5f  43 4c 49 22 2c 22 52 65  |.. "XOS_CLI","Re|
000025b0  6e 61 6d 65 20 3c 53 32  4a 24 53 63 72 61 70 3e  |name <S2J$Scrap>|
000025c0  2e 4a 70 65 67 32 20 3c  53 32 4a 24 53 63 72 61  |.Jpeg2 <S2J$Scra|
000025d0  70 3e 2e 4a 70 65 67 22  0d 01 53 05 cb 0d 01 54  |p>.Jpeg"..S....T|
000025e0  05 e1 0d 01 55 05 3a 0d  01 56 14 dd 20 a4 73 74  |....U.:..V.. .st|
000025f0  72 69 6e 67 28 61 25 2c  6c 25 29 0d 01 57 12 64  |ring(a%,l%)..W.d|
00002600  24 3d 22 22 3a e7 20 6c  25 3e 30 20 8c 0d 01 58  |$="":. l%>0 ...X|
00002610  12 20 e3 20 69 25 3d 30  20 b8 20 6c 25 2d 31 0d  |. . i%=0 . l%-1.|
00002620  01 59 11 20 64 24 2b 3d  bd 28 61 25 3f 69 25 29  |.Y. d$+=.(a%?i%)|
00002630  0d 01 5a 06 20 ed 0d 01  5b 05 cc 0d 01 5c 23 20  |..Z. ...[....\# |
00002640  69 25 3d 30 3a 6d 61 78  25 3d 32 35 35 3a e7 20  |i%=0:max%=255:. |
00002650  6c 25 3c 2d 31 20 6d 61  78 25 3d 2d 6c 25 0d 01  |l%<-1 max%=-l%..|
00002660  5d 2b 20 c8 95 20 c2 64  24 2c 31 29 3c 3e bd 30  |]+ .. .d$,1)<>.0|
00002670  20 80 20 c2 64 24 2c 31  29 3c 3e bd 31 33 20 80  | . .d$,1)<>.13 .|
00002680  20 69 25 3c 3d 6d 61 78  25 0d 01 5e 17 20 64 24  | i%<=max%..^. d$|
00002690  2b 3d bd 28 61 25 3f 69  25 29 3a 69 25 2b 3d 31  |+=.(a%?i%):i%+=1|
000026a0  0d 01 5f 06 20 ce 0d 01  60 20 20 e7 20 c0 64 24  |.._. ...`  . .d$|
000026b0  2c 31 29 3d bd 30 20 8c  20 64 24 3d c0 64 24 2c  |,1)=.0 . d$=.d$,|
000026c0  a9 64 24 2d 31 29 0d 01  61 05 cd 0d 01 62 07 3d  |.d$-1)..a....b.=|
000026d0  64 24 0d 01 63 05 3a 0d  01 64 2a dd 20 f2 65 72  |d$..c.:..d*. .er|
000026e0  72 6f 72 28 74 69 74 6c  65 24 2c 62 75 74 74 6f  |ror(title$,butto|
000026f0  6e 73 25 2c 6d 65 73 73  24 2c 66 61 74 61 6c 25  |ns%,mess$,fatal%|
00002700  29 0d 01 65 6f f4 4c 4f  43 41 4c 20 45 52 52 4f  |)..eo.LOCAL ERRO|
00002710  52 3a 4f 4e 45 52 52 4f  52 20 45 52 52 4f 52 20  |R:ONERROR ERROR |
00002720  30 2c 52 45 50 4f 52 54  24 2b 22 20 69 6e 20 65  |0,REPORT$+" in e|
00002730  72 72 6f 72 20 68 61 6e  64 6c 65 72 20 61 74 20  |rror handler at |
00002740  6c 69 6e 65 20 22 2b 53  54 52 24 45 52 4c 3a 53  |line "+STR$ERL:S|
00002750  59 53 20 22 58 4f 53 5f  43 4c 49 22 2c 22 55 6e  |YS "XOS_CLI","Un|
00002760  73 65 74 20 53 32 4a 24  44 69 72 22 3a 45 4e 44  |set S2J$Dir":END|
00002770  0d 01 66 11 c8 8e 20 62  75 74 74 6f 6e 73 25 20  |..f... buttons% |
00002780  ca 0d 01 67 2f c9 20 30  3a 24 62 75 66 66 65 72  |...g/. 0:$buffer|
00002790  25 3d 22 4f 4b 22 2b bd  30 2b bd 30 2b bd 30 2b  |%="OK"+.0+.0+.0+|
000027a0  bd 30 2b bd 30 2b bd 30  3a 64 69 65 25 3d 2d 31  |.0+.0+.0:die%=-1|
000027b0  0d 01 68 2f c9 20 31 3a  24 62 75 66 66 65 72 25  |..h/. 1:$buffer%|
000027c0  3d 22 4f 4b 22 2b bd 30  2b bd 30 2b bd 30 2b bd  |="OK"+.0+.0+.0+.|
000027d0  30 2b bd 30 2b bd 30 3a  64 69 65 25 3d 2d 31 0d  |0+.0+.0:die%=-1.|
000027e0  01 69 32 c9 20 32 3a 24  62 75 66 66 65 72 25 3d  |.i2. 2:$buffer%=|
000027f0  22 43 61 6e 63 65 6c 22  2b bd 30 2b bd 30 2b bd  |"Cancel"+.0+.0+.|
00002800  30 2b bd 30 2b bd 30 2b  bd 30 3a 64 69 65 25 3d  |0+.0+.0+.0:die%=|
00002810  30 0d 01 6a 34 c9 20 33  3a 24 62 75 66 66 65 72  |0..j4. 3:$buffer|
00002820  25 3d 22 4f 4b 22 2b bd  30 2b 22 43 61 6e 63 65  |%="OK"+.0+"Cance|
00002830  6c 22 2b bd 30 2b bd 30  2b bd 30 2b bd 30 3a 64  |l"+.0+.0+.0+.0:d|
00002840  69 65 25 3d 31 0d 01 6b  34 c9 20 37 3a 24 62 75  |ie%=1..k4. 7:$bu|
00002850  66 66 65 72 25 3d 22 43  61 6e 63 65 6c 22 2b bd  |ffer%="Cancel"+.|
00002860  30 2b 22 4f 4b 22 2b bd  30 2b bd 30 2b bd 30 2b  |0+"OK"+.0+.0+.0+|
00002870  bd 30 3a 64 69 65 25 3d  30 0d 01 6c 05 cb 0d 01  |.0:die%=0..l....|
00002880  6d 3d ef 37 3a c8 99 20  22 57 69 6d 70 45 78 74  |m=.7:.. "WimpExt|
00002890  5f 4f 70 65 6e 52 65 71  75 65 73 74 65 72 22 2c  |_OpenRequester",|
000028a0  2c 2c 74 69 74 6c 65 24  2c 6d 65 73 73 24 2c 62  |,,title$,mess$,b|
000028b0  75 66 66 65 72 25 2c 64  69 65 25 0d 01 6e 05 f5  |uffer%,die%..n..|
000028c0  0d 01 6f 18 c8 99 20 22  57 69 6d 70 45 78 74 5f  |..o... "WimpExt_|
000028d0  50 72 65 50 6f 6c 6c 22  0d 01 70 25 c8 99 20 22  |PrePoll"..p%.. "|
000028e0  57 69 6d 70 5f 50 6f 6c  6c 22 2c 2c 62 75 66 66  |Wimp_Poll",,buff|
000028f0  65 72 25 20 b8 20 72 65  61 73 6f 6e 25 0d 01 71  |er% . reason%..q|
00002900  39 c8 99 20 22 57 69 6d  70 45 78 74 5f 41 63 74  |9.. "WimpExt_Act|
00002910  69 6f 6e 22 2c 73 32 6a  70 65 67 25 2c 62 75 66  |ion",s2jpeg%,buf|
00002920  66 65 72 25 2c 72 65 61  73 6f 6e 25 20 b8 20 72  |fer%,reason% . r|
00002930  65 61 73 6f 6e 25 0d 01  72 10 c8 8e 20 72 65 61  |eason%..r... rea|
00002940  73 6f 6e 25 20 ca 0d 01  73 28 c9 20 31 3a c8 99  |son% ...s(. 1:..|
00002950  20 22 57 69 6d 70 45 78  74 5f 41 75 74 6f 52 65  | "WimpExt_AutoRe|
00002960  64 72 61 77 22 2c 2c 62  75 66 66 65 72 25 0d 01  |draw",,buffer%..|
00002970  74 28 c9 20 32 3a c8 99  20 22 57 69 6d 70 45 78  |t(. 2:.. "WimpEx|
00002980  74 5f 4f 70 65 6e 4c 69  6e 6b 65 64 22 2c 2c 62  |t_OpenLinked",,b|
00002990  75 66 66 65 72 25 0d 01  75 29 c9 20 33 3a c8 99  |uffer%..u). 3:..|
000029a0  20 22 57 69 6d 70 45 78  74 5f 43 6c 6f 73 65 4c  | "WimpExt_CloseL|
000029b0  69 6e 6b 65 64 22 2c 2c  62 75 66 66 65 72 25 0d  |inked",,buffer%.|
000029c0  01 76 2e c9 20 36 3a e7  20 62 75 66 66 65 72 25  |.v.. 6:. buffer%|
000029d0  21 31 36 3d 64 69 65 25  20 80 20 66 61 74 61 6c  |!16=die% . fatal|
000029e0  25 3d 31 20 8c 20 71 75  69 74 25 3d b9 0d 01 77  |%=1 . quit%=...w|
000029f0  17 c9 20 31 37 2c 31 38  2c 31 39 3a f2 72 65 63  |.. 17,18,19:.rec|
00002a00  69 65 76 65 0d 01 78 05  cb 0d 01 79 2d fd 20 28  |ieve..x....y-. (|
00002a10  28 72 65 61 73 6f 6e 25  3d 36 20 80 20 62 75 66  |(reason%=6 . buf|
00002a20  66 65 72 25 21 31 32 3d  2d 33 29 20 84 20 71 75  |fer%!12=-3) . qu|
00002a30  69 74 25 3d b9 29 0d 01  7a 19 65 72 72 5f 63 6c  |it%=.)..z.err_cl|
00002a40  69 63 6b 25 3d 62 75 66  66 65 72 25 21 31 36 0d  |ick%=buffer%!16.|
00002a50  01 7b 05 e1 0d 01 7c 05  3a 0d 01 7d 0b dd 20 f2  |.{....|.:..}.. .|
00002a60  69 6e 69 74 0d 01 7e 44  c8 99 20 22 57 69 6d 70  |init..~D.. "Wimp|
00002a70  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00002a80  2c 26 34 42 35 33 34 31  35 34 2c 22 53 70 72 69  |,&4B534154,"Spri|
00002a90  74 65 20 32 20 4a 70 65  67 22 20 b8 20 6f 73 25  |te 2 Jpeg" . os%|
00002aa0  2c 73 32 6a 70 65 67 25  0d 01 7f 3b c8 99 20 22  |,s2jpeg%...;.. "|
00002ab0  57 69 6d 70 45 78 74 5f  49 6e 69 74 69 61 6c 69  |WimpExt_Initiali|
00002ac0  73 65 22 2c 31 34 2c 73  32 6a 70 65 67 25 2c 31  |se",14,s2jpeg%,1|
00002ad0  38 37 34 3a 71 5f 73 69  7a 65 25 3d 33 32 2a 31  |874:q_size%=32*1|
00002ae0  30 32 34 0d 01 80 36 71  75 69 74 25 3d a3 3a 73  |024...6quit%=.:s|
00002af0  6c 25 3d b9 3a 74 79 70  65 5f 74 69 63 6b 25 3d  |l%=.:type_tick%=|
00002b00  30 3a de 20 71 25 20 71  5f 73 69 7a 65 25 2c 62  |0:. q% q_size%,b|
00002b10  75 66 66 65 72 25 20 36  34 0d 01 81 3d c8 99 20  |uffer% 64...=.. |
00002b20  22 57 69 6d 70 45 78 74  5f 49 63 6f 6e 42 61 72  |"WimpExt_IconBar|
00002b30  53 70 72 69 74 65 22 2c  2c 2c 2d 31 2c 22 21 73  |Sprite",,,-1,"!s|
00002b40  70 72 32 6a 70 65 67 22  2c 2c 33 20 b8 20 69 63  |pr2jpeg",,3 . ic|
00002b50  6f 6e 62 61 72 25 0d 01  82 1b c8 99 20 22 57 69  |onbar%...... "Wi|
00002b60  6d 70 45 78 74 5f 48 65  61 70 22 2c 30 2c 93 2c  |mpExt_Heap",0,.,|
00002b70  31 0d 01 83 2d c8 99 20  22 57 69 6d 70 45 78 74  |1...-.. "WimpExt|
00002b80  5f 48 65 61 70 22 2c 32  2c 30 2c 31 38 30 30 20  |_Heap",2,0,1800 |
00002b90  b8 20 2c 74 65 6d 70 5f  62 6c 6f 63 6b 25 0d 01  |. ,temp_block%..|
00002ba0  84 5b e7 20 74 65 6d 70  5f 62 6c 6f 63 6b 25 3d  |.[. temp_block%=|
00002bb0  30 20 8c 20 45 72 72 6f  72 20 30 2c 22 49 6e 73  |0 . Error 0,"Ins|
00002bc0  75 66 66 69 63 69 65 6e  74 20 6d 65 6d 6f 72 79  |ufficient memory|
00002bd0  20 2d 20 70 6c 65 61 73  65 20 66 72 65 65 20 73  | - please free s|
00002be0  6f 6d 65 20 6d 65 6d 6f  72 79 20 61 6e 64 20 74  |ome memory and t|
00002bf0  72 79 20 61 67 61 69 6e  22 0d 01 85 11 f2 6c 6f  |ry again".....lo|
00002c00  61 64 5f 73 70 72 69 74  65 73 0d 01 86 13 f2 6c  |ad_sprites.....l|
00002c10  6f 61 64 5f 74 65 6d 70  6c 61 74 65 73 0d 01 87  |oad_templates...|
00002c20  0e f2 6d 61 6b 65 5f 6d  65 6e 75 0d 01 88 11 f2  |..make_menu.....|
00002c30  6c 6f 61 64 5f 6f 70 74  69 6f 6e 73 0d 01 89 0f  |load_options....|
00002c40  f2 63 72 65 61 74 65 5f  64 69 72 0d 01 8a 05 e1  |.create_dir.....|
00002c50  0d 01 8b 05 3a 0d 01 8c  11 dd 20 f2 63 72 65 61  |....:..... .crea|
00002c60  74 65 5f 64 69 72 0d 01  8d 32 c8 99 20 22 58 4f  |te_dir...2.. "XO|
00002c70  53 5f 46 69 6c 65 22 2c  31 37 2c 22 3c 57 69 6d  |S_File",17,"<Wim|
00002c80  70 24 53 63 72 61 70 44  69 72 3e 2e 53 32 4a 70  |p$ScrapDir>.S2Jp|
00002c90  65 67 22 20 b8 20 65 25  0d 01 8e 36 e7 20 65 25  |eg" . e%...6. e%|
00002ca0  3d 30 20 8c 20 c8 99 20  22 4f 53 5f 43 4c 49 22  |=0 . .. "OS_CLI"|
00002cb0  2c 22 43 44 69 72 20 3c  57 69 6d 70 24 53 63 72  |,"CDir <Wimp$Scr|
00002cc0  61 70 44 69 72 3e 2e 53  32 4a 70 65 67 22 0d 01  |apDir>.S2Jpeg"..|
00002cd0  8f 05 e1 0d 01 90 05 3a  0d 01 91 10 dd 20 f2 72  |.......:..... .r|
00002ce0  65 61 64 5f 76 61 72 73  0d 01 92 38 c8 99 20 22  |ead_vars...8.. "|
00002cf0  57 69 6d 70 45 78 74 5f  47 65 74 4e 75 6d 62 65  |WimpExt_GetNumbe|
00002d00  72 49 63 6f 6e 22 2c 31  30 2c 2c 69 6e 6e 61 72  |rIcon",10,,innar|
00002d10  64 73 25 2c 34 20 b8 20  71 75 61 6c 69 74 79 25  |ds%,4 . quality%|
00002d20  0d 01 93 1e f2 69 63 6f  6e 5f 73 74 61 74 65 28  |.....icon_state(|
00002d30  35 2c 6f 70 74 69 6d 69  73 65 25 2c 30 29 0d 01  |5,optimise%,0)..|
00002d40  94 1c f2 69 63 6f 6e 5f  73 74 61 74 65 28 36 2c  |...icon_state(6,|
00002d50  63 64 65 62 75 67 25 2c  30 29 0d 01 95 1b f2 69  |cdebug%,0).....i|
00002d60  63 6f 6e 5f 73 74 72 6e  67 28 37 2c 63 78 74 72  |con_strng(7,cxtr|
00002d70  61 24 2c 30 29 0d 01 96  20 f2 69 63 6f 6e 5f 73  |a$,0)... .icon_s|
00002d80  74 61 74 65 28 39 2c 69  6e 74 65 72 6c 65 61 76  |tate(9,interleav|
00002d90  65 25 2c 30 29 0d 01 97  21 f2 69 63 6f 6e 5f 73  |e%,0)...!.icon_s|
00002da0  74 61 74 65 28 31 30 2c  61 72 69 74 68 6d 65 74  |tate(10,arithmet|
00002db0  69 63 25 2c 30 29 0d 01  98 1f f2 69 63 6f 6e 5f  |ic%,0).....icon_|
00002dc0  73 74 61 74 65 28 31 31  2c 71 75 61 6e 74 69 7a  |state(11,quantiz|
00002dd0  65 25 2c 30 29 0d 01 99  3a c8 99 20 22 57 69 6d  |e%,0)...:.. "Wim|
00002de0  70 45 78 74 5f 47 65 74  4e 75 6d 62 65 72 49 63  |pExt_GetNumberIc|
00002df0  6f 6e 22 2c 31 30 2c 2c  69 6e 6e 61 72 64 73 25  |on",10,,innards%|
00002e00  2c 31 32 20 b8 20 71 75  61 6e 74 5f 74 6f 25 0d  |,12 . quant_to%.|
00002e10  01 9a 1d f2 69 63 6f 6e  5f 73 74 61 74 65 28 31  |....icon_state(1|
00002e20  33 2c 70 61 73 73 65 73  25 2c 30 29 0d 01 9b 1d  |3,passes%,0)....|
00002e30  f2 69 63 6f 6e 5f 73 74  61 74 65 28 31 34 2c 64  |.icon_state(14,d|
00002e40  69 74 68 65 72 25 2c 30  29 0d 01 9c 1b f2 69 63  |ither%,0).....ic|
00002e50  6f 6e 5f 73 74 61 74 65  28 31 35 2c 67 72 65 79  |on_state(15,grey|
00002e60  25 2c 30 29 0d 01 9d 1d  f2 69 63 6f 6e 5f 73 74  |%,0).....icon_st|
00002e70  61 74 65 28 31 36 2c 78  62 6c 6f 63 6b 25 2c 30  |ate(16,xblock%,0|
00002e80  29 0d 01 9e 1d f2 69 63  6f 6e 5f 73 74 61 74 65  |).....icon_state|
00002e90  28 31 37 2c 64 64 65 62  75 67 25 2c 30 29 0d 01  |(17,ddebug%,0)..|
00002ea0  9f 1c f2 69 63 6f 6e 5f  73 74 72 6e 67 28 31 38  |...icon_strng(18|
00002eb0  2c 64 78 74 72 61 24 2c  30 29 0d 01 a0 1d e7 20  |,dxtra$,0)..... |
00002ec0  71 75 61 6e 74 5f 74 6f  25 3c 38 20 71 75 61 6e  |quant_to%<8 quan|
00002ed0  74 5f 74 6f 25 3d 38 0d  01 a1 21 e7 20 71 75 61  |t_to%=8...!. qua|
00002ee0  6e 74 5f 74 6f 25 3e 32  35 36 20 71 75 61 6e 74  |nt_to%>256 quant|
00002ef0  5f 74 6f 25 3d 32 35 36  0d 01 a2 1f e7 20 71 75  |_to%=256..... qu|
00002f00  61 6c 69 74 79 25 3e 31  30 30 20 71 75 61 6c 69  |ality%>100 quali|
00002f10  74 79 25 3d 31 30 30 0d  01 a3 38 c8 99 20 22 57  |ty%=100...8.. "W|
00002f20  69 6d 70 45 78 74 5f 53  65 74 49 63 6f 6e 53 74  |impExt_SetIconSt|
00002f30  72 69 6e 67 22 2c 30 2c  2c 69 6e 6e 61 72 64 73  |ring",0,,innards|
00002f40  25 2c 31 32 2c c3 71 75  61 6e 74 5f 74 6f 25 0d  |%,12,.quant_to%.|
00002f50  01 a4 36 c8 99 20 22 57  69 6d 70 45 78 74 5f 53  |..6.. "WimpExt_S|
00002f60  65 74 49 63 6f 6e 53 74  72 69 6e 67 22 2c 30 2c  |etIconString",0,|
00002f70  2c 69 6e 6e 61 72 64 73  25 2c 34 2c c3 71 75 61  |,innards%,4,.qua|
00002f80  6c 69 74 79 25 0d 01 a5  05 e1 0d 01 a6 05 3a 0d  |lity%.........:.|
00002f90  01 a7 0f dd 20 f2 73 65  74 5f 76 61 72 73 0d 01  |.... .set_vars..|
00002fa0  a8 1d e7 20 71 75 61 6e  74 5f 74 6f 25 3c 38 20  |... quant_to%<8 |
00002fb0  71 75 61 6e 74 5f 74 6f  25 3d 38 0d 01 a9 21 e7  |quant_to%=8...!.|
00002fc0  20 71 75 61 6e 74 5f 74  6f 25 3e 32 35 36 20 71  | quant_to%>256 q|
00002fd0  75 61 6e 74 5f 74 6f 25  3d 32 35 36 0d 01 aa 1f  |uant_to%=256....|
00002fe0  e7 20 71 75 61 6c 69 74  79 25 3e 31 30 30 20 71  |. quality%>100 q|
00002ff0  75 61 6c 69 74 79 25 3d  31 30 30 0d 01 ab 36 c8  |uality%=100...6.|
00003000  99 20 22 57 69 6d 70 45  78 74 5f 53 65 74 49 63  |. "WimpExt_SetIc|
00003010  6f 6e 53 74 72 69 6e 67  22 2c 30 2c 2c 69 6e 6e  |onString",0,,inn|
00003020  61 72 64 73 25 2c 34 2c  c3 71 75 61 6c 69 74 79  |ards%,4,.quality|
00003030  25 0d 01 ac 1e f2 69 63  6f 6e 5f 73 74 61 74 65  |%.....icon_state|
00003040  28 35 2c 6f 70 74 69 6d  69 73 65 25 2c 31 29 0d  |(5,optimise%,1).|
00003050  01 ad 1c f2 69 63 6f 6e  5f 73 74 61 74 65 28 36  |....icon_state(6|
00003060  2c 63 64 65 62 75 67 25  2c 31 29 0d 01 ae 1b f2  |,cdebug%,1).....|
00003070  69 63 6f 6e 5f 73 74 72  6e 67 28 37 2c 63 78 74  |icon_strng(7,cxt|
00003080  72 61 24 2c 31 29 0d 01  af 20 f2 69 63 6f 6e 5f  |ra$,1)... .icon_|
00003090  73 74 61 74 65 28 39 2c  69 6e 74 65 72 6c 65 61  |state(9,interlea|
000030a0  76 65 25 2c 31 29 0d 01  b0 21 f2 69 63 6f 6e 5f  |ve%,1)...!.icon_|
000030b0  73 74 61 74 65 28 31 30  2c 61 72 69 74 68 6d 65  |state(10,arithme|
000030c0  74 69 63 25 2c 31 29 0d  01 b1 1f f2 69 63 6f 6e  |tic%,1).....icon|
000030d0  5f 73 74 61 74 65 28 31  31 2c 71 75 61 6e 74 69  |_state(11,quanti|
000030e0  7a 65 25 2c 31 29 0d 01  b2 1d f2 69 63 6f 6e 5f  |ze%,1).....icon_|
000030f0  73 74 61 74 65 28 31 33  2c 70 61 73 73 65 73 25  |state(13,passes%|
00003100  2c 31 29 0d 01 b3 1d f2  69 63 6f 6e 5f 73 74 61  |,1).....icon_sta|
00003110  74 65 28 31 34 2c 64 69  74 68 65 72 25 2c 31 29  |te(14,dither%,1)|
00003120  0d 01 b4 1b f2 69 63 6f  6e 5f 73 74 61 74 65 28  |.....icon_state(|
00003130  31 35 2c 67 72 65 79 25  2c 31 29 0d 01 b5 1d f2  |15,grey%,1).....|
00003140  69 63 6f 6e 5f 73 74 61  74 65 28 31 36 2c 78 62  |icon_state(16,xb|
00003150  6c 6f 63 6b 25 2c 31 29  0d 01 b6 1d f2 69 63 6f  |lock%,1).....ico|
00003160  6e 5f 73 74 61 74 65 28  31 37 2c 64 64 65 62 75  |n_state(17,ddebu|
00003170  67 25 2c 31 29 0d 01 b7  1c f2 69 63 6f 6e 5f 73  |g%,1).....icon_s|
00003180  74 72 6e 67 28 31 38 2c  64 78 74 72 61 24 2c 31  |trng(18,dxtra$,1|
00003190  29 0d 01 b8 1d f2 73 68  61 64 65 28 31 32 2c 2d  |).....shade(12,-|
000031a0  28 71 75 61 6e 74 69 7a  65 25 3d 30 29 29 0d 01  |(quantize%=0))..|
000031b0  b9 1d f2 73 68 61 64 65  28 31 33 2c 2d 28 71 75  |...shade(13,-(qu|
000031c0  61 6e 74 69 7a 65 25 3d  30 29 29 0d 01 ba 05 e1  |antize%=0)).....|
000031d0  0d 01 bb 05 3a 0d 01 bc  13 dd 20 f2 73 68 61 64  |....:..... .shad|
000031e0  65 28 69 25 2c 73 25 29  0d 01 bd 33 21 71 25 3d  |e(i%,s%)...3!q%=|
000031f0  69 6e 6e 61 72 64 73 25  3a 71 25 21 34 3d 69 25  |innards%:q%!4=i%|
00003200  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |:.. "Wimp_GetIco|
00003210  6e 53 74 61 74 65 22 2c  2c 71 25 0d 01 be 0b c8  |nState",,q%.....|
00003220  8e 20 73 25 20 ca 0d 01  bf 15 c9 20 30 3a 63 25  |. s% ...... 0:c%|
00003230  3d 31 3c 3c 32 32 3a 65  25 3d 30 0d 01 c0 16 c9  |=1<<22:e%=0.....|
00003240  20 31 3a 63 25 3d 31 3c  3c 32 32 3a 65 25 3d 63  | 1:c%=1<<22:e%=c|
00003250  25 0d 01 c1 15 c9 20 32  3a 63 25 3d 30 3a 65 25  |%..... 2:c%=0:e%|
00003260  3d 31 3c 3c 32 32 0d 01  c2 05 7f 0d 01 c3 0d 63  |=1<<22.........c|
00003270  25 3d 30 3a 65 25 3d 30  0d 01 c4 16 cb 3a 71 25  |%=0:e%=0.....:q%|
00003280  21 38 3d 65 25 3a 71 25  21 31 32 3d 63 25 0d 01  |!8=e%:q%!12=c%..|
00003290  c5 1e c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.... "Wimp_SetIc|
000032a0  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 01 c6 05  |onState",,q%....|
000032b0  e1 0d 01 c7 05 3a 0d 01  c8 1d dd 20 f2 69 63 6f  |.....:..... .ico|
000032c0  6e 5f 73 74 72 6e 67 28  69 25 2c f8 20 78 24 2c  |n_strng(i%,. x$,|
000032d0  77 25 29 0d 01 c9 2e c8  99 20 22 57 69 6d 70 45  |w%)...... "WimpE|
000032e0  78 74 5f 47 65 74 49 63  6f 6e 22 2c 2c 2c 69 6e  |xt_GetIcon",,,in|
000032f0  6e 61 72 64 73 25 2c 69  25 20 b8 20 2c 2c 2c 74  |nards%,i% . ,,,t|
00003300  25 0d 01 ca 28 e7 20 77  25 20 8c 20 24 74 25 3d  |%...(. w% . $t%=|
00003310  78 24 2b bd 30 20 8b 20  78 24 3d a4 73 74 72 69  |x$+.0 . x$=.stri|
00003320  6e 67 28 74 25 2c 2d 31  29 0d 01 cb 05 e1 0d 01  |ng(t%,-1).......|
00003330  cc 05 3a 0d 01 cd 13 dd  20 f2 73 61 76 65 5f 6f  |..:..... .save_o|
00003340  70 74 69 6f 6e 73 0d 01  ce 27 66 25 3d ae 28 22  |ptions...'f%=.("|
00003350  3c 53 32 4a 24 44 69 72  3e 2e 52 65 73 6f 75 72  |<S2J$Dir>.Resour|
00003360  63 65 73 2e 43 68 6f 69  63 65 73 22 29 0d 01 cf  |ces.Choices")...|
00003370  11 d5 23 66 25 2c 71 75  61 6c 69 74 79 25 0d 01  |..#f%,quality%..|
00003380  d0 12 d5 23 66 25 2c 6f  70 74 69 6d 69 73 65 25  |...#f%,optimise%|
00003390  0d 01 d1 10 d5 23 66 25  2c 63 64 65 62 75 67 25  |.....#f%,cdebug%|
000033a0  0d 01 d2 14 d5 23 66 25  2c 69 6e 74 65 72 6c 65  |.....#f%,interle|
000033b0  61 76 65 25 0d 01 d3 14  d5 23 66 25 2c 61 72 69  |ave%.....#f%,ari|
000033c0  74 68 6d 65 74 69 63 25  0d 01 d4 12 d5 23 66 25  |thmetic%.....#f%|
000033d0  2c 71 75 61 6e 74 69 7a  65 25 0d 01 d5 12 d5 23  |,quantize%.....#|
000033e0  66 25 2c 71 75 61 6e 74  5f 74 6f 25 0d 01 d6 10  |f%,quant_to%....|
000033f0  d5 23 66 25 2c 70 61 73  73 65 73 25 0d 01 d7 10  |.#f%,passes%....|
00003400  d5 23 66 25 2c 64 69 74  68 65 72 25 0d 01 d8 0e  |.#f%,dither%....|
00003410  d5 23 66 25 2c 67 72 65  79 25 0d 01 d9 10 d5 23  |.#f%,grey%.....#|
00003420  66 25 2c 78 62 6c 6f 63  6b 25 0d 01 da 10 d5 23  |f%,xblock%.....#|
00003430  66 25 2c 64 64 65 62 75  67 25 0d 01 db 0f d5 23  |f%,ddebug%.....#|
00003440  66 25 2c 64 78 74 72 61  24 0d 01 dc 09 d9 20 23  |f%,dxtra$..... #|
00003450  66 25 0d 01 dd 05 e1 0d  01 de 05 3a 0d 01 df 13  |f%.........:....|
00003460  dd 20 f2 6c 6f 61 64 5f  6f 70 74 69 6f 6e 73 0d  |. .load_options.|
00003470  01 e0 27 66 25 3d ad 28  22 3c 53 32 4a 24 44 69  |..'f%=.("<S2J$Di|
00003480  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 43 68 6f  |r>.Resources.Cho|
00003490  69 63 65 73 22 29 0d 01  e1 11 71 75 61 6c 69 74  |ices")....qualit|
000034a0  79 25 3d 9a 23 66 25 0d  01 e2 12 6f 70 74 69 6d  |y%=.#f%....optim|
000034b0  69 73 65 25 3d 9a 23 66  25 0d 01 e3 10 63 64 65  |ise%=.#f%....cde|
000034c0  62 75 67 25 3d 9a 23 66  25 0d 01 e4 14 69 6e 74  |bug%=.#f%....int|
000034d0  65 72 6c 65 61 76 65 25  3d 9a 23 66 25 0d 01 e5  |erleave%=.#f%...|
000034e0  14 61 72 69 74 68 6d 65  74 69 63 25 3d 9a 23 66  |.arithmetic%=.#f|
000034f0  25 0d 01 e6 12 71 75 61  6e 74 69 7a 65 25 3d 9a  |%....quantize%=.|
00003500  23 66 25 0d 01 e7 12 71  75 61 6e 74 5f 74 6f 25  |#f%....quant_to%|
00003510  3d 9a 23 66 25 0d 01 e8  10 70 61 73 73 65 73 25  |=.#f%....passes%|
00003520  3d 9a 23 66 25 0d 01 e9  10 64 69 74 68 65 72 25  |=.#f%....dither%|
00003530  3d 9a 23 66 25 0d 01 ea  0e 67 72 65 79 25 3d 9a  |=.#f%....grey%=.|
00003540  23 66 25 0d 01 eb 10 78  62 6c 6f 63 6b 25 3d 9a  |#f%....xblock%=.|
00003550  23 66 25 0d 01 ec 10 64  64 65 62 75 67 25 3d 9a  |#f%....ddebug%=.|
00003560  23 66 25 0d 01 ed 0f 64  78 74 72 61 24 3d be 23  |#f%....dxtra$=.#|
00003570  66 25 0d 01 ee 09 d9 20  23 66 25 0d 01 ef 0d f2  |f%..... #f%.....|
00003580  73 65 74 5f 76 61 72 73  0d 01 f0 05 e1 0d 01 f1  |set_vars........|
00003590  05 3a 0d 01 f2 1e dd 20  f2 69 63 6f 6e 5f 73 74  |.:..... .icon_st|
000035a0  61 74 65 28 69 25 2c f8  20 76 25 2c 77 72 25 29  |ate(i%,. v%,wr%)|
000035b0  0d 01 f3 15 e7 20 77 72  25 3d 31 20 76 25 3d 76  |..... wr%=1 v%=v|
000035c0  25 20 82 20 31 0d 01 f4  42 21 62 75 66 66 65 72  |% . 1...B!buffer|
000035d0  25 3d 69 6e 6e 61 72 64  73 25 3a 62 75 66 66 65  |%=innards%:buffe|
000035e0  72 25 21 34 3d 69 25 3a  c8 99 20 22 57 69 6d 70  |r%!4=i%:.. "Wimp|
000035f0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00003600  62 75 66 66 65 72 25 0d  01 f5 24 66 25 3d 62 75  |buffer%...$f%=bu|
00003610  66 66 65 72 25 21 32 34  3a 6f 6c 64 25 3d 28 28  |ffer%!24:old%=((|
00003620  66 25 3e 3e 32 31 29 80  20 31 29 0d 01 f6 1b e7  |f%>>21). 1).....|
00003630  20 77 72 25 3d 30 20 8c  20 76 25 3d 6f 6c 64 25  | wr%=0 . v%=old%|
00003640  20 82 20 31 3a e1 0d 01  f7 12 76 25 3d 76 25 20  | . 1:.....v%=v% |
00003650  80 20 31 3a 66 25 3d 30  0d 01 f8 0c e7 20 76 25  |. 1:f%=0..... v%|
00003660  3d 31 20 8c 0d 01 f9 16  20 63 25 3d 31 3c 3c 32  |=1 ..... c%=1<<2|
00003670  31 3a 65 25 3d 31 3c 3c  32 31 0d 01 fa 05 cc 0d  |1:e%=1<<21......|
00003680  01 fb 12 20 63 25 3d 31  3c 3c 32 31 3a 65 25 3d  |... c%=1<<21:e%=|
00003690  30 0d 01 fc 05 cd 0d 01  fd 1e 62 75 66 66 65 72  |0.........buffer|
000036a0  25 21 38 3d 65 25 3a 62  75 66 66 65 72 25 21 31  |%!8=e%:buffer%!1|
000036b0  32 3d 63 25 0d 01 fe 23  c8 99 20 22 57 69 6d 70  |2=c%...#.. "Wimp|
000036c0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000036d0  62 75 66 66 65 72 25 0d  01 ff 0f 76 25 3d 6f 6c  |buffer%....v%=ol|
000036e0  64 25 20 82 20 31 0d 02  00 05 e1 0d 02 01 05 3a  |d% . 1.........:|
000036f0  0d 02 02 13 dd 20 f2 6c  6f 61 64 5f 73 70 72 69  |..... .load_spri|
00003700  74 65 73 0d 02 03 27 66  25 3d 8e 28 22 3c 53 32  |tes...'f%=.("<S2|
00003710  4a 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |J$Dir>.Resources|
00003720  2e 53 70 72 69 74 65 73  22 29 0d 02 04 17 73 69  |.Sprites")....si|
00003730  7a 65 25 3d a2 20 23 66  25 2b 34 3a d9 20 23 66  |ze%=. #f%+4:. #f|
00003740  25 0d 02 05 14 de 20 73  70 72 69 74 65 73 25 20  |%..... sprites% |
00003750  73 69 7a 65 25 0d 02 06  21 21 73 70 72 69 74 65  |size%...!!sprite|
00003760  73 25 3d 73 69 7a 65 25  3a 73 70 72 69 74 65 73  |s%=size%:sprites|
00003770  25 21 38 3d 31 36 0d 02  07 40 c8 99 20 22 4f 53  |%!8=16...@.. "OS|
00003780  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 41 2c  |_SpriteOp",&10A,|
00003790  73 70 72 69 74 65 73 25  2c 22 3c 53 32 4a 24 44  |sprites%,"<S2J$D|
000037a0  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 53 70  |ir>.Resources.Sp|
000037b0  72 69 74 65 73 22 0d 02  08 05 e1 0d 02 09 05 3a  |rites".........:|
000037c0  0d 02 0a 15 dd 20 f2 6c  6f 61 64 5f 74 65 6d 70  |..... .load_temp|
000037d0  6c 61 74 65 73 0d 02 0b  14 24 62 75 66 66 65 72  |lates....$buffer|
000037e0  25 3d c4 36 34 2c bd 30  29 0d 02 0c 0f de 20 69  |%=.64,.0)..... i|
000037f0  6e 64 25 20 31 33 37 35  0d 02 0d 6e c8 99 20 22  |nd% 1375...n.. "|
00003800  57 69 6d 70 45 78 74 5f  4c 6f 61 64 54 65 6d 70  |WimpExt_LoadTemp|
00003810  6c 61 74 65 73 22 2c 62  75 66 66 65 72 25 2c 21  |lates",buffer%,!|
00003820  74 65 6d 70 5f 62 6c 6f  63 6b 25 2c 69 6e 64 25  |temp_block%,ind%|
00003830  2c 69 6e 64 25 2b 31 33  37 35 2c 2d 31 2c 22 3c  |,ind%+1375,-1,"<|
00003840  53 32 4a 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |S2J$Dir>.Resourc|
00003850  65 73 2e 54 65 6d 70 6c  61 74 65 73 22 2c 73 70  |es.Templates",sp|
00003860  72 69 74 65 73 25 0d 02  0e 49 69 6e 66 6f 25 3d  |rites%...Iinfo%=|
00003870  21 62 75 66 66 65 72 25  3a 6f 70 74 69 6f 6e 73  |!buffer%:options|
00003880  25 3d 62 75 66 66 65 72  25 21 34 3a 73 61 76 65  |%=buffer%!4:save|
00003890  25 3d 62 75 66 66 65 72  25 21 38 3a 69 6e 6e 61  |%=buffer%!8:inna|
000038a0  72 64 73 25 3d 62 75 66  66 65 72 25 21 31 32 0d  |rds%=buffer%!12.|
000038b0  02 0f 30 c8 99 20 22 57  69 6d 70 45 78 74 5f 4c  |..0.. "WimpExt_L|
000038c0  69 6e 6b 57 69 6e 64 6f  77 73 22 2c 2c 2c 6f 70  |inkWindows",,,op|
000038d0  74 69 6f 6e 73 25 2c 69  6e 6e 61 72 64 73 25 0d  |tions%,innards%.|
000038e0  02 10 18 c8 99 20 22 57  69 6d 70 45 78 74 5f 48  |..... "WimpExt_H|
000038f0  65 61 70 22 2c 31 33 0d  02 11 05 e1 0d 02 12 05  |eap",13.........|
00003900  3a 0d 02 13 10 dd 20 f2  6d 61 6b 65 5f 6d 65 6e  |:..... .make_men|
00003910  75 0d 02 14 31 de 20 6d  61 69 6e 5f 6d 65 6e 75  |u...1. main_menu|
00003920  25 20 32 38 2b 32 34 2a  33 2c 74 79 70 65 5f 6d  |% 28+24*3,type_m|
00003930  65 6e 75 25 20 32 38 2b  32 34 2a 38 2c 64 25 20  |enu% 28+24*8,d% |
00003940  31 34 0d 02 15 0f e7 20  6f 73 25 3c 33 31 30 20  |14..... os%<310 |
00003950  8c 0d 02 16 21 20 24 6d  61 69 6e 5f 6d 65 6e 75  |....! $main_menu|
00003960  25 3d 22 53 70 72 69 74  65 32 4a 70 65 67 22 2b  |%="Sprite2Jpeg"+|
00003970  bd 30 0d 02 17 05 cc 0d  02 18 21 20 24 6d 61 69  |.0........! $mai|
00003980  6e 5f 6d 65 6e 75 25 3d  22 53 70 72 69 74 65 32  |n_menu%="Sprite2|
00003990  4a 70 65 67 22 2b bd 30  0d 02 19 05 cd 0d 02 1a  |Jpeg"+.0........|
000039a0  4c 6d 61 69 6e 5f 6d 65  6e 75 25 21 31 32 3d 26  |Lmain_menu%!12=&|
000039b0  37 30 32 30 37 3a 6d 61  69 6e 5f 6d 65 6e 75 25  |70207:main_menu%|
000039c0  21 31 36 3d 39 2a 31 36  3a 6d 61 69 6e 5f 6d 65  |!16=9*16:main_me|
000039d0  6e 75 25 21 32 30 3d 34  34 3a 6d 61 69 6e 5f 6d  |nu%!20=44:main_m|
000039e0  65 6e 75 25 21 32 34 3d  30 0d 02 1b 56 6d 61 69  |enu%!24=0...Vmai|
000039f0  6e 5f 6d 65 6e 75 25 21  32 38 3d 30 3a 6d 61 69  |n_menu%!28=0:mai|
00003a00  6e 5f 6d 65 6e 75 25 21  33 32 3d 69 6e 66 6f 25  |n_menu%!32=info%|
00003a10  3a 6d 61 69 6e 5f 6d 65  6e 75 25 21 33 36 3d 26  |:main_menu%!36=&|
00003a20  37 30 30 30 30 32 31 3a  24 28 6d 61 69 6e 5f 6d  |7000021:$(main_m|
00003a30  65 6e 75 25 2b 34 30 29  3d 22 49 6e 66 6f 22 0d  |enu%+40)="Info".|
00003a40  02 1c 59 6d 61 69 6e 5f  6d 65 6e 75 25 21 35 32  |..Ymain_menu%!52|
00003a50  3d 30 3a 6d 61 69 6e 5f  6d 65 6e 75 25 21 35 36  |=0:main_menu%!56|
00003a60  3d 2d 31 3a 6d 61 69 6e  5f 6d 65 6e 75 25 21 36  |=-1:main_menu%!6|
00003a70  30 3d 26 37 30 30 30 30  32 31 3a 24 28 6d 61 69  |0=&7000021:$(mai|
00003a80  6e 5f 6d 65 6e 75 25 2b  36 34 29 3d 22 4f 70 74  |n_menu%+64)="Opt|
00003a90  69 6f 6e 73 2e 2e 2e 22  0d 02 1d 55 6d 61 69 6e  |ions..."...Umain|
00003aa0  5f 6d 65 6e 75 25 21 37  36 3d 26 38 30 3a 6d 61  |_menu%!76=&80:ma|
00003ab0  69 6e 5f 6d 65 6e 75 25  21 38 30 3d 2d 31 3a 6d  |in_menu%!80=-1:m|
00003ac0  61 69 6e 5f 6d 65 6e 75  25 21 38 34 3d 26 37 30  |ain_menu%!84=&70|
00003ad0  30 30 30 32 31 3a 24 28  6d 61 69 6e 5f 6d 65 6e  |00021:$(main_men|
00003ae0  75 25 2b 38 38 29 3d 22  51 75 69 74 22 0d 02 1e  |u%+88)="Quit"...|
00003af0  05 3a 0d 02 1f 48 6d 25  3d 74 79 70 65 5f 6d 65  |.:...Hm%=type_me|
00003b00  6e 75 25 3a 24 6d 25 3d  22 53 61 76 65 20 61 73  |nu%:$m%="Save as|
00003b10  22 3a 6d 25 21 31 32 3d  26 37 30 32 30 37 3a 6d  |":m%!12=&70207:m|
00003b20  25 21 31 36 3d 39 2a 31  36 3a 6d 25 21 32 30 3d  |%!16=9*16:m%!20=|
00003b30  34 34 3a 6d 25 21 32 34  3d 30 0d 02 20 3a 6d 25  |44:m%!24=0.. :m%|
00003b40  21 32 38 3d 33 3a 6d 25  21 33 32 3d 2d 31 3a 6d  |!28=3:m%!32=-1:m|
00003b50  25 21 33 36 3d 26 37 30  30 30 30 32 31 3a 24 28  |%!36=&7000021:$(|
00003b60  6d 25 2b 34 30 29 3d 22  4a 70 65 67 22 3a 6d 25  |m%+40)="Jpeg":m%|
00003b70  2b 3d 32 34 0d 02 21 3b  6d 25 21 32 38 3d 30 3a  |+=24..!;m%!28=0:|
00003b80  6d 25 21 33 32 3d 2d 31  3a 6d 25 21 33 36 3d 26  |m%!32=-1:m%!36=&|
00003b90  37 30 30 30 30 32 31 3a  24 28 6d 25 2b 34 30 29  |7000021:$(m%+40)|
00003ba0  3d 22 43 6c 65 61 72 22  3a 6d 25 2b 3d 32 34 0d  |="Clear":m%+=24.|
00003bb0  02 22 42 6d 25 21 32 38  3d 30 3a 6d 25 21 33 32  |."Bm%!28=0:m%!32|
00003bc0  3d 2d 31 3a 6d 25 21 33  36 3d 26 37 30 30 30 30  |=-1:m%!36=&70000|
00003bd0  32 31 3a 24 28 6d 25 2b  34 30 29 3d 22 38 2d 62  |21:$(m%+40)="8-b|
00003be0  69 74 20 73 70 72 69 74  65 22 3a 6d 25 2b 3d 32  |it sprite":m%+=2|
00003bf0  34 0d 02 23 2d 6d 25 21  32 38 3d 26 30 3a 6d 25  |4..#-m%!28=&0:m%|
00003c00  21 33 32 3d 2d 31 3a 6d  25 21 33 36 3d 26 37 30  |!32=-1:m%!36=&70|
00003c10  30 30 31 32 31 3a 6d 25  21 34 30 3d 64 25 0d 02  |00121:m%!40=d%..|
00003c20  24 33 24 64 25 3d 22 32  34 2d 62 69 74 20 73 70  |$3$d%="24-bit sp|
00003c30  72 69 74 65 22 2b bd 30  3a 6d 25 21 34 34 3d 2d  |rite"+.0:m%!44=-|
00003c40  31 3a 6d 25 21 34 38 3d  31 34 3a 6d 25 2b 3d 32  |1:m%!48=14:m%+=2|
00003c50  34 0d 02 25 39 6d 25 21  32 38 3d 30 3a 6d 25 21  |4..%9m%!28=0:m%!|
00003c60  33 32 3d 2d 31 3a 6d 25  21 33 36 3d 26 37 30 30  |32=-1:m%!36=&700|
00003c70  30 30 32 31 3a 24 28 6d  25 2b 34 30 29 3d 22 47  |0021:$(m%+40)="G|
00003c80  49 46 22 3a 6d 25 2b 3d  32 34 0d 02 26 3d 6d 25  |IF":m%+=24..&=m%|
00003c90  21 32 38 3d 26 38 30 3a  6d 25 21 33 32 3d 2d 31  |!28=&80:m%!32=-1|
00003ca0  3a 6d 25 21 33 36 3d 26  37 30 30 30 30 32 31 3a  |:m%!36=&7000021:|
00003cb0  24 28 6d 25 2b 34 30 29  3d 22 54 61 72 67 61 22  |$(m%+40)="Targa"|
00003cc0  3a 6d 25 2b 3d 32 34 0d  02 27 05 e1 0d 02 28 05  |:m%+=24..'....(.|
00003cd0  3a 0d 02 29 20 dd 20 f2  70 62 6d 5f 63 6c 65 61  |:..) . .pbm_clea|
00003ce0  72 28 70 62 6d 24 2c 63  6c 72 24 2c 64 69 72 25  |r(pbm$,clr$,dir%|
00003cf0  29 0d 02 2a 49 ea 20 85  3a ee 85 20 85 20 30 2c  |)..*I. .:.. . 0,|
00003d00  22 45 72 72 6f 72 3a 20  22 2b f6 24 2b 22 20 61  |"Error: "+.$+" a|
00003d10  74 20 6c 69 6e 65 20 22  2b c3 9e 3a c8 99 20 22  |t line "+..:.. "|
00003d20  58 4f 53 5f 43 4c 49 22  2c 22 55 6e 73 65 74 20  |XOS_CLI","Unset |
00003d30  53 32 4a 24 44 69 72 22  3a e0 0d 02 2b 26 f4 20  |S2J$Dir":...+&. |
00003d40  64 69 72 3d 30 2c 20 70  62 6d 2d 3e 63 6c 72 2c  |dir=0, pbm->clr,|
00003d50  20 64 69 72 3d 31 2c 20  63 6c 72 2d 3e 70 62 6d  | dir=1, clr->pbm|
00003d60  0d 02 2c 1e c8 99 20 22  58 4f 53 5f 46 69 6c 65  |..,... "XOS_File|
00003d70  22 2c 31 37 2c 70 62 6d  24 20 b8 20 70 25 0d 02  |",17,pbm$ . p%..|
00003d80  2d 1e c8 99 20 22 58 4f  53 5f 46 69 6c 65 22 2c  |-... "XOS_File",|
00003d90  31 37 2c 63 6c 72 24 20  b8 20 63 25 0d 02 2e 66  |17,clr$ . c%...f|
00003da0  e7 20 70 25 3d 30 20 80  20 63 25 3d 30 20 8c 20  |. p%=0 . c%=0 . |
00003db0  f2 65 72 72 6f 72 28 22  4d 65 73 73 61 67 65 20  |.error("Message |
00003dc0  66 72 6f 6d 20 53 70 72  69 74 65 20 32 20 4a 70  |from Sprite 2 Jp|
00003dd0  65 67 22 2c 25 31 30 2c  22 4e 65 69 74 68 65 72  |eg",%10,"Neither|
00003de0  20 61 20 50 42 4d 20 6f  72 20 43 6c 65 61 72 20  | a PBM or Clear |
00003df0  69 6d 61 67 65 20 65 78  69 73 74 73 22 2c 30 29  |image exists",0)|
00003e00  3a e1 0d 02 2f 5a e7 20  70 25 3d 32 20 84 20 63  |:.../Z. p%=2 . c|
00003e10  25 3d 32 20 8c 20 f2 65  72 72 6f 72 28 22 4d 65  |%=2 . .error("Me|
00003e20  73 73 61 67 65 20 66 72  6f 6d 20 53 70 72 69 74  |ssage from Sprit|
00003e30  65 20 32 20 4a 70 65 67  22 2c 25 31 30 2c 22 4f  |e 2 Jpeg",%10,"O|
00003e40  6e 65 20 66 69 6c 65 20  69 73 20 61 20 64 69 72  |ne file is a dir|
00003e50  65 63 74 6f 72 79 22 2c  30 29 3a e1 0d 02 30 0e  |ectory",0):...0.|
00003e60  e7 20 64 69 72 25 3d 30  20 8c 0d 02 31 21 20 c8  |. dir%=0 ...1! .|
00003e70  99 20 22 4f 53 5f 52 65  61 64 4d 65 6d 4d 61 70  |. "OS_ReadMemMap|
00003e80  49 6e 66 6f 22 20 b8 20  70 73 25 0d 02 32 33 20  |Info" . ps%..23 |
00003e90  c8 99 20 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |.. "Wimp_SlotSiz|
00003ea0  65 22 2c 2d 31 2c 2d 31  20 b8 20 63 25 2c 6e 25  |e",-1,-1 . c%,n%|
00003eb0  2c 66 25 3a 66 25 2d 3d  70 73 25 2a 34 30 0d 02  |,f%:f%-=ps%*40..|
00003ec0  33 0a 20 e7 20 b9 20 8c  0d 02 34 1b 20 20 62 6c  |3. . . ...4.  bl|
00003ed0  6f 63 6b 25 3d 71 25 3a  62 73 25 3d 71 5f 73 69  |ock%=q%:bs%=q_si|
00003ee0  7a 65 25 0d 02 35 06 20  cc 0d 02 36 1d 20 20 c8  |ze%..5. ...6.  .|
00003ef0  99 20 22 57 69 6d 70 45  78 74 5f 48 65 61 70 22  |. "WimpExt_Heap"|
00003f00  2c 30 2c 93 2c 32 0d 02  37 2d 20 20 c8 99 20 22  |,0,.,2..7-  .. "|
00003f10  57 69 6d 70 45 78 74 5f  48 65 61 70 22 2c 32 2c  |WimpExt_Heap",2,|
00003f20  30 2c 66 25 20 b8 20 2c  74 65 6d 70 5f 62 6c 6f  |0,f% . ,temp_blo|
00003f30  63 6b 25 0d 02 38 18 20  20 e7 20 74 65 6d 70 5f  |ck%..8.  . temp_|
00003f40  62 6c 6f 63 6b 25 3c 3e  30 20 8c 0d 02 39 21 20  |block%<>0 ...9! |
00003f50  20 20 62 6c 6f 63 6b 25  3d 21 74 65 6d 70 5f 62  |  block%=!temp_b|
00003f60  6c 6f 63 6b 25 3a 62 73  25 3d 66 25 0d 02 3a 07  |lock%:bs%=f%..:.|
00003f70  20 20 cc 0d 02 3b 1c 20  20 20 62 6c 6f 63 6b 25  |  ...;.   block%|
00003f80  3d 71 25 3a 62 73 25 3d  71 5f 73 69 7a 65 25 0d  |=q%:bs%=q_size%.|
00003f90  02 3c 07 20 20 cd 0d 02  3d 06 20 cd 0d 02 3e 1b  |.<.  ...=. ...>.|
00003fa0  20 f4 20 63 6f 6e 76 65  72 74 20 50 42 4d 20 74  | . convert PBM t|
00003fb0  6f 20 43 6c 65 61 72 0d  02 3f 10 20 70 62 6d 25  |o Clear..?. pbm%|
00003fc0  3d 8e 20 70 62 6d 24 0d  02 40 0e 20 70 24 3d be  |=. pbm$..@. p$=.|
00003fd0  23 70 62 6d 25 0d 02 41  11 20 e7 20 70 24 3c 3e  |#pbm%..A. . p$<>|
00003fe0  22 50 36 22 20 8c 0d 02  42 1f 20 20 f4 50 52 49  |"P6" ...B.  .PRI|
00003ff0  4e 54 20 22 63 6f 6e 76  65 72 74 69 6e 67 20 74  |NT "converting t|
00004000  6f 20 50 36 22 0d 02 43  0d 20 20 d9 20 23 70 62  |o P6"..C.  . #pb|
00004010  6d 25 0d 02 44 28 20 20  c8 99 20 22 4f 53 5f 53  |m%..D(  .. "OS_S|
00004020  65 74 56 61 72 56 61 6c  22 2c 22 54 65 6d 70 24  |etVarVal","Temp$|
00004030  54 65 6d 70 22 2c 70 62  6d 24 0d 02 45 4f 20 20  |Temp",pbm$..EO  |
00004040  63 6f 6d 6d 24 3d 22 3c  43 68 61 6e 67 65 46 53  |comm$="<ChangeFS|
00004050  49 24 44 69 72 3e 2e 43  68 61 6e 67 65 46 53 49  |I$Dir>.ChangeFSI|
00004060  20 3c 54 65 6d 70 24 54  65 6d 70 3e 20 3c 53 32  | <Temp$Temp> <S2|
00004070  4a 24 53 63 72 61 70 3e  2e 50 42 4d 36 20 50 36  |J$Scrap>.PBM6 P6|
00004080  20 2d 6e 6f 6d 6f 64 65  22 0d 02 46 32 20 20 c8  | -nomode"..F2  .|
00004090  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
000040a0  6b 22 2c 63 6f 6d 6d 24  3a f4 20 63 6f 6e 76 65  |k",comm$:. conve|
000040b0  72 74 20 50 58 20 74 6f  20 50 36 0d 02 47 25 20  |rt PX to P6..G% |
000040c0  20 c8 99 20 22 58 4f 53  5f 43 4c 49 22 2c 22 52  | .. "XOS_CLI","R|
000040d0  65 6d 6f 76 65 20 54 65  6d 70 24 54 65 6d 70 22  |emove Temp$Temp"|
000040e0  0d 02 48 48 20 20 c8 99  20 22 58 4f 53 5f 43 4c  |..HH  .. "XOS_CL|
000040f0  49 22 2c 22 43 6f 70 79  20 3c 53 4a 32 24 53 63  |I","Copy <SJ2$Sc|
00004100  72 61 70 3e 2e 50 42 4d  36 20 3c 54 65 6d 70 24  |rap>.PBM6 <Temp$|
00004110  54 65 6d 70 3e 20 44 7e  56 7e 43 46 53 4c 7e 4e  |Temp> D~V~CFSL~N|
00004120  7e 50 51 7e 52 7e 54 22  0d 02 49 11 20 20 70 62  |~PQ~R~T"..I.  pb|
00004130  6d 25 3d 8e 20 70 62 6d  24 0d 02 4a 1c 20 20 61  |m%=. pbm$..J.  a|
00004140  25 3d 9a 23 70 62 6d 25  3a 61 25 3d 9a 23 70 62  |%=.#pbm%:a%=.#pb|
00004150  6d 25 2b 34 38 0d 02 4b  06 20 cd 0d 02 4c 28 20  |m%+48..K. ...L( |
00004160  f4 20 70 62 6d 20 69 73  20 6e 6f 77 20 32 34 2d  |. pbm is now 24-|
00004170  62 70 70 2c 20 62 69 6e  61 72 79 20 65 6e 63 6f  |bpp, binary enco|
00004180  64 65 64 0d 02 4d 27 20  f5 3a 6d 24 3d be 23 70  |ded..M' .:m$=.#p|
00004190  62 6d 25 3a fd 20 c0 6d  24 2c 31 29 3c 3e 22 23  |bm%:. .m$,1)<>"#|
000041a0  22 20 84 20 c5 23 70 62  6d 25 0d 02 4e 1d 20 73  |" . .#pbm%..N. s|
000041b0  24 3d 6d 24 3a 6d 24 3d  22 53 70 72 69 74 65 20  |$=m$:m$="Sprite |
000041c0  32 20 4a 70 65 67 22 0d  02 4f 1e 20 77 69 64 74  |2 Jpeg"..O. widt|
000041d0  68 25 3d bb 28 c0 73 24  2c a7 73 24 2c 22 20 22  |h%=.(.s$,.s$," "|
000041e0  29 2d 31 29 29 0d 02 50  21 20 68 65 69 67 68 74  |)-1))..P! height|
000041f0  25 3d bb 28 c2 73 24 2c  a9 73 24 2d a7 73 24 2c  |%=.(.s$,.s$-.s$,|
00004200  22 20 22 29 29 29 0d 02  51 13 20 6d 61 78 25 3d  |" ")))..Q. max%=|
00004210  bb 28 be 23 70 62 6d 25  29 0d 02 52 18 20 63 6c  |.(.#pbm%)..R. cl|
00004220  72 25 3d ae 28 63 6c 72  24 29 3a 6d 24 2b 3d bd  |r%=.(clr$):m$+=.|
00004230  30 0d 02 53 2c 20 f4 6d  3d 4c 45 4e 6d 24 3a 6d  |0..S, .m=LENm$:m|
00004240  24 2b 3d 53 54 52 49 4e  47 24 28 34 2d 28 6d 20  |$+=STRING$(4-(m |
00004250  4d 4f 44 20 34 29 2c 43  48 52 24 30 29 0d 02 54  |MOD 4),CHR$0)..T|
00004260  2e 20 f4 49 46 20 28 6d  20 4d 4f 44 20 34 29 3d  |. .IF (m MOD 4)=|
00004270  30 20 54 48 45 4e 20 6d  24 2b 3d 53 54 52 49 4e  |0 THEN m$+=STRIN|
00004280  47 24 28 43 48 52 24 30  2c 34 29 0d 02 55 11 20  |G$(CHR$0,4)..U. |
00004290  f2 73 6f 28 63 6c 72 25  2c 6d 24 29 0d 02 56 12  |.so(clr%,m$)..V.|
000042a0  20 f2 77 6f 28 63 6c 72  25 2c 31 30 37 29 0d 02  | .wo(clr%,107)..|
000042b0  57 15 20 f2 77 6f 28 63  6c 72 25 2c 77 69 64 74  |W. .wo(clr%,widt|
000042c0  68 25 29 0d 02 58 16 20  f2 77 6f 28 63 6c 72 25  |h%)..X. .wo(clr%|
000042d0  2c 68 65 69 67 68 74 25  29 0d 02 59 11 20 f2 77  |,height%)..Y. .w|
000042e0  6f 28 63 6c 72 25 2c 32  34 29 0d 02 5a 28 20 e3  |o(clr%,24)..Z( .|
000042f0  20 69 25 3d 31 20 b8 20  28 28 68 65 69 67 68 74  | i%=1 . ((height|
00004300  25 2a 77 69 64 74 68 25  2a 33 29 20 81 20 62 73  |%*width%*3) . bs|
00004310  25 29 0d 02 5b 33 20 20  c8 99 20 22 4f 53 5f 47  |%)..[3  .. "OS_G|
00004320  42 50 42 22 2c 34 2c 70  62 6d 25 2c 62 6c 6f 63  |BPB",4,pbm%,bloc|
00004330  6b 25 2c 62 73 25 20 b8  20 2c 2c 2c 6e 6f 74 5f  |k%,bs% . ,,,not_|
00004340  64 6f 6e 65 25 0d 02 5c  24 20 20 c8 99 20 22 4f  |done%..\$  .. "O|
00004350  53 5f 47 42 50 42 22 2c  32 2c 63 6c 72 25 2c 62  |S_GBPB",2,clr%,b|
00004360  6c 6f 63 6b 25 2c 62 73  25 0d 02 5d 06 20 ed 0d  |lock%,bs%..]. ..|
00004370  02 5e 26 20 73 70 61 72  65 25 3d 28 28 68 65 69  |.^& spare%=((hei|
00004380  67 68 74 25 2a 77 69 64  74 68 25 2a 33 29 20 83  |ght%*width%*3) .|
00004390  20 62 73 25 29 0d 02 5f  35 20 c8 99 20 22 4f 53  | bs%).._5 .. "OS|
000043a0  5f 47 42 50 42 22 2c 34  2c 70 62 6d 25 2c 62 6c  |_GBPB",4,pbm%,bl|
000043b0  6f 63 6b 25 2c 73 70 61  72 65 25 20 b8 20 2c 2c  |ock%,spare% . ,,|
000043c0  2c 6e 6f 74 5f 64 6f 6e  65 25 0d 02 60 26 20 c8  |,not_done%..`& .|
000043d0  99 20 22 4f 53 5f 47 42  50 42 22 2c 32 2c 63 6c  |. "OS_GBPB",2,cl|
000043e0  72 25 2c 62 6c 6f 63 6b  25 2c 73 70 61 72 65 25  |r%,block%,spare%|
000043f0  0d 02 61 0c 20 d9 23 20  63 6c 72 25 0d 02 62 0c  |..a. .# clr%..b.|
00004400  20 d9 23 20 70 62 6d 25  0d 02 63 28 20 c8 99 20  | .# pbm%..c( .. |
00004410  22 58 4f 53 5f 43 4c 49  22 2c 22 53 65 74 54 79  |"XOS_CLI","SetTy|
00004420  70 65 20 22 2b 63 6c 72  24 2b 22 20 36 39 30 22  |pe "+clr$+" 690"|
00004430  0d 02 64 1a 20 c8 99 20  22 58 57 69 6d 70 45 78  |..d. .. "XWimpEx|
00004440  74 5f 48 65 61 70 22 2c  31 33 0d 02 65 05 cc 0d  |t_Heap",13..e...|
00004450  02 66 54 20 f2 65 72 72  6f 72 28 22 4d 65 73 73  |.fT .error("Mess|
00004460  61 67 65 20 66 72 6f 6d  20 53 70 72 69 74 65 20  |age from Sprite |
00004470  32 20 4a 70 65 67 22 2c  25 31 30 2c 22 43 61 6e  |2 Jpeg",%10,"Can|
00004480  6e 6f 74 20 63 6f 6e 76  65 72 74 20 66 72 6f 6d  |not convert from|
00004490  20 43 6c 65 61 72 20 74  6f 20 50 42 4d 22 2c 30  | Clear to PBM",0|
000044a0  29 3a e1 0d 02 67 05 cd  0d 02 68 05 e1 0d 02 69  |):...g....h....i|
000044b0  05 3a 0d 02 6a 12 dd 20  f2 77 6f 28 66 68 25 2c  |.:..j.. .wo(fh%,|
000044c0  77 6f 25 29 0d 02 6b 1a  62 25 3d 77 6f 25 20 80  |wo%)..k.b%=wo% .|
000044d0  20 32 35 35 3a d5 20 23  66 68 25 2c 62 25 0d 02  | 255:. #fh%,b%..|
000044e0  6c 1f 62 25 3d 28 77 6f  25 3e 3e 38 29 20 80 20  |l.b%=(wo%>>8) . |
000044f0  32 35 35 3a d5 20 23 66  68 25 2c 62 25 0d 02 6d  |255:. #fh%,b%..m|
00004500  20 62 25 3d 28 77 6f 25  3e 3e 31 36 29 20 80 20  | b%=(wo%>>16) . |
00004510  32 35 35 3a d5 20 23 66  68 25 2c 62 25 0d 02 6e  |255:. #fh%,b%..n|
00004520  20 62 25 3d 28 77 6f 25  3e 3e 32 34 29 20 80 20  | b%=(wo%>>24) . |
00004530  32 35 35 3a d5 20 23 66  68 25 2c 62 25 0d 02 6f  |255:. #fh%,b%..o|
00004540  05 e1 0d 02 70 05 3a 0d  02 71 11 dd 20 f2 73 6f  |....p.:..q.. .so|
00004550  28 66 68 25 2c 73 24 29  0d 02 72 0f e3 69 25 3d  |(fh%,s$)..r..i%=|
00004560  31 20 b8 20 a9 73 24 0d  02 73 16 d5 23 66 68 25  |1 . .s$..s..#fh%|
00004570  2c 97 28 c1 73 24 2c 69  25 2c 31 29 29 0d 02 74  |,.(.s$,i%,1))..t|
00004580  05 ed 0d 02 75 05 e1 0d  ff                       |....u....|
00004589