� >!RunImage
A� This version of !RunImage uses the 'ArcWeb launch' protocol
B� to fetch web pages. It should only be used if you don't want

3� to support the developing Acorn URI protocol.
testing%=�
)ț "<BasicLibrary$File>":�initlibrary
(=� � �closemessages:�eerror:� testing%=� ��("Spool"):� � �
2 � testing%=� �*Spool Spooled
<� testing%=� �� �
F5� Appname$ is used for task manager & Appname$Dir
PD� shortname$ is used for iconbar name and should usually be null
Z'� longname$ is used for info window
d7� AppURL$ is used to for clicks on the version icon
n2Appname$="?????":version$="1.00 (?? ??? ????)"
x#shortname$="":longname$="?????"
�'Appdir$=�systemvar(Appname$+"$Dir")
�9AppURL$="http://users.essex.ac.uk/users/gerph/acorn/"
��initwimp:�initprog
�quit%=�:init%=�
�� � �error
�� � init% �
� go$=�GetEnv:init%=�
�- � go$<>"" ��loadfile(go$,�filetype(go$))
��
�ȕ quit%=�
�
 �Poll
��
�ș "Wimp_CloseDown"

�closemessages

� testing%=� �*SPOOL

�

"5� quit%=-1 for user quit, -2 for taskmanager quit

,:

6
��Poll

@!ș "Wimp_Poll",1,b% � reason%

JȎ reason% �

T � 1 = Redraw window

^! � 2:ș "Wimp_OpenWindow",,b%

h" � 3:ș "Wimp_CloseWindow",,b%

r& � 6:�mouseclick(b%!8,b%!12,b%!16)

|+ � 7 = Drag box dropped on another task

�% � 8:�processkey(b%!0,b%!4,b%!24)

� � 9:�menuchoice

� � 17,18:�receive(b%!16)

� � 19:�receiveack(b%!16)

��

��

�:

�0� Buttons : 1 = Adjust, 2 = Menu, 4 = Select

���mouseclick(but,win,icon)

�Ȏ win �

�	 � -2

�  Ȏ but �

�   � 2:�ibmenu
  �
 � infobox%
  Ȏ icon �
&>   � 3:�FetchPage("http://users.essex.ac.uk/users/gerph/")
0   � 4:�FetchPage(AppURL$)
:  �
D�
N�
X:
b��processkey(win,icon,key)
l� keydone:keydone=�
vȎ win �
��
�)� � keydone �ș "Wimp_ProcessKey",key
��
�:
���menuchoice
�Dș"Wimp_GetPointerInfo",,message_buffer%:mbut%=message_buffer%!8
�m$=�decodemenu(curmenu%)
�Ȏ m$ �
� � "Quit":quit%=�
��
�-� (mbut%�1)=1 ��recreatemenu �curmenu%=-1
��
�:
��receive(mess)

Ȏ mess �
 � &400C1 = mode change
  � &400C2 = task start up
