� > !RunImage
6� Description    : Desktop front end for ChangeFSI
?� Author         : Roger Wilson (image processing routines)
(4� Author         : Robert W Hamilton (front end)
2� Created        : 14/10/89
<� Last Updated   : 02/01/89
FP� This version of ChangeFSI Wimp Front End interfaces with a library version
PE� Thanks are due to Roger Wilson for his help during this project
Zț "%.ChangeFSI"
ddebug%=�
n� � � � �:�error(0)
x!version$="1.16 (19-Jan-1990)"
�	�init
�� � �error(1)
��
�*ș "Wimp_Poll",pollmask%,pb% � reason%
��wimpservice(reason%,pb%)
�� �
��
�� �init
��setvars
�&taskhandle%=�taskinit("ChangeFSI")
��setupwindows
��getchoices
��installonbar

(ș "Wimp_SlotSize",-1,-1 � loadslot%

originalslot%=loadslot%

loadhimem%=�

"/loadhimem%=(loadhimem% � &1000)*&1000+&1000

,loadend%=�

6+loadend%=(loadend% � &1000)*&1000+&1000

@�modechanged

J
�assemble

T�

^

h� �setvars

rlongsp%=1000

|z� block% 4,pb% 2048,iconsp% 2048,mouseb% 20,menub% 1000,longitems% longsp%,miscb% 512,magt% 16,zoom% 16,spritepal% 256

�pollmask%=%110001

�$block%="TASK"

�wksp%=iconsp%

�spnd%=iconsp%+2048

�close%=�

�sprex%=�

�scrappy%=�

�oldmode%=�

�c%=0

�	cc%=0

�+!zoom%=1:zoom%!4=1:zoom%!8=1:zoom%!12=1

�closing%=�

��

� �taskinit(task$)
8ș"Wimp_Initialise",200,!block%,task$ � ,taskhandle%
&=taskhandle%
0� �setupwindows
:	� os%
D7ș "Wimp_OpenTemplate",,"<ChangeFSI$Dir>.Templates"
N%�loadtemplate(pb%,"Parameters",0)
Xos%=517+32
bmodead%=wksp%-os%-35
lx1ad%=wksp%-os%-27
vx2ad%=wksp%-os%-18
�y1ad%=wksp%-os%-9
�y2ad%=wksp%-os%
�sharpenad%=wksp%-138
�)ș "Wimp_CreateWindow",,pb% � parwin%
�'� This will go in a couple of weeks
�=� Sorry, you'll have to use the CLI to produce AIM files!
�<� Send me a disc and return postage for an upgrade - RWH
�!miscb%=parwin%
�miscb%!4=27
�miscb%!8=1<<22
�miscb%!12=1<<22
�"ș "Wimp_SetIconState",,miscb%
�"�loadtemplate(pb%,"ShowWin",0)
*ș "Wimp_CreateWindow",,pb% � showwin%
+pb%?35=&FF:� Why can't FormEd do that?!
$�loadtemplate(pb%,"Magnifier",0)
 mag1ad%=wksp%-30
*$mag1ad%="1"
4mag2ad%=wksp%-21
>$mag2ad%="1"
H)ș "Wimp_CreateWindow",,pb% � magwin%
R"�loadtemplate(pb%,"SaveWin",0)
\outfilenamead%=wksp%-260
f*ș "Wimp_CreateWindow",,pb% � savewin%
p%�loadtemplate(pb%,"SpriteInfo",0)
zsprnamead%=wksp%-186
�sprmodead%=wksp%-146
�sprmaskad%=wksp%-106
�sprwidtad%=wksp%-66
�sprbytead%=wksp%-36
�sprpalead%=wksp%-24
�sprheigad%=wksp%-12
�-ș "Wimp_CreateWindow",,pb% � sprinfowin%
�%�loadtemplate(pb%,"SourceInfo",0)
�srcinfoad%=wksp%-204
�-ș "Wimp_CreateWindow",,pb% � srcinfowin%
�$�loadtemplate(pb%,"RangeInfo",0)
�rnginfoad%=wksp%-204
�-ș "Wimp_CreateWindow",,pb% � rnginfowin%
�loadtemplate(pb%,"Info",0)
e� $(wksp%-58)<>"� Robert W Hamilton, 1989" ș"Wimp_CloseTemplate":� 0,"Software piracy suspected"
$(wksp%-30)=version$
$+ș "Wimp_CreateWindow",,pb% � aboutwin%
. �loadtemplate(pb%,"Query",0)
8queryad%=wksp%-260
B+ș "Wimp_CreateWindow",,pb% � querywin%
Lș"Wimp_CloseTemplate"
V�
`
j.� �loadtemplate(tempbuff%,tempname$,from%)
tXș "Wimp_LoadTemplate",,tempbuff%,wksp%,spnd%,-1,tempname$,from% � ,,wksp%,,,,found%
~/� found%=0 � 0,"Template file is incorrect"
��
�
�� �getchoices
�%inc%=�("<ChangeFSI$Dir>.Choices")
�� inc%=0 �
� $modead%="12"
� $x1ad%="1"
� $x2ad%="1"
� $y1ad%="1"
� $y2ad%="1"
� outmode$=" "
� �setflags(0)
 $sharpenad%=""

�
 chmode%=�#inc%
 $modead%=�chmode%
( �#inc%,$x1ad%
2 �#inc%,$y1ad%
< �#inc%,$x2ad%
F �#inc%,$y2ad%
P" options%=�#inc% � (�#inc%)<<8
Z �setflags(options%)
d $sharpenad%=�(�#inc%)
n �#inc%
x�
��
�
�B� See file ChDetails for details of Choices file as used below
�� �setflags(set%)
�� set% � 256 �
�  �seticon(6,0):�seticon(5,1)
��
�  �seticon(6,1):�seticon(5,0)
��
�Ȏ set% � 3 �
�� 0:outmode$=" ":on%=7
�� 1:outmode$="C":on%=8
�� 2:outmode$="D":on%=9
� 3:outmode$="T":on%=10
�
� s%=7 � 10
"- � s%=on% �seticon(s%,1) � �seticon(s%,0)
,�
6�seticon(11,set% � 4)
@�seticon(12,set% � 8)
J�seticon(13,set% � 16)
T�seticon(14,set% � 32)
^�seticon(15,set% � 64)
h�seticon(16,set% � 128)
r�seticon(23,set% � 512)
|�seticon(24,set% � 1024)
��seticon(25,set% � 2048)
��seticon(26,set% � 4096)
��
�
�� �assemble
�� code% 4096,L% 0
�� opt%=8 � 10 � 2
�P%=code%
�[
�OPT opt%
�.redrawcode
�7ADR   R1,rdb                 ; get address of block
�*SWI   "Wimp_RedrawWindow"    ; call...
5LDMIB R1,{R2-R7}             ; get some registers
6SUB   R8,R2,R6               ; calc x orig, y orig
2SUB   R9,R5,R7               ; dump in R8 , R9
&;.redrawloop                  ; while more rectangles...
0CMP   R0,#0
:BEQ   skipredraw
DEADR   R1,rdb+28               ; set up next rectangle to be drawn
N5LDMIA R1,{R2-R5}              ; grab data to regs
XSUB   R2,R2,R8
bSUB   R3,R3,R9
lSUB   R4,R4,R8
vSUB   R5,R5,R9
�/STMIA R1,{R2-R5}              ; put it back
�7SWI   256+29                  ; Set origin to R8,R9
�MOV   R0,R8
�SWI   "OS_WriteC"
�MOV   R0,R8,LSR#8
�SWI   "OS_WriteC"
�MOV   R0,R9
�SWI   "OS_WriteC"
�MOV   R0,R9,LSR#8
�SWI   "OS_WriteC"
�MOV   R0,#&234
�ADR   R10,showwinb
�LDMIA R10,{R1-R4,R6,R7}
MOV   R5,#0
SWI   "OS_SpriteOp"
5SWI   256+29                  ; Set origin to 0,0
 MOV   R0,#0
*SWI   "OS_WriteC"
4SWI   "OS_WriteC"
>SWI   "OS_WriteC"
HSWI   "OS_WriteC"
RADR   R1,rdb
\4SWI   "Wimp_GetRectangle"     ; more rectangles?
f2B redrawloop                  ; end while loop
p.skipredraw
z6MOV   PC,R14                  ; end of redraw code
�.rdb
�;EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�4EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
�;****************
�
.showwinb
�EQUD 0 ; spritearea
�EQUD 0 ; sprite address
�EQUD 0 ; x co
�EQUD 0 ; -spry% (y co)
�EQUD 0 ; scale pointer
�EQUD 0 ; colour map
�]
��
	�
	
	� �wimpservice(event%,pb%)
	$Ȏ event% �
	.� 1:� redrawcode
	8!� 2:ș "Wimp_OpenWindow",,pb%
	B� 3
	L Ȏ !pb% �
	V � showwin%
	`'  ș "Wimp_GetPointerInfo",,mouseb%
	j?  � mouseb%!16=-3 � mouseb%!12=showwin% � (mouseb%!8 � 1) �
	t   openpar%=�
	~  �
	�   openpar%=�
	�  �
	� � saved% �
	�)  ș "Wimp_SlotSize",originalslot%,-1
	�  sprex%=�
	�  �openparent(openpar%)
	�   ș "Wimp_CloseWindow",,pb%
	�  closing%=�
	� �
	�2  �showquery("Do you want to save the sprite")
	�  closing%=�
	� �
  ș "Wimp_CloseWindow",,pb%

�
� 6:�clickwindow(pb%)
� 7:�dragend(pb%)
(� 8:�handlekey(pb%)
2� 9:�menuselect(pb%)
<� 17,18:�message(pb%)
F�
P�
Z
d� �showquery(question$)
n$queryad%=question$
xEș "Wimp_CreateMenu",,querywin%,rightscr%/2-738/2,topscr%/2+276/2
��
�
�� �openparent(adjust%)
�� adjust%=� �
� pos%=�(infilename$)
�! ȕ �infilename$,pos%,1)<>"."
� pos%-=1
� �
�, � "Filer_OpenDir "+�infilename$,pos%-1)
��
��
�
�� �shutdown
close%=�
*ș "Wimp_CloseDown",taskhandle%,"TASK"
�
"
,� �clickwindow(b%)
6Ȏ b%!12 �
@� -2:� icon bar handle
J Ȏ b%!16 �
T$ � iconbar%:� icon bar utilities
^  Ȏ b%!8 �
h  � 2:� Menu
r   mousex%=!b%
|   mousey%=272
�g   menu%=�createmenu(0,"ChangeFSI|�"+�aboutwin%+"Info|�"+�parwin%+"Choices|Save choices|Quit|",202)
�   mentype%=0
�  � 4:� Select
�0   ș "Wimp_CreateMenu",,parwin%,!b%-354,624
�:   ș "Wimp_SetCaretPosition",parwin%,0,,,-1,�$modead%
�  �
� �
�� showwin%
� Ȏ b%!8 �
� � 2:� Menu
�  mousex%=!b%
�  mousey%=b%!4
�+  � info$="" � shade0$="<" � shade0$=""
,  � range$="" � shade1$="<" � shade1$=""
�  menu%=�createmenu(0,"ChangeFSI|�"+�sprinfowin%+"Image info|"+shade0$+"�"+�srcinfowin%+"Source info|"+shade1$+"�"+�rnginfowin%+"Range info|�"+�magwin%+"Zoom|�"+�savewin%+"Save sprite|",202)
mentype%=1
& �
0� savewin%
: Ȏ b%!16 �
D � 0:�savesprite
N � 3
X  � (b%!8 � &50)<>0 �
b   �gst(b%,savewin%)
l   xd%=b%!4-b%!20
v   yd%=b%!16-b%!24
�
   b%!4=3
�!   ș "Wimp_GetIconState",,b%
�   !b%=savewin%
�
   b%!4=5
�   b%!8=b%!8+xd%
�   b%!12=b%!12+yd%
�   b%!16=b%!16+xd%
�   b%!20=b%!20+yd%
�   b%!24=0
�   b%!28=0
�   b%!32=&7FFFFFFF
�   b%!36=&7FFFFFFF
�   ș "Wimp_DragBox",,b%

  �

 �


� parwin%

  Ȏ b%!16 �

* � 7:outmode$=" "

4 � 8:outmode$="C"

> � 9:outmode$="D"

H � 10:outmode$="T"

R	 � 26

\  !miscb%=parwin%

f  ș "Wimp_CreateMenu",-1

p#  ș "Wimp_CloseWindow",,miscb%

z �

� !miscb%=parwin%

� miscb%!4=b%!16

� miscb%!8=1<<21

� miscb%!12=1<<21

�7 � b%!8=1 � b%!16<11 ș "Wimp_SetIconState",,miscb%

�
� magwin%

� � (b%!8 � 1)=0 �

�  Ȏ b%!16 �

�  � 2:�magstring(1,0)

�  � 3:�magstring(-1,0)

�  � 4:�magstring(0,1)

�  � 5:�magstring(0,-1)

�  �
 �
  Ȏ b%!16 �
  � 2:�magstring(-1,0)
$  � 3:�magstring(1,0)
.  � 4:�magstring(0,-1)
8  � 5:�magstring(0,1)
B  �
L �
V� querywin%
` Ȏ b%!16 �
j � 0:� 'Yes' to save?
t  ș "Wimp_CreateMenu",,-1
~  !miscb%=showwin%
�  � X=246, y=-168
�&  ș "Wimp_GetWindowState",,miscb%
�  !pb%=savewin%
�/  pb%!4=miscb%!4+(miscb%!12-miscb%!4)/2-122
�.  pb%!8=miscb%!8+(miscb%!16-miscb%!8)/2-86
�  pb%!12=pb%!4+246
�  pb%!16=pb%!8+168
�  pb%!28=-1
�  ș "Wimp_OpenWindow",,pb%
� � 2:� 'No' to save?
�  ș "Wimp_CreateMenu",,-1
�  !pb%=showwin%
   ș "Wimp_CloseWindow",,pb%

  �openparent(openpar%)
  sprex%=�
)  ș "Wimp_SlotSize",originalslot%,-1
( �
2�
<�
F
P� �magstring(one%,two%)
Z,� one%<>0 � $mag1ad%=�(�($mag1ad%)+one%)
d,� two%<>0 � $mag2ad%=�(�($mag2ad%)+two%)
n"� �($mag1ad%)<1 $mag1ad%="1":�
x&� �($mag1ad%)>999 $mag1ad%="999":�
�"� �($mag2ad%)<1 $mag2ad%="1":�
�&� �($mag2ad%)>999 $mag2ad%="999":�
��setscales
�.ș "Wimp_ForceRedraw",magwin%,72,0,200,290
��adjustwindowsize
��updatesprite
��
�
�� �setscales
�!zoom%=!magt%*�($mag1ad%)
�zoom%!4=magt%!4*�($mag1ad%)
�zoom%!8=magt%!8*�($mag2ad%)
�!zoom%!12=magt%!12*�($mag2ad%)
�

� �dragend(b%)
"� dx%,dy%,dw%,di%
,$ș "Wimp_GetPointerInfo",,miscb%
6dx%=!miscb%
@dy%=miscb%!4
Jdw%=miscb%!12
Tdi%=miscb%!16
^+!miscb%=44+(�($outfilenamead%) � 4*4)+4
hmiscb%!12=0
rmiscb%!16=1
|miscb%!20=dw%
�miscb%!24=di%
�miscb%!28=dx%
�miscb%!32=dy%
�$miscb%!36=(filesize% � 4)*4+1024
�miscb%!40=&FF9
� $(miscb%+44)=$outfilenamead%
�+ș "Wimp_SendMessage",17,miscb%,dw%,di%
�myref%=miscb%!8
�ș "Wimp_CreateMenu",-1
�� closing% �
� �openparent(openpar%)
� !miscb%=savewin%
�" ș "Wimp_CloseWindow",,miscb%
 !miscb%=showwin%
" ș "Wimp_CloseWindow",,miscb%
�
&�
0
:� �datasaveack(b%)
D� b%!12=myref% �
N � b%!36<>-1 saved%=�
X( ș "OS_SpriteOp",&10C,ram%,$(b%+44)
b b%!12=b%!8
l b%!16=3
v% ș "Wimp_SendMessage",18,b%,b%!4
��
��
�
�� �handlekey(b%)
�mine%=�
�Ȏ !b% �
�
� parwin%
� Ȏ b%!24 �
�	 � 13
�  Ȏ b%!4 �
�@  � 0,1,2,3:ș "Wimp_SetCaretPosition",parwin%,b%!4+1,,,-1,1
�6  � 4:ș "Wimp_SetCaretPosition",parwin%,22,,,-1,1
�
  � 22
   !miscb%=parwin%
   ș "Wimp_CreateMenu",-1
$   ș "Wimp_CloseWindow",,miscb%
   �
* mine%=�
4
� &18E
> Ȏ b%!4 �
H? � 0,1,2,3:ș "Wimp_SetCaretPosition",parwin%,b%!4+1,,,-1,1
R5 � 4:ș "Wimp_SetCaretPosition",parwin%,22,,,-1,1
\5 � 22:ș "Wimp_SetCaretPosition",parwin%,0,,,-1,1
f �
p mine%=�
z
� &18F
� Ȏ b%!4 �
�5 � 0:ș "Wimp_SetCaretPosition",parwin%,22,,,-1,1
�4 � 1:ș "Wimp_SetCaretPosition",parwin%,0,,,-1,1
�= � 2,3,4:ș "Wimp_SetCaretPosition",parwin%,b%!4-1,,,-1,1
�5 � 22:ș "Wimp_SetCaretPosition",parwin%,4,,,-1,1
� �
� mine%=�
��
�� savewin%
� Ȏ b%!24 �
�	 � 13
�  �savesprite
�  ș "Wimp_CreateMenu",-1

  mine%=�
 �

� magwin%
$ Ȏ b%!24 �
. � &18E,&18F
8  Ȏ b%!4 �
B?  � 0:ș "Wimp_SetCaretPosition",magwin%,1,,,-1,�($mag2ad%)
L?  � 1:ș "Wimp_SetCaretPosition",magwin%,0,,,-1,�($mag1ad%)
V  �
`	 � 13
j  Ȏ b%!4 �
t?  � 0:ș "Wimp_SetCaretPosition",magwin%,1,,,-1,�($mag2ad%)
~?  � 1:ș "Wimp_SetCaretPosition",magwin%,0,,,-1,�($mag1ad%)
�  �
�  �magstring(0,0)
�  �adjustwindowsize
� �
�  ș "Wimp_ProcessKey",b%!24
��
�(� mine%=� ș "Wimp_ProcessKey",b%!24
��
�
�� �message(b%)
�Ȏ b%!16 �
�� 0:�shutdown
� 1:�datasave(b%)

� 2:�datasaveack(b%)
� 3:�filecoming(b%)
� 6:�ramfetch(b%)
(� 7:� PROCramtransmit(b%)
2F� No incoming RAM transfers - it's a bit awkward so I just use the
<F� scrapfile system instead - OK as long as you've got a hard disc!
F"� 9:�modechanged:�updatesprite
P� &502:�sendhelp(b%)
Z� &400C1:�modechanged
d0� &400C5:� b%!24=taskhandle% �slothandle(b%)
n�
x�
�
�� �datasave(b%)
�!� b%!20=-2 � b%!24=iconbar% �
� !b%=60
� b%!12=b%!8
� b%!16=2
�
 b%!36=-1
� $(b%+44)="<Wimp$Scrap>"
� b%?56=0
�% ș "Wimp_SendMessage",17,b%,b%!4
� scrappy%=�
��
��

� �filecoming(b%)

� fsi$
"5� (b%!40=&2000) � 42,"Can't process applications"
,� b%!20<>-2 �
6Ȏ b%!24 �
@� iconbar%
J �stripexcess
T infilename$=$(b%+44)
^ � � scrappy% �
h  pos%=�(infilename$)
r)  ȕ �infilename$,pos%,1)<>"." � pos%
|   pos%-=1
�  �
�&  � pos%=0 � pos%=�(infilename$)-1
�*  $outfilenamead%=�infilename$,pos%+1)
� �
�  $outfilenamead%="Output"
� �
�1 � $modead%="" � mode$="12 " � mode$=$modead%
� � �$x1ad%<1 $x1ad%="1"
� � �$x2ad%<1 $x2ad%="1"
� � �$y1ad%<1 $y1ad%="1"
� � �$y2ad%<1 $y2ad%="1"
� � �selected(5) �
�  scale$=" = "
 �
8  scale$=" "+$x1ad%+":"+$x2ad%+" "+$y1ad%+":"+$y2ad%
 �
& option$=" "
0) � �selected(11) � option$+="-range "
:) � �selected(12) � option$+="-equal "
D( � �selected(13) � option$+="-info "
N* � �selected(14) � option$+="-invert "
X8 � �selected(15) � option$+="-sharpen"+$(sharpenad%)
b) � �selected(23) � option$+="-hflip "
l) � �selected(24) � option$+="-vflip "
v+ � �selected(25) � option$+="-noscale "
�! � �selected(27) mode$="AIM "
�I fsi$="ChangeFSI "+infilename$+" null "+mode$+outmode$+scale$+option$
�( ș "Wimp_SlotSize",originalslot%,-1
� nextlocation%=�
� spritebefore%=sprex%
� !miscb%=parwin%
� miscb%!4=16
�# ș "Wimp_GetIconState",,miscb%
�, � miscb%!24 � 1<<21 ș "Wimp_SetMode",0
�
 info$=""
� range$=""
�: done%=�ChangeFSI(fsi$,-1,-1,nextlocation%,0,0,ram%,0)
�D � done%=100 � 42,"Histogram equalization of image not possible"
 filesize%=(ram%!12)-4
$ � info$<>"" � $srcinfoad%=info$
& � range$<>"" � $rnginfoad%=range$
 8 � The next two lines mark the files as being closed
*	 c%=0
4
 cc%=0
> � scrappy% �
H  � "Remove "+infilename$
Rb  � I'm not taking any chances - someone might have changed Wimp$Scrap while I wasn't looking!
\  scrappy%=�
f �
p" � mode$="AIM " � �aimhandle:�
z
 sprex%=�
�
 saved%=�
� � �=oldmode% �
�  �modechanged
� �
�   ș "Wimp_SetMode",oldmode%
� �
� �setupsprite
� !showwinb=ram%
� showwinb!4=ram%+16
� showwinb!8=0
� showwinb!16=zoom%
� !rdb=showwin%
� �magstring(0,0)
 !miscb%=showwin%
! miscb%!4=rightscr%/2-sprx%/2
" miscb%!12=rightscr%/2+sprx%/2
$ miscb%!8=topscr%/2-spry%/2
.  miscb%!16=topscr%/2+spry%/2
8 miscb%!28=-1
B! ș "Wimp_OpenWindow",,miscb%
L � spritebefore% �
V%  ș "Wimp_GetWindowInfo",,miscb%
`$  miscb%!8=-(miscb%!16-miscb%!8)
j"  miscb%!12=miscb%!12-miscb%!4
t  miscb%!4=0
~  miscb%!16=0
�,  ș "Wimp_UpdateWindow",,miscb% � more%
�  x0%=miscb%!4-miscb%!20
�  y0%=miscb%!16-miscb%!24
�  ȕ more%
�$   miscb%!28-=x0%:miscb%!32-=y0%
�$   miscb%!36-=x0%:miscb%!40-=y0%
�   ȑ x0%,y0%
�   �
�D   ș "OS_SpriteOp",&134,ram%,oname$,0,-spry%,8,zoom%,spritepal%
�
   ȑ 0,0
�-   ș "Wimp_GetRectangle",,miscb% � more%
�  �
 �

�
�

(� �stripexcess
2
� pos%
<
pos%=1
Fȕ �$(b%+44),pos%,1)<>�0
P pos%+=1
Z�
d?(b%+43+pos%)=13
n�
x
�� �selected(icon%)
�!miscb%=parwin%
�miscb%!4=icon%
�"ș "Wimp_GetIconState",,miscb%
�!� miscb%!24 � 1<<21 � =1 � =0
�
� � �seticon(iconh%,selected%)
� � selected%<>0 � selected%=1
�!miscb%=parwin%
�miscb%!4=iconh%
�miscb%!8=selected%<<21
�miscb%!12=1<<21
�"ș "Wimp_SetIconState",,miscb%
�

� �ramfetch(b%)
"G� This probably won't work if the receiver's buffer is smaller than
,=� the data being sent. Should be fixed on later versions.
6 � Sorry if this matters - RH
@� b%!24<filesize% �
J transend%=ram%+b%!24
T�
^ transend%=ram%+filesize%
h�
r$� b%!36=-1 � saved%=� � saved%=�
|Gș "Wimp_TransferBlock",taskhandle%,ram%+4,b%!4,b%!20,filesize%+128
�b%!12=b%!8
�b%!16=7
�b%!24=filesize%
�$ș "Wimp_SendMessage",18,b%,b%!4
�� closing% �
�( ș "Wimp_SlotSize",originalslot%,-1
�
 sprex%=�
��
��
�
�� �ramtransmit(b%)
��
�
� �setupsprite
@ș "OS_SpriteOp",&128,ram%,oname$ � ,,,sx%,sy%,spmask%,spmd%
$sprnamead%=oname$
&$sprmodead%=�spmd%
0Ȏ spmask% �
:� 0:$sprmaskad%="No"
D� 1:$sprmaskad%="Yes"
N�
X$sprwidtad%=�sx%
b/ș "OS_SpriteOp",&118,ram%,oname$ � ,,sptr%
l� sptr%!32=44 �
v $sprpalead%="No"
��
� $sprpalead%="Yes"
��
�$sprbytead%=�(!sptr%)
�$sprheigad%=�sy%
�$sprwidtad%=�sx%
��
�
�� �adjustwindowsize
�3ș "OS_ReadModeVariable",spmd%,4 � ,,sprxshift%
�sprx%=sx%<<sprxshift%
�'sprx%=sprx%*�($mag1ad%)/�($mag2ad%)
�3ș "OS_ReadModeVariable",spmd%,5 � ,,spryshift%
spry%=sy%<<spryshift%
'spry%=spry%*�($mag1ad%)/�($mag2ad%)
showwinb!12=-spry%
 
!miscb%=0
*miscb%!4=-spry%
4miscb%!8=sprx%
>miscb%!12=0
H'ș "Wimp_SetExtent",showwin%,miscb%
R!miscb%=showwin%
\$ș "Wimp_GetWindowState",,miscb%
fmiscb%!8=miscb%!16-spry%
pmiscb%!12=miscb%!4+sprx%
z� miscb%!4<0 miscb%!4=0
�+� miscb%!8>rightscr% miscb%!8=rightscr%
� ș "Wimp_OpenWindow",,miscb%
��
�
�� �modechanged
�oldmode%=�
�1ș "OS_ReadModeVariable",-1,4 � ,,modexshift%
�1ș "OS_ReadModeVariable",-1,5 � ,,modeyshift%
�0ș "OS_ReadModeVariable",-1,11 � ,,rightscr%
�.ș "OS_ReadModeVariable",-1,12 � ,,topscr%
�$rightscr%=rightscr%<<modexshift%
� topscr%=topscr%<<modeyshift%
�� sprex% �
) � sptr%,spmd%,paltemp%,grab%,palptr%
< ș "Wimp_ReadPixTrans",&100,ram%,oname$,,,,magt%,miscb%
 �setscales
$0 ș "OS_SpriteOp",&118,ram%,oname$ � ,,sptr%
. spmd%=sptr%!40
8 � sptr%!32=44 �
B  palptr%=0
L �
V  � paltemp% 256
`  � grab%=0 � 164 � 8
j*   paltemp%!(grab%/2)=sptr%!(grab%+44)
t  �
~  palptr%=paltemp%
� �
�@ ș "ColourTrans_SelectTable",spmd%,palptr%,-1,-1,spritepal%
� showwinb!20=spritepal%
��
� � sprex%=� �adjustwindowsize
��
�
�� �updatesprite
�� � sprex% �
�K!miscb%=showwin%:miscb%!4=0:miscb%!8=-spry%:miscb%!12=sprx%:miscb%!16=0
�*ș "Wimp_UpdateWindow",,miscb% � more%
�x0%=miscb%!4-miscb%!20
y0%=miscb%!16-miscb%!24

ȕ more%
" miscb%!28-=x0%:miscb%!32-=y0%
" miscb%!36-=x0%:miscb%!40-=y0%
( ȑ x0%,y0%
2B ș "OS_SpriteOp",&134,ram%,oname$,0,-spry%,8,zoom%,spritepal%
< ȑ 0,0
F+ ș "Wimp_GetRectangle",,miscb% � more%
P�
Z�
d
n� �sendhelp(b%)
x0help$="This window belongs to ChangeFSI."+�0
�Ȏ b%!32 �
��� -2:help$="This is the ChangeFSI icon.|MDrag a file onto it to process it with ChangeFSI.|MClick SELECT to adjust the parameters for ChangeFSI."
�
� parwin%
� Ȏ b%!36 �
�7 � 0:help$="Enter the output mode to be used here."
� � 1,2,3,4
�  Ȏ b%!36 �
�-  � 1:help$="This is the x output ratio."
�,  � 2:help$="This is the x input ratio."
�-  � 3:help$="This is the y output ratio."
�,  � 4:help$="This is the y input ratio."
�  �
�G  help$+="|MSet the scaling ratios as you would in Paint and Draw."
M � 5:help$="Select this icon to scale the output to fit the output mode."
G � 6:help$="Select this icon to use the scale ratios in the boxes."
6 � 7:help$="Select this icon for standard output."
"o � 8:help$="Select this icon for 2 or 4 bit colour, or for clustered dithering in one bit per pixel modes."
,9 � 9:help$="Select this icon for digital RGB output."
6q � 10:help$="Select this icon for no tinting in 256 colour modes, or sixteen grey levels in 16 colour modes."
@M � 11:help$="Select this icon to expand the dynamic range of the source."
JQ � 12:help$="Select this icon to apply histogram equalisation to the source."
TI � 13:help$="Select this icon for information on the source picture."
^J � 14:help$="Select this icon to invert the source before processing."
h= � 15:help$="Select this icon to pre-sharpen the source."
r� � 16:help$="Select this icon to process in Mode 0.|MThis will speed things up, especially if you are in a high-resolution mode for viewing the output."
|\ � 22:help$="Enter the value for sharpening here, in the range 8-31 (31=soft, 8=harsh)."
�B � 23:help$="Select this icon to flip the image horizontally."
�@ � 24:help$="Select this icon to flip the image vertically."
�X � 25:help$="Select this icon to process the image without automatic pixel scaling."
�l � 27:help$="Select this icon to produce a file suitable for use with the AIM image processing package."
� �
��
�!!miscb%=20+(�(help$) � 4*4)+4
�miscb%!8=-1
�miscb%!12=b%!8
�miscb%!16=&503
�$(miscb%+20)=help$
�%ș "Wimp_SendMessage",17,miscb%,0
��
 
 � �slothandle(b%)
 b%!12=b%!8
 &$ș "Wimp_SendMessage",19,b%,b%!4
 0� sprex% �
 :&� b%!20<=loadend% � b%!20=loadend%
 D%�=loadend%+(b%!20-loadend%)+32768
 Noriginalslot%=b%!20
 X
� �tV@
 bH� *************************** An apology ***************************
 lH� *                           ----------                           *
 vH� * The GOTO here has to be used because Basic 1.04 can't change   *
 �H� * the value of end within a PROCedure. Later versions of Basic   *
 �H� * can do this, but they aren't available for release, so you're  *
 �H� * stuck with GOTO for now. I would normally never use it, so no  *
 �H� * spreading rumours about bad structure please!                  *
 �H� ******************************************************************
 ��
 �
 �� �savesprite
 �T� �$outfilenamead%,".")=0 � � 42,"To save, drag the icon to a directory viewer."
 �.ș "OS_SpriteOp",&10C,ram%,$outfilenamead%
 �saved%=�
 ��
 �
!� �installonbar
!!pb%=-1
!pb%!4=0
! pb%!8=0
!*
pb%!12=68
!4
pb%!16=68
!>pb%!20=%10 � %10<<12
!H$(pb%+24)="!ChangeFSI"
!R(ș "Wimp_CreateIcon",,pb% � iconbar%
!\�
!f
!p� �gst(block%,handle%)
!z!block%=handle%
!�$ș "Wimp_GetWindowState",,block%
!��
!�
!�� �open(block%,handle%)
!��gst(block%,handle%)
!�=block%!32 � 1<<16
!�
!�&� �createmenu(level%,text$,width%)
!�I� newtext$,title$,ptr%,shade%,tick%,dotted%,submenu%,writable%,rjust%
!�� level%=0 �
!� longpointer%=longitems%
!� mb%=menub%
!�� mb%+=200
"�
" title$=�text$,�text$,"|")-1)
"text$=�text$,�text$,"|")+1)
"$$mb%=�title$,11)
".mb%?12=7
"8mb%?13=2
"Bmb%?14=7
"Lmb%?15=0
"Vmb%!16=width%
"`
mb%!20=44
"jmb%!24=0
"t� �text$,1)<>"|" text$+="|"
"~ptr%=mb%+28
"��
"�@ shade%=0:tick%=0:dotted%=0:writable%=0:rjust%=0:submenu%=-1
"� ȕ �"<>:*'�#",�text$,1))
"�  Ȏ �text$,1) �
"�  � "<"
"�   shade%=&400000
"�   text$=�text$,2)
"�  � ">"
"�   tick%=1
"�   text$=�text$,2)
"�  � ":"
"�   dotted%=2
#   text$=�text$,2)
#
  � "*"
#   writable%=4
#   text$=�text$,2)
#(  � "'"
#2   text$=�text$,2)
#<,   newtext$=�(��text$,5),�text$,"'")-1))
#F   width%=�(�text$,4))
#P"   text$=�text$,�text$,"'")+1)
#Z5   submenu%=�createmenu(level%+1,newtext$,width%)
#d  � "�"
#n   submenu%=�(�text$,2,4))
#x   text$=�text$,�(text$)-5)
#�  � "#"
#�   rjust%=1
#�   text$=�text$,2)
#�  �
#� �
#� � writable% �
#�  i%=�text$,",")
#�  ptr%!12=�(�text$,i%-1))
#�  text$=�text$,i%+1)
#�  ptr%!16=-1
#�$  ptr%!20=�(�text$,�text$,"|")))
#� �
#�%  � �(�text$,�text$,"|")-1))>11 �
$   long%=1
$.   $longpointer%=�text$,�text$,"|")-1)+�13
$   ptr%!12=longpointer%
$"   ptr%!16=&FFFFFFFF
$,+   ptr%!20=�(�text$,�text$,"|")-1)+�13)
$61   longpointer%+=�(�text$,�text$,"|")-1)+�13)
$@F   � longpointer%>longitems%+longsp% � 0,"Menu workspace exceeded"
$J  �
$T   long%=0
$^,   $(ptr%+12)=��text$,�text$,"|")-1),11)
$h  �
$r �
$|  text$=�text$,�text$,"|")+1)
$�; !ptr%=tick% � dotted% � writable% � (&80 � (text$=""))
$� ptr%!4=submenu%
$�J ptr%!8=shade% � writable%<<6 � long%<<8 � &010021 � rjust%<<9 � 7<<24
$�
 ptr%+=24
