� !Welcome 1.02
-� Changes standard RISC OS welcome screen
&� by patching a file in ResourceFS
(:
2:
<	�init
F�templates
P
�readinfo
Z� � �error
d:
nȕ � quit%
x&  ș "Wimp_Poll",,block% � reason%
�  Ȏ reason% �
�(    � 2:ș "Wimp_OpenWindow",,block%
�J    � 3:ș "Wimp_CloseWindow",,block%:� !block%=MainHandle% ��readinfo
�    � 6:�mouse
�    � 7:�dragend
�    � 8:�key
�    � 9:�menu
�    � 17,18:�mess
�  �
��
�ș "Wimp_CloseDown"
��
�:

:

:

��error

"� click%

,\!temp%=0:$(temp%+4)=�$+" (code "+Þ+"). Click OK to try and continue or Cancel to quit."

6Jș "Wimp_ReportError",temp%,19,"Internal error from Welcome" � ,click%

@� click%=2 �quit%=�

J�

T:

^:

h:

r:

|
��init

�A� block% 255,temp% 1500,indir% 1350,task% 4,msgs% 11,menu% 75

�endindir%=indir%+1350

�quit%=�

�$task%="TASK"

� !msgs%=2:msgs%!4=4:msgs%!8=0

�(ș "OS_Module",6,,,256 � ,,filedesc%

�<$(filedesc%+16)="Resources:$.Resources.Desktop.Messages"

�:

�3ș "Wimp_Initialise",310,!task%,"Welcome",msgs%

�9!temp%=-1:temp%!4=0:temp%!8=0:temp%!12=68:temp%!16=68

�)temp%!20=&3002:$(temp%+24)="!welcome"

�ș "Wimp_CreateIcon",,temp%

�
� str$(3)
&str$()="RO3","CopyRt","Init","Pre"
�
:
&:
0:
::
D��templates
N2ș "Wimp_OpenTemplate",,"WelcomeScr:Templates"
XKș "Wimp_LoadTemplate",,temp%,indir%,endindir%,-1,"info",0 � ,,r2,,,,r6
b/ș "Wimp_CreateWindow",,temp% � InfoHandle%
lHș "Wimp_LoadTemplate",,temp%,r2,endindir%,-1,"main",r6 � ,,r2,,,,r6
v/ș "Wimp_CreateWindow",,temp% � MainHandle%
�;ș "Wimp_LoadTemplate",,temp%,r2,endindir%,-1,"save",r6
�/ș "Wimp_CreateWindow",,temp% � SaveHandle%
�ș "Wimp_CloseTemplate"
�G$menu%="Welcome":menu%!12=&70207:menu%!16=80:menu%!20=44:menu%!24=0
�Hmenu%!28=0:menu%!32=InfoHandle%:menu%!36=&7000021:$(menu%+40)="Info"
�@menu%!52=&80:menu%!56=0:menu%!60=&7000021:$(menu%+64)="Quit"
��
�:
�:
�:
�:
���readinfo
�7ș "MessageTrans_OpenFile",filedesc%,filedesc%+16,0
?ș "MessageTrans_Lookup",filedesc%,"RO3",block%,256 � ,,,r3
5block%?r3=13:$(�indiraddr(MainHandle%,1))=$block%
Bș "MessageTrans_Lookup",filedesc%,"CopyRt",block%,256 � ,,,r3
 5block%?r3=13:$(�indiraddr(MainHandle%,3))=$block%
*@ș "MessageTrans_Lookup",filedesc%,"Init",block%,256 � ,,,r3
45block%?r3=13:$(�indiraddr(MainHandle%,5))=$block%
>?ș "MessageTrans_Lookup",filedesc%,"Pre",block%,256 � ,,,r3
H5block%?r3=13:$(�indiraddr(MainHandle%,7))=$block%
R)ș "MessageTrans_CloseFile",filedesc%
\�
f:
p:
zݤindiraddr(window%,icon%)
� !temp%=window%:temp%!4=icon%
�!ș "Wimp_GetIconState",,temp%
�
=temp%!28
�:
�:
�:
���mouse
�Ȏ block%!12 �
�  � -2:�mouse_ib
�  � MainHandle%:�mouse_main
�  � SaveHandle%:�mouse_save
��
��
:
��mouse_ib
� block%!8=2 �
$0  ș "Wimp_CreateMenu",,menu%,!block%-64,184
.�
88  !temp%=MainHandle%:ș "Wimp_GetWindowState",,temp%
B  temp%!28=-1
L!  ș "Wimp_OpenWindow",,temp%
V�
`�
j:
t��mouse_main
~� block%!8<>2 �
�Ȏ block%!16 �
�C  � 8:!temp%=MainHandle%:ș "Wimp_CloseWindow",,temp%:�readinfo
�?  � 9:ș "Wimp_CreateMenu",,SaveHandle%,!block%-64,block%!4
��
��
��
�:
���mouse_save
�� block%!8<>2 �
�Ȏ block%!16 �
�;  � 1:�quicksave:� block%!8=4 �ș "Wimp_CreateMenu",,-1
�"  � 2:ș "Wimp_CreateMenu",,-1
  � 3:�startdrag

�
�
�
(:
2:
<:
F:
P	��key
ZH� !block%=SaveHandle% � block%!4=0 � (block%!24=13 � block%!24=10) �
d�quicksave
nș "Wimp_CreateMenu",,-1
x�
�"ș "Wimp_ProcessKey",block%!24
��
��
�:
�:
�:
�:
�
��menu
�� !block%=1 �quit%=�
�#ș "Wimp_GetPointerInfo",,temp%
�4� ((temp%!8) � 1)=1 �ș "Wimp_CreateMenu",,menu%
��
�:
:
:
:
":
,:
6��quicksave
@� filename$
J*filename$=$(�indiraddr(SaveHandle%,0))
T� �filename$,".")=0 �
^H  !temp%=0:$(temp%+4)="To save, drag the icon to a directory viewer"
h-  ș "Wimp_ReportError",temp%,1,"Welcome"
r�
|  �savemodule(filename$)
��
��
�:
�:
�:
�:
���startdrag
�#ș "Wimp_GetPointerInfo",,temp%
�8� ((temp%!8) � 1)=1 � dragwithadj%=� �dragwithadj%=�
�=temp%!100=SaveHandle%:ș "Wimp_GetWindowState",,temp%+100
�>!temp%=SaveHandle%:temp%!4=3:ș "Wimp_GetIconState",,temp%
�*temp%!8+=temp%!104:temp%!16+=temp%!104
�+temp%!12+=temp%!116:temp%!20+=temp%!116
9ș "DragASprite_Start",%11000101,1,"file_ffa",temp%+8
�
:
&:
0
��dragend
:ș "DragASprite_Stop"
D$ș "Wimp_GetPointerInfo",,block%
NPblock%!20=block%!12:block%!24=block%!16:block%!28=!block%:block%!32=block%!4
Xblock%!36=1:block%!40=&FFA
b8$(block%+44)=�leafname($(�indiraddr(SaveHandle%,0)))
l'!block%=256:block%!12=0:block%!16=1
v7ș "Wimp_SendMessage",17,block%,block%!20,block%!24
��
�:
�:
�
��mess
�Ȏ block%!16 �
�  � 0:quit%=�
�  � 2:�datasaveack
�  � 4:�dataloadack
��
��
�:
�:
���datasaveack
� filename$
$filename$=�zerostring(block%+44)
*$(�indiraddr(SaveHandle%,0))=filename$
 %ș "Wimp_GetCaretPosition",,temp%
*U� !temp%=SaveHandle% � ș "Wimp_SetCaretPosition",SaveHandle%,0,,,-1,�(filename$)
4�savemodule(filename$)
>0� �(dragwithadj%) � ș "Wimp_CreateMenu",,-1
Hblock%!12=block%!8
Rblock%!16=3
\,ș "Wimp_SendMessage",18,block%,block%!4
f�
p:
z��dataloadack
��
�:
�:
�ݤzerostring(addr%)
�� str$:str$=""
�+ȕ ?addr%>31:str$+=�(?addr%):addr%+=1:�
�	=str$
�:
�:
�ݤleafname(str$)
�ȕ �str$,".")>0
�"str$=�str$,�(str$)-�str$,"."))
��
		=str$
	:
	:
	$�DEFFNtextsize
	.� size%
	8)size%=�($(�indiraddr(MainHandle%,1)))
	B*size%+=�($(�indiraddr(MainHandle%,3)))
	L*size%+=�($(�indiraddr(MainHandle%,5)))
	V*size%+=�($(�indiraddr(MainHandle%,7)))
	`=�up(size%+324)
	j:
	t:
	~%�DEFFNfilesize:=FNtextsize+56+148
	�:
	�:
	�:
	�ݤup(size%):=(size%+3)�(�3)
	�:
	���putword(W%)
	��#ch%,(W% � &FF)
	��#ch%,(W% � &FF00)>>8
	��#ch%,(W% � &FF0000)>>16
	��#ch%,(W% � &FF000000)>>24
	��
	�:


� �align(f)
ȕ ((�#f) � 4)<>0

� #f,0
(�
2�
<:
F:
P��savemodule(filename$)
Z� ch%, in%
d2in$ = "Resources:$.Resources.Desktop.Messages"
nR� "%Copy WelcomeScr:ModuleBase "+filename$+" A ~C ~D F ~L ~N ~P ~Q ~R S ~T ~V"
xch%=�(filename$)
��#ch%=�#ch%
�-ș "OS_File",5,in$ � ,,load,exec,len,attr
�first=�#ch%
��putword(0)
��putword(load)
��putword(exec)
�size1=�#ch%
��putword(0): � filesize
��putword(attr)
�*�#ch%,"Resources.Desktop.Messages"+�0;
��align(ch%)
�size2=�#ch%
��putword(0): � filesize+4
�
3in%=�("Resources:$.Resources.Desktop.Messages")
start=�#ch%
ȕ � �#in%
"
 a$=�#in%
, � i=0 � 3
6'  � �a$,�str$(i)+1) = str$(i)+":" �
@8   a$ = str$(i)+":"+$(�indiraddr(MainHandle%,i*2+1))
J  �
T �
^ � #ch%,a$
h�
r
� #in%
|
end=�#ch%
��align(ch%)
�last=�#ch%
��putword(0)
��#ch%=size1
��putword(end-start)
��#ch%=size2
��putword(end-start+4)
��#ch%=first
��putword(last-first)
�	�#ch%
�� "%Stamp "+filename$
�"� "%SetType "+filename$+" FFA"
��
�

00000000  0d 00 0a 13 f4 20 21 57  65 6c 63 6f 6d 65 20 31  |..... !Welcome 1|
00000010  2e 30 32 0d 00 14 2d f4  20 43 68 61 6e 67 65 73  |.02...-. Changes|
00000020  20 73 74 61 6e 64 61 72  64 20 52 49 53 43 20 4f  | standard RISC O|
00000030  53 20 77 65 6c 63 6f 6d  65 20 73 63 72 65 65 6e  |S welcome screen|
00000040  0d 00 1e 26 f4 20 62 79  20 70 61 74 63 68 69 6e  |...&. by patchin|
00000050  67 20 61 20 66 69 6c 65  20 69 6e 20 52 65 73 6f  |g a file in Reso|
00000060  75 72 63 65 46 53 0d 00  28 05 3a 0d 00 32 05 3a  |urceFS..(.:..2.:|
00000070  0d 00 3c 09 f2 69 6e 69  74 0d 00 46 0e f2 74 65  |..<..init..F..te|
00000080  6d 70 6c 61 74 65 73 0d  00 50 0d f2 72 65 61 64  |mplates..P..read|
00000090  69 6e 66 6f 0d 00 5a 0e  ee 20 85 20 f2 65 72 72  |info..Z.. . .err|
000000a0  6f 72 0d 00 64 05 3a 0d  00 6e 0e c8 95 20 ac 20  |or..d.:..n... . |
000000b0  71 75 69 74 25 0d 00 78  26 20 20 c8 99 20 22 57  |quit%..x&  .. "W|
000000c0  69 6d 70 5f 50 6f 6c 6c  22 2c 2c 62 6c 6f 63 6b  |imp_Poll",,block|
000000d0  25 20 b8 20 72 65 61 73  6f 6e 25 0d 00 82 12 20  |% . reason%.... |
000000e0  20 c8 8e 20 72 65 61 73  6f 6e 25 20 ca 0d 00 8c  | .. reason% ....|
000000f0  28 20 20 20 20 c9 20 32  3a c8 99 20 22 57 69 6d  |(    . 2:.. "Wim|
00000100  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00000110  6c 6f 63 6b 25 0d 00 96  4a 20 20 20 20 c9 20 33  |lock%...J    . 3|
00000120  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
00000130  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 3a e7  |indow",,block%:.|
00000140  20 21 62 6c 6f 63 6b 25  3d 4d 61 69 6e 48 61 6e  | !block%=MainHan|
00000150  64 6c 65 25 20 8c f2 72  65 61 64 69 6e 66 6f 0d  |dle% ..readinfo.|
00000160  00 a0 12 20 20 20 20 c9  20 36 3a f2 6d 6f 75 73  |...    . 6:.mous|
00000170  65 0d 00 aa 14 20 20 20  20 c9 20 37 3a f2 64 72  |e....    . 7:.dr|
00000180  61 67 65 6e 64 0d 00 b4  10 20 20 20 20 c9 20 38  |agend....    . 8|
00000190  3a f2 6b 65 79 0d 00 be  11 20 20 20 20 c9 20 39  |:.key....    . 9|
000001a0  3a f2 6d 65 6e 75 0d 00  c8 15 20 20 20 20 c9 20  |:.menu....    . |
000001b0  31 37 2c 31 38 3a f2 6d  65 73 73 0d 00 d2 07 20  |17,18:.mess.... |
000001c0  20 cb 0d 00 dc 05 ce 0d  00 e6 17 c8 99 20 22 57  | ............ "W|
000001d0  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 0d 00  |imp_CloseDown"..|
000001e0  f0 05 e0 0d 00 fa 05 3a  0d 01 04 05 3a 0d 01 0e  |.......:....:...|
000001f0  05 3a 0d 01 18 0b dd f2  65 72 72 6f 72 0d 01 22  |.:......error.."|
00000200  0c ea 20 63 6c 69 63 6b  25 0d 01 2c 5c 21 74 65  |.. click%..,\!te|
00000210  6d 70 25 3d 30 3a 24 28  74 65 6d 70 25 2b 34 29  |mp%=0:$(temp%+4)|
00000220  3d f6 24 2b 22 20 28 63  6f 64 65 20 22 2b c3 9e  |=.$+" (code "+..|
00000230  2b 22 29 2e 20 43 6c 69  63 6b 20 4f 4b 20 74 6f  |+"). Click OK to|
00000240  20 74 72 79 20 61 6e 64  20 63 6f 6e 74 69 6e 75  | try and continu|
00000250  65 20 6f 72 20 43 61 6e  63 65 6c 20 74 6f 20 71  |e or Cancel to q|
00000260  75 69 74 2e 22 0d 01 36  4a c8 99 20 22 57 69 6d  |uit."..6J.. "Wim|
00000270  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 74  |p_ReportError",t|
00000280  65 6d 70 25 2c 31 39 2c  22 49 6e 74 65 72 6e 61  |emp%,19,"Interna|
00000290  6c 20 65 72 72 6f 72 20  66 72 6f 6d 20 57 65 6c  |l error from Wel|
000002a0  63 6f 6d 65 22 20 b8 20  2c 63 6c 69 63 6b 25 0d  |come" . ,click%.|
000002b0  01 40 17 e7 20 63 6c 69  63 6b 25 3d 32 20 8c 71  |.@.. click%=2 .q|
000002c0  75 69 74 25 3d b9 0d 01  4a 05 e1 0d 01 54 05 3a  |uit%=...J....T.:|
000002d0  0d 01 5e 05 3a 0d 01 68  05 3a 0d 01 72 05 3a 0d  |..^.:..h.:..r.:.|
000002e0  01 7c 0a dd f2 69 6e 69  74 0d 01 86 41 de 20 62  |.|...init...A. b|
000002f0  6c 6f 63 6b 25 20 32 35  35 2c 74 65 6d 70 25 20  |lock% 255,temp% |
00000300  31 35 30 30 2c 69 6e 64  69 72 25 20 31 33 35 30  |1500,indir% 1350|
00000310  2c 74 61 73 6b 25 20 34  2c 6d 73 67 73 25 20 31  |,task% 4,msgs% 1|
00000320  31 2c 6d 65 6e 75 25 20  37 35 0d 01 90 19 65 6e  |1,menu% 75....en|
00000330  64 69 6e 64 69 72 25 3d  69 6e 64 69 72 25 2b 31  |dindir%=indir%+1|
00000340  33 35 30 0d 01 9a 0b 71  75 69 74 25 3d a3 0d 01  |350....quit%=...|
00000350  a4 11 24 74 61 73 6b 25  3d 22 54 41 53 4b 22 0d  |..$task%="TASK".|
00000360  01 ae 20 21 6d 73 67 73  25 3d 32 3a 6d 73 67 73  |.. !msgs%=2:msgs|
00000370  25 21 34 3d 34 3a 6d 73  67 73 25 21 38 3d 30 0d  |%!4=4:msgs%!8=0.|
00000380  01 b8 28 c8 99 20 22 4f  53 5f 4d 6f 64 75 6c 65  |..(.. "OS_Module|
00000390  22 2c 36 2c 2c 2c 32 35  36 20 b8 20 2c 2c 66 69  |",6,,,256 . ,,fi|
000003a0  6c 65 64 65 73 63 25 0d  01 c2 3c 24 28 66 69 6c  |ledesc%...<$(fil|
000003b0  65 64 65 73 63 25 2b 31  36 29 3d 22 52 65 73 6f  |edesc%+16)="Reso|
000003c0  75 72 63 65 73 3a 24 2e  52 65 73 6f 75 72 63 65  |urces:$.Resource|
000003d0  73 2e 44 65 73 6b 74 6f  70 2e 4d 65 73 73 61 67  |s.Desktop.Messag|
000003e0  65 73 22 0d 01 cc 05 3a  0d 01 d6 33 c8 99 20 22  |es"....:...3.. "|
000003f0  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000400  2c 33 31 30 2c 21 74 61  73 6b 25 2c 22 57 65 6c  |,310,!task%,"Wel|
00000410  63 6f 6d 65 22 2c 6d 73  67 73 25 0d 01 e0 39 21  |come",msgs%...9!|
00000420  74 65 6d 70 25 3d 2d 31  3a 74 65 6d 70 25 21 34  |temp%=-1:temp%!4|
00000430  3d 30 3a 74 65 6d 70 25  21 38 3d 30 3a 74 65 6d  |=0:temp%!8=0:tem|
00000440  70 25 21 31 32 3d 36 38  3a 74 65 6d 70 25 21 31  |p%!12=68:temp%!1|
00000450  36 3d 36 38 0d 01 ea 29  74 65 6d 70 25 21 32 30  |6=68...)temp%!20|
00000460  3d 26 33 30 30 32 3a 24  28 74 65 6d 70 25 2b 32  |=&3002:$(temp%+2|
00000470  34 29 3d 22 21 77 65 6c  63 6f 6d 65 22 0d 01 f4  |4)="!welcome"...|
00000480  1f c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00000490  49 63 6f 6e 22 2c 2c 74  65 6d 70 25 0d 01 fe 0d  |Icon",,temp%....|
000004a0  de 20 73 74 72 24 28 33  29 0d 02 08 26 73 74 72  |. str$(3)...&str|
000004b0  24 28 29 3d 22 52 4f 33  22 2c 22 43 6f 70 79 52  |$()="RO3","CopyR|
000004c0  74 22 2c 22 49 6e 69 74  22 2c 22 50 72 65 22 0d  |t","Init","Pre".|
000004d0  02 12 05 e1 0d 02 1c 05  3a 0d 02 26 05 3a 0d 02  |........:..&.:..|
000004e0  30 05 3a 0d 02 3a 05 3a  0d 02 44 0f dd f2 74 65  |0.:..:.:..D...te|
000004f0  6d 70 6c 61 74 65 73 0d  02 4e 32 c8 99 20 22 57  |mplates..N2.. "W|
00000500  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000510  22 2c 2c 22 57 65 6c 63  6f 6d 65 53 63 72 3a 54  |",,"WelcomeScr:T|
00000520  65 6d 70 6c 61 74 65 73  22 0d 02 58 4b c8 99 20  |emplates"..XK.. |
00000530  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000540  74 65 22 2c 2c 74 65 6d  70 25 2c 69 6e 64 69 72  |te",,temp%,indir|
00000550  25 2c 65 6e 64 69 6e 64  69 72 25 2c 2d 31 2c 22  |%,endindir%,-1,"|
00000560  69 6e 66 6f 22 2c 30 20  b8 20 2c 2c 72 32 2c 2c  |info",0 . ,,r2,,|
00000570  2c 2c 72 36 0d 02 62 2f  c8 99 20 22 57 69 6d 70  |,,r6..b/.. "Wimp|
00000580  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000590  74 65 6d 70 25 20 b8 20  49 6e 66 6f 48 61 6e 64  |temp% . InfoHand|
000005a0  6c 65 25 0d 02 6c 48 c8  99 20 22 57 69 6d 70 5f  |le%..lH.. "Wimp_|
000005b0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 74  |LoadTemplate",,t|
000005c0  65 6d 70 25 2c 72 32 2c  65 6e 64 69 6e 64 69 72  |emp%,r2,endindir|
000005d0  25 2c 2d 31 2c 22 6d 61  69 6e 22 2c 72 36 20 b8  |%,-1,"main",r6 .|
000005e0  20 2c 2c 72 32 2c 2c 2c  2c 72 36 0d 02 76 2f c8  | ,,r2,,,,r6..v/.|
000005f0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000600  6e 64 6f 77 22 2c 2c 74  65 6d 70 25 20 b8 20 4d  |ndow",,temp% . M|
00000610  61 69 6e 48 61 6e 64 6c  65 25 0d 02 80 3b c8 99  |ainHandle%...;..|
00000620  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000630  61 74 65 22 2c 2c 74 65  6d 70 25 2c 72 32 2c 65  |ate",,temp%,r2,e|
00000640  6e 64 69 6e 64 69 72 25  2c 2d 31 2c 22 73 61 76  |ndindir%,-1,"sav|
00000650  65 22 2c 72 36 0d 02 8a  2f c8 99 20 22 57 69 6d  |e",r6.../.. "Wim|
00000660  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000670  2c 74 65 6d 70 25 20 b8  20 53 61 76 65 48 61 6e  |,temp% . SaveHan|
00000680  64 6c 65 25 0d 02 94 1b  c8 99 20 22 57 69 6d 70  |dle%...... "Wimp|
00000690  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
000006a0  02 9e 47 24 6d 65 6e 75  25 3d 22 57 65 6c 63 6f  |..G$menu%="Welco|
000006b0  6d 65 22 3a 6d 65 6e 75  25 21 31 32 3d 26 37 30  |me":menu%!12=&70|
000006c0  32 30 37 3a 6d 65 6e 75  25 21 31 36 3d 38 30 3a  |207:menu%!16=80:|
000006d0  6d 65 6e 75 25 21 32 30  3d 34 34 3a 6d 65 6e 75  |menu%!20=44:menu|
000006e0  25 21 32 34 3d 30 0d 02  a8 48 6d 65 6e 75 25 21  |%!24=0...Hmenu%!|
000006f0  32 38 3d 30 3a 6d 65 6e  75 25 21 33 32 3d 49 6e  |28=0:menu%!32=In|
00000700  66 6f 48 61 6e 64 6c 65  25 3a 6d 65 6e 75 25 21  |foHandle%:menu%!|
00000710  33 36 3d 26 37 30 30 30  30 32 31 3a 24 28 6d 65  |36=&7000021:$(me|
00000720  6e 75 25 2b 34 30 29 3d  22 49 6e 66 6f 22 0d 02  |nu%+40)="Info"..|
00000730  b2 40 6d 65 6e 75 25 21  35 32 3d 26 38 30 3a 6d  |.@menu%!52=&80:m|
00000740  65 6e 75 25 21 35 36 3d  30 3a 6d 65 6e 75 25 21  |enu%!56=0:menu%!|
00000750  36 30 3d 26 37 30 30 30  30 32 31 3a 24 28 6d 65  |60=&7000021:$(me|
00000760  6e 75 25 2b 36 34 29 3d  22 51 75 69 74 22 0d 02  |nu%+64)="Quit"..|
00000770  bc 05 e1 0d 02 c6 05 3a  0d 02 d0 05 3a 0d 02 da  |.......:....:...|
00000780  05 3a 0d 02 e4 05 3a 0d  02 ee 0e dd f2 72 65 61  |.:....:......rea|
00000790  64 69 6e 66 6f 0d 02 f8  37 c8 99 20 22 4d 65 73  |dinfo...7.. "Mes|
000007a0  73 61 67 65 54 72 61 6e  73 5f 4f 70 65 6e 46 69  |sageTrans_OpenFi|
000007b0  6c 65 22 2c 66 69 6c 65  64 65 73 63 25 2c 66 69  |le",filedesc%,fi|
000007c0  6c 65 64 65 73 63 25 2b  31 36 2c 30 0d 03 02 3f  |ledesc%+16,0...?|
000007d0  c8 99 20 22 4d 65 73 73  61 67 65 54 72 61 6e 73  |.. "MessageTrans|
000007e0  5f 4c 6f 6f 6b 75 70 22  2c 66 69 6c 65 64 65 73  |_Lookup",filedes|
000007f0  63 25 2c 22 52 4f 33 22  2c 62 6c 6f 63 6b 25 2c  |c%,"RO3",block%,|
00000800  32 35 36 20 b8 20 2c 2c  2c 72 33 0d 03 0c 35 62  |256 . ,,,r3...5b|
00000810  6c 6f 63 6b 25 3f 72 33  3d 31 33 3a 24 28 a4 69  |lock%?r3=13:$(.i|
00000820  6e 64 69 72 61 64 64 72  28 4d 61 69 6e 48 61 6e  |ndiraddr(MainHan|
00000830  64 6c 65 25 2c 31 29 29  3d 24 62 6c 6f 63 6b 25  |dle%,1))=$block%|
00000840  0d 03 16 42 c8 99 20 22  4d 65 73 73 61 67 65 54  |...B.. "MessageT|
00000850  72 61 6e 73 5f 4c 6f 6f  6b 75 70 22 2c 66 69 6c  |rans_Lookup",fil|
00000860  65 64 65 73 63 25 2c 22  43 6f 70 79 52 74 22 2c  |edesc%,"CopyRt",|
00000870  62 6c 6f 63 6b 25 2c 32  35 36 20 b8 20 2c 2c 2c  |block%,256 . ,,,|
00000880  72 33 0d 03 20 35 62 6c  6f 63 6b 25 3f 72 33 3d  |r3.. 5block%?r3=|
00000890  31 33 3a 24 28 a4 69 6e  64 69 72 61 64 64 72 28  |13:$(.indiraddr(|
000008a0  4d 61 69 6e 48 61 6e 64  6c 65 25 2c 33 29 29 3d  |MainHandle%,3))=|
000008b0  24 62 6c 6f 63 6b 25 0d  03 2a 40 c8 99 20 22 4d  |$block%..*@.. "M|
000008c0  65 73 73 61 67 65 54 72  61 6e 73 5f 4c 6f 6f 6b  |essageTrans_Look|
000008d0  75 70 22 2c 66 69 6c 65  64 65 73 63 25 2c 22 49  |up",filedesc%,"I|
000008e0  6e 69 74 22 2c 62 6c 6f  63 6b 25 2c 32 35 36 20  |nit",block%,256 |
000008f0  b8 20 2c 2c 2c 72 33 0d  03 34 35 62 6c 6f 63 6b  |. ,,,r3..45block|
00000900  25 3f 72 33 3d 31 33 3a  24 28 a4 69 6e 64 69 72  |%?r3=13:$(.indir|
00000910  61 64 64 72 28 4d 61 69  6e 48 61 6e 64 6c 65 25  |addr(MainHandle%|
00000920  2c 35 29 29 3d 24 62 6c  6f 63 6b 25 0d 03 3e 3f  |,5))=$block%..>?|
00000930  c8 99 20 22 4d 65 73 73  61 67 65 54 72 61 6e 73  |.. "MessageTrans|
00000940  5f 4c 6f 6f 6b 75 70 22  2c 66 69 6c 65 64 65 73  |_Lookup",filedes|
00000950  63 25 2c 22 50 72 65 22  2c 62 6c 6f 63 6b 25 2c  |c%,"Pre",block%,|
00000960  32 35 36 20 b8 20 2c 2c  2c 72 33 0d 03 48 35 62  |256 . ,,,r3..H5b|
00000970  6c 6f 63 6b 25 3f 72 33  3d 31 33 3a 24 28 a4 69  |lock%?r3=13:$(.i|
00000980  6e 64 69 72 61 64 64 72  28 4d 61 69 6e 48 61 6e  |ndiraddr(MainHan|
00000990  64 6c 65 25 2c 37 29 29  3d 24 62 6c 6f 63 6b 25  |dle%,7))=$block%|
000009a0  0d 03 52 29 c8 99 20 22  4d 65 73 73 61 67 65 54  |..R).. "MessageT|
000009b0  72 61 6e 73 5f 43 6c 6f  73 65 46 69 6c 65 22 2c  |rans_CloseFile",|
000009c0  66 69 6c 65 64 65 73 63  25 0d 03 5c 05 e1 0d 03  |filedesc%..\....|
000009d0  66 05 3a 0d 03 70 05 3a  0d 03 7a 1e dd a4 69 6e  |f.:..p.:..z...in|
000009e0  64 69 72 61 64 64 72 28  77 69 6e 64 6f 77 25 2c  |diraddr(window%,|
000009f0  69 63 6f 6e 25 29 0d 03  84 20 21 74 65 6d 70 25  |icon%)... !temp%|
00000a00  3d 77 69 6e 64 6f 77 25  3a 74 65 6d 70 25 21 34  |=window%:temp%!4|
00000a10  3d 69 63 6f 6e 25 0d 03  8e 21 c8 99 20 22 57 69  |=icon%...!.. "Wi|
00000a20  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00000a30  2c 2c 74 65 6d 70 25 0d  03 98 0d 3d 74 65 6d 70  |,,temp%....=temp|
00000a40  25 21 32 38 0d 03 a2 05  3a 0d 03 ac 05 3a 0d 03  |%!28....:....:..|
00000a50  b6 05 3a 0d 03 c0 0b dd  f2 6d 6f 75 73 65 0d 03  |..:......mouse..|
00000a60  ca 12 c8 8e 20 62 6c 6f  63 6b 25 21 31 32 20 ca  |.... block%!12 .|
00000a70  0d 03 d4 14 20 20 c9 20  2d 32 3a f2 6d 6f 75 73  |....  . -2:.mous|
00000a80  65 5f 69 62 0d 03 de 1f  20 20 c9 20 4d 61 69 6e  |e_ib....  . Main|
00000a90  48 61 6e 64 6c 65 25 3a  f2 6d 6f 75 73 65 5f 6d  |Handle%:.mouse_m|
00000aa0  61 69 6e 0d 03 e8 1f 20  20 c9 20 53 61 76 65 48  |ain....  . SaveH|
00000ab0  61 6e 64 6c 65 25 3a f2  6d 6f 75 73 65 5f 73 61  |andle%:.mouse_sa|
00000ac0  76 65 0d 03 f2 05 cb 0d  03 fc 05 e1 0d 04 06 05  |ve..............|
00000ad0  3a 0d 04 10 0e dd f2 6d  6f 75 73 65 5f 69 62 0d  |:......mouse_ib.|
00000ae0  04 1a 12 e7 20 62 6c 6f  63 6b 25 21 38 3d 32 20  |.... block%!8=2 |
00000af0  8c 0d 04 24 30 20 20 c8  99 20 22 57 69 6d 70 5f  |...$0  .. "Wimp_|
00000b00  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
00000b10  75 25 2c 21 62 6c 6f 63  6b 25 2d 36 34 2c 31 38  |u%,!block%-64,18|
00000b20  34 0d 04 2e 05 cc 0d 04  38 38 20 20 21 74 65 6d  |4.......88  !tem|
00000b30  70 25 3d 4d 61 69 6e 48  61 6e 64 6c 65 25 3a c8  |p%=MainHandle%:.|
00000b40  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00000b50  77 53 74 61 74 65 22 2c  2c 74 65 6d 70 25 0d 04  |wState",,temp%..|
00000b60  42 11 20 20 74 65 6d 70  25 21 32 38 3d 2d 31 0d  |B.  temp%!28=-1.|
00000b70  04 4c 21 20 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |.L!  .. "Wimp_Op|
00000b80  65 6e 57 69 6e 64 6f 77  22 2c 2c 74 65 6d 70 25  |enWindow",,temp%|
00000b90  0d 04 56 05 cd 0d 04 60  05 e1 0d 04 6a 05 3a 0d  |..V....`....j.:.|
00000ba0  04 74 10 dd f2 6d 6f 75  73 65 5f 6d 61 69 6e 0d  |.t...mouse_main.|
00000bb0  04 7e 13 e7 20 62 6c 6f  63 6b 25 21 38 3c 3e 32  |.~.. block%!8<>2|
00000bc0  20 8c 0d 04 88 12 c8 8e  20 62 6c 6f 63 6b 25 21  | ....... block%!|
00000bd0  31 36 20 ca 0d 04 92 43  20 20 c9 20 38 3a 21 74  |16 ....C  . 8:!t|
00000be0  65 6d 70 25 3d 4d 61 69  6e 48 61 6e 64 6c 65 25  |emp%=MainHandle%|
00000bf0  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
00000c00  69 6e 64 6f 77 22 2c 2c  74 65 6d 70 25 3a f2 72  |indow",,temp%:.r|
00000c10  65 61 64 69 6e 66 6f 0d  04 9c 3f 20 20 c9 20 39  |eadinfo...?  . 9|
00000c20  3a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |:.. "Wimp_Create|
00000c30  4d 65 6e 75 22 2c 2c 53  61 76 65 48 61 6e 64 6c  |Menu",,SaveHandl|
00000c40  65 25 2c 21 62 6c 6f 63  6b 25 2d 36 34 2c 62 6c  |e%,!block%-64,bl|
00000c50  6f 63 6b 25 21 34 0d 04  a6 05 cb 0d 04 b0 05 cd  |ock%!4..........|
00000c60  0d 04 ba 05 e1 0d 04 c4  05 3a 0d 04 ce 10 dd f2  |.........:......|
00000c70  6d 6f 75 73 65 5f 73 61  76 65 0d 04 d8 13 e7 20  |mouse_save..... |
00000c80  62 6c 6f 63 6b 25 21 38  3c 3e 32 20 8c 0d 04 e2  |block%!8<>2 ....|
00000c90  12 c8 8e 20 62 6c 6f 63  6b 25 21 31 36 20 ca 0d  |... block%!16 ..|
00000ca0  04 ec 3b 20 20 c9 20 31  3a f2 71 75 69 63 6b 73  |..;  . 1:.quicks|
00000cb0  61 76 65 3a e7 20 62 6c  6f 63 6b 25 21 38 3d 34  |ave:. block%!8=4|
00000cc0  20 8c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  | ... "Wimp_Creat|
00000cd0  65 4d 65 6e 75 22 2c 2c  2d 31 0d 04 f6 22 20 20  |eMenu",,-1..."  |
00000ce0  c9 20 32 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |. 2:.. "Wimp_Cre|
00000cf0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 05 00 14  |ateMenu",,-1....|
00000d00  20 20 c9 20 33 3a f2 73  74 61 72 74 64 72 61 67  |  . 3:.startdrag|
00000d10  0d 05 0a 05 cb 0d 05 14  05 cd 0d 05 1e 05 e1 0d  |................|
00000d20  05 28 05 3a 0d 05 32 05  3a 0d 05 3c 05 3a 0d 05  |.(.:..2.:..<.:..|
00000d30  46 05 3a 0d 05 50 09 dd  f2 6b 65 79 0d 05 5a 48  |F.:..P...key..ZH|
00000d40  e7 20 21 62 6c 6f 63 6b  25 3d 53 61 76 65 48 61  |. !block%=SaveHa|
00000d50  6e 64 6c 65 25 20 80 20  62 6c 6f 63 6b 25 21 34  |ndle% . block%!4|
00000d60  3d 30 20 80 20 28 62 6c  6f 63 6b 25 21 32 34 3d  |=0 . (block%!24=|
00000d70  31 33 20 84 20 62 6c 6f  63 6b 25 21 32 34 3d 31  |13 . block%!24=1|
00000d80  30 29 20 8c 0d 05 64 0e  f2 71 75 69 63 6b 73 61  |0) ...d..quicksa|
00000d90  76 65 0d 05 6e 1c c8 99  20 22 57 69 6d 70 5f 43  |ve..n... "Wimp_C|
00000da0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 05  |reateMenu",,-1..|
00000db0  78 05 cc 0d 05 82 22 c8  99 20 22 57 69 6d 70 5f  |x.....".. "Wimp_|
00000dc0  50 72 6f 63 65 73 73 4b  65 79 22 2c 62 6c 6f 63  |ProcessKey",bloc|
00000dd0  6b 25 21 32 34 0d 05 8c  05 cd 0d 05 96 05 e1 0d  |k%!24...........|
00000de0  05 a0 05 3a 0d 05 aa 05  3a 0d 05 b4 05 3a 0d 05  |...:....:....:..|
00000df0  be 05 3a 0d 05 c8 0a dd  f2 6d 65 6e 75 0d 05 d2  |..:......menu...|
00000e00  18 e7 20 21 62 6c 6f 63  6b 25 3d 31 20 8c 71 75  |.. !block%=1 .qu|
00000e10  69 74 25 3d b9 0d 05 dc  23 c8 99 20 22 57 69 6d  |it%=....#.. "Wim|
00000e20  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00000e30  22 2c 2c 74 65 6d 70 25  0d 05 e6 34 e7 20 28 28  |",,temp%...4. ((|
00000e40  74 65 6d 70 25 21 38 29  20 80 20 31 29 3d 31 20  |temp%!8) . 1)=1 |
00000e50  8c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00000e60  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 0d 05 f0 05  |Menu",,menu%....|
00000e70  e1 0d 05 fa 05 3a 0d 06  04 05 3a 0d 06 0e 05 3a  |.....:....:....:|
00000e80  0d 06 18 05 3a 0d 06 22  05 3a 0d 06 2c 05 3a 0d  |....:..".:..,.:.|
00000e90  06 36 0f dd f2 71 75 69  63 6b 73 61 76 65 0d 06  |.6...quicksave..|
00000ea0  40 0f ea 20 66 69 6c 65  6e 61 6d 65 24 0d 06 4a  |@.. filename$..J|
00000eb0  2a 66 69 6c 65 6e 61 6d  65 24 3d 24 28 a4 69 6e  |*filename$=$(.in|
00000ec0  64 69 72 61 64 64 72 28  53 61 76 65 48 61 6e 64  |diraddr(SaveHand|
00000ed0  6c 65 25 2c 30 29 29 0d  06 54 19 e7 20 a7 66 69  |le%,0))..T.. .fi|
00000ee0  6c 65 6e 61 6d 65 24 2c  22 2e 22 29 3d 30 20 8c  |lename$,".")=0 .|
00000ef0  0d 06 5e 48 20 20 21 74  65 6d 70 25 3d 30 3a 24  |..^H  !temp%=0:$|
00000f00  28 74 65 6d 70 25 2b 34  29 3d 22 54 6f 20 73 61  |(temp%+4)="To sa|
00000f10  76 65 2c 20 64 72 61 67  20 74 68 65 20 69 63 6f  |ve, drag the ico|
00000f20  6e 20 74 6f 20 61 20 64  69 72 65 63 74 6f 72 79  |n to a directory|
00000f30  20 76 69 65 77 65 72 22  0d 06 68 2d 20 20 c8 99  | viewer"..h-  ..|
00000f40  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00000f50  6f 72 22 2c 74 65 6d 70  25 2c 31 2c 22 57 65 6c  |or",temp%,1,"Wel|
00000f60  63 6f 6d 65 22 0d 06 72  05 cc 0d 06 7c 1c 20 20  |come"..r....|.  |
00000f70  f2 73 61 76 65 6d 6f 64  75 6c 65 28 66 69 6c 65  |.savemodule(file|
00000f80  6e 61 6d 65 24 29 0d 06  86 05 cd 0d 06 90 05 e1  |name$)..........|
00000f90  0d 06 9a 05 3a 0d 06 a4  05 3a 0d 06 ae 05 3a 0d  |....:....:....:.|
00000fa0  06 b8 05 3a 0d 06 c2 0f  dd f2 73 74 61 72 74 64  |...:......startd|
00000fb0  72 61 67 0d 06 cc 23 c8  99 20 22 57 69 6d 70 5f  |rag...#.. "Wimp_|
00000fc0  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00000fd0  2c 74 65 6d 70 25 0d 06  d6 38 e7 20 28 28 74 65  |,temp%...8. ((te|
00000fe0  6d 70 25 21 38 29 20 80  20 31 29 3d 31 20 8c 20  |mp%!8) . 1)=1 . |
00000ff0  64 72 61 67 77 69 74 68  61 64 6a 25 3d b9 20 8b  |dragwithadj%=. .|
00001000  64 72 61 67 77 69 74 68  61 64 6a 25 3d a3 0d 06  |dragwithadj%=...|
00001010  e0 3d 74 65 6d 70 25 21  31 30 30 3d 53 61 76 65  |.=temp%!100=Save|
00001020  48 61 6e 64 6c 65 25 3a  c8 99 20 22 57 69 6d 70  |Handle%:.. "Wimp|
00001030  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001040  2c 2c 74 65 6d 70 25 2b  31 30 30 0d 06 ea 3e 21  |,,temp%+100...>!|
00001050  74 65 6d 70 25 3d 53 61  76 65 48 61 6e 64 6c 65  |temp%=SaveHandle|
00001060  25 3a 74 65 6d 70 25 21  34 3d 33 3a c8 99 20 22  |%:temp%!4=3:.. "|
00001070  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001080  65 22 2c 2c 74 65 6d 70  25 0d 06 f4 2a 74 65 6d  |e",,temp%...*tem|
00001090  70 25 21 38 2b 3d 74 65  6d 70 25 21 31 30 34 3a  |p%!8+=temp%!104:|
000010a0  74 65 6d 70 25 21 31 36  2b 3d 74 65 6d 70 25 21  |temp%!16+=temp%!|
000010b0  31 30 34 0d 06 fe 2b 74  65 6d 70 25 21 31 32 2b  |104...+temp%!12+|
000010c0  3d 74 65 6d 70 25 21 31  31 36 3a 74 65 6d 70 25  |=temp%!116:temp%|
000010d0  21 32 30 2b 3d 74 65 6d  70 25 21 31 31 36 0d 07  |!20+=temp%!116..|
000010e0  08 39 c8 99 20 22 44 72  61 67 41 53 70 72 69 74  |.9.. "DragASprit|
000010f0  65 5f 53 74 61 72 74 22  2c 25 31 31 30 30 30 31  |e_Start",%110001|
00001100  30 31 2c 31 2c 22 66 69  6c 65 5f 66 66 61 22 2c  |01,1,"file_ffa",|
00001110  74 65 6d 70 25 2b 38 0d  07 12 05 e1 0d 07 1c 05  |temp%+8.........|
00001120  3a 0d 07 26 05 3a 0d 07  30 0d dd f2 64 72 61 67  |:..&.:..0...drag|
00001130  65 6e 64 0d 07 3a 19 c8  99 20 22 44 72 61 67 41  |end..:... "DragA|
00001140  53 70 72 69 74 65 5f 53  74 6f 70 22 0d 07 44 24  |Sprite_Stop"..D$|
00001150  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00001160  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
00001170  0d 07 4e 50 62 6c 6f 63  6b 25 21 32 30 3d 62 6c  |..NPblock%!20=bl|
00001180  6f 63 6b 25 21 31 32 3a  62 6c 6f 63 6b 25 21 32  |ock%!12:block%!2|
00001190  34 3d 62 6c 6f 63 6b 25  21 31 36 3a 62 6c 6f 63  |4=block%!16:bloc|
000011a0  6b 25 21 32 38 3d 21 62  6c 6f 63 6b 25 3a 62 6c  |k%!28=!block%:bl|
000011b0  6f 63 6b 25 21 33 32 3d  62 6c 6f 63 6b 25 21 34  |ock%!32=block%!4|
000011c0  0d 07 58 1e 62 6c 6f 63  6b 25 21 33 36 3d 31 3a  |..X.block%!36=1:|
000011d0  62 6c 6f 63 6b 25 21 34  30 3d 26 46 46 41 0d 07  |block%!40=&FFA..|
000011e0  62 38 24 28 62 6c 6f 63  6b 25 2b 34 34 29 3d a4  |b8$(block%+44)=.|
000011f0  6c 65 61 66 6e 61 6d 65  28 24 28 a4 69 6e 64 69  |leafname($(.indi|
00001200  72 61 64 64 72 28 53 61  76 65 48 61 6e 64 6c 65  |raddr(SaveHandle|
00001210  25 2c 30 29 29 29 0d 07  6c 27 21 62 6c 6f 63 6b  |%,0)))..l'!block|
00001220  25 3d 32 35 36 3a 62 6c  6f 63 6b 25 21 31 32 3d  |%=256:block%!12=|
00001230  30 3a 62 6c 6f 63 6b 25  21 31 36 3d 31 0d 07 76  |0:block%!16=1..v|
00001240  37 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |7.. "Wimp_SendMe|
00001250  73 73 61 67 65 22 2c 31  37 2c 62 6c 6f 63 6b 25  |ssage",17,block%|
00001260  2c 62 6c 6f 63 6b 25 21  32 30 2c 62 6c 6f 63 6b  |,block%!20,block|
00001270  25 21 32 34 0d 07 80 05  e1 0d 07 8a 05 3a 0d 07  |%!24.........:..|
00001280  94 05 3a 0d 07 9e 0a dd  f2 6d 65 73 73 0d 07 a8  |..:......mess...|
00001290  12 c8 8e 20 62 6c 6f 63  6b 25 21 31 36 20 ca 0d  |... block%!16 ..|
000012a0  07 b2 11 20 20 c9 20 30  3a 71 75 69 74 25 3d b9  |...  . 0:quit%=.|
000012b0  0d 07 bc 16 20 20 c9 20  32 3a f2 64 61 74 61 73  |....  . 2:.datas|
000012c0  61 76 65 61 63 6b 0d 07  c6 16 20 20 c9 20 34 3a  |aveack....  . 4:|
000012d0  f2 64 61 74 61 6c 6f 61  64 61 63 6b 0d 07 d0 05  |.dataloadack....|
000012e0  cb 0d 07 da 05 e1 0d 07  e4 05 3a 0d 07 ee 05 3a  |..........:....:|
000012f0  0d 07 f8 11 dd f2 64 61  74 61 73 61 76 65 61 63  |......datasaveac|
00001300  6b 0d 08 02 0f ea 20 66  69 6c 65 6e 61 6d 65 24  |k..... filename$|
00001310  0d 08 0c 24 66 69 6c 65  6e 61 6d 65 24 3d a4 7a  |...$filename$=.z|
00001320  65 72 6f 73 74 72 69 6e  67 28 62 6c 6f 63 6b 25  |erostring(block%|
00001330  2b 34 34 29 0d 08 16 2a  24 28 a4 69 6e 64 69 72  |+44)...*$(.indir|
00001340  61 64 64 72 28 53 61 76  65 48 61 6e 64 6c 65 25  |addr(SaveHandle%|
00001350  2c 30 29 29 3d 66 69 6c  65 6e 61 6d 65 24 0d 08  |,0))=filename$..|
00001360  20 25 c8 99 20 22 57 69  6d 70 5f 47 65 74 43 61  | %.. "Wimp_GetCa|
00001370  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 74 65  |retPosition",,te|
00001380  6d 70 25 0d 08 2a 55 e7  20 21 74 65 6d 70 25 3d  |mp%..*U. !temp%=|
00001390  53 61 76 65 48 61 6e 64  6c 65 25 20 8c 20 c8 99  |SaveHandle% . ..|
000013a0  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
000013b0  6f 73 69 74 69 6f 6e 22  2c 53 61 76 65 48 61 6e  |osition",SaveHan|
000013c0  64 6c 65 25 2c 30 2c 2c  2c 2d 31 2c a9 28 66 69  |dle%,0,,,-1,.(fi|
000013d0  6c 65 6e 61 6d 65 24 29  0d 08 34 1a f2 73 61 76  |lename$)..4..sav|
000013e0  65 6d 6f 64 75 6c 65 28  66 69 6c 65 6e 61 6d 65  |emodule(filename|
000013f0  24 29 0d 08 3e 30 e7 20  ac 28 64 72 61 67 77 69  |$)..>0. .(dragwi|
00001400  74 68 61 64 6a 25 29 20  8c 20 c8 99 20 22 57 69  |thadj%) . .. "Wi|
00001410  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001420  2d 31 0d 08 48 16 62 6c  6f 63 6b 25 21 31 32 3d  |-1..H.block%!12=|
00001430  62 6c 6f 63 6b 25 21 38  0d 08 52 0f 62 6c 6f 63  |block%!8..R.bloc|
00001440  6b 25 21 31 36 3d 33 0d  08 5c 2c c8 99 20 22 57  |k%!16=3..\,.. "W|
00001450  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001460  2c 31 38 2c 62 6c 6f 63  6b 25 2c 62 6c 6f 63 6b  |,18,block%,block|
00001470  25 21 34 0d 08 66 05 e1  0d 08 70 05 3a 0d 08 7a  |%!4..f....p.:..z|
00001480  11 dd f2 64 61 74 61 6c  6f 61 64 61 63 6b 0d 08  |...dataloadack..|
00001490  84 05 e1 0d 08 8e 05 3a  0d 08 98 05 3a 0d 08 a2  |.......:....:...|
000014a0  17 dd a4 7a 65 72 6f 73  74 72 69 6e 67 28 61 64  |...zerostring(ad|
000014b0  64 72 25 29 0d 08 ac 12  ea 20 73 74 72 24 3a 73  |dr%)..... str$:s|
000014c0  74 72 24 3d 22 22 0d 08  b6 2b c8 95 20 3f 61 64  |tr$=""...+.. ?ad|
000014d0  64 72 25 3e 33 31 3a 73  74 72 24 2b 3d bd 28 3f  |dr%>31:str$+=.(?|
000014e0  61 64 64 72 25 29 3a 61  64 64 72 25 2b 3d 31 3a  |addr%):addr%+=1:|
000014f0  ce 0d 08 c0 09 3d 73 74  72 24 0d 08 ca 05 3a 0d  |.....=str$....:.|
00001500  08 d4 05 3a 0d 08 de 14  dd a4 6c 65 61 66 6e 61  |...:......leafna|
00001510  6d 65 28 73 74 72 24 29  0d 08 e8 13 c8 95 20 a7  |me(str$)...... .|
00001520  73 74 72 24 2c 22 2e 22  29 3e 30 0d 08 f2 22 73  |str$,".")>0..."s|
00001530  74 72 24 3d c2 73 74 72  24 2c a9 28 73 74 72 24  |tr$=.str$,.(str$|
00001540  29 2d a7 73 74 72 24 2c  22 2e 22 29 29 0d 08 fc  |)-.str$,"."))...|
00001550  05 ce 0d 09 06 09 3d 73  74 72 24 0d 09 10 05 3a  |......=str$....:|
00001560  0d 09 1a 05 3a 0d 09 24  12 f4 44 45 46 46 4e 74  |....:..$..DEFFNt|
00001570  65 78 74 73 69 7a 65 0d  09 2e 0b ea 20 73 69 7a  |extsize..... siz|
00001580  65 25 0d 09 38 29 73 69  7a 65 25 3d a9 28 24 28  |e%..8)size%=.($(|
00001590  a4 69 6e 64 69 72 61 64  64 72 28 4d 61 69 6e 48  |.indiraddr(MainH|
000015a0  61 6e 64 6c 65 25 2c 31  29 29 29 0d 09 42 2a 73  |andle%,1)))..B*s|
000015b0  69 7a 65 25 2b 3d a9 28  24 28 a4 69 6e 64 69 72  |ize%+=.($(.indir|
000015c0  61 64 64 72 28 4d 61 69  6e 48 61 6e 64 6c 65 25  |addr(MainHandle%|
000015d0  2c 33 29 29 29 0d 09 4c  2a 73 69 7a 65 25 2b 3d  |,3)))..L*size%+=|
000015e0  a9 28 24 28 a4 69 6e 64  69 72 61 64 64 72 28 4d  |.($(.indiraddr(M|
000015f0  61 69 6e 48 61 6e 64 6c  65 25 2c 35 29 29 29 0d  |ainHandle%,5))).|
00001600  09 56 2a 73 69 7a 65 25  2b 3d a9 28 24 28 a4 69  |.V*size%+=.($(.i|
00001610  6e 64 69 72 61 64 64 72  28 4d 61 69 6e 48 61 6e  |ndiraddr(MainHan|
00001620  64 6c 65 25 2c 37 29 29  29 0d 09 60 13 3d a4 75  |dle%,7)))..`.=.u|
00001630  70 28 73 69 7a 65 25 2b  33 32 34 29 0d 09 6a 05  |p(size%+324)..j.|
00001640  3a 0d 09 74 05 3a 0d 09  7e 25 f4 44 45 46 46 4e  |:..t.:..~%.DEFFN|
00001650  66 69 6c 65 73 69 7a 65  3a 3d 46 4e 74 65 78 74  |filesize:=FNtext|
00001660  73 69 7a 65 2b 35 36 2b  31 34 38 0d 09 88 05 3a  |size+56+148....:|
00001670  0d 09 92 05 3a 0d 09 9c  05 3a 0d 09 a6 1f dd a4  |....:....:......|
00001680  75 70 28 73 69 7a 65 25  29 3a 3d 28 73 69 7a 65  |up(size%):=(size|
00001690  25 2b 33 29 80 28 ac 33  29 0d 09 b0 05 3a 0d 09  |%+3).(.3)....:..|
000016a0  ba 11 dd f2 70 75 74 77  6f 72 64 28 57 25 29 0d  |....putword(W%).|
000016b0  09 c4 14 d5 23 63 68 25  2c 28 57 25 20 80 20 26  |....#ch%,(W% . &|
000016c0  46 46 29 0d 09 ce 19 d5  23 63 68 25 2c 28 57 25  |FF).....#ch%,(W%|
000016d0  20 80 20 26 46 46 30 30  29 3e 3e 38 0d 09 d8 1c  | . &FF00)>>8....|
000016e0  d5 23 63 68 25 2c 28 57  25 20 80 20 26 46 46 30  |.#ch%,(W% . &FF0|
000016f0  30 30 30 29 3e 3e 31 36  0d 09 e2 1e d5 23 63 68  |000)>>16.....#ch|
00001700  25 2c 28 57 25 20 80 20  26 46 46 30 30 30 30 30  |%,(W% . &FF00000|
00001710  30 29 3e 3e 32 34 0d 09  ec 05 e1 0d 09 f6 05 3a  |0)>>24.........:|
00001720  0d 0a 00 04 0d 0a 0a 0f  dd 20 f2 61 6c 69 67 6e  |......... .align|
00001730  28 66 29 0d 0a 14 15 c8  95 20 28 28 8f 23 66 29  |(f)...... ((.#f)|
00001740  20 83 20 34 29 3c 3e 30  0d 0a 1e 0a d5 20 23 66  | . 4)<>0..... #f|
00001750  2c 30 0d 0a 28 05 ce 0d  0a 32 05 e1 0d 0a 3c 05  |,0..(....2....<.|
00001760  3a 0d 0a 46 05 3a 0d 0a  50 1b dd f2 73 61 76 65  |:..F.:..P...save|
00001770  6d 6f 64 75 6c 65 28 66  69 6c 65 6e 61 6d 65 24  |module(filename$|
00001780  29 0d 0a 5a 0e ea 20 63  68 25 2c 20 69 6e 25 0d  |)..Z.. ch%, in%.|
00001790  0a 64 32 69 6e 24 20 3d  20 22 52 65 73 6f 75 72  |.d2in$ = "Resour|
000017a0  63 65 73 3a 24 2e 52 65  73 6f 75 72 63 65 73 2e  |ces:$.Resources.|
000017b0  44 65 73 6b 74 6f 70 2e  4d 65 73 73 61 67 65 73  |Desktop.Messages|
000017c0  22 0d 0a 6e 52 ff 20 22  25 43 6f 70 79 20 57 65  |"..nR. "%Copy We|
000017d0  6c 63 6f 6d 65 53 63 72  3a 4d 6f 64 75 6c 65 42  |lcomeScr:ModuleB|
000017e0  61 73 65 20 22 2b 66 69  6c 65 6e 61 6d 65 24 2b  |ase "+filename$+|
000017f0  22 20 41 20 7e 43 20 7e  44 20 46 20 7e 4c 20 7e  |" A ~C ~D F ~L ~|
00001800  4e 20 7e 50 20 7e 51 20  7e 52 20 53 20 7e 54 20  |N ~P ~Q ~R S ~T |
00001810  7e 56 22 0d 0a 78 14 63  68 25 3d ad 28 66 69 6c  |~V"..x.ch%=.(fil|
00001820  65 6e 61 6d 65 24 29 0d  0a 82 0f cf 23 63 68 25  |ename$).....#ch%|
00001830  3d a2 23 63 68 25 0d 0a  8c 2d c8 99 20 22 4f 53  |=.#ch%...-.. "OS|
00001840  5f 46 69 6c 65 22 2c 35  2c 69 6e 24 20 b8 20 2c  |_File",5,in$ . ,|
00001850  2c 6c 6f 61 64 2c 65 78  65 63 2c 6c 65 6e 2c 61  |,load,exec,len,a|
00001860  74 74 72 0d 0a 8d 0f 66  69 72 73 74 3d 8f 23 63  |ttr....first=.#c|
00001870  68 25 0d 0a 96 0f f2 70  75 74 77 6f 72 64 28 30  |h%.....putword(0|
00001880  29 0d 0a a0 12 f2 70 75  74 77 6f 72 64 28 6c 6f  |).....putword(lo|
00001890  61 64 29 0d 0a aa 12 f2  70 75 74 77 6f 72 64 28  |ad).....putword(|
000018a0  65 78 65 63 29 0d 0a b4  0f 73 69 7a 65 31 3d 8f  |exec)....size1=.|
000018b0  23 63 68 25 0d 0a be 1b  f2 70 75 74 77 6f 72 64  |#ch%.....putword|
000018c0  28 30 29 3a 20 f4 20 66  69 6c 65 73 69 7a 65 0d  |(0): . filesize.|
000018d0  0a c8 12 f2 70 75 74 77  6f 72 64 28 61 74 74 72  |....putword(attr|
000018e0  29 0d 0a d2 2a d5 23 63  68 25 2c 22 52 65 73 6f  |)...*.#ch%,"Reso|
000018f0  75 72 63 65 73 2e 44 65  73 6b 74 6f 70 2e 4d 65  |urces.Desktop.Me|
00001900  73 73 61 67 65 73 22 2b  bd 30 3b 0d 0a dc 0f f2  |ssages"+.0;.....|
00001910  61 6c 69 67 6e 28 63 68  25 29 0d 0a e6 0f 73 69  |align(ch%)....si|
00001920  7a 65 32 3d 8f 23 63 68  25 0d 0a f0 1d f2 70 75  |ze2=.#ch%.....pu|
00001930  74 77 6f 72 64 28 30 29  3a 20 f4 20 66 69 6c 65  |tword(0): . file|
00001940  73 69 7a 65 2b 34 0d 0a  fa 04 0d 0b 04 33 69 6e  |size+4.......3in|
00001950  25 3d 8e 28 22 52 65 73  6f 75 72 63 65 73 3a 24  |%=.("Resources:$|
00001960  2e 52 65 73 6f 75 72 63  65 73 2e 44 65 73 6b 74  |.Resources.Deskt|
00001970  6f 70 2e 4d 65 73 73 61  67 65 73 22 29 0d 0b 0e  |op.Messages")...|
00001980  0f 73 74 61 72 74 3d 8f  23 63 68 25 0d 0b 18 0e  |.start=.#ch%....|
00001990  c8 95 20 ac 20 c5 23 69  6e 25 0d 0b 22 0d 20 61  |.. . .#in%..". a|
000019a0  24 3d be 23 69 6e 25 0d  0b 2c 0e 20 e3 20 69 3d  |$=.#in%..,. . i=|
000019b0  30 20 b8 20 33 0d 0b 36  27 20 20 e7 20 c0 61 24  |0 . 3..6'  . .a$|
000019c0  2c a9 73 74 72 24 28 69  29 2b 31 29 20 3d 20 73  |,.str$(i)+1) = s|
000019d0  74 72 24 28 69 29 2b 22  3a 22 20 8c 0d 0b 40 38  |tr$(i)+":" ...@8|
000019e0  20 20 20 61 24 20 3d 20  73 74 72 24 28 69 29 2b  |   a$ = str$(i)+|
000019f0  22 3a 22 2b 24 28 a4 69  6e 64 69 72 61 64 64 72  |":"+$(.indiraddr|
00001a00  28 4d 61 69 6e 48 61 6e  64 6c 65 25 2c 69 2a 32  |(MainHandle%,i*2|
00001a10  2b 31 29 29 0d 0b 4a 07  20 20 cd 0d 0b 54 06 20  |+1))..J.  ...T. |
00001a20  ed 0d 0b 5e 0e 20 d5 20  23 63 68 25 2c 61 24 0d  |...^. . #ch%,a$.|
00001a30  0b 68 05 ce 0d 0b 72 0a  d9 20 23 69 6e 25 0d 0b  |.h....r.. #in%..|
00001a40  7c 0d 65 6e 64 3d 8f 23  63 68 25 0d 0b 86 0f f2  ||.end=.#ch%.....|
00001a50  61 6c 69 67 6e 28 63 68  25 29 0d 0b 90 0e 6c 61  |align(ch%)....la|
00001a60  73 74 3d 8f 23 63 68 25  0d 0b 9a 0f f2 70 75 74  |st=.#ch%.....put|
00001a70  77 6f 72 64 28 30 29 0d  0b a4 0f cf 23 63 68 25  |word(0).....#ch%|
00001a80  3d 73 69 7a 65 31 0d 0b  ae 17 f2 70 75 74 77 6f  |=size1.....putwo|
00001a90  72 64 28 65 6e 64 2d 73  74 61 72 74 29 0d 0b b8  |rd(end-start)...|
00001aa0  0f cf 23 63 68 25 3d 73  69 7a 65 32 0d 0b c2 19  |..#ch%=size2....|
00001ab0  f2 70 75 74 77 6f 72 64  28 65 6e 64 2d 73 74 61  |.putword(end-sta|
00001ac0  72 74 2b 34 29 0d 0b c3  0f cf 23 63 68 25 3d 66  |rt+4).....#ch%=f|
00001ad0  69 72 73 74 0d 0b c4 18  f2 70 75 74 77 6f 72 64  |irst.....putword|
00001ae0  28 6c 61 73 74 2d 66 69  72 73 74 29 0d 0b cc 09  |(last-first)....|
00001af0  d9 23 63 68 25 0d 0b d6  19 ff 20 22 25 53 74 61  |.#ch%..... "%Sta|
00001b00  6d 70 20 22 2b 66 69 6c  65 6e 61 6d 65 24 0d 0b  |mp "+filename$..|
00001b10  e0 22 ff 20 22 25 53 65  74 54 79 70 65 20 22 2b  |.". "%SetType "+|
00001b20  66 69 6c 65 6e 61 6d 65  24 2b 22 20 46 46 41 22  |filename$+" FFA"|
00001b30  0d 0b ea 05 e1 0d ff                              |.......|
00001b37