� > !SayRead.SatRead
4� Version 1.0 By Mike Cook - Musbury Consultants
� � �errorbox
(.� taskid% 4:$taskid%="TASK": � intmess% 20
2Iintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
<Mș "Wimp_Initialise",300,!taskid%,"SatRead",intmess% � version%,taskhand%
F
P;� q% &300,csw256% &300,temp% 300,buffers% 512,menu% 228
Z*� menu256% 256,svw% &300,TextWarn% 255
d7� ww% 300, WN% 255, cont% 1000, contI% 1000, SF% 16
n?� daname% 80,code% &220,PTT% 2048,SPoint%(20),paltemp% 2048
x.� IX%(20),IY%(20),IX1%(20),IY1%(20),CN% 30
�IBL%=2880+80
�!� UP% 256*4,SVW% 256,IB% IBL%
�� Hist% 1024
�2ș "Wimp_OpenTemplate",,"<SatR$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�
�Bș "Wimp_LoadTemplate",,csw256%+4,temp%,temp%+256,-1,"SP256",0
� csw256%!28=-1:csw256%!76=WN%
�/ș "Wimp_CreateWindow",,csw256%+4 � Win256%
�csw256%!0=Win256%
�

Fș "Wimp_LoadTemplate",,cont%+4,contI%,contI%+1000,-1,"Controls",0

cont%!28=-1

� A%=0 � 12

"&SPoint%(A%)=!(cont%+4+88+20+32*A%)

,=IX%(A%)=!(cont%+4+88+32*A%):IY%(A%)=!(cont%+4+88+4+32*A%)

6BIX1%(A%)=!(cont%+4+88+8+32*A%):IY1%(A%)=!(cont%+4+88+12+32*A%)

@�

J

T.ș "Wimp_CreateWindow",,cont%+4 � Control%

^cont%!0=Control%

h

rCș "Wimp_LoadTemplate",,svw%+4,SVW%,SVW%+256,-1,"save_script",0

|svw%!28=-1

�+ș "Wimp_CreateWindow",,svw%+4 � SVWIN%

�svw%!0=SVWIN%

�

�9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0

�)q%!108=TextWarn%:q%!112=-1:q%!116=300

� XQ%=q%!8-q%!0:YQ%=q%!12-q%!4

�*ș "Wimp_CreateWindow",,q% � warningW%

�

�ș "Wimp_CloseTemplate"

�� � �errorbox

�

��_Cinit

�Alloc%=0:Timer%=0
%SPX%=290: SPY%=320 : OffSet%=4060
$WN%="Blank Sprite"
$SF%!0=1:SF%!4=1:SF%!8=1:SF%!12=1
&
0�setupmenu
:SatIcon%=�icon
Dwtv%=cont%
N
Nbound%=�
XPreview%=�
bWithPall%=�
lLookF%=�
vPhase%=�
�
�1Rmeth%=1 : � Read method 1= sattlite 2=Sprite
�AScP%=0 : Sal%=0 : � Scrap memory pointer and Scrap allocation
�
�OverLay%=�
��_PutName("Sprite")
�
�� � �errorbox2
�
�RiscPC=�(-256)
�&� RiscPC<165 � RiscPC=� � RiscPC=�
�3� �(RiscPC) � ș"OS_ReadDynamicArea",0 � HeapP%
�
�
  ș "Wimp_Poll",%1,q% � A%

  Ȏ A% �
   � 1:�_DoWindow(q%)
*  � 2:�_OpenWindow(q%)
4  � 3:�_CloseWindow(q%)
>L  � 4:� q%!0=Win256% � Phase%=� � ș"Wimp_SpriteOp",36,0,"ptr_default",1
HS  � 5::� q%!0=Win256% � Phase%=� � ș"Wimp_SpriteOp",36,0,"ptr_phase",2,11,16,0
R  � 6:�_do_click(q%)
\  � 7:�_PutDown(q%)
f  � 8:�_KeyPress
p  � 9:�_DoMenu(q%)
z  � 17,18:�receive(q%)
�  �
�� �
�
�� �_CloseWindow(q%)
�>� q%!0=Control% � ș"Wimp_GetWindowInfo",,cont% :HistUp%=�
� � q%!0=Win256% � Alloc%<>0 �
�� RiscPC �
�ș"OS_DynamicArea",1,Alloc%
��
�ș"OS_Heap",3,HeapP%,Alloc%
��
�Alloc%=0
�#ș"Wimp_GetWindowInfo",,csw256%
�

ș"Wimp_CloseWindow",,q%
$�
.
8� �_do_click(q%)
Bi%=q%!16
L*� q%!12=SVWIN% � HALFS%=� : �_DoSave:�
V
`!� q%!12=-2 � q%!16=SatIcon% �
j6 � q%!8=2 � ș"Wimp_CreateMenu",,menu%,q%!0-96,200
t# � q%!8=4 � �_SetUpWindow(wtv%)
~ MEN%=1
��
�
�� q%!12=Control% �
� � i%=9 � i%=10 �
� Nbound%=�(Nbound%)
�< � i%=9 � $SPoint%(9)="radioon": $SPoint%(10)="radiooff"
�= � i%=10 � $SPoint%(10)="radioon": $SPoint%(9)="radiooff"
�@ ș"Wimp_ForceRedraw",Control%,IX%(9),IY%(9),IX1%(9),IY1%(9)
�D ș"Wimp_ForceRedraw",Control%,IX%(10),IY%(10),IX1%(10),IY1%(10)
� �
� � i%=12 �
�  Preview%=�(Preview%)
9  � Preview% � $SPoint%(12)="yes" � $SPoint%(12)="no"

E  ș"Wimp_ForceRedraw",Control%,IX%(12),IY%(12),IX1%(12),IY1%(12)
 �
# � i%=13 � �_ImageLoad("Image")
(�
2
<� q%!12=warningW% � i%=3 �
F  q%!0=warningW%
P  �_CloseWindow(q%)
Z  �_resmouse
d�
n 
x#� q%!12=warningW% � i%=2 � �die
�
�� q%!12=Win256% � q%!8=2 �
�/ ș"Wimp_CreateMenu",,menu256%,q%!0-96,q%!4
� MEN%=2
��
�
�)� q%!12=Win256% � q%!8=4 � Phase%=� �
��xpixel
�*ș"Wimp_SpriteOp",36,0,"ptr_default",1
�Phase%=�
��
�
��

� �_TTC
menu%?100=menu%?100 � &FE
"menu%?124=menu%?124 � &FE
,menu%?148=menu%?148 � &FE
6�
@
J� �_DoMenu(q%)
T
Ȏ MEN% �
^� 1:
hȎ !q% �
r  � 1:�die
| �
�
�� 2:
�Ȏ !q% �
�  � 1:�_GREY: �_Pchange
�  � 2:�_NEG : �_Pchange
�  � 3:�_AC  : �_Pchange
�  � 4:�_Flip: �_Pchange
�  � 5:Phase%=�(Phase%)
� �
��
�
��
�

� �_OVER
	� WH%
&OverLay%=�(OverLay%)
0menu%?172=menu%?172 � 1
:
�_GetView
D-ș"Wimp_ForceRedraw",Win256%,0,-400,640,0
N�
X
b
l� �_SetUpWindow(w%)
vș("Wimp_OpenWindow"),,w%
��
�
�� �_OpenWindow(q%)
�� q%!0=Win256% � �_SetCols
� ș("Wimp_OpenWindow"),,q%
��
�
�� �_DoWindow(q%)
�� flag%,wh%
�wh%=!q%
�'ș("Wimp_RedrawWindow"),,q% � flag%
�
��_ftj(flag%)
�

� �_ftj(flag%)
 ȕ flag%
*�_redraw(q%)
4&ș "Wimp_GetRectangle",,q% � flag%
>�
H�
R
\
f� �_redraw(w%)
p� x%,y%,A%
z
�� w%!0=Win256% �
� ș "Wimp_GetWindowState",,w%
�/      x%=w%!4-w%!20 : y%=w%!16-w%!24-SPY%*2
�
�B      ș "OS_SpriteOp",52+256,SP%,"Sat_Image",x%,y%,&10,0,PTT%
��
�(� w%!0=Control% � w%!36>(w%!4+359) �
�#      x%=w%!4+360 : y%=w%!8+100
�     ș"Wimp_SetColour",0
�      ȓȐ x%,y%,518,300
�     ș"Wimp_SetColour",7
�      ȓ x%,y%,518,300
�
	      x%+=2:y%+=2
	      � A%=0 � 255
	      � x%+A%*2,y%
	$$      � x%+A%*2,y%+Hist%!(A%<<2)
	.      �
	8    y%-=12
	B   � A%=0 � 255
	L/     ș"ColourTrans_SetGCOL",UP%!(A%*4),0,0
	V      � x%+A%*2,y%
	`      � x%+A%*2,y%-20
	j      �
	t
	~�
	��
	�
	�
ݤicon
	�q%!0=-1
	�
q%!4=0
	�q%!8=0 : � Y DIRECTION
	�q%!12=64 : � X DIRECTION
	�q%!16=96
	�q%!20=&2002
	�$(q%+24)="!SatRead"
	�$ș "Wimp_CreateIcon",,q% � icon%
	�
=icon%


��setupmenu
� m%

($menu256%="Image"
2menu256%?12=7
<menu256%?13=2
Fmenu256%?14=7
Pmenu256%?15=0
Zmenu256%!16=184
dmenu256%!20=40
nmenu256%!24=0
xm%=menu256%+28
�
m%!0=2
�m%!4=SVWIN%
�m%!8=(7<<24)� %10001
�$(m%+12)="Save"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Grey Pallette"
�
�
m%+=24
�
m%!0=0

m%!4=0
m%!8=(7<<24)� %10001
$(m%+12)="Invert"
"
,
m%+=24
6m%!0=&2
@
m%!4=0
Jm%!8=(7<<24)� %10001
T$(m%+12)="Max Contrast"
^
h
m%+=24
r
m%!0=0
|
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Flip Image"
�
�
m%+=24
�m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Phase"
�
�$menu%="SatRead"
�menu%?12=7
�menu%?13=2
�menu%?14=7
menu%?15=0
menu%!16=184
menu%!20=40
&menu%!24=0
0m%=menu%+28
:
m%!0=2
Dm%!4=info%
Nm%!8=(7<<24)� %10001
X$(m%+12)="Info"
b
l
m%+=24
vm%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Quit"
��
�
�� �receive(q%)
�� A%
�Ȏ q%!16 �
�� 0:�die
�6� 1: q%!16=2:q%!36=-1:�_sput(q%+44,"<Wimp$Scrap>")
�        messh%=q%!4:q%!0=60
�        saveref%=q%!8
�.        ș "Wimp_SendMessage",17,q%,messh%



� 2: � q%!12=saveref% �

          secureF%=q%!36

 %          fn$=�sget(q%+44):�_Save

*8          q%!12=saveref%:q%!16=3:q%!0=256:q%!40=&FF9

4A          q%!20=messh%:q%!24=messi%:q%!28=messx%:q%!32=messy%

>7          ș "Wimp_SendMessage",17,q%,messh%,messi%

H          �

R

\� 3:n$=�sget(q%+44)

f'       sendth%=q%!4:icontype%=q%!40

p       myref%=q%!8

z9       � q%!20=-2 � q%!24=SatIcon% � icontype%=&FF9 �

�        Rmeth%=2

�        �_ImageLoad(n$)

�        �_Dack

�         Rmeth%=1

�       �

�/       � q%!20=Win256% � �_Pload(n$):�_Dack

�$       � q%!20=Control% � �_Dack

�       

�� &502:Ȏ � �

�o       � q%!32=-2 � q%!36=SatIcon%:mes$="This is the Sat Read icon.|MUse this to display Satellite images."

�       :mes$=""

�       �

�    � mes$<>"" �
    q%!12=q%!8
    $(q%+20)=mes$+�0
    q%!0=(20+�mes$+4)� � 3
$    q%!16=&503
.(    ș "Wimp_SendMessage",18,q%,q%!4
8�
B�
L
V� �_Dack
`q%!12=myref%
jq%!16=4:q%!0=256
t'ș "Wimp_SendMessage",17,q%,sendth%
~)� n$="<Wimp$Scrap>" � �("DELETE "+n$)
��
�
�	��die
�� RiscPC �
�-� Alloc%<>0 � ș"OS_DynamicArea",1,Alloc%
��
�-� Alloc%<>0 � ș"OS_Heap",3,HeapP%,Alloc%
��
�*ș "Wimp_CloseDown",taskhand%,!taskid%
��_resmouse
��
��


� �_resmouse
� xw%,yw%,xs%,ys%
)ș"OS_ReadModeVariable",-1,11 � ,,xw%
()ș"OS_ReadModeVariable",-1,12 � ,,yw%
2(ș"OS_ReadModeVariable",-1,4 � ,,xs%
<(ș"OS_ReadModeVariable",-1,5 � ,,ys%
Fxw%=xw%<<xs%
Pyw%=yw%<<ys%
Zȗȓ 0,0,xw%,yw%
d�
n
xݤsget(x%)
�� x$
�!ȕ ?x%>&1F x$+=�(?x%):x%+=1:�
�=x$
�
�ݤpg(n%)
�� A$
�A$=�sget(SPoint%(n%))
�
=�(A$)
�
�� �_GetPrams
�� A$
�q%!0=cont%!0
�SPX%=�pg(0)
'SPY%=(�pg(4)*(SPX%/60))+�pg(2)*SPX%
SPX%=4800/(SPX%/60)

OffSet%=0
"�
,
6� �_Pload(D$)
@� F%,E%,A%
JF%=�(D$)
TA%=0
^�
hE%=�#F%
r
UP%?A%=E%
|	A%+=1
�� A%=1024 � �#F%
��#F%
�
�_Pchange
��
�
�� �_Pchange
�� WithPall% � Alloc%<>0 �
��_PutPal
�
�_SetCols
�#ș"Wimp_GetWindowInfo",,csw256%
�3ș"Wimp_ForceRedraw",Win256%,0,-SPY%*2,SPX%*2,0
�
�6ș"Wimp_ForceRedraw",Control%,360,-400,360+580,100
�
�

&/� READS THE IMAGE DATA DIRECTLY into sprite
0� �_ImageLoad(D$)
:� A%,S$
D
NTarS$=D$
X� Alloc%<>0 �
b  � RiscPC �
l"   ș"OS_DynamicArea",1,Alloc%
v  �
�"   ș"OS_Heap",3,HeapP%,Alloc%
�  �
�Alloc%=0
�#ș"Wimp_GetWindowInfo",,csw256%
�!ș"Wimp_CloseWindow",,csw256%
��
��_GetPrams
�
�� Rmeth%=1 �
�
A%=SPX%+3
�asz%=100+A%*SPY%
�#asz%+=2048 :� Room for pallette
��
ș"OS_File",5,D$ � ,,,,asz%
asz%+=1000
�
 
*#$daname%="Sat Read Sprite"+�(0)
4� Ask for the memory
>� RiscPC �
HNș"OS_DynamicArea",0,-1,asz%,-1,&80,asz%,0,0,daname% � ,Alloc%,,SP%,,aasz%
R�
\*ș"XOS_Heap",2,HeapP%,,asz% � ,,Alloc%
fSP%=Alloc%
paasz%=asz%
z�
�8� ((aasz%<asz%) � RiscPC) � (�(RiscPC) � Alloc%=0) �
�  � RiscPC �
�<   �_setupW("Need "+�(asz%)+" bytes only got "+�(aasz%))
�"   ș"OS_DynamicArea",1,Alloc%
�   Alloc%=0
�   �
�=   �_setupW("Need "+�(asz%)+" bytes free in System Heap")
�   �
��
�Sname$="Blank"
�SP%!0=asz%
�SP%!8=16
�ș"OS_SpriteOp",9+512,SP%

� Rmeth%=1 �
!� NOW CREATE SPRITE FOR IMAGE
$9ș"OS_SpriteOp",15+256,SP%,"Sat_Image",0,SPX%,SPY%,28
.csw256%!68=SP%
8DP%=SP%+60
Bsptr%=SP%+SP%!8
LWithPall%=�
Vpal%=sptr%+44
`!(sptr%+8*4)+=2048
j!(sptr%+9*4)+=2048
t!sptr%+=2048
~!(SP%+12)+=2048
��_PutPal
�
DP%+=2048
��
�ș"Hourglass_Start",10
�
��_GETim
�
�$� Create a sprite name from name
�S$="":A%=0
��
�S$=�D$,1)+S$
�	A%+=1
D$=�D$,�(D$)-1)

� �D$,1)="." � A%=10
�_PutName(S$)
$WN%=S$
(
2csw256%!12=csw256%!4+SPX%*2
<csw256%!16=csw256%!8+SPY%*2
F7temp%!0=0:temp%!4=-SPY%*2:temp%!8=SPX%*2:temp%!12=0
P
Z ș"Wimp_OpenWindow",,csw256%
d$ș"Wimp_SetExtent",Win256%,temp%
n
x6ș"Wimp_ForceRedraw",Control%,360,-400,360+580,100
�
��
�ș"Hourglass_Off"
�
��
�
�
� �_GETim
�� S$,mh%,a%,hs,ok%,x%,y%,p%
�S$="                     "
�� a%=0 � 1020 � 4
�Hist%!a%=0
��
�	ok%=�

� Rmeth%=2 �
� Read in Sprite file
"$ș"OS_SpriteOp",10+256,SP%,TarS$
,cb%=SP%+(SP%!8)
6.ș"OS_SpriteOp",26+512,SP%,cb%,"Sat_Image"
@SPX%=SP%!(16+(SP%!8))
JSPX%=(SPX%+1)*4
TSPY%=SP%!(20+(SP%!8))
^SPY%=SPY%+1
hWithPall%=�
rpal%=(SP%+SP%!8)+44
|� Work out histogram
�y%=SP%!(32+(SP%!8))
�y%+=SP%
�p%=SPX%*SPY%
�� a%=y% � y%+p%
�
x%=?a%
�x%=x%<<2
�Hist%!x%+=1
��
��
�� Read from interface
�!Hadd=Hist%
�B%=ScP%
�
C%=DP%
�D%=SPX%
E%=SPY%
H%=0
&� Compensate for left hand wastage
&ȕ( (D% � 3) <>0)
0D%+=1 : H%+=1
:�
D
N)� Set up the preview scroll rectangle
X"ș"Wimp_GetWindowState",,cont%
b!scwh=cont%!0
l#x%=cont%!4+362 : y%=cont%!8+102
v5!scsx1=x%:!scsy1=y%:!scsx2=x%+514:!scsy2=y%+300-8
�!scdx=x%:!scdy=y%+2
�ș"Wimp_SetColour",128
�F%=�"parallel:"
�$� Preview% � � TRANS1 � � TRANS2
��#F%
�� Nbound% � �_Flip
��
�
�� Work out histogram
�	mh%=0
�� a%=4 � 1019 � 4
�!� Hist%!a%>mh% � mh%=Hist%!a%
��
� Blank out black and white

Hist%!0=0
Hist%!1020=0
 hs=mh%/292
*
� hs<>0 �
4� a%=4 � 1019 � 4
>Hist%!a%=(Hist%!a%)/hs
H�
R
�_SetCols
\�
f�
p
z� �errorbox2
�"ș"OS_SpriteOp",60+256,SP%,0,0
�"� �=&108D5 � �=&108D4 � � �TBC
�E$=�$+" at "+Þ+�0
��_setupW(E$)
��#F%
�
� �TBC
��
�
�� �errorbox
�	� � �
�ș "Wimp_DragBox",,-1
�/!buffers%=�:$(buffers%+4)=�$+" line "+Þ+�0
�/ș "Wimp_ReportError",buffers%,1,"Sat Read"