$�� text$=""
$�?� level%=0 ș "Wimp_CreateMenu",0,menub%,mousex%-64,mousey%
$�=mb%
$�
$�� �menuselect(b%)
$�
� adjust%
$�%ș "Wimp_GetPointerInfo",,mouseb%
$�adjust%=mouseb%!8 � 1
$�Ȏ mentype% �
%� 0
%
 Ȏ !b% �
%3 � 0,1:� Selecting info/options is nonsensical!
%& � 2:�savechoices
%0 � 3:�shutdown
%: �
%D� 1
%N
 Ȏ !b% �
%X4 � I don't like saving with only the leafname...
%b �
%l�
%v� adjust% � � close% �
%� Ȏ mentype% �
%�i � 0:menu%=�createmenu(0,"ChangeFSI|�"+�aboutwin%+"Info|�"+�parwin%+"Choices|Save choices|Quit|",202)
%� � 1
%�+  � info$="" � shade0$="<" � shade0$=""
%�,  � range$="" � shade1$="<" � shade1$=""
%��  menu%=�createmenu(0,"ChangeFSI|�"+�sprinfowin%+"Image info|"+shade0$+"�"+�srcinfowin%+"Source info|"+shade1$+"�"+�rnginfowin%+"Range info|�"+�magwin%+"Zoom|�"+�savewin%+"Save sprite|",202)
%� �
%��
%��
%�
%�� �savechoices
%�&outc%=�("<ChangeFSI$Dir>.Choices")
%��#outc%,�$modead%
&�#outc%,$x1ad%
&�#outc%,$y1ad%
&�#outc%,$x2ad%
& �#outc%,$y2ad%
&*Ȏ outmode$ �
&4� " ":outset%=0
&>� "C":outset%=1
&H� "D":outset%=2
&R� "T":outset%=3
&\�
&f��#outc%,outset% � �selected(11)<<2 � �selected(12)<<3 � �selected(13)<<4 � �selected(14)<<5 � �selected(15)<<6 � �selected(16)<<7
&pd�#outc%,�selected(5) � �selected(23)<<1 � �selected(24)<<2 � �selected(25)<<3 � �selected(26)<<4
&z�#outc%,�($sharpenad%)
&��#outc%
&��
&�
&�� �error(arg%)
&��closeopen(c%)
&��closeopen(cc%)
&�,� �<>oldmode% ș "Wimp_SetMode",oldmode%
&�
!miscb%=0
&�
Ȏ � �
&�� 11
&� � debug% �
&�
 flags%=2
&�8 $(miscb%+4)="It's fallen over at line "+�(�)+" "+�$
'�
'
 flags%=1
'f $(miscb%+4)="Cannot claim enough memory to process image - please increase slotsize of ChangeFSI"
'$�
'.'ș "Wimp_SlotSize",originalslot%,-1
'8%� 42:� A non fatal internal error
'B
 flags%=1
'L $(miscb%+4)=�$
'V� 223,183:� File problems
'`
 flags%=1
'j* $(miscb%+4)="Unexpected end of file."
't� &108D6:� 'Not found'
'~< $(miscb%+4)="Directory not found - could not save file"
'�
 flags%=1
'�
'�" $(miscb%+4)=�$+" at line "+Þ
'�
 flags%=2