* � &400C3 = task shut down
4 � 0:quit%=�*2
> � 3,5:type=b%!40
H  � type = &8888 �
R   b%!12=b%!8:b%!16=4
\&   ș"Wimp_SendMessage",17,b%,b%!4
f'   �loadfile(�string0(b%+44),b%!40)
p  �
z# � &502:�Help(b%!32,b%!36,b%!4)
� � 10:�desktopsave(b%!20)
�, � &4A266:� ArcWeb fetch done (error/ok)
�.  ș "OS_File",6,"<Wimp$ScrapDir>."+�b%!20
��
��
�:
���receiveack(mess)
�
Ȏ mess �
�# � &4A265:� ArcWeb fetch failed
�8  �#(b%!28):ș "OS_File",6,"<Wimp$ScrapDir>."+�b%!20
��
��
�:
��desktopsave(file%)
� �
;� � � b%!12=b%!8:ș "Wimp_SendMessage",19,b%,b%!4:� �:�
$@� The above line acknowledges the message if an error occurs
. � aborting the desktop save.
8�#file%,"Run "+Appdir$
B�
C:
D��loadfile(file$,type)
E
Ȏ type �
F�
G�
L:
V/� Any messages to be received MUST be noted
`��initwimp
j!� messagelist% 256:messptr%=0
t'�notemessage(&502):�notemessage(10)
~-�notemessage(&4A265):�notemessage(&4A266)
��notemessage(0)
�Uș "Wimp_Initialise",310,&4B534154,Appname$,messagelist% � wimpversion,taskhandle
�Gindl%=1024:menul%=1024:� b% 2048,ind% indl%,menu% menul%,wspc% &800
�curmenu%=-1
��openmessages
�0� sprites%=FNloadsprites(Appdir$+".Sprites")
�$infobox%=�loadtemplate("Info",1)
�%�seticontext(infobox%,1,Appname$)
�&�seticontext(infobox%,2,longname$)
�%�seticontext(infobox%,4,version$)
�:ibhandle=�CreateIconBarIcon("!"+Appname$,shortname$,1)
�8ibmenu%=�createmenu(Appname$+"|Info]>infobox%|Quit")
iboptions%=options%

�
:
��initprog
(�
2:
<��Help(win,icon,to)
F!� �DdE:�readhelp(win,icon,to)
P�
Z
� Windows
d� infobox%,">HInfobox"
n� 3,">HInfobox3"
x� 4,">HInfobox4"
�� -2,">HIconbar"
�� -1,-1
�� Menus
�� -2,-2,-2,-2
�:
���FetchPage(f$)
�'� �systemvar("Wimp$ScrapDir")<>"" �
�< f%=0:ȕ �filelength("<Wimp$ScrapDir>."+�f%)<>-1:f%+=1:�
�! o%=�("<Wimp$ScrapDir>."+�f%)
� �#o%,f$:�#o%=0
�0 !b%=32:b%!8=0:b%!12=0:b%!16=&4A265:b%!20=f%
�9 b%!24=(1<<22):b%!28=o%:ș "Wimp_SendMessage",18,b%,0
��
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 0b 41 f4 20 54 68  69 73 20 76 65 72 73 69  |...A. This versi|
00000020  6f 6e 20 6f 66 20 21 52  75 6e 49 6d 61 67 65 20  |on of !RunImage |
00000030  75 73 65 73 20 74 68 65  20 27 41 72 63 57 65 62  |uses the 'ArcWeb|
00000040  20 6c 61 75 6e 63 68 27  20 70 72 6f 74 6f 63 6f  | launch' protoco|
00000050  6c 0d 00 0c 42 f4 20 74  6f 20 66 65 74 63 68 20  |l...B. to fetch |
00000060  77 65 62 20 70 61 67 65  73 2e 20 49 74 20 73 68  |web pages. It sh|
00000070  6f 75 6c 64 20 6f 6e 6c  79 20 62 65 20 75 73 65  |ould only be use|
00000080  64 20 69 66 20 79 6f 75  20 64 6f 6e 27 74 20 77  |d if you don't w|
00000090  61 6e 74 0d 00 0d 33 f4  20 74 6f 20 73 75 70 70  |ant...3. to supp|
000000a0  6f 72 74 20 74 68 65 20  64 65 76 65 6c 6f 70 69  |ort the developi|
000000b0  6e 67 20 41 63 6f 72 6e  20 55 52 49 20 70 72 6f  |ng Acorn URI pro|
000000c0  74 6f 63 6f 6c 2e 0d 00  14 0e 74 65 73 74 69 6e  |tocol.....testin|
000000d0  67 25 3d a3 0d 00 1e 29  c8 9b 20 22 3c 42 61 73  |g%=....).. "<Bas|
000000e0  69 63 4c 69 62 72 61 72  79 24 46 69 6c 65 3e 22  |icLibrary$File>"|
000000f0  3a f2 69 6e 69 74 6c 69  62 72 61 72 79 0d 00 28  |:.initlibrary..(|
00000100  3d ee 20 85 20 f2 63 6c  6f 73 65 6d 65 73 73 61  |=. . .closemessa|
00000110  67 65 73 3a f2 65 65 72  72 6f 72 3a e7 20 74 65  |ges:.eerror:. te|
00000120  73 74 69 6e 67 25 3d b9  20 8c ff 28 22 53 70 6f  |sting%=. ..("Spo|
00000130  6f 6c 22 29 3a e0 20 8b  20 e0 0d 00 32 20 e7 20  |ol"):. . ...2 . |
00000140  74 65 73 74 69 6e 67 25  3d b9 20 8c 2a 53 70 6f  |testing%=. .*Spo|
00000150  6f 6c 20 53 70 6f 6f 6c  65 64 0d 00 3c 15 e7 20  |ol Spooled..<.. |
00000160  74 65 73 74 69 6e 67 25  3d b9 20 8c fc 20 ee 0d  |testing%=. .. ..|
00000170  00 46 35 f4 20 41 70 70  6e 61 6d 65 24 20 69 73  |.F5. Appname$ is|
00000180  20 75 73 65 64 20 66 6f  72 20 74 61 73 6b 20 6d  | used for task m|
00000190  61 6e 61 67 65 72 20 26  20 41 70 70 6e 61 6d 65  |anager & Appname|
000001a0  24 44 69 72 0d 00 50 44  f4 20 73 68 6f 72 74 6e  |$Dir..PD. shortn|
000001b0  61 6d 65 24 20 69 73 20  75 73 65 64 20 66 6f 72  |ame$ is used for|
000001c0  20 69 63 6f 6e 62 61 72  20 6e 61 6d 65 20 61 6e  | iconbar name an|
000001d0  64 20 73 68 6f 75 6c 64  20 75 73 75 61 6c 6c 79  |d should usually|
000001e0  20 62 65 20 6e 75 6c 6c  0d 00 5a 27 f4 20 6c 6f  | be null..Z'. lo|
000001f0  6e 67 6e 61 6d 65 24 20  69 73 20 75 73 65 64 20  |ngname$ is used |
00000200  66 6f 72 20 69 6e 66 6f  20 77 69 6e 64 6f 77 0d  |for info window.|
00000210  00 64 37 f4 20 41 70 70  55 52 4c 24 20 69 73 20  |.d7. AppURL$ is |
00000220  75 73 65 64 20 74 6f 20  66 6f 72 20 63 6c 69 63  |used to for clic|
00000230  6b 73 20 6f 6e 20 74 68  65 20 76 65 72 73 69 6f  |ks on the versio|
00000240  6e 20 69 63 6f 6e 0d 00  6e 32 41 70 70 6e 61 6d  |n icon..n2Appnam|
00000250  65 24 3d 22 3f 3f 3f 3f  3f 22 3a 76 65 72 73 69  |e$="?????":versi|
00000260  6f 6e 24 3d 22 31 2e 30  30 20 28 3f 3f 20 3f 3f  |on$="1.00 (?? ??|
00000270  3f 20 3f 3f 3f 3f 29 22  0d 00 78 23 73 68 6f 72  |? ????)"..x#shor|
00000280  74 6e 61 6d 65 24 3d 22  22 3a 6c 6f 6e 67 6e 61  |tname$="":longna|
00000290  6d 65 24 3d 22 3f 3f 3f  3f 3f 22 0d 00 82 27 41  |me$="?????"...'A|
000002a0  70 70 64 69 72 24 3d a4  73 79 73 74 65 6d 76 61  |ppdir$=.systemva|
000002b0  72 28 41 70 70 6e 61 6d  65 24 2b 22 24 44 69 72  |r(Appname$+"$Dir|
000002c0  22 29 0d 00 8c 39 41 70  70 55 52 4c 24 3d 22 68  |")...9AppURL$="h|
000002d0  74 74 70 3a 2f 2f 75 73  65 72 73 2e 65 73 73 65  |ttp://users.esse|
000002e0  78 2e 61 63 2e 75 6b 2f  75 73 65 72 73 2f 67 65  |x.ac.uk/users/ge|
000002f0  72 70 68 2f 61 63 6f 72  6e 2f 22 0d 00 96 17 f2  |rph/acorn/".....|
00000300  69 6e 69 74 77 69 6d 70  3a f2 69 6e 69 74 70 72  |initwimp:.initpr|
00000310  6f 67 0d 00 a0 13 71 75  69 74 25 3d a3 3a 69 6e  |og....quit%=.:in|
00000320  69 74 25 3d a3 0d 00 aa  0e ee 20 85 20 f2 65 72  |it%=...... . .er|
00000330  72 6f 72 0d 00 b4 0f e7  20 ac 20 69 6e 69 74 25  |ror..... . init%|
00000340  20 8c 0d 00 be 18 20 67  6f 24 3d a4 47 65 74 45  | ..... go$=.GetE|
00000350  6e 76 3a 69 6e 69 74 25  3d b9 0d 00 c8 2d 20 e7  |nv:init%=....- .|
00000360  20 67 6f 24 3c 3e 22 22  20 8c f2 6c 6f 61 64 66  | go$<>"" ..loadf|
00000370  69 6c 65 28 67 6f 24 2c  a4 66 69 6c 65 74 79 70  |ile(go$,.filetyp|
00000380  65 28 67 6f 24 29 29 0d  00 d2 05 cd 0d 00 dc 0e  |e(go$)).........|
00000390  c8 95 20 71 75 69 74 25  3d a3 0d 00 e6 0a 20 f2  |.. quit%=..... .|
000003a0  50 6f 6c 6c 0d 00 f0 05  ce 0d 00 fa 17 c8 99 20  |Poll........... |
000003b0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000003c0  0d 01 04 12 f2 63 6c 6f  73 65 6d 65 73 73 61 67  |.....closemessag|
000003d0  65 73 0d 01 0e 18 e7 20  74 65 73 74 69 6e 67 25  |es..... testing%|
000003e0  3d b9 20 8c 2a 53 50 4f  4f 4c 0d 01 18 05 e0 0d  |=. .*SPOOL......|
000003f0  01 22 35 f4 20 71 75 69  74 25 3d 2d 31 20 66 6f  |."5. quit%=-1 fo|
00000400  72 20 75 73 65 72 20 71  75 69 74 2c 20 2d 32 20  |r user quit, -2 |
00000410  66 6f 72 20 74 61 73 6b  6d 61 6e 61 67 65 72 20  |for taskmanager |
00000420  71 75 69 74 0d 01 2c 05  3a 0d 01 36 0a dd f2 50  |quit..,.:..6...P|
00000430  6f 6c 6c 0d 01 40 21 c8  99 20 22 57 69 6d 70 5f  |oll..@!.. "Wimp_|
00000440  50 6f 6c 6c 22 2c 31 2c  62 25 20 b8 20 72 65 61  |Poll",1,b% . rea|
00000450  73 6f 6e 25 0d 01 4a 10  c8 8e 20 72 65 61 73 6f  |son%..J... reaso|
00000460  6e 25 20 ca 0d 01 54 18  20 f4 20 31 20 3d 20 52  |n% ...T. . 1 = R|
00000470  65 64 72 61 77 20 77 69  6e 64 6f 77 0d 01 5e 21  |edraw window..^!|
00000480  20 c9 20 32 3a c8 99 20  22 57 69 6d 70 5f 4f 70  | . 2:.. "Wimp_Op|
00000490  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 01 68  |enWindow",,b%..h|
000004a0  22 20 c9 20 33 3a c8 99  20 22 57 69 6d 70 5f 43  |" . 3:.. "Wimp_C|
000004b0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |loseWindow",,b%.|
000004c0  01 72 26 20 c9 20 36 3a  f2 6d 6f 75 73 65 63 6c  |.r& . 6:.mousecl|
000004d0  69 63 6b 28 62 25 21 38  2c 62 25 21 31 32 2c 62  |ick(b%!8,b%!12,b|
000004e0  25 21 31 36 29 0d 01 7c  2b 20 f4 20 37 20 3d 20  |%!16)..|+ . 7 = |
000004f0  44 72 61 67 20 62 6f 78  20 64 72 6f 70 70 65 64  |Drag box dropped|
00000500  20 6f 6e 20 61 6e 6f 74  68 65 72 20 74 61 73 6b  | on another task|
00000510  0d 01 86 25 20 c9 20 38  3a f2 70 72 6f 63 65 73  |...% . 8:.proces|
00000520  73 6b 65 79 28 62 25 21  30 2c 62 25 21 34 2c 62  |skey(b%!0,b%!4,b|
00000530  25 21 32 34 29 0d 01 90  14 20 c9 20 39 3a f2 6d  |%!24).... . 9:.m|
00000540  65 6e 75 63 68 6f 69 63  65 0d 01 9a 1c 20 c9 20  |enuchoice.... . |
00000550  31 37 2c 31 38 3a f2 72  65 63 65 69 76 65 28 62  |17,18:.receive(b|
00000560  25 21 31 36 29 0d 01 a4  1c 20 c9 20 31 39 3a f2  |%!16).... . 19:.|
00000570  72 65 63 65 69 76 65 61  63 6b 28 62 25 21 31 36  |receiveack(b%!16|
00000580  29 0d 01 ae 05 cb 0d 01  b8 05 e1 0d 01 c2 05 3a  |)..............:|
00000590  0d 01 cc 30 f4 20 42 75  74 74 6f 6e 73 20 3a 20  |...0. Buttons : |
000005a0  31 20 3d 20 41 64 6a 75  73 74 2c 20 32 20 3d 20  |1 = Adjust, 2 = |
000005b0  4d 65 6e 75 2c 20 34 20  3d 20 53 65 6c 65 63 74  |Menu, 4 = Select|
000005c0  0d 01 d6 1e dd f2 6d 6f  75 73 65 63 6c 69 63 6b  |......mouseclick|
000005d0  28 62 75 74 2c 77 69 6e  2c 69 63 6f 6e 29 0d 01  |(but,win,icon)..|
000005e0  e0 0c c8 8e 20 77 69 6e  20 ca 0d 01 ea 09 20 c9  |.... win ..... .|
000005f0  20 2d 32 0d 01 f4 0e 20  20 c8 8e 20 62 75 74 20  | -2....  .. but |
00000600  ca 0d 01 fe 12 20 20 20  c9 20 32 3a f2 69 62 6d  |.....   . 2:.ibm|
00000610  65 6e 75 0d 02 08 07 20  20 cb 0d 02 12 0f 20 c9  |enu....  ..... .|
00000620  20 69 6e 66 6f 62 6f 78  25 0d 02 1c 0f 20 20 c8  | infobox%....  .|
00000630  8e 20 69 63 6f 6e 20 ca  0d 02 26 3e 20 20 20 c9  |. icon ...&>   .|
00000640  20 33 3a f2 46 65 74 63  68 50 61 67 65 28 22 68  | 3:.FetchPage("h|
00000650  74 74 70 3a 2f 2f 75 73  65 72 73 2e 65 73 73 65  |ttp://users.esse|
00000660  78 2e 61 63 2e 75 6b 2f  75 73 65 72 73 2f 67 65  |x.ac.uk/users/ge|
00000670  72 70 68 2f 22 29 0d 02  30 1e 20 20 20 c9 20 34  |rph/")..0.   . 4|
00000680  3a f2 46 65 74 63 68 50  61 67 65 28 41 70 70 55  |:.FetchPage(AppU|
00000690  52 4c 24 29 0d 02 3a 07  20 20 cb 0d 02 44 05 cb  |RL$)..:.  ...D..|
000006a0  0d 02 4e 05 e1 0d 02 58  05 3a 0d 02 62 1e dd f2  |..N....X.:..b...|
000006b0  70 72 6f 63 65 73 73 6b  65 79 28 77 69 6e 2c 69  |processkey(win,i|
000006c0  63 6f 6e 2c 6b 65 79 29  0d 02 6c 17 ea 20 6b 65  |con,key)..l.. ke|
000006d0  79 64 6f 6e 65 3a 6b 65  79 64 6f 6e 65 3d a3 0d  |ydone:keydone=..|
000006e0  02 76 0c c8 8e 20 77 69  6e 20 ca 0d 02 80 05 cb  |.v... win ......|
000006f0  0d 02 8a 29 e7 20 ac 20  6b 65 79 64 6f 6e 65 20  |...). . keydone |
00000700  8c c8 99 20 22 57 69 6d  70 5f 50 72 6f 63 65 73  |... "Wimp_Proces|
00000710  73 4b 65 79 22 2c 6b 65  79 0d 02 94 05 e1 0d 02  |sKey",key.......|
00000720  9e 05 3a 0d 02 a8 10 dd  f2 6d 65 6e 75 63 68 6f  |..:......menucho|
00000730  69 63 65 0d 02 b2 44 c8  99 22 57 69 6d 70 5f 47  |ice...D.."Wimp_G|
00000740  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00000750  6d 65 73 73 61 67 65 5f  62 75 66 66 65 72 25 3a  |message_buffer%:|
00000760  6d 62 75 74 25 3d 6d 65  73 73 61 67 65 5f 62 75  |mbut%=message_bu|
00000770  66 66 65 72 25 21 38 0d  02 bc 1c 6d 24 3d a4 64  |ffer%!8....m$=.d|
00000780  65 63 6f 64 65 6d 65 6e  75 28 63 75 72 6d 65 6e  |ecodemenu(curmen|
00000790  75 25 29 0d 02 c6 0b c8  8e 20 6d 24 20 ca 0d 02  |u%)...... m$ ...|
000007a0  d0 15 20 c9 20 22 51 75  69 74 22 3a 71 75 69 74  |.. . "Quit":quit|
000007b0  25 3d b9 0d 02 da 05 cb  0d 02 e4 2d e7 20 28 6d  |%=.........-. (m|
000007c0  62 75 74 25 80 31 29 3d  31 20 8c f2 72 65 63 72  |but%.1)=1 ..recr|
000007d0  65 61 74 65 6d 65 6e 75  20 8b 63 75 72 6d 65 6e  |eatemenu .curmen|
000007e0  75 25 3d 2d 31 0d 02 ee  05 e1 0d 02 f8 05 3a 0d  |u%=-1.........:.|
000007f0  03 02 13 dd f2 72 65 63  65 69 76 65 28 6d 65 73  |.....receive(mes|
00000800  73 29 0d 03 0c 0d c8 8e  20 6d 65 73 73 20 ca 0d  |s)...... mess ..|
00000810  03 16 1b 20 f4 20 26 34  30 30 43 31 20 3d 20 6d  |... . &400C1 = m|
00000820  6f 64 65 20 63 68 61 6e  67 65 0d 03 20 1d 20 f4  |ode change.. . .|
00000830  20 26 34 30 30 43 32 20  3d 20 74 61 73 6b 20 73  | &400C2 = task s|
00000840  74 61 72 74 20 75 70 0d  03 2a 1e 20 f4 20 26 34  |tart up..*. . &4|
00000850  30 30 43 33 20 3d 20 74  61 73 6b 20 73 68 75 74  |00C3 = task shut|
00000860  20 64 6f 77 6e 0d 03 34  12 20 c9 20 30 3a 71 75  | down..4. . 0:qu|
00000870  69 74 25 3d b9 2a 32 0d  03 3e 15 20 c9 20 33 2c  |it%=.*2..>. . 3,|
00000880  35 3a 74 79 70 65 3d 62  25 21 34 30 0d 03 48 16  |5:type=b%!40..H.|
00000890  20 20 e7 20 74 79 70 65  20 3d 20 26 38 38 38 38  |  . type = &8888|
000008a0  20 8c 0d 03 52 19 20 20  20 62 25 21 31 32 3d 62  | ...R.   b%!12=b|
000008b0  25 21 38 3a 62 25 21 31  36 3d 34 0d 03 5c 26 20  |%!8:b%!16=4..\& |
000008c0  20 20 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |  .."Wimp_SendMe|
000008d0  73 73 61 67 65 22 2c 31  37 2c 62 25 2c 62 25 21  |ssage",17,b%,b%!|
000008e0  34 0d 03 66 27 20 20 20  f2 6c 6f 61 64 66 69 6c  |4..f'   .loadfil|
000008f0  65 28 a4 73 74 72 69 6e  67 30 28 62 25 2b 34 34  |e(.string0(b%+44|
00000900  29 2c 62 25 21 34 30 29  0d 03 70 07 20 20 cd 0d  |),b%!40)..p.  ..|
00000910  03 7a 23 20 c9 20 26 35  30 32 3a f2 48 65 6c 70  |.z# . &502:.Help|
00000920  28 62 25 21 33 32 2c 62  25 21 33 36 2c 62 25 21  |(b%!32,b%!36,b%!|
00000930  34 29 0d 03 84 1d 20 c9  20 31 30 3a f2 64 65 73  |4).... . 10:.des|
00000940  6b 74 6f 70 73 61 76 65  28 62 25 21 32 30 29 0d  |ktopsave(b%!20).|
00000950  03 8e 2c 20 c9 20 26 34  41 32 36 36 3a f4 20 41  |.., . &4A266:. A|
00000960  72 63 57 65 62 20 66 65  74 63 68 20 64 6f 6e 65  |rcWeb fetch done|
00000970  20 28 65 72 72 6f 72 2f  6f 6b 29 0d 03 98 2e 20  | (error/ok).... |
00000980  20 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 36 2c  | .. "OS_File",6,|
00000990  22 3c 57 69 6d 70 24 53  63 72 61 70 44 69 72 3e  |"<Wimp$ScrapDir>|
000009a0  2e 22 2b c3 62 25 21 32  30 0d 03 a2 05 cb 0d 03  |."+.b%!20.......|
000009b0  ac 05 e1 0d 03 b6 05 3a  0d 03 c0 16 dd f2 72 65  |.......:......re|
000009c0  63 65 69 76 65 61 63 6b  28 6d 65 73 73 29 0d 03  |ceiveack(mess)..|
000009d0  ca 0d c8 8e 20 6d 65 73  73 20 ca 0d 03 d4 23 20  |.... mess ....# |
000009e0  c9 20 26 34 41 32 36 35  3a f4 20 41 72 63 57 65  |. &4A265:. ArcWe|
000009f0  62 20 66 65 74 63 68 20  66 61 69 6c 65 64 0d 03  |b fetch failed..|
00000a00  de 38 20 20 d9 23 28 62  25 21 32 38 29 3a c8 99  |.8  .#(b%!28):..|
00000a10  20 22 4f 53 5f 46 69 6c  65 22 2c 36 2c 22 3c 57  | "OS_File",6,"<W|
00000a20  69 6d 70 24 53 63 72 61  70 44 69 72 3e 2e 22 2b  |imp$ScrapDir>."+|
00000a30  c3 62 25 21 32 30 0d 03  e8 05 cb 0d 03 f2 05 e1  |.b%!20..........|
00000a40  0d 03 fc 05 3a 0d 04 06  18 dd f2 64 65 73 6b 74  |....:......deskt|
00000a50  6f 70 73 61 76 65 28 66  69 6c 65 25 29 0d 04 10  |opsave(file%)...|
00000a60  07 ea 20 85 0d 04 1a 3b  ee 20 85 20 ea 20 62 25  |.. ....;. . . b%|
00000a70  21 31 32 3d 62 25 21 38  3a c8 99 20 22 57 69 6d  |!12=b%!8:.. "Wim|
00000a80  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00000a90  39 2c 62 25 2c 62 25 21  34 3a f7 20 85 3a e1 0d  |9,b%,b%!4:. .:..|
00000aa0  04 24 40 f4 20 54 68 65  20 61 62 6f 76 65 20 6c  |.$@. The above l|
00000ab0  69 6e 65 20 61 63 6b 6e  6f 77 6c 65 64 67 65 73  |ine acknowledges|
00000ac0  20 74 68 65 20 6d 65 73  73 61 67 65 20 69 66 20  | the message if |
00000ad0  61 6e 20 65 72 72 6f 72  20 6f 63 63 75 72 73 0d  |an error occurs.|
00000ae0  04 2e 20 f4 20 61 62 6f  72 74 69 6e 67 20 74 68  |.. . aborting th|
00000af0  65 20 64 65 73 6b 74 6f  70 20 73 61 76 65 2e 0d  |e desktop save..|
00000b00  04 38 1a d5 23 66 69 6c  65 25 2c 22 52 75 6e 20  |.8..#file%,"Run |
00000b10  22 2b 41 70 70 64 69 72  24 0d 04 42 05 e1 0d 04  |"+Appdir$..B....|
00000b20  43 05 3a 0d 04 44 1a dd  f2 6c 6f 61 64 66 69 6c  |C.:..D...loadfil|
00000b30  65 28 66 69 6c 65 24 2c  74 79 70 65 29 0d 04 45  |e(file$,type)..E|
00000b40  0d c8 8e 20 74 79 70 65  20 ca 0d 04 46 05 cb 0d  |... type ...F...|
00000b50  04 47 05 e1 0d 04 4c 05  3a 0d 04 56 2f f4 20 41  |.G....L.:..V/. A|
00000b60  6e 79 20 6d 65 73 73 61  67 65 73 20 74 6f 20 62  |ny messages to b|
00000b70  65 20 72 65 63 65 69 76  65 64 20 4d 55 53 54 20  |e received MUST |
00000b80  62 65 20 6e 6f 74 65 64  0d 04 60 0e dd f2 69 6e  |be noted..`...in|
00000b90  69 74 77 69 6d 70 0d 04  6a 21 de 20 6d 65 73 73  |itwimp..j!. mess|
00000ba0  61 67 65 6c 69 73 74 25  20 32 35 36 3a 6d 65 73  |agelist% 256:mes|
00000bb0  73 70 74 72 25 3d 30 0d  04 74 27 f2 6e 6f 74 65  |sptr%=0..t'.note|
00000bc0  6d 65 73 73 61 67 65 28  26 35 30 32 29 3a f2 6e  |message(&502):.n|
00000bd0  6f 74 65 6d 65 73 73 61  67 65 28 31 30 29 0d 04  |otemessage(10)..|
00000be0  7e 2d f2 6e 6f 74 65 6d  65 73 73 61 67 65 28 26  |~-.notemessage(&|
00000bf0  34 41 32 36 35 29 3a f2  6e 6f 74 65 6d 65 73 73  |4A265):.notemess|
00000c00  61 67 65 28 26 34 41 32  36 36 29 0d 04 88 13 f2  |age(&4A266).....|
00000c10  6e 6f 74 65 6d 65 73 73  61 67 65 28 30 29 0d 04  |notemessage(0)..|
00000c20  92 55 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.U.. "Wimp_Initi|
00000c30  61 6c 69 73 65 22 2c 33  31 30 2c 26 34 42 35 33  |alise",310,&4B53|
00000c40  34 31 35 34 2c 41 70 70  6e 61 6d 65 24 2c 6d 65  |4154,Appname$,me|
00000c50  73 73 61 67 65 6c 69 73  74 25 20 b8 20 77 69 6d  |ssagelist% . wim|
00000c60  70 76 65 72 73 69 6f 6e  2c 74 61 73 6b 68 61 6e  |pversion,taskhan|
00000c70  64 6c 65 0d 04 9c 47 69  6e 64 6c 25 3d 31 30 32  |dle...Gindl%=102|
00000c80  34 3a 6d 65 6e 75 6c 25  3d 31 30 32 34 3a de 20  |4:menul%=1024:. |
00000c90  62 25 20 32 30 34 38 2c  69 6e 64 25 20 69 6e 64  |b% 2048,ind% ind|
00000ca0  6c 25 2c 6d 65 6e 75 25  20 6d 65 6e 75 6c 25 2c  |l%,menu% menul%,|
00000cb0  77 73 70 63 25 20 26 38  30 30 0d 04 a6 0f 63 75  |wspc% &800....cu|
00000cc0  72 6d 65 6e 75 25 3d 2d  31 0d 04 b0 11 f2 6f 70  |rmenu%=-1.....op|
00000cd0  65 6e 6d 65 73 73 61 67  65 73 0d 04 ba 30 f4 20  |enmessages...0. |
00000ce0  73 70 72 69 74 65 73 25  3d 46 4e 6c 6f 61 64 73  |sprites%=FNloads|
00000cf0  70 72 69 74 65 73 28 41  70 70 64 69 72 24 2b 22  |prites(Appdir$+"|
00000d00  2e 53 70 72 69 74 65 73  22 29 0d 04 c4 24 69 6e  |.Sprites")...$in|
00000d10  66 6f 62 6f 78 25 3d a4  6c 6f 61 64 74 65 6d 70  |fobox%=.loadtemp|
00000d20  6c 61 74 65 28 22 49 6e  66 6f 22 2c 31 29 0d 04  |late("Info",1)..|
00000d30  ce 25 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 69  |.%.seticontext(i|
00000d40  6e 66 6f 62 6f 78 25 2c  31 2c 41 70 70 6e 61 6d  |nfobox%,1,Appnam|
00000d50  65 24 29 0d 04 d8 26 f2  73 65 74 69 63 6f 6e 74  |e$)...&.seticont|
00000d60  65 78 74 28 69 6e 66 6f  62 6f 78 25 2c 32 2c 6c  |ext(infobox%,2,l|
00000d70  6f 6e 67 6e 61 6d 65 24  29 0d 04 e2 25 f2 73 65  |ongname$)...%.se|
00000d80  74 69 63 6f 6e 74 65 78  74 28 69 6e 66 6f 62 6f  |ticontext(infobo|
00000d90  78 25 2c 34 2c 76 65 72  73 69 6f 6e 24 29 0d 04  |x%,4,version$)..|
00000da0  ec 3a 69 62 68 61 6e 64  6c 65 3d a4 43 72 65 61  |.:ibhandle=.Crea|
00000db0  74 65 49 63 6f 6e 42 61  72 49 63 6f 6e 28 22 21  |teIconBarIcon("!|
00000dc0  22 2b 41 70 70 6e 61 6d  65 24 2c 73 68 6f 72 74  |"+Appname$,short|
00000dd0  6e 61 6d 65 24 2c 31 29  0d 04 f6 38 69 62 6d 65  |name$,1)...8ibme|
00000de0  6e 75 25 3d a4 63 72 65  61 74 65 6d 65 6e 75 28  |nu%=.createmenu(|
00000df0  41 70 70 6e 61 6d 65 24  2b 22 7c 49 6e 66 6f 5d  |Appname$+"|Info]|
00000e00  3e 69 6e 66 6f 62 6f 78  25 7c 51 75 69 74 22 29  |>infobox%|Quit")|
00000e10  0d 05 00 17 69 62 6f 70  74 69 6f 6e 73 25 3d 6f  |....iboptions%=o|
00000e20  70 74 69 6f 6e 73 25 0d  05 0a 05 e1 0d 05 14 05  |ptions%.........|
00000e30  3a 0d 05 1e 0e dd f2 69  6e 69 74 70 72 6f 67 0d  |:......initprog.|
00000e40  05 28 05 e1 0d 05 32 05  3a 0d 05 3c 17 dd f2 48  |.(....2.:..<...H|
00000e50  65 6c 70 28 77 69 6e 2c  69 63 6f 6e 2c 74 6f 29  |elp(win,icon,to)|
00000e60  0d 05 46 21 f7 20 8d 44  64 45 3a f2 72 65 61 64  |..F!. .DdE:.read|
00000e70  68 65 6c 70 28 77 69 6e  2c 69 63 6f 6e 2c 74 6f  |help(win,icon,to|
00000e80  29 0d 05 50 05 e1 0d 05  5a 0d f4 20 57 69 6e 64  |)..P....Z.. Wind|
00000e90  6f 77 73 0d 05 64 1a dc  20 69 6e 66 6f 62 6f 78  |ows..d.. infobox|
00000ea0  25 2c 22 3e 48 49 6e 66  6f 62 6f 78 22 0d 05 6e  |%,">HInfobox"..n|
00000eb0  14 dc 20 33 2c 22 3e 48  49 6e 66 6f 62 6f 78 33  |.. 3,">HInfobox3|
00000ec0  22 0d 05 78 14 dc 20 34  2c 22 3e 48 49 6e 66 6f  |"..x.. 4,">HInfo|
00000ed0  62 6f 78 34 22 0d 05 82  14 dc 20 2d 32 2c 22 3e  |box4"..... -2,">|
00000ee0  48 49 63 6f 6e 62 61 72  22 0d 05 8c 0b dc 20 2d  |HIconbar"..... -|
00000ef0  31 2c 2d 31 0d 05 96 0b  f4 20 4d 65 6e 75 73 0d  |1,-1..... Menus.|
00000f00  05 a0 11 dc 20 2d 32 2c  2d 32 2c 2d 32 2c 2d 32  |.... -2,-2,-2,-2|
00000f10  0d 05 aa 05 3a 0d 05 b4  13 dd f2 46 65 74 63 68  |....:......Fetch|
00000f20  50 61 67 65 28 66 24 29  0d 05 be 27 e7 20 a4 73  |Page(f$)...'. .s|
00000f30  79 73 74 65 6d 76 61 72  28 22 57 69 6d 70 24 53  |ystemvar("Wimp$S|
00000f40  63 72 61 70 44 69 72 22  29 3c 3e 22 22 20 8c 0d  |crapDir")<>"" ..|
00000f50  05 c8 3c 20 66 25 3d 30  3a c8 95 20 a4 66 69 6c  |..< f%=0:.. .fil|
00000f60  65 6c 65 6e 67 74 68 28  22 3c 57 69 6d 70 24 53  |elength("<Wimp$S|
00000f70  63 72 61 70 44 69 72 3e  2e 22 2b c3 66 25 29 3c  |crapDir>."+.f%)<|
00000f80  3e 2d 31 3a 66 25 2b 3d  31 3a ce 0d 05 d2 21 20  |>-1:f%+=1:....! |
00000f90  6f 25 3d ae 28 22 3c 57  69 6d 70 24 53 63 72 61  |o%=.("<Wimp$Scra|
00000fa0  70 44 69 72 3e 2e 22 2b  c3 66 25 29 0d 05 dc 13  |pDir>."+.f%)....|
00000fb0  20 d5 23 6f 25 2c 66 24  3a cf 23 6f 25 3d 30 0d  | .#o%,f$:.#o%=0.|
00000fc0  05 e6 30 20 21 62 25 3d  33 32 3a 62 25 21 38 3d  |..0 !b%=32:b%!8=|
00000fd0  30 3a 62 25 21 31 32 3d  30 3a 62 25 21 31 36 3d  |0:b%!12=0:b%!16=|
00000fe0  26 34 41 32 36 35 3a 62  25 21 32 30 3d 66 25 0d  |&4A265:b%!20=f%.|
00000ff0  05 f0 39 20 62 25 21 32  34 3d 28 31 3c 3c 32 32  |..9 b%!24=(1<<22|
00001000  29 3a 62 25 21 32 38 3d  6f 25 3a c8 99 20 22 57  |):b%!28=o%:.. "W|
00001010  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001020  2c 31 38 2c 62 25 2c 30  0d 05 fa 05 cd 0d 05 d2  |,18,b%,0........|
00001030  05 e1 0d ff                                       |....|
00001034