� >!RunImage
� by Grahame Butterworth
� � Archimedes World 1992
(:
2version$="1.12 (18-Jul-92)"
<�b% 400
F�q% &800
P7ș"Wimp_Initialise",200,&4B534154,"PoolSprs"�,task%
Z��errorTHENPROCclose:�
d	�init
n�createicon
x�
�	�poll
�
�quit%
�
�close
��
�:
�
��poll
�ș"Wimp_Poll",&81831,b%�r%
�	Ȏr%�
�
��2:ș"Wimp_OpenWindow",,b%
��3:ș"Wimp_CloseWindow",,b%
��6:�mouseclick
��7:�Draged

�9:�decode_menu

�17,18:�message



"�

,�

6:

@��create_window

J4ș"Wimp_OpenTemplate",,"<PoolSpr$Dir>.Templates"

T

^@ș"Wimp_LoadTemplate",,P%,Intro1%,Intro1%+wsmax%,-1,"Info",0

hBș"Wimp_LoadTemplate",,Q%,Intro%,Intro%+wsmax%,-1,"WorkArea",0

rș"Wimp_CloseTemplate"

|$ș"Wimp_CreateWindow",,Q%�WorkW%

�#ș"Wimp_CreateWindow",,P%�Info%

�

�

�

�

��

�:

�

���close

�&ș"Wimp_CloseDown",task%,&4B534154

��

�:

�ݤerror
	!b%=�
"err_str$=" at line "+Þ:box%=1
$(b%+4)=�$+err_str$+�0
&6ș"Wimp_ReportError",b%,box%,"DeskSprs"�,response%
0=(response%=2)
::
D��createicon
N6!b%=-1:b%!4=0:b%!8=0:b%!12=68:b%!16=68:b%!20=&3002
X3$(b%+24)="!PoolSprs":ș"Wimp_CreateIcon",,b%�i%
b�
l:
v��mouseclick
�Ȏb%!8�
�.�2:�create_menu(mainmenu%,!b%-64,b%!4+105)
��4:Ȏ b%!12 �
�� -2:�OpenWindow
�� WorkW%:Ȏb%!16�
�%� 12:TRMA%=�tick(WorkW%,12,TRMA%)
�%� 14:TRAM%=�tick(WorkW%,14,TRAM%)
�#� 2:TIMP%=�tick(WorkW%,2,TIMP%)
�
�
�
�17:�Drag
�
��


�
 
*�
4�
>:
H��OpenWindow
R!b%=WorkW%
\ș"Wimp_GetWindowState",,b%
fș"Wimp_CloseWindow",,b%
pș"Wimp_OpenWindow",,b%
z�
�:
� ��create_menu(menu%,xp%,yp%)
�+menu_start%=menu%:menux%=xp%:menuy%=yp%
�&ș"Wimp_CreateMenu",,menu%,xp%,yp%
��
�:
���decode_menu
��adj%,a$
�!ș"Wimp_GetPointerInfo",,buf%
�adj%=(buf%!8=1)
�3ș"Wimp_DecodeMenu",,menu_start%,b%,menustring%
�b$=�Leaf($menustring%)
�,a$=�$menustring%,1,�$menustring%,".")-1)
	Ȏa$�
�"Quit":�close:�
�
$0�adj%�create_menu(menu_start%,menux%,menuy%)
.�
8:
Bݤindirect(a$)
L�start%
Vstart%=ws%
`$start%=a$
jws%=start%+�a$+1
t=start%
~:
�
��init
�"ș"Wimp_BaseOfSprites" � base%
�quit%=�:wsmax%=&400
�width%=448:height%=340
�TIMP%=1:TRAM%=1:TRMA%=1
���buf% 20,ind% 20,ws% wsmax%,menustring% 50,mainmenu% &200,inputmenu% &52,datemenu% &76,Q% &1000,P% &1000,Intro% wsmax%,Intro1% wsmax%,Improv% 20000
�
�$ind%=""
�
�wsend%=ws%+wsmax%
��create_window
��Version(version$)
�
�mainmenu
��LoadImprovs
�

:
��Version(version$)
Vers%=�FAddress(4,Info%)
($Vers%=version$
2RMA%=�FAddress(13,WorkW%)
<RAM%=�FAddress(15,WorkW%)
FIMP%=�FAddress(5,WorkW%)
P�
Z:
dݤtick(Window%,iconn%,t%)
n!q%=Window%
xq%!4=iconn%
�ș"Wimp_GetIconState",,q%
�ș"Wimp_DeleteIcon",,q%
�<q%!4=q%!8:q%!8=q%!12:q%!12=q%!16:q%!16=q%!20:q%!20=q%!24
�t%=t%�&1
�	Ȏt%�
��1:$(q%+24)="tbon"
��0:$(q%+24)="tboff"
��
�"ș"Wimp_CreateIcon",,q%�icers%
�!q%=Window%:q%!4=iconn%
�ș"Wimp_GetIconState",,q%
�4ș"Wimp_ForceRedraw",q%!0,q%!8,q%!12,q%!16,q%!20
�=t%
:
��LoadImprovs
!File$="<PoolSpr$Dir>.Improvs"
&ș"OS_SpriteOp",&10A,Improv%,File$
"�
,
6
@
J
T
^
h
r
|
�
�
�
�
�
�
�
�
�
�
�
�
�

:
ݤLeaf(leaf$)
&-ȕ�leaf$,"."):leaf$=�leaf$,�leaf$,".")+1)
0�:=leaf$
::
D
��Drag
N!q%=WorkW%
Xș"Wimp_GetWindowState",,q%
bz%=q%!16-q%!8
lx%=q%!4:y%=q%!8:q%!4=17
v
�ș"Wimp_GetIconState",,q%
�q%!8+=x%:q%!12+=y%+z%
�q%!16+=x%:q%!20+=y%+z%
�q%!24=0:q%!28=0
�q%!32=1279:q%!36=1023
�!q%=0:q%!4=5
�ș"Wimp_DragBox",,q%
��
�:
���Draged
�
�	!q%=0
�ș"Wimp_GetPointerInfo",,q%
� q%!12=WorkW% � �


 "q%!32=q%!4   :thirtytwo%=q%!32
*$q%!28=!q%    :twentyeight%=q%!28
4#q%!24=q%!16  :twentyfour%=q%!24
>q%!20=q%!12  :twenty%=q%!20
Hq%!16=1
Rq%!12=0
\q%!36=!base%
fq%!40=&ff9
p$(q%+44)="Example"+�(0)
z
!q%=60
�*ș"Wimp_SendMessage",18,q%,q%!20,q%!24
��
�:
���mainmenu
��m%
�m%=mainmenu%
�M$m%="PoolSprs":m%?12=7:m%?13=3:m%?14=7:m%?15=0:m%!16=160:m%!20=44:m%!24=0
�7m%!28=0:m%!32=Info%:m%!36=&07000021:$(m%+40)="Info"
�6m%!52=&80:m%!56=-1:m%!60=&07000021:$(m%+64)="Quit"
�
�
��
�:
	��tellem(String$)
		!b%=1
	$(b%+4)=String$+�(0)
	$+ș"Wimp_ReportError",b%,1,"PoolSprites"
	.�
	8:
	B
��message
	Lyourref%=b%!8
	VȎb%!16�
	`�0:quit%=�
	j
	t �2:�SaveSprites(�Str(b%+44))
	~�
	��
	�:
	���SaveSprites(File$)
	�BRoot$=�Leaf(File$)
	�Rouge%=�(BRoot$)
	�!Root$=�File$,�(File$)-Rouge%)
	�
	�
� TRMA% �
	�.ș "XOS_SpriteOp",256+12,base%,Root$+$RMA%
	��
	�
� TRAM% �
	�
	�'ș "Wimp_SpriteOp",268,,Root$+$RAM%
�


� TIMP% �
0ș "XOS_SpriteOp",256+12,Improv%,Root$+$IMP%

(�
2�
<
F:
PݤFAddress(icon%,windw%)
Z!q%=windw%
dq%!4=icon%
nș"Wimp_GetIconState",,q%
x
=q%!28
�:
�ݤStr(ptr%)
�	S$=""
�ȕ?ptr%:S$+=�(?ptr%)
�ptr%+=1:�:=S$
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1c f4 20 62 79  20 47 72 61 68 61 6d 65  |..... by Grahame|
00000020  20 42 75 74 74 65 72 77  6f 72 74 68 0d 00 1e 1d  | Butterworth....|
00000030  f4 20 a9 20 41 72 63 68  69 6d 65 64 65 73 20 57  |. . Archimedes W|
00000040  6f 72 6c 64 20 31 39 39  32 0d 00 28 05 3a 0d 00  |orld 1992..(.:..|
00000050  32 1f 76 65 72 73 69 6f  6e 24 3d 22 31 2e 31 32  |2.version$="1.12|
00000060  20 28 31 38 2d 4a 75 6c  2d 39 32 29 22 0d 00 3c  | (18-Jul-92)"..<|
00000070  0b de 62 25 20 34 30 30  0d 00 46 0c de 71 25 20  |..b% 400..F..q% |
00000080  26 38 30 30 0d 00 50 37  c8 99 22 57 69 6d 70 5f  |&800..P7.."Wimp_|
00000090  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
000000a0  26 34 42 35 33 34 31 35  34 2c 22 50 6f 6f 6c 53  |&4B534154,"PoolS|
000000b0  70 72 73 22 b8 2c 74 61  73 6b 25 0d 00 5a 1c ee  |prs".,task%..Z..|
000000c0  85 e7 a4 65 72 72 6f 72  54 48 45 4e 50 52 4f 43  |...errorTHENPROC|
000000d0  63 6c 6f 73 65 3a e0 0d  00 64 09 f2 69 6e 69 74  |close:...d..init|
000000e0  0d 00 6e 0f f2 63 72 65  61 74 65 69 63 6f 6e 0d  |..n..createicon.|
000000f0  00 78 05 f5 0d 00 82 09  f2 70 6f 6c 6c 0d 00 8c  |.x.......poll...|
00000100  0a fd 71 75 69 74 25 0d  00 96 0a f2 63 6c 6f 73  |..quit%.....clos|
00000110  65 0d 00 a0 05 e0 0d 00  aa 05 3a 0d 00 b4 0a dd  |e.........:.....|
00000120  f2 70 6f 6c 6c 0d 00 be  1e c8 99 22 57 69 6d 70  |.poll......"Wimp|
00000130  5f 50 6f 6c 6c 22 2c 26  38 31 38 33 31 2c 62 25  |_Poll",&81831,b%|
00000140  b8 72 25 0d 00 c8 09 c8  8e 72 25 ca 0d 00 d2 04  |.r%......r%.....|
00000150  0d 00 dc 1e c9 32 3a c8  99 22 57 69 6d 70 5f 4f  |.....2:.."Wimp_O|
00000160  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 25 0d 00  |penWindow",,b%..|
00000170  e6 1f c9 33 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |...3:.."Wimp_Clo|
00000180  73 65 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 00 f0  |seWindow",,b%...|
00000190  12 c9 36 3a f2 6d 6f 75  73 65 63 6c 69 63 6b 0d  |..6:.mouseclick.|
000001a0  00 fa 0e c9 37 3a f2 44  72 61 67 65 64 0d 01 04  |....7:.Draged...|
000001b0  13 c9 39 3a f2 64 65 63  6f 64 65 5f 6d 65 6e 75  |..9:.decode_menu|
000001c0  0d 01 0e 13 c9 31 37 2c  31 38 3a f2 6d 65 73 73  |.....17,18:.mess|
000001d0  61 67 65 0d 01 18 04 0d  01 22 05 cb 0d 01 2c 05  |age......"....,.|
000001e0  e1 0d 01 36 05 3a 0d 01  40 13 dd f2 63 72 65 61  |...6.:..@...crea|
000001f0  74 65 5f 77 69 6e 64 6f  77 0d 01 4a 34 c8 99 22  |te_window..J4.."|
00000200  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000210  65 22 2c 2c 22 3c 50 6f  6f 6c 53 70 72 24 44 69  |e",,"<PoolSpr$Di|
00000220  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 01 54  |r>.Templates"..T|
00000230  04 0d 01 5e 40 c8 99 22  57 69 6d 70 5f 4c 6f 61  |...^@.."Wimp_Loa|
00000240  64 54 65 6d 70 6c 61 74  65 22 2c 2c 50 25 2c 49  |dTemplate",,P%,I|
00000250  6e 74 72 6f 31 25 2c 49  6e 74 72 6f 31 25 2b 77  |ntro1%,Intro1%+w|
00000260  73 6d 61 78 25 2c 2d 31  2c 22 49 6e 66 6f 22 2c  |smax%,-1,"Info",|
00000270  30 0d 01 68 42 c8 99 22  57 69 6d 70 5f 4c 6f 61  |0..hB.."Wimp_Loa|
00000280  64 54 65 6d 70 6c 61 74  65 22 2c 2c 51 25 2c 49  |dTemplate",,Q%,I|
00000290  6e 74 72 6f 25 2c 49 6e  74 72 6f 25 2b 77 73 6d  |ntro%,Intro%+wsm|
000002a0  61 78 25 2c 2d 31 2c 22  57 6f 72 6b 41 72 65 61  |ax%,-1,"WorkArea|
000002b0  22 2c 30 0d 01 72 1a c8  99 22 57 69 6d 70 5f 43  |",0..r..."Wimp_C|
000002c0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 01 7c  |loseTemplate"..||
000002d0  24 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |$.."Wimp_CreateW|
000002e0  69 6e 64 6f 77 22 2c 2c  51 25 b8 57 6f 72 6b 57  |indow",,Q%.WorkW|
000002f0  25 0d 01 86 23 c8 99 22  57 69 6d 70 5f 43 72 65  |%...#.."Wimp_Cre|
00000300  61 74 65 57 69 6e 64 6f  77 22 2c 2c 50 25 b8 49  |ateWindow",,P%.I|
00000310  6e 66 6f 25 0d 01 90 04  0d 01 9a 04 0d 01 a4 04  |nfo%............|
00000320  0d 01 ae 04 0d 01 b8 05  e1 0d 01 c2 05 3a 0d 01  |.............:..|
00000330  cc 04 0d 01 d6 0b dd f2  63 6c 6f 73 65 0d 01 e0  |........close...|
00000340  26 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |&.."Wimp_CloseDo|
00000350  77 6e 22 2c 74 61 73 6b  25 2c 26 34 42 35 33 34  |wn",task%,&4B534|
00000360  31 35 34 0d 01 ea 05 e1  0d 01 f4 05 3a 0d 01 fe  |154.........:...|
00000370  0b dd a4 65 72 72 6f 72  0d 02 08 09 21 62 25 3d  |...error....!b%=|
00000380  9f 0d 02 12 22 65 72 72  5f 73 74 72 24 3d 22 20  |...."err_str$=" |
00000390  61 74 20 6c 69 6e 65 20  22 2b c3 9e 3a 62 6f 78  |at line "+..:box|
000003a0  25 3d 31 0d 02 1c 1a 24  28 62 25 2b 34 29 3d f6  |%=1....$(b%+4)=.|
000003b0  24 2b 65 72 72 5f 73 74  72 24 2b bd 30 0d 02 26  |$+err_str$+.0..&|
000003c0  36 c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |6.."Wimp_ReportE|
000003d0  72 72 6f 72 22 2c 62 25  2c 62 6f 78 25 2c 22 44  |rror",b%,box%,"D|
000003e0  65 73 6b 53 70 72 73 22  b8 2c 72 65 73 70 6f 6e  |eskSprs".,respon|
000003f0  73 65 25 0d 02 30 12 3d  28 72 65 73 70 6f 6e 73  |se%..0.=(respons|
00000400  65 25 3d 32 29 0d 02 3a  05 3a 0d 02 44 10 dd f2  |e%=2)..:.:..D...|
00000410  63 72 65 61 74 65 69 63  6f 6e 0d 02 4e 36 21 62  |createicon..N6!b|
00000420  25 3d 2d 31 3a 62 25 21  34 3d 30 3a 62 25 21 38  |%=-1:b%!4=0:b%!8|
00000430  3d 30 3a 62 25 21 31 32  3d 36 38 3a 62 25 21 31  |=0:b%!12=68:b%!1|
00000440  36 3d 36 38 3a 62 25 21  32 30 3d 26 33 30 30 32  |6=68:b%!20=&3002|
00000450  0d 02 58 33 24 28 62 25  2b 32 34 29 3d 22 21 50  |..X3$(b%+24)="!P|
00000460  6f 6f 6c 53 70 72 73 22  3a c8 99 22 57 69 6d 70  |oolSprs":.."Wimp|
00000470  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 62 25  |_CreateIcon",,b%|
00000480  b8 69 25 0d 02 62 05 e1  0d 02 6c 05 3a 0d 02 76  |.i%..b....l.:..v|
00000490  10 dd f2 6d 6f 75 73 65  63 6c 69 63 6b 0d 02 80  |...mouseclick...|
000004a0  0b c8 8e 62 25 21 38 ca  0d 02 8a 2e c9 32 3a f2  |...b%!8......2:.|
000004b0  63 72 65 61 74 65 5f 6d  65 6e 75 28 6d 61 69 6e  |create_menu(main|
000004c0  6d 65 6e 75 25 2c 21 62  25 2d 36 34 2c 62 25 21  |menu%,!b%-64,b%!|
000004d0  34 2b 31 30 35 29 0d 02  94 11 c9 34 3a c8 8e 20  |4+105).....4:.. |
000004e0  62 25 21 31 32 20 ca 0d  02 9e 14 c9 20 2d 32 3a  |b%!12 ...... -2:|
000004f0  f2 4f 70 65 6e 57 69 6e  64 6f 77 0d 02 a8 15 c9  |.OpenWindow.....|
00000500  20 57 6f 72 6b 57 25 3a  c8 8e 62 25 21 31 36 ca  | WorkW%:..b%!16.|
00000510  0d 02 b2 25 c9 20 31 32  3a 54 52 4d 41 25 3d a4  |...%. 12:TRMA%=.|
00000520  74 69 63 6b 28 57 6f 72  6b 57 25 2c 31 32 2c 54  |tick(WorkW%,12,T|
00000530  52 4d 41 25 29 0d 02 bc  25 c9 20 31 34 3a 54 52  |RMA%)...%. 14:TR|
00000540  41 4d 25 3d a4 74 69 63  6b 28 57 6f 72 6b 57 25  |AM%=.tick(WorkW%|
00000550  2c 31 34 2c 54 52 41 4d  25 29 0d 02 c6 23 c9 20  |,14,TRAM%)...#. |
00000560  32 3a 54 49 4d 50 25 3d  a4 74 69 63 6b 28 57 6f  |2:TIMP%=.tick(Wo|
00000570  72 6b 57 25 2c 32 2c 54  49 4d 50 25 29 0d 02 d0  |rkW%,2,TIMP%)...|
00000580  04 0d 02 da 04 0d 02 e4  0d c9 31 37 3a f2 44 72  |..........17:.Dr|
00000590  61 67 0d 02 ee 04 0d 02  f8 05 cb 0d 03 02 04 0d  |ag..............|
000005a0  03 0c 04 0d 03 16 05 cb  0d 03 20 04 0d 03 2a 05  |.......... ...*.|
000005b0  cb 0d 03 34 05 e1 0d 03  3e 05 3a 0d 03 48 10 dd  |...4....>.:..H..|
000005c0  f2 4f 70 65 6e 57 69 6e  64 6f 77 0d 03 52 0e 21  |.OpenWindow..R.!|
000005d0  62 25 3d 57 6f 72 6b 57  25 0d 03 5c 1f c8 99 22  |b%=WorkW%..\..."|
000005e0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000005f0  61 74 65 22 2c 2c 62 25  0d 03 66 1c c8 99 22 57  |ate",,b%..f..."W|
00000600  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000610  2c 2c 62 25 0d 03 70 1b  c8 99 22 57 69 6d 70 5f  |,,b%..p..."Wimp_|
00000620  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
00000630  03 7a 05 e1 0d 03 84 05  3a 0d 03 8e 20 dd f2 63  |.z......:... ..c|
00000640  72 65 61 74 65 5f 6d 65  6e 75 28 6d 65 6e 75 25  |reate_menu(menu%|
00000650  2c 78 70 25 2c 79 70 25  29 0d 03 98 2b 6d 65 6e  |,xp%,yp%)...+men|
00000660  75 5f 73 74 61 72 74 25  3d 6d 65 6e 75 25 3a 6d  |u_start%=menu%:m|
00000670  65 6e 75 78 25 3d 78 70  25 3a 6d 65 6e 75 79 25  |enux%=xp%:menuy%|
00000680  3d 79 70 25 0d 03 a2 26  c8 99 22 57 69 6d 70 5f  |=yp%...&.."Wimp_|
00000690  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
000006a0  75 25 2c 78 70 25 2c 79  70 25 0d 03 ac 05 e1 0d  |u%,xp%,yp%......|
000006b0  03 b6 05 3a 0d 03 c0 11  dd f2 64 65 63 6f 64 65  |...:......decode|
000006c0  5f 6d 65 6e 75 0d 03 ca  0c ea 61 64 6a 25 2c 61  |_menu.....adj%,a|
000006d0  24 0d 03 d4 21 c8 99 22  57 69 6d 70 5f 47 65 74  |$...!.."Wimp_Get|
000006e0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 75  |PointerInfo",,bu|
000006f0  66 25 0d 03 de 13 61 64  6a 25 3d 28 62 75 66 25  |f%....adj%=(buf%|
00000700  21 38 3d 31 29 0d 03 e8  33 c8 99 22 57 69 6d 70  |!8=1)...3.."Wimp|
00000710  5f 44 65 63 6f 64 65 4d  65 6e 75 22 2c 2c 6d 65  |_DecodeMenu",,me|
00000720  6e 75 5f 73 74 61 72 74  25 2c 62 25 2c 6d 65 6e  |nu_start%,b%,men|
00000730  75 73 74 72 69 6e 67 25  0d 03 f2 1a 62 24 3d a4  |ustring%....b$=.|
00000740  4c 65 61 66 28 24 6d 65  6e 75 73 74 72 69 6e 67  |Leaf($menustring|
00000750  25 29 0d 03 fc 2c 61 24  3d c1 24 6d 65 6e 75 73  |%)...,a$=.$menus|
00000760  74 72 69 6e 67 25 2c 31  2c a7 24 6d 65 6e 75 73  |tring%,1,.$menus|
00000770  74 72 69 6e 67 25 2c 22  2e 22 29 2d 31 29 0d 04  |tring%,".")-1)..|
00000780  06 09 c8 8e 61 24 ca 0d  04 10 14 c9 22 51 75 69  |....a$......"Qui|
00000790  74 22 3a f2 63 6c 6f 73  65 3a e0 0d 04 1a 05 cb  |t":.close:......|
000007a0  0d 04 24 30 e7 61 64 6a  25 f2 63 72 65 61 74 65  |..$0.adj%.create|
000007b0  5f 6d 65 6e 75 28 6d 65  6e 75 5f 73 74 61 72 74  |_menu(menu_start|
000007c0  25 2c 6d 65 6e 75 78 25  2c 6d 65 6e 75 79 25 29  |%,menux%,menuy%)|
000007d0  0d 04 2e 05 e1 0d 04 38  05 3a 0d 04 42 12 dd a4  |.......8.:..B...|
000007e0  69 6e 64 69 72 65 63 74  28 61 24 29 0d 04 4c 0b  |indirect(a$)..L.|
000007f0  ea 73 74 61 72 74 25 0d  04 56 0e 73 74 61 72 74  |.start%..V.start|
00000800  25 3d 77 73 25 0d 04 60  0e 24 73 74 61 72 74 25  |%=ws%..`.$start%|
00000810  3d 61 24 0d 04 6a 14 77  73 25 3d 73 74 61 72 74  |=a$..j.ws%=start|
00000820  25 2b a9 61 24 2b 31 0d  04 74 0b 3d 73 74 61 72  |%+.a$+1..t.=star|
00000830  74 25 0d 04 7e 05 3a 0d  04 88 0a dd f2 69 6e 69  |t%..~.:......ini|
00000840  74 0d 04 92 22 c8 99 22  57 69 6d 70 5f 42 61 73  |t...".."Wimp_Bas|
00000850  65 4f 66 53 70 72 69 74  65 73 22 20 b8 20 62 61  |eOfSprites" . ba|
00000860  73 65 25 0d 04 9c 17 71  75 69 74 25 3d a3 3a 77  |se%....quit%=.:w|
00000870  73 6d 61 78 25 3d 26 34  30 30 0d 04 a6 1a 77 69  |smax%=&400....wi|
00000880  64 74 68 25 3d 34 34 38  3a 68 65 69 67 68 74 25  |dth%=448:height%|
00000890  3d 33 34 30 0d 04 b0 1b  54 49 4d 50 25 3d 31 3a  |=340....TIMP%=1:|
000008a0  54 52 41 4d 25 3d 31 3a  54 52 4d 41 25 3d 31 0d  |TRAM%=1:TRMA%=1.|
000008b0  04 ba 97 de 62 75 66 25  20 32 30 2c 69 6e 64 25  |....buf% 20,ind%|
000008c0  20 32 30 2c 77 73 25 20  77 73 6d 61 78 25 2c 6d  | 20,ws% wsmax%,m|
000008d0  65 6e 75 73 74 72 69 6e  67 25 20 35 30 2c 6d 61  |enustring% 50,ma|
000008e0  69 6e 6d 65 6e 75 25 20  26 32 30 30 2c 69 6e 70  |inmenu% &200,inp|
000008f0  75 74 6d 65 6e 75 25 20  26 35 32 2c 64 61 74 65  |utmenu% &52,date|
00000900  6d 65 6e 75 25 20 26 37  36 2c 51 25 20 26 31 30  |menu% &76,Q% &10|
00000910  30 30 2c 50 25 20 26 31  30 30 30 2c 49 6e 74 72  |00,P% &1000,Intr|
00000920  6f 25 20 77 73 6d 61 78  25 2c 49 6e 74 72 6f 31  |o% wsmax%,Intro1|
00000930  25 20 77 73 6d 61 78 25  2c 49 6d 70 72 6f 76 25  |% wsmax%,Improv%|
00000940  20 32 30 30 30 30 0d 04  bb 04 0d 04 c4 0c 24 69  | 20000........$i|
00000950  6e 64 25 3d 22 22 0d 04  ce 04 0d 04 d8 15 77 73  |nd%=""........ws|
00000960  65 6e 64 25 3d 77 73 25  2b 77 73 6d 61 78 25 0d  |end%=ws%+wsmax%.|
00000970  04 e2 12 f2 63 72 65 61  74 65 5f 77 69 6e 64 6f  |....create_windo|
00000980  77 0d 04 ec 16 f2 56 65  72 73 69 6f 6e 28 76 65  |w.....Version(ve|
00000990  72 73 69 6f 6e 24 29 0d  04 f6 0d f2 6d 61 69 6e  |rsion$).....main|
000009a0  6d 65 6e 75 0d 04 f7 10  f2 4c 6f 61 64 49 6d 70  |menu.....LoadImp|
000009b0  72 6f 76 73 0d 05 00 05  e1 0d 05 0a 05 3a 0d 05  |rovs.........:..|
000009c0  14 17 dd f2 56 65 72 73  69 6f 6e 28 76 65 72 73  |....Version(vers|
000009d0  69 6f 6e 24 29 0d 05 1e  1c 56 65 72 73 25 3d a4  |ion$)....Vers%=.|
000009e0  46 41 64 64 72 65 73 73  28 34 2c 49 6e 66 6f 25  |FAddress(4,Info%|
000009f0  29 0d 05 28 13 24 56 65  72 73 25 3d 76 65 72 73  |)..(.$Vers%=vers|
00000a00  69 6f 6e 24 0d 05 32 1d  52 4d 41 25 3d a4 46 41  |ion$..2.RMA%=.FA|
00000a10  64 64 72 65 73 73 28 31  33 2c 57 6f 72 6b 57 25  |ddress(13,WorkW%|
00000a20  29 0d 05 3c 1d 52 41 4d  25 3d a4 46 41 64 64 72  |)..<.RAM%=.FAddr|
00000a30  65 73 73 28 31 35 2c 57  6f 72 6b 57 25 29 0d 05  |ess(15,WorkW%)..|
00000a40  46 1c 49 4d 50 25 3d a4  46 41 64 64 72 65 73 73  |F.IMP%=.FAddress|
00000a50  28 35 2c 57 6f 72 6b 57  25 29 0d 05 50 05 e1 0d  |(5,WorkW%)..P...|
00000a60  05 5a 05 3a 0d 05 64 1d  dd a4 74 69 63 6b 28 57  |.Z.:..d...tick(W|
00000a70  69 6e 64 6f 77 25 2c 69  63 6f 6e 6e 25 2c 74 25  |indow%,iconn%,t%|
00000a80  29 0d 05 6e 0f 21 71 25  3d 57 69 6e 64 6f 77 25  |)..n.!q%=Window%|
00000a90  0d 05 78 0f 71 25 21 34  3d 69 63 6f 6e 6e 25 0d  |..x.q%!4=iconn%.|
00000aa0  05 82 1d c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |....."Wimp_GetIc|
00000ab0  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 05 8c 1b  |onState",,q%....|
00000ac0  c8 99 22 57 69 6d 70 5f  44 65 6c 65 74 65 49 63  |.."Wimp_DeleteIc|
00000ad0  6f 6e 22 2c 2c 71 25 0d  05 96 3c 71 25 21 34 3d  |on",,q%...<q%!4=|
00000ae0  71 25 21 38 3a 71 25 21  38 3d 71 25 21 31 32 3a  |q%!8:q%!8=q%!12:|
00000af0  71 25 21 31 32 3d 71 25  21 31 36 3a 71 25 21 31  |q%!12=q%!16:q%!1|
00000b00  36 3d 71 25 21 32 30 3a  71 25 21 32 30 3d 71 25  |6=q%!20:q%!20=q%|
00000b10  21 32 34 0d 05 a0 0c 74  25 3d 74 25 82 26 31 0d  |!24....t%=t%.&1.|
00000b20  05 aa 09 c8 8e 74 25 ca  0d 05 b4 16 c9 31 3a 24  |.....t%......1:$|
00000b30  28 71 25 2b 32 34 29 3d  22 74 62 6f 6e 22 0d 05  |(q%+24)="tbon"..|
00000b40  be 17 c9 30 3a 24 28 71  25 2b 32 34 29 3d 22 74  |...0:$(q%+24)="t|
00000b50  62 6f 66 66 22 0d 05 c8  05 cb 0d 05 d2 22 c8 99  |boff"........"..|
00000b60  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00000b70  22 2c 2c 71 25 b8 69 63  65 72 73 25 0d 05 dc 1b  |",,q%.icers%....|
00000b80  21 71 25 3d 57 69 6e 64  6f 77 25 3a 71 25 21 34  |!q%=Window%:q%!4|
00000b90  3d 69 63 6f 6e 6e 25 0d  05 e6 1d c8 99 22 57 69  |=iconn%......"Wi|
00000ba0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000bb0  2c 2c 71 25 0d 05 f0 34  c8 99 22 57 69 6d 70 5f  |,,q%...4.."Wimp_|
00000bc0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 71 25 21  |ForceRedraw",q%!|
00000bd0  30 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |0,q%!8,q%!12,q%!|
00000be0  31 36 2c 71 25 21 32 30  0d 05 fa 07 3d 74 25 0d  |16,q%!20....=t%.|
00000bf0  06 04 05 3a 0d 06 0e 11  dd f2 4c 6f 61 64 49 6d  |...:......LoadIm|
00000c00  70 72 6f 76 73 0d 06 0f  21 46 69 6c 65 24 3d 22  |provs...!File$="|
00000c10  3c 50 6f 6f 6c 53 70 72  24 44 69 72 3e 2e 49 6d  |<PoolSpr$Dir>.Im|
00000c20  70 72 6f 76 73 22 0d 06  18 26 c8 99 22 4f 53 5f  |provs"...&.."OS_|
00000c30  53 70 72 69 74 65 4f 70  22 2c 26 31 30 41 2c 49  |SpriteOp",&10A,I|
00000c40  6d 70 72 6f 76 25 2c 46  69 6c 65 24 0d 06 22 05  |mprov%,File$..".|
00000c50  e1 0d 06 2c 04 0d 06 36  04 0d 06 40 04 0d 06 4a  |...,...6...@...J|
00000c60  04 0d 06 54 04 0d 06 5e  04 0d 06 68 04 0d 06 72  |...T...^...h...r|
00000c70  04 0d 06 7c 04 0d 06 86  04 0d 06 90 04 0d 06 9a  |...|............|
00000c80  04 0d 06 a4 04 0d 06 ae  04 0d 06 b8 04 0d 06 c2  |................|
00000c90  04 0d 06 cc 04 0d 06 d6  04 0d 06 e0 04 0d 06 ea  |................|
00000ca0  04 0d 06 f4 04 0d 06 fe  04 0d 07 08 04 0d 07 12  |................|
00000cb0  05 3a 0d 07 1c 11 dd a4  4c 65 61 66 28 6c 65 61  |.:......Leaf(lea|
00000cc0  66 24 29 0d 07 26 2d c8  95 a7 6c 65 61 66 24 2c  |f$)..&-...leaf$,|
00000cd0  22 2e 22 29 3a 6c 65 61  66 24 3d c1 6c 65 61 66  |"."):leaf$=.leaf|
00000ce0  24 2c a7 6c 65 61 66 24  2c 22 2e 22 29 2b 31 29  |$,.leaf$,".")+1)|
00000cf0  0d 07 30 0c ce 3a 3d 6c  65 61 66 24 0d 07 3a 05  |..0..:=leaf$..:.|
00000d00  3a 0d 07 44 0a dd f2 44  72 61 67 0d 07 4e 0e 21  |:..D...Drag..N.!|
00000d10  71 25 3d 57 6f 72 6b 57  25 0d 07 58 1f c8 99 22  |q%=WorkW%..X..."|
00000d20  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000d30  61 74 65 22 2c 2c 71 25  0d 07 62 11 7a 25 3d 71  |ate",,q%..b.z%=q|
00000d40  25 21 31 36 2d 71 25 21  38 0d 07 6c 1b 78 25 3d  |%!16-q%!8..l.x%=|
00000d50  71 25 21 34 3a 79 25 3d  71 25 21 38 3a 71 25 21  |q%!4:y%=q%!8:q%!|
00000d60  34 3d 31 37 0d 07 76 04  0d 07 80 1d c8 99 22 57  |4=17..v......."W|
00000d70  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00000d80  22 2c 2c 71 25 0d 07 8a  19 71 25 21 38 2b 3d 78  |",,q%....q%!8+=x|
00000d90  25 3a 71 25 21 31 32 2b  3d 79 25 2b 7a 25 0d 07  |%:q%!12+=y%+z%..|
00000da0  94 1a 71 25 21 31 36 2b  3d 78 25 3a 71 25 21 32  |..q%!16+=x%:q%!2|
00000db0  30 2b 3d 79 25 2b 7a 25  0d 07 9e 13 71 25 21 32  |0+=y%+z%....q%!2|
00000dc0  34 3d 30 3a 71 25 21 32  38 3d 30 0d 07 a8 19 71  |4=0:q%!28=0....q|
00000dd0  25 21 33 32 3d 31 32 37  39 3a 71 25 21 33 36 3d  |%!32=1279:q%!36=|
00000de0  31 30 32 33 0d 07 b2 10  21 71 25 3d 30 3a 71 25  |1023....!q%=0:q%|
00000df0  21 34 3d 35 0d 07 bc 18  c8 99 22 57 69 6d 70 5f  |!4=5......"Wimp_|
00000e00  44 72 61 67 42 6f 78 22  2c 2c 71 25 0d 07 c6 05  |DragBox",,q%....|
00000e10  e1 0d 07 d0 05 3a 0d 07  da 0c dd f2 44 72 61 67  |.....:......Drag|
00000e20  65 64 0d 07 e4 04 0d 07  ee 09 21 71 25 3d 30 0d  |ed........!q%=0.|
00000e30  07 f8 1f c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |....."Wimp_GetPo|
00000e40  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 71 25 0d 08  |interInfo",,q%..|
00000e50  02 16 e7 20 71 25 21 31  32 3d 57 6f 72 6b 57 25  |... q%!12=WorkW%|
00000e60  20 8c 20 e1 0d 08 0c 04  0d 08 16 04 0d 08 20 22  | . ........... "|
00000e70  71 25 21 33 32 3d 71 25  21 34 20 20 20 3a 74 68  |q%!32=q%!4   :th|
00000e80  69 72 74 79 74 77 6f 25  3d 71 25 21 33 32 0d 08  |irtytwo%=q%!32..|
00000e90  2a 24 71 25 21 32 38 3d  21 71 25 20 20 20 20 3a  |*$q%!28=!q%    :|
00000ea0  74 77 65 6e 74 79 65 69  67 68 74 25 3d 71 25 21  |twentyeight%=q%!|
00000eb0  32 38 0d 08 34 23 71 25  21 32 34 3d 71 25 21 31  |28..4#q%!24=q%!1|
00000ec0  36 20 20 3a 74 77 65 6e  74 79 66 6f 75 72 25 3d  |6  :twentyfour%=|
00000ed0  71 25 21 32 34 0d 08 3e  1f 71 25 21 32 30 3d 71  |q%!24..>.q%!20=q|
00000ee0  25 21 31 32 20 20 3a 74  77 65 6e 74 79 25 3d 71  |%!12  :twenty%=q|
00000ef0  25 21 32 30 0d 08 48 0b  71 25 21 31 36 3d 31 0d  |%!20..H.q%!16=1.|
00000f00  08 52 0b 71 25 21 31 32  3d 30 0d 08 5c 10 71 25  |.R.q%!12=0..\.q%|
00000f10  21 33 36 3d 21 62 61 73  65 25 0d 08 66 0e 71 25  |!36=!base%..f.q%|
00000f20  21 34 30 3d 26 66 66 39  0d 08 70 1b 24 28 71 25  |!40=&ff9..p.$(q%|
00000f30  2b 34 34 29 3d 22 45 78  61 6d 70 6c 65 22 2b bd  |+44)="Example"+.|
00000f40  28 30 29 0d 08 7a 0a 21  71 25 3d 36 30 0d 08 84  |(0)..z.!q%=60...|
00000f50  2a c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |*.."Wimp_SendMes|
00000f60  73 61 67 65 22 2c 31 38  2c 71 25 2c 71 25 21 32  |sage",18,q%,q%!2|
00000f70  30 2c 71 25 21 32 34 0d  08 8e 05 e1 0d 08 98 05  |0,q%!24.........|
00000f80  3a 0d 08 a2 0e dd f2 6d  61 69 6e 6d 65 6e 75 0d  |:......mainmenu.|
00000f90  08 ac 07 ea 6d 25 0d 08  b6 10 6d 25 3d 6d 61 69  |....m%....m%=mai|
00000fa0  6e 6d 65 6e 75 25 0d 08  c0 4d 24 6d 25 3d 22 50  |nmenu%...M$m%="P|
00000fb0  6f 6f 6c 53 70 72 73 22  3a 6d 25 3f 31 32 3d 37  |oolSprs":m%?12=7|
00000fc0  3a 6d 25 3f 31 33 3d 33  3a 6d 25 3f 31 34 3d 37  |:m%?13=3:m%?14=7|
00000fd0  3a 6d 25 3f 31 35 3d 30  3a 6d 25 21 31 36 3d 31  |:m%?15=0:m%!16=1|
00000fe0  36 30 3a 6d 25 21 32 30  3d 34 34 3a 6d 25 21 32  |60:m%!20=44:m%!2|
00000ff0  34 3d 30 0d 08 ca 37 6d  25 21 32 38 3d 30 3a 6d  |4=0...7m%!28=0:m|
00001000  25 21 33 32 3d 49 6e 66  6f 25 3a 6d 25 21 33 36  |%!32=Info%:m%!36|
00001010  3d 26 30 37 30 30 30 30  32 31 3a 24 28 6d 25 2b  |=&07000021:$(m%+|
00001020  34 30 29 3d 22 49 6e 66  6f 22 0d 08 d4 36 6d 25  |40)="Info"...6m%|
00001030  21 35 32 3d 26 38 30 3a  6d 25 21 35 36 3d 2d 31  |!52=&80:m%!56=-1|
00001040  3a 6d 25 21 36 30 3d 26  30 37 30 30 30 30 32 31  |:m%!60=&07000021|
00001050  3a 24 28 6d 25 2b 36 34  29 3d 22 51 75 69 74 22  |:$(m%+64)="Quit"|
00001060  0d 08 de 04 0d 08 e8 04  0d 08 f2 05 e1 0d 08 fc  |................|
00001070  05 3a 0d 09 06 15 dd f2  74 65 6c 6c 65 6d 28 53  |.:......tellem(S|
00001080  74 72 69 6e 67 24 29 0d  09 10 09 21 62 25 3d 31  |tring$)....!b%=1|
00001090  0d 09 1a 18 24 28 62 25  2b 34 29 3d 53 74 72 69  |....$(b%+4)=Stri|
000010a0  6e 67 24 2b bd 28 30 29  0d 09 24 2b c8 99 22 57  |ng$+.(0)..$+.."W|
000010b0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
000010c0  2c 62 25 2c 31 2c 22 50  6f 6f 6c 53 70 72 69 74  |,b%,1,"PoolSprit|
000010d0  65 73 22 0d 09 2e 05 e1  0d 09 38 05 3a 0d 09 42  |es".......8.:..B|
000010e0  0d dd f2 6d 65 73 73 61  67 65 0d 09 4c 11 79 6f  |...message..L.yo|
000010f0  75 72 72 65 66 25 3d 62  25 21 38 0d 09 56 0c c8  |urref%=b%!8..V..|
00001100  8e 62 25 21 31 36 ca 0d  09 60 0e c9 30 3a 71 75  |.b%!16...`..0:qu|
00001110  69 74 25 3d b9 0d 09 6a  04 0d 09 74 20 c9 32 3a  |it%=...j...t .2:|
00001120  f2 53 61 76 65 53 70 72  69 74 65 73 28 a4 53 74  |.SaveSprites(.St|
00001130  72 28 62 25 2b 34 34 29  29 0d 09 7e 05 cb 0d 09  |r(b%+44))..~....|
00001140  88 05 e1 0d 09 92 05 3a  0d 09 9c 18 dd f2 53 61  |.......:......Sa|
00001150  76 65 53 70 72 69 74 65  73 28 46 69 6c 65 24 29  |veSprites(File$)|
00001160  0d 09 a6 17 42 52 6f 6f  74 24 3d a4 4c 65 61 66  |....BRoot$=.Leaf|
00001170  28 46 69 6c 65 24 29 0d  09 a7 14 52 6f 75 67 65  |(File$)....Rouge|
00001180  25 3d a9 28 42 52 6f 6f  74 24 29 0d 09 b0 21 52  |%=.(BRoot$)...!R|
00001190  6f 6f 74 24 3d c0 46 69  6c 65 24 2c a9 28 46 69  |oot$=.File$,.(Fi|
000011a0  6c 65 24 29 2d 52 6f 75  67 65 25 29 0d 09 ba 04  |le$)-Rouge%)....|
000011b0  0d 09 c4 0d e7 20 54 52  4d 41 25 20 8c 0d 09 ce  |..... TRMA% ....|
000011c0  2e c8 99 20 22 58 4f 53  5f 53 70 72 69 74 65 4f  |... "XOS_SpriteO|
000011d0  70 22 2c 32 35 36 2b 31  32 2c 62 61 73 65 25 2c  |p",256+12,base%,|
000011e0  52 6f 6f 74 24 2b 24 52  4d 41 25 0d 09 d8 05 cd  |Root$+$RMA%.....|
000011f0  0d 09 e2 0d e7 20 54 52  41 4d 25 20 8c 0d 09 ec  |..... TRAM% ....|
00001200  04 0d 09 f6 27 c8 99 20  22 57 69 6d 70 5f 53 70  |....'.. "Wimp_Sp|
00001210  72 69 74 65 4f 70 22 2c  32 36 38 2c 2c 52 6f 6f  |riteOp",268,,Roo|
00001220  74 24 2b 24 52 41 4d 25  0d 0a 00 05 cd 0d 0a 0a  |t$+$RAM%........|
00001230  0d e7 20 54 49 4d 50 25  20 8c 0d 0a 14 30 c8 99  |.. TIMP% ....0..|
00001240  20 22 58 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  | "XOS_SpriteOp",|
00001250  32 35 36 2b 31 32 2c 49  6d 70 72 6f 76 25 2c 52  |256+12,Improv%,R|
00001260  6f 6f 74 24 2b 24 49 4d  50 25 0d 0a 1e 04 0d 0a  |oot$+$IMP%......|
00001270  28 05 cd 0d 0a 32 05 e1  0d 0a 3c 04 0d 0a 46 05  |(....2....<...F.|
00001280  3a 0d 0a 50 1c dd a4 46  41 64 64 72 65 73 73 28  |:..P...FAddress(|
00001290  69 63 6f 6e 25 2c 77 69  6e 64 77 25 29 0d 0a 5a  |icon%,windw%)..Z|
000012a0  0e 21 71 25 3d 77 69 6e  64 77 25 0d 0a 64 0e 71  |.!q%=windw%..d.q|
000012b0  25 21 34 3d 69 63 6f 6e  25 0d 0a 6e 1d c8 99 22  |%!4=icon%..n..."|
000012c0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000012d0  65 22 2c 2c 71 25 0d 0a  78 0a 3d 71 25 21 32 38  |e",,q%..x.=q%!28|
000012e0  0d 0a 82 05 3a 0d 0a 8c  0f dd a4 53 74 72 28 70  |....:......Str(p|
000012f0  74 72 25 29 0d 0a 96 09  53 24 3d 22 22 0d 0a a0  |tr%)....S$=""...|
00001300  18 c8 95 3f 70 74 72 25  3a 53 24 2b 3d bd 28 3f  |...?ptr%:S$+=.(?|
00001310  70 74 72 25 29 0d 0a aa  11 70 74 72 25 2b 3d 31  |ptr%)....ptr%+=1|
00001320  3a ce 3a 3d 53 24 0d ff                           |:.:=S$..|
00001328