'��
'�@ș "Wimp_ReportError",miscb%,flags%,"ChangeFSI" � ,response%
'�&� arg%=0 � response%=2 �shutdown:�
'��
'�
'�� �closeopen(handle%)
'�� handle% �#handle%
'��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 36 f4 20 44  65 73 63 72 69 70 74 69  |e...6. Descripti|
00000020  6f 6e 20 20 20 20 3a 20  44 65 73 6b 74 6f 70 20  |on    : Desktop |
00000030  66 72 6f 6e 74 20 65 6e  64 20 66 6f 72 20 43 68  |front end for Ch|
00000040  61 6e 67 65 46 53 49 0d  00 1e 3f f4 20 41 75 74  |angeFSI...?. Aut|
00000050  68 6f 72 20 20 20 20 20  20 20 20 20 3a 20 52 6f  |hor         : Ro|
00000060  67 65 72 20 57 69 6c 73  6f 6e 20 28 69 6d 61 67  |ger Wilson (imag|
00000070  65 20 70 72 6f 63 65 73  73 69 6e 67 20 72 6f 75  |e processing rou|
00000080  74 69 6e 65 73 29 0d 00  28 34 f4 20 41 75 74 68  |tines)..(4. Auth|
00000090  6f 72 20 20 20 20 20 20  20 20 20 3a 20 52 6f 62  |or         : Rob|
000000a0  65 72 74 20 57 20 48 61  6d 69 6c 74 6f 6e 20 28  |ert W Hamilton (|
000000b0  66 72 6f 6e 74 20 65 6e  64 29 0d 00 32 1f f4 20  |front end)..2.. |
000000c0  43 72 65 61 74 65 64 20  20 20 20 20 20 20 20 3a  |Created        :|
000000d0  20 31 34 2f 31 30 2f 38  39 0d 00 3c 1f f4 20 4c  | 14/10/89..<.. L|
000000e0  61 73 74 20 55 70 64 61  74 65 64 20 20 20 3a 20  |ast Updated   : |
000000f0  30 32 2f 30 31 2f 38 39  0d 00 46 50 f4 20 54 68  |02/01/89..FP. Th|
00000100  69 73 20 76 65 72 73 69  6f 6e 20 6f 66 20 43 68  |is version of Ch|
00000110  61 6e 67 65 46 53 49 20  57 69 6d 70 20 46 72 6f  |angeFSI Wimp Fro|
00000120  6e 74 20 45 6e 64 20 69  6e 74 65 72 66 61 63 65  |nt End interface|
00000130  73 20 77 69 74 68 20 61  20 6c 69 62 72 61 72 79  |s with a library|
00000140  20 76 65 72 73 69 6f 6e  0d 00 50 45 f4 20 54 68  | version..PE. Th|
00000150  61 6e 6b 73 20 61 72 65  20 64 75 65 20 74 6f 20  |anks are due to |
00000160  52 6f 67 65 72 20 57 69  6c 73 6f 6e 20 66 6f 72  |Roger Wilson for|
00000170  20 68 69 73 20 68 65 6c  70 20 64 75 72 69 6e 67  | his help during|
00000180  20 74 68 69 73 20 70 72  6f 6a 65 63 74 0d 00 5a  | this project..Z|
00000190  14 c8 9b 20 22 25 2e 43  68 61 6e 67 65 46 53 49  |... "%.ChangeFSI|
000001a0  22 0d 00 64 0c 64 65 62  75 67 25 3d a3 0d 00 6e  |"..d.debug%=...n|
000001b0  17 ee 20 85 20 ee 20 85  20 87 3a f2 65 72 72 6f  |.. . . . .:.erro|
000001c0  72 28 30 29 0d 00 78 21  76 65 72 73 69 6f 6e 24  |r(0)..x!version$|
000001d0  3d 22 31 2e 31 36 20 28  31 39 2d 4a 61 6e 2d 31  |="1.16 (19-Jan-1|
000001e0  39 39 30 29 22 0d 00 82  09 f2 69 6e 69 74 0d 00  |990)".....init..|
000001f0  8c 11 ee 20 85 20 f2 65  72 72 6f 72 28 31 29 0d  |... . .error(1).|
00000200  00 96 05 f5 0d 00 a0 2a  c8 99 20 22 57 69 6d 70  |.......*.. "Wimp|
00000210  5f 50 6f 6c 6c 22 2c 70  6f 6c 6c 6d 61 73 6b 25  |_Poll",pollmask%|
00000220  2c 70 62 25 20 b8 20 72  65 61 73 6f 6e 25 0d 00  |,pb% . reason%..|
00000230  aa 1d f2 77 69 6d 70 73  65 72 76 69 63 65 28 72  |...wimpservice(r|
00000240  65 61 73 6f 6e 25 2c 70  62 25 29 0d 00 b4 07 fd  |eason%,pb%).....|
00000250  20 a3 0d 00 be 05 e0 0d  00 c8 0b dd 20 f2 69 6e  | ........... .in|
00000260  69 74 0d 00 d2 0c f2 73  65 74 76 61 72 73 0d 00  |it.....setvars..|
00000270  dc 26 74 61 73 6b 68 61  6e 64 6c 65 25 3d a4 74  |.&taskhandle%=.t|
00000280  61 73 6b 69 6e 69 74 28  22 43 68 61 6e 67 65 46  |askinit("ChangeF|
00000290  53 49 22 29 0d 00 e6 11  f2 73 65 74 75 70 77 69  |SI").....setupwi|
000002a0  6e 64 6f 77 73 0d 00 f0  0f f2 67 65 74 63 68 6f  |ndows.....getcho|
000002b0  69 63 65 73 0d 00 fa 11  f2 69 6e 73 74 61 6c 6c  |ices.....install|
000002c0  6f 6e 62 61 72 0d 01 04  28 c8 99 20 22 57 69 6d  |onbar...(.. "Wim|
000002d0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
000002e0  31 20 b8 20 6c 6f 61 64  73 6c 6f 74 25 0d 01 0e  |1 . loadslot%...|
000002f0  1b 6f 72 69 67 69 6e 61  6c 73 6c 6f 74 25 3d 6c  |.originalslot%=l|
00000300  6f 61 64 73 6c 6f 74 25  0d 01 18 10 6c 6f 61 64  |oadslot%....load|
00000310  68 69 6d 65 6d 25 3d 93  0d 01 22 2f 6c 6f 61 64  |himem%=..."/load|
00000320  68 69 6d 65 6d 25 3d 28  6c 6f 61 64 68 69 6d 65  |himem%=(loadhime|
00000330  6d 25 20 81 20 26 31 30  30 30 29 2a 26 31 30 30  |m% . &1000)*&100|
00000340  30 2b 26 31 30 30 30 0d  01 2c 0e 6c 6f 61 64 65  |0+&1000..,.loade|
00000350  6e 64 25 3d e0 0d 01 36  2b 6c 6f 61 64 65 6e 64  |nd%=...6+loadend|
00000360  25 3d 28 6c 6f 61 64 65  6e 64 25 20 81 20 26 31  |%=(loadend% . &1|
00000370  30 30 30 29 2a 26 31 30  30 30 2b 26 31 30 30 30  |000)*&1000+&1000|
00000380  0d 01 40 10 f2 6d 6f 64  65 63 68 61 6e 67 65 64  |..@..modechanged|
00000390  0d 01 4a 0d f2 61 73 73  65 6d 62 6c 65 0d 01 54  |..J..assemble..T|
000003a0  05 e1 0d 01 5e 04 0d 01  68 0e dd 20 f2 73 65 74  |....^...h.. .set|
000003b0  76 61 72 73 0d 01 72 10  6c 6f 6e 67 73 70 25 3d  |vars..r.longsp%=|
000003c0  31 30 30 30 0d 01 7c 7a  de 20 62 6c 6f 63 6b 25  |1000..|z. block%|
000003d0  20 34 2c 70 62 25 20 32  30 34 38 2c 69 63 6f 6e  | 4,pb% 2048,icon|
000003e0  73 70 25 20 32 30 34 38  2c 6d 6f 75 73 65 62 25  |sp% 2048,mouseb%|
000003f0  20 32 30 2c 6d 65 6e 75  62 25 20 31 30 30 30 2c  | 20,menub% 1000,|
00000400  6c 6f 6e 67 69 74 65 6d  73 25 20 6c 6f 6e 67 73  |longitems% longs|
00000410  70 25 2c 6d 69 73 63 62  25 20 35 31 32 2c 6d 61  |p%,miscb% 512,ma|
00000420  67 74 25 20 31 36 2c 7a  6f 6f 6d 25 20 31 36 2c  |gt% 16,zoom% 16,|
00000430  73 70 72 69 74 65 70 61  6c 25 20 32 35 36 0d 01  |spritepal% 256..|
00000440  86 15 70 6f 6c 6c 6d 61  73 6b 25 3d 25 31 31 30  |..pollmask%=%110|
00000450  30 30 31 0d 01 90 12 24  62 6c 6f 63 6b 25 3d 22  |001....$block%="|
00000460  54 41 53 4b 22 0d 01 9a  11 77 6b 73 70 25 3d 69  |TASK"....wksp%=i|
00000470  63 6f 6e 73 70 25 0d 01  a4 16 73 70 6e 64 25 3d  |consp%....spnd%=|
00000480  69 63 6f 6e 73 70 25 2b  32 30 34 38 0d 01 ae 0c  |iconsp%+2048....|
00000490  63 6c 6f 73 65 25 3d a3  0d 01 b8 0c 73 70 72 65  |close%=.....spre|
000004a0  78 25 3d a3 0d 01 c2 0e  73 63 72 61 70 70 79 25  |x%=.....scrappy%|
000004b0  3d a3 0d 01 cc 0e 6f 6c  64 6d 6f 64 65 25 3d eb  |=.....oldmode%=.|
000004c0  0d 01 d6 08 63 25 3d 30  0d 01 e0 09 63 63 25 3d  |....c%=0....cc%=|
000004d0  30 0d 01 ea 2b 21 7a 6f  6f 6d 25 3d 31 3a 7a 6f  |0...+!zoom%=1:zo|
000004e0  6f 6d 25 21 34 3d 31 3a  7a 6f 6f 6d 25 21 38 3d  |om%!4=1:zoom%!8=|
000004f0  31 3a 7a 6f 6f 6d 25 21  31 32 3d 31 0d 01 f4 0e  |1:zoom%!12=1....|
00000500  63 6c 6f 73 69 6e 67 25  3d a3 0d 01 fe 05 e1 0d  |closing%=.......|
00000510  02 08 04 0d 02 12 16 dd  20 a4 74 61 73 6b 69 6e  |........ .taskin|
00000520  69 74 28 74 61 73 6b 24  29 0d 02 1c 38 c8 99 22  |it(task$)...8.."|
00000530  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000540  2c 32 30 30 2c 21 62 6c  6f 63 6b 25 2c 74 61 73  |,200,!block%,tas|
00000550  6b 24 20 b8 20 2c 74 61  73 6b 68 61 6e 64 6c 65  |k$ . ,taskhandle|
00000560  25 0d 02 26 10 3d 74 61  73 6b 68 61 6e 64 6c 65  |%..&.=taskhandle|
00000570  25 0d 02 30 13 dd 20 f2  73 65 74 75 70 77 69 6e  |%..0.. .setupwin|
00000580  64 6f 77 73 0d 02 3a 09  ea 20 6f 73 25 0d 02 44  |dows..:.. os%..D|
00000590  37 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |7.. "Wimp_OpenTe|
000005a0  6d 70 6c 61 74 65 22 2c  2c 22 3c 43 68 61 6e 67  |mplate",,"<Chang|
000005b0  65 46 53 49 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |eFSI$Dir>.Templa|
000005c0  74 65 73 22 0d 02 4e 25  f2 6c 6f 61 64 74 65 6d  |tes"..N%.loadtem|
000005d0  70 6c 61 74 65 28 70 62  25 2c 22 50 61 72 61 6d  |plate(pb%,"Param|
000005e0  65 74 65 72 73 22 2c 30  29 0d 02 58 0e 6f 73 25  |eters",0)..X.os%|
000005f0  3d 35 31 37 2b 33 32 0d  02 62 18 6d 6f 64 65 61  |=517+32..b.modea|
00000600  64 25 3d 77 6b 73 70 25  2d 6f 73 25 2d 33 35 0d  |d%=wksp%-os%-35.|
00000610  02 6c 16 78 31 61 64 25  3d 77 6b 73 70 25 2d 6f  |.l.x1ad%=wksp%-o|
00000620  73 25 2d 32 37 0d 02 76  16 78 32 61 64 25 3d 77  |s%-27..v.x2ad%=w|
00000630  6b 73 70 25 2d 6f 73 25  2d 31 38 0d 02 80 15 79  |ksp%-os%-18....y|
00000640  31 61 64 25 3d 77 6b 73  70 25 2d 6f 73 25 2d 39  |1ad%=wksp%-os%-9|
00000650  0d 02 8a 13 79 32 61 64  25 3d 77 6b 73 70 25 2d  |....y2ad%=wksp%-|
00000660  6f 73 25 0d 02 94 18 73  68 61 72 70 65 6e 61 64  |os%....sharpenad|
00000670  25 3d 77 6b 73 70 25 2d  31 33 38 0d 02 9e 29 c8  |%=wksp%-138...).|
00000680  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000690  6e 64 6f 77 22 2c 2c 70  62 25 20 b8 20 70 61 72  |ndow",,pb% . par|
000006a0  77 69 6e 25 0d 02 a8 27  f4 20 54 68 69 73 20 77  |win%...'. This w|
000006b0  69 6c 6c 20 67 6f 20 69  6e 20 61 20 63 6f 75 70  |ill go in a coup|
000006c0  6c 65 20 6f 66 20 77 65  65 6b 73 0d 02 b2 3d f4  |le of weeks...=.|
000006d0  20 53 6f 72 72 79 2c 20  79 6f 75 27 6c 6c 20 68  | Sorry, you'll h|
000006e0  61 76 65 20 74 6f 20 75  73 65 20 74 68 65 20 43  |ave to use the C|
000006f0  4c 49 20 74 6f 20 70 72  6f 64 75 63 65 20 41 49  |LI to produce AI|
00000700  4d 20 66 69 6c 65 73 21  0d 02 bc 3c f4 20 53 65  |M files!...<. Se|
00000710  6e 64 20 6d 65 20 61 20  64 69 73 63 20 61 6e 64  |nd me a disc and|
00000720  20 72 65 74 75 72 6e 20  70 6f 73 74 61 67 65 20  | return postage |
00000730  66 6f 72 20 61 6e 20 75  70 67 72 61 64 65 20 2d  |for an upgrade -|
00000740  20 52 57 48 0d 02 c6 13  21 6d 69 73 63 62 25 3d  | RWH....!miscb%=|
00000750  70 61 72 77 69 6e 25 0d  02 d0 0f 6d 69 73 63 62  |parwin%....miscb|
00000760  25 21 34 3d 32 37 0d 02  da 12 6d 69 73 63 62 25  |%!4=27....miscb%|
00000770  21 38 3d 31 3c 3c 32 32  0d 02 e4 13 6d 69 73 63  |!8=1<<22....misc|
00000780  62 25 21 31 32 3d 31 3c  3c 32 32 0d 02 ee 22 c8  |b%!12=1<<22...".|
00000790  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
000007a0  74 61 74 65 22 2c 2c 6d  69 73 63 62 25 0d 02 f8  |tate",,miscb%...|
000007b0  22 f2 6c 6f 61 64 74 65  6d 70 6c 61 74 65 28 70  |".loadtemplate(p|
000007c0  62 25 2c 22 53 68 6f 77  57 69 6e 22 2c 30 29 0d  |b%,"ShowWin",0).|
000007d0  03 02 2a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..*.. "Wimp_Crea|
000007e0  74 65 57 69 6e 64 6f 77  22 2c 2c 70 62 25 20 b8  |teWindow",,pb% .|
000007f0  20 73 68 6f 77 77 69 6e  25 0d 03 0c 2b 70 62 25  | showwin%...+pb%|
00000800  3f 33 35 3d 26 46 46 3a  f4 20 57 68 79 20 63 61  |?35=&FF:. Why ca|
00000810  6e 27 74 20 46 6f 72 6d  45 64 20 64 6f 20 74 68  |n't FormEd do th|
00000820  61 74 3f 21 0d 03 16 24  f2 6c 6f 61 64 74 65 6d  |at?!...$.loadtem|
00000830  70 6c 61 74 65 28 70 62  25 2c 22 4d 61 67 6e 69  |plate(pb%,"Magni|
00000840  66 69 65 72 22 2c 30 29  0d 03 20 14 6d 61 67 31  |fier",0).. .mag1|
00000850  61 64 25 3d 77 6b 73 70  25 2d 33 30 0d 03 2a 10  |ad%=wksp%-30..*.|
00000860  24 6d 61 67 31 61 64 25  3d 22 31 22 0d 03 34 14  |$mag1ad%="1"..4.|
00000870  6d 61 67 32 61 64 25 3d  77 6b 73 70 25 2d 32 31  |mag2ad%=wksp%-21|
00000880  0d 03 3e 10 24 6d 61 67  32 61 64 25 3d 22 31 22  |..>.$mag2ad%="1"|
00000890  0d 03 48 29 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..H).. "Wimp_Cre|
000008a0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 70 62 25 20  |ateWindow",,pb% |
000008b0  b8 20 6d 61 67 77 69 6e  25 0d 03 52 22 f2 6c 6f  |. magwin%..R".lo|
000008c0  61 64 74 65 6d 70 6c 61  74 65 28 70 62 25 2c 22  |adtemplate(pb%,"|
000008d0  53 61 76 65 57 69 6e 22  2c 30 29 0d 03 5c 1c 6f  |SaveWin",0)..\.o|
000008e0  75 74 66 69 6c 65 6e 61  6d 65 61 64 25 3d 77 6b  |utfilenamead%=wk|
000008f0  73 70 25 2d 32 36 30 0d  03 66 2a c8 99 20 22 57  |sp%-260..f*.. "W|
00000900  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000910  22 2c 2c 70 62 25 20 b8  20 73 61 76 65 77 69 6e  |",,pb% . savewin|
00000920  25 0d 03 70 25 f2 6c 6f  61 64 74 65 6d 70 6c 61  |%..p%.loadtempla|
00000930  74 65 28 70 62 25 2c 22  53 70 72 69 74 65 49 6e  |te(pb%,"SpriteIn|
00000940  66 6f 22 2c 30 29 0d 03  7a 18 73 70 72 6e 61 6d  |fo",0)..z.sprnam|
00000950  65 61 64 25 3d 77 6b 73  70 25 2d 31 38 36 0d 03  |ead%=wksp%-186..|
00000960  84 18 73 70 72 6d 6f 64  65 61 64 25 3d 77 6b 73  |..sprmodead%=wks|
00000970  70 25 2d 31 34 36 0d 03  8e 18 73 70 72 6d 61 73  |p%-146....sprmas|
00000980  6b 61 64 25 3d 77 6b 73  70 25 2d 31 30 36 0d 03  |kad%=wksp%-106..|
00000990  98 17 73 70 72 77 69 64  74 61 64 25 3d 77 6b 73  |..sprwidtad%=wks|
000009a0  70 25 2d 36 36 0d 03 a2  17 73 70 72 62 79 74 65  |p%-66....sprbyte|
000009b0  61 64 25 3d 77 6b 73 70  25 2d 33 36 0d 03 ac 17  |ad%=wksp%-36....|
000009c0  73 70 72 70 61 6c 65 61  64 25 3d 77 6b 73 70 25  |sprpalead%=wksp%|
000009d0  2d 32 34 0d 03 b6 17 73  70 72 68 65 69 67 61 64  |-24....sprheigad|
000009e0  25 3d 77 6b 73 70 25 2d  31 32 0d 03 c0 2d c8 99  |%=wksp%-12...-..|
000009f0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000a00  64 6f 77 22 2c 2c 70 62  25 20 b8 20 73 70 72 69  |dow",,pb% . spri|
00000a10  6e 66 6f 77 69 6e 25 0d  03 ca 25 f2 6c 6f 61 64  |nfowin%...%.load|
00000a20  74 65 6d 70 6c 61 74 65  28 70 62 25 2c 22 53 6f  |template(pb%,"So|
00000a30  75 72 63 65 49 6e 66 6f  22 2c 30 29 0d 03 d4 18  |urceInfo",0)....|
00000a40  73 72 63 69 6e 66 6f 61  64 25 3d 77 6b 73 70 25  |srcinfoad%=wksp%|
00000a50  2d 32 30 34 0d 03 de 2d  c8 99 20 22 57 69 6d 70  |-204...-.. "Wimp|
00000a60  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000a70  70 62 25 20 b8 20 73 72  63 69 6e 66 6f 77 69 6e  |pb% . srcinfowin|
00000a80  25 0d 03 e8 24 f2 6c 6f  61 64 74 65 6d 70 6c 61  |%...$.loadtempla|
00000a90  74 65 28 70 62 25 2c 22  52 61 6e 67 65 49 6e 66  |te(pb%,"RangeInf|
00000aa0  6f 22 2c 30 29 0d 03 f2  18 72 6e 67 69 6e 66 6f  |o",0)....rnginfo|
00000ab0  61 64 25 3d 77 6b 73 70  25 2d 32 30 34 0d 03 fc  |ad%=wksp%-204...|
00000ac0  2d c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |-.. "Wimp_Create|
00000ad0  57 69 6e 64 6f 77 22 2c  2c 70 62 25 20 b8 20 72  |Window",,pb% . r|
00000ae0  6e 67 69 6e 66 6f 77 69  6e 25 0d 04 06 1f f2 6c  |nginfowin%.....l|
00000af0  6f 61 64 74 65 6d 70 6c  61 74 65 28 70 62 25 2c  |oadtemplate(pb%,|
00000b00  22 49 6e 66 6f 22 2c 30  29 0d 04 10 65 e7 20 24  |"Info",0)...e. $|
00000b10  28 77 6b 73 70 25 2d 35  38 29 3c 3e 22 a9 20 52  |(wksp%-58)<>". R|
00000b20  6f 62 65 72 74 20 57 20  48 61 6d 69 6c 74 6f 6e  |obert W Hamilton|
00000b30  2c 20 31 39 38 39 22 20  c8 99 22 57 69 6d 70 5f  |, 1989" .."Wimp_|
00000b40  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 3a 85  |CloseTemplate":.|
00000b50  20 30 2c 22 53 6f 66 74  77 61 72 65 20 70 69 72  | 0,"Software pir|
00000b60  61 63 79 20 73 75 73 70  65 63 74 65 64 22 0d 04  |acy suspected"..|
00000b70  1a 18 24 28 77 6b 73 70  25 2d 33 30 29 3d 76 65  |..$(wksp%-30)=ve|
00000b80  72 73 69 6f 6e 24 0d 04  24 2b c8 99 20 22 57 69  |rsion$..$+.. "Wi|
00000b90  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000ba0  2c 2c 70 62 25 20 b8 20  61 62 6f 75 74 77 69 6e  |,,pb% . aboutwin|
00000bb0  25 0d 04 2e 20 f2 6c 6f  61 64 74 65 6d 70 6c 61  |%... .loadtempla|
00000bc0  74 65 28 70 62 25 2c 22  51 75 65 72 79 22 2c 30  |te(pb%,"Query",0|
00000bd0  29 0d 04 38 16 71 75 65  72 79 61 64 25 3d 77 6b  |)..8.queryad%=wk|
00000be0  73 70 25 2d 32 36 30 0d  04 42 2b c8 99 20 22 57  |sp%-260..B+.. "W|
00000bf0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000c00  22 2c 2c 70 62 25 20 b8  20 71 75 65 72 79 77 69  |",,pb% . querywi|
00000c10  6e 25 0d 04 4c 1a c8 99  22 57 69 6d 70 5f 43 6c  |n%..L..."Wimp_Cl|
00000c20  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 04 56 05  |oseTemplate"..V.|
00000c30  e1 0d 04 60 04 0d 04 6a  2e dd 20 f2 6c 6f 61 64  |...`...j.. .load|
00000c40  74 65 6d 70 6c 61 74 65  28 74 65 6d 70 62 75 66  |template(tempbuf|
00000c50  66 25 2c 74 65 6d 70 6e  61 6d 65 24 2c 66 72 6f  |f%,tempname$,fro|
00000c60  6d 25 29 0d 04 74 58 c8  99 20 22 57 69 6d 70 5f  |m%)..tX.. "Wimp_|
00000c70  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 74  |LoadTemplate",,t|
00000c80  65 6d 70 62 75 66 66 25  2c 77 6b 73 70 25 2c 73  |empbuff%,wksp%,s|
00000c90  70 6e 64 25 2c 2d 31 2c  74 65 6d 70 6e 61 6d 65  |pnd%,-1,tempname|
00000ca0  24 2c 66 72 6f 6d 25 20  b8 20 2c 2c 77 6b 73 70  |$,from% . ,,wksp|
00000cb0  25 2c 2c 2c 2c 66 6f 75  6e 64 25 0d 04 7e 2f e7  |%,,,,found%..~/.|
00000cc0  20 66 6f 75 6e 64 25 3d  30 20 85 20 30 2c 22 54  | found%=0 . 0,"T|
00000cd0  65 6d 70 6c 61 74 65 20  66 69 6c 65 20 69 73 20  |emplate file is |
00000ce0  69 6e 63 6f 72 72 65 63  74 22 0d 04 88 05 e1 0d  |incorrect"......|
00000cf0  04 92 04 0d 04 9c 11 dd  20 f2 67 65 74 63 68 6f  |........ .getcho|
00000d00  69 63 65 73 0d 04 a6 25  69 6e 63 25 3d 8e 28 22  |ices...%inc%=.("|
00000d10  3c 43 68 61 6e 67 65 46  53 49 24 44 69 72 3e 2e  |<ChangeFSI$Dir>.|
00000d20  43 68 6f 69 63 65 73 22  29 0d 04 b0 0e e7 20 69  |Choices")..... i|
00000d30  6e 63 25 3d 30 20 8c 0d  04 ba 12 20 24 6d 6f 64  |nc%=0 ..... $mod|
00000d40  65 61 64 25 3d 22 31 32  22 0d 04 c4 0f 20 24 78  |ead%="12".... $x|
00000d50  31 61 64 25 3d 22 31 22  0d 04 ce 0f 20 24 78 32  |1ad%="1".... $x2|
00000d60  61 64 25 3d 22 31 22 0d  04 d8 0f 20 24 79 31 61  |ad%="1".... $y1a|
00000d70  64 25 3d 22 31 22 0d 04  e2 0f 20 24 79 32 61 64  |d%="1".... $y2ad|
00000d80  25 3d 22 31 22 0d 04 ec  11 20 6f 75 74 6d 6f 64  |%="1".... outmod|
00000d90  65 24 3d 22 20 22 0d 04  f6 11 20 f2 73 65 74 66  |e$=" ".... .setf|
00000da0  6c 61 67 73 28 30 29 0d  05 00 13 20 24 73 68 61  |lags(0).... $sha|
00000db0  72 70 65 6e 61 64 25 3d  22 22 0d 05 0a 05 cc 0d  |rpenad%=""......|
00000dc0  05 14 13 20 63 68 6d 6f  64 65 25 3d 9a 23 69 6e  |... chmode%=.#in|
00000dd0  63 25 0d 05 1e 16 20 24  6d 6f 64 65 61 64 25 3d  |c%.... $modead%=|
00000de0  c3 63 68 6d 6f 64 65 25  0d 05 28 12 20 e8 23 69  |.chmode%..(. .#i|
00000df0  6e 63 25 2c 24 78 31 61  64 25 0d 05 32 12 20 e8  |nc%,$x1ad%..2. .|
00000e00  23 69 6e 63 25 2c 24 79  31 61 64 25 0d 05 3c 12  |#inc%,$y1ad%..<.|
00000e10  20 e8 23 69 6e 63 25 2c  24 78 32 61 64 25 0d 05  | .#inc%,$x2ad%..|
00000e20  46 12 20 e8 23 69 6e 63  25 2c 24 79 32 61 64 25  |F. .#inc%,$y2ad%|
00000e30  0d 05 50 22 20 6f 70 74  69 6f 6e 73 25 3d 9a 23  |..P" options%=.#|
00000e40  69 6e 63 25 20 84 20 28  9a 23 69 6e 63 25 29 3c  |inc% . (.#inc%)<|
00000e50  3c 38 0d 05 5a 18 20 f2  73 65 74 66 6c 61 67 73  |<8..Z. .setflags|
00000e60  28 6f 70 74 69 6f 6e 73  25 29 0d 05 64 1a 20 24  |(options%)..d. $|
00000e70  73 68 61 72 70 65 6e 61  64 25 3d c3 28 9a 23 69  |sharpenad%=.(.#i|
00000e80  6e 63 25 29 0d 05 6e 0b  20 d9 23 69 6e 63 25 0d  |nc%)..n. .#inc%.|
00000e90  05 78 05 cd 0d 05 82 05  e1 0d 05 8c 04 0d 05 96  |.x..............|
00000ea0  42 f4 20 53 65 65 20 66  69 6c 65 20 43 68 44 65  |B. See file ChDe|
00000eb0  74 61 69 6c 73 20 66 6f  72 20 64 65 74 61 69 6c  |tails for detail|
00000ec0  73 20 6f 66 20 43 68 6f  69 63 65 73 20 66 69 6c  |s of Choices fil|
00000ed0  65 20 61 73 20 75 73 65  64 20 62 65 6c 6f 77 0d  |e as used below.|
00000ee0  05 a0 15 dd 20 f2 73 65  74 66 6c 61 67 73 28 73  |.... .setflags(s|
00000ef0  65 74 25 29 0d 05 aa 12  e7 20 73 65 74 25 20 80  |et%)..... set% .|
00000f00  20 32 35 36 20 8c 0d 05  b4 20 20 f2 73 65 74 69  | 256 ....  .seti|
00000f10  63 6f 6e 28 36 2c 30 29  3a f2 73 65 74 69 63 6f  |con(6,0):.setico|
00000f20  6e 28 35 2c 31 29 0d 05  be 05 cc 0d 05 c8 20 20  |n(5,1)........  |
00000f30  f2 73 65 74 69 63 6f 6e  28 36 2c 31 29 3a f2 73  |.seticon(6,1):.s|
00000f40  65 74 69 63 6f 6e 28 35  2c 30 29 0d 05 d2 05 cd  |eticon(5,0).....|
00000f50  0d 05 dc 11 c8 8e 20 73  65 74 25 20 80 20 33 20  |...... set% . 3 |
00000f60  ca 0d 05 e6 1a c9 20 30  3a 6f 75 74 6d 6f 64 65  |...... 0:outmode|
00000f70  24 3d 22 20 22 3a 6f 6e  25 3d 37 0d 05 f0 1a c9  |$=" ":on%=7.....|
00000f80  20 31 3a 6f 75 74 6d 6f  64 65 24 3d 22 43 22 3a  | 1:outmode$="C":|
00000f90  6f 6e 25 3d 38 0d 05 fa  1a c9 20 32 3a 6f 75 74  |on%=8..... 2:out|
00000fa0  6d 6f 64 65 24 3d 22 44  22 3a 6f 6e 25 3d 39 0d  |mode$="D":on%=9.|
00000fb0  06 04 1b c9 20 33 3a 6f  75 74 6d 6f 64 65 24 3d  |.... 3:outmode$=|
00000fc0  22 54 22 3a 6f 6e 25 3d  31 30 0d 06 0e 05 cb 0d  |"T":on%=10......|
00000fd0  06 18 0f e3 20 73 25 3d  37 20 b8 20 31 30 0d 06  |.... s%=7 . 10..|
00000fe0  22 2d 20 e7 20 73 25 3d  6f 6e 25 20 f2 73 65 74  |"- . s%=on% .set|
00000ff0  69 63 6f 6e 28 73 25 2c  31 29 20 8b 20 f2 73 65  |icon(s%,1) . .se|
00001000  74 69 63 6f 6e 28 73 25  2c 30 29 0d 06 2c 05 ed  |ticon(s%,0)..,..|
00001010  0d 06 36 19 f2 73 65 74  69 63 6f 6e 28 31 31 2c  |..6..seticon(11,|
00001020  73 65 74 25 20 80 20 34  29 0d 06 40 19 f2 73 65  |set% . 4)..@..se|
00001030  74 69 63 6f 6e 28 31 32  2c 73 65 74 25 20 80 20  |ticon(12,set% . |
00001040  38 29 0d 06 4a 1a f2 73  65 74 69 63 6f 6e 28 31  |8)..J..seticon(1|
00001050  33 2c 73 65 74 25 20 80  20 31 36 29 0d 06 54 1a  |3,set% . 16)..T.|
00001060  f2 73 65 74 69 63 6f 6e  28 31 34 2c 73 65 74 25  |.seticon(14,set%|
00001070  20 80 20 33 32 29 0d 06  5e 1a f2 73 65 74 69 63  | . 32)..^..setic|
00001080  6f 6e 28 31 35 2c 73 65  74 25 20 80 20 36 34 29  |on(15,set% . 64)|
00001090  0d 06 68 1b f2 73 65 74  69 63 6f 6e 28 31 36 2c  |..h..seticon(16,|
000010a0  73 65 74 25 20 80 20 31  32 38 29 0d 06 72 1b f2  |set% . 128)..r..|
000010b0  73 65 74 69 63 6f 6e 28  32 33 2c 73 65 74 25 20  |seticon(23,set% |
000010c0  80 20 35 31 32 29 0d 06  7c 1c f2 73 65 74 69 63  |. 512)..|..setic|
000010d0  6f 6e 28 32 34 2c 73 65  74 25 20 80 20 31 30 32  |on(24,set% . 102|
000010e0  34 29 0d 06 86 1c f2 73  65 74 69 63 6f 6e 28 32  |4).....seticon(2|
000010f0  35 2c 73 65 74 25 20 80  20 32 30 34 38 29 0d 06  |5,set% . 2048)..|
00001100  90 1c f2 73 65 74 69 63  6f 6e 28 32 36 2c 73 65  |...seticon(26,se|
00001110  74 25 20 80 20 34 30 39  36 29 0d 06 9a 05 e1 0d  |t% . 4096)......|
00001120  06 a4 04 0d 06 ae 0f dd  20 f2 61 73 73 65 6d 62  |........ .assemb|
00001130  6c 65 0d 06 b8 15 de 20  63 6f 64 65 25 20 34 30  |le..... code% 40|
00001140  39 36 2c 4c 25 20 30 0d  06 c2 15 e3 20 6f 70 74  |96,L% 0..... opt|
00001150  25 3d 38 20 b8 20 31 30  20 88 20 32 0d 06 cc 0c  |%=8 . 10 . 2....|
00001160  50 25 3d 63 6f 64 65 25  0d 06 d6 05 5b 0d 06 e0  |P%=code%....[...|
00001170  0c 4f 50 54 20 6f 70 74  25 0d 06 ea 0f 2e 72 65  |.OPT opt%.....re|
00001180  64 72 61 77 63 6f 64 65  0d 06 f4 37 41 44 52 20  |drawcode...7ADR |
00001190  20 20 52 31 2c 72 64 62  20 20 20 20 20 20 20 20  |  R1,rdb        |
000011a0  20 20 20 20 20 20 20 20  20 3b 20 67 65 74 20 61  |         ; get a|
000011b0  64 64 72 65 73 73 20 6f  66 20 62 6c 6f 63 6b 0d  |ddress of block.|
000011c0  06 fe 2a 53 57 49 20 20  20 22 57 69 6d 70 5f 52  |..*SWI   "Wimp_R|
000011d0  65 64 72 61 77 57 69 6e  64 6f 77 22 20 20 20 20  |edrawWindow"    |
000011e0  3b 20 63 61 6c 6c 2e 2e  2e 0d 07 08 35 4c 44 4d  |; call......5LDM|
000011f0  49 42 20 52 31 2c 7b 52  32 2d 52 37 7d 20 20 20  |IB R1,{R2-R7}   |
00001200  20 20 20 20 20 20 20 20  20 20 3b 20 67 65 74 20  |          ; get |
00001210  73 6f 6d 65 20 72 65 67  69 73 74 65 72 73 0d 07  |some registers..|
00001220  12 36 53 55 42 20 20 20  52 38 2c 52 32 2c 52 36  |.6SUB   R8,R2,R6|
00001230  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00001240  20 63 61 6c 63 20 78 20  6f 72 69 67 2c 20 79 20  | calc x orig, y |
00001250  6f 72 69 67 0d 07 1c 32  53 55 42 20 20 20 52 39  |orig...2SUB   R9|
00001260  2c 52 35 2c 52 37 20 20  20 20 20 20 20 20 20 20  |,R5,R7          |
00001270  20 20 20 20 20 3b 20 64  75 6d 70 20 69 6e 20 52  |     ; dump in R|
00001280  38 20 2c 20 52 39 0d 07  26 3b 2e 72 65 64 72 61  |8 , R9..&;.redra|
00001290  77 6c 6f 6f 70 20 20 20  20 20 20 20 20 20 20 20  |wloop           |
000012a0  20 20 20 20 20 20 20 3b  20 77 68 69 6c 65 20 6d  |       ; while m|
000012b0  6f 72 65 20 72 65 63 74  61 6e 67 6c 65 73 2e 2e  |ore rectangles..|
000012c0  2e 0d 07 30 0f 43 4d 50  20 20 20 52 30 2c 23 30  |...0.CMP   R0,#0|
000012d0  0d 07 3a 14 42 45 51 20  20 20 73 6b 69 70 72 65  |..:.BEQ   skipre|
000012e0  64 72 61 77 0d 07 44 45  41 44 52 20 20 20 52 31  |draw..DEADR   R1|
000012f0  2c 72 64 62 2b 32 38 20  20 20 20 20 20 20 20 20  |,rdb+28         |
00001300  20 20 20 20 20 20 3b 20  73 65 74 20 75 70 20 6e  |      ; set up n|
00001310  65 78 74 20 72 65 63 74  61 6e 67 6c 65 20 74 6f  |ext rectangle to|
00001320  20 62 65 20 64 72 61 77  6e 0d 07 4e 35 4c 44 4d  | be drawn..N5LDM|
00001330  49 41 20 52 31 2c 7b 52  32 2d 52 35 7d 20 20 20  |IA R1,{R2-R5}   |
00001340  20 20 20 20 20 20 20 20  20 20 20 3b 20 67 72 61  |           ; gra|
00001350  62 20 64 61 74 61 20 74  6f 20 72 65 67 73 0d 07  |b data to regs..|
00001360  58 12 53 55 42 20 20 20  52 32 2c 52 32 2c 52 38  |X.SUB   R2,R2,R8|
00001370  0d 07 62 12 53 55 42 20  20 20 52 33 2c 52 33 2c  |..b.SUB   R3,R3,|
00001380  52 39 0d 07 6c 12 53 55  42 20 20 20 52 34 2c 52  |R9..l.SUB   R4,R|
00001390  34 2c 52 38 0d 07 76 12  53 55 42 20 20 20 52 35  |4,R8..v.SUB   R5|
000013a0  2c 52 35 2c 52 39 0d 07  80 2f 53 54 4d 49 41 20  |,R5,R9.../STMIA |
000013b0  52 31 2c 7b 52 32 2d 52  35 7d 20 20 20 20 20 20  |R1,{R2-R5}      |
000013c0  20 20 20 20 20 20 20 20  3b 20 70 75 74 20 69 74  |        ; put it|
000013d0  20 62 61 63 6b 0d 07 8a  37 53 57 49 20 20 20 32  | back...7SWI   2|
000013e0  35 36 2b 32 39 20 20 20  20 20 20 20 20 20 20 20  |56+29           |
000013f0  20 20 20 20 20 20 20 3b  20 53 65 74 20 6f 72 69  |       ; Set ori|
00001400  67 69 6e 20 74 6f 20 52  38 2c 52 39 0d 07 94 0f  |gin to R8,R9....|
00001410  4d 4f 56 20 20 20 52 30  2c 52 38 0d 07 9e 15 53  |MOV   R0,R8....S|
00001420  57 49 20 20 20 22 4f 53  5f 57 72 69 74 65 43 22  |WI   "OS_WriteC"|
00001430  0d 07 a8 15 4d 4f 56 20  20 20 52 30 2c 52 38 2c  |....MOV   R0,R8,|
00001440  4c 53 52 23 38 0d 07 b2  15 53 57 49 20 20 20 22  |LSR#8....SWI   "|
00001450  4f 53 5f 57 72 69 74 65  43 22 0d 07 bc 0f 4d 4f  |OS_WriteC"....MO|
00001460  56 20 20 20 52 30 2c 52  39 0d 07 c6 15 53 57 49  |V   R0,R9....SWI|
00001470  20 20 20 22 4f 53 5f 57  72 69 74 65 43 22 0d 07  |   "OS_WriteC"..|
00001480  d0 15 4d 4f 56 20 20 20  52 30 2c 52 39 2c 4c 53  |..MOV   R0,R9,LS|
00001490  52 23 38 0d 07 da 15 53  57 49 20 20 20 22 4f 53  |R#8....SWI   "OS|
000014a0  5f 57 72 69 74 65 43 22  0d 07 e4 12 4d 4f 56 20  |_WriteC"....MOV |
000014b0  20 20 52 30 2c 23 26 32  33 34 0d 07 ee 16 41 44  |  R0,#&234....AD|
000014c0  52 20 20 20 52 31 30 2c  73 68 6f 77 77 69 6e 62  |R   R10,showwinb|
000014d0  0d 07 f8 1b 4c 44 4d 49  41 20 52 31 30 2c 7b 52  |....LDMIA R10,{R|
000014e0  31 2d 52 34 2c 52 36 2c  52 37 7d 0d 08 02 0f 4d  |1-R4,R6,R7}....M|
000014f0  4f 56 20 20 20 52 35 2c  23 30 0d 08 0c 17 53 57  |OV   R5,#0....SW|
00001500  49 20 20 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |I   "OS_SpriteOp|
00001510  22 0d 08 16 35 53 57 49  20 20 20 32 35 36 2b 32  |"...5SWI   256+2|
00001520  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
00001530  20 20 20 3b 20 53 65 74  20 6f 72 69 67 69 6e 20  |   ; Set origin |
00001540  74 6f 20 30 2c 30 0d 08  20 0f 4d 4f 56 20 20 20  |to 0,0.. .MOV   |
00001550  52 30 2c 23 30 0d 08 2a  15 53 57 49 20 20 20 22  |R0,#0..*.SWI   "|
00001560  4f 53 5f 57 72 69 74 65  43 22 0d 08 34 15 53 57  |OS_WriteC"..4.SW|
00001570  49 20 20 20 22 4f 53 5f  57 72 69 74 65 43 22 0d  |I   "OS_WriteC".|
00001580  08 3e 15 53 57 49 20 20  20 22 4f 53 5f 57 72 69  |.>.SWI   "OS_Wri|
00001590  74 65 43 22 0d 08 48 15  53 57 49 20 20 20 22 4f  |teC"..H.SWI   "O|
000015a0  53 5f 57 72 69 74 65 43  22 0d 08 52 10 41 44 52  |S_WriteC"..R.ADR|
000015b0  20 20 20 52 31 2c 72 64  62 0d 08 5c 34 53 57 49  |   R1,rdb..\4SWI|
000015c0  20 20 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |   "Wimp_GetRect|
000015d0  61 6e 67 6c 65 22 20 20  20 20 20 3b 20 6d 6f 72  |angle"     ; mor|
000015e0  65 20 72 65 63 74 61 6e  67 6c 65 73 3f 0d 08 66  |e rectangles?..f|
000015f0  32 42 20 72 65 64 72 61  77 6c 6f 6f 70 20 20 20  |2B redrawloop   |
00001600  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00001610  20 65 6e 64 20 77 68 69  6c 65 20 6c 6f 6f 70 0d  | end while loop.|
00001620  08 70 0f 2e 73 6b 69 70  72 65 64 72 61 77 0d 08  |.p..skipredraw..|
00001630  7a 36 4d 4f 56 20 20 20  50 43 2c 52 31 34 20 20  |z6MOV   PC,R14  |
00001640  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001650  3b 20 65 6e 64 20 6f 66  20 72 65 64 72 61 77 20  |; end of redraw |
00001660  63 6f 64 65 0d 08 84 08  2e 72 64 62 0d 08 8e 3b  |code.....rdb...;|
00001670  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 45 51  |EQUD 0:EQUD 0:EQ|
00001680  55 44 20 30 3a 45 51 55  44 20 30 3a 45 51 55 44  |UD 0:EQUD 0:EQUD|
00001690  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
000016a0  3a 45 51 55 44 20 30 0d  08 98 34 45 51 55 44 20  |:EQUD 0...4EQUD |
000016b0  30 3a 45 51 55 44 20 30  3a 45 51 55 44 20 30 3a  |0:EQUD 0:EQUD 0:|
000016c0  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 45 51  |EQUD 0:EQUD 0:EQ|
000016d0  55 44 20 30 3a 45 51 55  44 20 30 0d 08 a2 15 3b  |UD 0:EQUD 0....;|
000016e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000016f0  0d 08 ac 0d 2e 73 68 6f  77 77 69 6e 62 0d 08 b6  |.....showwinb...|
00001700  17 45 51 55 44 20 30 20  3b 20 73 70 72 69 74 65  |.EQUD 0 ; sprite|
00001710  61 72 65 61 0d 08 c0 1b  45 51 55 44 20 30 20 3b  |area....EQUD 0 ;|
00001720  20 73 70 72 69 74 65 20  61 64 64 72 65 73 73 0d  | sprite address.|
00001730  08 ca 11 45 51 55 44 20  30 20 3b 20 78 20 63 6f  |...EQUD 0 ; x co|
00001740  0d 08 d4 1a 45 51 55 44  20 30 20 3b 20 2d 73 70  |....EQUD 0 ; -sp|
00001750  72 79 25 20 28 79 20 63  6f 29 0d 08 de 1a 45 51  |ry% (y co)....EQ|
00001760  55 44 20 30 20 3b 20 73  63 61 6c 65 20 70 6f 69  |UD 0 ; scale poi|
00001770  6e 74 65 72 0d 08 e8 17  45 51 55 44 20 30 20 3b  |nter....EQUD 0 ;|
00001780  20 63 6f 6c 6f 75 72 20  6d 61 70 0d 08 f2 05 5d  | colour map....]|
00001790  0d 08 fc 05 ed 0d 09 06  05 e1 0d 09 10 04 0d 09  |................|
000017a0  1a 1e dd 20 f2 77 69 6d  70 73 65 72 76 69 63 65  |... .wimpservice|
000017b0  28 65 76 65 6e 74 25 2c  70 62 25 29 0d 09 24 0f  |(event%,pb%)..$.|
000017c0  c8 8e 20 65 76 65 6e 74  25 20 ca 0d 09 2e 14 c9  |.. event% ......|
000017d0  20 31 3a d6 20 72 65 64  72 61 77 63 6f 64 65 0d  | 1:. redrawcode.|
000017e0  09 38 21 c9 20 32 3a c8  99 20 22 57 69 6d 70 5f  |.8!. 2:.. "Wimp_|
000017f0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 70 62 25  |OpenWindow",,pb%|
00001800  0d 09 42 07 c9 20 33 0d  09 4c 0e 20 c8 8e 20 21  |..B.. 3..L. .. !|
00001810  70 62 25 20 ca 0d 09 56  0f 20 c9 20 73 68 6f 77  |pb% ...V. . show|
00001820  77 69 6e 25 0d 09 60 27  20 20 c8 99 20 22 57 69  |win%..`'  .. "Wi|
00001830  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001840  6f 22 2c 2c 6d 6f 75 73  65 62 25 0d 09 6a 3f 20  |o",,mouseb%..j? |
00001850  20 e7 20 6d 6f 75 73 65  62 25 21 31 36 3d 2d 33  | . mouseb%!16=-3|
00001860  20 80 20 6d 6f 75 73 65  62 25 21 31 32 3d 73 68  | . mouseb%!12=sh|
00001870  6f 77 77 69 6e 25 20 80  20 28 6d 6f 75 73 65 62  |owwin% . (mouseb|
00001880  25 21 38 20 80 20 31 29  20 8c 0d 09 74 11 20 20  |%!8 . 1) ...t.  |
00001890  20 6f 70 65 6e 70 61 72  25 3d b9 0d 09 7e 07 20  | openpar%=...~. |
000018a0  20 cc 0d 09 88 11 20 20  20 6f 70 65 6e 70 61 72  | .....   openpar|
000018b0  25 3d a3 0d 09 92 07 20  20 cd 0d 09 9c 0f 20 e7  |%=.....  ..... .|
000018c0  20 73 61 76 65 64 25 20  8c 0d 09 a6 29 20 20 c8  | saved% ....)  .|
000018d0  99 20 22 57 69 6d 70 5f  53 6c 6f 74 53 69 7a 65  |. "Wimp_SlotSize|
000018e0  22 2c 6f 72 69 67 69 6e  61 6c 73 6c 6f 74 25 2c  |",originalslot%,|
000018f0  2d 31 0d 09 b0 0e 20 20  73 70 72 65 78 25 3d a3  |-1....  sprex%=.|
00001900  0d 09 ba 1b 20 20 f2 6f  70 65 6e 70 61 72 65 6e  |....  .openparen|
00001910  74 28 6f 70 65 6e 70 61  72 25 29 0d 09 c4 20 20  |t(openpar%)...  |
00001920  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
00001930  69 6e 64 6f 77 22 2c 2c  70 62 25 0d 09 ce 10 20  |indow",,pb%.... |
00001940  20 63 6c 6f 73 69 6e 67  25 3d a3 0d 09 d8 06 20  | closing%=..... |
00001950  cc 0d 09 e2 32 20 20 f2  73 68 6f 77 71 75 65 72  |....2  .showquer|
00001960  79 28 22 44 6f 20 79 6f  75 20 77 61 6e 74 20 74  |y("Do you want t|
00001970  6f 20 73 61 76 65 20 74  68 65 20 73 70 72 69 74  |o save the sprit|
00001980  65 22 29 0d 09 ec 10 20  20 63 6c 6f 73 69 6e 67  |e")....  closing|
00001990  25 3d b9 0d 09 f6 06 20  cd 0d 0a 00 20 7f 20 c8  |%=..... .... . .|
000019a0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
000019b0  64 6f 77 22 2c 2c 70 62  25 0d 0a 0a 05 cb 0d 0a  |dow",,pb%.......|
000019c0  14 19 c9 20 36 3a f2 63  6c 69 63 6b 77 69 6e 64  |... 6:.clickwind|
000019d0  6f 77 28 70 62 25 29 0d  0a 1e 15 c9 20 37 3a f2  |ow(pb%)..... 7:.|
000019e0  64 72 61 67 65 6e 64 28  70 62 25 29 0d 0a 28 17  |dragend(pb%)..(.|
000019f0  c9 20 38 3a f2 68 61 6e  64 6c 65 6b 65 79 28 70  |. 8:.handlekey(p|
00001a00  62 25 29 0d 0a 32 18 c9  20 39 3a f2 6d 65 6e 75  |b%)..2.. 9:.menu|
00001a10  73 65 6c 65 63 74 28 70  62 25 29 0d 0a 3c 19 c9  |select(pb%)..<..|
00001a20  20 31 37 2c 31 38 3a f2  6d 65 73 73 61 67 65 28  | 17,18:.message(|
00001a30  70 62 25 29 0d 0a 46 05  cb 0d 0a 50 05 e1 0d 0a  |pb%)..F....P....|
00001a40  5a 04 0d 0a 64 1b dd 20  f2 73 68 6f 77 71 75 65  |Z...d.. .showque|
00001a50  72 79 28 71 75 65 73 74  69 6f 6e 24 29 0d 0a 6e  |ry(question$)..n|
00001a60  17 24 71 75 65 72 79 61  64 25 3d 71 75 65 73 74  |.$queryad%=quest|
00001a70  69 6f 6e 24 0d 0a 78 45  c8 99 20 22 57 69 6d 70  |ion$..xE.. "Wimp|
00001a80  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 71 75  |_CreateMenu",,qu|
00001a90  65 72 79 77 69 6e 25 2c  72 69 67 68 74 73 63 72  |erywin%,rightscr|
00001aa0  25 2f 32 2d 37 33 38 2f  32 2c 74 6f 70 73 63 72  |%/2-738/2,topscr|
00001ab0  25 2f 32 2b 32 37 36 2f  32 0d 0a 82 05 e1 0d 0a  |%/2+276/2.......|
00001ac0  8c 04 0d 0a 96 1a dd 20  f2 6f 70 65 6e 70 61 72  |....... .openpar|
00001ad0  65 6e 74 28 61 64 6a 75  73 74 25 29 0d 0a a0 11  |ent(adjust%)....|
00001ae0  e7 20 61 64 6a 75 73 74  25 3d b9 20 8c 0d 0a aa  |. adjust%=. ....|
00001af0  18 20 70 6f 73 25 3d a9  28 69 6e 66 69 6c 65 6e  |. pos%=.(infilen|
00001b00  61 6d 65 24 29 0d 0a b4  21 20 c8 95 20 c1 69 6e  |ame$)...! .. .in|
00001b10  66 69 6c 65 6e 61 6d 65  24 2c 70 6f 73 25 2c 31  |filename$,pos%,1|
00001b20  29 3c 3e 22 2e 22 0d 0a  be 0c 20 70 6f 73 25 2d  |)<>".".... pos%-|
00001b30  3d 31 0d 0a c8 06 20 ce  0d 0a d2 2c 20 ff 20 22  |=1.... ...., . "|
00001b40  46 69 6c 65 72 5f 4f 70  65 6e 44 69 72 20 22 2b  |Filer_OpenDir "+|
00001b50  c0 69 6e 66 69 6c 65 6e  61 6d 65 24 2c 70 6f 73  |.infilename$,pos|
00001b60  25 2d 31 29 0d 0a dc 05  cd 0d 0a e6 05 e1 0d 0a  |%-1)............|
00001b70  f0 04 0d 0a fa 0f dd 20  f2 73 68 75 74 64 6f 77  |....... .shutdow|
00001b80  6e 0d 0b 04 0c 63 6c 6f  73 65 25 3d b9 0d 0b 0e  |n....close%=....|
00001b90  2a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |*.. "Wimp_CloseD|
00001ba0  6f 77 6e 22 2c 74 61 73  6b 68 61 6e 64 6c 65 25  |own",taskhandle%|
00001bb0  2c 22 54 41 53 4b 22 0d  0b 18 05 e1 0d 0b 22 04  |,"TASK".......".|
00001bc0  0d 0b 2c 16 dd 20 f2 63  6c 69 63 6b 77 69 6e 64  |..,.. .clickwind|
00001bd0  6f 77 28 62 25 29 0d 0b  36 0e c8 8e 20 62 25 21  |ow(b%)..6... b%!|
00001be0  31 32 20 ca 0d 0b 40 1a  c9 20 2d 32 3a f4 20 69  |12 ...@.. -2:. i|
00001bf0  63 6f 6e 20 62 61 72 20  68 61 6e 64 6c 65 0d 0b  |con bar handle..|
00001c00  4a 0f 20 c8 8e 20 62 25  21 31 36 20 ca 0d 0b 54  |J. .. b%!16 ...T|
00001c10  24 20 c9 20 69 63 6f 6e  62 61 72 25 3a f4 20 69  |$ . iconbar%:. i|
00001c20  63 6f 6e 20 62 61 72 20  75 74 69 6c 69 74 69 65  |con bar utilitie|
00001c30  73 0d 0b 5e 0f 20 20 c8  8e 20 62 25 21 38 20 ca  |s..^.  .. b%!8 .|
00001c40  0d 0b 68 10 20 20 c9 20  32 3a f4 20 4d 65 6e 75  |..h.  . 2:. Menu|
00001c50  0d 0b 72 12 20 20 20 6d  6f 75 73 65 78 25 3d 21  |..r.   mousex%=!|
00001c60  62 25 0d 0b 7c 12 20 20  20 6d 6f 75 73 65 79 25  |b%..|.   mousey%|
00001c70  3d 32 37 32 0d 0b 86 67  20 20 20 6d 65 6e 75 25  |=272...g   menu%|
00001c80  3d a4 63 72 65 61 74 65  6d 65 6e 75 28 30 2c 22  |=.createmenu(0,"|
00001c90  43 68 61 6e 67 65 46 53  49 7c a4 22 2b c3 61 62  |ChangeFSI|."+.ab|
00001ca0  6f 75 74 77 69 6e 25 2b  22 49 6e 66 6f 7c a4 22  |outwin%+"Info|."|
00001cb0  2b c3 70 61 72 77 69 6e  25 2b 22 43 68 6f 69 63  |+.parwin%+"Choic|
00001cc0  65 73 7c 53 61 76 65 20  63 68 6f 69 63 65 73 7c  |es|Save choices||
00001cd0  51 75 69 74 7c 22 2c 32  30 32 29 0d 0b 90 11 20  |Quit|",202).... |
00001ce0  20 20 6d 65 6e 74 79 70  65 25 3d 30 0d 0b 9a 12  |  mentype%=0....|
00001cf0  20 20 c9 20 34 3a f4 20  53 65 6c 65 63 74 0d 0b  |  . 4:. Select..|
00001d00  a4 30 20 20 20 c8 99 20  22 57 69 6d 70 5f 43 72  |.0   .. "Wimp_Cr|
00001d10  65 61 74 65 4d 65 6e 75  22 2c 2c 70 61 72 77 69  |eateMenu",,parwi|
00001d20  6e 25 2c 21 62 25 2d 33  35 34 2c 36 32 34 0d 0b  |n%,!b%-354,624..|
00001d30  ae 3a 20 20 20 c8 99 20  22 57 69 6d 70 5f 53 65  |.:   .. "Wimp_Se|
00001d40  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00001d50  70 61 72 77 69 6e 25 2c  30 2c 2c 2c 2d 31 2c a9  |parwin%,0,,,-1,.|
00001d60  24 6d 6f 64 65 61 64 25  0d 0b b8 07 20 20 cb 0d  |$modead%....  ..|
00001d70  0b c2 06 20 cb 0d 0b cc  0e c9 20 73 68 6f 77 77  |... ...... showw|
00001d80  69 6e 25 0d 0b d6 0e 20  c8 8e 20 62 25 21 38 20  |in%.... .. b%!8 |
00001d90  ca 0d 0b e0 0f 20 c9 20  32 3a f4 20 4d 65 6e 75  |..... . 2:. Menu|
00001da0  0d 0b ea 11 20 20 6d 6f  75 73 65 78 25 3d 21 62  |....  mousex%=!b|
00001db0  25 0d 0b f4 12 20 20 6d  6f 75 73 65 79 25 3d 62  |%....  mousey%=b|
00001dc0  25 21 34 0d 0b fe 2b 20  20 e7 20 69 6e 66 6f 24  |%!4...+  . info$|
00001dd0  3d 22 22 20 8c 20 73 68  61 64 65 30 24 3d 22 3c  |="" . shade0$="<|
00001de0  22 20 8b 20 73 68 61 64  65 30 24 3d 22 22 0d 0c  |" . shade0$=""..|
00001df0  08 2c 20 20 e7 20 72 61  6e 67 65 24 3d 22 22 20  |.,  . range$="" |
00001e00  8c 20 73 68 61 64 65 31  24 3d 22 3c 22 20 8b 20  |. shade1$="<" . |
00001e10  73 68 61 64 65 31 24 3d  22 22 0d 0c 12 c2 20 20  |shade1$=""....  |
00001e20  6d 65 6e 75 25 3d a4 63  72 65 61 74 65 6d 65 6e  |menu%=.createmen|
00001e30  75 28 30 2c 22 43 68 61  6e 67 65 46 53 49 7c a4  |u(0,"ChangeFSI|.|
00001e40  22 2b c3 73 70 72 69 6e  66 6f 77 69 6e 25 2b 22  |"+.sprinfowin%+"|
00001e50  49 6d 61 67 65 20 69 6e  66 6f 7c 22 2b 73 68 61  |Image info|"+sha|
00001e60  64 65 30 24 2b 22 a4 22  2b c3 73 72 63 69 6e 66  |de0$+"."+.srcinf|
00001e70  6f 77 69 6e 25 2b 22 53  6f 75 72 63 65 20 69 6e  |owin%+"Source in|
00001e80  66 6f 7c 22 2b 73 68 61  64 65 31 24 2b 22 a4 22  |fo|"+shade1$+"."|
00001e90  2b c3 72 6e 67 69 6e 66  6f 77 69 6e 25 2b 22 52  |+.rnginfowin%+"R|
00001ea0  61 6e 67 65 20 69 6e 66  6f 7c a4 22 2b c3 6d 61  |ange info|."+.ma|
00001eb0  67 77 69 6e 25 2b 22 5a  6f 6f 6d 7c a4 22 2b c3  |gwin%+"Zoom|."+.|
00001ec0  73 61 76 65 77 69 6e 25  2b 22 53 61 76 65 20 73  |savewin%+"Save s|
00001ed0  70 72 69 74 65 7c 22 2c  32 30 32 29 0d 0c 1c 0e  |prite|",202)....|
00001ee0  6d 65 6e 74 79 70 65 25  3d 31 0d 0c 26 06 20 cb  |mentype%=1..&. .|
00001ef0  0d 0c 30 0e c9 20 73 61  76 65 77 69 6e 25 0d 0c  |..0.. savewin%..|
00001f00  3a 0f 20 c8 8e 20 62 25  21 31 36 20 ca 0d 0c 44  |:. .. b%!16 ...D|
00001f10  14 20 c9 20 30 3a f2 73  61 76 65 73 70 72 69 74  |. . 0:.savesprit|
00001f20  65 0d 0c 4e 08 20 c9 20  33 0d 0c 58 19 20 20 e7  |e..N. . 3..X.  .|
00001f30  20 28 62 25 21 38 20 80  20 26 35 30 29 3c 3e 30  | (b%!8 . &50)<>0|
00001f40  20 8c 0d 0c 62 18 20 20  20 f2 67 73 74 28 62 25  | ...b.   .gst(b%|
00001f50  2c 73 61 76 65 77 69 6e  25 29 0d 0c 6c 15 20 20  |,savewin%)..l.  |
00001f60  20 78 64 25 3d 62 25 21  34 2d 62 25 21 32 30 0d  | xd%=b%!4-b%!20.|
00001f70  0c 76 16 20 20 20 79 64  25 3d 62 25 21 31 36 2d  |.v.   yd%=b%!16-|
00001f80  62 25 21 32 34 0d 0c 80  0d 20 20 20 62 25 21 34  |b%!24....   b%!4|
00001f90  3d 33 0d 0c 8a 21 20 20  20 c8 99 20 22 57 69 6d  |=3...!   .. "Wim|
00001fa0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001fb0  2c 62 25 0d 0c 94 13 20  20 20 21 62 25 3d 73 61  |,b%....   !b%=sa|
00001fc0  76 65 77 69 6e 25 0d 0c  9e 0d 20 20 20 62 25 21  |vewin%....   b%!|
00001fd0  34 3d 35 0d 0c a8 14 20  20 20 62 25 21 38 3d 62  |4=5....   b%!8=b|
00001fe0  25 21 38 2b 78 64 25 0d  0c b2 16 20 20 20 62 25  |%!8+xd%....   b%|
00001ff0  21 31 32 3d 62 25 21 31  32 2b 79 64 25 0d 0c bc  |!12=b%!12+yd%...|
00002000  16 20 20 20 62 25 21 31  36 3d 62 25 21 31 36 2b  |.   b%!16=b%!16+|
00002010  78 64 25 0d 0c c6 16 20  20 20 62 25 21 32 30 3d  |xd%....   b%!20=|
00002020  62 25 21 32 30 2b 79 64  25 0d 0c d0 0e 20 20 20  |b%!20+yd%....   |
00002030  62 25 21 32 34 3d 30 0d  0c da 0e 20 20 20 62 25  |b%!24=0....   b%|
00002040  21 32 38 3d 30 0d 0c e4  16 20 20 20 62 25 21 33  |!28=0....   b%!3|
00002050  32 3d 26 37 46 46 46 46  46 46 46 0d 0c ee 16 20  |2=&7FFFFFFF.... |
00002060  20 20 62 25 21 33 36 3d  26 37 46 46 46 46 46 46  |  b%!36=&7FFFFFF|
00002070  46 0d 0c f8 1c 20 20 20  c8 99 20 22 57 69 6d 70  |F....   .. "Wimp|
00002080  5f 44 72 61 67 42 6f 78  22 2c 2c 62 25 0d 0d 02  |_DragBox",,b%...|
00002090  07 20 20 cd 0d 0d 0c 06  20 cb 0d 0d 16 0d c9 20  |.  ..... ...... |
000020a0  70 61 72 77 69 6e 25 0d  0d 20 0f 20 c8 8e 20 62  |parwin%.. . .. b|
000020b0  25 21 31 36 20 ca 0d 0d  2a 15 20 c9 20 37 3a 6f  |%!16 ...*. . 7:o|
000020c0  75 74 6d 6f 64 65 24 3d  22 20 22 0d 0d 34 15 20  |utmode$=" "..4. |
000020d0  c9 20 38 3a 6f 75 74 6d  6f 64 65 24 3d 22 43 22  |. 8:outmode$="C"|
000020e0  0d 0d 3e 15 20 c9 20 39  3a 6f 75 74 6d 6f 64 65  |..>. . 9:outmode|
000020f0  24 3d 22 44 22 0d 0d 48  16 20 c9 20 31 30 3a 6f  |$="D"..H. . 10:o|
00002100  75 74 6d 6f 64 65 24 3d  22 54 22 0d 0d 52 09 20  |utmode$="T"..R. |
00002110  c9 20 32 36 0d 0d 5c 15  20 20 21 6d 69 73 63 62  |. 26..\.  !miscb|
00002120  25 3d 70 61 72 77 69 6e  25 0d 0d 66 1d 20 20 c8  |%=parwin%..f.  .|
00002130  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00002140  6e 75 22 2c 2d 31 0d 0d  70 23 20 20 c8 99 20 22  |nu",-1..p#  .. "|
00002150  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00002160  22 2c 2c 6d 69 73 63 62  25 0d 0d 7a 06 20 cb 0d  |",,miscb%..z. ..|
00002170  0d 84 14 20 21 6d 69 73  63 62 25 3d 70 61 72 77  |... !miscb%=parw|
00002180  69 6e 25 0d 0d 8e 13 20  6d 69 73 63 62 25 21 34  |in%.... miscb%!4|
00002190  3d 62 25 21 31 36 0d 0d  98 13 20 6d 69 73 63 62  |=b%!16.... miscb|
000021a0  25 21 38 3d 31 3c 3c 32  31 0d 0d a2 14 20 6d 69  |%!8=1<<21.... mi|
000021b0  73 63 62 25 21 31 32 3d  31 3c 3c 32 31 0d 0d ac  |scb%!12=1<<21...|
000021c0  37 20 e7 20 62 25 21 38  3d 31 20 80 20 62 25 21  |7 . b%!8=1 . b%!|
000021d0  31 36 3c 31 31 20 c8 99  20 22 57 69 6d 70 5f 53  |16<11 .. "Wimp_S|
000021e0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 6d 69  |etIconState",,mi|
000021f0  73 63 62 25 0d 0d b6 0d  c9 20 6d 61 67 77 69 6e  |scb%..... magwin|
00002200  25 0d 0d c0 15 20 e7 20  28 62 25 21 38 20 80 20  |%.... . (b%!8 . |
00002210  31 29 3d 30 20 8c 0d 0d  ca 10 20 20 c8 8e 20 62  |1)=0 .....  .. b|
00002220  25 21 31 36 20 ca 0d 0d  d4 19 20 20 c9 20 32 3a  |%!16 .....  . 2:|
00002230  f2 6d 61 67 73 74 72 69  6e 67 28 31 2c 30 29 0d  |.magstring(1,0).|
00002240  0d de 1a 20 20 c9 20 33  3a f2 6d 61 67 73 74 72  |...  . 3:.magstr|
00002250  69 6e 67 28 2d 31 2c 30  29 0d 0d e8 19 20 20 c9  |ing(-1,0)....  .|
00002260  20 34 3a f2 6d 61 67 73  74 72 69 6e 67 28 30 2c  | 4:.magstring(0,|
00002270  31 29 0d 0d f2 1a 20 20  c9 20 35 3a f2 6d 61 67  |1)....  . 5:.mag|
00002280  73 74 72 69 6e 67 28 30  2c 2d 31 29 0d 0d fc 07  |string(0,-1)....|
00002290  20 20 cb 0d 0e 06 06 20  cc 0d 0e 10 10 20 20 c8  |  ..... .....  .|
000022a0  8e 20 62 25 21 31 36 20  ca 0d 0e 1a 1a 20 20 c9  |. b%!16 .....  .|
000022b0  20 32 3a f2 6d 61 67 73  74 72 69 6e 67 28 2d 31  | 2:.magstring(-1|
000022c0  2c 30 29 0d 0e 24 19 20  20 c9 20 33 3a f2 6d 61  |,0)..$.  . 3:.ma|
000022d0  67 73 74 72 69 6e 67 28  31 2c 30 29 0d 0e 2e 1a  |gstring(1,0)....|
000022e0  20 20 c9 20 34 3a f2 6d  61 67 73 74 72 69 6e 67  |  . 4:.magstring|
000022f0  28 30 2c 2d 31 29 0d 0e  38 19 20 20 c9 20 35 3a  |(0,-1)..8.  . 5:|
00002300  f2 6d 61 67 73 74 72 69  6e 67 28 30 2c 31 29 0d  |.magstring(0,1).|
00002310  0e 42 07 20 20 cb 0d 0e  4c 06 20 cd 0d 0e 56 0f  |.B.  ...L. ...V.|
00002320  c9 20 71 75 65 72 79 77  69 6e 25 0d 0e 60 0f 20  |. querywin%..`. |
00002330  c8 8e 20 62 25 21 31 36  20 ca 0d 0e 6a 19 20 c9  |.. b%!16 ...j. .|
00002340  20 30 3a f4 20 27 59 65  73 27 20 74 6f 20 73 61  | 0:. 'Yes' to sa|
00002350  76 65 3f 0d 0e 74 1e 20  20 c8 99 20 22 57 69 6d  |ve?..t.  .. "Wim|
00002360  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00002370  31 0d 0e 7e 16 20 20 21  6d 69 73 63 62 25 3d 73  |1..~.  !miscb%=s|
00002380  68 6f 77 77 69 6e 25 0d  0e 88 15 20 20 f4 20 58  |howwin%....  . X|
00002390  3d 32 34 36 2c 20 79 3d  2d 31 36 38 0d 0e 92 26  |=246, y=-168...&|
000023a0  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |  .. "Wimp_GetWi|
000023b0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 6d 69 73 63  |ndowState",,misc|
000023c0  62 25 0d 0e 9c 13 20 20  21 70 62 25 3d 73 61 76  |b%....  !pb%=sav|
000023d0  65 77 69 6e 25 0d 0e a6  2f 20 20 70 62 25 21 34  |ewin%.../  pb%!4|
000023e0  3d 6d 69 73 63 62 25 21  34 2b 28 6d 69 73 63 62  |=miscb%!4+(miscb|
000023f0  25 21 31 32 2d 6d 69 73  63 62 25 21 34 29 2f 32  |%!12-miscb%!4)/2|
00002400  2d 31 32 32 0d 0e b0 2e  20 20 70 62 25 21 38 3d  |-122....  pb%!8=|
00002410  6d 69 73 63 62 25 21 38  2b 28 6d 69 73 63 62 25  |miscb%!8+(miscb%|
00002420  21 31 36 2d 6d 69 73 63  62 25 21 38 29 2f 32 2d  |!16-miscb%!8)/2-|
00002430  38 36 0d 0e ba 16 20 20  70 62 25 21 31 32 3d 70  |86....  pb%!12=p|
00002440  62 25 21 34 2b 32 34 36  0d 0e c4 16 20 20 70 62  |b%!4+246....  pb|
00002450  25 21 31 36 3d 70 62 25  21 38 2b 31 36 38 0d 0e  |%!16=pb%!8+168..|
00002460  ce 0f 20 20 70 62 25 21  32 38 3d 2d 31 0d 0e d8  |..  pb%!28=-1...|
00002470  1f 20 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.  .. "Wimp_Open|
00002480  57 69 6e 64 6f 77 22 2c  2c 70 62 25 0d 0e e2 18  |Window",,pb%....|
00002490  20 c9 20 32 3a f4 20 27  4e 6f 27 20 74 6f 20 73  | . 2:. 'No' to s|
000024a0  61 76 65 3f 0d 0e ec 1e  20 20 c8 99 20 22 57 69  |ave?....  .. "Wi|
000024b0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000024c0  2d 31 0d 0e f6 13 20 20  21 70 62 25 3d 73 68 6f  |-1....  !pb%=sho|
000024d0  77 77 69 6e 25 0d 0f 00  20 20 20 c8 99 20 22 57  |wwin%...   .. "W|
000024e0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000024f0  2c 2c 70 62 25 0d 0f 0a  1b 20 20 f2 6f 70 65 6e  |,,pb%....  .open|
00002500  70 61 72 65 6e 74 28 6f  70 65 6e 70 61 72 25 29  |parent(openpar%)|
00002510  0d 0f 14 0e 20 20 73 70  72 65 78 25 3d a3 0d 0f  |....  sprex%=...|
00002520  1e 29 20 20 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |.)  .. "Wimp_Slo|
00002530  74 53 69 7a 65 22 2c 6f  72 69 67 69 6e 61 6c 73  |tSize",originals|
00002540  6c 6f 74 25 2c 2d 31 0d  0f 28 06 20 cb 0d 0f 32  |lot%,-1..(. ...2|
00002550  05 cb 0d 0f 3c 05 e1 0d  0f 46 04 0d 0f 50 1b dd  |....<....F...P..|
00002560  20 f2 6d 61 67 73 74 72  69 6e 67 28 6f 6e 65 25  | .magstring(one%|
00002570  2c 74 77 6f 25 29 0d 0f  5a 2c e7 20 6f 6e 65 25  |,two%)..Z,. one%|
00002580  3c 3e 30 20 8c 20 24 6d  61 67 31 61 64 25 3d c3  |<>0 . $mag1ad%=.|
00002590  28 bb 28 24 6d 61 67 31  61 64 25 29 2b 6f 6e 65  |(.($mag1ad%)+one|
000025a0  25 29 0d 0f 64 2c e7 20  74 77 6f 25 3c 3e 30 20  |%)..d,. two%<>0 |
000025b0  8c 20 24 6d 61 67 32 61  64 25 3d c3 28 bb 28 24  |. $mag2ad%=.(.($|
000025c0  6d 61 67 32 61 64 25 29  2b 74 77 6f 25 29 0d 0f  |mag2ad%)+two%)..|
000025d0  6e 22 e7 20 bb 28 24 6d  61 67 31 61 64 25 29 3c  |n". .($mag1ad%)<|
000025e0  31 20 24 6d 61 67 31 61  64 25 3d 22 31 22 3a e1  |1 $mag1ad%="1":.|
000025f0  0d 0f 78 26 e7 20 bb 28  24 6d 61 67 31 61 64 25  |..x&. .($mag1ad%|
00002600  29 3e 39 39 39 20 24 6d  61 67 31 61 64 25 3d 22  |)>999 $mag1ad%="|
00002610  39 39 39 22 3a e1 0d 0f  82 22 e7 20 bb 28 24 6d  |999":....". .($m|
00002620  61 67 32 61 64 25 29 3c  31 20 24 6d 61 67 32 61  |ag2ad%)<1 $mag2a|
00002630  64 25 3d 22 31 22 3a e1  0d 0f 8c 26 e7 20 bb 28  |d%="1":....&. .(|
00002640  24 6d 61 67 32 61 64 25  29 3e 39 39 39 20 24 6d  |$mag2ad%)>999 $m|
00002650  61 67 32 61 64 25 3d 22  39 39 39 22 3a e1 0d 0f  |ag2ad%="999":...|
00002660  96 0e f2 73 65 74 73 63  61 6c 65 73 0d 0f a0 2e  |...setscales....|
00002670  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00002680  64 72 61 77 22 2c 6d 61  67 77 69 6e 25 2c 37 32  |draw",magwin%,72|
00002690  2c 30 2c 32 30 30 2c 32  39 30 0d 0f aa 15 f2 61  |,0,200,290.....a|
000026a0  64 6a 75 73 74 77 69 6e  64 6f 77 73 69 7a 65 0d  |djustwindowsize.|
000026b0  0f b4 11 f2 75 70 64 61  74 65 73 70 72 69 74 65  |....updatesprite|
000026c0  0d 0f be 05 e1 0d 0f c8  04 0d 0f d2 10 dd 20 f2  |.............. .|
000026d0  73 65 74 73 63 61 6c 65  73 0d 0f dc 1d 21 7a 6f  |setscales....!zo|
000026e0  6f 6d 25 3d 21 6d 61 67  74 25 2a bb 28 24 6d 61  |om%=!magt%*.($ma|
000026f0  67 31 61 64 25 29 0d 0f  e6 1f 7a 6f 6f 6d 25 21  |g1ad%)....zoom%!|
00002700  34 3d 6d 61 67 74 25 21  34 2a bb 28 24 6d 61 67  |4=magt%!4*.($mag|
00002710  31 61 64 25 29 0d 0f f0  1f 7a 6f 6f 6d 25 21 38  |1ad%)....zoom%!8|
00002720  3d 6d 61 67 74 25 21 38  2a bb 28 24 6d 61 67 32  |=magt%!8*.($mag2|
00002730  61 64 25 29 0d 0f fa 21  7a 6f 6f 6d 25 21 31 32  |ad%)...!zoom%!12|
00002740  3d 6d 61 67 74 25 21 31  32 2a bb 28 24 6d 61 67  |=magt%!12*.($mag|
00002750  32 61 64 25 29 0d 10 04  05 e1 0d 10 0e 04 0d 10  |2ad%)...........|
00002760  18 12 dd 20 f2 64 72 61  67 65 6e 64 28 62 25 29  |... .dragend(b%)|
00002770  0d 10 22 15 ea 20 64 78  25 2c 64 79 25 2c 64 77  |..".. dx%,dy%,dw|
00002780  25 2c 64 69 25 0d 10 2c  24 c8 99 20 22 57 69 6d  |%,di%..,$.. "Wim|
00002790  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000027a0  22 2c 2c 6d 69 73 63 62  25 0d 10 36 0f 64 78 25  |",,miscb%..6.dx%|
000027b0  3d 21 6d 69 73 63 62 25  0d 10 40 10 64 79 25 3d  |=!miscb%..@.dy%=|
000027c0  6d 69 73 63 62 25 21 34  0d 10 4a 11 64 77 25 3d  |miscb%!4..J.dw%=|
000027d0  6d 69 73 63 62 25 21 31  32 0d 10 54 11 64 69 25  |miscb%!12..T.di%|
000027e0  3d 6d 69 73 63 62 25 21  31 36 0d 10 5e 2b 21 6d  |=miscb%!16..^+!m|
000027f0  69 73 63 62 25 3d 34 34  2b 28 a9 28 24 6f 75 74  |iscb%=44+(.($out|
00002800  66 69 6c 65 6e 61 6d 65  61 64 25 29 20 81 20 34  |filenamead%) . 4|
00002810  2a 34 29 2b 34 0d 10 68  0f 6d 69 73 63 62 25 21  |*4)+4..h.miscb%!|
00002820  31 32 3d 30 0d 10 72 0f  6d 69 73 63 62 25 21 31  |12=0..r.miscb%!1|
00002830  36 3d 31 0d 10 7c 11 6d  69 73 63 62 25 21 32 30  |6=1..|.miscb%!20|
00002840  3d 64 77 25 0d 10 86 11  6d 69 73 63 62 25 21 32  |=dw%....miscb%!2|
00002850  34 3d 64 69 25 0d 10 90  11 6d 69 73 63 62 25 21  |4=di%....miscb%!|
00002860  32 38 3d 64 78 25 0d 10  9a 11 6d 69 73 63 62 25  |28=dx%....miscb%|
00002870  21 33 32 3d 64 79 25 0d  10 a4 24 6d 69 73 63 62  |!32=dy%...$miscb|
00002880  25 21 33 36 3d 28 66 69  6c 65 73 69 7a 65 25 20  |%!36=(filesize% |
00002890  81 20 34 29 2a 34 2b 31  30 32 34 0d 10 ae 12 6d  |. 4)*4+1024....m|
000028a0  69 73 63 62 25 21 34 30  3d 26 46 46 39 0d 10 b8  |iscb%!40=&FF9...|
000028b0  20 24 28 6d 69 73 63 62  25 2b 34 34 29 3d 24 6f  | $(miscb%+44)=$o|
000028c0  75 74 66 69 6c 65 6e 61  6d 65 61 64 25 0d 10 c2  |utfilenamead%...|
000028d0  2b c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |+.. "Wimp_SendMe|
000028e0  73 73 61 67 65 22 2c 31  37 2c 6d 69 73 63 62 25  |ssage",17,miscb%|
000028f0  2c 64 77 25 2c 64 69 25  0d 10 cc 13 6d 79 72 65  |,dw%,di%....myre|
00002900  66 25 3d 6d 69 73 63 62  25 21 38 0d 10 d6 1b c8  |f%=miscb%!8.....|
00002910  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00002920  6e 75 22 2c 2d 31 0d 10  e0 10 e7 20 63 6c 6f 73  |nu",-1..... clos|
00002930  69 6e 67 25 20 8c 0d 10  ea 1a 20 f2 6f 70 65 6e  |ing% ..... .open|
00002940  70 61 72 65 6e 74 28 6f  70 65 6e 70 61 72 25 29  |parent(openpar%)|
00002950  0d 10 f4 15 20 21 6d 69  73 63 62 25 3d 73 61 76  |.... !miscb%=sav|
00002960  65 77 69 6e 25 0d 10 fe  22 20 c8 99 20 22 57 69  |ewin%..." .. "Wi|
00002970  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00002980  2c 6d 69 73 63 62 25 0d  11 08 15 20 21 6d 69 73  |,miscb%.... !mis|
00002990  63 62 25 3d 73 68 6f 77  77 69 6e 25 0d 11 12 22  |cb%=showwin%..."|
000029a0  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
000029b0  69 6e 64 6f 77 22 2c 2c  6d 69 73 63 62 25 0d 11  |indow",,miscb%..|
000029c0  1c 05 cd 0d 11 26 05 e1  0d 11 30 04 0d 11 3a 16  |.....&....0...:.|
000029d0  dd 20 f2 64 61 74 61 73  61 76 65 61 63 6b 28 62  |. .datasaveack(b|
000029e0  25 29 0d 11 44 14 e7 20  62 25 21 31 32 3d 6d 79  |%)..D.. b%!12=my|
000029f0  72 65 66 25 20 8c 0d 11  4e 19 20 e7 20 62 25 21  |ref% ...N. . b%!|
00002a00  33 36 3c 3e 2d 31 20 73  61 76 65 64 25 3d b9 0d  |36<>-1 saved%=..|
00002a10  11 58 28 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  |.X( .. "OS_Sprit|
00002a20  65 4f 70 22 2c 26 31 30  43 2c 72 61 6d 25 2c 24  |eOp",&10C,ram%,$|
00002a30  28 62 25 2b 34 34 29 0d  11 62 0f 20 62 25 21 31  |(b%+44)..b. b%!1|
00002a40  32 3d 62 25 21 38 0d 11  6c 0c 20 62 25 21 31 36  |2=b%!8..l. b%!16|
00002a50  3d 33 0d 11 76 25 20 c8  99 20 22 57 69 6d 70 5f  |=3..v% .. "Wimp_|
00002a60  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 38 2c  |SendMessage",18,|
00002a70  62 25 2c 62 25 21 34 0d  11 80 05 cd 0d 11 8a 05  |b%,b%!4.........|
00002a80  e1 0d 11 94 04 0d 11 9e  14 dd 20 f2 68 61 6e 64  |.......... .hand|
00002a90  6c 65 6b 65 79 28 62 25  29 0d 11 a8 0b 6d 69 6e  |lekey(b%)....min|
00002aa0  65 25 3d a3 0d 11 b2 0c  c8 8e 20 21 62 25 20 ca  |e%=....... !b% .|
00002ab0  0d 11 bc 0d c9 20 70 61  72 77 69 6e 25 0d 11 c6  |..... parwin%...|
00002ac0  0f 20 c8 8e 20 62 25 21  32 34 20 ca 0d 11 d0 09  |. .. b%!24 .....|
00002ad0  20 c9 20 31 33 0d 11 da  0f 20 20 c8 8e 20 62 25  | . 13....  .. b%|
00002ae0  21 34 20 ca 0d 11 e4 40  20 20 c9 20 30 2c 31 2c  |!4 ....@  . 0,1,|
00002af0  32 2c 33 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |2,3:.. "Wimp_Set|
00002b00  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 70  |CaretPosition",p|
00002b10  61 72 77 69 6e 25 2c 62  25 21 34 2b 31 2c 2c 2c  |arwin%,b%!4+1,,,|
00002b20  2d 31 2c 31 0d 11 ee 36  20 20 c9 20 34 3a c8 99  |-1,1...6  . 4:..|
00002b30  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00002b40  6f 73 69 74 69 6f 6e 22  2c 70 61 72 77 69 6e 25  |osition",parwin%|
00002b50  2c 32 32 2c 2c 2c 2d 31  2c 31 0d 11 f8 0a 20 20  |,22,,,-1,1....  |
00002b60  c9 20 32 32 0d 12 02 16  20 20 20 21 6d 69 73 63  |. 22....   !misc|
00002b70  62 25 3d 70 61 72 77 69  6e 25 0d 12 0c 1e 20 20  |b%=parwin%....  |
00002b80  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00002b90  4d 65 6e 75 22 2c 2d 31  0d 12 16 24 20 20 20 c8  |Menu",-1...$   .|
00002ba0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00002bb0  64 6f 77 22 2c 2c 6d 69  73 63 62 25 0d 12 20 07  |dow",,miscb%.. .|
00002bc0  20 20 cb 0d 12 2a 0c 20  6d 69 6e 65 25 3d b9 0d  |  ...*. mine%=..|
00002bd0  12 34 0a c9 20 26 31 38  45 0d 12 3e 0e 20 c8 8e  |.4.. &18E..>. ..|
00002be0  20 62 25 21 34 20 ca 0d  12 48 3f 20 c9 20 30 2c  | b%!4 ...H? . 0,|
00002bf0  31 2c 32 2c 33 3a c8 99  20 22 57 69 6d 70 5f 53  |1,2,3:.. "Wimp_S|
00002c00  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00002c10  2c 70 61 72 77 69 6e 25  2c 62 25 21 34 2b 31 2c  |,parwin%,b%!4+1,|
00002c20  2c 2c 2d 31 2c 31 0d 12  52 35 20 c9 20 34 3a c8  |,,-1,1..R5 . 4:.|
00002c30  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
00002c40  50 6f 73 69 74 69 6f 6e  22 2c 70 61 72 77 69 6e  |Position",parwin|
00002c50  25 2c 32 32 2c 2c 2c 2d  31 2c 31 0d 12 5c 35 20  |%,22,,,-1,1..\5 |
00002c60  c9 20 32 32 3a c8 99 20  22 57 69 6d 70 5f 53 65  |. 22:.. "Wimp_Se|
00002c70  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00002c80  70 61 72 77 69 6e 25 2c  30 2c 2c 2c 2d 31 2c 31  |parwin%,0,,,-1,1|
00002c90  0d 12 66 06 20 cb 0d 12  70 0c 20 6d 69 6e 65 25  |..f. ...p. mine%|
00002ca0  3d b9 0d 12 7a 0a c9 20  26 31 38 46 0d 12 84 0e  |=...z.. &18F....|
00002cb0  20 c8 8e 20 62 25 21 34  20 ca 0d 12 8e 35 20 c9  | .. b%!4 ....5 .|
00002cc0  20 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 43  | 0:.. "Wimp_SetC|
00002cd0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 70 61  |aretPosition",pa|
00002ce0  72 77 69 6e 25 2c 32 32  2c 2c 2c 2d 31 2c 31 0d  |rwin%,22,,,-1,1.|
00002cf0  12 98 34 20 c9 20 31 3a  c8 99 20 22 57 69 6d 70  |..4 . 1:.. "Wimp|
00002d00  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00002d10  6e 22 2c 70 61 72 77 69  6e 25 2c 30 2c 2c 2c 2d  |n",parwin%,0,,,-|
00002d20  31 2c 31 0d 12 a2 3d 20  c9 20 32 2c 33 2c 34 3a  |1,1...= . 2,3,4:|
00002d30  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00002d40  74 50 6f 73 69 74 69 6f  6e 22 2c 70 61 72 77 69  |tPosition",parwi|
00002d50  6e 25 2c 62 25 21 34 2d  31 2c 2c 2c 2d 31 2c 31  |n%,b%!4-1,,,-1,1|
00002d60  0d 12 ac 35 20 c9 20 32  32 3a c8 99 20 22 57 69  |...5 . 22:.. "Wi|
00002d70  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00002d80  69 6f 6e 22 2c 70 61 72  77 69 6e 25 2c 34 2c 2c  |ion",parwin%,4,,|
00002d90  2c 2d 31 2c 31 0d 12 b6  06 20 cb 0d 12 c0 0c 20  |,-1,1.... ..... |
00002da0  6d 69 6e 65 25 3d b9 0d  12 ca 05 cb 0d 12 d4 0e  |mine%=..........|
00002db0  c9 20 73 61 76 65 77 69  6e 25 0d 12 de 0f 20 c8  |. savewin%.... .|
00002dc0  8e 20 62 25 21 32 34 20  ca 0d 12 e8 09 20 c9 20  |. b%!24 ..... . |
00002dd0  31 33 0d 12 f2 11 20 20  f2 73 61 76 65 73 70 72  |13....  .savespr|
00002de0  69 74 65 0d 12 fc 1d 20  20 c8 99 20 22 57 69 6d  |ite....  .. "Wim|
00002df0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00002e00  0d 13 06 0d 20 20 6d 69  6e 65 25 3d b9 0d 13 10  |....  mine%=....|
00002e10  06 20 cb 0d 13 1a 0d c9  20 6d 61 67 77 69 6e 25  |. ...... magwin%|
00002e20  0d 13 24 0f 20 c8 8e 20  62 25 21 32 34 20 ca 0d  |..$. .. b%!24 ..|
00002e30  13 2e 10 20 c9 20 26 31  38 45 2c 26 31 38 46 0d  |... . &18E,&18F.|
00002e40  13 38 0f 20 20 c8 8e 20  62 25 21 34 20 ca 0d 13  |.8.  .. b%!4 ...|
00002e50  42 3f 20 20 c9 20 30 3a  c8 99 20 22 57 69 6d 70  |B?  . 0:.. "Wimp|
00002e60  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00002e70  6e 22 2c 6d 61 67 77 69  6e 25 2c 31 2c 2c 2c 2d  |n",magwin%,1,,,-|
00002e80  31 2c a9 28 24 6d 61 67  32 61 64 25 29 0d 13 4c  |1,.($mag2ad%)..L|
00002e90  3f 20 20 c9 20 31 3a c8  99 20 22 57 69 6d 70 5f  |?  . 1:.. "Wimp_|
00002ea0  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00002eb0  22 2c 6d 61 67 77 69 6e  25 2c 30 2c 2c 2c 2d 31  |",magwin%,0,,,-1|
00002ec0  2c a9 28 24 6d 61 67 31  61 64 25 29 0d 13 56 07  |,.($mag1ad%)..V.|
00002ed0  20 20 cb 0d 13 60 09 20  c9 20 31 33 0d 13 6a 0f  |  ...`. . 13..j.|
00002ee0  20 20 c8 8e 20 62 25 21  34 20 ca 0d 13 74 3f 20  |  .. b%!4 ...t? |
00002ef0  20 c9 20 30 3a c8 99 20  22 57 69 6d 70 5f 53 65  | . 0:.. "Wimp_Se|
00002f00  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00002f10  6d 61 67 77 69 6e 25 2c  31 2c 2c 2c 2d 31 2c a9  |magwin%,1,,,-1,.|
00002f20  28 24 6d 61 67 32 61 64  25 29 0d 13 7e 3f 20 20  |($mag2ad%)..~?  |
00002f30  c9 20 31 3a c8 99 20 22  57 69 6d 70 5f 53 65 74  |. 1:.. "Wimp_Set|
00002f40  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6d  |CaretPosition",m|
00002f50  61 67 77 69 6e 25 2c 30  2c 2c 2c 2d 31 2c a9 28  |agwin%,0,,,-1,.(|
00002f60  24 6d 61 67 31 61 64 25  29 0d 13 88 07 20 20 cb  |$mag1ad%)....  .|
00002f70  0d 13 92 15 20 20 f2 6d  61 67 73 74 72 69 6e 67  |....  .magstring|
00002f80  28 30 2c 30 29 0d 13 9c  17 20 20 f2 61 64 6a 75  |(0,0)....  .adju|
00002f90  73 74 77 69 6e 64 6f 77  73 69 7a 65 0d 13 a6 06  |stwindowsize....|
00002fa0  20 cb 0d 13 b0 20 7f 20  c8 99 20 22 57 69 6d 70  | .... . .. "Wimp|
00002fb0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 62 25 21  |_ProcessKey",b%!|
00002fc0  32 34 0d 13 ba 05 cb 0d  13 c4 28 e7 20 6d 69 6e  |24........(. min|
00002fd0  65 25 3d a3 20 c8 99 20  22 57 69 6d 70 5f 50 72  |e%=. .. "Wimp_Pr|
00002fe0  6f 63 65 73 73 4b 65 79  22 2c 62 25 21 32 34 0d  |ocessKey",b%!24.|
00002ff0  13 ce 05 e1 0d 13 d8 04  0d 13 e2 12 dd 20 f2 6d  |............. .m|
00003000  65 73 73 61 67 65 28 62  25 29 0d 13 ec 0e c8 8e  |essage(b%)......|
00003010  20 62 25 21 31 36 20 ca  0d 13 f6 11 c9 20 30 3a  | b%!16 ...... 0:|
00003020  f2 73 68 75 74 64 6f 77  6e 0d 14 00 15 c9 20 31  |.shutdown..... 1|
00003030  3a f2 64 61 74 61 73 61  76 65 28 62 25 29 0d 14  |:.datasave(b%)..|
00003040  0a 18 c9 20 32 3a f2 64  61 74 61 73 61 76 65 61  |... 2:.datasavea|
00003050  63 6b 28 62 25 29 0d 14  14 17 c9 20 33 3a f2 66  |ck(b%)..... 3:.f|
00003060  69 6c 65 63 6f 6d 69 6e  67 28 62 25 29 0d 14 1e  |ilecoming(b%)...|
00003070  15 c9 20 36 3a f2 72 61  6d 66 65 74 63 68 28 62  |.. 6:.ramfetch(b|
00003080  25 29 0d 14 28 1d c9 20  37 3a f4 20 50 52 4f 43  |%)..(.. 7:. PROC|
00003090  72 61 6d 74 72 61 6e 73  6d 69 74 28 62 25 29 0d  |ramtransmit(b%).|
000030a0  14 32 46 f4 20 4e 6f 20  69 6e 63 6f 6d 69 6e 67  |.2F. No incoming|
000030b0  20 52 41 4d 20 74 72 61  6e 73 66 65 72 73 20 2d  | RAM transfers -|
000030c0  20 69 74 27 73 20 61 20  62 69 74 20 61 77 6b 77  | it's a bit awkw|
000030d0  61 72 64 20 73 6f 20 49  20 6a 75 73 74 20 75 73  |ard so I just us|
000030e0  65 20 74 68 65 0d 14 3c  46 f4 20 73 63 72 61 70  |e the..<F. scrap|
000030f0  66 69 6c 65 20 73 79 73  74 65 6d 20 69 6e 73 74  |file system inst|
00003100  65 61 64 20 2d 20 4f 4b  20 61 73 20 6c 6f 6e 67  |ead - OK as long|
00003110  20 61 73 20 79 6f 75 27  76 65 20 67 6f 74 20 61  | as you've got a|
00003120  20 68 61 72 64 20 64 69  73 63 21 0d 14 46 22 c9  | hard disc!..F".|
00003130  20 39 3a f2 6d 6f 64 65  63 68 61 6e 67 65 64 3a  | 9:.modechanged:|
00003140  f2 75 70 64 61 74 65 73  70 72 69 74 65 0d 14 50  |.updatesprite..P|
00003150  18 c9 20 26 35 30 32 3a  f2 73 65 6e 64 68 65 6c  |.. &502:.sendhel|
00003160  70 28 62 25 29 0d 14 5a  19 c9 20 26 34 30 30 43  |p(b%)..Z.. &400C|
00003170  31 3a f2 6d 6f 64 65 63  68 61 6e 67 65 64 0d 14  |1:.modechanged..|
00003180  64 30 c9 20 26 34 30 30  43 35 3a e7 20 62 25 21  |d0. &400C5:. b%!|
00003190  32 34 3d 74 61 73 6b 68  61 6e 64 6c 65 25 20 f2  |24=taskhandle% .|
000031a0  73 6c 6f 74 68 61 6e 64  6c 65 28 62 25 29 0d 14  |slothandle(b%)..|
000031b0  6e 05 cb 0d 14 78 05 e1  0d 14 82 04 0d 14 8c 13  |n....x..........|
000031c0  dd 20 f2 64 61 74 61 73  61 76 65 28 62 25 29 0d  |. .datasave(b%).|
000031d0  14 96 21 e7 20 62 25 21  32 30 3d 2d 32 20 80 20  |..!. b%!20=-2 . |
000031e0  62 25 21 32 34 3d 69 63  6f 6e 62 61 72 25 20 8c  |b%!24=iconbar% .|
000031f0  0d 14 a0 0b 20 21 62 25  3d 36 30 0d 14 aa 0f 20  |.... !b%=60.... |
00003200  62 25 21 31 32 3d 62 25  21 38 0d 14 b4 0c 20 62  |b%!12=b%!8.... b|
00003210  25 21 31 36 3d 32 0d 14  be 0d 20 62 25 21 33 36  |%!16=2.... b%!36|
00003220  3d 2d 31 0d 14 c8 1c 20  24 28 62 25 2b 34 34 29  |=-1.... $(b%+44)|
00003230  3d 22 3c 57 69 6d 70 24  53 63 72 61 70 3e 22 0d  |="<Wimp$Scrap>".|
00003240  14 d2 0c 20 62 25 3f 35  36 3d 30 0d 14 dc 25 20  |... b%?56=0...% |
00003250  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00003260  73 61 67 65 22 2c 31 37  2c 62 25 2c 62 25 21 34  |sage",17,b%,b%!4|
00003270  0d 14 e6 0f 20 73 63 72  61 70 70 79 25 3d b9 0d  |.... scrappy%=..|
00003280  14 f0 05 cd 0d 14 fa 05  e1 0d 15 04 04 0d 15 0e  |................|
00003290  15 dd 20 f2 66 69 6c 65  63 6f 6d 69 6e 67 28 62  |.. .filecoming(b|
000032a0  25 29 0d 15 18 0a ea 20  66 73 69 24 0d 15 22 35  |%)..... fsi$.."5|
000032b0  e7 20 28 62 25 21 34 30  3d 26 32 30 30 30 29 20  |. (b%!40=&2000) |
000032c0  85 20 34 32 2c 22 43 61  6e 27 74 20 70 72 6f 63  |. 42,"Can't proc|
000032d0  65 73 73 20 61 70 70 6c  69 63 61 74 69 6f 6e 73  |ess applications|
000032e0  22 0d 15 2c 11 e7 20 62  25 21 32 30 3c 3e 2d 32  |"..,.. b%!20<>-2|
000032f0  20 e1 0d 15 36 0e c8 8e  20 62 25 21 32 34 20 ca  | ...6... b%!24 .|
00003300  0d 15 40 0e c9 20 69 63  6f 6e 62 61 72 25 0d 15  |..@.. iconbar%..|
00003310  4a 11 20 f2 73 74 72 69  70 65 78 63 65 73 73 0d  |J. .stripexcess.|
00003320  15 54 19 20 69 6e 66 69  6c 65 6e 61 6d 65 24 3d  |.T. infilename$=|
00003330  24 28 62 25 2b 34 34 29  0d 15 5e 13 20 e7 20 ac  |$(b%+44)..^. . .|
00003340  20 73 63 72 61 70 70 79  25 20 8c 0d 15 68 19 20  | scrappy% ...h. |
00003350  20 70 6f 73 25 3d a9 28  69 6e 66 69 6c 65 6e 61  | pos%=.(infilena|
00003360  6d 65 24 29 0d 15 72 29  20 20 c8 95 20 c1 69 6e  |me$)..r)  .. .in|
00003370  66 69 6c 65 6e 61 6d 65  24 2c 70 6f 73 25 2c 31  |filename$,pos%,1|
00003380  29 3c 3e 22 2e 22 20 80  20 70 6f 73 25 0d 15 7c  |)<>"." . pos%..||
00003390  0e 20 20 20 70 6f 73 25  2d 3d 31 0d 15 86 07 20  |.   pos%-=1.... |
000033a0  20 ce 0d 15 90 26 20 20  e7 20 70 6f 73 25 3d 30  | ....&  . pos%=0|
000033b0  20 8c 20 70 6f 73 25 3d  a9 28 69 6e 66 69 6c 65  | . pos%=.(infile|
000033c0  6e 61 6d 65 24 29 2d 31  0d 15 9a 2a 20 20 24 6f  |name$)-1...*  $o|
000033d0  75 74 66 69 6c 65 6e 61  6d 65 61 64 25 3d c1 69  |utfilenamead%=.i|
000033e0  6e 66 69 6c 65 6e 61 6d  65 24 2c 70 6f 73 25 2b  |nfilename$,pos%+|
000033f0  31 29 0d 15 a4 06 20 cc  0d 15 ae 1e 20 20 24 6f  |1).... .....  $o|
00003400  75 74 66 69 6c 65 6e 61  6d 65 61 64 25 3d 22 4f  |utfilenamead%="O|
00003410  75 74 70 75 74 22 0d 15  b8 06 20 cd 0d 15 c2 31  |utput".... ....1|
00003420  20 e7 20 24 6d 6f 64 65  61 64 25 3d 22 22 20 8c  | . $modead%="" .|
00003430  20 6d 6f 64 65 24 3d 22  31 32 20 22 20 8b 20 6d  | mode$="12 " . m|
00003440  6f 64 65 24 3d 24 6d 6f  64 65 61 64 25 0d 15 cc  |ode$=$modead%...|
00003450  1b 20 e7 20 bb 24 78 31  61 64 25 3c 31 20 24 78  |. . .$x1ad%<1 $x|
00003460  31 61 64 25 3d 22 31 22  0d 15 d6 1b 20 e7 20 bb  |1ad%="1".... . .|
00003470  24 78 32 61 64 25 3c 31  20 24 78 32 61 64 25 3d  |$x2ad%<1 $x2ad%=|
00003480  22 31 22 0d 15 e0 1b 20  e7 20 bb 24 79 31 61 64  |"1".... . .$y1ad|
00003490  25 3c 31 20 24 79 31 61  64 25 3d 22 31 22 0d 15  |%<1 $y1ad%="1"..|
000034a0  ea 1b 20 e7 20 bb 24 79  32 61 64 25 3c 31 20 24  |.. . .$y2ad%<1 $|
000034b0  79 32 61 64 25 3d 22 31  22 0d 15 f4 15 20 e7 20  |y2ad%="1".... . |
000034c0  a4 73 65 6c 65 63 74 65  64 28 35 29 20 8c 0d 15  |.selected(5) ...|
000034d0  fe 12 20 20 73 63 61 6c  65 24 3d 22 20 3d 20 22  |..  scale$=" = "|
000034e0  0d 16 08 06 20 cc 0d 16  12 38 20 20 73 63 61 6c  |.... ....8  scal|
000034f0  65 24 3d 22 20 22 2b 24  78 31 61 64 25 2b 22 3a  |e$=" "+$x1ad%+":|
00003500  22 2b 24 78 32 61 64 25  2b 22 20 22 2b 24 79 31  |"+$x2ad%+" "+$y1|
00003510  61 64 25 2b 22 3a 22 2b  24 79 32 61 64 25 0d 16  |ad%+":"+$y2ad%..|
00003520  1c 06 20 cd 0d 16 26 10  20 6f 70 74 69 6f 6e 24  |.. ...&. option$|
00003530  3d 22 20 22 0d 16 30 29  20 e7 20 a4 73 65 6c 65  |=" "..0) . .sele|
00003540  63 74 65 64 28 31 31 29  20 8c 20 6f 70 74 69 6f  |cted(11) . optio|
00003550  6e 24 2b 3d 22 2d 72 61  6e 67 65 20 22 0d 16 3a  |n$+="-range "..:|
00003560  29 20 e7 20 a4 73 65 6c  65 63 74 65 64 28 31 32  |) . .selected(12|
00003570  29 20 8c 20 6f 70 74 69  6f 6e 24 2b 3d 22 2d 65  |) . option$+="-e|
00003580  71 75 61 6c 20 22 0d 16  44 28 20 e7 20 a4 73 65  |qual "..D( . .se|
00003590  6c 65 63 74 65 64 28 31  33 29 20 8c 20 6f 70 74  |lected(13) . opt|
000035a0  69 6f 6e 24 2b 3d 22 2d  69 6e 66 6f 20 22 0d 16  |ion$+="-info "..|
000035b0  4e 2a 20 e7 20 a4 73 65  6c 65 63 74 65 64 28 31  |N* . .selected(1|
000035c0  34 29 20 8c 20 6f 70 74  69 6f 6e 24 2b 3d 22 2d  |4) . option$+="-|
000035d0  69 6e 76 65 72 74 20 22  0d 16 58 38 20 e7 20 a4  |invert "..X8 . .|
000035e0  73 65 6c 65 63 74 65 64  28 31 35 29 20 8c 20 6f  |selected(15) . o|
000035f0  70 74 69 6f 6e 24 2b 3d  22 2d 73 68 61 72 70 65  |ption$+="-sharpe|
00003600  6e 22 2b 24 28 73 68 61  72 70 65 6e 61 64 25 29  |n"+$(sharpenad%)|
00003610  0d 16 62 29 20 e7 20 a4  73 65 6c 65 63 74 65 64  |..b) . .selected|
00003620  28 32 33 29 20 8c 20 6f  70 74 69 6f 6e 24 2b 3d  |(23) . option$+=|
00003630  22 2d 68 66 6c 69 70 20  22 0d 16 6c 29 20 e7 20  |"-hflip "..l) . |
00003640  a4 73 65 6c 65 63 74 65  64 28 32 34 29 20 8c 20  |.selected(24) . |
00003650  6f 70 74 69 6f 6e 24 2b  3d 22 2d 76 66 6c 69 70  |option$+="-vflip|
00003660  20 22 0d 16 76 2b 20 e7  20 a4 73 65 6c 65 63 74  | "..v+ . .select|
00003670  65 64 28 32 35 29 20 8c  20 6f 70 74 69 6f 6e 24  |ed(25) . option$|
00003680  2b 3d 22 2d 6e 6f 73 63  61 6c 65 20 22 0d 16 80  |+="-noscale "...|
00003690  21 20 e7 20 a4 73 65 6c  65 63 74 65 64 28 32 37  |! . .selected(27|
000036a0  29 20 6d 6f 64 65 24 3d  22 41 49 4d 20 22 0d 16  |) mode$="AIM "..|
000036b0  8a 49 20 66 73 69 24 3d  22 43 68 61 6e 67 65 46  |.I fsi$="ChangeF|
000036c0  53 49 20 22 2b 69 6e 66  69 6c 65 6e 61 6d 65 24  |SI "+infilename$|
000036d0  2b 22 20 6e 75 6c 6c 20  22 2b 6d 6f 64 65 24 2b  |+" null "+mode$+|
000036e0  6f 75 74 6d 6f 64 65 24  2b 73 63 61 6c 65 24 2b  |outmode$+scale$+|
000036f0  6f 70 74 69 6f 6e 24 0d  16 94 28 20 c8 99 20 22  |option$...( .. "|
00003700  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 6f  |Wimp_SlotSize",o|
00003710  72 69 67 69 6e 61 6c 73  6c 6f 74 25 2c 2d 31 0d  |riginalslot%,-1.|
00003720  16 9e 14 20 6e 65 78 74  6c 6f 63 61 74 69 6f 6e  |... nextlocation|
00003730  25 3d 93 0d 16 a8 19 20  73 70 72 69 74 65 62 65  |%=..... spritebe|
00003740  66 6f 72 65 25 3d 73 70  72 65 78 25 0d 16 b2 14  |fore%=sprex%....|
00003750  20 21 6d 69 73 63 62 25  3d 70 61 72 77 69 6e 25  | !miscb%=parwin%|
00003760  0d 16 bc 10 20 6d 69 73  63 62 25 21 34 3d 31 36  |.... miscb%!4=16|
00003770  0d 16 c6 23 20 c8 99 20  22 57 69 6d 70 5f 47 65  |...# .. "Wimp_Ge|
00003780  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 6d 69 73  |tIconState",,mis|
00003790  63 62 25 0d 16 d0 2c 20  e7 20 6d 69 73 63 62 25  |cb%..., . miscb%|
000037a0  21 32 34 20 80 20 31 3c  3c 32 31 20 c8 99 20 22  |!24 . 1<<21 .. "|
000037b0  57 69 6d 70 5f 53 65 74  4d 6f 64 65 22 2c 30 0d  |Wimp_SetMode",0.|
000037c0  16 da 0d 20 69 6e 66 6f  24 3d 22 22 0d 16 e4 0e  |... info$=""....|
000037d0  20 72 61 6e 67 65 24 3d  22 22 0d 16 ee 3a 20 64  | range$=""...: d|
000037e0  6f 6e 65 25 3d a4 43 68  61 6e 67 65 46 53 49 28  |one%=.ChangeFSI(|
000037f0  66 73 69 24 2c 2d 31 2c  2d 31 2c 6e 65 78 74 6c  |fsi$,-1,-1,nextl|
00003800  6f 63 61 74 69 6f 6e 25  2c 30 2c 30 2c 72 61 6d  |ocation%,0,0,ram|
00003810  25 2c 30 29 0d 16 f8 44  20 e7 20 64 6f 6e 65 25  |%,0)...D . done%|
00003820  3d 31 30 30 20 85 20 34  32 2c 22 48 69 73 74 6f  |=100 . 42,"Histo|
00003830  67 72 61 6d 20 65 71 75  61 6c 69 7a 61 74 69 6f  |gram equalizatio|
00003840  6e 20 6f 66 20 69 6d 61  67 65 20 6e 6f 74 20 70  |n of image not p|
00003850  6f 73 73 69 62 6c 65 22  0d 17 02 1a 20 66 69 6c  |ossible".... fil|
00003860  65 73 69 7a 65 25 3d 28  72 61 6d 25 21 31 32 29  |esize%=(ram%!12)|
00003870  2d 34 0d 17 0c 24 20 e7  20 69 6e 66 6f 24 3c 3e  |-4...$ . info$<>|
00003880  22 22 20 8c 20 24 73 72  63 69 6e 66 6f 61 64 25  |"" . $srcinfoad%|
00003890  3d 69 6e 66 6f 24 0d 17  16 26 20 e7 20 72 61 6e  |=info$...& . ran|
000038a0  67 65 24 3c 3e 22 22 20  8c 20 24 72 6e 67 69 6e  |ge$<>"" . $rngin|
000038b0  66 6f 61 64 25 3d 72 61  6e 67 65 24 0d 17 20 38  |foad%=range$.. 8|
000038c0  20 f4 20 54 68 65 20 6e  65 78 74 20 74 77 6f 20  | . The next two |
000038d0  6c 69 6e 65 73 20 6d 61  72 6b 20 74 68 65 20 66  |lines mark the f|
000038e0  69 6c 65 73 20 61 73 20  62 65 69 6e 67 20 63 6c  |iles as being cl|
000038f0  6f 73 65 64 0d 17 2a 09  20 63 25 3d 30 0d 17 34  |osed..*. c%=0..4|
00003900  0a 20 63 63 25 3d 30 0d  17 3e 11 20 e7 20 73 63  |. cc%=0..>. . sc|
00003910  72 61 70 70 79 25 20 8c  0d 17 48 1d 20 20 ff 20  |rappy% ...H.  . |
00003920  22 52 65 6d 6f 76 65 20  22 2b 69 6e 66 69 6c 65  |"Remove "+infile|
00003930  6e 61 6d 65 24 0d 17 52  62 20 20 f4 20 49 27 6d  |name$..Rb  . I'm|
00003940  20 6e 6f 74 20 74 61 6b  69 6e 67 20 61 6e 79 20  | not taking any |
00003950  63 68 61 6e 63 65 73 20  2d 20 73 6f 6d 65 6f 6e  |chances - someon|
00003960  65 20 6d 69 67 68 74 20  68 61 76 65 20 63 68 61  |e might have cha|
00003970  6e 67 65 64 20 57 69 6d  70 24 53 63 72 61 70 20  |nged Wimp$Scrap |
00003980  77 68 69 6c 65 20 49 20  77 61 73 6e 27 74 20 6c  |while I wasn't l|
00003990  6f 6f 6b 69 6e 67 21 0d  17 5c 10 20 20 73 63 72  |ooking!..\.  scr|
000039a0  61 70 70 79 25 3d a3 0d  17 66 06 20 cd 0d 17 70  |appy%=...f. ...p|
000039b0  22 20 e7 20 6d 6f 64 65  24 3d 22 41 49 4d 20 22  |" . mode$="AIM "|
000039c0  20 8c 20 f2 61 69 6d 68  61 6e 64 6c 65 3a e1 0d  | . .aimhandle:..|
000039d0  17 7a 0d 20 73 70 72 65  78 25 3d b9 0d 17 84 0d  |.z. sprex%=.....|
000039e0  20 73 61 76 65 64 25 3d  a3 0d 17 8e 13 20 e7 20  | saved%=..... . |
000039f0  eb 3d 6f 6c 64 6d 6f 64  65 25 20 8c 0d 17 98 12  |.=oldmode% .....|
00003a00  20 20 f2 6d 6f 64 65 63  68 61 6e 67 65 64 0d 17  |  .modechanged..|
00003a10  a2 06 20 cc 0d 17 ac 20  20 20 c8 99 20 22 57 69  |.. ....   .. "Wi|
00003a20  6d 70 5f 53 65 74 4d 6f  64 65 22 2c 6f 6c 64 6d  |mp_SetMode",oldm|
00003a30  6f 64 65 25 0d 17 b6 06  20 cd 0d 17 c0 11 20 f2  |ode%.... ..... .|
00003a40  73 65 74 75 70 73 70 72  69 74 65 0d 17 ca 13 20  |setupsprite.... |
00003a50  21 73 68 6f 77 77 69 6e  62 3d 72 61 6d 25 0d 17  |!showwinb=ram%..|
00003a60  d4 17 20 73 68 6f 77 77  69 6e 62 21 34 3d 72 61  |.. showwinb!4=ra|
00003a70  6d 25 2b 31 36 0d 17 de  11 20 73 68 6f 77 77 69  |m%+16.... showwi|
00003a80  6e 62 21 38 3d 30 0d 17  e8 16 20 73 68 6f 77 77  |nb!8=0.... showw|
00003a90  69 6e 62 21 31 36 3d 7a  6f 6f 6d 25 0d 17 f2 12  |inb!16=zoom%....|
00003aa0  20 21 72 64 62 3d 73 68  6f 77 77 69 6e 25 0d 17  | !rdb=showwin%..|
00003ab0  fc 14 20 f2 6d 61 67 73  74 72 69 6e 67 28 30 2c  |.. .magstring(0,|
00003ac0  30 29 0d 18 06 15 20 21  6d 69 73 63 62 25 3d 73  |0).... !miscb%=s|
00003ad0  68 6f 77 77 69 6e 25 0d  18 10 21 20 6d 69 73 63  |howwin%...! misc|
00003ae0  62 25 21 34 3d 72 69 67  68 74 73 63 72 25 2f 32  |b%!4=rightscr%/2|
00003af0  2d 73 70 72 78 25 2f 32  0d 18 1a 22 20 6d 69 73  |-sprx%/2..." mis|
00003b00  63 62 25 21 31 32 3d 72  69 67 68 74 73 63 72 25  |cb%!12=rightscr%|
00003b10  2f 32 2b 73 70 72 78 25  2f 32 0d 18 24 1f 20 6d  |/2+sprx%/2..$. m|
00003b20  69 73 63 62 25 21 38 3d  74 6f 70 73 63 72 25 2f  |iscb%!8=topscr%/|
00003b30  32 2d 73 70 72 79 25 2f  32 0d 18 2e 20 20 6d 69  |2-spry%/2...  mi|
00003b40  73 63 62 25 21 31 36 3d  74 6f 70 73 63 72 25 2f  |scb%!16=topscr%/|
00003b50  32 2b 73 70 72 79 25 2f  32 0d 18 38 11 20 6d 69  |2+spry%/2..8. mi|
00003b60  73 63 62 25 21 32 38 3d  2d 31 0d 18 42 21 20 c8  |scb%!28=-1..B! .|
00003b70  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00003b80  6f 77 22 2c 2c 6d 69 73  63 62 25 0d 18 4c 16 20  |ow",,miscb%..L. |
00003b90  e7 20 73 70 72 69 74 65  62 65 66 6f 72 65 25 20  |. spritebefore% |
00003ba0  8c 0d 18 56 25 20 20 c8  99 20 22 57 69 6d 70 5f  |...V%  .. "Wimp_|
00003bb0  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
00003bc0  6d 69 73 63 62 25 0d 18  60 24 20 20 6d 69 73 63  |miscb%..`$  misc|
00003bd0  62 25 21 38 3d 2d 28 6d  69 73 63 62 25 21 31 36  |b%!8=-(miscb%!16|
00003be0  2d 6d 69 73 63 62 25 21  38 29 0d 18 6a 22 20 20  |-miscb%!8)..j"  |
00003bf0  6d 69 73 63 62 25 21 31  32 3d 6d 69 73 63 62 25  |miscb%!12=miscb%|
00003c00  21 31 32 2d 6d 69 73 63  62 25 21 34 0d 18 74 10  |!12-miscb%!4..t.|
00003c10  20 20 6d 69 73 63 62 25  21 34 3d 30 0d 18 7e 11  |  miscb%!4=0..~.|
00003c20  20 20 6d 69 73 63 62 25  21 31 36 3d 30 0d 18 88  |  miscb%!16=0...|
00003c30  2c 20 20 c8 99 20 22 57  69 6d 70 5f 55 70 64 61  |,  .. "Wimp_Upda|
00003c40  74 65 57 69 6e 64 6f 77  22 2c 2c 6d 69 73 63 62  |teWindow",,miscb|
00003c50  25 20 b8 20 6d 6f 72 65  25 0d 18 92 1c 20 20 78  |% . more%....  x|
00003c60  30 25 3d 6d 69 73 63 62  25 21 34 2d 6d 69 73 63  |0%=miscb%!4-misc|
00003c70  62 25 21 32 30 0d 18 9c  1d 20 20 79 30 25 3d 6d  |b%!20....  y0%=m|
00003c80  69 73 63 62 25 21 31 36  2d 6d 69 73 63 62 25 21  |iscb%!16-miscb%!|
00003c90  32 34 0d 18 a6 0e 20 20  c8 95 20 6d 6f 72 65 25  |24....  .. more%|
00003ca0  0d 18 b0 24 20 20 20 6d  69 73 63 62 25 21 32 38  |...$   miscb%!28|
00003cb0  2d 3d 78 30 25 3a 6d 69  73 63 62 25 21 33 32 2d  |-=x0%:miscb%!32-|
00003cc0  3d 79 30 25 0d 18 ba 24  20 20 20 6d 69 73 63 62  |=y0%...$   miscb|
00003cd0  25 21 33 36 2d 3d 78 30  25 3a 6d 69 73 63 62 25  |%!36-=x0%:miscb%|
00003ce0  21 34 30 2d 3d 79 30 25  0d 18 c4 11 20 20 20 c8  |!40-=y0%....   .|
00003cf0  91 20 78 30 25 2c 79 30  25 0d 18 ce 08 20 20 20  |. x0%,y0%....   |
00003d00  da 0d 18 d8 44 20 20 20  c8 99 20 22 4f 53 5f 53  |....D   .. "OS_S|
00003d10  70 72 69 74 65 4f 70 22  2c 26 31 33 34 2c 72 61  |priteOp",&134,ra|
00003d20  6d 25 2c 6f 6e 61 6d 65  24 2c 30 2c 2d 73 70 72  |m%,oname$,0,-spr|
00003d30  79 25 2c 38 2c 7a 6f 6f  6d 25 2c 73 70 72 69 74  |y%,8,zoom%,sprit|
00003d40  65 70 61 6c 25 0d 18 e2  0d 20 20 20 c8 91 20 30  |epal%....   .. 0|
00003d50  2c 30 0d 18 ec 2d 20 20  20 c8 99 20 22 57 69 6d  |,0...-   .. "Wim|
00003d60  70 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |p_GetRectangle",|
00003d70  2c 6d 69 73 63 62 25 20  b8 20 6d 6f 72 65 25 0d  |,miscb% . more%.|
00003d80  18 f6 07 20 20 ce 0d 19  00 06 20 cd 0d 19 0a 05  |...  ..... .....|
00003d90  cb 0d 19 14 05 e1 0d 19  1e 04 0d 19 28 12 dd 20  |............(.. |
00003da0  f2 73 74 72 69 70 65 78  63 65 73 73 0d 19 32 0a  |.stripexcess..2.|
00003db0  ea 20 70 6f 73 25 0d 19  3c 0a 70 6f 73 25 3d 31  |. pos%..<.pos%=1|
00003dc0  0d 19 46 1c c8 95 20 c1  24 28 62 25 2b 34 34 29  |..F... .$(b%+44)|
00003dd0  2c 70 6f 73 25 2c 31 29  3c 3e bd 30 0d 19 50 0c  |,pos%,1)<>.0..P.|
00003de0  20 70 6f 73 25 2b 3d 31  0d 19 5a 05 ce 0d 19 64  | pos%+=1..Z....d|
00003df0  14 3f 28 62 25 2b 34 33  2b 70 6f 73 25 29 3d 31  |.?(b%+43+pos%)=1|
00003e00  33 0d 19 6e 05 e1 0d 19  78 04 0d 19 82 16 dd 20  |3..n....x...... |
00003e10  a4 73 65 6c 65 63 74 65  64 28 69 63 6f 6e 25 29  |.selected(icon%)|
00003e20  0d 19 8c 13 21 6d 69 73  63 62 25 3d 70 61 72 77  |....!miscb%=parw|
00003e30  69 6e 25 0d 19 96 12 6d  69 73 63 62 25 21 34 3d  |in%....miscb%!4=|
00003e40  69 63 6f 6e 25 0d 19 a0  22 c8 99 20 22 57 69 6d  |icon%...".. "Wim|
00003e50  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003e60  2c 6d 69 73 63 62 25 0d  19 aa 21 e7 20 6d 69 73  |,miscb%...!. mis|
00003e70  63 62 25 21 32 34 20 80  20 31 3c 3c 32 31 20 8c  |cb%!24 . 1<<21 .|
00003e80  20 3d 31 20 8b 20 3d 30  0d 19 b4 04 0d 19 be 20  | =1 . =0....... |
00003e90  dd 20 f2 73 65 74 69 63  6f 6e 28 69 63 6f 6e 68  |. .seticon(iconh|
00003ea0  25 2c 73 65 6c 65 63 74  65 64 25 29 0d 19 c8 20  |%,selected%)... |
00003eb0  e7 20 73 65 6c 65 63 74  65 64 25 3c 3e 30 20 8c  |. selected%<>0 .|
00003ec0  20 73 65 6c 65 63 74 65  64 25 3d 31 0d 19 d2 13  | selected%=1....|
00003ed0  21 6d 69 73 63 62 25 3d  70 61 72 77 69 6e 25 0d  |!miscb%=parwin%.|
00003ee0  19 dc 13 6d 69 73 63 62  25 21 34 3d 69 63 6f 6e  |...miscb%!4=icon|
00003ef0  68 25 0d 19 e6 1a 6d 69  73 63 62 25 21 38 3d 73  |h%....miscb%!8=s|
00003f00  65 6c 65 63 74 65 64 25  3c 3c 32 31 0d 19 f0 13  |elected%<<21....|
00003f10  6d 69 73 63 62 25 21 31  32 3d 31 3c 3c 32 31 0d  |miscb%!12=1<<21.|
00003f20  19 fa 22 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |..".. "Wimp_SetI|
00003f30  63 6f 6e 53 74 61 74 65  22 2c 2c 6d 69 73 63 62  |conState",,miscb|
00003f40  25 0d 1a 04 05 e1 0d 1a  0e 04 0d 1a 18 13 dd 20  |%.............. |
00003f50  f2 72 61 6d 66 65 74 63  68 28 62 25 29 0d 1a 22  |.ramfetch(b%).."|
00003f60  47 f4 20 54 68 69 73 20  70 72 6f 62 61 62 6c 79  |G. This probably|
00003f70  20 77 6f 6e 27 74 20 77  6f 72 6b 20 69 66 20 74  | won't work if t|
00003f80  68 65 20 72 65 63 65 69  76 65 72 27 73 20 62 75  |he receiver's bu|
00003f90  66 66 65 72 20 69 73 20  73 6d 61 6c 6c 65 72 20  |ffer is smaller |
00003fa0  74 68 61 6e 0d 1a 2c 3d  f4 20 74 68 65 20 64 61  |than..,=. the da|
00003fb0  74 61 20 62 65 69 6e 67  20 73 65 6e 74 2e 20 53  |ta being sent. S|
00003fc0  68 6f 75 6c 64 20 62 65  20 66 69 78 65 64 20 6f  |hould be fixed o|
00003fd0  6e 20 6c 61 74 65 72 20  76 65 72 73 69 6f 6e 73  |n later versions|
00003fe0  2e 0d 1a 36 20 f4 20 53  6f 72 72 79 20 69 66 20  |...6 . Sorry if |
00003ff0  74 68 69 73 20 6d 61 74  74 65 72 73 20 2d 20 52  |this matters - R|
00004000  48 0d 1a 40 17 e7 20 62  25 21 32 34 3c 66 69 6c  |H..@.. b%!24<fil|
00004010  65 73 69 7a 65 25 20 8c  0d 1a 4a 19 20 74 72 61  |esize% ...J. tra|
00004020  6e 73 65 6e 64 25 3d 72  61 6d 25 2b 62 25 21 32  |nsend%=ram%+b%!2|
00004030  34 0d 1a 54 05 cc 0d 1a  5e 1d 20 74 72 61 6e 73  |4..T....^. trans|
00004040  65 6e 64 25 3d 72 61 6d  25 2b 66 69 6c 65 73 69  |end%=ram%+filesi|
00004050  7a 65 25 0d 1a 68 05 cd  0d 1a 72 24 e7 20 62 25  |ze%..h....r$. b%|
00004060  21 33 36 3d 2d 31 20 8c  20 73 61 76 65 64 25 3d  |!36=-1 . saved%=|
00004070  a3 20 8b 20 73 61 76 65  64 25 3d b9 0d 1a 7c 47  |. . saved%=...|G|
00004080  c8 99 20 22 57 69 6d 70  5f 54 72 61 6e 73 66 65  |.. "Wimp_Transfe|
00004090  72 42 6c 6f 63 6b 22 2c  74 61 73 6b 68 61 6e 64  |rBlock",taskhand|
000040a0  6c 65 25 2c 72 61 6d 25  2b 34 2c 62 25 21 34 2c  |le%,ram%+4,b%!4,|
000040b0  62 25 21 32 30 2c 66 69  6c 65 73 69 7a 65 25 2b  |b%!20,filesize%+|
000040c0  31 32 38 0d 1a 86 0e 62  25 21 31 32 3d 62 25 21  |128....b%!12=b%!|
000040d0  38 0d 1a 90 0b 62 25 21  31 36 3d 37 0d 1a 9a 13  |8....b%!16=7....|
000040e0  62 25 21 32 34 3d 66 69  6c 65 73 69 7a 65 25 0d  |b%!24=filesize%.|
000040f0  1a a4 24 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..$.. "Wimp_Send|
00004100  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 25 2c 62  |Message",18,b%,b|
00004110  25 21 34 0d 1a ae 10 e7  20 63 6c 6f 73 69 6e 67  |%!4..... closing|
00004120  25 20 8c 0d 1a b8 28 20  c8 99 20 22 57 69 6d 70  |% ....( .. "Wimp|
00004130  5f 53 6c 6f 74 53 69 7a  65 22 2c 6f 72 69 67 69  |_SlotSize",origi|
00004140  6e 61 6c 73 6c 6f 74 25  2c 2d 31 0d 1a c2 0d 20  |nalslot%,-1.... |
00004150  73 70 72 65 78 25 3d a3  0d 1a cc 05 cd 0d 1a d6  |sprex%=.........|
00004160  05 e1 0d 1a e0 04 0d 1a  ea 16 dd 20 f2 72 61 6d  |........... .ram|
00004170  74 72 61 6e 73 6d 69 74  28 62 25 29 0d 1a f4 05  |transmit(b%)....|
00004180  e1 0d 1a fe 04 0d 1b 08  12 dd 20 f2 73 65 74 75  |.......... .setu|
00004190  70 73 70 72 69 74 65 0d  1b 12 40 c8 99 20 22 4f  |psprite...@.. "O|
000041a0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 38  |S_SpriteOp",&128|
000041b0  2c 72 61 6d 25 2c 6f 6e  61 6d 65 24 20 b8 20 2c  |,ram%,oname$ . ,|
000041c0  2c 2c 73 78 25 2c 73 79  25 2c 73 70 6d 61 73 6b  |,,sx%,sy%,spmask|
000041d0  25 2c 73 70 6d 64 25 0d  1b 1c 16 24 73 70 72 6e  |%,spmd%....$sprn|
000041e0  61 6d 65 61 64 25 3d 6f  6e 61 6d 65 24 0d 1b 26  |amead%=oname$..&|
000041f0  16 24 73 70 72 6d 6f 64  65 61 64 25 3d c3 73 70  |.$sprmodead%=.sp|
00004200  6d 64 25 0d 1b 30 10 c8  8e 20 73 70 6d 61 73 6b  |md%..0... spmask|
00004210  25 20 ca 0d 1b 3a 18 c9  20 30 3a 24 73 70 72 6d  |% ...:.. 0:$sprm|
00004220  61 73 6b 61 64 25 3d 22  4e 6f 22 0d 1b 44 19 c9  |askad%="No"..D..|
00004230  20 31 3a 24 73 70 72 6d  61 73 6b 61 64 25 3d 22  | 1:$sprmaskad%="|
00004240  59 65 73 22 0d 1b 4e 05  cb 0d 1b 58 14 24 73 70  |Yes"..N....X.$sp|
00004250  72 77 69 64 74 61 64 25  3d c3 73 78 25 0d 1b 62  |rwidtad%=.sx%..b|
00004260  2f c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |/.. "OS_SpriteOp|
00004270  22 2c 26 31 31 38 2c 72  61 6d 25 2c 6f 6e 61 6d  |",&118,ram%,onam|
00004280  65 24 20 b8 20 2c 2c 73  70 74 72 25 0d 1b 6c 13  |e$ . ,,sptr%..l.|
00004290  e7 20 73 70 74 72 25 21  33 32 3d 34 34 20 8c 0d  |. sptr%!32=44 ..|
000042a0  1b 76 15 20 24 73 70 72  70 61 6c 65 61 64 25 3d  |.v. $sprpalead%=|
000042b0  22 4e 6f 22 0d 1b 80 05  cc 0d 1b 8a 16 20 24 73  |"No"......... $s|
000042c0  70 72 70 61 6c 65 61 64  25 3d 22 59 65 73 22 0d  |prpalead%="Yes".|
000042d0  1b 94 05 cd 0d 1b 9e 19  24 73 70 72 62 79 74 65  |........$sprbyte|
000042e0  61 64 25 3d c3 28 21 73  70 74 72 25 29 0d 1b a8  |ad%=.(!sptr%)...|
000042f0  14 24 73 70 72 68 65 69  67 61 64 25 3d c3 73 79  |.$sprheigad%=.sy|
00004300  25 0d 1b b2 14 24 73 70  72 77 69 64 74 61 64 25  |%....$sprwidtad%|
00004310  3d c3 73 78 25 0d 1b bc  05 e1 0d 1b c6 04 0d 1b  |=.sx%...........|
00004320  d0 17 dd 20 f2 61 64 6a  75 73 74 77 69 6e 64 6f  |... .adjustwindo|
00004330  77 73 69 7a 65 0d 1b da  33 c8 99 20 22 4f 53 5f  |wsize...3.. "OS_|
00004340  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00004350  22 2c 73 70 6d 64 25 2c  34 20 b8 20 2c 2c 73 70  |",spmd%,4 . ,,sp|
00004360  72 78 73 68 69 66 74 25  0d 1b e4 19 73 70 72 78  |rxshift%....sprx|
00004370  25 3d 73 78 25 3c 3c 73  70 72 78 73 68 69 66 74  |%=sx%<<sprxshift|
00004380  25 0d 1b ee 27 73 70 72  78 25 3d 73 70 72 78 25  |%...'sprx%=sprx%|
00004390  2a bb 28 24 6d 61 67 31  61 64 25 29 2f bb 28 24  |*.($mag1ad%)/.($|
000043a0  6d 61 67 32 61 64 25 29  0d 1b f8 33 c8 99 20 22  |mag2ad%)...3.. "|
000043b0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000043c0  62 6c 65 22 2c 73 70 6d  64 25 2c 35 20 b8 20 2c  |ble",spmd%,5 . ,|
000043d0  2c 73 70 72 79 73 68 69  66 74 25 0d 1c 02 19 73  |,spryshift%....s|
000043e0  70 72 79 25 3d 73 79 25  3c 3c 73 70 72 79 73 68  |pry%=sy%<<sprysh|
000043f0  69 66 74 25 0d 1c 0c 27  73 70 72 79 25 3d 73 70  |ift%...'spry%=sp|
00004400  72 79 25 2a bb 28 24 6d  61 67 31 61 64 25 29 2f  |ry%*.($mag1ad%)/|
00004410  bb 28 24 6d 61 67 32 61  64 25 29 0d 1c 16 16 73  |.($mag2ad%)....s|
00004420  68 6f 77 77 69 6e 62 21  31 32 3d 2d 73 70 72 79  |howwinb!12=-spry|
00004430  25 0d 1c 20 0d 21 6d 69  73 63 62 25 3d 30 0d 1c  |%.. .!miscb%=0..|
00004440  2a 13 6d 69 73 63 62 25  21 34 3d 2d 73 70 72 79  |*.miscb%!4=-spry|
00004450  25 0d 1c 34 12 6d 69 73  63 62 25 21 38 3d 73 70  |%..4.miscb%!8=sp|
00004460  72 78 25 0d 1c 3e 0f 6d  69 73 63 62 25 21 31 32  |rx%..>.miscb%!12|
00004470  3d 30 0d 1c 48 27 c8 99  20 22 57 69 6d 70 5f 53  |=0..H'.. "Wimp_S|
00004480  65 74 45 78 74 65 6e 74  22 2c 73 68 6f 77 77 69  |etExtent",showwi|
00004490  6e 25 2c 6d 69 73 63 62  25 0d 1c 52 14 21 6d 69  |n%,miscb%..R.!mi|
000044a0  73 63 62 25 3d 73 68 6f  77 77 69 6e 25 0d 1c 5c  |scb%=showwin%..\|
000044b0  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |$.. "Wimp_GetWin|
000044c0  64 6f 77 53 74 61 74 65  22 2c 2c 6d 69 73 63 62  |dowState",,miscb|
000044d0  25 0d 1c 66 1c 6d 69 73  63 62 25 21 38 3d 6d 69  |%..f.miscb%!8=mi|
000044e0  73 63 62 25 21 31 36 2d  73 70 72 79 25 0d 1c 70  |scb%!16-spry%..p|
000044f0  1c 6d 69 73 63 62 25 21  31 32 3d 6d 69 73 63 62  |.miscb%!12=miscb|
00004500  25 21 34 2b 73 70 72 78  25 0d 1c 7a 1b e7 20 6d  |%!4+sprx%..z.. m|
00004510  69 73 63 62 25 21 34 3c  30 20 6d 69 73 63 62 25  |iscb%!4<0 miscb%|
00004520  21 34 3d 30 0d 1c 84 2b  e7 20 6d 69 73 63 62 25  |!4=0...+. miscb%|
00004530  21 38 3e 72 69 67 68 74  73 63 72 25 20 6d 69 73  |!8>rightscr% mis|
00004540  63 62 25 21 38 3d 72 69  67 68 74 73 63 72 25 0d  |cb%!8=rightscr%.|
00004550  1c 8e 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.. .. "Wimp_Open|
00004560  57 69 6e 64 6f 77 22 2c  2c 6d 69 73 63 62 25 0d  |Window",,miscb%.|
00004570  1c 98 05 e1 0d 1c a2 04  0d 1c ac 12 dd 20 f2 6d  |............. .m|
00004580  6f 64 65 63 68 61 6e 67  65 64 0d 1c b6 0e 6f 6c  |odechanged....ol|
00004590  64 6d 6f 64 65 25 3d eb  0d 1c c0 31 c8 99 20 22  |dmode%=....1.. "|
000045a0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000045b0  62 6c 65 22 2c 2d 31 2c  34 20 b8 20 2c 2c 6d 6f  |ble",-1,4 . ,,mo|
000045c0  64 65 78 73 68 69 66 74  25 0d 1c ca 31 c8 99 20  |dexshift%...1.. |
000045d0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000045e0  61 62 6c 65 22 2c 2d 31  2c 35 20 b8 20 2c 2c 6d  |able",-1,5 . ,,m|
000045f0  6f 64 65 79 73 68 69 66  74 25 0d 1c d4 30 c8 99  |odeyshift%...0..|
00004600  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
00004610  69 61 62 6c 65 22 2c 2d  31 2c 31 31 20 b8 20 2c  |iable",-1,11 . ,|
00004620  2c 72 69 67 68 74 73 63  72 25 0d 1c de 2e c8 99  |,rightscr%......|
00004630  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
00004640  69 61 62 6c 65 22 2c 2d  31 2c 31 32 20 b8 20 2c  |iable",-1,12 . ,|
00004650  2c 74 6f 70 73 63 72 25  0d 1c e8 24 72 69 67 68  |,topscr%...$righ|
00004660  74 73 63 72 25 3d 72 69  67 68 74 73 63 72 25 3c  |tscr%=rightscr%<|
00004670  3c 6d 6f 64 65 78 73 68  69 66 74 25 0d 1c f2 20  |<modexshift%... |
00004680  74 6f 70 73 63 72 25 3d  74 6f 70 73 63 72 25 3c  |topscr%=topscr%<|
00004690  3c 6d 6f 64 65 79 73 68  69 66 74 25 0d 1c fc 0e  |<modeyshift%....|
000046a0  e7 20 73 70 72 65 78 25  20 8c 0d 1d 06 29 20 ea  |. sprex% ....) .|
000046b0  20 73 70 74 72 25 2c 73  70 6d 64 25 2c 70 61 6c  | sptr%,spmd%,pal|
000046c0  74 65 6d 70 25 2c 67 72  61 62 25 2c 70 61 6c 70  |temp%,grab%,palp|
000046d0  74 72 25 0d 1d 10 3c 20  c8 99 20 22 57 69 6d 70  |tr%...< .. "Wimp|
000046e0  5f 52 65 61 64 50 69 78  54 72 61 6e 73 22 2c 26  |_ReadPixTrans",&|
000046f0  31 30 30 2c 72 61 6d 25  2c 6f 6e 61 6d 65 24 2c  |100,ram%,oname$,|
00004700  2c 2c 2c 6d 61 67 74 25  2c 6d 69 73 63 62 25 0d  |,,,magt%,miscb%.|
00004710  1d 1a 0f 20 f2 73 65 74  73 63 61 6c 65 73 0d 1d  |... .setscales..|
00004720  24 30 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |$0 .. "OS_Sprite|
00004730  4f 70 22 2c 26 31 31 38  2c 72 61 6d 25 2c 6f 6e  |Op",&118,ram%,on|
00004740  61 6d 65 24 20 b8 20 2c  2c 73 70 74 72 25 0d 1d  |ame$ . ,,sptr%..|
00004750  2e 13 20 73 70 6d 64 25  3d 73 70 74 72 25 21 34  |.. spmd%=sptr%!4|
00004760  30 0d 1d 38 14 20 e7 20  73 70 74 72 25 21 33 32  |0..8. . sptr%!32|
00004770  3d 34 34 20 8c 0d 1d 42  0f 20 20 70 61 6c 70 74  |=44 ...B.  palpt|
00004780  72 25 3d 30 0d 1d 4c 06  20 cc 0d 1d 56 14 20 20  |r%=0..L. ...V.  |
00004790  de 20 70 61 6c 74 65 6d  70 25 20 32 35 36 0d 1d  |. paltemp% 256..|
000047a0  60 19 20 20 e3 20 67 72  61 62 25 3d 30 20 b8 20  |`.  . grab%=0 . |
000047b0  31 36 34 20 88 20 38 0d  1d 6a 2a 20 20 20 70 61  |164 . 8..j*   pa|
000047c0  6c 74 65 6d 70 25 21 28  67 72 61 62 25 2f 32 29  |ltemp%!(grab%/2)|
000047d0  3d 73 70 74 72 25 21 28  67 72 61 62 25 2b 34 34  |=sptr%!(grab%+44|
000047e0  29 0d 1d 74 07 20 20 ed  0d 1d 7e 16 20 20 70 61  |)..t.  ...~.  pa|
000047f0  6c 70 74 72 25 3d 70 61  6c 74 65 6d 70 25 0d 1d  |lptr%=paltemp%..|
00004800  88 06 20 cd 0d 1d 92 40  20 c8 99 20 22 43 6f 6c  |.. ....@ .. "Col|
00004810  6f 75 72 54 72 61 6e 73  5f 53 65 6c 65 63 74 54  |ourTrans_SelectT|
00004820  61 62 6c 65 22 2c 73 70  6d 64 25 2c 70 61 6c 70  |able",spmd%,palp|
00004830  74 72 25 2c 2d 31 2c 2d  31 2c 73 70 72 69 74 65  |tr%,-1,-1,sprite|
00004840  70 61 6c 25 0d 1d 9c 1b  20 73 68 6f 77 77 69 6e  |pal%.... showwin|
00004850  62 21 32 30 3d 73 70 72  69 74 65 70 61 6c 25 0d  |b!20=spritepal%.|
00004860  1d a6 05 cd 0d 1d b0 20  e7 20 73 70 72 65 78 25  |....... . sprex%|
00004870  3d b9 20 f2 61 64 6a 75  73 74 77 69 6e 64 6f 77  |=. .adjustwindow|
00004880  73 69 7a 65 0d 1d ba 05  e1 0d 1d c4 04 0d 1d ce  |size............|
00004890  13 dd 20 f2 75 70 64 61  74 65 73 70 72 69 74 65  |.. .updatesprite|
000048a0  0d 1d d8 10 e7 20 ac 20  73 70 72 65 78 25 20 e1  |..... . sprex% .|
000048b0  0d 1d e2 4b 21 6d 69 73  63 62 25 3d 73 68 6f 77  |...K!miscb%=show|
000048c0  77 69 6e 25 3a 6d 69 73  63 62 25 21 34 3d 30 3a  |win%:miscb%!4=0:|
000048d0  6d 69 73 63 62 25 21 38  3d 2d 73 70 72 79 25 3a  |miscb%!8=-spry%:|
000048e0  6d 69 73 63 62 25 21 31  32 3d 73 70 72 78 25 3a  |miscb%!12=sprx%:|
000048f0  6d 69 73 63 62 25 21 31  36 3d 30 0d 1d ec 2a c8  |miscb%!16=0...*.|
00004900  99 20 22 57 69 6d 70 5f  55 70 64 61 74 65 57 69  |. "Wimp_UpdateWi|
00004910  6e 64 6f 77 22 2c 2c 6d  69 73 63 62 25 20 b8 20  |ndow",,miscb% . |
00004920  6d 6f 72 65 25 0d 1d f6  1a 78 30 25 3d 6d 69 73  |more%....x0%=mis|
00004930  63 62 25 21 34 2d 6d 69  73 63 62 25 21 32 30 0d  |cb%!4-miscb%!20.|
00004940  1e 00 1b 79 30 25 3d 6d  69 73 63 62 25 21 31 36  |...y0%=miscb%!16|
00004950  2d 6d 69 73 63 62 25 21  32 34 0d 1e 0a 0c c8 95  |-miscb%!24......|
00004960  20 6d 6f 72 65 25 0d 1e  14 22 20 6d 69 73 63 62  | more%..." miscb|
00004970  25 21 32 38 2d 3d 78 30  25 3a 6d 69 73 63 62 25  |%!28-=x0%:miscb%|
00004980  21 33 32 2d 3d 79 30 25  0d 1e 1e 22 20 6d 69 73  |!32-=y0%..." mis|
00004990  63 62 25 21 33 36 2d 3d  78 30 25 3a 6d 69 73 63  |cb%!36-=x0%:misc|
000049a0  62 25 21 34 30 2d 3d 79  30 25 0d 1e 28 0f 20 c8  |b%!40-=y0%..(. .|
000049b0  91 20 78 30 25 2c 79 30  25 0d 1e 32 42 20 c8 99  |. x0%,y0%..2B ..|
000049c0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
000049d0  31 33 34 2c 72 61 6d 25  2c 6f 6e 61 6d 65 24 2c  |134,ram%,oname$,|
000049e0  30 2c 2d 73 70 72 79 25  2c 38 2c 7a 6f 6f 6d 25  |0,-spry%,8,zoom%|
000049f0  2c 73 70 72 69 74 65 70  61 6c 25 0d 1e 3c 0b 20  |,spritepal%..<. |
00004a00  c8 91 20 30 2c 30 0d 1e  46 2b 20 c8 99 20 22 57  |.. 0,0..F+ .. "W|
00004a10  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00004a20  22 2c 2c 6d 69 73 63 62  25 20 b8 20 6d 6f 72 65  |",,miscb% . more|
00004a30  25 0d 1e 50 05 ce 0d 1e  5a 05 e1 0d 1e 64 04 0d  |%..P....Z....d..|
00004a40  1e 6e 13 dd 20 f2 73 65  6e 64 68 65 6c 70 28 62  |.n.. .sendhelp(b|
00004a50  25 29 0d 1e 78 30 68 65  6c 70 24 3d 22 54 68 69  |%)..x0help$="Thi|
00004a60  73 20 77 69 6e 64 6f 77  20 62 65 6c 6f 6e 67 73  |s window belongs|
00004a70  20 74 6f 20 43 68 61 6e  67 65 46 53 49 2e 22 2b  | to ChangeFSI."+|
00004a80  bd 30 0d 1e 82 0e c8 8e  20 62 25 21 33 32 20 ca  |.0...... b%!32 .|
00004a90  0d 1e 8c 95 c9 20 2d 32  3a 68 65 6c 70 24 3d 22  |..... -2:help$="|
00004aa0  54 68 69 73 20 69 73 20  74 68 65 20 43 68 61 6e  |This is the Chan|
00004ab0  67 65 46 53 49 20 69 63  6f 6e 2e 7c 4d 44 72 61  |geFSI icon.|MDra|
00004ac0  67 20 61 20 66 69 6c 65  20 6f 6e 74 6f 20 69 74  |g a file onto it|
00004ad0  20 74 6f 20 70 72 6f 63  65 73 73 20 69 74 20 77  | to process it w|
00004ae0  69 74 68 20 43 68 61 6e  67 65 46 53 49 2e 7c 4d  |ith ChangeFSI.|M|
00004af0  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00004b00  61 64 6a 75 73 74 20 74  68 65 20 70 61 72 61 6d  |adjust the param|
00004b10  65 74 65 72 73 20 66 6f  72 20 43 68 61 6e 67 65  |eters for Change|
00004b20  46 53 49 2e 22 0d 1e 96  0d c9 20 70 61 72 77 69  |FSI."..... parwi|
00004b30  6e 25 0d 1e a0 0f 20 c8  8e 20 62 25 21 33 36 20  |n%.... .. b%!36 |
00004b40  ca 0d 1e aa 37 20 c9 20  30 3a 68 65 6c 70 24 3d  |....7 . 0:help$=|
00004b50  22 45 6e 74 65 72 20 74  68 65 20 6f 75 74 70 75  |"Enter the outpu|
00004b60  74 20 6d 6f 64 65 20 74  6f 20 62 65 20 75 73 65  |t mode to be use|
00004b70  64 20 68 65 72 65 2e 22  0d 1e b4 0e 20 c9 20 31  |d here.".... . 1|
00004b80  2c 32 2c 33 2c 34 0d 1e  be 10 20 20 c8 8e 20 62  |,2,3,4....  .. b|
00004b90  25 21 33 36 20 ca 0d 1e  c8 2d 20 20 c9 20 31 3a  |%!36 ....-  . 1:|
00004ba0  68 65 6c 70 24 3d 22 54  68 69 73 20 69 73 20 74  |help$="This is t|
00004bb0  68 65 20 78 20 6f 75 74  70 75 74 20 72 61 74 69  |he x output rati|
00004bc0  6f 2e 22 0d 1e d2 2c 20  20 c9 20 32 3a 68 65 6c  |o."...,  . 2:hel|
00004bd0  70 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |p$="This is the |
00004be0  78 20 69 6e 70 75 74 20  72 61 74 69 6f 2e 22 0d  |x input ratio.".|
00004bf0  1e dc 2d 20 20 c9 20 33  3a 68 65 6c 70 24 3d 22  |..-  . 3:help$="|
00004c00  54 68 69 73 20 69 73 20  74 68 65 20 79 20 6f 75  |This is the y ou|
00004c10  74 70 75 74 20 72 61 74  69 6f 2e 22 0d 1e e6 2c  |tput ratio."...,|
00004c20  20 20 c9 20 34 3a 68 65  6c 70 24 3d 22 54 68 69  |  . 4:help$="Thi|
00004c30  73 20 69 73 20 74 68 65  20 79 20 69 6e 70 75 74  |s is the y input|
00004c40  20 72 61 74 69 6f 2e 22  0d 1e f0 07 20 20 cb 0d  | ratio."....  ..|
00004c50  1e fa 47 20 20 68 65 6c  70 24 2b 3d 22 7c 4d 53  |..G  help$+="|MS|
00004c60  65 74 20 74 68 65 20 73  63 61 6c 69 6e 67 20 72  |et the scaling r|
00004c70  61 74 69 6f 73 20 61 73  20 79 6f 75 20 77 6f 75  |atios as you wou|
00004c80  6c 64 20 69 6e 20 50 61  69 6e 74 20 61 6e 64 20  |ld in Paint and |
00004c90  44 72 61 77 2e 22 0d 1f  04 4d 20 c9 20 35 3a 68  |Draw."...M . 5:h|
00004ca0  65 6c 70 24 3d 22 53 65  6c 65 63 74 20 74 68 69  |elp$="Select thi|
00004cb0  73 20 69 63 6f 6e 20 74  6f 20 73 63 61 6c 65 20  |s icon to scale |
00004cc0  74 68 65 20 6f 75 74 70  75 74 20 74 6f 20 66 69  |the output to fi|
00004cd0  74 20 74 68 65 20 6f 75  74 70 75 74 20 6d 6f 64  |t the output mod|
00004ce0  65 2e 22 0d 1f 0e 47 20  c9 20 36 3a 68 65 6c 70  |e."...G . 6:help|
00004cf0  24 3d 22 53 65 6c 65 63  74 20 74 68 69 73 20 69  |$="Select this i|
00004d00  63 6f 6e 20 74 6f 20 75  73 65 20 74 68 65 20 73  |con to use the s|
00004d10  63 61 6c 65 20 72 61 74  69 6f 73 20 69 6e 20 74  |cale ratios in t|
00004d20  68 65 20 62 6f 78 65 73  2e 22 0d 1f 18 36 20 c9  |he boxes."...6 .|
00004d30  20 37 3a 68 65 6c 70 24  3d 22 53 65 6c 65 63 74  | 7:help$="Select|
00004d40  20 74 68 69 73 20 69 63  6f 6e 20 66 6f 72 20 73  | this icon for s|
00004d50  74 61 6e 64 61 72 64 20  6f 75 74 70 75 74 2e 22  |tandard output."|
00004d60  0d 1f 22 6f 20 c9 20 38  3a 68 65 6c 70 24 3d 22  |.."o . 8:help$="|
00004d70  53 65 6c 65 63 74 20 74  68 69 73 20 69 63 6f 6e  |Select this icon|
00004d80  20 66 6f 72 20 32 20 6f  72 20 34 20 62 69 74 20  | for 2 or 4 bit |
00004d90  63 6f 6c 6f 75 72 2c 20  6f 72 20 66 6f 72 20 63  |colour, or for c|
00004da0  6c 75 73 74 65 72 65 64  20 64 69 74 68 65 72 69  |lustered ditheri|
00004db0  6e 67 20 69 6e 20 6f 6e  65 20 62 69 74 20 70 65  |ng in one bit pe|
00004dc0  72 20 70 69 78 65 6c 20  6d 6f 64 65 73 2e 22 0d  |r pixel modes.".|
00004dd0  1f 2c 39 20 c9 20 39 3a  68 65 6c 70 24 3d 22 53  |.,9 . 9:help$="S|
00004de0  65 6c 65 63 74 20 74 68  69 73 20 69 63 6f 6e 20  |elect this icon |
00004df0  66 6f 72 20 64 69 67 69  74 61 6c 20 52 47 42 20  |for digital RGB |
00004e00  6f 75 74 70 75 74 2e 22  0d 1f 36 71 20 c9 20 31  |output."..6q . 1|
00004e10  30 3a 68 65 6c 70 24 3d  22 53 65 6c 65 63 74 20  |0:help$="Select |
00004e20  74 68 69 73 20 69 63 6f  6e 20 66 6f 72 20 6e 6f  |this icon for no|
00004e30  20 74 69 6e 74 69 6e 67  20 69 6e 20 32 35 36 20  | tinting in 256 |
00004e40  63 6f 6c 6f 75 72 20 6d  6f 64 65 73 2c 20 6f 72  |colour modes, or|
00004e50  20 73 69 78 74 65 65 6e  20 67 72 65 79 20 6c 65  | sixteen grey le|
00004e60  76 65 6c 73 20 69 6e 20  31 36 20 63 6f 6c 6f 75  |vels in 16 colou|
00004e70  72 20 6d 6f 64 65 73 2e  22 0d 1f 40 4d 20 c9 20  |r modes."..@M . |
00004e80  31 31 3a 68 65 6c 70 24  3d 22 53 65 6c 65 63 74  |11:help$="Select|
00004e90  20 74 68 69 73 20 69 63  6f 6e 20 74 6f 20 65 78  | this icon to ex|
00004ea0  70 61 6e 64 20 74 68 65  20 64 79 6e 61 6d 69 63  |pand the dynamic|
00004eb0  20 72 61 6e 67 65 20 6f  66 20 74 68 65 20 73 6f  | range of the so|
00004ec0  75 72 63 65 2e 22 0d 1f  4a 51 20 c9 20 31 32 3a  |urce."..JQ . 12:|
00004ed0  68 65 6c 70 24 3d 22 53  65 6c 65 63 74 20 74 68  |help$="Select th|
00004ee0  69 73 20 69 63 6f 6e 20  74 6f 20 61 70 70 6c 79  |is icon to apply|
00004ef0  20 68 69 73 74 6f 67 72  61 6d 20 65 71 75 61 6c  | histogram equal|
00004f00  69 73 61 74 69 6f 6e 20  74 6f 20 74 68 65 20 73  |isation to the s|
00004f10  6f 75 72 63 65 2e 22 0d  1f 54 49 20 c9 20 31 33  |ource."..TI . 13|
00004f20  3a 68 65 6c 70 24 3d 22  53 65 6c 65 63 74 20 74  |:help$="Select t|
00004f30  68 69 73 20 69 63 6f 6e  20 66 6f 72 20 69 6e 66  |his icon for inf|
00004f40  6f 72 6d 61 74 69 6f 6e  20 6f 6e 20 74 68 65 20  |ormation on the |
00004f50  73 6f 75 72 63 65 20 70  69 63 74 75 72 65 2e 22  |source picture."|
00004f60  0d 1f 5e 4a 20 c9 20 31  34 3a 68 65 6c 70 24 3d  |..^J . 14:help$=|
00004f70  22 53 65 6c 65 63 74 20  74 68 69 73 20 69 63 6f  |"Select this ico|
00004f80  6e 20 74 6f 20 69 6e 76  65 72 74 20 74 68 65 20  |n to invert the |
00004f90  73 6f 75 72 63 65 20 62  65 66 6f 72 65 20 70 72  |source before pr|
00004fa0  6f 63 65 73 73 69 6e 67  2e 22 0d 1f 68 3d 20 c9  |ocessing."..h= .|
00004fb0  20 31 35 3a 68 65 6c 70  24 3d 22 53 65 6c 65 63  | 15:help$="Selec|
00004fc0  74 20 74 68 69 73 20 69  63 6f 6e 20 74 6f 20 70  |t this icon to p|
00004fd0  72 65 2d 73 68 61 72 70  65 6e 20 74 68 65 20 73  |re-sharpen the s|
00004fe0  6f 75 72 63 65 2e 22 0d  1f 72 9c 20 c9 20 31 36  |ource."..r. . 16|
00004ff0  3a 68 65 6c 70 24 3d 22  53 65 6c 65 63 74 20 74  |:help$="Select t|
00005000  68 69 73 20 69 63 6f 6e  20 74 6f 20 70 72 6f 63  |his icon to proc|
00005010  65 73 73 20 69 6e 20 4d  6f 64 65 20 30 2e 7c 4d  |ess in Mode 0.|M|
00005020  54 68 69 73 20 77 69 6c  6c 20 73 70 65 65 64 20  |This will speed |
00005030  74 68 69 6e 67 73 20 75  70 2c 20 65 73 70 65 63  |things up, espec|
00005040  69 61 6c 6c 79 20 69 66  20 79 6f 75 20 61 72 65  |ially if you are|
00005050  20 69 6e 20 61 20 68 69  67 68 2d 72 65 73 6f 6c  | in a high-resol|
00005060  75 74 69 6f 6e 20 6d 6f  64 65 20 66 6f 72 20 76  |ution mode for v|
00005070  69 65 77 69 6e 67 20 74  68 65 20 6f 75 74 70 75  |iewing the outpu|
00005080  74 2e 22 0d 1f 7c 5c 20  c9 20 32 32 3a 68 65 6c  |t."..|\ . 22:hel|
00005090  70 24 3d 22 45 6e 74 65  72 20 74 68 65 20 76 61  |p$="Enter the va|
000050a0  6c 75 65 20 66 6f 72 20  73 68 61 72 70 65 6e 69  |lue for sharpeni|
000050b0  6e 67 20 68 65 72 65 2c  20 69 6e 20 74 68 65 20  |ng here, in the |
000050c0  72 61 6e 67 65 20 38 2d  33 31 20 28 33 31 3d 73  |range 8-31 (31=s|
000050d0  6f 66 74 2c 20 38 3d 68  61 72 73 68 29 2e 22 0d  |oft, 8=harsh).".|
000050e0  1f 86 42 20 c9 20 32 33  3a 68 65 6c 70 24 3d 22  |..B . 23:help$="|
000050f0  53 65 6c 65 63 74 20 74  68 69 73 20 69 63 6f 6e  |Select this icon|
00005100  20 74 6f 20 66 6c 69 70  20 74 68 65 20 69 6d 61  | to flip the ima|
00005110  67 65 20 68 6f 72 69 7a  6f 6e 74 61 6c 6c 79 2e  |ge horizontally.|
00005120  22 0d 1f 90 40 20 c9 20  32 34 3a 68 65 6c 70 24  |"...@ . 24:help$|
00005130  3d 22 53 65 6c 65 63 74  20 74 68 69 73 20 69 63  |="Select this ic|
00005140  6f 6e 20 74 6f 20 66 6c  69 70 20 74 68 65 20 69  |on to flip the i|
00005150  6d 61 67 65 20 76 65 72  74 69 63 61 6c 6c 79 2e  |mage vertically.|
00005160  22 0d 1f 9a 58 20 c9 20  32 35 3a 68 65 6c 70 24  |"...X . 25:help$|
00005170  3d 22 53 65 6c 65 63 74  20 74 68 69 73 20 69 63  |="Select this ic|
00005180  6f 6e 20 74 6f 20 70 72  6f 63 65 73 73 20 74 68  |on to process th|
00005190  65 20 69 6d 61 67 65 20  77 69 74 68 6f 75 74 20  |e image without |
000051a0  61 75 74 6f 6d 61 74 69  63 20 70 69 78 65 6c 20  |automatic pixel |
000051b0  73 63 61 6c 69 6e 67 2e  22 0d 1f a4 6c 20 c9 20  |scaling."...l . |
000051c0  32 37 3a 68 65 6c 70 24  3d 22 53 65 6c 65 63 74  |27:help$="Select|
000051d0  20 74 68 69 73 20 69 63  6f 6e 20 74 6f 20 70 72  | this icon to pr|
000051e0  6f 64 75 63 65 20 61 20  66 69 6c 65 20 73 75 69  |oduce a file sui|
000051f0  74 61 62 6c 65 20 66 6f  72 20 75 73 65 20 77 69  |table for use wi|
00005200  74 68 20 74 68 65 20 41  49 4d 20 69 6d 61 67 65  |th the AIM image|
00005210  20 70 72 6f 63 65 73 73  69 6e 67 20 70 61 63 6b  | processing pack|
00005220  61 67 65 2e 22 0d 1f ae  06 20 cb 0d 1f b8 05 cb  |age.".... ......|
00005230  0d 1f c2 21 21 6d 69 73  63 62 25 3d 32 30 2b 28  |...!!miscb%=20+(|
00005240  a9 28 68 65 6c 70 24 29  20 81 20 34 2a 34 29 2b  |.(help$) . 4*4)+|
00005250  34 0d 1f cc 0f 6d 69 73  63 62 25 21 38 3d 2d 31  |4....miscb%!8=-1|
00005260  0d 1f d6 12 6d 69 73 63  62 25 21 31 32 3d 62 25  |....miscb%!12=b%|
00005270  21 38 0d 1f e0 12 6d 69  73 63 62 25 21 31 36 3d  |!8....miscb%!16=|
00005280  26 35 30 33 0d 1f ea 16  24 28 6d 69 73 63 62 25  |&503....$(miscb%|
00005290  2b 32 30 29 3d 68 65 6c  70 24 0d 1f f4 25 c8 99  |+20)=help$...%..|
000052a0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000052b0  67 65 22 2c 31 37 2c 6d  69 73 63 62 25 2c 30 0d  |ge",17,miscb%,0.|
000052c0  1f fe 05 e1 0d 20 08 04  0d 20 12 15 dd 20 f2 73  |..... ... ... .s|
000052d0  6c 6f 74 68 61 6e 64 6c  65 28 62 25 29 0d 20 1c  |lothandle(b%). .|
000052e0  0e 62 25 21 31 32 3d 62  25 21 38 0d 20 26 24 c8  |.b%!12=b%!8. &$.|
000052f0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
00005300  61 67 65 22 2c 31 39 2c  62 25 2c 62 25 21 34 0d  |age",19,b%,b%!4.|
00005310  20 30 0e e7 20 73 70 72  65 78 25 20 e1 0d 20 3a  | 0.. sprex% .. :|
00005320  26 e7 20 62 25 21 32 30  3c 3d 6c 6f 61 64 65 6e  |&. b%!20<=loaden|
00005330  64 25 20 8c 20 62 25 21  32 30 3d 6c 6f 61 64 65  |d% . b%!20=loade|
00005340  6e 64 25 0d 20 44 25 e0  3d 6c 6f 61 64 65 6e 64  |nd%. D%.=loadend|
00005350  25 2b 28 62 25 21 32 30  2d 6c 6f 61 64 65 6e 64  |%+(b%!20-loadend|
00005360  25 29 2b 33 32 37 36 38  0d 20 4e 17 6f 72 69 67  |%)+32768. N.orig|
00005370  69 6e 61 6c 73 6c 6f 74  25 3d 62 25 21 32 30 0d  |inalslot%=b%!20.|
00005380  20 58 0a e5 20 8d 74 56  40 0d 20 62 48 f4 20 2a  | X.. .tV@. bH. *|
00005390  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000053a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 20 41 6e 20 61 70  |********** An ap|
000053b0  6f 6c 6f 67 79 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |ology **********|
000053c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000053d0  2a 0d 20 6c 48 f4 20 2a  20 20 20 20 20 20 20 20  |*. lH. *        |
000053e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000053f0  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 20 20 20  |   ----------   |
00005400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005410  20 20 20 20 20 20 20 20  2a 0d 20 76 48 f4 20 2a  |        *. vH. *|
00005420  20 54 68 65 20 47 4f 54  4f 20 68 65 72 65 20 68  | The GOTO here h|
00005430  61 73 20 74 6f 20 62 65  20 75 73 65 64 20 62 65  |as to be used be|
00005440  63 61 75 73 65 20 42 61  73 69 63 20 31 2e 30 34  |cause Basic 1.04|
00005450  20 63 61 6e 27 74 20 63  68 61 6e 67 65 20 20 20  | can't change   |
00005460  2a 0d 20 80 48 f4 20 2a  20 74 68 65 20 76 61 6c  |*. .H. * the val|
00005470  75 65 20 6f 66 20 65 6e  64 20 77 69 74 68 69 6e  |ue of end within|
00005480  20 61 20 50 52 4f 43 65  64 75 72 65 2e 20 4c 61  | a PROCedure. La|
00005490  74 65 72 20 76 65 72 73  69 6f 6e 73 20 6f 66 20  |ter versions of |
000054a0  42 61 73 69 63 20 20 20  2a 0d 20 8a 48 f4 20 2a  |Basic   *. .H. *|
000054b0  20 63 61 6e 20 64 6f 20  74 68 69 73 2c 20 62 75  | can do this, bu|
000054c0  74 20 74 68 65 79 20 61  72 65 6e 27 74 20 61 76  |t they aren't av|
000054d0  61 69 6c 61 62 6c 65 20  66 6f 72 20 72 65 6c 65  |ailable for rele|
000054e0  61 73 65 2c 20 73 6f 20  79 6f 75 27 72 65 20 20  |ase, so you're  |
000054f0  2a 0d 20 94 48 f4 20 2a  20 73 74 75 63 6b 20 77  |*. .H. * stuck w|
00005500  69 74 68 20 47 4f 54 4f  20 66 6f 72 20 6e 6f 77  |ith GOTO for now|
00005510  2e 20 49 20 77 6f 75 6c  64 20 6e 6f 72 6d 61 6c  |. I would normal|
00005520  6c 79 20 6e 65 76 65 72  20 75 73 65 20 69 74 2c  |ly never use it,|
00005530  20 73 6f 20 6e 6f 20 20  2a 0d 20 9e 48 f4 20 2a  | so no  *. .H. *|
00005540  20 73 70 72 65 61 64 69  6e 67 20 72 75 6d 6f 75  | spreading rumou|
00005550  72 73 20 61 62 6f 75 74  20 62 61 64 20 73 74 72  |rs about bad str|
00005560  75 63 74 75 72 65 20 70  6c 65 61 73 65 21 20 20  |ucture please!  |
00005570  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005580  2a 0d 20 a8 48 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |*. .H. *********|
00005590  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000055c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 20 b2 05 e1 0d 20  |*********. .... |
000055d0  bc 04 0d 20 c6 11 dd 20  f2 73 61 76 65 73 70 72  |... ... .savespr|
000055e0  69 74 65 0d 20 d0 54 e7  20 a7 24 6f 75 74 66 69  |ite. .T. .$outfi|
000055f0  6c 65 6e 61 6d 65 61 64  25 2c 22 2e 22 29 3d 30  |lenamead%,".")=0|
00005600  20 8c 20 85 20 34 32 2c  22 54 6f 20 73 61 76 65  | . . 42,"To save|
00005610  2c 20 64 72 61 67 20 74  68 65 20 69 63 6f 6e 20  |, drag the icon |
00005620  74 6f 20 61 20 64 69 72  65 63 74 6f 72 79 20 76  |to a directory v|
00005630  69 65 77 65 72 2e 22 0d  20 da 2e c8 99 20 22 4f  |iewer.". .... "O|
00005640  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 43  |S_SpriteOp",&10C|
00005650  2c 72 61 6d 25 2c 24 6f  75 74 66 69 6c 65 6e 61  |,ram%,$outfilena|
00005660  6d 65 61 64 25 0d 20 e4  0c 73 61 76 65 64 25 3d  |mead%. ..saved%=|
00005670  b9 0d 20 ee 05 e1 0d 20  f8 04 0d 21 02 13 dd 20  |.. .... ...!... |
00005680  f2 69 6e 73 74 61 6c 6c  6f 6e 62 61 72 0d 21 0c  |.installonbar.!.|
00005690  0b 21 70 62 25 3d 2d 31  0d 21 16 0b 70 62 25 21  |.!pb%=-1.!..pb%!|
000056a0  34 3d 30 0d 21 20 0b 70  62 25 21 38 3d 30 0d 21  |4=0.! .pb%!8=0.!|
000056b0  2a 0d 70 62 25 21 31 32  3d 36 38 0d 21 34 0d 70  |*.pb%!12=68.!4.p|
000056c0  62 25 21 31 36 3d 36 38  0d 21 3e 18 70 62 25 21  |b%!16=68.!>.pb%!|
000056d0  32 30 3d 25 31 30 20 84  20 25 31 30 3c 3c 31 32  |20=%10 . %10<<12|
000056e0  0d 21 48 1a 24 28 70 62  25 2b 32 34 29 3d 22 21  |.!H.$(pb%+24)="!|
000056f0  43 68 61 6e 67 65 46 53  49 22 0d 21 52 28 c8 99  |ChangeFSI".!R(..|
00005700  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00005710  6e 22 2c 2c 70 62 25 20  b8 20 69 63 6f 6e 62 61  |n",,pb% . iconba|
00005720  72 25 0d 21 5c 05 e1 0d  21 66 04 0d 21 70 1a dd  |r%.!\...!f..!p..|
00005730  20 f2 67 73 74 28 62 6c  6f 63 6b 25 2c 68 61 6e  | .gst(block%,han|
00005740  64 6c 65 25 29 0d 21 7a  13 21 62 6c 6f 63 6b 25  |dle%).!z.!block%|
00005750  3d 68 61 6e 64 6c 65 25  0d 21 84 24 c8 99 20 22  |=handle%.!.$.. "|
00005760  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00005770  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 21 8e 05  |ate",,block%.!..|
00005780  e1 0d 21 98 04 0d 21 a2  1b dd 20 a4 6f 70 65 6e  |..!...!... .open|
00005790  28 62 6c 6f 63 6b 25 2c  68 61 6e 64 6c 65 25 29  |(block%,handle%)|
000057a0  0d 21 ac 18 f2 67 73 74  28 62 6c 6f 63 6b 25 2c  |.!...gst(block%,|
000057b0  68 61 6e 64 6c 65 25 29  0d 21 b6 16 3d 62 6c 6f  |handle%).!..=blo|
000057c0  63 6b 25 21 33 32 20 80  20 31 3c 3c 31 36 0d 21  |ck%!32 . 1<<16.!|
000057d0  c0 04 0d 21 ca 26 dd 20  a4 63 72 65 61 74 65 6d  |...!.&. .createm|
000057e0  65 6e 75 28 6c 65 76 65  6c 25 2c 74 65 78 74 24  |enu(level%,text$|
000057f0  2c 77 69 64 74 68 25 29  0d 21 d4 49 ea 20 6e 65  |,width%).!.I. ne|
00005800  77 74 65 78 74 24 2c 74  69 74 6c 65 24 2c 70 74  |wtext$,title$,pt|
00005810  72 25 2c 73 68 61 64 65  25 2c 74 69 63 6b 25 2c  |r%,shade%,tick%,|
00005820  64 6f 74 74 65 64 25 2c  73 75 62 6d 65 6e 75 25  |dotted%,submenu%|
00005830  2c 77 72 69 74 61 62 6c  65 25 2c 72 6a 75 73 74  |,writable%,rjust|
00005840  25 0d 21 de 10 e7 20 6c  65 76 65 6c 25 3d 30 20  |%.!... level%=0 |
00005850  8c 0d 21 e8 1c 20 6c 6f  6e 67 70 6f 69 6e 74 65  |..!.. longpointe|
00005860  72 25 3d 6c 6f 6e 67 69  74 65 6d 73 25 0d 21 f2  |r%=longitems%.!.|
00005870  0f 20 6d 62 25 3d 6d 65  6e 75 62 25 0d 21 fc 0e  |. mb%=menub%.!..|
00005880  cc 20 6d 62 25 2b 3d 32  30 30 0d 22 06 05 cd 0d  |. mb%+=200."....|
00005890  22 10 20 74 69 74 6c 65  24 3d c0 74 65 78 74 24  |". title$=.text$|
000058a0  2c a7 74 65 78 74 24 2c  22 7c 22 29 2d 31 29 0d  |,.text$,"|")-1).|
000058b0  22 1a 1f 74 65 78 74 24  3d c1 74 65 78 74 24 2c  |"..text$=.text$,|
000058c0  a7 74 65 78 74 24 2c 22  7c 22 29 2b 31 29 0d 22  |.text$,"|")+1)."|
000058d0  24 14 24 6d 62 25 3d c0  74 69 74 6c 65 24 2c 31  |$.$mb%=.title$,1|
000058e0  31 29 0d 22 2e 0c 6d 62  25 3f 31 32 3d 37 0d 22  |1)."..mb%?12=7."|
000058f0  38 0c 6d 62 25 3f 31 33  3d 32 0d 22 42 0c 6d 62  |8.mb%?13=2."B.mb|
00005900  25 3f 31 34 3d 37 0d 22  4c 0c 6d 62 25 3f 31 35  |%?14=7."L.mb%?15|
00005910  3d 30 0d 22 56 11 6d 62  25 21 31 36 3d 77 69 64  |=0."V.mb%!16=wid|
00005920  74 68 25 0d 22 60 0d 6d  62 25 21 32 30 3d 34 34  |th%."`.mb%!20=44|
00005930  0d 22 6a 0c 6d 62 25 21  32 34 3d 30 0d 22 74 1f  |."j.mb%!24=0."t.|
00005940  e7 20 c2 74 65 78 74 24  2c 31 29 3c 3e 22 7c 22  |. .text$,1)<>"|"|
00005950  20 74 65 78 74 24 2b 3d  22 7c 22 0d 22 7e 0f 70  | text$+="|"."~.p|
00005960  74 72 25 3d 6d 62 25 2b  32 38 0d 22 88 05 f5 0d  |tr%=mb%+28."....|
00005970  22 92 40 20 73 68 61 64  65 25 3d 30 3a 74 69 63  |".@ shade%=0:tic|
00005980  6b 25 3d 30 3a 64 6f 74  74 65 64 25 3d 30 3a 77  |k%=0:dotted%=0:w|
00005990  72 69 74 61 62 6c 65 25  3d 30 3a 72 6a 75 73 74  |ritable%=0:rjust|
000059a0  25 3d 30 3a 73 75 62 6d  65 6e 75 25 3d 2d 31 0d  |%=0:submenu%=-1.|
000059b0  22 9c 1d 20 c8 95 20 a7  22 3c 3e 3a 2a 27 a4 23  |".. .. ."<>:*'.#|
000059c0  22 2c c0 74 65 78 74 24  2c 31 29 29 0d 22 a6 14  |",.text$,1))."..|
000059d0  20 20 c8 8e 20 c0 74 65  78 74 24 2c 31 29 20 ca  |  .. .text$,1) .|
000059e0  0d 22 b0 0b 20 20 c9 20  22 3c 22 0d 22 ba 15 20  |."..  . "<".".. |
000059f0  20 20 73 68 61 64 65 25  3d 26 34 30 30 30 30 30  |  shade%=&400000|
00005a00  0d 22 c4 16 20 20 20 74  65 78 74 24 3d c1 74 65  |."..   text$=.te|
00005a10  78 74 24 2c 32 29 0d 22  ce 0b 20 20 c9 20 22 3e  |xt$,2)."..  . ">|
00005a20  22 0d 22 d8 0e 20 20 20  74 69 63 6b 25 3d 31 0d  |"."..   tick%=1.|
00005a30  22 e2 16 20 20 20 74 65  78 74 24 3d c1 74 65 78  |"..   text$=.tex|
00005a40  74 24 2c 32 29 0d 22 ec  0b 20 20 c9 20 22 3a 22  |t$,2)."..  . ":"|
00005a50  0d 22 f6 10 20 20 20 64  6f 74 74 65 64 25 3d 32  |."..   dotted%=2|
00005a60  0d 23 00 16 20 20 20 74  65 78 74 24 3d c1 74 65  |.#..   text$=.te|
00005a70  78 74 24 2c 32 29 0d 23  0a 0b 20 20 c9 20 22 2a  |xt$,2).#..  . "*|
00005a80  22 0d 23 14 12 20 20 20  77 72 69 74 61 62 6c 65  |".#..   writable|
00005a90  25 3d 34 0d 23 1e 16 20  20 20 74 65 78 74 24 3d  |%=4.#..   text$=|
00005aa0  c1 74 65 78 74 24 2c 32  29 0d 23 28 0b 20 20 c9  |.text$,2).#(.  .|
00005ab0  20 22 27 22 0d 23 32 16  20 20 20 74 65 78 74 24  | "'".#2.   text$|
00005ac0  3d c1 74 65 78 74 24 2c  32 29 0d 23 3c 2c 20 20  |=.text$,2).#<,  |
00005ad0  20 6e 65 77 74 65 78 74  24 3d a0 28 c0 c1 74 65  | newtext$=.(..te|
00005ae0  78 74 24 2c 35 29 2c a7  74 65 78 74 24 2c 22 27  |xt$,5),.text$,"'|
00005af0  22 29 2d 31 29 29 0d 23  46 1a 20 20 20 77 69 64  |")-1)).#F.   wid|
00005b00  74 68 25 3d bb 28 c0 74  65 78 74 24 2c 34 29 29  |th%=.(.text$,4))|
00005b10  0d 23 50 22 20 20 20 74  65 78 74 24 3d c1 74 65  |.#P"   text$=.te|
00005b20  78 74 24 2c a7 74 65 78  74 24 2c 22 27 22 29 2b  |xt$,.text$,"'")+|
00005b30  31 29 0d 23 5a 35 20 20  20 73 75 62 6d 65 6e 75  |1).#Z5   submenu|
00005b40  25 3d a4 63 72 65 61 74  65 6d 65 6e 75 28 6c 65  |%=.createmenu(le|
00005b50  76 65 6c 25 2b 31 2c 6e  65 77 74 65 78 74 24 2c  |vel%+1,newtext$,|
00005b60  77 69 64 74 68 25 29 0d  23 64 0b 20 20 c9 20 22  |width%).#d.  . "|
00005b70  a4 22 0d 23 6e 1e 20 20  20 73 75 62 6d 65 6e 75  |.".#n.   submenu|
00005b80  25 3d bb 28 c1 74 65 78  74 24 2c 32 2c 34 29 29  |%=.(.text$,2,4))|
00005b90  0d 23 78 1f 20 20 20 74  65 78 74 24 3d c2 74 65  |.#x.   text$=.te|
00005ba0  78 74 24 2c a9 28 74 65  78 74 24 29 2d 35 29 0d  |xt$,.(text$)-5).|
00005bb0  23 82 0b 20 20 c9 20 22  23 22 0d 23 8c 0f 20 20  |#..  . "#".#..  |
00005bc0  20 72 6a 75 73 74 25 3d  31 0d 23 96 16 20 20 20  | rjust%=1.#..   |
00005bd0  74 65 78 74 24 3d c1 74  65 78 74 24 2c 32 29 0d  |text$=.text$,2).|
00005be0  23 a0 07 20 20 cb 0d 23  aa 06 20 ce 0d 23 b4 12  |#..  ..#.. ..#..|
00005bf0  20 e7 20 77 72 69 74 61  62 6c 65 25 20 8c 0d 23  | . writable% ..#|
00005c00  be 14 20 20 69 25 3d a7  74 65 78 74 24 2c 22 2c  |..  i%=.text$,",|
00005c10  22 29 0d 23 c8 1d 20 20  70 74 72 25 21 31 32 3d  |").#..  ptr%!12=|
00005c20  a0 28 c0 74 65 78 74 24  2c 69 25 2d 31 29 29 0d  |.(.text$,i%-1)).|
00005c30  23 d2 18 20 20 74 65 78  74 24 3d c1 74 65 78 74  |#..  text$=.text|
00005c40  24 2c 69 25 2b 31 29 0d  23 dc 10 20 20 70 74 72  |$,i%+1).#..  ptr|
00005c50  25 21 31 36 3d 2d 31 0d  23 e6 24 20 20 70 74 72  |%!16=-1.#.$  ptr|
00005c60  25 21 32 30 3d a0 28 c0  74 65 78 74 24 2c a7 74  |%!20=.(.text$,.t|
00005c70  65 78 74 24 2c 22 7c 22  29 29 29 0d 23 f0 06 20  |ext$,"|"))).#.. |
00005c80  cc 0d 23 fa 25 20 20 e7  20 a9 28 c0 74 65 78 74  |..#.%  . .(.text|
00005c90  24 2c a7 74 65 78 74 24  2c 22 7c 22 29 2d 31 29  |$,.text$,"|")-1)|
00005ca0  29 3e 31 31 20 8c 0d 24  04 0e 20 20 20 6c 6f 6e  |)>11 ..$..   lon|
00005cb0  67 25 3d 31 0d 24 0e 2e  20 20 20 24 6c 6f 6e 67  |g%=1.$..   $long|
00005cc0  70 6f 69 6e 74 65 72 25  3d c0 74 65 78 74 24 2c  |pointer%=.text$,|
00005cd0  a7 74 65 78 74 24 2c 22  7c 22 29 2d 31 29 2b bd  |.text$,"|")-1)+.|
00005ce0  31 33 0d 24 18 1b 20 20  20 70 74 72 25 21 31 32  |13.$..   ptr%!12|
00005cf0  3d 6c 6f 6e 67 70 6f 69  6e 74 65 72 25 0d 24 22  |=longpointer%.$"|
00005d00  18 20 20 20 70 74 72 25  21 31 36 3d 26 46 46 46  |.   ptr%!16=&FFF|
00005d10  46 46 46 46 46 0d 24 2c  2b 20 20 20 70 74 72 25  |FFFFF.$,+   ptr%|
00005d20  21 32 30 3d a9 28 c0 74  65 78 74 24 2c a7 74 65  |!20=.(.text$,.te|
00005d30  78 74 24 2c 22 7c 22 29  2d 31 29 2b bd 31 33 29  |xt$,"|")-1)+.13)|
00005d40  0d 24 36 31 20 20 20 6c  6f 6e 67 70 6f 69 6e 74  |.$61   longpoint|
00005d50  65 72 25 2b 3d a9 28 c0  74 65 78 74 24 2c a7 74  |er%+=.(.text$,.t|
00005d60  65 78 74 24 2c 22 7c 22  29 2d 31 29 2b bd 31 33  |ext$,"|")-1)+.13|
00005d70  29 0d 24 40 46 20 20 20  e7 20 6c 6f 6e 67 70 6f  |).$@F   . longpo|
00005d80  69 6e 74 65 72 25 3e 6c  6f 6e 67 69 74 65 6d 73  |inter%>longitems|
00005d90  25 2b 6c 6f 6e 67 73 70  25 20 85 20 30 2c 22 4d  |%+longsp% . 0,"M|
00005da0  65 6e 75 20 77 6f 72 6b  73 70 61 63 65 20 65 78  |enu workspace ex|
00005db0  63 65 65 64 65 64 22 0d  24 4a 07 20 20 cc 0d 24  |ceeded".$J.  ..$|
00005dc0  54 0e 20 20 20 6c 6f 6e  67 25 3d 30 0d 24 5e 2c  |T.   long%=0.$^,|
00005dd0  20 20 20 24 28 70 74 72  25 2b 31 32 29 3d c0 c0  |   $(ptr%+12)=..|
00005de0  74 65 78 74 24 2c a7 74  65 78 74 24 2c 22 7c 22  |text$,.text$,"|"|
00005df0  29 2d 31 29 2c 31 31 29  0d 24 68 07 20 20 cd 0d  |)-1),11).$h.  ..|
00005e00  24 72 06 20 cd 0d 24 7c  20 20 74 65 78 74 24 3d  |$r. ..$|  text$=|
00005e10  c1 74 65 78 74 24 2c a7  74 65 78 74 24 2c 22 7c  |.text$,.text$,"||
00005e20  22 29 2b 31 29 0d 24 86  3b 20 21 70 74 72 25 3d  |")+1).$.; !ptr%=|
00005e30  74 69 63 6b 25 20 84 20  64 6f 74 74 65 64 25 20  |tick% . dotted% |
00005e40  84 20 77 72 69 74 61 62  6c 65 25 20 84 20 28 26  |. writable% . (&|
00005e50  38 30 20 80 20 28 74 65  78 74 24 3d 22 22 29 29  |80 . (text$=""))|
00005e60  0d 24 90 14 20 70 74 72  25 21 34 3d 73 75 62 6d  |.$.. ptr%!4=subm|
00005e70  65 6e 75 25 0d 24 9a 4a  20 70 74 72 25 21 38 3d  |enu%.$.J ptr%!8=|
00005e80  73 68 61 64 65 25 20 84  20 77 72 69 74 61 62 6c  |shade% . writabl|
00005e90  65 25 3c 3c 36 20 84 20  6c 6f 6e 67 25 3c 3c 38  |e%<<6 . long%<<8|
00005ea0  20 84 20 26 30 31 30 30  32 31 20 84 20 72 6a 75  | . &010021 . rju|
00005eb0  73 74 25 3c 3c 39 20 84  20 37 3c 3c 32 34 0d 24  |st%<<9 . 7<<24.$|
00005ec0  a4 0d 20 70 74 72 25 2b  3d 32 34 0d 24 ae 0e fd  |.. ptr%+=24.$...|
00005ed0  20 74 65 78 74 24 3d 22  22 0d 24 b8 3f e7 20 6c  | text$="".$.?. l|
00005ee0  65 76 65 6c 25 3d 30 20  c8 99 20 22 57 69 6d 70  |evel%=0 .. "Wimp|
00005ef0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 30 2c 6d  |_CreateMenu",0,m|
00005f00  65 6e 75 62 25 2c 6d 6f  75 73 65 78 25 2d 36 34  |enub%,mousex%-64|
00005f10  2c 6d 6f 75 73 65 79 25  0d 24 c2 08 3d 6d 62 25  |,mousey%.$..=mb%|
00005f20  0d 24 cc 04 0d 24 d6 15  dd 20 f2 6d 65 6e 75 73  |.$...$... .menus|
00005f30  65 6c 65 63 74 28 62 25  29 0d 24 e0 0d ea 20 61  |elect(b%).$... a|
00005f40  64 6a 75 73 74 25 0d 24  ea 25 c8 99 20 22 57 69  |djust%.$.%.. "Wi|
00005f50  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00005f60  6f 22 2c 2c 6d 6f 75 73  65 62 25 0d 24 f4 19 61  |o",,mouseb%.$..a|
00005f70  64 6a 75 73 74 25 3d 6d  6f 75 73 65 62 25 21 38  |djust%=mouseb%!8|
00005f80  20 80 20 31 0d 24 fe 11  c8 8e 20 6d 65 6e 74 79  | . 1.$.... menty|
00005f90  70 65 25 20 ca 0d 25 08  07 c9 20 30 0d 25 12 0d  |pe% ..%... 0.%..|
00005fa0  20 c8 8e 20 21 62 25 20  ca 0d 25 1c 33 20 c9 20  | .. !b% ..%.3 . |
00005fb0  30 2c 31 3a f4 20 53 65  6c 65 63 74 69 6e 67 20  |0,1:. Selecting |
00005fc0  69 6e 66 6f 2f 6f 70 74  69 6f 6e 73 20 69 73 20  |info/options is |
00005fd0  6e 6f 6e 73 65 6e 73 69  63 61 6c 21 0d 25 26 15  |nonsensical!.%&.|
00005fe0  20 c9 20 32 3a f2 73 61  76 65 63 68 6f 69 63 65  | . 2:.savechoice|
00005ff0  73 0d 25 30 12 20 c9 20  33 3a f2 73 68 75 74 64  |s.%0. . 3:.shutd|
00006000  6f 77 6e 0d 25 3a 06 20  cb 0d 25 44 07 c9 20 31  |own.%:. ..%D.. 1|
00006010  0d 25 4e 0d 20 c8 8e 20  21 62 25 20 ca 0d 25 58  |.%N. .. !b% ..%X|
00006020  34 20 f4 20 49 20 64 6f  6e 27 74 20 6c 69 6b 65  |4 . I don't like|
00006030  20 73 61 76 69 6e 67 20  77 69 74 68 20 6f 6e 6c  | saving with onl|
00006040  79 20 74 68 65 20 6c 65  61 66 6e 61 6d 65 2e 2e  |y the leafname..|
00006050  2e 0d 25 62 06 20 cb 0d  25 6c 05 cb 0d 25 76 1a  |..%b. ..%l...%v.|
00006060  e7 20 61 64 6a 75 73 74  25 20 80 20 ac 20 63 6c  |. adjust% . . cl|
00006070  6f 73 65 25 20 8c 0d 25  80 12 20 c8 8e 20 6d 65  |ose% ..%.. .. me|
00006080  6e 74 79 70 65 25 20 ca  0d 25 8a 69 20 c9 20 30  |ntype% ..%.i . 0|
00006090  3a 6d 65 6e 75 25 3d a4  63 72 65 61 74 65 6d 65  |:menu%=.createme|
000060a0  6e 75 28 30 2c 22 43 68  61 6e 67 65 46 53 49 7c  |nu(0,"ChangeFSI||
000060b0  a4 22 2b c3 61 62 6f 75  74 77 69 6e 25 2b 22 49  |."+.aboutwin%+"I|
000060c0  6e 66 6f 7c a4 22 2b c3  70 61 72 77 69 6e 25 2b  |nfo|."+.parwin%+|
000060d0  22 43 68 6f 69 63 65 73  7c 53 61 76 65 20 63 68  |"Choices|Save ch|
000060e0  6f 69 63 65 73 7c 51 75  69 74 7c 22 2c 32 30 32  |oices|Quit|",202|
000060f0  29 0d 25 94 08 20 c9 20  31 0d 25 9e 2b 20 20 e7  |).%.. . 1.%.+  .|
00006100  20 69 6e 66 6f 24 3d 22  22 20 8c 20 73 68 61 64  | info$="" . shad|
00006110  65 30 24 3d 22 3c 22 20  8b 20 73 68 61 64 65 30  |e0$="<" . shade0|
00006120  24 3d 22 22 0d 25 a8 2c  20 20 e7 20 72 61 6e 67  |$="".%.,  . rang|
00006130  65 24 3d 22 22 20 8c 20  73 68 61 64 65 31 24 3d  |e$="" . shade1$=|
00006140  22 3c 22 20 8b 20 73 68  61 64 65 31 24 3d 22 22  |"<" . shade1$=""|
00006150  0d 25 b2 c2 20 20 6d 65  6e 75 25 3d a4 63 72 65  |.%..  menu%=.cre|
00006160  61 74 65 6d 65 6e 75 28  30 2c 22 43 68 61 6e 67  |atemenu(0,"Chang|
00006170  65 46 53 49 7c a4 22 2b  c3 73 70 72 69 6e 66 6f  |eFSI|."+.sprinfo|
00006180  77 69 6e 25 2b 22 49 6d  61 67 65 20 69 6e 66 6f  |win%+"Image info|
00006190  7c 22 2b 73 68 61 64 65  30 24 2b 22 a4 22 2b c3  ||"+shade0$+"."+.|
000061a0  73 72 63 69 6e 66 6f 77  69 6e 25 2b 22 53 6f 75  |srcinfowin%+"Sou|
000061b0  72 63 65 20 69 6e 66 6f  7c 22 2b 73 68 61 64 65  |rce info|"+shade|
000061c0  31 24 2b 22 a4 22 2b c3  72 6e 67 69 6e 66 6f 77  |1$+"."+.rnginfow|
000061d0  69 6e 25 2b 22 52 61 6e  67 65 20 69 6e 66 6f 7c  |in%+"Range info||
000061e0  a4 22 2b c3 6d 61 67 77  69 6e 25 2b 22 5a 6f 6f  |."+.magwin%+"Zoo|
000061f0  6d 7c a4 22 2b c3 73 61  76 65 77 69 6e 25 2b 22  |m|."+.savewin%+"|
00006200  53 61 76 65 20 73 70 72  69 74 65 7c 22 2c 32 30  |Save sprite|",20|
00006210  32 29 0d 25 bc 06 20 cb  0d 25 c6 05 cd 0d 25 d0  |2).%.. ..%....%.|
00006220  05 e1 0d 25 da 04 0d 25  e4 12 dd 20 f2 73 61 76  |...%...%... .sav|
00006230  65 63 68 6f 69 63 65 73  0d 25 ee 26 6f 75 74 63  |echoices.%.&outc|
00006240  25 3d ae 28 22 3c 43 68  61 6e 67 65 46 53 49 24  |%=.("<ChangeFSI$|
00006250  44 69 72 3e 2e 43 68 6f  69 63 65 73 22 29 0d 25  |Dir>.Choices").%|
00006260  f8 15 d5 23 6f 75 74 63  25 2c bb 24 6d 6f 64 65  |...#outc%,.$mode|
00006270  61 64 25 0d 26 02 12 f1  23 6f 75 74 63 25 2c 24  |ad%.&...#outc%,$|
00006280  78 31 61 64 25 0d 26 0c  12 f1 23 6f 75 74 63 25  |x1ad%.&...#outc%|
00006290  2c 24 79 31 61 64 25 0d  26 16 12 f1 23 6f 75 74  |,$y1ad%.&...#out|
000062a0  63 25 2c 24 78 32 61 64  25 0d 26 20 12 f1 23 6f  |c%,$x2ad%.& ..#o|
000062b0  75 74 63 25 2c 24 79 32  61 64 25 0d 26 2a 11 c8  |utc%,$y2ad%.&*..|
000062c0  8e 20 6f 75 74 6d 6f 64  65 24 20 ca 0d 26 34 13  |. outmode$ ..&4.|
000062d0  c9 20 22 20 22 3a 6f 75  74 73 65 74 25 3d 30 0d  |. " ":outset%=0.|
000062e0  26 3e 13 c9 20 22 43 22  3a 6f 75 74 73 65 74 25  |&>.. "C":outset%|
000062f0  3d 31 0d 26 48 13 c9 20  22 44 22 3a 6f 75 74 73  |=1.&H.. "D":outs|
00006300  65 74 25 3d 32 0d 26 52  13 c9 20 22 54 22 3a 6f  |et%=2.&R.. "T":o|
00006310  75 74 73 65 74 25 3d 33  0d 26 5c 05 cb 0d 26 66  |utset%=3.&\...&f|
00006320  85 d5 23 6f 75 74 63 25  2c 6f 75 74 73 65 74 25  |..#outc%,outset%|
00006330  20 84 20 a4 73 65 6c 65  63 74 65 64 28 31 31 29  | . .selected(11)|
00006340  3c 3c 32 20 84 20 a4 73  65 6c 65 63 74 65 64 28  |<<2 . .selected(|
00006350  31 32 29 3c 3c 33 20 84  20 a4 73 65 6c 65 63 74  |12)<<3 . .select|
00006360  65 64 28 31 33 29 3c 3c  34 20 84 20 a4 73 65 6c  |ed(13)<<4 . .sel|
00006370  65 63 74 65 64 28 31 34  29 3c 3c 35 20 84 20 a4  |ected(14)<<5 . .|
00006380  73 65 6c 65 63 74 65 64  28 31 35 29 3c 3c 36 20  |selected(15)<<6 |
00006390  84 20 a4 73 65 6c 65 63  74 65 64 28 31 36 29 3c  |. .selected(16)<|
000063a0  3c 37 0d 26 70 64 d5 23  6f 75 74 63 25 2c a4 73  |<7.&pd.#outc%,.s|
000063b0  65 6c 65 63 74 65 64 28  35 29 20 84 20 a4 73 65  |elected(5) . .se|
000063c0  6c 65 63 74 65 64 28 32  33 29 3c 3c 31 20 84 20  |lected(23)<<1 . |
000063d0  a4 73 65 6c 65 63 74 65  64 28 32 34 29 3c 3c 32  |.selected(24)<<2|
000063e0  20 84 20 a4 73 65 6c 65  63 74 65 64 28 32 35 29  | . .selected(25)|
000063f0  3c 3c 33 20 84 20 a4 73  65 6c 65 63 74 65 64 28  |<<3 . .selected(|
00006400  32 36 29 3c 3c 34 0d 26  7a 1a d5 23 6f 75 74 63  |26)<<4.&z..#outc|
00006410  25 2c bb 28 24 73 68 61  72 70 65 6e 61 64 25 29  |%,.($sharpenad%)|
00006420  0d 26 84 0b d9 23 6f 75  74 63 25 0d 26 8e 05 e1  |.&...#outc%.&...|
00006430  0d 26 98 04 0d 26 a2 12  dd 20 f2 65 72 72 6f 72  |.&...&... .error|
00006440  28 61 72 67 25 29 0d 26  ac 12 f2 63 6c 6f 73 65  |(arg%).&...close|
00006450  6f 70 65 6e 28 63 25 29  0d 26 b6 13 f2 63 6c 6f  |open(c%).&...clo|
00006460  73 65 6f 70 65 6e 28 63  63 25 29 0d 26 c0 2c e7  |seopen(cc%).&.,.|
00006470  20 eb 3c 3e 6f 6c 64 6d  6f 64 65 25 20 c8 99 20  | .<>oldmode% .. |
00006480  22 57 69 6d 70 5f 53 65  74 4d 6f 64 65 22 2c 6f  |"Wimp_SetMode",o|
00006490  6c 64 6d 6f 64 65 25 0d  26 ca 0d 21 6d 69 73 63  |ldmode%.&..!misc|
000064a0  62 25 3d 30 0d 26 d4 0a  c8 8e 20 9f 20 ca 0d 26  |b%=0.&.... . ..&|
000064b0  de 08 c9 20 31 31 0d 26  e8 0f 20 e7 20 64 65 62  |... 11.&.. . deb|
000064c0  75 67 25 20 8c 0d 26 f2  0d 20 66 6c 61 67 73 25  |ug% ..&.. flags%|
000064d0  3d 32 0d 26 fc 38 20 24  28 6d 69 73 63 62 25 2b  |=2.&.8 $(miscb%+|
000064e0  34 29 3d 22 49 74 27 73  20 66 61 6c 6c 65 6e 20  |4)="It's fallen |
000064f0  6f 76 65 72 20 61 74 20  6c 69 6e 65 20 22 2b c3  |over at line "+.|
00006500  28 9e 29 2b 22 20 22 2b  f6 24 0d 27 06 05 cc 0d  |(.)+" "+.$.'....|
00006510  27 10 0d 20 66 6c 61 67  73 25 3d 31 0d 27 1a 66  |'.. flags%=1.'.f|
00006520  20 24 28 6d 69 73 63 62  25 2b 34 29 3d 22 43 61  | $(miscb%+4)="Ca|
00006530  6e 6e 6f 74 20 63 6c 61  69 6d 20 65 6e 6f 75 67  |nnot claim enoug|
00006540  68 20 6d 65 6d 6f 72 79  20 74 6f 20 70 72 6f 63  |h memory to proc|
00006550  65 73 73 20 69 6d 61 67  65 20 2d 20 70 6c 65 61  |ess image - plea|
00006560  73 65 20 69 6e 63 72 65  61 73 65 20 73 6c 6f 74  |se increase slot|
00006570  73 69 7a 65 20 6f 66 20  43 68 61 6e 67 65 46 53  |size of ChangeFS|
00006580  49 22 0d 27 24 05 cd 0d  27 2e 27 c8 99 20 22 57  |I".'$...'.'.. "W|
00006590  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 6f 72  |imp_SlotSize",or|
000065a0  69 67 69 6e 61 6c 73 6c  6f 74 25 2c 2d 31 0d 27  |iginalslot%,-1.'|
000065b0  38 25 c9 20 34 32 3a f4  20 41 20 6e 6f 6e 20 66  |8%. 42:. A non f|
000065c0  61 74 61 6c 20 69 6e 74  65 72 6e 61 6c 20 65 72  |atal internal er|
000065d0  72 6f 72 0d 27 42 0d 20  66 6c 61 67 73 25 3d 31  |ror.'B. flags%=1|
000065e0  0d 27 4c 13 20 24 28 6d  69 73 63 62 25 2b 34 29  |.'L. $(miscb%+4)|
000065f0  3d f6 24 0d 27 56 1d c9  20 32 32 33 2c 31 38 33  |=.$.'V.. 223,183|
00006600  3a f4 20 46 69 6c 65 20  70 72 6f 62 6c 65 6d 73  |:. File problems|
00006610  0d 27 60 0d 20 66 6c 61  67 73 25 3d 31 0d 27 6a  |.'`. flags%=1.'j|
00006620  2a 20 24 28 6d 69 73 63  62 25 2b 34 29 3d 22 55  |* $(miscb%+4)="U|
00006630  6e 65 78 70 65 63 74 65  64 20 65 6e 64 20 6f 66  |nexpected end of|
00006640  20 66 69 6c 65 2e 22 0d  27 74 1a c9 20 26 31 30  | file.".'t.. &10|
00006650  38 44 36 3a f4 20 27 4e  6f 74 20 66 6f 75 6e 64  |8D6:. 'Not found|
00006660  27 0d 27 7e 3c 20 24 28  6d 69 73 63 62 25 2b 34  |'.'~< $(miscb%+4|
00006670  29 3d 22 44 69 72 65 63  74 6f 72 79 20 6e 6f 74  |)="Directory not|
00006680  20 66 6f 75 6e 64 20 2d  20 63 6f 75 6c 64 20 6e  | found - could n|
00006690  6f 74 20 73 61 76 65 20  66 69 6c 65 22 0d 27 88  |ot save file".'.|
000066a0  0d 20 66 6c 61 67 73 25  3d 31 0d 27 92 05 7f 0d  |. flags%=1.'....|
000066b0  27 9c 22 20 24 28 6d 69  73 63 62 25 2b 34 29 3d  |'." $(miscb%+4)=|
000066c0  f6 24 2b 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |.$+" at line "+.|
000066d0  9e 0d 27 a6 0d 20 66 6c  61 67 73 25 3d 32 0d 27  |..'.. flags%=2.'|
000066e0  b0 05 cb 0d 27 ba 40 c8  99 20 22 57 69 6d 70 5f  |....'.@.. "Wimp_|
000066f0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 6d 69 73  |ReportError",mis|
00006700  63 62 25 2c 66 6c 61 67  73 25 2c 22 43 68 61 6e  |cb%,flags%,"Chan|
00006710  67 65 46 53 49 22 20 b8  20 2c 72 65 73 70 6f 6e  |geFSI" . ,respon|
00006720  73 65 25 0d 27 c4 26 e7  20 61 72 67 25 3d 30 20  |se%.'.&. arg%=0 |
00006730  84 20 72 65 73 70 6f 6e  73 65 25 3d 32 20 f2 73  |. response%=2 .s|
00006740  68 75 74 64 6f 77 6e 3a  e0 0d 27 ce 05 e1 0d 27  |hutdown:..'....'|
00006750  d8 04 0d 27 e2 19 dd 20  f2 63 6c 6f 73 65 6f 70  |...'... .closeop|
00006760  65 6e 28 68 61 6e 64 6c  65 25 29 0d 27 ec 17 e7  |en(handle%).'...|
00006770  20 68 61 6e 64 6c 65 25  20 d9 23 68 61 6e 64 6c  | handle% .#handl|
00006780  65 25 0d 27 f6 05 e1 0d  ff                       |e%.'.....|
00006789