�die
�
$
.� �_KeyPress
8i%=2
B�_DoSave
L�
V
`� �_DoSave
j� i%=3 �
t,            ș "Wimp_GetPointerInfo",,q%
~.            �dragicon(q%!0,q%!4,SVWIN%,i%)
� �
�
�� i%=2 �
� �_GetName
�F � �fn$,":") � �_Save � �_setupW("Drag the Icon into a Directory")
� ș "Wimp_CreateMenu",,-1
��
��
�
�� �_Save
�� ch%,sx%,sy%,sm%
�=� �(fn$)=0 � �_setupW("You need to put in a file name"):�
@� �fn$,1)="." � �_setupW("You need to put in a file name"):�


� Save it
#ș "OS_SpriteOp",12+256,SP%,fn$
�_PutName(fn$)
(�
2
<.� �dragicon(mousex%,mousey%,handle%,icon%)
F!� bx%,by%,ix0%,iy0%,ix1%,iy1%
P�getw(handle%)
Z�geti(handle%,icon%)
d!q%=handle%:q%!4=5
n>q%!8=bx%+ix0%:q%!12=by%+iy0%:q%!16=bx%+ix1%:q%!20=by%+iy1%
x*q%!24=q%!8-mousex%:q%!28=q%!12-mousey%
�ș "Wimp_DragBox",,q%
�SFLAG%=�
��
�
�� �getw(handle%)
�8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
��
�� �geti(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
�iflags%=q%!24:idata%=q%+28
��
�
� �info(p%)

� x0%,y0%
'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
"5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
,bx%=x0%-scx%:by%=y1%-scy%
6�
@
J
T� �_GetName
^� T%,A%,F$
hF$="":fn$=""
rq%!0=SVWIN%:q%!4=1
|ș "Wimp_GetIconState",,q%
�T%=q%!28
�	T%-=1
��
�	T%+=1
�F$=F$+�(?T%)
�� ?T%=0
�fn$=�F$,1,�(F$)-1)
��
�
�� �_PutDown(q%)
�
�_GetName
� ș "Wimp_GetPointerInfo",,q%
�5messh%=q%!12:messi%=q%!16:messx%=q%!0:messy%=q%!4
#� � fn$,":") � fn$=�_spath(fn$)
$(q%+44)=fn$
?(q%+44+�(fn$))=0
&;q%!20=q%!12:q%!28=q%!0:q%!32=q%!4:q%!36=asz%:q%!40=&FF9
0q%!0=56:q%!12=0:q%!16=1
:-ș "Wimp_SendMessage",17,q%,messh%,messi%
Dsaveref%=q%!8
Nș "Wimp_CreateMenu",,-1
X�
b
l� �_spath(n$)
vȕ �n$,".")
�n$=�n$,�(n$)-1)
��
�� �(n$)>10 � n$=�n$,10)
�=n$
�
�� �_PutName(p$)
�� T%
�q%!0=SVWIN%:q%!4=1
�ș "Wimp_GetIconState",,q%
�T%=q%!28
�
$T%=p$
�!(T%+�(p$))=0
��

� �_setupW(t$)
X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
 $TextWarn%=t$
*TextWarn%?�(t$)=0
4� 7
>ș "Wimp_OpenWindow",,q%
Hȗ ȓ 200,200,XQ%,YQ%
R�
\
f
� �_Cinit
p� 21
z� Z%=0 � 2 � 2
�P%=code%
�[
�
OPT Z%
�$.Hadd EQUW 0 \ Histogram address
�	ALIGN
�*.TRANS1 \ Transfer from file to sprite
�$\ R2 (C%) Base address of sprite
� \ R3 (D%) Number of X pixels
� \ R4 (E%) Number of Y pixels
�\ R5 (F%) File Handle
�\ R7 (H%) Bytes of wastage
�
�STMFD R13!,{R14}
%LDR R10, Hadd \ Histogram pointer

MOV R8,R7
SUB R8,R3,R8
$
MOV R1,R5
.
8.Sr
B MOV R5,#0 \ NUMBER � �S � GO
L.RAL \ Read another line
V,MUL R6,R3,R5 \ Contribuition of the line
`,ADD R6,R6,R2 \ Get base address to start
j
tMOV R7,#0 \ PIXELS � THIS �
~.RAB \ Read Another Byte
�!SWI &0A \ Read a byte into R0
�BCS EXIT
�STRB R0,[R6,R7]
�
�6LDR R11,[R10,R0, ASL #2] \ Increment the histogram
�ADD R11,R11,#1
�STR R11,[R10,R0, ASL #2]
�
�ADD R7,R7,#1 \ Next X pixel
�
CMP R7,R8
�BNE RAB
�

TST R5,#3

*BNE SkPv \ Only preview every 4th line

\ End of a line
(STMFD R13!,{R0-R5}
2.MOV R7,#0 \ Place to get Pixel from sprite
<.MOV R3,#0 \ Place to plot pixel in preview
F%LDR R4,scsx1 \ X of place to plot
P%LDR R5,scsy1 \ Y of place to plot
Z.PPnext
dLDRB R1,[R6,R7]
nMOV R0,R1, ASL #16
x�R R0,R0,R1, ASL #8
��R R0,R0,R1, ASL #24
�"SWI &40744 \ Get Colour number
�
MOV R1,R0
�
MOV R0,#0
�SWI &61 \ OS_SetColour
�MOV R0,#69 \ Point plot
�MOV R2,R5  \ Y value
�ADD R1,R3,R4 \ X value
�SWI &45 \ � Plot
�ADD R3,R3,#2
�ADD R7,R7,#5
�CMP R3,#512
�
BNE PPnext

LDR R1,scsx1
"LDR R2,scsy1
,\ Scroll preview window
6
MOV R0,#4
@SWI &45 \ � plot call
J'MOV R0,#4:LDR R1,scsx2:LDR R2,scsy2
TSWI &45 \ � plot call
^'MOV R0,#189:LDR R1,scdx:LDR R2,scdy
hSWI &45 \ � plot call
r
|LDMFD R13!,{R0-R5}
�'\ Now get on with getting the image
�	.SkPv
�ADD R5,R5,#1 \ Next line
�CMP R5,R4 \ Are we finished
�BNE RAL
�	.EXIT
�-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
�
�(\Storage space for scrolling preview
�!.scwh  EQUD 0 \ Window handle
� .scsx1 EQUD 0 \ Source min x
� .scsy1 EQUD 0 \ Source min y
� .scsx2 EQUD 0 \ Source max x
  .scsy2 EQUD 0 \ Source max y
 %.scdx  EQUD 0 \ Destination min x
 %.scdy  EQUD 0 \ Destination min y
 &
 0.TRANS2
 :STMFD R13!,{R14}
 D%LDR R10, Hadd \ Histogram pointer
 N
MOV R8,R7
 XSUB R8,R3,R8
 b
MOV R1,R5
 l
 v.Sr2
 � MOV R5,#0 \ NUMBER � �S � GO
 �.RAL2 \ Read another line
 �,MUL R6,R3,R5 \ Contribuition of the line
 �,ADD R6,R6,R2 \ Get base address to start
 �
 �MOV R7,#0 \ PIXELS � THIS �
 �.RAB2 \ Read Another Byte
 �!SWI &0A \ Read a byte into R0
 �BCS EXIT
 �STRB R0,[R6,R7]
 �
 �6LDR R11,[R10,R0, ASL #2] \ Increment the histogram
 �ADD R11,R11,#1
!STR R11,[R10,R0, ASL #2]
!
!ADD R7,R7,#1 \ Next X pixel
! 
CMP R7,R8
!*BNE RAB2
!4'\ Now get on with getting the image
!>
!HADD R5,R5,#1 \ Next line
!RCMP R5,R4 \ Are we finished
!\BNE RAL2
!f-LDMFD R13!, {PC} \ BACK FROM �ST YOU CAME
!p
!z	.CEND
!�]
!�
!��
!�� 6
!�� A%=0 � 255
!�PTT%?A%=A%
!�Hist%!(A%<<2)=0
!��
!�
�_GREY
!��
!�
!�� �_GREY
!�� Make up the pallette
"� A%=0 � 255
"UP%?(A%*4+1)=A%
"UP%?(A%*4+2)=A%
"$UP%?(A%*4+3)=A%
".�
"8�
"B
"L� �_NEG
"V#� Make up the negitave pallette
"`� A%=0 � 255
"j!UP%?(A%*4+1)=255-UP%?(A%*4+1)
"t!UP%?(A%*4+2)=255-UP%?(A%*4+2)
"~!UP%?(A%*4+3)=255-UP%?(A%*4+3)
"��
"��
"�
"�
� �_AC
"�*� Make pallette go from black to white
"�� A%,B%,W%,bwi,S%
"�
"�B%=0
"��
"�	B%+=4
"�� Hist%!B% <>0 � B%=1024
"�
#W%=1024
#
�
#	W%-=4
#� Hist%!W% <> 0  � W%=0
#(B%=B%>>2 : W%=W%>>2
#2S%=W%-B%
#<bwi=256/S%
#F
#P� A%=0 � B%
#ZUP%?(A%*4+1)=0
#dUP%?(A%*4+2)=0
#nUP%?(A%*4+3)=0
#x�
#�S%=0
#�
#�� A%=B% � W%
#�UP%?(A%*4+1)=S%*bwi
#�UP%?(A%*4+2)=S%*bwi
#�UP%?(A%*4+3)=S%*bwi
#�	S%+=1
#��
#�
#�� A%=W% � 255
#�UP%?(A%*4+1)=255
#�UP%?(A%*4+2)=255
#�UP%?(A%*4+3)=255
$�
$
$�
$"
$,� �_PutPal
$6� A%=0 � 255
$@BB%=(UP%?(A%*4+1))<<8 � (UP%?(A%*4+2))<<16 � (UP%?(A%*4+3))<<24
$Jpal%!(A%*8)=B%
$Tpal%!(A%*8+4)=B%
$^�
$h�
$r
$|� �_sput(x%,X$)
$�� A%
$�� A%=1 � �(X$)
$�?x%=�(�X$,A%,1))
$�	x%+=1
$��
$�	?x%=0
$��
$�
$�� �_pp(n%,V%)
$��_sput(SPoint%(n%),�(V%))
$�Cș"Wimp_ForceRedraw",Control%,IX%(n%),IY%(n%),IX1%(n%),IY1%(n%)
$��
$�
%� �_SetCols
%� grab%,A%
%
%&.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
%0
%:� Ncolours%<257 �
%D  � grab%=0 � 2048-8 � 8
%N(  paltemp%!(grab%>>1)=SP%!(grab%+44)
%X  �
%b   � A%=0 � 255: PTT%?A%=A%:�
%l   � A%=0 � 255
%vD   ș"ColourTrans_ReturnColourNumber",paltemp%!(A%<<2) � PTT%?A%
%�   �
%��
%��
%�
%�
� �xpixel
%�� x%,f%,p%,n%,to%,e%
%�ș"Hourglass_Start",10
%�%ș "Wimp_GetWindowState",,csw256%
%�.      x%=(q%!0-csw256%!4+csw256%!20+2) � 2
%�p%=SP%!8
%�to%=SP%+SP%!(p%+32)
%�
f%=to%+x%
%�e%=SP%+SP%!p%
&�
&?to%=?f%
&to%+=1:f%+=1
& � f%=e%
&*
�_Pchange
&4ș"Hourglass_Off"
&>�
&H
&R� �_Flip
&\, ș "OS_SpriteOp",33+256,SP%,"Sat_Image"
&f, ș "OS_SpriteOp",47+256,SP%,"Sat_Image"
&p�
�

00000000  0d 00 0a 18 f4 20 3e 20  21 53 61 79 52 65 61 64  |..... > !SayRead|
00000010  2e 53 61 74 52 65 61 64  0d 00 14 34 f4 20 56 65  |.SatRead...4. Ve|
00000020  72 73 69 6f 6e 20 31 2e  30 20 42 79 20 4d 69 6b  |rsion 1.0 By Mik|
00000030  65 20 43 6f 6f 6b 20 2d  20 4d 75 73 62 75 72 79  |e Cook - Musbury|
00000040  20 43 6f 6e 73 75 6c 74  61 6e 74 73 0d 00 1e 11  | Consultants....|
00000050  ee 20 85 20 f2 65 72 72  6f 72 62 6f 78 0d 00 28  |. . .errorbox..(|
00000060  2e de 20 74 61 73 6b 69  64 25 20 34 3a 24 74 61  |.. taskid% 4:$ta|
00000070  73 6b 69 64 25 3d 22 54  41 53 4b 22 3a 20 de 20  |skid%="TASK": . |
00000080  69 6e 74 6d 65 73 73 25  20 32 30 0d 00 32 49 69  |intmess% 20..2Ii|
00000090  6e 74 6d 65 73 73 25 21  30 3d 31 3a 69 6e 74 6d  |ntmess%!0=1:intm|
000000a0  65 73 73 25 21 34 3d 32  3a 69 6e 74 6d 65 73 73  |ess%!4=2:intmess|
000000b0  25 21 38 3d 33 3a 69 6e  74 6d 65 73 73 25 21 31  |%!8=3:intmess%!1|
000000c0  32 3d 26 35 30 32 3a 69  6e 74 6d 65 73 73 25 21  |2=&502:intmess%!|
000000d0  31 36 3d 30 0d 00 3c 4d  c8 99 20 22 57 69 6d 70  |16=0..<M.. "Wimp|
000000e0  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 33 30 30  |_Initialise",300|
000000f0  2c 21 74 61 73 6b 69 64  25 2c 22 53 61 74 52 65  |,!taskid%,"SatRe|
00000100  61 64 22 2c 69 6e 74 6d  65 73 73 25 20 b8 20 76  |ad",intmess% . v|
00000110  65 72 73 69 6f 6e 25 2c  74 61 73 6b 68 61 6e 64  |ersion%,taskhand|
00000120  25 0d 00 46 04 0d 00 50  3b de 20 71 25 20 26 33  |%..F...P;. q% &3|
00000130  30 30 2c 63 73 77 32 35  36 25 20 26 33 30 30 2c  |00,csw256% &300,|
00000140  74 65 6d 70 25 20 33 30  30 2c 62 75 66 66 65 72  |temp% 300,buffer|
00000150  73 25 20 35 31 32 2c 6d  65 6e 75 25 20 32 32 38  |s% 512,menu% 228|
00000160  0d 00 5a 2a de 20 6d 65  6e 75 32 35 36 25 20 32  |..Z*. menu256% 2|
00000170  35 36 2c 73 76 77 25 20  26 33 30 30 2c 54 65 78  |56,svw% &300,Tex|
00000180  74 57 61 72 6e 25 20 32  35 35 0d 00 64 37 de 20  |tWarn% 255..d7. |
00000190  77 77 25 20 33 30 30 2c  20 57 4e 25 20 32 35 35  |ww% 300, WN% 255|
000001a0  2c 20 63 6f 6e 74 25 20  31 30 30 30 2c 20 63 6f  |, cont% 1000, co|
000001b0  6e 74 49 25 20 31 30 30  30 2c 20 53 46 25 20 31  |ntI% 1000, SF% 1|
000001c0  36 0d 00 6e 3f de 20 64  61 6e 61 6d 65 25 20 38  |6..n?. daname% 8|
000001d0  30 2c 63 6f 64 65 25 20  26 32 32 30 2c 50 54 54  |0,code% &220,PTT|
000001e0  25 20 32 30 34 38 2c 53  50 6f 69 6e 74 25 28 32  |% 2048,SPoint%(2|
000001f0  30 29 2c 70 61 6c 74 65  6d 70 25 20 32 30 34 38  |0),paltemp% 2048|
00000200  0d 00 78 2e de 20 49 58  25 28 32 30 29 2c 49 59  |..x.. IX%(20),IY|
00000210  25 28 32 30 29 2c 49 58  31 25 28 32 30 29 2c 49  |%(20),IX1%(20),I|
00000220  59 31 25 28 32 30 29 2c  43 4e 25 20 33 30 0d 00  |Y1%(20),CN% 30..|
00000230  82 10 49 42 4c 25 3d 32  38 38 30 2b 38 30 0d 00  |..IBL%=2880+80..|
00000240  8c 21 de 20 55 50 25 20  32 35 36 2a 34 2c 53 56  |.!. UP% 256*4,SV|
00000250  57 25 20 32 35 36 2c 49  42 25 20 49 42 4c 25 0d  |W% 256,IB% IBL%.|
00000260  00 96 10 de 20 48 69 73  74 25 20 31 30 32 34 0d  |.... Hist% 1024.|
00000270  00 a0 32 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..2.. "Wimp_Open|
00000280  54 65 6d 70 6c 61 74 65  22 2c 2c 22 3c 53 61 74  |Template",,"<Sat|
00000290  52 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |R$Dir>.Templates|
000002a0  22 0d 00 aa 29 ee 20 85  20 c8 99 20 22 57 69 6d  |"...). . .. "Wim|
000002b0  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
000002c0  3a f2 65 72 72 6f 72 62  6f 78 0d 00 b4 3a c8 99  |:.errorbox...:..|
000002d0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000002e0  61 74 65 22 2c 2c 71 25  2c 74 65 6d 70 25 2c 74  |ate",,q%,temp%,t|
000002f0  65 6d 70 25 2b 32 35 36  2c 2d 31 2c 22 49 6e 66  |emp%+256,-1,"Inf|
00000300  6f 22 2c 30 0d 00 be 26  c8 99 20 22 57 69 6d 70  |o",0...&.. "Wimp|
00000310  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000320  71 25 20 b8 20 69 6e 66  6f 25 0d 00 c8 04 0d 00  |q% . info%......|
00000330  d2 42 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.B.. "Wimp_LoadT|
00000340  65 6d 70 6c 61 74 65 22  2c 2c 63 73 77 32 35 36  |emplate",,csw256|
00000350  25 2b 34 2c 74 65 6d 70  25 2c 74 65 6d 70 25 2b  |%+4,temp%,temp%+|
00000360  32 35 36 2c 2d 31 2c 22  53 50 32 35 36 22 2c 30  |256,-1,"SP256",0|
00000370  0d 00 dc 20 63 73 77 32  35 36 25 21 32 38 3d 2d  |... csw256%!28=-|
00000380  31 3a 63 73 77 32 35 36  25 21 37 36 3d 57 4e 25  |1:csw256%!76=WN%|
00000390  0d 00 e6 2f c8 99 20 22  57 69 6d 70 5f 43 72 65  |.../.. "Wimp_Cre|
000003a0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 63 73 77 32  |ateWindow",,csw2|
000003b0  35 36 25 2b 34 20 b8 20  57 69 6e 32 35 36 25 0d  |56%+4 . Win256%.|
000003c0  00 f0 15 63 73 77 32 35  36 25 21 30 3d 57 69 6e  |...csw256%!0=Win|
000003d0  32 35 36 25 0d 00 fa 04  0d 01 04 46 c8 99 20 22  |256%.......F.. "|
000003e0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
000003f0  65 22 2c 2c 63 6f 6e 74  25 2b 34 2c 63 6f 6e 74  |e",,cont%+4,cont|
00000400  49 25 2c 63 6f 6e 74 49  25 2b 31 30 30 30 2c 2d  |I%,contI%+1000,-|
00000410  31 2c 22 43 6f 6e 74 72  6f 6c 73 22 2c 30 0d 01  |1,"Controls",0..|
00000420  0e 0f 63 6f 6e 74 25 21  32 38 3d 2d 31 0d 01 18  |..cont%!28=-1...|
00000430  0f e3 20 41 25 3d 30 20  b8 20 31 32 0d 01 22 26  |.. A%=0 . 12.."&|
00000440  53 50 6f 69 6e 74 25 28  41 25 29 3d 21 28 63 6f  |SPoint%(A%)=!(co|
00000450  6e 74 25 2b 34 2b 38 38  2b 32 30 2b 33 32 2a 41  |nt%+4+88+20+32*A|
00000460  25 29 0d 01 2c 3d 49 58  25 28 41 25 29 3d 21 28  |%)..,=IX%(A%)=!(|
00000470  63 6f 6e 74 25 2b 34 2b  38 38 2b 33 32 2a 41 25  |cont%+4+88+32*A%|
00000480  29 3a 49 59 25 28 41 25  29 3d 21 28 63 6f 6e 74  |):IY%(A%)=!(cont|
00000490  25 2b 34 2b 38 38 2b 34  2b 33 32 2a 41 25 29 0d  |%+4+88+4+32*A%).|
000004a0  01 36 42 49 58 31 25 28  41 25 29 3d 21 28 63 6f  |.6BIX1%(A%)=!(co|
000004b0  6e 74 25 2b 34 2b 38 38  2b 38 2b 33 32 2a 41 25  |nt%+4+88+8+32*A%|
000004c0  29 3a 49 59 31 25 28 41  25 29 3d 21 28 63 6f 6e  |):IY1%(A%)=!(con|
000004d0  74 25 2b 34 2b 38 38 2b  31 32 2b 33 32 2a 41 25  |t%+4+88+12+32*A%|
000004e0  29 0d 01 40 05 ed 0d 01  4a 04 0d 01 54 2e c8 99  |)..@....J...T...|
000004f0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000500  64 6f 77 22 2c 2c 63 6f  6e 74 25 2b 34 20 b8 20  |dow",,cont%+4 . |
00000510  43 6f 6e 74 72 6f 6c 25  0d 01 5e 14 63 6f 6e 74  |Control%..^.cont|
00000520  25 21 30 3d 43 6f 6e 74  72 6f 6c 25 0d 01 68 04  |%!0=Control%..h.|
00000530  0d 01 72 43 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..rC.. "Wimp_Loa|
00000540  64 54 65 6d 70 6c 61 74  65 22 2c 2c 73 76 77 25  |dTemplate",,svw%|
00000550  2b 34 2c 53 56 57 25 2c  53 56 57 25 2b 32 35 36  |+4,SVW%,SVW%+256|
00000560  2c 2d 31 2c 22 73 61 76  65 5f 73 63 72 69 70 74  |,-1,"save_script|
00000570  22 2c 30 0d 01 7c 0e 73  76 77 25 21 32 38 3d 2d  |",0..|.svw%!28=-|
00000580  31 0d 01 86 2b c8 99 20  22 57 69 6d 70 5f 43 72  |1...+.. "Wimp_Cr|
00000590  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 73 76 77  |eateWindow",,svw|
000005a0  25 2b 34 20 b8 20 53 56  57 49 4e 25 0d 01 90 11  |%+4 . SVWIN%....|
000005b0  73 76 77 25 21 30 3d 53  56 57 49 4e 25 0d 01 9a  |svw%!0=SVWIN%...|
000005c0  04 0d 01 a4 39 c8 99 20  22 57 69 6d 70 5f 4c 6f  |....9.. "Wimp_Lo|
000005d0  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
000005e0  77 77 25 2c 77 77 25 2b  32 35 36 2c 2d 31 2c 22  |ww%,ww%+256,-1,"|
000005f0  57 61 72 6e 69 6e 67 22  2c 30 0d 01 ae 29 71 25  |Warning",0...)q%|
00000600  21 31 30 38 3d 54 65 78  74 57 61 72 6e 25 3a 71  |!108=TextWarn%:q|
00000610  25 21 31 31 32 3d 2d 31  3a 71 25 21 31 31 36 3d  |%!112=-1:q%!116=|
00000620  33 30 30 0d 01 b8 20 58  51 25 3d 71 25 21 38 2d  |300... XQ%=q%!8-|
00000630  71 25 21 30 3a 59 51 25  3d 71 25 21 31 32 2d 71  |q%!0:YQ%=q%!12-q|
00000640  25 21 34 0d 01 c2 2a c8  99 20 22 57 69 6d 70 5f  |%!4...*.. "Wimp_|
00000650  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
00000660  25 20 b8 20 77 61 72 6e  69 6e 67 57 25 0d 01 cc  |% . warningW%...|
00000670  04 0d 01 d6 1b c8 99 20  22 57 69 6d 70 5f 43 6c  |....... "Wimp_Cl|
00000680  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 01 e0 11  |oseTemplate"....|
00000690  ee 20 85 20 f2 65 72 72  6f 72 62 6f 78 0d 01 ea  |. . .errorbox...|
000006a0  04 0d 01 f4 0b f2 5f 43  69 6e 69 74 0d 01 fe 15  |......_Cinit....|
000006b0  41 6c 6c 6f 63 25 3d 30  3a 54 69 6d 65 72 25 3d  |Alloc%=0:Timer%=|
000006c0  30 0d 02 08 25 53 50 58  25 3d 32 39 30 3a 20 53  |0...%SPX%=290: S|
000006d0  50 59 25 3d 33 32 30 20  3a 20 4f 66 66 53 65 74  |PY%=320 : OffSet|
000006e0  25 3d 34 30 36 30 0d 02  12 17 24 57 4e 25 3d 22  |%=4060....$WN%="|
000006f0  42 6c 61 6e 6b 20 53 70  72 69 74 65 22 0d 02 1c  |Blank Sprite"...|
00000700  24 53 46 25 21 30 3d 31  3a 53 46 25 21 34 3d 31  |$SF%!0=1:SF%!4=1|
00000710  3a 53 46 25 21 38 3d 31  3a 53 46 25 21 31 32 3d  |:SF%!8=1:SF%!12=|
00000720  31 0d 02 26 04 0d 02 30  0e f2 73 65 74 75 70 6d  |1..&...0..setupm|
00000730  65 6e 75 0d 02 3a 12 53  61 74 49 63 6f 6e 25 3d  |enu..:.SatIcon%=|
00000740  a4 69 63 6f 6e 0d 02 44  0e 77 74 76 25 3d 63 6f  |.icon..D.wtv%=co|
00000750  6e 74 25 0d 02 4e 0d 4e  62 6f 75 6e 64 25 3d a3  |nt%..N.Nbound%=.|
00000760  0d 02 58 0e 50 72 65 76  69 65 77 25 3d b9 0d 02  |..X.Preview%=...|
00000770  62 0f 57 69 74 68 50 61  6c 6c 25 3d a3 0d 02 6c  |b.WithPall%=...l|
00000780  0c 4c 6f 6f 6b 46 25 3d  a3 0d 02 76 0c 50 68 61  |.LookF%=...v.Pha|
00000790  73 65 25 3d a3 0d 02 80  04 0d 02 8a 31 52 6d 65  |se%=........1Rme|
000007a0  74 68 25 3d 31 20 3a 20  f4 20 52 65 61 64 20 6d  |th%=1 : . Read m|
000007b0  65 74 68 6f 64 20 31 3d  20 73 61 74 74 6c 69 74  |ethod 1= sattlit|
000007c0  65 20 32 3d 53 70 72 69  74 65 0d 02 94 41 53 63  |e 2=Sprite...ASc|
000007d0  50 25 3d 30 20 3a 20 53  61 6c 25 3d 30 20 3a 20  |P%=0 : Sal%=0 : |
000007e0  f4 20 53 63 72 61 70 20  6d 65 6d 6f 72 79 20 70  |. Scrap memory p|
000007f0  6f 69 6e 74 65 72 20 61  6e 64 20 53 63 72 61 70  |ointer and Scrap|
00000800  20 61 6c 6c 6f 63 61 74  69 6f 6e 0d 02 9e 04 0d  | allocation.....|
00000810  02 a8 0e 4f 76 65 72 4c  61 79 25 3d b9 0d 02 b2  |...OverLay%=....|
00000820  17 f2 5f 50 75 74 4e 61  6d 65 28 22 53 70 72 69  |.._PutName("Spri|
00000830  74 65 22 29 0d 02 bc 04  0d 02 c6 12 ee 20 85 20  |te")......... . |
00000840  f2 65 72 72 6f 72 62 6f  78 32 0d 02 d0 04 0d 02  |.errorbox2......|
00000850  da 12 52 69 73 63 50 43  3d a6 28 2d 32 35 36 29  |..RiscPC=.(-256)|
00000860  0d 02 e4 26 e7 20 52 69  73 63 50 43 3c 31 36 35  |...&. RiscPC<165|
00000870  20 8c 20 52 69 73 63 50  43 3d a3 20 8b 20 52 69  | . RiscPC=. . Ri|
00000880  73 63 50 43 3d b9 0d 02  ee 33 e7 20 ac 28 52 69  |scPC=....3. .(Ri|
00000890  73 63 50 43 29 20 8c 20  c8 99 22 4f 53 5f 52 65  |scPC) . .."OS_Re|
000008a0  61 64 44 79 6e 61 6d 69  63 41 72 65 61 22 2c 30  |adDynamicArea",0|
000008b0  20 b8 20 48 65 61 70 50  25 0d 02 f8 04 0d 03 02  | . HeapP%.......|
000008c0  05 f5 0d 03 0c 1f 20 20  c8 99 20 22 57 69 6d 70  |......  .. "Wimp|
000008d0  5f 50 6f 6c 6c 22 2c 25  31 2c 71 25 20 b8 20 41  |_Poll",%1,q% . A|
000008e0  25 0d 03 16 0d 20 20 c8  8e 20 41 25 20 ca 0d 03  |%....  .. A% ...|
000008f0  20 18 20 20 c9 20 31 3a  f2 5f 44 6f 57 69 6e 64  | .  . 1:._DoWind|
00000900  6f 77 28 71 25 29 0d 03  2a 1a 20 20 c9 20 32 3a  |ow(q%)..*.  . 2:|
00000910  f2 5f 4f 70 65 6e 57 69  6e 64 6f 77 28 71 25 29  |._OpenWindow(q%)|
00000920  0d 03 34 1b 20 20 c9 20  33 3a f2 5f 43 6c 6f 73  |..4.  . 3:._Clos|
00000930  65 57 69 6e 64 6f 77 28  71 25 29 0d 03 3e 4c 20  |eWindow(q%)..>L |
00000940  20 c9 20 34 3a e7 20 71  25 21 30 3d 57 69 6e 32  | . 4:. q%!0=Win2|
00000950  35 36 25 20 80 20 50 68  61 73 65 25 3d b9 20 8c  |56% . Phase%=. .|
00000960  20 c8 99 22 57 69 6d 70  5f 53 70 72 69 74 65 4f  | .."Wimp_SpriteO|
00000970  70 22 2c 33 36 2c 30 2c  22 70 74 72 5f 64 65 66  |p",36,0,"ptr_def|
00000980  61 75 6c 74 22 2c 31 0d  03 48 53 20 20 c9 20 35  |ault",1..HS  . 5|
00000990  3a 3a e7 20 71 25 21 30  3d 57 69 6e 32 35 36 25  |::. q%!0=Win256%|
000009a0  20 80 20 50 68 61 73 65  25 3d b9 20 8c 20 c8 99  | . Phase%=. . ..|
000009b0  22 57 69 6d 70 5f 53 70  72 69 74 65 4f 70 22 2c  |"Wimp_SpriteOp",|
000009c0  33 36 2c 30 2c 22 70 74  72 5f 70 68 61 73 65 22  |36,0,"ptr_phase"|
000009d0  2c 32 2c 31 31 2c 31 36  2c 30 0d 03 52 18 20 20  |,2,11,16,0..R.  |
000009e0  c9 20 36 3a f2 5f 64 6f  5f 63 6c 69 63 6b 28 71  |. 6:._do_click(q|
000009f0  25 29 0d 03 5c 17 20 20  c9 20 37 3a f2 5f 50 75  |%)..\.  . 7:._Pu|
00000a00  74 44 6f 77 6e 28 71 25  29 0d 03 66 14 20 20 c9  |tDown(q%)..f.  .|
00000a10  20 38 3a f2 5f 4b 65 79  50 72 65 73 73 0d 03 70  | 8:._KeyPress..p|
00000a20  16 20 20 c9 20 39 3a f2  5f 44 6f 4d 65 6e 75 28  |.  . 9:._DoMenu(|
00000a30  71 25 29 0d 03 7a 1a 20  20 c9 20 31 37 2c 31 38  |q%)..z.  . 17,18|
00000a40  3a f2 72 65 63 65 69 76  65 28 71 25 29 0d 03 84  |:.receive(q%)...|
00000a50  07 20 20 cb 0d 03 8e 07  fd 20 a3 0d 03 98 04 0d  |.  ...... ......|
00000a60  03 a2 17 dd 20 f2 5f 43  6c 6f 73 65 57 69 6e 64  |.... ._CloseWind|
00000a70  6f 77 28 71 25 29 0d 03  ac 3e e7 20 71 25 21 30  |ow(q%)...>. q%!0|
00000a80  3d 43 6f 6e 74 72 6f 6c  25 20 8c 20 c8 99 22 57  |=Control% . .."W|
00000a90  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00000aa0  6f 22 2c 2c 63 6f 6e 74  25 20 3a 48 69 73 74 55  |o",,cont% :HistU|
00000ab0  70 25 3d b9 0d 03 b6 20  e7 20 71 25 21 30 3d 57  |p%=.... . q%!0=W|
00000ac0  69 6e 32 35 36 25 20 80  20 41 6c 6c 6f 63 25 3c  |in256% . Alloc%<|
00000ad0  3e 30 20 8c 0d 03 c0 0e  e7 20 52 69 73 63 50 43  |>0 ...... RiscPC|
00000ae0  20 8c 0d 03 ca 1f c8 99  22 4f 53 5f 44 79 6e 61  | ......."OS_Dyna|
00000af0  6d 69 63 41 72 65 61 22  2c 31 2c 41 6c 6c 6f 63  |micArea",1,Alloc|
00000b00  25 0d 03 d4 05 cc 0d 03  de 1f c8 99 22 4f 53 5f  |%..........."OS_|
00000b10  48 65 61 70 22 2c 33 2c  48 65 61 70 50 25 2c 41  |Heap",3,HeapP%,A|
00000b20  6c 6c 6f 63 25 0d 03 e8  05 cd 0d 03 f2 0c 41 6c  |lloc%.........Al|
00000b30  6c 6f 63 25 3d 30 0d 03  fc 23 c8 99 22 57 69 6d  |loc%=0...#.."Wim|
00000b40  70 5f 47 65 74 57 69 6e  64 6f 77 49 6e 66 6f 22  |p_GetWindowInfo"|
00000b50  2c 2c 63 73 77 32 35 36  25 0d 04 06 05 cd 0d 04  |,,csw256%.......|
00000b60  10 04 0d 04 1a 1c c8 99  22 57 69 6d 70 5f 43 6c  |........"Wimp_Cl|
00000b70  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 71 25 0d 04  |oseWindow",,q%..|
00000b80  24 05 e1 0d 04 2e 04 0d  04 38 14 dd 20 f2 5f 64  |$........8.. ._d|
00000b90  6f 5f 63 6c 69 63 6b 28  71 25 29 0d 04 42 0c 69  |o_click(q%)..B.i|
00000ba0  25 3d 71 25 21 31 36 0d  04 4c 2a e7 20 71 25 21  |%=q%!16..L*. q%!|
00000bb0  31 32 3d 53 56 57 49 4e  25 20 8c 20 48 41 4c 46  |12=SVWIN% . HALF|
00000bc0  53 25 3d a3 20 3a 20 f2  5f 44 6f 53 61 76 65 3a  |S%=. : ._DoSave:|
00000bd0  e1 0d 04 56 04 0d 04 60  21 e7 20 71 25 21 31 32  |...V...`!. q%!12|
00000be0  3d 2d 32 20 80 20 71 25  21 31 36 3d 53 61 74 49  |=-2 . q%!16=SatI|
00000bf0  63 6f 6e 25 20 8c 0d 04  6a 36 20 e7 20 71 25 21  |con% ...j6 . q%!|
00000c00  38 3d 32 20 8c 20 c8 99  22 57 69 6d 70 5f 43 72  |8=2 . .."Wimp_Cr|
00000c10  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
00000c20  2c 71 25 21 30 2d 39 36  2c 32 30 30 0d 04 74 23  |,q%!0-96,200..t#|
00000c30  20 e7 20 71 25 21 38 3d  34 20 8c 20 f2 5f 53 65  | . q%!8=4 . ._Se|
00000c40  74 55 70 57 69 6e 64 6f  77 28 77 74 76 25 29 0d  |tUpWindow(wtv%).|
00000c50  04 7e 0b 20 4d 45 4e 25  3d 31 0d 04 88 05 cd 0d  |.~. MEN%=1......|
00000c60  04 92 04 0d 04 9c 16 e7  20 71 25 21 31 32 3d 43  |........ q%!12=C|
00000c70  6f 6e 74 72 6f 6c 25 20  8c 0d 04 a6 15 20 e7 20  |ontrol% ..... . |
00000c80  69 25 3d 39 20 84 20 69  25 3d 31 30 20 8c 0d 04  |i%=9 . i%=10 ...|
00000c90  b0 17 20 4e 62 6f 75 6e  64 25 3d ac 28 4e 62 6f  |.. Nbound%=.(Nbo|
00000ca0  75 6e 64 25 29 0d 04 ba  3c 20 e7 20 69 25 3d 39  |und%)...< . i%=9|
00000cb0  20 8c 20 24 53 50 6f 69  6e 74 25 28 39 29 3d 22  | . $SPoint%(9)="|
00000cc0  72 61 64 69 6f 6f 6e 22  3a 20 24 53 50 6f 69 6e  |radioon": $SPoin|
00000cd0  74 25 28 31 30 29 3d 22  72 61 64 69 6f 6f 66 66  |t%(10)="radiooff|
00000ce0  22 0d 04 c4 3d 20 e7 20  69 25 3d 31 30 20 8c 20  |"...= . i%=10 . |
00000cf0  24 53 50 6f 69 6e 74 25  28 31 30 29 3d 22 72 61  |$SPoint%(10)="ra|
00000d00  64 69 6f 6f 6e 22 3a 20  24 53 50 6f 69 6e 74 25  |dioon": $SPoint%|
00000d10  28 39 29 3d 22 72 61 64  69 6f 6f 66 66 22 0d 04  |(9)="radiooff"..|
00000d20  ce 40 20 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |.@ .."Wimp_Force|
00000d30  52 65 64 72 61 77 22 2c  43 6f 6e 74 72 6f 6c 25  |Redraw",Control%|
00000d40  2c 49 58 25 28 39 29 2c  49 59 25 28 39 29 2c 49  |,IX%(9),IY%(9),I|
00000d50  58 31 25 28 39 29 2c 49  59 31 25 28 39 29 0d 04  |X1%(9),IY1%(9)..|
00000d60  d8 44 20 c8 99 22 57 69  6d 70 5f 46 6f 72 63 65  |.D .."Wimp_Force|
00000d70  52 65 64 72 61 77 22 2c  43 6f 6e 74 72 6f 6c 25  |Redraw",Control%|
00000d80  2c 49 58 25 28 31 30 29  2c 49 59 25 28 31 30 29  |,IX%(10),IY%(10)|
00000d90  2c 49 58 31 25 28 31 30  29 2c 49 59 31 25 28 31  |,IX1%(10),IY1%(1|
00000da0  30 29 0d 04 e2 06 20 cd  0d 04 ec 0e 20 e7 20 69  |0).... ..... . i|
00000db0  25 3d 31 32 20 8c 0d 04  f6 1a 20 20 50 72 65 76  |%=12 .....  Prev|
00000dc0  69 65 77 25 3d ac 28 50  72 65 76 69 65 77 25 29  |iew%=.(Preview%)|
00000dd0  0d 05 00 39 20 20 e7 20  50 72 65 76 69 65 77 25  |...9  . Preview%|
00000de0  20 8c 20 24 53 50 6f 69  6e 74 25 28 31 32 29 3d  | . $SPoint%(12)=|
00000df0  22 79 65 73 22 20 8b 20  24 53 50 6f 69 6e 74 25  |"yes" . $SPoint%|
00000e00  28 31 32 29 3d 22 6e 6f  22 0d 05 0a 45 20 20 c8  |(12)="no"...E  .|
00000e10  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00000e20  61 77 22 2c 43 6f 6e 74  72 6f 6c 25 2c 49 58 25  |aw",Control%,IX%|
00000e30  28 31 32 29 2c 49 59 25  28 31 32 29 2c 49 58 31  |(12),IY%(12),IX1|
00000e40  25 28 31 32 29 2c 49 59  31 25 28 31 32 29 0d 05  |%(12),IY1%(12)..|
00000e50  14 06 20 cd 0d 05 1e 23  20 e7 20 69 25 3d 31 33  |.. ....# . i%=13|
00000e60  20 8c 20 f2 5f 49 6d 61  67 65 4c 6f 61 64 28 22  | . ._ImageLoad("|
00000e70  49 6d 61 67 65 22 29 0d  05 28 05 cd 0d 05 32 04  |Image")..(....2.|
00000e80  0d 05 3c 1e e7 20 71 25  21 31 32 3d 77 61 72 6e  |..<.. q%!12=warn|
00000e90  69 6e 67 57 25 20 80 20  69 25 3d 33 20 8c 0d 05  |ingW% . i%=3 ...|
00000ea0  46 14 20 20 71 25 21 30  3d 77 61 72 6e 69 6e 67  |F.  q%!0=warning|
00000eb0  57 25 0d 05 50 17 20 20  f2 5f 43 6c 6f 73 65 57  |W%..P.  ._CloseW|
00000ec0  69 6e 64 6f 77 28 71 25  29 0d 05 5a 10 20 20 f2  |indow(q%)..Z.  .|
00000ed0  5f 72 65 73 6d 6f 75 73  65 0d 05 64 05 cd 0d 05  |_resmouse..d....|
00000ee0  6e 05 20 0d 05 78 23 e7  20 71 25 21 31 32 3d 77  |n. ..x#. q%!12=w|
00000ef0  61 72 6e 69 6e 67 57 25  20 80 20 69 25 3d 32 20  |arningW% . i%=2 |
00000f00  8c 20 f2 64 69 65 0d 05  82 04 0d 05 8c 1e e7 20  |. .die......... |
00000f10  71 25 21 31 32 3d 57 69  6e 32 35 36 25 20 80 20  |q%!12=Win256% . |
00000f20  71 25 21 38 3d 32 20 8c  0d 05 96 2f 20 c8 99 22  |q%!8=2 ..../ .."|
00000f30  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00000f40  2c 2c 6d 65 6e 75 32 35  36 25 2c 71 25 21 30 2d  |,,menu256%,q%!0-|
00000f50  39 36 2c 71 25 21 34 0d  05 a0 0b 20 4d 45 4e 25  |96,q%!4.... MEN%|
00000f60  3d 32 0d 05 aa 05 cd 0d  05 b4 04 0d 05 be 29 e7  |=2............).|
00000f70  20 71 25 21 31 32 3d 57  69 6e 32 35 36 25 20 80  | q%!12=Win256% .|
00000f80  20 71 25 21 38 3d 34 20  80 20 50 68 61 73 65 25  | q%!8=4 . Phase%|
00000f90  3d b9 20 8c 0d 05 c8 0b  f2 78 70 69 78 65 6c 0d  |=. ......xpixel.|
00000fa0  05 d2 2a c8 99 22 57 69  6d 70 5f 53 70 72 69 74  |..*.."Wimp_Sprit|
00000fb0  65 4f 70 22 2c 33 36 2c  30 2c 22 70 74 72 5f 64  |eOp",36,0,"ptr_d|
00000fc0  65 66 61 75 6c 74 22 2c  31 0d 05 dc 0c 50 68 61  |efault",1....Pha|
00000fd0  73 65 25 3d a3 0d 05 e6  05 cd 0d 05 f0 04 0d 05  |se%=............|
00000fe0  fa 05 e1 0d 06 04 04 0d  06 0e 0b dd 20 f2 5f 54  |............ ._T|
00000ff0  54 43 0d 06 18 1d 6d 65  6e 75 25 3f 31 30 30 3d  |TC....menu%?100=|
00001000  6d 65 6e 75 25 3f 31 30  30 20 80 20 26 46 45 0d  |menu%?100 . &FE.|
00001010  06 22 1d 6d 65 6e 75 25  3f 31 32 34 3d 6d 65 6e  |.".menu%?124=men|
00001020  75 25 3f 31 32 34 20 80  20 26 46 45 0d 06 2c 1d  |u%?124 . &FE..,.|
00001030  6d 65 6e 75 25 3f 31 34  38 3d 6d 65 6e 75 25 3f  |menu%?148=menu%?|
00001040  31 34 38 20 80 20 26 46  45 0d 06 36 05 e1 0d 06  |148 . &FE..6....|
00001050  40 04 0d 06 4a 12 dd 20  f2 5f 44 6f 4d 65 6e 75  |@...J.. ._DoMenu|
00001060  28 71 25 29 0d 06 54 0d  c8 8e 20 4d 45 4e 25 20  |(q%)..T... MEN% |
00001070  ca 0d 06 5e 08 c9 20 31  3a 0d 06 68 0c c8 8e 20  |...^.. 1:..h... |
00001080  21 71 25 20 ca 0d 06 72  0e 20 20 c9 20 31 3a f2  |!q% ...r.  . 1:.|
00001090  64 69 65 0d 06 7c 06 20  cb 0d 06 86 04 0d 06 90  |die..|. ........|
000010a0  08 c9 20 32 3a 0d 06 9a  0c c8 8e 20 21 71 25 20  |.. 2:...... !q% |
000010b0  ca 0d 06 a4 1b 20 20 c9  20 31 3a f2 5f 47 52 45  |.....  . 1:._GRE|
000010c0  59 3a 20 f2 5f 50 63 68  61 6e 67 65 0d 06 ae 1b  |Y: ._Pchange....|
000010d0  20 20 c9 20 32 3a f2 5f  4e 45 47 20 3a 20 f2 5f  |  . 2:._NEG : ._|
000010e0  50 63 68 61 6e 67 65 0d  06 b8 1b 20 20 c9 20 33  |Pchange....  . 3|
000010f0  3a f2 5f 41 43 20 20 3a  20 f2 5f 50 63 68 61 6e  |:._AC  : ._Pchan|
00001100  67 65 0d 06 c2 1b 20 20  c9 20 34 3a f2 5f 46 6c  |ge....  . 4:._Fl|
00001110  69 70 3a 20 f2 5f 50 63  68 61 6e 67 65 0d 06 cc  |ip: ._Pchange...|
00001120  1a 20 20 c9 20 35 3a 50  68 61 73 65 25 3d ac 28  |.  . 5:Phase%=.(|
00001130  50 68 61 73 65 25 29 0d  06 d6 06 20 cb 0d 06 e0  |Phase%).... ....|
00001140  05 cb 0d 06 ea 04 0d 06  f4 05 e1 0d 06 fe 04 0d  |................|
00001150  07 08 04 0d 07 12 0c dd  20 f2 5f 4f 56 45 52 0d  |........ ._OVER.|
00001160  07 1c 09 ea 20 57 48 25  0d 07 26 18 4f 76 65 72  |.... WH%..&.Over|
00001170  4c 61 79 25 3d ac 28 4f  76 65 72 4c 61 79 25 29  |Lay%=.(OverLay%)|
00001180  0d 07 30 1b 6d 65 6e 75  25 3f 31 37 32 3d 6d 65  |..0.menu%?172=me|
00001190  6e 75 25 3f 31 37 32 20  82 20 31 0d 07 3a 0d f2  |nu%?172 . 1..:..|
000011a0  5f 47 65 74 56 69 65 77  0d 07 44 2d c8 99 22 57  |_GetView..D-.."W|
000011b0  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
000011c0  2c 57 69 6e 32 35 36 25  2c 30 2c 2d 34 30 30 2c  |,Win256%,0,-400,|
000011d0  36 34 30 2c 30 0d 07 4e  05 e1 0d 07 58 04 0d 07  |640,0..N....X...|
000011e0  62 04 0d 07 6c 17 dd 20  f2 5f 53 65 74 55 70 57  |b...l.. ._SetUpW|
000011f0  69 6e 64 6f 77 28 77 25  29 0d 07 76 1d c8 99 28  |indow(w%)..v...(|
00001200  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001210  22 29 2c 2c 77 25 0d 07  80 05 e1 0d 07 8a 04 0d  |"),,w%..........|
00001220  07 94 16 dd 20 f2 5f 4f  70 65 6e 57 69 6e 64 6f  |.... ._OpenWindo|
00001230  77 28 71 25 29 0d 07 9e  1e e7 20 71 25 21 30 3d  |w(q%)..... q%!0=|
00001240  57 69 6e 32 35 36 25 20  8c 20 f2 5f 53 65 74 43  |Win256% . ._SetC|
00001250  6f 6c 73 0d 07 a8 1e 20  c8 99 28 22 57 69 6d 70  |ols.... ..("Wimp|
00001260  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 29 2c 2c 71  |_OpenWindow"),,q|
00001270  25 0d 07 b2 05 e1 0d 07  bc 04 0d 07 c6 14 dd 20  |%.............. |
00001280  f2 5f 44 6f 57 69 6e 64  6f 77 28 71 25 29 0d 07  |._DoWindow(q%)..|
00001290  d0 0f ea 20 66 6c 61 67  25 2c 77 68 25 0d 07 da  |... flag%,wh%...|
000012a0  0b 77 68 25 3d 21 71 25  0d 07 e4 27 c8 99 28 22  |.wh%=!q%...'..("|
000012b0  57 69 6d 70 5f 52 65 64  72 61 77 57 69 6e 64 6f  |Wimp_RedrawWindo|
000012c0  77 22 29 2c 2c 71 25 20  b8 20 66 6c 61 67 25 0d  |w"),,q% . flag%.|
000012d0  07 ee 04 0d 07 f8 10 f2  5f 66 74 6a 28 66 6c 61  |........_ftj(fla|
000012e0  67 25 29 0d 08 02 05 e1  0d 08 0c 04 0d 08 16 12  |g%).............|
000012f0  dd 20 f2 5f 66 74 6a 28  66 6c 61 67 25 29 0d 08  |. ._ftj(flag%)..|
00001300  20 0c c8 95 20 66 6c 61  67 25 0d 08 2a 10 f2 5f  | ... flag%..*.._|
00001310  72 65 64 72 61 77 28 71  25 29 0d 08 34 26 c8 99  |redraw(q%)..4&..|
00001320  20 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  | "Wimp_GetRectan|
00001330  67 6c 65 22 2c 2c 71 25  20 b8 20 66 6c 61 67 25  |gle",,q% . flag%|
00001340  0d 08 3e 05 ce 0d 08 48  05 e1 0d 08 52 04 0d 08  |..>....H....R...|
00001350  5c 04 0d 08 66 12 dd 20  f2 5f 72 65 64 72 61 77  |\...f.. ._redraw|
00001360  28 77 25 29 0d 08 70 0e  ea 20 78 25 2c 79 25 2c  |(w%)..p.. x%,y%,|
00001370  41 25 0d 08 7a 04 0d 08  84 14 e7 20 77 25 21 30  |A%..z...... w%!0|
00001380  3d 57 69 6e 32 35 36 25  20 8c 0d 08 8e 20 c8 99  |=Win256% .... ..|
00001390  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000013a0  53 74 61 74 65 22 2c 2c  77 25 0d 08 98 2f 20 20  |State",,w%.../  |
000013b0  20 20 20 20 78 25 3d 77  25 21 34 2d 77 25 21 32  |    x%=w%!4-w%!2|
000013c0  30 20 3a 20 79 25 3d 77  25 21 31 36 2d 77 25 21  |0 : y%=w%!16-w%!|
000013d0  32 34 2d 53 50 59 25 2a  32 0d 08 a2 04 0d 08 ac  |24-SPY%*2.......|
000013e0  42 20 20 20 20 20 20 c8  99 20 22 4f 53 5f 53 70  |B      .. "OS_Sp|
000013f0  72 69 74 65 4f 70 22 2c  35 32 2b 32 35 36 2c 53  |riteOp",52+256,S|
00001400  50 25 2c 22 53 61 74 5f  49 6d 61 67 65 22 2c 78  |P%,"Sat_Image",x|
00001410  25 2c 79 25 2c 26 31 30  2c 30 2c 50 54 54 25 0d  |%,y%,&10,0,PTT%.|
00001420  08 b6 05 cd 0d 08 c0 28  e7 20 77 25 21 30 3d 43  |.......(. w%!0=C|
00001430  6f 6e 74 72 6f 6c 25 20  80 20 77 25 21 33 36 3e  |ontrol% . w%!36>|
00001440  28 77 25 21 34 2b 33 35  39 29 20 8c 0d 08 ca 23  |(w%!4+359) ....#|
00001450  20 20 20 20 20 20 78 25  3d 77 25 21 34 2b 33 36  |      x%=w%!4+36|
00001460  30 20 3a 20 79 25 3d 77  25 21 38 2b 31 30 30 0d  |0 : y%=w%!8+100.|
00001470  08 d4 1d 20 20 20 20 20  c8 99 22 57 69 6d 70 5f  |...     .."Wimp_|
00001480  53 65 74 43 6f 6c 6f 75  72 22 2c 30 0d 08 de 1c  |SetColour",0....|
00001490  20 20 20 20 20 20 c8 93  c8 90 20 78 25 2c 79 25  |      .... x%,y%|
000014a0  2c 35 31 38 2c 33 30 30  0d 08 e8 1d 20 20 20 20  |,518,300....    |
000014b0  20 c8 99 22 57 69 6d 70  5f 53 65 74 43 6f 6c 6f  | .."Wimp_SetColo|
000014c0  75 72 22 2c 37 0d 08 f2  1a 20 20 20 20 20 20 c8  |ur",7....      .|
000014d0  93 20 78 25 2c 79 25 2c  35 31 38 2c 33 30 30 0d  |. x%,y%,518,300.|
000014e0  08 fc 04 0d 09 06 15 20  20 20 20 20 20 78 25 2b  |.......      x%+|
000014f0  3d 32 3a 79 25 2b 3d 32  0d 09 10 16 20 20 20 20  |=2:y%+=2....    |
00001500  20 20 e3 20 41 25 3d 30  20 b8 20 32 35 35 0d 09  |  . A%=0 . 255..|
00001510  1a 16 20 20 20 20 20 20  ec 20 78 25 2b 41 25 2a  |..      . x%+A%*|
00001520  32 2c 79 25 0d 09 24 24  20 20 20 20 20 20 df 20  |2,y%..$$      . |
00001530  78 25 2b 41 25 2a 32 2c  79 25 2b 48 69 73 74 25  |x%+A%*2,y%+Hist%|
00001540  21 28 41 25 3c 3c 32 29  0d 09 2e 0b 20 20 20 20  |!(A%<<2)....    |
00001550  20 20 ed 0d 09 38 0e 20  20 20 20 79 25 2d 3d 31  |  ...8.    y%-=1|
00001560  32 0d 09 42 13 20 20 20  e3 20 41 25 3d 30 20 b8  |2..B.   . A%=0 .|
00001570  20 32 35 35 0d 09 4c 2f  20 20 20 20 20 c8 99 22  | 255..L/     .."|
00001580  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 47  |ColourTrans_SetG|
00001590  43 4f 4c 22 2c 55 50 25  21 28 41 25 2a 34 29 2c  |COL",UP%!(A%*4),|
000015a0  30 2c 30 0d 09 56 16 20  20 20 20 20 20 ec 20 78  |0,0..V.      . x|
000015b0  25 2b 41 25 2a 32 2c 79  25 0d 09 60 19 20 20 20  |%+A%*2,y%..`.   |
000015c0  20 20 20 df 20 78 25 2b  41 25 2a 32 2c 79 25 2d  |   . x%+A%*2,y%-|
000015d0  32 30 0d 09 6a 0b 20 20  20 20 20 20 ed 0d 09 74  |20..j.      ...t|
000015e0  04 0d 09 7e 05 cd 0d 09  88 05 e1 0d 09 92 04 0d  |...~............|
000015f0  09 9c 0a dd a4 69 63 6f  6e 0d 09 a6 0b 71 25 21  |.....icon....q%!|
00001600  30 3d 2d 31 0d 09 b0 0a  71 25 21 34 3d 30 0d 09  |0=-1....q%!4=0..|
00001610  ba 1a 71 25 21 38 3d 30  20 3a 20 f4 20 59 20 44  |..q%!8=0 : . Y D|
00001620  49 52 45 43 54 49 4f 4e  0d 09 c4 1c 71 25 21 31  |IRECTION....q%!1|
00001630  32 3d 36 34 20 3a 20 f4  20 58 20 44 49 52 45 43  |2=64 : . X DIREC|
00001640  54 49 4f 4e 0d 09 ce 0c  71 25 21 31 36 3d 39 36  |TION....q%!16=96|
00001650  0d 09 d8 0f 71 25 21 32  30 3d 26 32 30 30 32 0d  |....q%!20=&2002.|
00001660  09 e2 17 24 28 71 25 2b  32 34 29 3d 22 21 53 61  |...$(q%+24)="!Sa|
00001670  74 52 65 61 64 22 0d 09  ec 24 c8 99 20 22 57 69  |tRead"...$.. "Wi|
00001680  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00001690  71 25 20 b8 20 69 63 6f  6e 25 0d 09 f6 0a 3d 69  |q% . icon%....=i|
000016a0  63 6f 6e 25 0d 0a 00 04  0d 0a 0a 0f dd f2 73 65  |con%..........se|
000016b0  74 75 70 6d 65 6e 75 0d  0a 14 08 ea 20 6d 25 0d  |tupmenu..... m%.|
000016c0  0a 1e 04 0d 0a 28 15 24  6d 65 6e 75 32 35 36 25  |.....(.$menu256%|
000016d0  3d 22 49 6d 61 67 65 22  0d 0a 32 11 6d 65 6e 75  |="Image"..2.menu|
000016e0  32 35 36 25 3f 31 32 3d  37 0d 0a 3c 11 6d 65 6e  |256%?12=7..<.men|
000016f0  75 32 35 36 25 3f 31 33  3d 32 0d 0a 46 11 6d 65  |u256%?13=2..F.me|
00001700  6e 75 32 35 36 25 3f 31  34 3d 37 0d 0a 50 11 6d  |nu256%?14=7..P.m|
00001710  65 6e 75 32 35 36 25 3f  31 35 3d 30 0d 0a 5a 13  |enu256%?15=0..Z.|
00001720  6d 65 6e 75 32 35 36 25  21 31 36 3d 31 38 34 0d  |menu256%!16=184.|
00001730  0a 64 12 6d 65 6e 75 32  35 36 25 21 32 30 3d 34  |.d.menu256%!20=4|
00001740  30 0d 0a 6e 11 6d 65 6e  75 32 35 36 25 21 32 34  |0..n.menu256%!24|
00001750  3d 30 0d 0a 78 12 6d 25  3d 6d 65 6e 75 32 35 36  |=0..x.m%=menu256|
00001760  25 2b 32 38 0d 0a 82 0a  6d 25 21 30 3d 32 0d 0a  |%+28....m%!0=2..|
00001770  8c 0f 6d 25 21 34 3d 53  56 57 49 4e 25 0d 0a 96  |..m%!4=SVWIN%...|
00001780  18 6d 25 21 38 3d 28 37  3c 3c 32 34 29 84 20 25  |.m%!8=(7<<24). %|
00001790  31 30 30 30 31 0d 0a a0  13 24 28 6d 25 2b 31 32  |10001....$(m%+12|
000017a0  29 3d 22 53 61 76 65 22  0d 0a aa 04 0d 0a b4 0a  |)="Save"........|
000017b0  6d 25 2b 3d 32 34 0d 0a  be 0a 6d 25 21 30 3d 30  |m%+=24....m%!0=0|
000017c0  0d 0a c8 0a 6d 25 21 34  3d 30 0d 0a d2 18 6d 25  |....m%!4=0....m%|
000017d0  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
000017e0  30 31 0d 0a dc 1c 24 28  6d 25 2b 31 32 29 3d 22  |01....$(m%+12)="|
000017f0  47 72 65 79 20 50 61 6c  6c 65 74 74 65 22 0d 0a  |Grey Pallette"..|
00001800  e6 04 0d 0a f0 0a 6d 25  2b 3d 32 34 0d 0a fa 0a  |......m%+=24....|
00001810  6d 25 21 30 3d 30 0d 0b  04 0a 6d 25 21 34 3d 30  |m%!0=0....m%!4=0|
00001820  0d 0b 0e 18 6d 25 21 38  3d 28 37 3c 3c 32 34 29  |....m%!8=(7<<24)|
00001830  84 20 25 31 30 30 30 31  0d 0b 18 15 24 28 6d 25  |. %10001....$(m%|
00001840  2b 31 32 29 3d 22 49 6e  76 65 72 74 22 0d 0b 22  |+12)="Invert".."|
00001850  04 0d 0b 2c 0a 6d 25 2b  3d 32 34 0d 0b 36 0b 6d  |...,.m%+=24..6.m|
00001860  25 21 30 3d 26 32 0d 0b  40 0a 6d 25 21 34 3d 30  |%!0=&2..@.m%!4=0|
00001870  0d 0b 4a 18 6d 25 21 38  3d 28 37 3c 3c 32 34 29  |..J.m%!8=(7<<24)|
00001880  84 20 25 31 30 30 30 31  0d 0b 54 1b 24 28 6d 25  |. %10001..T.$(m%|
00001890  2b 31 32 29 3d 22 4d 61  78 20 43 6f 6e 74 72 61  |+12)="Max Contra|
000018a0  73 74 22 0d 0b 5e 04 0d  0b 68 0a 6d 25 2b 3d 32  |st"..^...h.m%+=2|
000018b0  34 0d 0b 72 0a 6d 25 21  30 3d 30 0d 0b 7c 0a 6d  |4..r.m%!0=0..|.m|
000018c0  25 21 34 3d 30 0d 0b 86  18 6d 25 21 38 3d 28 37  |%!4=0....m%!8=(7|
000018d0  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 0b 90  |<<24). %10001...|
000018e0  19 24 28 6d 25 2b 31 32  29 3d 22 46 6c 69 70 20  |.$(m%+12)="Flip |
000018f0  49 6d 61 67 65 22 0d 0b  9a 04 0d 0b a4 0a 6d 25  |Image"........m%|
00001900  2b 3d 32 34 0d 0b ae 0c  6d 25 21 30 3d 26 38 30  |+=24....m%!0=&80|
00001910  0d 0b b8 0a 6d 25 21 34  3d 30 0d 0b c2 18 6d 25  |....m%!4=0....m%|
00001920  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
00001930  30 31 0d 0b cc 14 24 28  6d 25 2b 31 32 29 3d 22  |01....$(m%+12)="|
00001940  50 68 61 73 65 22 0d 0b  d6 04 0d 0b e0 14 24 6d  |Phase"........$m|
00001950  65 6e 75 25 3d 22 53 61  74 52 65 61 64 22 0d 0b  |enu%="SatRead"..|
00001960  ea 0e 6d 65 6e 75 25 3f  31 32 3d 37 0d 0b f4 0e  |..menu%?12=7....|
00001970  6d 65 6e 75 25 3f 31 33  3d 32 0d 0b fe 0e 6d 65  |menu%?13=2....me|
00001980  6e 75 25 3f 31 34 3d 37  0d 0c 08 0e 6d 65 6e 75  |nu%?14=7....menu|
00001990  25 3f 31 35 3d 30 0d 0c  12 10 6d 65 6e 75 25 21  |%?15=0....menu%!|
000019a0  31 36 3d 31 38 34 0d 0c  1c 0f 6d 65 6e 75 25 21  |16=184....menu%!|
000019b0  32 30 3d 34 30 0d 0c 26  0e 6d 65 6e 75 25 21 32  |20=40..&.menu%!2|
000019c0  34 3d 30 0d 0c 30 0f 6d  25 3d 6d 65 6e 75 25 2b  |4=0..0.m%=menu%+|
000019d0  32 38 0d 0c 3a 0a 6d 25  21 30 3d 32 0d 0c 44 0e  |28..:.m%!0=2..D.|
000019e0  6d 25 21 34 3d 69 6e 66  6f 25 0d 0c 4e 18 6d 25  |m%!4=info%..N.m%|
000019f0  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
00001a00  30 31 0d 0c 58 13 24 28  6d 25 2b 31 32 29 3d 22  |01..X.$(m%+12)="|
00001a10  49 6e 66 6f 22 0d 0c 62  04 0d 0c 6c 0a 6d 25 2b  |Info"..b...l.m%+|
00001a20  3d 32 34 0d 0c 76 0c 6d  25 21 30 3d 26 38 30 0d  |=24..v.m%!0=&80.|
00001a30  0c 80 0a 6d 25 21 34 3d  30 0d 0c 8a 18 6d 25 21  |...m%!4=0....m%!|
00001a40  38 3d 28 37 3c 3c 32 34  29 84 20 25 31 30 30 30  |8=(7<<24). %1000|
00001a50  31 0d 0c 94 13 24 28 6d  25 2b 31 32 29 3d 22 51  |1....$(m%+12)="Q|
00001a60  75 69 74 22 0d 0c 9e 05  e1 0d 0c a8 04 0d 0c b2  |uit"............|
00001a70  12 dd 20 f2 72 65 63 65  69 76 65 28 71 25 29 0d  |.. .receive(q%).|
00001a80  0c bc 08 ea 20 41 25 0d  0c c6 0e c8 8e 20 71 25  |.... A%...... q%|
00001a90  21 31 36 20 ca 0d 0c d0  0c c9 20 30 3a f2 64 69  |!16 ...... 0:.di|
00001aa0  65 0d 0c da 36 c9 20 31  3a 20 71 25 21 31 36 3d  |e...6. 1: q%!16=|
00001ab0  32 3a 71 25 21 33 36 3d  2d 31 3a f2 5f 73 70 75  |2:q%!36=-1:._spu|
00001ac0  74 28 71 25 2b 34 34 2c  22 3c 57 69 6d 70 24 53  |t(q%+44,"<Wimp$S|
00001ad0  63 72 61 70 3e 22 29 0d  0c e4 1f 20 20 20 20 20  |crap>")....     |
00001ae0  20 20 20 6d 65 73 73 68  25 3d 71 25 21 34 3a 71  |   messh%=q%!4:q|
00001af0  25 21 30 3d 36 30 0d 0c  ee 19 20 20 20 20 20 20  |%!0=60....      |
00001b00  20 20 73 61 76 65 72 65  66 25 3d 71 25 21 38 0d  |  saveref%=q%!8.|
00001b10  0c f8 2e 20 20 20 20 20  20 20 20 c8 99 20 22 57  |...        .. "W|
00001b20  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001b30  2c 31 37 2c 71 25 2c 6d  65 73 73 68 25 0d 0d 02  |,17,q%,messh%...|
00001b40  04 0d 0d 0c 1b c9 20 32  3a 20 e7 20 71 25 21 31  |...... 2: . q%!1|
00001b50  32 3d 73 61 76 65 72 65  66 25 20 8c 0d 0d 16 1c  |2=saveref% .....|
00001b60  20 20 20 20 20 20 20 20  20 20 73 65 63 75 72 65  |          secure|
00001b70  46 25 3d 71 25 21 33 36  0d 0d 20 25 20 20 20 20  |F%=q%!36.. %    |
00001b80  20 20 20 20 20 20 66 6e  24 3d a4 73 67 65 74 28  |      fn$=.sget(|
00001b90  71 25 2b 34 34 29 3a f2  5f 53 61 76 65 0d 0d 2a  |q%+44):._Save..*|
00001ba0  38 20 20 20 20 20 20 20  20 20 20 71 25 21 31 32  |8          q%!12|
00001bb0  3d 73 61 76 65 72 65 66  25 3a 71 25 21 31 36 3d  |=saveref%:q%!16=|
00001bc0  33 3a 71 25 21 30 3d 32  35 36 3a 71 25 21 34 30  |3:q%!0=256:q%!40|
00001bd0  3d 26 46 46 39 0d 0d 34  41 20 20 20 20 20 20 20  |=&FF9..4A       |
00001be0  20 20 20 71 25 21 32 30  3d 6d 65 73 73 68 25 3a  |   q%!20=messh%:|
00001bf0  71 25 21 32 34 3d 6d 65  73 73 69 25 3a 71 25 21  |q%!24=messi%:q%!|
00001c00  32 38 3d 6d 65 73 73 78  25 3a 71 25 21 33 32 3d  |28=messx%:q%!32=|
00001c10  6d 65 73 73 79 25 0d 0d  3e 37 20 20 20 20 20 20  |messy%..>7      |
00001c20  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |    .. "Wimp_Sen|
00001c30  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 71 25 2c  |dMessage",17,q%,|
00001c40  6d 65 73 73 68 25 2c 6d  65 73 73 69 25 0d 0d 48  |messh%,messi%..H|
00001c50  0f 20 20 20 20 20 20 20  20 20 20 cd 0d 0d 52 04  |.          ...R.|
00001c60  0d 0d 5c 17 c9 20 33 3a  6e 24 3d a4 73 67 65 74  |..\.. 3:n$=.sget|
00001c70  28 71 25 2b 34 34 29 0d  0d 66 27 20 20 20 20 20  |(q%+44)..f'     |
00001c80  20 20 73 65 6e 64 74 68  25 3d 71 25 21 34 3a 69  |  sendth%=q%!4:i|
00001c90  63 6f 6e 74 79 70 65 25  3d 71 25 21 34 30 0d 0d  |contype%=q%!40..|
00001ca0  70 16 20 20 20 20 20 20  20 6d 79 72 65 66 25 3d  |p.       myref%=|
00001cb0  71 25 21 38 0d 0d 7a 39  20 20 20 20 20 20 20 e7  |q%!8..z9       .|
00001cc0  20 71 25 21 32 30 3d 2d  32 20 80 20 71 25 21 32  | q%!20=-2 . q%!2|
00001cd0  34 3d 53 61 74 49 63 6f  6e 25 20 80 20 69 63 6f  |4=SatIcon% . ico|
00001ce0  6e 74 79 70 65 25 3d 26  46 46 39 20 8c 0d 0d 84  |ntype%=&FF9 ....|
00001cf0  14 20 20 20 20 20 20 20  20 52 6d 65 74 68 25 3d  |.        Rmeth%=|
00001d00  32 0d 0d 8e 1b 20 20 20  20 20 20 20 20 f2 5f 49  |2....        ._I|
00001d10  6d 61 67 65 4c 6f 61 64  28 6e 24 29 0d 0d 98 12  |mageLoad(n$)....|
00001d20  20 20 20 20 20 20 20 20  f2 5f 44 61 63 6b 0d 0d  |        ._Dack..|
00001d30  a2 15 20 20 20 20 20 20  20 20 20 52 6d 65 74 68  |..         Rmeth|
00001d40  25 3d 31 0d 0d ac 0c 20  20 20 20 20 20 20 cd 0d  |%=1....       ..|
00001d50  0d b6 2f 20 20 20 20 20  20 20 e7 20 71 25 21 32  |../       . q%!2|
00001d60  30 3d 57 69 6e 32 35 36  25 20 8c 20 f2 5f 50 6c  |0=Win256% . ._Pl|
00001d70  6f 61 64 28 6e 24 29 3a  f2 5f 44 61 63 6b 0d 0d  |oad(n$):._Dack..|
00001d80  c0 24 20 20 20 20 20 20  20 e7 20 71 25 21 32 30  |.$       . q%!20|
00001d90  3d 43 6f 6e 74 72 6f 6c  25 20 8c 20 f2 5f 44 61  |=Control% . ._Da|
00001da0  63 6b 0d 0d ca 0b 20 20  20 20 20 20 20 0d 0d d4  |ck....       ...|
00001db0  11 c9 20 26 35 30 32 3a  c8 8e 20 b9 20 ca 0d 0d  |.. &502:.. . ...|
00001dc0  de 6f 20 20 20 20 20 20  20 c9 20 71 25 21 33 32  |.o       . q%!32|
00001dd0  3d 2d 32 20 80 20 71 25  21 33 36 3d 53 61 74 49  |=-2 . q%!36=SatI|
00001de0  63 6f 6e 25 3a 6d 65 73  24 3d 22 54 68 69 73 20  |con%:mes$="This |
00001df0  69 73 20 74 68 65 20 53  61 74 20 52 65 61 64 20  |is the Sat Read |
00001e00  69 63 6f 6e 2e 7c 4d 55  73 65 20 74 68 69 73 20  |icon.|MUse this |
00001e10  74 6f 20 64 69 73 70 6c  61 79 20 53 61 74 65 6c  |to display Satel|
00001e20  6c 69 74 65 20 69 6d 61  67 65 73 2e 22 0d 0d e8  |lite images."...|
00001e30  14 20 20 20 20 20 20 20  7f 3a 6d 65 73 24 3d 22  |.       .:mes$="|
00001e40  22 0d 0d f2 0c 20 20 20  20 20 20 20 cb 0d 0d fc  |"....       ....|
00001e50  14 20 20 20 20 e7 20 6d  65 73 24 3c 3e 22 22 20  |.    . mes$<>"" |
00001e60  8c 0d 0e 06 12 20 20 20  20 71 25 21 31 32 3d 71  |.....    q%!12=q|
00001e70  25 21 38 0d 0e 10 18 20  20 20 20 24 28 71 25 2b  |%!8....    $(q%+|
00001e80  32 30 29 3d 6d 65 73 24  2b bd 30 0d 0e 1a 1e 20  |20)=mes$+.0.... |
00001e90  20 20 20 71 25 21 30 3d  28 32 30 2b a9 6d 65 73  |   q%!0=(20+.mes|
00001ea0  24 2b 34 29 80 20 ac 20  33 0d 0e 24 12 20 20 20  |$+4). . 3..$.   |
00001eb0  20 71 25 21 31 36 3d 26  35 30 33 0d 0e 2e 28 20  | q%!16=&503...( |
00001ec0  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |   .. "Wimp_Send|
00001ed0  4d 65 73 73 61 67 65 22  2c 31 38 2c 71 25 2c 71  |Message",18,q%,q|
00001ee0  25 21 34 0d 0e 38 05 cb  0d 0e 42 05 e1 0d 0e 4c  |%!4..8....B....L|
00001ef0  04 0d 0e 56 0c dd 20 f2  5f 44 61 63 6b 0d 0e 60  |...V.. ._Dack..`|
00001f00  10 71 25 21 31 32 3d 6d  79 72 65 66 25 0d 0e 6a  |.q%!12=myref%..j|
00001f10  14 71 25 21 31 36 3d 34  3a 71 25 21 30 3d 32 35  |.q%!16=4:q%!0=25|
00001f20  36 0d 0e 74 27 c8 99 20  22 57 69 6d 70 5f 53 65  |6..t'.. "Wimp_Se|
00001f30  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
00001f40  2c 73 65 6e 64 74 68 25  0d 0e 7e 29 e7 20 6e 24  |,sendth%..~). n$|
00001f50  3d 22 3c 57 69 6d 70 24  53 63 72 61 70 3e 22 20  |="<Wimp$Scrap>" |
00001f60  8c 20 ff 28 22 44 45 4c  45 54 45 20 22 2b 6e 24  |. .("DELETE "+n$|
00001f70  29 0d 0e 88 05 e1 0d 0e  92 04 0d 0e 9c 09 dd f2  |)...............|
00001f80  64 69 65 0d 0e a6 0e e7  20 52 69 73 63 50 43 20  |die..... RiscPC |
00001f90  8c 0d 0e b0 2d e7 20 41  6c 6c 6f 63 25 3c 3e 30  |....-. Alloc%<>0|
00001fa0  20 8c 20 c8 99 22 4f 53  5f 44 79 6e 61 6d 69 63  | . .."OS_Dynamic|
00001fb0  41 72 65 61 22 2c 31 2c  41 6c 6c 6f 63 25 0d 0e  |Area",1,Alloc%..|
00001fc0  ba 05 cc 0d 0e c4 2d e7  20 41 6c 6c 6f 63 25 3c  |......-. Alloc%<|
00001fd0  3e 30 20 8c 20 c8 99 22  4f 53 5f 48 65 61 70 22  |>0 . .."OS_Heap"|
00001fe0  2c 33 2c 48 65 61 70 50  25 2c 41 6c 6c 6f 63 25  |,3,HeapP%,Alloc%|
00001ff0  0d 0e ce 05 cd 0d 0e d8  2a c8 99 20 22 57 69 6d  |........*.. "Wim|
00002000  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 74 61 73  |p_CloseDown",tas|
00002010  6b 68 61 6e 64 25 2c 21  74 61 73 6b 69 64 25 0d  |khand%,!taskid%.|
00002020  0e e2 0e f2 5f 72 65 73  6d 6f 75 73 65 0d 0e ec  |...._resmouse...|
00002030  05 e0 0d 0e f6 05 e1 0d  0f 00 04 0d 0f 0a 10 dd  |................|
00002040  20 f2 5f 72 65 73 6d 6f  75 73 65 0d 0f 14 15 ea  | ._resmouse.....|
00002050  20 78 77 25 2c 79 77 25  2c 78 73 25 2c 79 73 25  | xw%,yw%,xs%,ys%|
00002060  0d 0f 1e 29 c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |...).."OS_ReadMo|
00002070  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 31  |deVariable",-1,1|
00002080  31 20 b8 20 2c 2c 78 77  25 0d 0f 28 29 c8 99 22  |1 . ,,xw%..().."|
00002090  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
000020a0  62 6c 65 22 2c 2d 31 2c  31 32 20 b8 20 2c 2c 79  |ble",-1,12 . ,,y|
000020b0  77 25 0d 0f 32 28 c8 99  22 4f 53 5f 52 65 61 64  |w%..2(.."OS_Read|
000020c0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
000020d0  2c 34 20 b8 20 2c 2c 78  73 25 0d 0f 3c 28 c8 99  |,4 . ,,xs%..<(..|
000020e0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000020f0  61 62 6c 65 22 2c 2d 31  2c 35 20 b8 20 2c 2c 79  |able",-1,5 . ,,y|
00002100  73 25 0d 0f 46 10 78 77  25 3d 78 77 25 3c 3c 78  |s%..F.xw%=xw%<<x|
00002110  73 25 0d 0f 50 10 79 77  25 3d 79 77 25 3c 3c 79  |s%..P.yw%=yw%<<y|
00002120  73 25 0d 0f 5a 14 c8 97  c8 93 20 30 2c 30 2c 78  |s%..Z..... 0,0,x|
00002130  77 25 2c 79 77 25 0d 0f  64 05 e1 0d 0f 6e 04 0d  |w%,yw%..d....n..|
00002140  0f 78 0e dd a4 73 67 65  74 28 78 25 29 0d 0f 82  |.x...sget(x%)...|
00002150  08 ea 20 78 24 0d 0f 8c  21 c8 95 20 3f 78 25 3e  |.. x$...!.. ?x%>|
00002160  26 31 46 20 78 24 2b 3d  bd 28 3f 78 25 29 3a 78  |&1F x$+=.(?x%):x|
00002170  25 2b 3d 31 3a ce 0d 0f  96 07 3d 78 24 0d 0f a0  |%+=1:.....=x$...|
00002180  04 0d 0f aa 0c dd a4 70  67 28 6e 25 29 0d 0f b4  |.......pg(n%)...|
00002190  08 ea 20 41 24 0d 0f be  19 41 24 3d a4 73 67 65  |.. A$....A$=.sge|
000021a0  74 28 53 50 6f 69 6e 74  25 28 6e 25 29 29 0d 0f  |t(SPoint%(n%))..|
000021b0  c8 0a 3d bb 28 41 24 29  0d 0f d2 04 0d 0f dc 10  |..=.(A$)........|
000021c0  dd 20 f2 5f 47 65 74 50  72 61 6d 73 0d 0f e6 08  |. ._GetPrams....|
000021d0  ea 20 41 24 0d 0f f0 10  71 25 21 30 3d 63 6f 6e  |. A$....q%!0=con|
000021e0  74 25 21 30 0d 0f fa 0f  53 50 58 25 3d a4 70 67  |t%!0....SPX%=.pg|
000021f0  28 30 29 0d 10 04 27 53  50 59 25 3d 28 a4 70 67  |(0)...'SPY%=(.pg|
00002200  28 34 29 2a 28 53 50 58  25 2f 36 30 29 29 2b a4  |(4)*(SPX%/60))+.|
00002210  70 67 28 32 29 2a 53 50  58 25 0d 10 0e 17 53 50  |pg(2)*SPX%....SP|
00002220  58 25 3d 34 38 30 30 2f  28 53 50 58 25 2f 36 30  |X%=4800/(SPX%/60|
00002230  29 0d 10 18 0d 4f 66 66  53 65 74 25 3d 30 0d 10  |)....OffSet%=0..|
00002240  22 05 e1 0d 10 2c 04 0d  10 36 11 dd 20 f2 5f 50  |"....,...6.. ._P|
00002250  6c 6f 61 64 28 44 24 29  0d 10 40 0e ea 20 46 25  |load(D$)..@.. F%|
00002260  2c 45 25 2c 41 25 0d 10  4a 0c 46 25 3d 8e 28 44  |,E%,A%..J.F%=.(D|
00002270  24 29 0d 10 54 08 41 25  3d 30 0d 10 5e 05 f5 0d  |$)..T.A%=0..^...|
00002280  10 68 0b 45 25 3d 9a 23  46 25 0d 10 72 0d 55 50  |.h.E%=.#F%..r.UP|
00002290  25 3f 41 25 3d 45 25 0d  10 7c 09 41 25 2b 3d 31  |%?A%=E%..|.A%+=1|
000022a0  0d 10 86 14 fd 20 41 25  3d 31 30 32 34 20 84 20  |..... A%=1024 . |
000022b0  c5 23 46 25 0d 10 90 08  d9 23 46 25 0d 10 9a 0d  |.#F%.....#F%....|
000022c0  f2 5f 50 63 68 61 6e 67  65 0d 10 a4 05 e1 0d 10  |._Pchange.......|
000022d0  ae 04 0d 10 b8 0f dd 20  f2 5f 50 63 68 61 6e 67  |....... ._Pchang|
000022e0  65 0d 10 c2 1d e7 20 57  69 74 68 50 61 6c 6c 25  |e..... WithPall%|
000022f0  20 80 20 41 6c 6c 6f 63  25 3c 3e 30 20 8c 0d 10  | . Alloc%<>0 ...|
00002300  cc 0c f2 5f 50 75 74 50  61 6c 0d 10 d6 0d f2 5f  |..._PutPal....._|
00002310  53 65 74 43 6f 6c 73 0d  10 e0 23 c8 99 22 57 69  |SetCols...#.."Wi|
00002320  6d 70 5f 47 65 74 57 69  6e 64 6f 77 49 6e 66 6f  |mp_GetWindowInfo|
00002330  22 2c 2c 63 73 77 32 35  36 25 0d 10 ea 33 c8 99  |",,csw256%...3..|
00002340  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00002350  77 22 2c 57 69 6e 32 35  36 25 2c 30 2c 2d 53 50  |w",Win256%,0,-SP|
00002360  59 25 2a 32 2c 53 50 58  25 2a 32 2c 30 0d 10 f4  |Y%*2,SPX%*2,0...|
00002370  04 0d 10 fe 36 c8 99 22  57 69 6d 70 5f 46 6f 72  |....6.."Wimp_For|
00002380  63 65 52 65 64 72 61 77  22 2c 43 6f 6e 74 72 6f  |ceRedraw",Contro|
00002390  6c 25 2c 33 36 30 2c 2d  34 30 30 2c 33 36 30 2b  |l%,360,-400,360+|
000023a0  35 38 30 2c 31 30 30 0d  11 08 05 cd 0d 11 12 05  |580,100.........|
000023b0  e1 0d 11 1c 04 0d 11 26  2f f4 20 52 45 41 44 53  |.......&/. READS|
000023c0  20 54 48 45 20 49 4d 41  47 45 20 44 41 54 41 20  | THE IMAGE DATA |
000023d0  44 49 52 45 43 54 4c 59  20 69 6e 74 6f 20 73 70  |DIRECTLY into sp|
000023e0  72 69 74 65 0d 11 30 15  dd 20 f2 5f 49 6d 61 67  |rite..0.. ._Imag|
000023f0  65 4c 6f 61 64 28 44 24  29 0d 11 3a 0b ea 20 41  |eLoad(D$)..:.. A|
00002400  25 2c 53 24 0d 11 44 04  0d 11 4e 0c 54 61 72 53  |%,S$..D...N.TarS|
00002410  24 3d 44 24 0d 11 58 11  e7 20 41 6c 6c 6f 63 25  |$=D$..X.. Alloc%|
00002420  3c 3e 30 20 8c 0d 11 62  10 20 20 e7 20 52 69 73  |<>0 ...b.  . Ris|
00002430  63 50 43 20 8c 0d 11 6c  22 20 20 20 c8 99 22 4f  |cPC ...l"   .."O|
00002440  53 5f 44 79 6e 61 6d 69  63 41 72 65 61 22 2c 31  |S_DynamicArea",1|
00002450  2c 41 6c 6c 6f 63 25 0d  11 76 07 20 20 cc 0d 11  |,Alloc%..v.  ...|
00002460  80 22 20 20 20 c8 99 22  4f 53 5f 48 65 61 70 22  |."   .."OS_Heap"|
00002470  2c 33 2c 48 65 61 70 50  25 2c 41 6c 6c 6f 63 25  |,3,HeapP%,Alloc%|
00002480  0d 11 8a 07 20 20 cd 0d  11 94 0c 41 6c 6c 6f 63  |....  .....Alloc|
00002490  25 3d 30 0d 11 9e 23 c8  99 22 57 69 6d 70 5f 47  |%=0...#.."Wimp_G|
000024a0  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 63  |etWindowInfo",,c|
000024b0  73 77 32 35 36 25 0d 11  a8 21 c8 99 22 57 69 6d  |sw256%...!.."Wim|
000024c0  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
000024d0  63 73 77 32 35 36 25 0d  11 b2 05 cd 0d 11 bc 0e  |csw256%.........|
000024e0  f2 5f 47 65 74 50 72 61  6d 73 0d 11 c6 04 0d 11  |._GetPrams......|
000024f0  d0 10 e7 20 52 6d 65 74  68 25 3d 31 20 8c 0d 11  |... Rmeth%=1 ...|
00002500  da 0d 41 25 3d 53 50 58  25 2b 33 0d 11 e4 14 61  |..A%=SPX%+3....a|
00002510  73 7a 25 3d 31 30 30 2b  41 25 2a 53 50 59 25 0d  |sz%=100+A%*SPY%.|
00002520  11 ee 23 61 73 7a 25 2b  3d 32 30 34 38 20 3a f4  |..#asz%+=2048 :.|
00002530  20 52 6f 6f 6d 20 66 6f  72 20 70 61 6c 6c 65 74  | Room for pallet|
00002540  74 65 0d 11 f8 05 cc 0d  12 02 1f c8 99 22 4f 53  |te..........."OS|
00002550  5f 46 69 6c 65 22 2c 35  2c 44 24 20 b8 20 2c 2c  |_File",5,D$ . ,,|
00002560  2c 2c 61 73 7a 25 0d 12  0c 0e 61 73 7a 25 2b 3d  |,,asz%....asz%+=|
00002570  31 30 30 30 0d 12 16 05  cd 0d 12 20 04 0d 12 2a  |1000....... ...*|
00002580  23 24 64 61 6e 61 6d 65  25 3d 22 53 61 74 20 52  |#$daname%="Sat R|
00002590  65 61 64 20 53 70 72 69  74 65 22 2b bd 28 30 29  |ead Sprite"+.(0)|
000025a0  0d 12 34 18 f4 20 41 73  6b 20 66 6f 72 20 74 68  |..4.. Ask for th|
000025b0  65 20 6d 65 6d 6f 72 79  0d 12 3e 0e e7 20 52 69  |e memory..>.. Ri|
000025c0  73 63 50 43 20 8c 0d 12  48 4e c8 99 22 4f 53 5f  |scPC ...HN.."OS_|
000025d0  44 79 6e 61 6d 69 63 41  72 65 61 22 2c 30 2c 2d  |DynamicArea",0,-|
000025e0  31 2c 61 73 7a 25 2c 2d  31 2c 26 38 30 2c 61 73  |1,asz%,-1,&80,as|
000025f0  7a 25 2c 30 2c 30 2c 64  61 6e 61 6d 65 25 20 b8  |z%,0,0,daname% .|
00002600  20 2c 41 6c 6c 6f 63 25  2c 2c 53 50 25 2c 2c 61  | ,Alloc%,,SP%,,a|
00002610  61 73 7a 25 0d 12 52 05  cc 0d 12 5c 2a c8 99 22  |asz%..R....\*.."|
00002620  58 4f 53 5f 48 65 61 70  22 2c 32 2c 48 65 61 70  |XOS_Heap",2,Heap|
00002630  50 25 2c 2c 61 73 7a 25  20 b8 20 2c 2c 41 6c 6c  |P%,,asz% . ,,All|
00002640  6f 63 25 0d 12 66 0e 53  50 25 3d 41 6c 6c 6f 63  |oc%..f.SP%=Alloc|
00002650  25 0d 12 70 0e 61 61 73  7a 25 3d 61 73 7a 25 0d  |%..p.aasz%=asz%.|
00002660  12 7a 05 cd 0d 12 84 38  e7 20 28 28 61 61 73 7a  |.z.....8. ((aasz|
00002670  25 3c 61 73 7a 25 29 20  80 20 52 69 73 63 50 43  |%<asz%) . RiscPC|
00002680  29 20 84 20 28 ac 28 52  69 73 63 50 43 29 20 80  |) . (.(RiscPC) .|
00002690  20 41 6c 6c 6f 63 25 3d  30 29 20 8c 0d 12 8e 10  | Alloc%=0) .....|
000026a0  20 20 e7 20 52 69 73 63  50 43 20 8c 0d 12 98 3c  |  . RiscPC ....<|
000026b0  20 20 20 f2 5f 73 65 74  75 70 57 28 22 4e 65 65  |   ._setupW("Nee|
000026c0  64 20 22 2b c3 28 61 73  7a 25 29 2b 22 20 62 79  |d "+.(asz%)+" by|
000026d0  74 65 73 20 6f 6e 6c 79  20 67 6f 74 20 22 2b c3  |tes only got "+.|
000026e0  28 61 61 73 7a 25 29 29  0d 12 a2 22 20 20 20 c8  |(aasz%))..."   .|
000026f0  99 22 4f 53 5f 44 79 6e  61 6d 69 63 41 72 65 61  |."OS_DynamicArea|
00002700  22 2c 31 2c 41 6c 6c 6f  63 25 0d 12 ac 0f 20 20  |",1,Alloc%....  |
00002710  20 41 6c 6c 6f 63 25 3d  30 0d 12 b6 08 20 20 20  | Alloc%=0....   |
00002720  cc 0d 12 c0 3d 20 20 20  f2 5f 73 65 74 75 70 57  |....=   ._setupW|
00002730  28 22 4e 65 65 64 20 22  2b c3 28 61 73 7a 25 29  |("Need "+.(asz%)|
00002740  2b 22 20 62 79 74 65 73  20 66 72 65 65 20 69 6e  |+" bytes free in|
00002750  20 53 79 73 74 65 6d 20  48 65 61 70 22 29 0d 12  | System Heap")..|
00002760  ca 08 20 20 20 cd 0d 12  d4 05 cc 0d 12 de 12 53  |..   ..........S|
00002770  6e 61 6d 65 24 3d 22 42  6c 61 6e 6b 22 0d 12 e8  |name$="Blank"...|
00002780  0e 53 50 25 21 30 3d 61  73 7a 25 0d 12 f2 0c 53  |.SP%!0=asz%....S|
00002790  50 25 21 38 3d 31 36 0d  12 fc 1d c8 99 22 4f 53  |P%!8=16......"OS|
000027a0  5f 53 70 72 69 74 65 4f  70 22 2c 39 2b 35 31 32  |_SpriteOp",9+512|
000027b0  2c 53 50 25 0d 13 06 04  0d 13 10 10 e7 20 52 6d  |,SP%......... Rm|
000027c0  65 74 68 25 3d 31 20 8c  0d 13 1a 21 f4 20 4e 4f  |eth%=1 ....!. NO|
000027d0  57 20 43 52 45 41 54 45  20 53 50 52 49 54 45 20  |W CREATE SPRITE |
000027e0  46 4f 52 20 49 4d 41 47  45 0d 13 24 39 c8 99 22  |FOR IMAGE..$9.."|
000027f0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 31 35 2b  |OS_SpriteOp",15+|
00002800  32 35 36 2c 53 50 25 2c  22 53 61 74 5f 49 6d 61  |256,SP%,"Sat_Ima|
00002810  67 65 22 2c 30 2c 53 50  58 25 2c 53 50 59 25 2c  |ge",0,SPX%,SPY%,|
00002820  32 38 0d 13 2e 12 63 73  77 32 35 36 25 21 36 38  |28....csw256%!68|
00002830  3d 53 50 25 0d 13 38 0e  44 50 25 3d 53 50 25 2b  |=SP%..8.DP%=SP%+|
00002840  36 30 0d 13 42 13 73 70  74 72 25 3d 53 50 25 2b  |60..B.sptr%=SP%+|
00002850  53 50 25 21 38 0d 13 4c  0f 57 69 74 68 50 61 6c  |SP%!8..L.WithPal|
00002860  6c 25 3d b9 0d 13 56 11  70 61 6c 25 3d 73 70 74  |l%=...V.pal%=spt|
00002870  72 25 2b 34 34 0d 13 60  16 21 28 73 70 74 72 25  |r%+44..`.!(sptr%|
00002880  2b 38 2a 34 29 2b 3d 32  30 34 38 0d 13 6a 16 21  |+8*4)+=2048..j.!|
00002890  28 73 70 74 72 25 2b 39  2a 34 29 2b 3d 32 30 34  |(sptr%+9*4)+=204|
000028a0  38 0d 13 74 10 21 73 70  74 72 25 2b 3d 32 30 34  |8..t.!sptr%+=204|
000028b0  38 0d 13 7e 13 21 28 53  50 25 2b 31 32 29 2b 3d  |8..~.!(SP%+12)+=|
000028c0  32 30 34 38 0d 13 88 0c  f2 5f 50 75 74 50 61 6c  |2048....._PutPal|
000028d0  0d 13 92 0d 44 50 25 2b  3d 32 30 34 38 0d 13 9c  |....DP%+=2048...|
000028e0  05 cd 0d 13 a6 1a c8 99  22 48 6f 75 72 67 6c 61  |........"Hourgla|
000028f0  73 73 5f 53 74 61 72 74  22 2c 31 30 0d 13 b0 04  |ss_Start",10....|
00002900  0d 13 ba 0b f2 5f 47 45  54 69 6d 0d 13 c4 04 0d  |....._GETim.....|
00002910  13 ce 24 f4 20 43 72 65  61 74 65 20 61 20 73 70  |..$. Create a sp|
00002920  72 69 74 65 20 6e 61 6d  65 20 66 72 6f 6d 20 6e  |rite name from n|
00002930  61 6d 65 0d 13 d8 0e 53  24 3d 22 22 3a 41 25 3d  |ame....S$="":A%=|
00002940  30 0d 13 e2 05 f5 0d 13  ec 10 53 24 3d c2 44 24  |0.........S$=.D$|
00002950  2c 31 29 2b 53 24 0d 13  f6 09 41 25 2b 3d 31 0d  |,1)+S$....A%+=1.|
00002960  14 00 13 44 24 3d c0 44  24 2c a9 28 44 24 29 2d  |...D$=.D$,.(D$)-|
00002970  31 29 0d 14 0a 18 fd 20  c2 44 24 2c 31 29 3d 22  |1)..... .D$,1)="|
00002980  2e 22 20 84 20 41 25 3d  31 30 0d 14 14 11 f2 5f  |." . A%=10....._|
00002990  50 75 74 4e 61 6d 65 28  53 24 29 0d 14 1e 0b 24  |PutName(S$)....$|
000029a0  57 4e 25 3d 53 24 0d 14  28 04 0d 14 32 1f 63 73  |WN%=S$..(...2.cs|
000029b0  77 32 35 36 25 21 31 32  3d 63 73 77 32 35 36 25  |w256%!12=csw256%|
000029c0  21 34 2b 53 50 58 25 2a  32 0d 14 3c 1f 63 73 77  |!4+SPX%*2..<.csw|
000029d0  32 35 36 25 21 31 36 3d  63 73 77 32 35 36 25 21  |256%!16=csw256%!|
000029e0  38 2b 53 50 59 25 2a 32  0d 14 46 37 74 65 6d 70  |8+SPY%*2..F7temp|
000029f0  25 21 30 3d 30 3a 74 65  6d 70 25 21 34 3d 2d 53  |%!0=0:temp%!4=-S|
00002a00  50 59 25 2a 32 3a 74 65  6d 70 25 21 38 3d 53 50  |PY%*2:temp%!8=SP|
00002a10  58 25 2a 32 3a 74 65 6d  70 25 21 31 32 3d 30 0d  |X%*2:temp%!12=0.|
00002a20  14 50 04 0d 14 5a 20 c8  99 22 57 69 6d 70 5f 4f  |.P...Z .."Wimp_O|
00002a30  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 63 73 77 32  |penWindow",,csw2|
00002a40  35 36 25 0d 14 64 24 c8  99 22 57 69 6d 70 5f 53  |56%..d$.."Wimp_S|
00002a50  65 74 45 78 74 65 6e 74  22 2c 57 69 6e 32 35 36  |etExtent",Win256|
00002a60  25 2c 74 65 6d 70 25 0d  14 6e 04 0d 14 78 36 c8  |%,temp%..n...x6.|
00002a70  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00002a80  61 77 22 2c 43 6f 6e 74  72 6f 6c 25 2c 33 36 30  |aw",Control%,360|
00002a90  2c 2d 34 30 30 2c 33 36  30 2b 35 38 30 2c 31 30  |,-400,360+580,10|
00002aa0  30 0d 14 82 04 0d 14 8c  05 cd 0d 14 96 15 c8 99  |0...............|
00002ab0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00002ac0  14 a0 04 0d 14 aa 05 e1  0d 14 b4 04 0d 14 be 0d  |................|
00002ad0  dd 20 f2 5f 47 45 54 69  6d 0d 14 c8 1f ea 20 53  |. ._GETim..... S|
00002ae0  24 2c 6d 68 25 2c 61 25  2c 68 73 2c 6f 6b 25 2c  |$,mh%,a%,hs,ok%,|
00002af0  78 25 2c 79 25 2c 70 25  0d 14 d2 1e 53 24 3d 22  |x%,y%,p%....S$="|
00002b00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002b10  20 20 20 20 20 22 0d 14  dc 15 e3 20 61 25 3d 30  |     "..... a%=0|
00002b20  20 b8 20 31 30 32 30 20  88 20 34 0d 14 e6 0e 48  | . 1020 . 4....H|
00002b30  69 73 74 25 21 61 25 3d  30 0d 14 f0 05 ed 0d 14  |ist%!a%=0.......|
00002b40  fa 09 6f 6b 25 3d b9 0d  15 04 04 0d 15 0e 10 e7  |..ok%=..........|
00002b50  20 52 6d 65 74 68 25 3d  32 20 8c 0d 15 18 19 f4  | Rmeth%=2 ......|
00002b60  20 52 65 61 64 20 69 6e  20 53 70 72 69 74 65 20  | Read in Sprite |
00002b70  66 69 6c 65 0d 15 22 24  c8 99 22 4f 53 5f 53 70  |file.."$.."OS_Sp|
00002b80  72 69 74 65 4f 70 22 2c  31 30 2b 32 35 36 2c 53  |riteOp",10+256,S|
00002b90  50 25 2c 54 61 72 53 24  0d 15 2c 13 63 62 25 3d  |P%,TarS$..,.cb%=|
00002ba0  53 50 25 2b 28 53 50 25  21 38 29 0d 15 36 2e c8  |SP%+(SP%!8)..6..|
00002bb0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00002bc0  36 2b 35 31 32 2c 53 50  25 2c 63 62 25 2c 22 53  |6+512,SP%,cb%,"S|
00002bd0  61 74 5f 49 6d 61 67 65  22 0d 15 40 19 53 50 58  |at_Image"..@.SPX|
00002be0  25 3d 53 50 25 21 28 31  36 2b 28 53 50 25 21 38  |%=SP%!(16+(SP%!8|
00002bf0  29 29 0d 15 4a 13 53 50  58 25 3d 28 53 50 58 25  |))..J.SPX%=(SPX%|
00002c00  2b 31 29 2a 34 0d 15 54  19 53 50 59 25 3d 53 50  |+1)*4..T.SPY%=SP|
00002c10  25 21 28 32 30 2b 28 53  50 25 21 38 29 29 0d 15  |%!(20+(SP%!8))..|
00002c20  5e 0f 53 50 59 25 3d 53  50 59 25 2b 31 0d 15 68  |^.SPY%=SPY%+1..h|
00002c30  0f 57 69 74 68 50 61 6c  6c 25 3d b9 0d 15 72 17  |.WithPall%=...r.|
00002c40  70 61 6c 25 3d 28 53 50  25 2b 53 50 25 21 38 29  |pal%=(SP%+SP%!8)|
00002c50  2b 34 34 0d 15 7c 18 f4  20 57 6f 72 6b 20 6f 75  |+44..|.. Work ou|
00002c60  74 20 68 69 73 74 6f 67  72 61 6d 0d 15 86 17 79  |t histogram....y|
00002c70  25 3d 53 50 25 21 28 33  32 2b 28 53 50 25 21 38  |%=SP%!(32+(SP%!8|
00002c80  29 29 0d 15 87 0b 79 25  2b 3d 53 50 25 0d 15 90  |))....y%+=SP%...|
00002c90  10 70 25 3d 53 50 58 25  2a 53 50 59 25 0d 15 9a  |.p%=SPX%*SPY%...|
00002ca0  13 e3 20 61 25 3d 79 25  20 b8 20 79 25 2b 70 25  |.. a%=y% . y%+p%|
00002cb0  0d 15 a4 0a 78 25 3d 3f  61 25 0d 15 ae 0c 78 25  |....x%=?a%....x%|
00002cc0  3d 78 25 3c 3c 32 0d 15  b8 0f 48 69 73 74 25 21  |=x%<<2....Hist%!|
00002cd0  78 25 2b 3d 31 0d 15 c2  05 ed 0d 15 cc 05 cc 0d  |x%+=1...........|
00002ce0  15 d6 19 f4 20 52 65 61  64 20 66 72 6f 6d 20 69  |.... Read from i|
00002cf0  6e 74 65 72 66 61 63 65  0d 15 e0 0f 21 48 61 64  |nterface....!Had|
00002d00  64 3d 48 69 73 74 25 0d  15 ea 0b 42 25 3d 53 63  |d=Hist%....B%=Sc|
00002d10  50 25 0d 15 f4 0a 43 25  3d 44 50 25 0d 15 fe 0b  |P%....C%=DP%....|
00002d20  44 25 3d 53 50 58 25 0d  16 08 0b 45 25 3d 53 50  |D%=SPX%....E%=SP|
00002d30  59 25 0d 16 12 08 48 25  3d 30 0d 16 1c 26 f4 20  |Y%....H%=0...&. |
00002d40  43 6f 6d 70 65 6e 73 61  74 65 20 66 6f 72 20 6c  |Compensate for l|
00002d50  65 66 74 20 68 61 6e 64  20 77 61 73 74 61 67 65  |eft hand wastage|
00002d60  0d 16 26 15 c8 95 28 20  28 44 25 20 80 20 33 29  |..&...( (D% . 3)|
00002d70  20 3c 3e 30 29 0d 16 30  11 44 25 2b 3d 31 20 3a  | <>0)..0.D%+=1 :|
00002d80  20 48 25 2b 3d 31 0d 16  3a 05 ce 0d 16 44 04 0d  | H%+=1..:....D..|
00002d90  16 4e 29 f4 20 53 65 74  20 75 70 20 74 68 65 20  |.N). Set up the |
00002da0  70 72 65 76 69 65 77 20  73 63 72 6f 6c 6c 20 72  |preview scroll r|
00002db0  65 63 74 61 6e 67 6c 65  0d 16 58 22 c8 99 22 57  |ectangle..X".."W|
00002dc0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002dd0  74 65 22 2c 2c 63 6f 6e  74 25 0d 16 62 11 21 73  |te",,cont%..b.!s|
00002de0  63 77 68 3d 63 6f 6e 74  25 21 30 0d 16 6c 23 78  |cwh=cont%!0..l#x|
00002df0  25 3d 63 6f 6e 74 25 21  34 2b 33 36 32 20 3a 20  |%=cont%!4+362 : |
00002e00  79 25 3d 63 6f 6e 74 25  21 38 2b 31 30 32 0d 16  |y%=cont%!8+102..|
00002e10  76 35 21 73 63 73 78 31  3d 78 25 3a 21 73 63 73  |v5!scsx1=x%:!scs|
00002e20  79 31 3d 79 25 3a 21 73  63 73 78 32 3d 78 25 2b  |y1=y%:!scsx2=x%+|
00002e30  35 31 34 3a 21 73 63 73  79 32 3d 79 25 2b 33 30  |514:!scsy2=y%+30|
00002e40  30 2d 38 0d 16 80 17 21  73 63 64 78 3d 78 25 3a  |0-8....!scdx=x%:|
00002e50  21 73 63 64 79 3d 79 25  2b 32 0d 16 8a 1a c8 99  |!scdy=y%+2......|
00002e60  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00002e70  2c 31 32 38 0d 16 94 13  46 25 3d 8e 22 70 61 72  |,128....F%=."par|
00002e80  61 6c 6c 65 6c 3a 22 0d  16 9e 24 e7 20 50 72 65  |allel:"...$. Pre|
00002e90  76 69 65 77 25 20 8c 20  d6 20 54 52 41 4e 53 31  |view% . . TRANS1|
00002ea0  20 8b 20 d6 20 54 52 41  4e 53 32 0d 16 a8 08 d9  | . . TRANS2.....|
00002eb0  23 46 25 0d 16 b2 16 e7  20 4e 62 6f 75 6e 64 25  |#F%..... Nbound%|
00002ec0  20 8c 20 f2 5f 46 6c 69  70 0d 16 bc 05 cd 0d 16  | . ._Flip.......|
00002ed0  c6 04 0d 16 d0 18 f4 20  57 6f 72 6b 20 6f 75 74  |....... Work out|
00002ee0  20 68 69 73 74 6f 67 72  61 6d 0d 16 da 09 6d 68  | histogram....mh|
00002ef0  25 3d 30 0d 16 e4 15 e3  20 61 25 3d 34 20 b8 20  |%=0..... a%=4 . |
00002f00  31 30 31 39 20 88 20 34  0d 16 ee 21 e7 20 48 69  |1019 . 4...!. Hi|
00002f10  73 74 25 21 61 25 3e 6d  68 25 20 8c 20 6d 68 25  |st%!a%>mh% . mh%|
00002f20  3d 48 69 73 74 25 21 61  25 0d 16 f8 05 ed 0d 17  |=Hist%!a%.......|
00002f30  02 1f f4 20 42 6c 61 6e  6b 20 6f 75 74 20 62 6c  |... Blank out bl|
00002f40  61 63 6b 20 61 6e 64 20  77 68 69 74 65 0d 17 0c  |ack and white...|
00002f50  0d 48 69 73 74 25 21 30  3d 30 0d 17 16 10 48 69  |.Hist%!0=0....Hi|
00002f60  73 74 25 21 31 30 32 30  3d 30 0d 17 20 0e 68 73  |st%!1020=0.. .hs|
00002f70  3d 6d 68 25 2f 32 39 32  0d 17 2a 0d e7 20 68 73  |=mh%/292..*.. hs|
00002f80  3c 3e 30 20 8c 0d 17 34  15 e3 20 61 25 3d 34 20  |<>0 ...4.. a%=4 |
00002f90  b8 20 31 30 31 39 20 88  20 34 0d 17 3e 1a 48 69  |. 1019 . 4..>.Hi|
00002fa0  73 74 25 21 61 25 3d 28  48 69 73 74 25 21 61 25  |st%!a%=(Hist%!a%|
00002fb0  29 2f 68 73 0d 17 48 05  ed 0d 17 52 0d f2 5f 53  |)/hs..H....R.._S|
00002fc0  65 74 43 6f 6c 73 0d 17  5c 05 cd 0d 17 66 05 e1  |etCols..\....f..|
00002fd0  0d 17 70 04 0d 17 7a 10  dd 20 f2 65 72 72 6f 72  |..p...z.. .error|
00002fe0  62 6f 78 32 0d 17 84 22  c8 99 22 4f 53 5f 53 70  |box2...".."OS_Sp|
00002ff0  72 69 74 65 4f 70 22 2c  36 30 2b 32 35 36 2c 53  |riteOp",60+256,S|
00003000  50 25 2c 30 2c 30 0d 17  8e 22 e7 20 9f 3d 26 31  |P%,0,0...". .=&1|
00003010  30 38 44 35 20 84 20 9f  3d 26 31 30 38 44 34 20  |08D5 . .=&108D4 |
00003020  8c 20 e5 20 8d 54 42 43  0d 17 98 16 45 24 3d f6  |. . .TBC....E$=.|
00003030  24 2b 22 20 61 74 20 22  2b c3 9e 2b bd 30 0d 17  |$+" at "+..+.0..|
00003040  a2 10 f2 5f 73 65 74 75  70 57 28 45 24 29 0d 17  |..._setupW(E$)..|
00003050  ac 08 d9 23 46 25 0d 17  b6 0a e5 20 8d 54 42 43  |...#F%..... .TBC|
00003060  0d 17 c0 05 e1 0d 17 ca  04 0d 17 d4 0f dd 20 f2  |.............. .|
00003070  65 72 72 6f 72 62 6f 78  0d 17 de 09 ee 20 85 20  |errorbox..... . |
00003080  87 0d 17 e8 19 c8 99 20  22 57 69 6d 70 5f 44 72  |....... "Wimp_Dr|
00003090  61 67 42 6f 78 22 2c 2c  2d 31 0d 17 f2 2f 21 62  |agBox",,-1.../!b|
000030a0  75 66 66 65 72 73 25 3d  9f 3a 24 28 62 75 66 66  |uffers%=.:$(buff|
000030b0  65 72 73 25 2b 34 29 3d  f6 24 2b 22 20 6c 69 6e  |ers%+4)=.$+" lin|
000030c0  65 20 22 2b c3 9e 2b bd  30 0d 17 fc 2f c8 99 20  |e "+..+.0.../.. |
000030d0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
000030e0  72 22 2c 62 75 66 66 65  72 73 25 2c 31 2c 22 53  |r",buffers%,1,"S|
000030f0  61 74 20 52 65 61 64 22  0d 18 06 04 0d 18 10 08  |at Read"........|
00003100  f2 64 69 65 0d 18 1a 05  e1 0d 18 24 04 0d 18 2e  |.die.......$....|
00003110  10 dd 20 f2 5f 4b 65 79  50 72 65 73 73 0d 18 38  |.. ._KeyPress..8|
00003120  08 69 25 3d 32 0d 18 42  0c f2 5f 44 6f 53 61 76  |.i%=2..B.._DoSav|
00003130  65 0d 18 4c 05 e1 0d 18  56 04 0d 18 60 0e dd 20  |e..L....V...`.. |
00003140  f2 5f 44 6f 53 61 76 65  0d 18 6a 0c e7 20 69 25  |._DoSave..j.. i%|
00003150  3d 33 20 8c 0d 18 74 2c  20 20 20 20 20 20 20 20  |=3 ...t,        |
00003160  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |    .. "Wimp_Get|
00003170  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
00003180  0d 18 7e 2e 20 20 20 20  20 20 20 20 20 20 20 20  |..~.            |
00003190  f2 64 72 61 67 69 63 6f  6e 28 71 25 21 30 2c 71  |.dragicon(q%!0,q|
000031a0  25 21 34 2c 53 56 57 49  4e 25 2c 69 25 29 0d 18  |%!4,SVWIN%,i%)..|
000031b0  88 06 20 cd 0d 18 92 04  0d 18 9c 0c e7 20 69 25  |.. .......... i%|
000031c0  3d 32 20 8c 0d 18 a6 0e  20 f2 5f 47 65 74 4e 61  |=2 ..... ._GetNa|
000031d0  6d 65 0d 18 b0 46 20 e7  20 a7 66 6e 24 2c 22 3a  |me...F . .fn$,":|
000031e0  22 29 20 8c 20 f2 5f 53  61 76 65 20 8b 20 f2 5f  |") . ._Save . ._|
000031f0  73 65 74 75 70 57 28 22  44 72 61 67 20 74 68 65  |setupW("Drag the|
00003200  20 49 63 6f 6e 20 69 6e  74 6f 20 61 20 44 69 72  | Icon into a Dir|
00003210  65 63 74 6f 72 79 22 29  0d 18 ba 1d 20 c8 99 20  |ectory").... .. |
00003220  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00003230  22 2c 2c 2d 31 0d 18 c4  05 cd 0d 18 ce 05 e1 0d  |",,-1...........|
00003240  18 d8 04 0d 18 e2 0c dd  20 f2 5f 53 61 76 65 0d  |........ ._Save.|
00003250  18 ec 15 ea 20 63 68 25  2c 73 78 25 2c 73 79 25  |.... ch%,sx%,sy%|
00003260  2c 73 6d 25 0d 18 f6 3d  e7 20 a9 28 66 6e 24 29  |,sm%...=. .(fn$)|
00003270  3d 30 20 8c 20 f2 5f 73  65 74 75 70 57 28 22 59  |=0 . ._setupW("Y|
00003280  6f 75 20 6e 65 65 64 20  74 6f 20 70 75 74 20 69  |ou need to put i|
00003290  6e 20 61 20 66 69 6c 65  20 6e 61 6d 65 22 29 3a  |n a file name"):|
000032a0  e1 0d 19 00 40 e7 20 c2  66 6e 24 2c 31 29 3d 22  |....@. .fn$,1)="|
000032b0  2e 22 20 8c 20 f2 5f 73  65 74 75 70 57 28 22 59  |." . ._setupW("Y|
000032c0  6f 75 20 6e 65 65 64 20  74 6f 20 70 75 74 20 69  |ou need to put i|
000032d0  6e 20 61 20 66 69 6c 65  20 6e 61 6d 65 22 29 3a  |n a file name"):|
000032e0  e1 0d 19 0a 0d f4 20 53  61 76 65 20 69 74 0d 19  |...... Save it..|
000032f0  14 23 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.#.. "OS_SpriteO|
00003300  70 22 2c 31 32 2b 32 35  36 2c 53 50 25 2c 66 6e  |p",12+256,SP%,fn|
00003310  24 0d 19 1e 12 f2 5f 50  75 74 4e 61 6d 65 28 66  |$....._PutName(f|
00003320  6e 24 29 0d 19 28 05 e1  0d 19 32 04 0d 19 3c 2e  |n$)..(....2...<.|
00003330  dd 20 f2 64 72 61 67 69  63 6f 6e 28 6d 6f 75 73  |. .dragicon(mous|
00003340  65 78 25 2c 6d 6f 75 73  65 79 25 2c 68 61 6e 64  |ex%,mousey%,hand|
00003350  6c 65 25 2c 69 63 6f 6e  25 29 0d 19 46 21 ea 20  |le%,icon%)..F!. |
00003360  62 78 25 2c 62 79 25 2c  69 78 30 25 2c 69 79 30  |bx%,by%,ix0%,iy0|
00003370  25 2c 69 78 31 25 2c 69  79 31 25 0d 19 50 12 f2  |%,ix1%,iy1%..P..|
00003380  67 65 74 77 28 68 61 6e  64 6c 65 25 29 0d 19 5a  |getw(handle%)..Z|
00003390  18 f2 67 65 74 69 28 68  61 6e 64 6c 65 25 2c 69  |..geti(handle%,i|
000033a0  63 6f 6e 25 29 0d 19 64  16 21 71 25 3d 68 61 6e  |con%)..d.!q%=han|
000033b0  64 6c 65 25 3a 71 25 21  34 3d 35 0d 19 6e 3e 71  |dle%:q%!4=5..n>q|
000033c0  25 21 38 3d 62 78 25 2b  69 78 30 25 3a 71 25 21  |%!8=bx%+ix0%:q%!|
000033d0  31 32 3d 62 79 25 2b 69  79 30 25 3a 71 25 21 31  |12=by%+iy0%:q%!1|
000033e0  36 3d 62 78 25 2b 69 78  31 25 3a 71 25 21 32 30  |6=bx%+ix1%:q%!20|
000033f0  3d 62 79 25 2b 69 79 31  25 0d 19 78 2a 71 25 21  |=by%+iy1%..x*q%!|
00003400  32 34 3d 71 25 21 38 2d  6d 6f 75 73 65 78 25 3a  |24=q%!8-mousex%:|
00003410  71 25 21 32 38 3d 71 25  21 31 32 2d 6d 6f 75 73  |q%!28=q%!12-mous|
00003420  65 79 25 0d 19 82 19 c8  99 20 22 57 69 6d 70 5f  |ey%...... "Wimp_|
00003430  44 72 61 67 42 6f 78 22  2c 2c 71 25 0d 19 8c 0c  |DragBox",,q%....|
00003440  53 46 4c 41 47 25 3d b9  0d 19 96 05 e1 0d 19 a0  |SFLAG%=.........|
00003450  04 0d 19 aa 14 dd 20 f2  67 65 74 77 28 68 61 6e  |...... .getw(han|
00003460  64 6c 65 25 29 0d 19 b4  38 21 71 25 3d 68 61 6e  |dle%)...8!q%=han|
00003470  64 6c 65 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |dle%:.. "Wimp_Ge|
00003480  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 71  |tWindowState",,q|
00003490  25 3a f2 69 6e 66 6f 28  71 25 2b 34 29 0d 19 be  |%:.info(q%+4)...|
000034a0  05 e1 0d 19 c8 12 dd 20  f2 67 65 74 69 28 68 25  |....... .geti(h%|
000034b0  2c 69 25 29 0d 19 d2 2d  21 71 25 3d 68 25 3a 71  |,i%)...-!q%=h%:q|
000034c0  25 21 34 3d 69 25 3a c8  99 20 22 57 69 6d 70 5f  |%!4=i%:.. "Wimp_|
000034d0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
000034e0  25 0d 19 dc 2e 69 78 30  25 3d 71 25 21 38 3a 69  |%....ix0%=q%!8:i|
000034f0  79 30 25 3d 71 25 21 31  32 3a 69 78 31 25 3d 71  |y0%=q%!12:ix1%=q|
00003500  25 21 31 36 3a 69 79 31  25 3d 71 25 21 32 30 0d  |%!16:iy1%=q%!20.|
00003510  19 e6 1e 69 66 6c 61 67  73 25 3d 71 25 21 32 34  |...iflags%=q%!24|
00003520  3a 69 64 61 74 61 25 3d  71 25 2b 32 38 0d 19 f0  |:idata%=q%+28...|
00003530  05 e1 0d 19 fa 04 0d 1a  04 0f dd 20 f2 69 6e 66  |........... .inf|
00003540  6f 28 70 25 29 0d 1a 0e  0d ea 20 78 30 25 2c 79  |o(p%)..... x0%,y|
00003550  30 25 0d 1a 18 27 78 30  25 3d 21 70 25 3a 79 30  |0%...'x0%=!p%:y0|
00003560  25 3d 70 25 21 34 3a 78  31 25 3d 70 25 21 38 3a  |%=p%!4:x1%=p%!8:|
00003570  79 31 25 3d 70 25 21 31  32 0d 1a 22 35 73 63 78  |y1%=p%!12.."5scx|
00003580  25 3d 70 25 21 31 36 3a  73 63 79 25 3d 70 25 21  |%=p%!16:scy%=p%!|
00003590  32 30 3a 62 68 61 6e 64  6c 65 25 3d 70 25 21 32  |20:bhandle%=p%!2|
000035a0  34 3a 66 6c 61 67 73 25  3d 70 25 21 32 38 0d 1a  |4:flags%=p%!28..|
000035b0  2c 1d 62 78 25 3d 78 30  25 2d 73 63 78 25 3a 62  |,.bx%=x0%-scx%:b|
000035c0  79 25 3d 79 31 25 2d 73  63 79 25 0d 1a 36 05 e1  |y%=y1%-scy%..6..|
000035d0  0d 1a 40 04 0d 1a 4a 04  0d 1a 54 0f dd 20 f2 5f  |..@...J...T.. ._|
000035e0  47 65 74 4e 61 6d 65 0d  1a 5e 0e ea 20 54 25 2c  |GetName..^.. T%,|
000035f0  41 25 2c 46 24 0d 1a 68  10 46 24 3d 22 22 3a 66  |A%,F$..h.F$="":f|
00003600  6e 24 3d 22 22 0d 1a 72  16 71 25 21 30 3d 53 56  |n$=""..r.q%!0=SV|
00003610  57 49 4e 25 3a 71 25 21  34 3d 31 0d 1a 7c 1e c8  |WIN%:q%!4=1..|..|
00003620  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00003630  74 61 74 65 22 2c 2c 71  25 0d 1a 86 0c 54 25 3d  |tate",,q%....T%=|
00003640  71 25 21 32 38 0d 1a 90  09 54 25 2d 3d 31 0d 1a  |q%!28....T%-=1..|
00003650  9a 05 f5 0d 1a a4 09 54  25 2b 3d 31 0d 1a ae 10  |.......T%+=1....|
00003660  46 24 3d 46 24 2b bd 28  3f 54 25 29 0d 1a b8 0b  |F$=F$+.(?T%)....|
00003670  fd 20 3f 54 25 3d 30 0d  1a c2 16 66 6e 24 3d c1  |. ?T%=0....fn$=.|
00003680  46 24 2c 31 2c a9 28 46  24 29 2d 31 29 0d 1a cc  |F$,1,.(F$)-1)...|
00003690  05 e1 0d 1a d6 04 0d 1a  e0 13 dd 20 f2 5f 50 75  |........... ._Pu|
000036a0  74 44 6f 77 6e 28 71 25  29 0d 1a ea 0d f2 5f 47  |tDown(q%)....._G|
000036b0  65 74 4e 61 6d 65 0d 1a  f4 20 c8 99 20 22 57 69  |etName... .. "Wi|
000036c0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
000036d0  6f 22 2c 2c 71 25 0d 1a  fe 35 6d 65 73 73 68 25  |o",,q%...5messh%|
000036e0  3d 71 25 21 31 32 3a 6d  65 73 73 69 25 3d 71 25  |=q%!12:messi%=q%|
000036f0  21 31 36 3a 6d 65 73 73  78 25 3d 71 25 21 30 3a  |!16:messx%=q%!0:|
00003700  6d 65 73 73 79 25 3d 71  25 21 34 0d 1b 08 23 e7  |messy%=q%!4...#.|
00003710  20 a7 20 66 6e 24 2c 22  3a 22 29 20 8c 20 66 6e  | . fn$,":") . fn|
00003720  24 3d a4 5f 73 70 61 74  68 28 66 6e 24 29 0d 1b  |$=._spath(fn$)..|
00003730  12 10 24 28 71 25 2b 34  34 29 3d 66 6e 24 0d 1b  |..$(q%+44)=fn$..|
00003740  1c 15 3f 28 71 25 2b 34  34 2b a9 28 66 6e 24 29  |..?(q%+44+.(fn$)|
00003750  29 3d 30 0d 1b 26 3b 71  25 21 32 30 3d 71 25 21  |)=0..&;q%!20=q%!|
00003760  31 32 3a 71 25 21 32 38  3d 71 25 21 30 3a 71 25  |12:q%!28=q%!0:q%|
00003770  21 33 32 3d 71 25 21 34  3a 71 25 21 33 36 3d 61  |!32=q%!4:q%!36=a|
00003780  73 7a 25 3a 71 25 21 34  30 3d 26 46 46 39 0d 1b  |sz%:q%!40=&FF9..|
00003790  30 1b 71 25 21 30 3d 35  36 3a 71 25 21 31 32 3d  |0.q%!0=56:q%!12=|
000037a0  30 3a 71 25 21 31 36 3d  31 0d 1b 3a 2d c8 99 20  |0:q%!16=1..:-.. |
000037b0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000037c0  65 22 2c 31 37 2c 71 25  2c 6d 65 73 73 68 25 2c  |e",17,q%,messh%,|
000037d0  6d 65 73 73 69 25 0d 1b  44 11 73 61 76 65 72 65  |messi%..D.savere|
000037e0  66 25 3d 71 25 21 38 0d  1b 4e 1c c8 99 20 22 57  |f%=q%!8..N... "W|
000037f0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00003800  2c 2d 31 0d 1b 58 05 e1  0d 1b 62 04 0d 1b 6c 11  |,-1..X....b...l.|
00003810  dd 20 a4 5f 73 70 61 74  68 28 6e 24 29 0d 1b 76  |. ._spath(n$)..v|
00003820  0f c8 95 20 a7 6e 24 2c  22 2e 22 29 0d 1b 80 13  |... .n$,".")....|
00003830  6e 24 3d c2 6e 24 2c a9  28 6e 24 29 2d 31 29 0d  |n$=.n$,.(n$)-1).|
00003840  1b 8a 05 ce 0d 1b 94 1b  e7 20 a9 28 6e 24 29 3e  |......... .(n$)>|
00003850  31 30 20 8c 20 6e 24 3d  c2 6e 24 2c 31 30 29 0d  |10 . n$=.n$,10).|
00003860  1b 9e 07 3d 6e 24 0d 1b  a8 04 0d 1b b2 13 dd 20  |...=n$......... |
00003870  f2 5f 50 75 74 4e 61 6d  65 28 70 24 29 0d 1b bc  |._PutName(p$)...|
00003880  08 ea 20 54 25 0d 1b c6  16 71 25 21 30 3d 53 56  |.. T%....q%!0=SV|
00003890  57 49 4e 25 3a 71 25 21  34 3d 31 0d 1b d0 1e c8  |WIN%:q%!4=1.....|
000038a0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000038b0  74 61 74 65 22 2c 2c 71  25 0d 1b da 0c 54 25 3d  |tate",,q%....T%=|
000038c0  71 25 21 32 38 0d 1b e4  0a 24 54 25 3d 70 24 0d  |q%!28....$T%=p$.|
000038d0  1b ee 11 21 28 54 25 2b  a9 28 70 24 29 29 3d 30  |...!(T%+.(p$))=0|
000038e0  0d 1b f8 05 e1 0d 1c 02  04 0d 1c 0c 12 dd 20 f2  |.............. .|
000038f0  5f 73 65 74 75 70 57 28  74 24 29 0d 1c 16 58 21  |_setupW(t$)...X!|
00003900  71 25 3d 77 61 72 6e 69  6e 67 57 25 3a 71 25 21  |q%=warningW%:q%!|
00003910  34 3d 32 30 30 3a 71 25  21 38 3d 32 30 30 3a 71  |4=200:q%!8=200:q|
00003920  25 21 31 32 3d 32 30 30  2b 58 51 25 3a 71 25 21  |%!12=200+XQ%:q%!|
00003930  31 36 3d 32 30 30 2b 59  51 25 3a 71 25 21 32 30  |16=200+YQ%:q%!20|
00003940  3d 30 3a 71 25 21 32 34  3d 30 3a 71 25 21 32 38  |=0:q%!24=0:q%!28|
00003950  3d 2d 31 0d 1c 20 11 24  54 65 78 74 57 61 72 6e  |=-1.. .$TextWarn|
00003960  25 3d 74 24 0d 1c 2a 15  54 65 78 74 57 61 72 6e  |%=t$..*.TextWarn|
00003970  25 3f a9 28 74 24 29 3d  30 0d 1c 34 07 ef 20 37  |%?.(t$)=0..4.. 7|
00003980  0d 1c 3e 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..>... "Wimp_Ope|
00003990  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 1c 48 19  |nWindow",,q%..H.|
000039a0  c8 97 20 c8 93 20 32 30  30 2c 32 30 30 2c 58 51  |.. .. 200,200,XQ|
000039b0  25 2c 59 51 25 0d 1c 52  05 e1 0d 1c 5c 04 0d 1c  |%,YQ%..R....\...|
000039c0  66 0d dd 20 f2 5f 43 69  6e 69 74 0d 1c 70 08 ef  |f.. ._Cinit..p..|
000039d0  20 32 31 0d 1c 7a 12 e3  20 5a 25 3d 30 20 b8 20  | 21..z.. Z%=0 . |
000039e0  32 20 88 20 32 0d 1c 84  0c 50 25 3d 63 6f 64 65  |2 . 2....P%=code|
000039f0  25 0d 1c 8e 05 5b 0d 1c  98 0a 4f 50 54 20 5a 25  |%....[....OPT Z%|
00003a00  0d 1c a2 24 2e 48 61 64  64 20 45 51 55 57 20 30  |...$.Hadd EQUW 0|
00003a10  20 5c 20 48 69 73 74 6f  67 72 61 6d 20 61 64 64  | \ Histogram add|
00003a20  72 65 73 73 0d 1c ac 09  41 4c 49 47 4e 0d 1c b6  |ress....ALIGN...|
00003a30  2a 2e 54 52 41 4e 53 31  20 5c 20 54 72 61 6e 73  |*.TRANS1 \ Trans|
00003a40  66 65 72 20 66 72 6f 6d  20 66 69 6c 65 20 74 6f  |fer from file to|
00003a50  20 73 70 72 69 74 65 0d  1c c0 24 5c 20 52 32 20  | sprite...$\ R2 |
00003a60  28 43 25 29 20 42 61 73  65 20 61 64 64 72 65 73  |(C%) Base addres|
00003a70  73 20 6f 66 20 73 70 72  69 74 65 0d 1c ca 20 5c  |s of sprite... \|
00003a80  20 52 33 20 28 44 25 29  20 4e 75 6d 62 65 72 20  | R3 (D%) Number |
00003a90  6f 66 20 58 20 70 69 78  65 6c 73 0d 1c d4 20 5c  |of X pixels... \|
00003aa0  20 52 34 20 28 45 25 29  20 4e 75 6d 62 65 72 20  | R4 (E%) Number |
00003ab0  6f 66 20 59 20 70 69 78  65 6c 73 0d 1c de 19 5c  |of Y pixels....\|
00003ac0  20 52 35 20 28 46 25 29  20 46 69 6c 65 20 48 61  | R5 (F%) File Ha|
00003ad0  6e 64 6c 65 0d 1c e8 1e  5c 20 52 37 20 28 48 25  |ndle....\ R7 (H%|
00003ae0  29 20 42 79 74 65 73 20  6f 66 20 77 61 73 74 61  |) Bytes of wasta|
00003af0  67 65 0d 1c f2 04 0d 1c  fc 14 53 54 4d 46 44 20  |ge........STMFD |
00003b00  52 31 33 21 2c 7b 52 31  34 7d 0d 1d 06 25 4c 44  |R13!,{R14}...%LD|
00003b10  52 20 52 31 30 2c 20 48  61 64 64 20 5c 20 48 69  |R R10, Hadd \ Hi|
00003b20  73 74 6f 67 72 61 6d 20  70 6f 69 6e 74 65 72 0d  |stogram pointer.|
00003b30  1d 10 0d 4d 4f 56 20 52  38 2c 52 37 0d 1d 1a 10  |...MOV R8,R7....|
00003b40  53 55 42 20 52 38 2c 52  33 2c 52 38 0d 1d 24 0d  |SUB R8,R3,R8..$.|
00003b50  4d 4f 56 20 52 31 2c 52  35 0d 1d 2e 04 0d 1d 38  |MOV R1,R5......8|
00003b60  07 2e 53 72 0d 1d 42 20  4d 4f 56 20 52 35 2c 23  |..Sr..B MOV R5,#|
00003b70  30 20 5c 20 4e 55 4d 42  45 52 20 ca 20 86 53 20  |0 \ NUMBER . .S |
00003b80  b8 20 47 4f 0d 1d 4c 1c  2e 52 41 4c 20 5c 20 52  |. GO..L..RAL \ R|
00003b90  65 61 64 20 61 6e 6f 74  68 65 72 20 6c 69 6e 65  |ead another line|
00003ba0  0d 1d 56 2c 4d 55 4c 20  52 36 2c 52 33 2c 52 35  |..V,MUL R6,R3,R5|
00003bb0  20 5c 20 43 6f 6e 74 72  69 62 75 69 74 69 6f 6e  | \ Contribuition|
00003bc0  20 6f 66 20 74 68 65 20  6c 69 6e 65 0d 1d 60 2c  | of the line..`,|
00003bd0  41 44 44 20 52 36 2c 52  36 2c 52 32 20 5c 20 47  |ADD R6,R6,R2 \ G|
00003be0  65 74 20 62 61 73 65 20  61 64 64 72 65 73 73 20  |et base address |
00003bf0  74 6f 20 73 74 61 72 74  0d 1d 6a 04 0d 1d 74 1f  |to start..j...t.|
00003c00  4d 4f 56 20 52 37 2c 23  30 20 5c 20 50 49 58 45  |MOV R7,#0 \ PIXE|
00003c10  4c 53 20 ee 20 54 48 49  53 20 86 0d 1d 7e 1c 2e  |LS . THIS ...~..|
00003c20  52 41 42 20 5c 20 52 65  61 64 20 41 6e 6f 74 68  |RAB \ Read Anoth|
00003c30  65 72 20 42 79 74 65 0d  1d 88 21 53 57 49 20 26  |er Byte...!SWI &|
00003c40  30 41 20 5c 20 52 65 61  64 20 61 20 62 79 74 65  |0A \ Read a byte|
00003c50  20 69 6e 74 6f 20 52 30  0d 1d 92 0c 42 43 53 20  | into R0....BCS |
00003c60  45 58 49 54 0d 1d 9c 13  53 54 52 42 20 52 30 2c  |EXIT....STRB R0,|
00003c70  5b 52 36 2c 52 37 5d 0d  1d a6 04 0d 1d b0 36 4c  |[R6,R7].......6L|
00003c80  44 52 20 52 31 31 2c 5b  52 31 30 2c 52 30 2c 20  |DR R11,[R10,R0, |
00003c90  41 53 4c 20 23 32 5d 20  5c 20 49 6e 63 72 65 6d  |ASL #2] \ Increm|
00003ca0  65 6e 74 20 74 68 65 20  68 69 73 74 6f 67 72 61  |ent the histogra|
00003cb0  6d 0d 1d ba 12 41 44 44  20 52 31 31 2c 52 31 31  |m....ADD R11,R11|
00003cc0  2c 23 31 0d 1d c4 1c 53  54 52 20 52 31 31 2c 5b  |,#1....STR R11,[|
00003cd0  52 31 30 2c 52 30 2c 20  41 53 4c 20 23 32 5d 0d  |R10,R0, ASL #2].|
00003ce0  1d ce 04 0d 1d d8 1f 41  44 44 20 52 37 2c 52 37  |.......ADD R7,R7|
00003cf0  2c 23 31 20 5c 20 4e 65  78 74 20 58 20 70 69 78  |,#1 \ Next X pix|
00003d00  65 6c 0d 1d e2 0d 43 4d  50 20 52 37 2c 52 38 0d  |el....CMP R7,R8.|
00003d10  1d ec 0b 42 4e 45 20 52  41 42 0d 1d f6 04 0d 1e  |...BNE RAB......|
00003d20  00 0d 54 53 54 20 52 35  2c 23 33 0d 1e 0a 2a 42  |..TST R5,#3...*B|
00003d30  4e 45 20 53 6b 50 76 20  5c 20 4f 6e 6c 79 20 70  |NE SkPv \ Only p|
00003d40  72 65 76 69 65 77 20 65  76 65 72 79 20 34 74 68  |review every 4th|
00003d50  20 6c 69 6e 65 0d 1e 14  04 0d 1e 1e 13 5c 20 45  | line........\ E|
00003d60  6e 64 20 6f 66 20 61 20  6c 69 6e 65 0d 1e 28 16  |nd of a line..(.|
00003d70  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
00003d80  35 7d 0d 1e 32 2e 4d 4f  56 20 52 37 2c 23 30 20  |5}..2.MOV R7,#0 |
00003d90  5c 20 50 6c 61 63 65 20  74 6f 20 67 65 74 20 50  |\ Place to get P|
00003da0  69 78 65 6c 20 66 72 6f  6d 20 73 70 72 69 74 65  |ixel from sprite|
00003db0  0d 1e 3c 2e 4d 4f 56 20  52 33 2c 23 30 20 5c 20  |..<.MOV R3,#0 \ |
00003dc0  50 6c 61 63 65 20 74 6f  20 70 6c 6f 74 20 70 69  |Place to plot pi|
00003dd0  78 65 6c 20 69 6e 20 70  72 65 76 69 65 77 0d 1e  |xel in preview..|
00003de0  46 25 4c 44 52 20 52 34  2c 73 63 73 78 31 20 5c  |F%LDR R4,scsx1 \|
00003df0  20 58 20 6f 66 20 70 6c  61 63 65 20 74 6f 20 70  | X of place to p|
00003e00  6c 6f 74 0d 1e 50 25 4c  44 52 20 52 35 2c 73 63  |lot..P%LDR R5,sc|
00003e10  73 79 31 20 5c 20 59 20  6f 66 20 70 6c 61 63 65  |sy1 \ Y of place|
00003e20  20 74 6f 20 70 6c 6f 74  0d 1e 5a 0b 2e 50 50 6e  | to plot..Z..PPn|
00003e30  65 78 74 0d 1e 64 13 4c  44 52 42 20 52 31 2c 5b  |ext..d.LDRB R1,[|
00003e40  52 36 2c 52 37 5d 0d 1e  6e 16 4d 4f 56 20 52 30  |R6,R7]..n.MOV R0|
00003e50  2c 52 31 2c 20 41 53 4c  20 23 31 36 0d 1e 78 17  |,R1, ASL #16..x.|
00003e60  84 52 20 52 30 2c 52 30  2c 52 31 2c 20 41 53 4c  |.R R0,R0,R1, ASL|
00003e70  20 23 38 0d 1e 82 18 84  52 20 52 30 2c 52 30 2c  | #8.....R R0,R0,|
00003e80  52 31 2c 20 41 53 4c 20  23 32 34 0d 1e 8c 22 53  |R1, ASL #24..."S|
00003e90  57 49 20 26 34 30 37 34  34 20 5c 20 47 65 74 20  |WI &40744 \ Get |
00003ea0  43 6f 6c 6f 75 72 20 6e  75 6d 62 65 72 0d 1e 96  |Colour number...|
00003eb0  0d 4d 4f 56 20 52 31 2c  52 30 0d 1e a0 0d 4d 4f  |.MOV R1,R0....MO|
00003ec0  56 20 52 30 2c 23 30 0d  1e aa 1a 53 57 49 20 26  |V R0,#0....SWI &|
00003ed0  36 31 20 5c 20 4f 53 5f  53 65 74 43 6f 6c 6f 75  |61 \ OS_SetColou|
00003ee0  72 0d 1e b4 1b 4d 4f 56  20 52 30 2c 23 36 39 20  |r....MOV R0,#69 |
00003ef0  5c 20 50 6f 69 6e 74 20  70 6c 6f 74 0d 1e be 18  |\ Point plot....|
00003f00  4d 4f 56 20 52 32 2c 52  35 20 20 5c 20 59 20 76  |MOV R2,R5  \ Y v|
00003f10  61 6c 75 65 0d 1e c8 1a  41 44 44 20 52 31 2c 52  |alue....ADD R1,R|
00003f20  33 2c 52 34 20 5c 20 58  20 76 61 6c 75 65 0d 1e  |3,R4 \ X value..|
00003f30  d2 14 53 57 49 20 26 34  35 20 5c 20 ef 20 50 6c  |..SWI &45 \ . Pl|
00003f40  6f 74 0d 1e dc 10 41 44  44 20 52 33 2c 52 33 2c  |ot....ADD R3,R3,|
00003f50  23 32 0d 1e e6 10 41 44  44 20 52 37 2c 52 37 2c  |#2....ADD R7,R7,|
00003f60  23 35 0d 1e f0 0f 43 4d  50 20 52 33 2c 23 35 31  |#5....CMP R3,#51|
00003f70  32 0d 1e fa 04 0d 1f 04  0e 42 4e 45 20 50 50 6e  |2........BNE PPn|
00003f80  65 78 74 0d 1f 0e 04 0d  1f 18 10 4c 44 52 20 52  |ext........LDR R|
00003f90  31 2c 73 63 73 78 31 0d  1f 22 10 4c 44 52 20 52  |1,scsx1..".LDR R|
00003fa0  32 2c 73 63 73 79 31 0d  1f 2c 1b 5c 20 53 63 72  |2,scsy1..,.\ Scr|
00003fb0  6f 6c 6c 20 70 72 65 76  69 65 77 20 77 69 6e 64  |oll preview wind|
00003fc0  6f 77 0d 1f 36 0d 4d 4f  56 20 52 30 2c 23 34 0d  |ow..6.MOV R0,#4.|
00003fd0  1f 40 19 53 57 49 20 26  34 35 20 5c 20 ef 20 70  |.@.SWI &45 \ . p|
00003fe0  6c 6f 74 20 63 61 6c 6c  0d 1f 4a 27 4d 4f 56 20  |lot call..J'MOV |
00003ff0  52 30 2c 23 34 3a 4c 44  52 20 52 31 2c 73 63 73  |R0,#4:LDR R1,scs|
00004000  78 32 3a 4c 44 52 20 52  32 2c 73 63 73 79 32 0d  |x2:LDR R2,scsy2.|
00004010  1f 54 19 53 57 49 20 26  34 35 20 5c 20 ef 20 70  |.T.SWI &45 \ . p|
00004020  6c 6f 74 20 63 61 6c 6c  0d 1f 5e 27 4d 4f 56 20  |lot call..^'MOV |
00004030  52 30 2c 23 31 38 39 3a  4c 44 52 20 52 31 2c 73  |R0,#189:LDR R1,s|
00004040  63 64 78 3a 4c 44 52 20  52 32 2c 73 63 64 79 0d  |cdx:LDR R2,scdy.|
00004050  1f 68 19 53 57 49 20 26  34 35 20 5c 20 ef 20 70  |.h.SWI &45 \ . p|
00004060  6c 6f 74 20 63 61 6c 6c  0d 1f 72 04 0d 1f 7c 16  |lot call..r...|.|
00004070  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |LDMFD R13!,{R0-R|
00004080  35 7d 0d 1f 86 27 5c 20  4e 6f 77 20 67 65 74 20  |5}...'\ Now get |
00004090  6f 6e 20 77 69 74 68 20  67 65 74 74 69 6e 67 20  |on with getting |
000040a0  74 68 65 20 69 6d 61 67  65 0d 1f 90 09 2e 53 6b  |the image.....Sk|
000040b0  50 76 0d 1f 9a 1c 41 44  44 20 52 35 2c 52 35 2c  |Pv....ADD R5,R5,|
000040c0  23 31 20 5c 20 4e 65 78  74 20 6c 69 6e 65 0d 1f  |#1 \ Next line..|
000040d0  a4 1f 43 4d 50 20 52 35  2c 52 34 20 5c 20 41 72  |..CMP R5,R4 \ Ar|
000040e0  65 20 77 65 20 66 69 6e  69 73 68 65 64 0d 1f ae  |e we finished...|
000040f0  0b 42 4e 45 20 52 41 4c  0d 1f b8 09 2e 45 58 49  |.BNE RAL.....EXI|
00004100  54 0d 1f c2 2d 4c 44 4d  46 44 20 52 31 33 21 2c  |T...-LDMFD R13!,|
00004110  20 7b 50 43 7d 20 5c 20  42 41 43 4b 20 46 52 4f  | {PC} \ BACK FRO|
00004120  4d 20 c9 53 54 20 59 4f  55 20 43 41 4d 45 0d 1f  |M .ST YOU CAME..|
00004130  cc 04 0d 1f d6 28 5c 53  74 6f 72 61 67 65 20 73  |.....(\Storage s|
00004140  70 61 63 65 20 66 6f 72  20 73 63 72 6f 6c 6c 69  |pace for scrolli|
00004150  6e 67 20 70 72 65 76 69  65 77 0d 1f e0 21 2e 73  |ng preview...!.s|
00004160  63 77 68 20 20 45 51 55  44 20 30 20 5c 20 57 69  |cwh  EQUD 0 \ Wi|
00004170  6e 64 6f 77 20 68 61 6e  64 6c 65 0d 1f ea 20 2e  |ndow handle... .|
00004180  73 63 73 78 31 20 45 51  55 44 20 30 20 5c 20 53  |scsx1 EQUD 0 \ S|
00004190  6f 75 72 63 65 20 6d 69  6e 20 78 0d 1f f4 20 2e  |ource min x... .|
000041a0  73 63 73 79 31 20 45 51  55 44 20 30 20 5c 20 53  |scsy1 EQUD 0 \ S|
000041b0  6f 75 72 63 65 20 6d 69  6e 20 79 0d 1f fe 20 2e  |ource min y... .|
000041c0  73 63 73 78 32 20 45 51  55 44 20 30 20 5c 20 53  |scsx2 EQUD 0 \ S|
000041d0  6f 75 72 63 65 20 6d 61  78 20 78 0d 20 08 20 2e  |ource max x. . .|
000041e0  73 63 73 79 32 20 45 51  55 44 20 30 20 5c 20 53  |scsy2 EQUD 0 \ S|
000041f0  6f 75 72 63 65 20 6d 61  78 20 79 0d 20 12 25 2e  |ource max y. .%.|
00004200  73 63 64 78 20 20 45 51  55 44 20 30 20 5c 20 44  |scdx  EQUD 0 \ D|
00004210  65 73 74 69 6e 61 74 69  6f 6e 20 6d 69 6e 20 78  |estination min x|
00004220  0d 20 1c 25 2e 73 63 64  79 20 20 45 51 55 44 20  |. .%.scdy  EQUD |
00004230  30 20 5c 20 44 65 73 74  69 6e 61 74 69 6f 6e 20  |0 \ Destination |
00004240  6d 69 6e 20 79 0d 20 26  04 0d 20 30 0b 2e 54 52  |min y. &.. 0..TR|
00004250  41 4e 53 32 0d 20 3a 14  53 54 4d 46 44 20 52 31  |ANS2. :.STMFD R1|
00004260  33 21 2c 7b 52 31 34 7d  0d 20 44 25 4c 44 52 20  |3!,{R14}. D%LDR |
00004270  52 31 30 2c 20 48 61 64  64 20 5c 20 48 69 73 74  |R10, Hadd \ Hist|
00004280  6f 67 72 61 6d 20 70 6f  69 6e 74 65 72 0d 20 4e  |ogram pointer. N|
00004290  0d 4d 4f 56 20 52 38 2c  52 37 0d 20 58 10 53 55  |.MOV R8,R7. X.SU|
000042a0  42 20 52 38 2c 52 33 2c  52 38 0d 20 62 0d 4d 4f  |B R8,R3,R8. b.MO|
000042b0  56 20 52 31 2c 52 35 0d  20 6c 04 0d 20 76 08 2e  |V R1,R5. l.. v..|
000042c0  53 72 32 0d 20 80 20 4d  4f 56 20 52 35 2c 23 30  |Sr2. . MOV R5,#0|
000042d0  20 5c 20 4e 55 4d 42 45  52 20 ca 20 86 53 20 b8  | \ NUMBER . .S .|
000042e0  20 47 4f 0d 20 8a 1d 2e  52 41 4c 32 20 5c 20 52  | GO. ...RAL2 \ R|
000042f0  65 61 64 20 61 6e 6f 74  68 65 72 20 6c 69 6e 65  |ead another line|
00004300  0d 20 94 2c 4d 55 4c 20  52 36 2c 52 33 2c 52 35  |. .,MUL R6,R3,R5|
00004310  20 5c 20 43 6f 6e 74 72  69 62 75 69 74 69 6f 6e  | \ Contribuition|
00004320  20 6f 66 20 74 68 65 20  6c 69 6e 65 0d 20 9e 2c  | of the line. .,|
00004330  41 44 44 20 52 36 2c 52  36 2c 52 32 20 5c 20 47  |ADD R6,R6,R2 \ G|
00004340  65 74 20 62 61 73 65 20  61 64 64 72 65 73 73 20  |et base address |
00004350  74 6f 20 73 74 61 72 74  0d 20 a8 04 0d 20 b2 1f  |to start. ... ..|
00004360  4d 4f 56 20 52 37 2c 23  30 20 5c 20 50 49 58 45  |MOV R7,#0 \ PIXE|
00004370  4c 53 20 ee 20 54 48 49  53 20 86 0d 20 bc 1d 2e  |LS . THIS .. ...|
00004380  52 41 42 32 20 5c 20 52  65 61 64 20 41 6e 6f 74  |RAB2 \ Read Anot|
00004390  68 65 72 20 42 79 74 65  0d 20 c6 21 53 57 49 20  |her Byte. .!SWI |
000043a0  26 30 41 20 5c 20 52 65  61 64 20 61 20 62 79 74  |&0A \ Read a byt|
000043b0  65 20 69 6e 74 6f 20 52  30 0d 20 d0 0c 42 43 53  |e into R0. ..BCS|
000043c0  20 45 58 49 54 0d 20 da  13 53 54 52 42 20 52 30  | EXIT. ..STRB R0|
000043d0  2c 5b 52 36 2c 52 37 5d  0d 20 e4 04 0d 20 ee 36  |,[R6,R7]. ... .6|
000043e0  4c 44 52 20 52 31 31 2c  5b 52 31 30 2c 52 30 2c  |LDR R11,[R10,R0,|
000043f0  20 41 53 4c 20 23 32 5d  20 5c 20 49 6e 63 72 65  | ASL #2] \ Incre|
00004400  6d 65 6e 74 20 74 68 65  20 68 69 73 74 6f 67 72  |ment the histogr|
00004410  61 6d 0d 20 f8 12 41 44  44 20 52 31 31 2c 52 31  |am. ..ADD R11,R1|
00004420  31 2c 23 31 0d 21 02 1c  53 54 52 20 52 31 31 2c  |1,#1.!..STR R11,|
00004430  5b 52 31 30 2c 52 30 2c  20 41 53 4c 20 23 32 5d  |[R10,R0, ASL #2]|
00004440  0d 21 0c 04 0d 21 16 1f  41 44 44 20 52 37 2c 52  |.!...!..ADD R7,R|
00004450  37 2c 23 31 20 5c 20 4e  65 78 74 20 58 20 70 69  |7,#1 \ Next X pi|
00004460  78 65 6c 0d 21 20 0d 43  4d 50 20 52 37 2c 52 38  |xel.! .CMP R7,R8|
00004470  0d 21 2a 0c 42 4e 45 20  52 41 42 32 0d 21 34 27  |.!*.BNE RAB2.!4'|
00004480  5c 20 4e 6f 77 20 67 65  74 20 6f 6e 20 77 69 74  |\ Now get on wit|
00004490  68 20 67 65 74 74 69 6e  67 20 74 68 65 20 69 6d  |h getting the im|
000044a0  61 67 65 0d 21 3e 04 0d  21 48 1c 41 44 44 20 52  |age.!>..!H.ADD R|
000044b0  35 2c 52 35 2c 23 31 20  5c 20 4e 65 78 74 20 6c  |5,R5,#1 \ Next l|
000044c0  69 6e 65 0d 21 52 1f 43  4d 50 20 52 35 2c 52 34  |ine.!R.CMP R5,R4|
000044d0  20 5c 20 41 72 65 20 77  65 20 66 69 6e 69 73 68  | \ Are we finish|
000044e0  65 64 0d 21 5c 0c 42 4e  45 20 52 41 4c 32 0d 21  |ed.!\.BNE RAL2.!|
000044f0  66 2d 4c 44 4d 46 44 20  52 31 33 21 2c 20 7b 50  |f-LDMFD R13!, {P|
00004500  43 7d 20 5c 20 42 41 43  4b 20 46 52 4f 4d 20 c9  |C} \ BACK FROM .|
00004510  53 54 20 59 4f 55 20 43  41 4d 45 0d 21 70 04 0d  |ST YOU CAME.!p..|
00004520  21 7a 09 2e 43 45 4e 44  0d 21 84 05 5d 0d 21 8e  |!z..CEND.!..].!.|
00004530  04 0d 21 98 05 ed 0d 21  a2 07 ef 20 36 0d 21 ac  |..!....!... 6.!.|
00004540  10 e3 20 41 25 3d 30 20  b8 20 32 35 35 0d 21 b6  |.. A%=0 . 255.!.|
00004550  0e 50 54 54 25 3f 41 25  3d 41 25 0d 21 c0 13 48  |.PTT%?A%=A%.!..H|
00004560  69 73 74 25 21 28 41 25  3c 3c 32 29 3d 30 0d 21  |ist%!(A%<<2)=0.!|
00004570  ca 05 ed 0d 21 d4 0a f2  5f 47 52 45 59 0d 21 de  |....!..._GREY.!.|
00004580  05 e1 0d 21 e8 04 0d 21  f2 0c dd 20 f2 5f 47 52  |...!...!... ._GR|
00004590  45 59 0d 21 fc 1a f4 20  4d 61 6b 65 20 75 70 20  |EY.!... Make up |
000045a0  74 68 65 20 70 61 6c 6c  65 74 74 65 0d 22 06 10  |the pallette."..|
000045b0  e3 20 41 25 3d 30 20 b8  20 32 35 35 0d 22 10 13  |. A%=0 . 255."..|
000045c0  55 50 25 3f 28 41 25 2a  34 2b 31 29 3d 41 25 0d  |UP%?(A%*4+1)=A%.|
000045d0  22 1a 13 55 50 25 3f 28  41 25 2a 34 2b 32 29 3d  |"..UP%?(A%*4+2)=|
000045e0  41 25 0d 22 24 13 55 50  25 3f 28 41 25 2a 34 2b  |A%."$.UP%?(A%*4+|
000045f0  33 29 3d 41 25 0d 22 2e  05 ed 0d 22 38 05 e1 0d  |3)=A%."...."8...|
00004600  22 42 04 0d 22 4c 0b dd  20 f2 5f 4e 45 47 0d 22  |"B.."L.. ._NEG."|
00004610  56 23 f4 20 4d 61 6b 65  20 75 70 20 74 68 65 20  |V#. Make up the |
00004620  6e 65 67 69 74 61 76 65  20 70 61 6c 6c 65 74 74  |negitave pallett|
00004630  65 0d 22 60 10 e3 20 41  25 3d 30 20 b8 20 32 35  |e."`.. A%=0 . 25|
00004640  35 0d 22 6a 21 55 50 25  3f 28 41 25 2a 34 2b 31  |5."j!UP%?(A%*4+1|
00004650  29 3d 32 35 35 2d 55 50  25 3f 28 41 25 2a 34 2b  |)=255-UP%?(A%*4+|
00004660  31 29 0d 22 74 21 55 50  25 3f 28 41 25 2a 34 2b  |1)."t!UP%?(A%*4+|
00004670  32 29 3d 32 35 35 2d 55  50 25 3f 28 41 25 2a 34  |2)=255-UP%?(A%*4|
00004680  2b 32 29 0d 22 7e 21 55  50 25 3f 28 41 25 2a 34  |+2)."~!UP%?(A%*4|
00004690  2b 33 29 3d 32 35 35 2d  55 50 25 3f 28 41 25 2a  |+3)=255-UP%?(A%*|
000046a0  34 2b 33 29 0d 22 88 05  ed 0d 22 92 05 e1 0d 22  |4+3)."...."...."|
000046b0  9c 04 0d 22 a6 0a dd 20  f2 5f 41 43 0d 22 b0 2a  |..."... ._AC.".*|
000046c0  f4 20 4d 61 6b 65 20 70  61 6c 6c 65 74 74 65 20  |. Make pallette |
000046d0  67 6f 20 66 72 6f 6d 20  62 6c 61 63 6b 20 74 6f  |go from black to|
000046e0  20 77 68 69 74 65 0d 22  ba 15 ea 20 41 25 2c 42  | white."... A%,B|
000046f0  25 2c 57 25 2c 62 77 69  2c 53 25 0d 22 c4 04 0d  |%,W%,bwi,S%."...|
00004700  22 ce 08 42 25 3d 30 0d  22 d8 05 f5 0d 22 e2 09  |"..B%=0."...."..|
00004710  42 25 2b 3d 34 0d 22 ec  1c fd 20 48 69 73 74 25  |B%+=4."... Hist%|
00004720  21 42 25 20 3c 3e 30 20  84 20 42 25 3d 31 30 32  |!B% <>0 . B%=102|
00004730  34 0d 22 f6 04 0d 23 00  0b 57 25 3d 31 30 32 34  |4."...#..W%=1024|
00004740  0d 23 0a 05 f5 0d 23 14  09 57 25 2d 3d 34 0d 23  |.#....#..W%-=4.#|
00004750  1e 1b fd 20 48 69 73 74  25 21 57 25 20 3c 3e 20  |... Hist%!W% <> |
00004760  30 20 20 84 20 57 25 3d  30 0d 23 28 17 42 25 3d  |0  . W%=0.#(.B%=|
00004770  42 25 3e 3e 32 20 3a 20  57 25 3d 57 25 3e 3e 32  |B%>>2 : W%=W%>>2|
00004780  0d 23 32 0c 53 25 3d 57  25 2d 42 25 0d 23 3c 0e  |.#2.S%=W%-B%.#<.|
00004790  62 77 69 3d 32 35 36 2f  53 25 0d 23 46 04 0d 23  |bwi=256/S%.#F..#|
000047a0  50 0f e3 20 41 25 3d 30  20 b8 20 42 25 0d 23 5a  |P.. A%=0 . B%.#Z|
000047b0  12 55 50 25 3f 28 41 25  2a 34 2b 31 29 3d 30 0d  |.UP%?(A%*4+1)=0.|
000047c0  23 64 12 55 50 25 3f 28  41 25 2a 34 2b 32 29 3d  |#d.UP%?(A%*4+2)=|
000047d0  30 0d 23 6e 12 55 50 25  3f 28 41 25 2a 34 2b 33  |0.#n.UP%?(A%*4+3|
000047e0  29 3d 30 0d 23 78 05 ed  0d 23 82 08 53 25 3d 30  |)=0.#x...#..S%=0|
000047f0  0d 23 8c 04 0d 23 96 10  e3 20 41 25 3d 42 25 20  |.#...#... A%=B% |
00004800  b8 20 57 25 0d 23 a0 17  55 50 25 3f 28 41 25 2a  |. W%.#..UP%?(A%*|
00004810  34 2b 31 29 3d 53 25 2a  62 77 69 0d 23 aa 17 55  |4+1)=S%*bwi.#..U|
00004820  50 25 3f 28 41 25 2a 34  2b 32 29 3d 53 25 2a 62  |P%?(A%*4+2)=S%*b|
00004830  77 69 0d 23 b4 17 55 50  25 3f 28 41 25 2a 34 2b  |wi.#..UP%?(A%*4+|
00004840  33 29 3d 53 25 2a 62 77  69 0d 23 be 09 53 25 2b  |3)=S%*bwi.#..S%+|
00004850  3d 31 0d 23 c8 05 ed 0d  23 d2 04 0d 23 dc 11 e3  |=1.#....#...#...|
00004860  20 41 25 3d 57 25 20 b8  20 32 35 35 0d 23 e6 14  | A%=W% . 255.#..|
00004870  55 50 25 3f 28 41 25 2a  34 2b 31 29 3d 32 35 35  |UP%?(A%*4+1)=255|
00004880  0d 23 f0 14 55 50 25 3f  28 41 25 2a 34 2b 32 29  |.#..UP%?(A%*4+2)|
00004890  3d 32 35 35 0d 23 fa 14  55 50 25 3f 28 41 25 2a  |=255.#..UP%?(A%*|
000048a0  34 2b 33 29 3d 32 35 35  0d 24 04 05 ed 0d 24 0e  |4+3)=255.$....$.|
000048b0  04 0d 24 18 05 e1 0d 24  22 04 0d 24 2c 0e dd 20  |..$....$"..$,.. |
000048c0  f2 5f 50 75 74 50 61 6c  0d 24 36 10 e3 20 41 25  |._PutPal.$6.. A%|
000048d0  3d 30 20 b8 20 32 35 35  0d 24 40 42 42 25 3d 28  |=0 . 255.$@BB%=(|
000048e0  55 50 25 3f 28 41 25 2a  34 2b 31 29 29 3c 3c 38  |UP%?(A%*4+1))<<8|
000048f0  20 84 20 28 55 50 25 3f  28 41 25 2a 34 2b 32 29  | . (UP%?(A%*4+2)|
00004900  29 3c 3c 31 36 20 84 20  28 55 50 25 3f 28 41 25  |)<<16 . (UP%?(A%|
00004910  2a 34 2b 33 29 29 3c 3c  32 34 0d 24 4a 12 70 61  |*4+3))<<24.$J.pa|
00004920  6c 25 21 28 41 25 2a 38  29 3d 42 25 0d 24 54 14  |l%!(A%*8)=B%.$T.|
00004930  70 61 6c 25 21 28 41 25  2a 38 2b 34 29 3d 42 25  |pal%!(A%*8+4)=B%|
00004940  0d 24 5e 05 ed 0d 24 68  05 e1 0d 24 72 04 0d 24  |.$^...$h...$r..$|
00004950  7c 13 dd 20 f2 5f 73 70  75 74 28 78 25 2c 58 24  ||.. ._sput(x%,X$|
00004960  29 0d 24 86 08 ea 20 41  25 0d 24 90 12 e3 20 41  |).$... A%.$... A|
00004970  25 3d 31 20 b8 20 a9 28  58 24 29 0d 24 9a 14 3f  |%=1 . .(X$).$..?|
00004980  78 25 3d 97 28 c1 58 24  2c 41 25 2c 31 29 29 0d  |x%=.(.X$,A%,1)).|
00004990  24 a4 09 78 25 2b 3d 31  0d 24 ae 05 ed 0d 24 b8  |$..x%+=1.$....$.|
000049a0  09 3f 78 25 3d 30 0d 24  c2 05 e1 0d 24 cc 04 0d  |.?x%=0.$....$...|
000049b0  24 d6 11 dd 20 f2 5f 70  70 28 6e 25 2c 56 25 29  |$... ._pp(n%,V%)|
000049c0  0d 24 e0 1d f2 5f 73 70  75 74 28 53 50 6f 69 6e  |.$..._sput(SPoin|
000049d0  74 25 28 6e 25 29 2c c3  28 56 25 29 29 0d 24 ea  |t%(n%),.(V%)).$.|
000049e0  43 c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |C.."Wimp_ForceRe|
000049f0  64 72 61 77 22 2c 43 6f  6e 74 72 6f 6c 25 2c 49  |draw",Control%,I|
00004a00  58 25 28 6e 25 29 2c 49  59 25 28 6e 25 29 2c 49  |X%(n%),IY%(n%),I|
00004a10  58 31 25 28 6e 25 29 2c  49 59 31 25 28 6e 25 29  |X1%(n%),IY1%(n%)|
00004a20  0d 24 f4 05 e1 0d 24 fe  04 0d 25 08 0f dd 20 f2  |.$....$...%... .|
00004a30  5f 53 65 74 43 6f 6c 73  0d 25 12 0e ea 20 67 72  |_SetCols.%... gr|
00004a40  61 62 25 2c 41 25 0d 25  1c 04 0d 25 26 2e c8 99  |ab%,A%.%...%&...|
00004a50  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00004a60  61 62 6c 65 22 2c 2d 31  2c 33 20 b8 20 2c 2c 4e  |able",-1,3 . ,,N|
00004a70  63 6f 6c 6f 75 72 73 25  0d 25 30 04 0d 25 3a 15  |colours%.%0..%:.|
00004a80  e7 20 4e 63 6f 6c 6f 75  72 73 25 3c 32 35 37 20  |. Ncolours%<257 |
00004a90  8c 0d 25 44 1c 20 20 e3  20 67 72 61 62 25 3d 30  |..%D.  . grab%=0|
00004aa0  20 b8 20 32 30 34 38 2d  38 20 88 20 38 0d 25 4e  | . 2048-8 . 8.%N|
00004ab0  28 20 20 70 61 6c 74 65  6d 70 25 21 28 67 72 61  |(  paltemp%!(gra|
00004ac0  62 25 3e 3e 31 29 3d 53  50 25 21 28 67 72 61 62  |b%>>1)=SP%!(grab|
00004ad0  25 2b 34 34 29 0d 25 58  07 20 20 ed 0d 25 62 20  |%+44).%X.  ..%b |
00004ae0  20 20 e3 20 41 25 3d 30  20 b8 20 32 35 35 3a 20  |  . A%=0 . 255: |
00004af0  50 54 54 25 3f 41 25 3d  41 25 3a ed 0d 25 6c 13  |PTT%?A%=A%:..%l.|
00004b00  20 20 20 e3 20 41 25 3d  30 20 b8 20 32 35 35 0d  |   . A%=0 . 255.|
00004b10  25 76 44 20 20 20 c8 99  22 43 6f 6c 6f 75 72 54  |%vD   .."ColourT|
00004b20  72 61 6e 73 5f 52 65 74  75 72 6e 43 6f 6c 6f 75  |rans_ReturnColou|
00004b30  72 4e 75 6d 62 65 72 22  2c 70 61 6c 74 65 6d 70  |rNumber",paltemp|
00004b40  25 21 28 41 25 3c 3c 32  29 20 b8 20 50 54 54 25  |%!(A%<<2) . PTT%|
00004b50  3f 41 25 0d 25 80 08 20  20 20 ed 0d 25 8a 05 cd  |?A%.%..   ..%...|
00004b60  0d 25 94 05 e1 0d 25 9e  04 0d 25 a8 0d dd 20 f2  |.%....%...%... .|
00004b70  78 70 69 78 65 6c 0d 25  b2 18 ea 20 78 25 2c 66  |xpixel.%... x%,f|
00004b80  25 2c 70 25 2c 6e 25 2c  74 6f 25 2c 65 25 0d 25  |%,p%,n%,to%,e%.%|
00004b90  bc 1a c8 99 22 48 6f 75  72 67 6c 61 73 73 5f 53  |...."Hourglass_S|
00004ba0  74 61 72 74 22 2c 31 30  0d 25 c6 25 c8 99 20 22  |tart",10.%.%.. "|
00004bb0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00004bc0  61 74 65 22 2c 2c 63 73  77 32 35 36 25 0d 25 d0  |ate",,csw256%.%.|
00004bd0  2e 20 20 20 20 20 20 78  25 3d 28 71 25 21 30 2d  |.      x%=(q%!0-|
00004be0  63 73 77 32 35 36 25 21  34 2b 63 73 77 32 35 36  |csw256%!4+csw256|
00004bf0  25 21 32 30 2b 32 29 20  81 20 32 0d 25 da 0c 70  |%!20+2) . 2.%..p|
00004c00  25 3d 53 50 25 21 38 0d  25 e4 17 74 6f 25 3d 53  |%=SP%!8.%..to%=S|
00004c10  50 25 2b 53 50 25 21 28  70 25 2b 33 32 29 0d 25  |P%+SP%!(p%+32).%|
00004c20  ee 0d 66 25 3d 74 6f 25  2b 78 25 0d 25 f8 11 65  |..f%=to%+x%.%..e|
00004c30  25 3d 53 50 25 2b 53 50  25 21 70 25 0d 26 02 05  |%=SP%+SP%!p%.&..|
00004c40  f5 0d 26 0c 0c 3f 74 6f  25 3d 3f 66 25 0d 26 16  |..&..?to%=?f%.&.|
00004c50  10 74 6f 25 2b 3d 31 3a  66 25 2b 3d 31 0d 26 20  |.to%+=1:f%+=1.& |
00004c60  0b fd 20 66 25 3d 65 25  0d 26 2a 0d f2 5f 50 63  |.. f%=e%.&*.._Pc|
00004c70  68 61 6e 67 65 0d 26 34  15 c8 99 22 48 6f 75 72  |hange.&4..."Hour|
00004c80  67 6c 61 73 73 5f 4f 66  66 22 0d 26 3e 05 e1 0d  |glass_Off".&>...|
00004c90  26 48 04 0d 26 52 0c dd  20 f2 5f 46 6c 69 70 0d  |&H..&R.. ._Flip.|
00004ca0  26 5c 2c 20 c8 99 20 22  4f 53 5f 53 70 72 69 74  |&\, .. "OS_Sprit|
00004cb0  65 4f 70 22 2c 33 33 2b  32 35 36 2c 53 50 25 2c  |eOp",33+256,SP%,|
00004cc0  22 53 61 74 5f 49 6d 61  67 65 22 0d 26 66 2c 20  |"Sat_Image".&f, |
00004cd0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00004ce0  2c 34 37 2b 32 35 36 2c  53 50 25 2c 22 53 61 74  |,47+256,SP%,"Sat|
00004cf0  5f 49 6d 61 67 65 22 0d  26 70 05 e1 0d ff        |_Image".&p....|
00004cfe