� >!RunImage file for !Qedit
� � David Croft, 1995

v1$="0.54"
v2$="16-Feb-95"

4� � � � 0,�$+" (internal error code "+�(�)+")":�

	
�setup

	�main
�


H� --------------------------------------------------- initialisation

� �setup
%� block% 1024, block2% 256, a$(3)

� / task variables /

#tn$="Qedit":quit%=�:�clear_vars
reload%=�:maxlen%=8:ent%=0

7ș "OS_ReadVarVal",tn$+"$Dir",block%,1024,0 � ,,len
"mydir$=��string(block%,0),len)

"� / newsbase messages & task /

newsbase_command%=&FEED10
newsbase_reply%=&FEED11
newsbase_update%=&FEED12
newsbase_task%=-1
 
!!� / mail directory location /
"
#(a$(0)="<Mail$Dir>.spool.mqueue.text"
$/a$(1)="<Mail$Dir>.spool.newsqueue.articles"
%'a$(2)="<Mail$Dir>.held.mqueue.text"
&.a$(3)="<Mail$Dir>.held.newsqueue.articles"
'
(5ș "Wimp_Initialise",200,&4B534154,tn$ � ,handle%
)%ș "OS_ReadMonotonicTime" � time%
*
+� � �fatalerror
,
-�msgt_init
.
/scrap$=�msgt_find("scrap")
0#temp$=��msgt_find("confirm"),1)
15� temp$="N" � temp$="n" � confirm%=� � confirm%=�
2
3�load_templates
4.�write_icon_text(7,info%,v1$+" ("+v2$+")")
5�menu_setup
6
7�ensure_directories
8
9�scan_queues
:�dim_memory
;�load_queues
<�extent
=�open_window(queue%,�)
>�newsbase_startup
?�
@
A� �main
B� � �error
Cȕ � quit%
D
 �poll
E: � ((reason%=17 � reason%=18) � block%!16=0) � quit%=�
F�
G�finish
H�
I
JH� ----------------------------------------------------- polling loop
K
L� �poll
M8ș "Wimp_PollIdle",%110000,block%,time%+50 � reason%
N�action(reason%)
O�
P
Q� �action(reason%)
RȎ reason% �
S, � 0 : ș "OS_ReadMonotonicTime" � time%
T&          � editing% � �check_file
U+ � 1 : � !block%=queue% � �redraw_queue
V' � 2 : ș "Wimp_OpenWindow",,block%
Wb � 3 : � !block%=queue% � � �ok_to_quit � quit%=�:!block%=queue%:ș "Wimp_CloseWindow",,block%
X � 6 : �click
Y) � 8 : ș "Wimp_ProcessKey",block%!24
Z � 9 : �menu_select
[ � 17,18 : �messages
\ � 19 : queue_ic%=�edit_ic
]2           ș "XWimp_StartTask",scrap$ � temp%
^T           � temp%=0 �message("noeditor"):�clear_vars:�unhold_editing(queue_ic%)
_�
`�
a
b� �messages
cȎ block%!16 �
d, � newsbase_reply%  : �newsbase_messages
ei � newsbase_update% : � block%!20=11 � �string(block%,32)="ka9q" � handle%<>block%!4 � �update_queues
f � &502 : Ȏ block%!32 �
g3              � queue%   : �send_help("hqueue")
h5              � message% : �send_help("hmessage")
i2              � info%    : �send_help("hinfo")
j             �
k- � 10 : �#(block%!20),"Filer_Run "+mydir$
lj � 5 : � �string(block%,44)="<Qedit$Dir>.!Run" � (¤string(block%,44),6)="!Qedit" � block%!40=&2000) �
m-           block%!16=4:block%!12=block%!8
n7           ș "Wimp_SendMessage",17,block%,block%!4
o&           �open_window(queue%,-1)
p          �
q�
r�
s
t� �click
u-mx%=!block%:my%=block%!4:button%=block%!8
vȎ block%!12 �
w6 � queue% : ic=�queue_icon:�close_window(message%)
x               Ȏ button% �
y)                � 4 : �queue_edit(ic)
z%                � 2 : menu_ic%=ic
{,                         �menu_title(ic)
|>                         �open_menu(main_menu%,mx%-64,my%)
}#                � 1 : � ic>-1 �
~L                          � (type%(ic) � 2)=2 � �release(ic) � �hold(ic)
                         �
�               �
�7 � message% : � block%!16=2 �close_window(message%)
��
��
�
�
� �finish
�
� � � 7:�
��msgt_finish
��close_editing
�)ș "Wimp_CloseDown",handle%,&4B534154
��
��
�
�H� -------------------------------------------------------- redrawing
�
�� �redraw_queue
�time%-=1000
�*ș "Wimp_RedrawWindow",,block% � flag%
�x0%=block%!4-block%!20
�y0%=block%!16-block%!24
�ȕ flag%
�  y1%=block%!32:y2%=block%!40
�1 s1%=((y0%-y2%) � 32)-60:s2%=((y0%-y1%) � 32)
�$ � s1%>(ent%*3)-1 s1%=(ent%*3)-1
�$ � s2%>(ent%*3)-1 s2%=(ent%*3)-1
� � s1%<0 s1%=0
� � s2%<0 s2%=0
� � loop=s1% � s2%
�'  entry%=(loop � 3):pos%=(loop � 3)
�  ș "Wimp_SetColour",7
�  Ȏ pos% �
�1   � 0 : � x0%+6,y0%-(loop*32)-60-(entry%*10)
�8            � �type(entry%);" ";�pad(id$(entry%),7);
�#            � size%(entry%)>0 �
�*             � size%(entry%)>50*1024 �
�<              � �pad(�(size%(entry%) � 1024)+"k",5);" ";
�             �
�1              � �pad(�(size%(entry%)),5);" ";
�             �
�            �
�-            � �pad(time$(entry%),18);" ";
�            � to$(entry%)
�&   � 1 : � (type%(entry%) � 2)=2 �
�5             � x0%+6,y0%-(loop*32)-60-(entry%*10)
�'             ș "Wimp_SetColour",11
�             � "HELD"
�&             ș "Wimp_SetColour",7
�            �
�<            � x0%+6+(16*37),y0%-(loop*32)-60-(entry%*10)
�            � from$(entry%)
�9   � 2 : � x0%+6+(16*37),y0%-(loop*32)-60-(entry%*10)
�            � subj$(entry%)
�  �
� �
�+ ș "Wimp_GetRectangle",,block% � flag%
��
��
�
�H� ------------------------------------------- Wimp_ReportError boxes
�
�� �fatalerror
�	� � �
�ș "XWimp_DragBox",,0
�
!block%=�
�G$(block%+4)=�$+" (internal error code "+�(�)+"), about to quit."+�0
�-ș "Wimp_ReportError",block%,1,tn$ � ,sel
�quit%=�
��main:�
��
�
�� �error
�	� � �
�ș "XWimp_DragBox",,0
�
!block%=�
�V$(block%+4)=�$+" (internal error code "+�(�)+"), press Cancel to quit program."+�0
�-ș "Wimp_ReportError",block%,3,tn$ � ,sel
�%� sel=2 � � �ok_to_quit � quit%=�
��main:�
��
�
�� �report(to$)
�ș "XWimp_DragBox",,0
�
!block%=1
�$(block%+4)=to$+�0
�7ș "Wimp_ReportError",block%,17,"Message from "+tn$
��
�
�� �sure(text$)
�ș "XWimp_DragBox",,0
�
!block%=1
�$(block%+4)=text$+�0
�?ș "Wimp_ReportError",block%,19,"Question from "+tn$ � ,sel
�� sel=2 � =0
�=-1
�
�H� ------------------------------------------------------------ menus
�
�� �menu_setup
�$ic%=%111000000001001000000110001
�$ig%=%111010000001001000000110001
�
�� mindir% 250
�
pointer=0
�
�items=4
� � item_menu% (28+(24*items))
�"�new_menu("Item",item_menu%,7)
�)�add_item(item_menu%,"Edit",0,-1,ic%)
�,�add_indir(item_menu%,"Hold",0,-1,ic%,7)
�/�add_indir(item_menu%,"Release",0,-1,ic%,7)
�+�add_item(item_menu%,"Delete",0,-1,ic%)
��do_menu(item_menu%)
�
�items=6
� � main_menu% (28+(24*items))
� �new_menu(tn$,main_menu%,16)
�,�add_item(main_menu%,"Info",0,info%,ic%)
�menutext%=mindir%+pointer
�A�add_indir(main_menu%,"News item XXXXXX",0,item_menu%,ic%,17)
�4�add_item(main_menu%,"Re-check queues",0,-1,ic%)
�1�add_item(main_menu%,"Flush queues",0,-1,ic%)
�)�add_item(main_menu%,"Help",0,-1,ic%)
�)�add_item(main_menu%,"Quit",0,-1,ic%)
��do_menu(main_menu%)
�
�,� pointer>200 � 0,"Indirected overflow!"
��
�

"� �new_menu(title$,blk%,width)


$blk%=�title$+�0,12)


blk%?12=7


blk%?13=2


blk%?14=7


blk%?15=0

blk%!16=(width+1)*16

blk%!20=44


blk%!24=0

	start=28


�



1� �add_item(blk%,name$,flags,submenu,icflags)


B� �(name$)>11 �add_indir(blk%,name$,flags,submenu,icflags,0):�

blk%!start=flags

blk%!(start+4)=submenu

blk%!(start+8)=icflags

$$(blk%+(start+12))=�name$+�0,12)


start+=24

�



:� �add_indir(blk%,name$,flags,submenu,icflags,reserve)

-� reserve<(�(name$)+1) reserve=�(name$)+1

blk%!start=flags

blk%!(start+4)=submenu

!blk%!(start+8)=icflags+(1<<8)

#blk%!(start+12)=mindir%+pointer

blk%!(start+16)=0

blk%!(start+20)=reserve


start+=24

$(mindir%+pointer)=name$

pointer+=reserve

 �

!

"� �do_menu(blk%)

#'blk%!(start-24)=blk%!(start-24)+128

$�

%

&&� �open_menu(blk%,menu_x%,menu_y%)

'.ș "Wimp_CreateMenu",,blk%,menu_x%,menu_y%

(current%=blk%

)�

*

+� �menu_select

,1ș "Wimp_DecodeMenu",,current%,block%,block2%

-a$=�string(block2%,0)

.%ș "Wimp_GetPointerInfo",,block2%

/reopen%=(block2%!8=1)

0

1-� !block%=1 � block%!8=-1 � menu_ic%>-1 �

2 Ȏ block%!4 �

3!  � 0 : �queue_edit(menu_ic%)

4  � 1 : �hold(menu_ic%)

5  � 2 : �release(menu_ic%)

6  � 3 : �queue_delete

7 �

8�

9

:Ȏ a$ �

;F � "Info"            : �open_menu(info%,block2%!0-64,block2%!4+64)

<) � "Re-check queues" : �update_queues

=' � "Flush queues"    : �queue_flush

>K � "Help"            : ș "Wimp_StartTask","Filer_Run "+mydir$+".!Help"

?2 � "Quit"            : � �ok_to_quit � quit%=�

@�

A

BJ� reopen% � �menu_title(menu_ic%):�open_menu(current%,menu_x%,menu_y%)

C�

D

E� �menu_title(ic)

F
� ic=-1 �

G $(menutext%)="No article"

H�

I, $(menutext%)=�type(ic)+" item "+id$(ic)

J�

K�

L

MH� ------------------------------------- templates, windows and icons

N

O� �load_templates

P1max=350:� indir% max:nindir%=indir%:Q%=block%

Q/ș "Wimp_OpenTemplate",,mydir$+".Templates"

R

SIș "Wimp_LoadTemplate",,Q%,nindir%,indir%+max,-1,"info",0 � ,,nindir%

T&ș "Wimp_CreateWindow",,Q% � info%

U

VJș "Wimp_LoadTemplate",,Q%,nindir%,indir%+max,-1,"queue",0 � ,,nindir%

W'ș "Wimp_CreateWindow",,Q% � queue%

X

YIș "Wimp_LoadTemplate",,Q%,nindir%,indir%+max,-1,"find",0 � ,,nindir%

Z&ș "Wimp_CreateWindow",,Q% � find%

[

\Lș "Wimp_LoadTemplate",,Q%,nindir%,indir%+max,-1,"message",0 � ,,nindir%

])ș "Wimp_CreateWindow",,Q% � message%

^

_ș "Wimp_CloseTemplate"

`�

a

b� �open_window(hand,front%)

c!block%=hand

d$ș "Wimp_GetWindowState",,block%

e� front% � block%!28=-1

f ș "Wimp_OpenWindow",,block%

g�

h

i� �open_central(hand)

j-� xeigf%,yeigf%,xsize%,ysize%,xvis%,yvis%

kblock%!0=hand

l$ș "Wimp_GetWindowState",,block%

m

n,ș "OS_ReadModeVariable",-1,4 � ,,xeigf%

o,ș "OS_ReadModeVariable",-1,5 � ,,yeigf%

p-ș "OS_ReadModeVariable",-1,11 � ,,xsize%

q-ș "OS_ReadModeVariable",-1,12 � ,,ysize%

rxsize%=(xsize%+1)<<xeigf%

sysize%=(ysize%+1)<<yeigf%

t

uxvis%=block%!12-block%!4

vyvis%=block%!16-block%!8

w!block%!4=(xsize%/2)-(xvis%/2)

x!block%!8=(ysize%/2)-(yvis%/2)

yblock%!12=block%!4+xvis%

zblock%!16=block%!8+yvis%

{block%!28=-1

| ș "Wimp_OpenWindow",,block%

}�

~

� �close_window(hand)

�!block%=hand

�!ș "Wimp_CloseWindow",,block%

��

�

�)� �write_icon_text(icon,window,temp$)

�!block2%=window

�block2%!4=icon

�#ș "Wimp_GetIconState",,block2%

�block2%!8=0

�block2%!12=0

�$(block2%!28)=temp$

�#ș "Wimp_SetIconState",,block2%

��

�

�� �redraw_line(line%)

�sș "Wimp_ForceRedraw",queue%,0,-((line%+1)*3*32)-60-(line%*10),((maxlen%+37)*16)+10,-(line%*3*32)-58-(line%*10)

��

�

�
� �redraw

�@ș "Wimp_ForceRedraw",queue%,0,depth%,((maxlen%+37)*16)+10,0

��

�

�
� �extent

�!depth%=-(ent%*((32*3)+10))-52

�� ent%=0 � depth%=-150

�
!block%=0

�block%!4=depth%

�!block%!8=((maxlen%+37)*16)+10

�block%!12=0

�%ș "Wimp_SetExtent",queue%,block%

��

�

�H� ------------------------------------------------- numbers and text

�

�'� �0pad(s$,len) =��len,"0")+s$,len)

�&� �pad(s$,len) =�s$+�len," "),len)

�

�� �string(st,ptr)

�
st$=""

��

� st$+=�(st?ptr)

� ptr+=1

�� st?ptr<32

�=st$

�

�H� ---------------------------------------- loading & updating queues

�

�� �ensure_directories

�;� �object("<Mail$Dir>")<2 � � 0,�msgt_find("nomaildir")

�� loop=1 � 2

�, � loop=1 � temp$="spool" � temp$="held"

�! �ensure("<Mail$Dir>."+temp$)

�+ �ensure("<Mail$Dir>."+temp$+".mqueue")

�0 �ensure("<Mail$Dir>."+temp$+".mqueue.work")

�0 �ensure("<Mail$Dir>."+temp$+".mqueue.text")

�. �ensure("<Mail$Dir>."+temp$+".newsqueue")

�8 �ensure("<Mail$Dir>."+temp$+".newsqueue.badmarker")

�7 �ensure("<Mail$Dir>."+temp$+".newsqueue.articles")

��

��

�

�� �ensure(temp2$)

�type%=�object(temp2$)

�/� type%<2 � type%>3 � ș "OS_File",8,temp2$

��

�

�� �object(temp2$)

�*ș "XOS_File",17,temp2$ � type%;flags%

�� (flags% � 1) � =-1

�
=type%

�

�� �scan_queues

�
ent%=0

�� loop=0 � 3

�
 start%=0

� ȕ start%>-1

�J  ș "OS_GBPB",9,a$(loop),block%,255,start%,1024,"*" � ,,,read%,start%

�  ent%+=read%

� �

��

��

�

�� �dim_memory

�dim%=ent%+50

�� type%(dim%), id$(dim%)

�� time$(dim%), size%(dim%)

�)� to$(dim%), from$(dim%), subj$(dim%)

��

�

�� �load_queues

�
pos%=0

�� loop=0 � 3

�C ș "OS_GBPB",11,a$(loop),block%,1,0,1024,"*" � ,,,read%,start%

� ȕ start%>-1

�V  � (loop � 1)=1 � id$(pos%)=��string(block%,29),5) � id$(pos%)=�string(block%,29)

�  type%(pos%)=loop

�  �load(�,pos%)

�  pos%+=read%

�I  ș "OS_GBPB",11,a$(loop),block%,1,start%,1024,"*" � ,,,read%,start%

� �

��

��

�

�� �load(later%,pos%)

�� later% �

�9 � (type%(pos%) � 2)=2 � held$="held" � held$="spool"

�] � (type%(pos%) � 1)=1 � type$="newsqueue.articles":f$="news" � type$="mqueue.text":f$=""

�O ș "OS_GBPB",11,"<Mail$Dir>."+held$+"."+type$,block%,1,0,1024,f$+id$(pos%)

��

�size%(pos%)=block%!8

�Nș "OS_ConvertDateAndTime",block%+24,block2%,256,"%24:%MI:%SE %DY %M3 %YR"

�"time$(pos%)=�string(block2%,0)

�� (type%(pos%) � 1)=0 �

� f=�(�index(pos%))

� � f=0 �

�$  to$(pos%)=�msgt_find("nowork")

�  from$(pos%)=""

� �

�  j$=�#f

�-  from$(pos%)="From: "+�get_string(f,249)

�/  � �(from$(pos%))=253 � from$(pos%)+="..."

�)  to$(pos%)="To: "+�get_string(f,253)

�  ȕ � �#f

�+   � �(to$(pos%))<254 � to$(pos%)+=", "

�1   to$(pos%)+=�get_string(f,255-�(to$(pos%)))

�  �

�	  �#f

� �


 f=�(�text(pos%))
 �
  j$=�#f
  Ȏ �j$,�j$,":")-1) �
#   � "Subject" : subj$(pos%)=j$
  �
 � j$="" � �#f
 �#f
	�

 f=�(�text(pos%))
 �
  j$=�#f

  Ȏ �j$,�j$,":")-1) �
$   � "Newsgroups" : to$(pos%)=j$
&   � "From"       : from$(pos%)=j$
&   � "Subject"    : subj$(pos%)=j$
  �
 � j$="" � �#f
 �#f
�
F� �(from$(pos%))>maxlen% � maxlen%=�(from$(pos%)):� later% �extent
B� �(to$(pos%))>maxlen% � maxlen%=�(to$(pos%)):� later% �extent
F� �(subj$(pos%))>maxlen% � maxlen%=�(subj$(pos%)):� later% �extent
�

� �get_string(file,len)
	a$=""
�

 a=�#file
 � a<>10 � a<>13 �
  � �(a$)<len-3 �
    a$+=�(a)
!  �
"   � �(a$)<len � a$+="."
#  �
$ �
%� a=10 � a=13 � �(a$)=len
&� a<>10 � a<>13 �
' �
(  a=�#file
) � a=10 � a=13
*�
+=a$
,
-� �update_queues
.ș "Wimp_CreateMenu",,-1
/
reopen%=�
0�scan_queues
1� ent%>dim% �
2 � editing% �
32  �message("notupdated"):reload%=�:ent%=dim%:�
4 �
5  �poll:�reload
6 �
7�
8�load_queues
9� ent%=0 �
: type%(0)=0:id$(0)=""
; time$(0)="":size%(0)=0
<& to$(0)="":from$(0)="":subj$(0)=""
=�
>*�extent:�redraw:�open_window(queue%,�)
?�
@
A
� �reload
B-ș "Wimp_StartTask","Run "+mydir$+".!Run"
C�finish
D�
E
F� �clear_vars
Gediting%=0
Hedit_type%=-1
Iedit_id$=""
Jwhand%=0
K�
L
MH� ------------------------- functions returning filenames, icons etc
N
O� �type(pos%)
P� size%(pos%)=0 � ="None"
Q7� (type%(pos%) � 1)=1 � type$="News" � type$="Mail"
R
=type$
S
T� �text(pos%)
U8� (type%(pos%) � 2)=2 � held$="held" � held$="spool"
VR� (type%(pos%) � 1)=1 � type$="newsqueue.articles.news" � type$="mqueue.text."
W,="<Mail$Dir>."+held$+"."+type$+id$(pos%)
X
Y� �index(pos%)
Z8� (type%(pos%) � 2)=2 � held$="held" � held$="spool"
[S� (type%(pos%) � 1)=1 � type$="newsqueue.badmarker.news" � type$="mqueue.work."
\,="<Mail$Dir>."+held$+"."+type$+id$(pos%)
]
^� �queue_icon
_!block%=queue%
`#ș "Wimp_GetWindowInfo",,block%
ay=my%-block%!16+block%!24
bic=(block%!44-(y+58))
c� ic<0 � ic=-((32*3)+10)
dic=ic � ((32*3)+10)
e� ent%<(ic+1) � ic=-1
f=ic
g
h� �editing(ic,text$)
i� editing%=� � =0
j>� �edit_ic=ic � �message2(�msgt_find1("cantdo",text$)):=-1
k=0
l
m� �edit_ic
n
found%=-1
o� loop=0 � ent%
p@ � type%(loop)=edit_type% � id$(loop)=edit_id$ � found%=loop
q�
r=found%
s
tH� ------------------------------------------------- the menu options
u
v� �hold(ic)
w� �editing(ic,"hold") �
x�hold_item(ic)
y �broadcast_update(type%(ic))
z�redraw_line(ic)
{�
|
}� �hold_item(ic)
~� (type%(ic) � 2)=2 � �
 a1$=�index(ic):b1$=�text(ic)
�type%(ic)=type%(ic) � 2
� a2$=�index(ic):b2$=�text(ic)
�-ș "Wimp_StartTask","Rename "+a1$+" "+a2$
�-ș "Wimp_StartTask","Rename "+b1$+" "+b2$
��
�
�� �release(ic)
�� �editing(ic,"release") �
��release_item(ic)
� �broadcast_update(type%(ic))
��redraw_line(ic)
��
�
�� �release_item(ic)
�� (type%(ic) � 2)=0 � �
� a1$=�index(ic):b1$=�text(ic)
�type%(ic)=type%(ic) � � 2
� a2$=�index(ic):b2$=�text(ic)
�-ș "Wimp_StartTask","Rename "+a1$+" "+a2$
�-ș "Wimp_StartTask","Rename "+b1$+" "+b2$
��
�
�� �queue_delete
�r� confirm% � � � �sure("Are you sure that you want to delete "+�type(menu_ic%)+" item "+id$(menu_ic%)+"?") � �
��delete_item(�,menu_ic%)
��
�
�� �delete_item(return%,ic%)
�.� � return% � � �editing(ic%,"delete") � �
�� ic%=-1 �
�4ș "Wimp_StartTask","Wipe "+�index(ic%)+" ~c~vf"
�3ș "Wimp_StartTask","Wipe "+�text(ic%)+" ~c~vf"
�� ic%<ent% �
� � loop=ic% � ent%-1
�  type%(loop)=type%(loop+1)
�  id$(loop)=id$(loop+1)
�  time$(loop)=time$(loop+1)
�  size%(loop)=size%(loop+1)
�  to$(loop)=to$(loop+1)
�  from$(loop)=from$(loop+1)
�  subj$(loop)=subj$(loop+1)
� �
��
�ent%-=1
�� � return% � �extent
��open_window(queue%,0)
�� � return% � �redraw
�!�broadcast_update(type%(ic%))
��
�
�� �queue_flush
�$� ent%=0 �message("cantflush"):�
�*� � �sure(�msgt_find("sureflush")) � �
�� ic%=ent%-1 � 0 � -1
� �delete_item(�,ic%)
��
��
�
�H� ------------------------------------------------------- re-editing
�
�� �queue_edit(ic)
�� ic=-1 � �
�(� editing%=� � �message("already"):�
�0� newsbase_task%=-1 � �message("noserver"):�
�
�1� (type%(ic) � 2)=0 � type%(ic)=type%(ic) � 4
��hold_item(ic)
�
�5ș "OS_CLI","Copy "+�text(ic)+" "+scrap$+" f~c~v"
�
�!block%=(49+�(scrap$)) � -4
�block%!12=0
�block%!16=5
�block%!20=queue%
�block%!28=0
�block%!32=0
�block%!36=0
�block%!40=&FFF
�$(block%+44)=scrap$
�%ș "Wimp_SendMessage",18,block%,0
�queue_ic%=ic
�edit_type%=type%(ic)
�edit_id$=id$(ic)
�editing%=�
�*ș "OS_File",17,scrap$ � ,,load%,exec%
��open_window(find%,�)
��redraw_line(ic)
��
�
�� �check_file
�� whand%=0 �
� !block%=find%
�% ș "Wimp_GetWindowState",,block%
� � block%!28=-1 � �
� whand%=block%!28
� �close_window(find%)
��
�!block%=whand%
�/ș "XWimp_GetWindowState",,block% � ;flags%
�� (flags% � 1)=1 �
� queue_ic%=�edit_ic
� �clear_vars
�* � queue_ic%=-1 �message("vanished"):�
� �finished_editing
� � � changed% �
�   �unhold_editing(queue_ic%)
�)  ș "OS_CLI","Wipe "+scrap$+" ~c~vf"
� �
� � reload% � �reload
��
��
�
�� �finished_editing
�,ș "OS_File",17,scrap$ � ,,nload%,nexec%
�0� nload%=load% � nexec%=exec% � changed%=�:�
�changed%=�
�.� newsbase_task%=-1 �message("noserver"):�
�$(block%+32)=scrap$
�� �type(queue_ic%)="Mail" �
�: �newsbase_cmd(newsbase_task%,310,(37+�(scrap$)) � -4)
��
�: �newsbase_cmd(newsbase_task%,300,(37+�(scrap$)) � -4)
��
��delete_item(�,queue_ic%)
��redraw
��
�
�� �close_editing
!� (� editing%) � whand%=0 � �

!block%=whand%
*ș "XWimp_SendMessage",3,block%,whand%
�

� �ok_to_quit
� � editing% � =-1
)� �sure(�msgt_find("cantquit")) � =-1
=0
	

� �unhold_editing(ic%)
� (type%(ic%) � 4)=4 �
 �release_item(ic%)

  type%(ic%)=type%(ic%) � � 4
�
�redraw_line(ic%)
�

H� ------------------------------------------------ newsbase commands

� �newsbase_startup
block%!24=53
�newsbase_cmd(0,0,28)
�

(� �newsbase_cmd(task%,code%,length%)
#� task%=-1 �message("nbgone"):�
!block%=length%
block%!12=0
block%!16=newsbase_command%
block%!20=code%
)ș "Wimp_SendMessage",17,block%,task%
 �
!
"� �newsbase_messages
#code$=�(block%!20)
$Ȏ �code$,1) �
%C � "9" : �report("Communication error: No such command "+code$)
&C � "2" : �report("Communication error: Try again later "+code$)
'< � "1" : �report("Communication error: Can't do "+code$)
( � "0" : Ȏ block%!20 �
)/             � 0  : newsbase_task%=block%!4
*M             � 10 : newsbase_task%=-1:� editing% � �message("servergone")
+,             � 300: �message("newssent")
,,             � 310: �message("mailsent")
-            �
.�
/�
0
1� �broadcast_update(type%)
2!block%=40
3block%!12=0
4block%!16=newsbase_update%
5block%!20=11
6block%!24=(type% � 1)
7$(block%+32)="ka9q"+�0
8%ș "Wimp_SendMessage",17,block%,0
9�
:
;H� ------------------------------------------------------- misc stuff
<
=� �message(temp$)
> �message2(�msgt_find(temp$))
?�
@
A� �message2(temp$)
B&�write_icon_text(1,message%,temp$)
C�open_central(message%)
D�
E
F� �send_help(temp$)
Gtemp$=�msgt_find(temp$)+�0
H!block%=(25+�(temp$)) � -4
Iblock%!12=block%!8
Jblock%!16=&503
K$(block%+20)=temp$
L,ș "Wimp_SendMessage",17,block%,block%!4
M�
N
OH� ---------------------------------------------------- message trans
P
Q� �msgt_init
R� msgt_res% 256
S filename$=mydir$+".Messages"
T9ș "MessageTrans_FileInfo",,filename$ � flags%,,size%
U.� flags% � 1 � buffer%=0 � � buffer% size%
V2ș "OS_Module",6,,,17+�filename$ � ,,filedesc%
W$(filedesc%+16)=filename$
X=ș "MessageTrans_OpenFile",filedesc%,filedesc%+16,buffer%
Y�
Z
[� �msgt_find(token$)
\� �
]� � � � �:=""
^6ș "MessageTrans_Lookup",filedesc%,token$ � ,,res$
_� �
`	=res$
a
b � �msgt_find1(token$,subst$)
c� �
d� � � � �:=""
eKș "MessageTrans_Lookup",filedesc%,token$,msgt_res%,256,subst$ � ,,res$
f� �
g	=res$
h
i� �msgt_finish
j)ș "MessageTrans_CloseFile",filedesc%
k�
l
mH� ---------------------------------------------------------- the end
�

00000000  0d 00 01 20 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |... . >!RunImage|
00000010  20 66 69 6c 65 20 66 6f  72 20 21 51 65 64 69 74  | file for !Qedit|
00000020  0d 00 02 19 f4 20 a9 20  44 61 76 69 64 20 43 72  |..... . David Cr|
00000030  6f 66 74 2c 20 31 39 39  35 0d 00 03 04 0d 00 04  |oft, 1995.......|
00000040  0e 76 31 24 3d 22 30 2e  35 34 22 0d 00 05 13 76  |.v1$="0.54"....v|
00000050  32 24 3d 22 31 36 2d 46  65 62 2d 39 35 22 0d 00  |2$="16-Feb-95"..|
00000060  06 04 0d 00 07 34 ee 20  85 20 85 20 a2 20 30 2c  |.....4. . . . 0,|
00000070  f6 24 2b 22 20 28 69 6e  74 65 72 6e 61 6c 20 65  |.$+" (internal e|
00000080  72 72 6f 72 20 63 6f 64  65 20 22 2b c3 28 9e 29  |rror code "+.(.)|
00000090  2b 22 29 22 3a e0 0d 00  08 04 0d 00 09 0a f2 73  |+")":..........s|
000000a0  65 74 75 70 0d 00 0a 09  f2 6d 61 69 6e 0d 00 0b  |etup.....main...|
000000b0  05 e0 0d 00 0c 04 0d 00  0d 48 f4 20 2d 2d 2d 2d  |.........H. ----|
000000c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 20  |--------------- |
000000f0  69 6e 69 74 69 61 6c 69  73 61 74 69 6f 6e 0d 00  |initialisation..|
00000100  0e 04 0d 00 0f 0c dd 20  f2 73 65 74 75 70 0d 00  |....... .setup..|
00000110  10 25 de 20 62 6c 6f 63  6b 25 20 31 30 32 34 2c  |.%. block% 1024,|
00000120  20 62 6c 6f 63 6b 32 25  20 32 35 36 2c 20 61 24  | block2% 256, a$|
00000130  28 33 29 0d 00 11 04 0d  00 12 18 f4 20 2f 20 74  |(3)......... / t|
00000140  61 73 6b 20 76 61 72 69  61 62 6c 65 73 20 2f 0d  |ask variables /.|
00000150  00 13 04 0d 00 14 23 74  6e 24 3d 22 51 65 64 69  |......#tn$="Qedi|
00000160  74 22 3a 71 75 69 74 25  3d a3 3a f2 63 6c 65 61  |t":quit%=.:.clea|
00000170  72 5f 76 61 72 73 0d 00  15 1e 72 65 6c 6f 61 64  |r_vars....reload|
00000180  25 3d a3 3a 6d 61 78 6c  65 6e 25 3d 38 3a 65 6e  |%=.:maxlen%=8:en|
00000190  74 25 3d 30 0d 00 16 04  0d 00 17 37 c8 99 20 22  |t%=0.......7.. "|
000001a0  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 74  |OS_ReadVarVal",t|
000001b0  6e 24 2b 22 24 44 69 72  22 2c 62 6c 6f 63 6b 25  |n$+"$Dir",block%|
000001c0  2c 31 30 32 34 2c 30 20  b8 20 2c 2c 6c 65 6e 0d  |,1024,0 . ,,len.|
000001d0  00 18 22 6d 79 64 69 72  24 3d c0 a4 73 74 72 69  |.."mydir$=..stri|
000001e0  6e 67 28 62 6c 6f 63 6b  25 2c 30 29 2c 6c 65 6e  |ng(block%,0),len|
000001f0  29 0d 00 19 04 0d 00 1a  22 f4 20 2f 20 6e 65 77  |).......". / new|
00000200  73 62 61 73 65 20 6d 65  73 73 61 67 65 73 20 26  |sbase messages &|
00000210  20 74 61 73 6b 20 2f 0d  00 1b 04 0d 00 1c 1d 6e  | task /........n|
00000220  65 77 73 62 61 73 65 5f  63 6f 6d 6d 61 6e 64 25  |ewsbase_command%|
00000230  3d 26 46 45 45 44 31 30  0d 00 1d 1b 6e 65 77 73  |=&FEED10....news|
00000240  62 61 73 65 5f 72 65 70  6c 79 25 3d 26 46 45 45  |base_reply%=&FEE|
00000250  44 31 31 0d 00 1e 1c 6e  65 77 73 62 61 73 65 5f  |D11....newsbase_|
00000260  75 70 64 61 74 65 25 3d  26 46 45 45 44 31 32 0d  |update%=&FEED12.|
00000270  00 1f 15 6e 65 77 73 62  61 73 65 5f 74 61 73 6b  |...newsbase_task|
00000280  25 3d 2d 31 0d 00 20 04  0d 00 21 21 f4 20 2f 20  |%=-1.. ...!!. / |
00000290  6d 61 69 6c 20 64 69 72  65 63 74 6f 72 79 20 6c  |mail directory l|
000002a0  6f 63 61 74 69 6f 6e 20  2f 0d 00 22 04 0d 00 23  |ocation /.."...#|
000002b0  28 61 24 28 30 29 3d 22  3c 4d 61 69 6c 24 44 69  |(a$(0)="<Mail$Di|
000002c0  72 3e 2e 73 70 6f 6f 6c  2e 6d 71 75 65 75 65 2e  |r>.spool.mqueue.|
000002d0  74 65 78 74 22 0d 00 24  2f 61 24 28 31 29 3d 22  |text"..$/a$(1)="|
000002e0  3c 4d 61 69 6c 24 44 69  72 3e 2e 73 70 6f 6f 6c  |<Mail$Dir>.spool|
000002f0  2e 6e 65 77 73 71 75 65  75 65 2e 61 72 74 69 63  |.newsqueue.artic|
00000300  6c 65 73 22 0d 00 25 27  61 24 28 32 29 3d 22 3c  |les"..%'a$(2)="<|
00000310  4d 61 69 6c 24 44 69 72  3e 2e 68 65 6c 64 2e 6d  |Mail$Dir>.held.m|
00000320  71 75 65 75 65 2e 74 65  78 74 22 0d 00 26 2e 61  |queue.text"..&.a|
00000330  24 28 33 29 3d 22 3c 4d  61 69 6c 24 44 69 72 3e  |$(3)="<Mail$Dir>|
00000340  2e 68 65 6c 64 2e 6e 65  77 73 71 75 65 75 65 2e  |.held.newsqueue.|
00000350  61 72 74 69 63 6c 65 73  22 0d 00 27 04 0d 00 28  |articles"..'...(|
00000360  35 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |5.. "Wimp_Initia|
00000370  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00000380  31 35 34 2c 74 6e 24 20  b8 20 2c 68 61 6e 64 6c  |154,tn$ . ,handl|
00000390  65 25 0d 00 29 25 c8 99  20 22 4f 53 5f 52 65 61  |e%..)%.. "OS_Rea|
000003a0  64 4d 6f 6e 6f 74 6f 6e  69 63 54 69 6d 65 22 20  |dMonotonicTime" |
000003b0  b8 20 74 69 6d 65 25 0d  00 2a 04 0d 00 2b 13 ee  |. time%..*...+..|
000003c0  20 85 20 f2 66 61 74 61  6c 65 72 72 6f 72 0d 00  | . .fatalerror..|
000003d0  2c 04 0d 00 2d 0e f2 6d  73 67 74 5f 69 6e 69 74  |,...-..msgt_init|
000003e0  0d 00 2e 04 0d 00 2f 1e  73 63 72 61 70 24 3d a4  |....../.scrap$=.|
000003f0  6d 73 67 74 5f 66 69 6e  64 28 22 73 63 72 61 70  |msgt_find("scrap|
00000400  22 29 0d 00 30 23 74 65  6d 70 24 3d c0 a4 6d 73  |")..0#temp$=..ms|
00000410  67 74 5f 66 69 6e 64 28  22 63 6f 6e 66 69 72 6d  |gt_find("confirm|
00000420  22 29 2c 31 29 0d 00 31  35 e7 20 74 65 6d 70 24  |"),1)..15. temp$|
00000430  3d 22 4e 22 20 84 20 74  65 6d 70 24 3d 22 6e 22  |="N" . temp$="n"|
00000440  20 8c 20 63 6f 6e 66 69  72 6d 25 3d a3 20 8b 20  | . confirm%=. . |
00000450  63 6f 6e 66 69 72 6d 25  3d b9 0d 00 32 04 0d 00  |confirm%=...2...|
00000460  33 13 f2 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |3..load_template|
00000470  73 0d 00 34 2e f2 77 72  69 74 65 5f 69 63 6f 6e  |s..4..write_icon|
00000480  5f 74 65 78 74 28 37 2c  69 6e 66 6f 25 2c 76 31  |_text(7,info%,v1|
00000490  24 2b 22 20 28 22 2b 76  32 24 2b 22 29 22 29 0d  |$+" ("+v2$+")").|
000004a0  00 35 0f f2 6d 65 6e 75  5f 73 65 74 75 70 0d 00  |.5..menu_setup..|
000004b0  36 04 0d 00 37 17 f2 65  6e 73 75 72 65 5f 64 69  |6...7..ensure_di|
000004c0  72 65 63 74 6f 72 69 65  73 0d 00 38 04 0d 00 39  |rectories..8...9|
000004d0  10 f2 73 63 61 6e 5f 71  75 65 75 65 73 0d 00 3a  |..scan_queues..:|
000004e0  0f f2 64 69 6d 5f 6d 65  6d 6f 72 79 0d 00 3b 10  |..dim_memory..;.|
000004f0  f2 6c 6f 61 64 5f 71 75  65 75 65 73 0d 00 3c 0b  |.load_queues..<.|
00000500  f2 65 78 74 65 6e 74 0d  00 3d 1a f2 6f 70 65 6e  |.extent..=..open|
00000510  5f 77 69 6e 64 6f 77 28  71 75 65 75 65 25 2c b9  |_window(queue%,.|
00000520  29 0d 00 3e 15 f2 6e 65  77 73 62 61 73 65 5f 73  |)..>..newsbase_s|
00000530  74 61 72 74 75 70 0d 00  3f 05 e1 0d 00 40 04 0d  |tartup..?....@..|
00000540  00 41 0b dd 20 f2 6d 61  69 6e 0d 00 42 0e ee 20  |.A.. .main..B.. |
00000550  85 20 f2 65 72 72 6f 72  0d 00 43 0e c8 95 20 ac  |. .error..C... .|
00000560  20 71 75 69 74 25 0d 00  44 0a 20 f2 70 6f 6c 6c  | quit%..D. .poll|
00000570  0d 00 45 3a 20 e7 20 28  28 72 65 61 73 6f 6e 25  |..E: . ((reason%|
00000580  3d 31 37 20 84 20 72 65  61 73 6f 6e 25 3d 31 38  |=17 . reason%=18|
00000590  29 20 80 20 62 6c 6f 63  6b 25 21 31 36 3d 30 29  |) . block%!16=0)|
000005a0  20 8c 20 71 75 69 74 25  3d b9 0d 00 46 05 ce 0d  | . quit%=...F...|
000005b0  00 47 0b f2 66 69 6e 69  73 68 0d 00 48 05 e1 0d  |.G..finish..H...|
000005c0  00 49 04 0d 00 4a 48 f4  20 2d 2d 2d 2d 2d 2d 2d  |.I...JH. -------|
000005d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 70  |-------------- p|
00000600  6f 6c 6c 69 6e 67 20 6c  6f 6f 70 0d 00 4b 04 0d  |olling loop..K..|
00000610  00 4c 0b dd 20 f2 70 6f  6c 6c 0d 00 4d 38 c8 99  |.L.. .poll..M8..|
00000620  20 22 57 69 6d 70 5f 50  6f 6c 6c 49 64 6c 65 22  | "Wimp_PollIdle"|
00000630  2c 25 31 31 30 30 30 30  2c 62 6c 6f 63 6b 25 2c  |,%110000,block%,|
00000640  74 69 6d 65 25 2b 35 30  20 b8 20 72 65 61 73 6f  |time%+50 . reaso|
00000650  6e 25 0d 00 4e 14 f2 61  63 74 69 6f 6e 28 72 65  |n%..N..action(re|
00000660  61 73 6f 6e 25 29 0d 00  4f 05 e1 0d 00 50 04 0d  |ason%)..O....P..|
00000670  00 51 16 dd 20 f2 61 63  74 69 6f 6e 28 72 65 61  |.Q.. .action(rea|
00000680  73 6f 6e 25 29 0d 00 52  10 c8 8e 20 72 65 61 73  |son%)..R... reas|
00000690  6f 6e 25 20 ca 0d 00 53  2c 20 c9 20 30 20 3a 20  |on% ...S, . 0 : |
000006a0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |.. "OS_ReadMonot|
000006b0  6f 6e 69 63 54 69 6d 65  22 20 b8 20 74 69 6d 65  |onicTime" . time|
000006c0  25 0d 00 54 26 20 20 20  20 20 20 20 20 20 20 e7  |%..T&          .|
000006d0  20 65 64 69 74 69 6e 67  25 20 8c 20 f2 63 68 65  | editing% . .che|
000006e0  63 6b 5f 66 69 6c 65 0d  00 55 2b 20 c9 20 31 20  |ck_file..U+ . 1 |
000006f0  3a 20 e7 20 21 62 6c 6f  63 6b 25 3d 71 75 65 75  |: . !block%=queu|
00000700  65 25 20 8c 20 f2 72 65  64 72 61 77 5f 71 75 65  |e% . .redraw_que|
00000710  75 65 0d 00 56 27 20 c9  20 32 20 3a 20 c8 99 20  |ue..V' . 2 : .. |
00000720  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00000730  22 2c 2c 62 6c 6f 63 6b  25 0d 00 57 62 20 c9 20  |",,block%..Wb . |
00000740  33 20 3a 20 e7 20 21 62  6c 6f 63 6b 25 3d 71 75  |3 : . !block%=qu|
00000750  65 75 65 25 20 8c 20 e7  20 a4 6f 6b 5f 74 6f 5f  |eue% . . .ok_to_|
00000760  71 75 69 74 20 8c 20 71  75 69 74 25 3d b9 3a 21  |quit . quit%=.:!|
00000770  62 6c 6f 63 6b 25 3d 71  75 65 75 65 25 3a c8 99  |block%=queue%:..|
00000780  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00000790  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 00 58 11 20  |ow",,block%..X. |
000007a0  c9 20 36 20 3a 20 f2 63  6c 69 63 6b 0d 00 59 29  |. 6 : .click..Y)|
000007b0  20 c9 20 38 20 3a 20 c8  99 20 22 57 69 6d 70 5f  | . 8 : .. "Wimp_|
000007c0  50 72 6f 63 65 73 73 4b  65 79 22 2c 62 6c 6f 63  |ProcessKey",bloc|
000007d0  6b 25 21 32 34 0d 00 5a  17 20 c9 20 39 20 3a 20  |k%!24..Z. . 9 : |
000007e0  f2 6d 65 6e 75 5f 73 65  6c 65 63 74 0d 00 5b 18  |.menu_select..[.|
000007f0  20 c9 20 31 37 2c 31 38  20 3a 20 f2 6d 65 73 73  | . 17,18 : .mess|
00000800  61 67 65 73 0d 00 5c 1e  20 c9 20 31 39 20 3a 20  |ages..\. . 19 : |
00000810  71 75 65 75 65 5f 69 63  25 3d a4 65 64 69 74 5f  |queue_ic%=.edit_|
00000820  69 63 0d 00 5d 32 20 20  20 20 20 20 20 20 20 20  |ic..]2          |
00000830  20 c8 99 20 22 58 57 69  6d 70 5f 53 74 61 72 74  | .. "XWimp_Start|
00000840  54 61 73 6b 22 2c 73 63  72 61 70 24 20 b8 20 74  |Task",scrap$ . t|
00000850  65 6d 70 25 0d 00 5e 54  20 20 20 20 20 20 20 20  |emp%..^T        |
00000860  20 20 20 e7 20 74 65 6d  70 25 3d 30 20 f2 6d 65  |   . temp%=0 .me|
00000870  73 73 61 67 65 28 22 6e  6f 65 64 69 74 6f 72 22  |ssage("noeditor"|
00000880  29 3a f2 63 6c 65 61 72  5f 76 61 72 73 3a f2 75  |):.clear_vars:.u|
00000890  6e 68 6f 6c 64 5f 65 64  69 74 69 6e 67 28 71 75  |nhold_editing(qu|
000008a0  65 75 65 5f 69 63 25 29  0d 00 5f 05 cb 0d 00 60  |eue_ic%).._....`|
000008b0  05 e1 0d 00 61 04 0d 00  62 0f dd 20 f2 6d 65 73  |....a...b.. .mes|
000008c0  73 61 67 65 73 0d 00 63  12 c8 8e 20 62 6c 6f 63  |sages..c... bloc|
000008d0  6b 25 21 31 36 20 ca 0d  00 64 2c 20 c9 20 6e 65  |k%!16 ...d, . ne|
000008e0  77 73 62 61 73 65 5f 72  65 70 6c 79 25 20 20 3a  |wsbase_reply%  :|
000008f0  20 f2 6e 65 77 73 62 61  73 65 5f 6d 65 73 73 61  | .newsbase_messa|
00000900  67 65 73 0d 00 65 69 20  c9 20 6e 65 77 73 62 61  |ges..ei . newsba|
00000910  73 65 5f 75 70 64 61 74  65 25 20 3a 20 e7 20 62  |se_update% : . b|
00000920  6c 6f 63 6b 25 21 32 30  3d 31 31 20 80 20 a4 73  |lock%!20=11 . .s|
00000930  74 72 69 6e 67 28 62 6c  6f 63 6b 25 2c 33 32 29  |tring(block%,32)|
00000940  3d 22 6b 61 39 71 22 20  80 20 68 61 6e 64 6c 65  |="ka9q" . handle|
00000950  25 3c 3e 62 6c 6f 63 6b  25 21 34 20 8c 20 f2 75  |%<>block%!4 . .u|
00000960  70 64 61 74 65 5f 71 75  65 75 65 73 0d 00 66 1c  |pdate_queues..f.|
00000970  20 c9 20 26 35 30 32 20  3a 20 c8 8e 20 62 6c 6f  | . &502 : .. blo|
00000980  63 6b 25 21 33 32 20 ca  0d 00 67 33 20 20 20 20  |ck%!32 ...g3    |
00000990  20 20 20 20 20 20 20 20  20 20 c9 20 71 75 65 75  |          . queu|
000009a0  65 25 20 20 20 3a 20 f2  73 65 6e 64 5f 68 65 6c  |e%   : .send_hel|
000009b0  70 28 22 68 71 75 65 75  65 22 29 0d 00 68 35 20  |p("hqueue")..h5 |
000009c0  20 20 20 20 20 20 20 20  20 20 20 20 20 c9 20 6d  |             . m|
000009d0  65 73 73 61 67 65 25 20  3a 20 f2 73 65 6e 64 5f  |essage% : .send_|
000009e0  68 65 6c 70 28 22 68 6d  65 73 73 61 67 65 22 29  |help("hmessage")|
000009f0  0d 00 69 32 20 20 20 20  20 20 20 20 20 20 20 20  |..i2            |
00000a00  20 20 c9 20 69 6e 66 6f  25 20 20 20 20 3a 20 f2  |  . info%    : .|
00000a10  73 65 6e 64 5f 68 65 6c  70 28 22 68 69 6e 66 6f  |send_help("hinfo|
00000a20  22 29 0d 00 6a 12 20 20  20 20 20 20 20 20 20 20  |")..j.          |
00000a30  20 20 20 cb 0d 00 6b 2d  20 c9 20 31 30 20 3a 20  |   ...k- . 10 : |
00000a40  d5 23 28 62 6c 6f 63 6b  25 21 32 30 29 2c 22 46  |.#(block%!20),"F|
00000a50  69 6c 65 72 5f 52 75 6e  20 22 2b 6d 79 64 69 72  |iler_Run "+mydir|
00000a60  24 0d 00 6c 6a 20 c9 20  35 20 3a 20 e7 20 a4 73  |$..lj . 5 : . .s|
00000a70  74 72 69 6e 67 28 62 6c  6f 63 6b 25 2c 34 34 29  |tring(block%,44)|
00000a80  3d 22 3c 51 65 64 69 74  24 44 69 72 3e 2e 21 52  |="<Qedit$Dir>.!R|
00000a90  75 6e 22 20 84 20 28 c2  a4 73 74 72 69 6e 67 28  |un" . (..string(|
00000aa0  62 6c 6f 63 6b 25 2c 34  34 29 2c 36 29 3d 22 21  |block%,44),6)="!|
00000ab0  51 65 64 69 74 22 20 80  20 62 6c 6f 63 6b 25 21  |Qedit" . block%!|
00000ac0  34 30 3d 26 32 30 30 30  29 20 8c 0d 00 6d 2d 20  |40=&2000) ...m- |
00000ad0  20 20 20 20 20 20 20 20  20 20 62 6c 6f 63 6b 25  |          block%|
00000ae0  21 31 36 3d 34 3a 62 6c  6f 63 6b 25 21 31 32 3d  |!16=4:block%!12=|
00000af0  62 6c 6f 63 6b 25 21 38  0d 00 6e 37 20 20 20 20  |block%!8..n7    |
00000b00  20 20 20 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |       .. "Wimp_|
00000b10  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00000b20  62 6c 6f 63 6b 25 2c 62  6c 6f 63 6b 25 21 34 0d  |block%,block%!4.|
00000b30  00 6f 26 20 20 20 20 20  20 20 20 20 20 20 f2 6f  |.o&           .o|
00000b40  70 65 6e 5f 77 69 6e 64  6f 77 28 71 75 65 75 65  |pen_window(queue|
00000b50  25 2c 2d 31 29 0d 00 70  0f 20 20 20 20 20 20 20  |%,-1)..p.       |
00000b60  20 20 20 cd 0d 00 71 05  cb 0d 00 72 05 e1 0d 00  |   ...q....r....|
00000b70  73 04 0d 00 74 0c dd 20  f2 63 6c 69 63 6b 0d 00  |s...t.. .click..|
00000b80  75 2d 6d 78 25 3d 21 62  6c 6f 63 6b 25 3a 6d 79  |u-mx%=!block%:my|
00000b90  25 3d 62 6c 6f 63 6b 25  21 34 3a 62 75 74 74 6f  |%=block%!4:butto|
00000ba0  6e 25 3d 62 6c 6f 63 6b  25 21 38 0d 00 76 12 c8  |n%=block%!8..v..|
00000bb0  8e 20 62 6c 6f 63 6b 25  21 31 32 20 ca 0d 00 77  |. block%!12 ...w|
00000bc0  36 20 c9 20 71 75 65 75  65 25 20 3a 20 69 63 3d  |6 . queue% : ic=|
00000bd0  a4 71 75 65 75 65 5f 69  63 6f 6e 3a f2 63 6c 6f  |.queue_icon:.clo|
00000be0  73 65 5f 77 69 6e 64 6f  77 28 6d 65 73 73 61 67  |se_window(messag|
00000bf0  65 25 29 0d 00 78 1f 20  20 20 20 20 20 20 20 20  |e%)..x.         |
00000c00  20 20 20 20 20 20 c8 8e  20 62 75 74 74 6f 6e 25  |      .. button%|
00000c10  20 ca 0d 00 79 29 20 20  20 20 20 20 20 20 20 20  | ...y)          |
00000c20  20 20 20 20 20 20 c9 20  34 20 3a 20 f2 71 75 65  |      . 4 : .que|
00000c30  75 65 5f 65 64 69 74 28  69 63 29 0d 00 7a 25 20  |ue_edit(ic)..z% |
00000c40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |               .|
00000c50  20 32 20 3a 20 6d 65 6e  75 5f 69 63 25 3d 69 63  | 2 : menu_ic%=ic|
00000c60  0d 00 7b 2c 20 20 20 20  20 20 20 20 20 20 20 20  |..{,            |
00000c70  20 20 20 20 20 20 20 20  20 20 20 20 20 f2 6d 65  |             .me|
00000c80  6e 75 5f 74 69 74 6c 65  28 69 63 29 0d 00 7c 3e  |nu_title(ic)..|>|
00000c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ca0  20 20 20 20 20 20 20 20  20 f2 6f 70 65 6e 5f 6d  |         .open_m|
00000cb0  65 6e 75 28 6d 61 69 6e  5f 6d 65 6e 75 25 2c 6d  |enu(main_menu%,m|
00000cc0  78 25 2d 36 34 2c 6d 79  25 29 0d 00 7d 23 20 20  |x%-64,my%)..}#  |
00000cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |              . |
00000ce0  31 20 3a 20 e7 20 69 63  3e 2d 31 20 8c 0d 00 7e  |1 : . ic>-1 ...~|
00000cf0  4c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |L               |
00000d00  20 20 20 20 20 20 20 20  20 20 20 e7 20 28 74 79  |           . (ty|
00000d10  70 65 25 28 69 63 29 20  80 20 32 29 3d 32 20 8c  |pe%(ic) . 2)=2 .|
00000d20  20 f2 72 65 6c 65 61 73  65 28 69 63 29 20 8b 20  | .release(ic) . |
00000d30  f2 68 6f 6c 64 28 69 63  29 0d 00 7f 1e 20 20 20  |.hold(ic)....   |
00000d40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d50  20 20 20 20 20 20 cd 0d  00 80 14 20 20 20 20 20  |      .....     |
00000d60  20 20 20 20 20 20 20 20  20 20 cb 0d 00 81 37 20  |          ....7 |
00000d70  c9 20 6d 65 73 73 61 67  65 25 20 3a 20 e7 20 62  |. message% : . b|
00000d80  6c 6f 63 6b 25 21 31 36  3d 32 20 f2 63 6c 6f 73  |lock%!16=2 .clos|
00000d90  65 5f 77 69 6e 64 6f 77  28 6d 65 73 73 61 67 65  |e_window(message|
00000da0  25 29 0d 00 82 05 cb 0d  00 83 05 e1 0d 00 84 04  |%)..............|
00000db0  0d 00 85 0d dd 20 f2 66  69 6e 69 73 68 0d 00 86  |..... .finish...|
00000dc0  0d ee 20 85 20 ef 20 37  3a e0 0d 00 87 10 f2 6d  |.. . . 7:......m|
00000dd0  73 67 74 5f 66 69 6e 69  73 68 0d 00 88 12 f2 63  |sgt_finish.....c|
00000de0  6c 6f 73 65 5f 65 64 69  74 69 6e 67 0d 00 89 29  |lose_editing...)|
00000df0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000e00  77 6e 22 2c 68 61 6e 64  6c 65 25 2c 26 34 42 35  |wn",handle%,&4B5|
00000e10  33 34 31 35 34 0d 00 8a  05 e0 0d 00 8b 05 e1 0d  |34154...........|
00000e20  00 8c 04 0d 00 8d 48 f4  20 2d 2d 2d 2d 2d 2d 2d  |......H. -------|
00000e30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000e60  2d 20 72 65 64 72 61 77  69 6e 67 0d 00 8e 04 0d  |- redrawing.....|
00000e70  00 8f 13 dd 20 f2 72 65  64 72 61 77 5f 71 75 65  |.... .redraw_que|
00000e80  75 65 0d 00 90 0f 74 69  6d 65 25 2d 3d 31 30 30  |ue....time%-=100|
00000e90  30 0d 00 91 2a c8 99 20  22 57 69 6d 70 5f 52 65  |0...*.. "Wimp_Re|
00000ea0  64 72 61 77 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |drawWindow",,blo|
00000eb0  63 6b 25 20 b8 20 66 6c  61 67 25 0d 00 92 1a 78  |ck% . flag%....x|
00000ec0  30 25 3d 62 6c 6f 63 6b  25 21 34 2d 62 6c 6f 63  |0%=block%!4-bloc|
00000ed0  6b 25 21 32 30 0d 00 93  1b 79 30 25 3d 62 6c 6f  |k%!20....y0%=blo|
00000ee0  63 6b 25 21 31 36 2d 62  6c 6f 63 6b 25 21 32 34  |ck%!16-block%!24|
00000ef0  0d 00 94 0c c8 95 20 66  6c 61 67 25 0d 00 95 20  |...... flag%... |
00000f00  20 79 31 25 3d 62 6c 6f  63 6b 25 21 33 32 3a 79  | y1%=block%!32:y|
00000f10  32 25 3d 62 6c 6f 63 6b  25 21 34 30 0d 00 96 31  |2%=block%!40...1|
00000f20  20 73 31 25 3d 28 28 79  30 25 2d 79 32 25 29 20  | s1%=((y0%-y2%) |
00000f30  81 20 33 32 29 2d 36 30  3a 73 32 25 3d 28 28 79  |. 32)-60:s2%=((y|
00000f40  30 25 2d 79 31 25 29 20  81 20 33 32 29 0d 00 97  |0%-y1%) . 32)...|
00000f50  24 20 e7 20 73 31 25 3e  28 65 6e 74 25 2a 33 29  |$ . s1%>(ent%*3)|
00000f60  2d 31 20 73 31 25 3d 28  65 6e 74 25 2a 33 29 2d  |-1 s1%=(ent%*3)-|
00000f70  31 0d 00 98 24 20 e7 20  73 32 25 3e 28 65 6e 74  |1...$ . s2%>(ent|
00000f80  25 2a 33 29 2d 31 20 73  32 25 3d 28 65 6e 74 25  |%*3)-1 s2%=(ent%|
00000f90  2a 33 29 2d 31 0d 00 99  12 20 e7 20 73 31 25 3c  |*3)-1.... . s1%<|
00000fa0  30 20 73 31 25 3d 30 0d  00 9a 12 20 e7 20 73 32  |0 s1%=0.... . s2|
00000fb0  25 3c 30 20 73 32 25 3d  30 0d 00 9b 15 20 e3 20  |%<0 s2%=0.... . |
00000fc0  6c 6f 6f 70 3d 73 31 25  20 b8 20 73 32 25 0d 00  |loop=s1% . s2%..|
00000fd0  9c 27 20 20 65 6e 74 72  79 25 3d 28 6c 6f 6f 70  |.'  entry%=(loop|
00000fe0  20 81 20 33 29 3a 70 6f  73 25 3d 28 6c 6f 6f 70  | . 3):pos%=(loop|
00000ff0  20 83 20 33 29 0d 00 9d  1b 20 20 c8 99 20 22 57  | . 3)....  .. "W|
00001000  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 37  |imp_SetColour",7|
00001010  0d 00 9e 0f 20 20 c8 8e  20 70 6f 73 25 20 ca 0d  |....  .. pos% ..|
00001020  00 9f 31 20 20 20 c9 20  30 20 3a 20 ec 20 78 30  |..1   . 0 : . x0|
00001030  25 2b 36 2c 79 30 25 2d  28 6c 6f 6f 70 2a 33 32  |%+6,y0%-(loop*32|
00001040  29 2d 36 30 2d 28 65 6e  74 72 79 25 2a 31 30 29  |)-60-(entry%*10)|
00001050  0d 00 a0 38 20 20 20 20  20 20 20 20 20 20 20 20  |...8            |
00001060  f1 20 a4 74 79 70 65 28  65 6e 74 72 79 25 29 3b  |. .type(entry%);|
00001070  22 20 22 3b a4 70 61 64  28 69 64 24 28 65 6e 74  |" ";.pad(id$(ent|
00001080  72 79 25 29 2c 37 29 3b  0d 00 a1 23 20 20 20 20  |ry%),7);...#    |
00001090  20 20 20 20 20 20 20 20  e7 20 73 69 7a 65 25 28  |        . size%(|
000010a0  65 6e 74 72 79 25 29 3e  30 20 8c 0d 00 a2 2a 20  |entry%)>0 ....* |
000010b0  20 20 20 20 20 20 20 20  20 20 20 20 e7 20 73 69  |            . si|
000010c0  7a 65 25 28 65 6e 74 72  79 25 29 3e 35 30 2a 31  |ze%(entry%)>50*1|
000010d0  30 32 34 20 8c 0d 00 a3  3c 20 20 20 20 20 20 20  |024 ....<       |
000010e0  20 20 20 20 20 20 20 f1  20 a4 70 61 64 28 c3 28  |       . .pad(.(|
000010f0  73 69 7a 65 25 28 65 6e  74 72 79 25 29 20 81 20  |size%(entry%) . |
00001100  31 30 32 34 29 2b 22 6b  22 2c 35 29 3b 22 20 22  |1024)+"k",5);" "|
00001110  3b 0d 00 a4 12 20 20 20  20 20 20 20 20 20 20 20  |;....           |
00001120  20 20 cc 0d 00 a5 31 20  20 20 20 20 20 20 20 20  |  ....1         |
00001130  20 20 20 20 20 f1 20 a4  70 61 64 28 c3 28 73 69  |     . .pad(.(si|
00001140  7a 65 25 28 65 6e 74 72  79 25 29 29 2c 35 29 3b  |ze%(entry%)),5);|
00001150  22 20 22 3b 0d 00 a6 12  20 20 20 20 20 20 20 20  |" ";....        |
00001160  20 20 20 20 20 cd 0d 00  a7 11 20 20 20 20 20 20  |     .....      |
00001170  20 20 20 20 20 20 cd 0d  00 a8 2d 20 20 20 20 20  |      ....-     |
00001180  20 20 20 20 20 20 20 f1  20 a4 70 61 64 28 74 69  |       . .pad(ti|
00001190  6d 65 24 28 65 6e 74 72  79 25 29 2c 31 38 29 3b  |me$(entry%),18);|
000011a0  22 20 22 3b 0d 00 a9 1d  20 20 20 20 20 20 20 20  |" ";....        |
000011b0  20 20 20 20 f1 20 74 6f  24 28 65 6e 74 72 79 25  |    . to$(entry%|
000011c0  29 0d 00 aa 26 20 20 20  c9 20 31 20 3a 20 e7 20  |)...&   . 1 : . |
000011d0  28 74 79 70 65 25 28 65  6e 74 72 79 25 29 20 80  |(type%(entry%) .|
000011e0  20 32 29 3d 32 20 8c 0d  00 ab 35 20 20 20 20 20  | 2)=2 ....5     |
000011f0  20 20 20 20 20 20 20 20  ec 20 78 30 25 2b 36 2c  |        . x0%+6,|
00001200  79 30 25 2d 28 6c 6f 6f  70 2a 33 32 29 2d 36 30  |y0%-(loop*32)-60|
00001210  2d 28 65 6e 74 72 79 25  2a 31 30 29 0d 00 ac 27  |-(entry%*10)...'|
00001220  20 20 20 20 20 20 20 20  20 20 20 20 20 c8 99 20  |             .. |
00001230  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00001240  2c 31 31 0d 00 ad 19 20  20 20 20 20 20 20 20 20  |,11....         |
00001250  20 20 20 20 f1 20 22 48  45 4c 44 22 0d 00 ae 26  |    . "HELD"...&|
00001260  20 20 20 20 20 20 20 20  20 20 20 20 20 c8 99 20  |             .. |
00001270  22 57 69 6d 70 5f 53 65  74 43 6f 6c 6f 75 72 22  |"Wimp_SetColour"|
00001280  2c 37 0d 00 af 11 20 20  20 20 20 20 20 20 20 20  |,7....          |
00001290  20 20 cd 0d 00 b0 3c 20  20 20 20 20 20 20 20 20  |  ....<         |
000012a0  20 20 20 ec 20 78 30 25  2b 36 2b 28 31 36 2a 33  |   . x0%+6+(16*3|
000012b0  37 29 2c 79 30 25 2d 28  6c 6f 6f 70 2a 33 32 29  |7),y0%-(loop*32)|
000012c0  2d 36 30 2d 28 65 6e 74  72 79 25 2a 31 30 29 0d  |-60-(entry%*10).|
000012d0  00 b1 1f 20 20 20 20 20  20 20 20 20 20 20 20 f1  |...            .|
000012e0  20 66 72 6f 6d 24 28 65  6e 74 72 79 25 29 0d 00  | from$(entry%)..|
000012f0  b2 39 20 20 20 c9 20 32  20 3a 20 ec 20 78 30 25  |.9   . 2 : . x0%|
00001300  2b 36 2b 28 31 36 2a 33  37 29 2c 79 30 25 2d 28  |+6+(16*37),y0%-(|
00001310  6c 6f 6f 70 2a 33 32 29  2d 36 30 2d 28 65 6e 74  |loop*32)-60-(ent|
00001320  72 79 25 2a 31 30 29 0d  00 b3 1f 20 20 20 20 20  |ry%*10)....     |
00001330  20 20 20 20 20 20 20 f1  20 73 75 62 6a 24 28 65  |       . subj$(e|
00001340  6e 74 72 79 25 29 0d 00  b4 07 20 20 cb 0d 00 b5  |ntry%)....  ....|
00001350  06 20 ed 0d 00 b6 2b 20  c8 99 20 22 57 69 6d 70  |. ....+ .. "Wimp|
00001360  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00001370  62 6c 6f 63 6b 25 20 b8  20 66 6c 61 67 25 0d 00  |block% . flag%..|
00001380  b7 05 ce 0d 00 b8 05 e1  0d 00 b9 04 0d 00 ba 48  |...............H|
00001390  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
000013a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000013b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 20 57 69  |------------- Wi|
000013c0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 20 62  |mp_ReportError b|
000013d0  6f 78 65 73 0d 00 bb 04  0d 00 bc 11 dd 20 f2 66  |oxes......... .f|
000013e0  61 74 61 6c 65 72 72 6f  72 0d 00 bd 09 ee 20 85  |atalerror..... .|
000013f0  20 87 0d 00 be 19 c8 99  20 22 58 57 69 6d 70 5f  | ....... "XWimp_|
00001400  44 72 61 67 42 6f 78 22  2c 2c 30 0d 00 bf 0d 21  |DragBox",,0....!|
00001410  62 6c 6f 63 6b 25 3d 9f  0d 00 c0 47 24 28 62 6c  |block%=....G$(bl|
00001420  6f 63 6b 25 2b 34 29 3d  f6 24 2b 22 20 28 69 6e  |ock%+4)=.$+" (in|
00001430  74 65 72 6e 61 6c 20 65  72 72 6f 72 20 63 6f 64  |ternal error cod|
00001440  65 20 22 2b c3 28 9e 29  2b 22 29 2c 20 61 62 6f  |e "+.(.)+"), abo|
00001450  75 74 20 74 6f 20 71 75  69 74 2e 22 2b bd 30 0d  |ut to quit."+.0.|
00001460  00 c1 2d c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..-.. "Wimp_Repo|
00001470  72 74 45 72 72 6f 72 22  2c 62 6c 6f 63 6b 25 2c  |rtError",block%,|
00001480  31 2c 74 6e 24 20 b8 20  2c 73 65 6c 0d 00 c2 0b  |1,tn$ . ,sel....|
00001490  71 75 69 74 25 3d b9 0d  00 c3 0b f2 6d 61 69 6e  |quit%=......main|
000014a0  3a e0 0d 00 c4 05 e1 0d  00 c5 04 0d 00 c6 0c dd  |:...............|
000014b0  20 f2 65 72 72 6f 72 0d  00 c7 09 ee 20 85 20 87  | .error..... . .|
000014c0  0d 00 c8 19 c8 99 20 22  58 57 69 6d 70 5f 44 72  |...... "XWimp_Dr|
000014d0  61 67 42 6f 78 22 2c 2c  30 0d 00 c9 0d 21 62 6c  |agBox",,0....!bl|
000014e0  6f 63 6b 25 3d 9f 0d 00  ca 56 24 28 62 6c 6f 63  |ock%=....V$(bloc|
000014f0  6b 25 2b 34 29 3d f6 24  2b 22 20 28 69 6e 74 65  |k%+4)=.$+" (inte|
00001500  72 6e 61 6c 20 65 72 72  6f 72 20 63 6f 64 65 20  |rnal error code |
00001510  22 2b c3 28 9e 29 2b 22  29 2c 20 70 72 65 73 73  |"+.(.)+"), press|
00001520  20 43 61 6e 63 65 6c 20  74 6f 20 71 75 69 74 20  | Cancel to quit |
00001530  70 72 6f 67 72 61 6d 2e  22 2b bd 30 0d 00 cb 2d  |program."+.0...-|
00001540  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00001550  72 72 6f 72 22 2c 62 6c  6f 63 6b 25 2c 33 2c 74  |rror",block%,3,t|
00001560  6e 24 20 b8 20 2c 73 65  6c 0d 00 cc 25 e7 20 73  |n$ . ,sel...%. s|
00001570  65 6c 3d 32 20 8c 20 e7  20 a4 6f 6b 5f 74 6f 5f  |el=2 . . .ok_to_|
00001580  71 75 69 74 20 8c 20 71  75 69 74 25 3d b9 0d 00  |quit . quit%=...|
00001590  cd 0b f2 6d 61 69 6e 3a  e0 0d 00 ce 05 e1 0d 00  |...main:........|
000015a0  cf 04 0d 00 d0 12 dd 20  f2 72 65 70 6f 72 74 28  |....... .report(|
000015b0  74 6f 24 29 0d 00 d1 19  c8 99 20 22 58 57 69 6d  |to$)...... "XWim|
000015c0  70 5f 44 72 61 67 42 6f  78 22 2c 2c 30 0d 00 d2  |p_DragBox",,0...|
000015d0  0d 21 62 6c 6f 63 6b 25  3d 31 0d 00 d3 16 24 28  |.!block%=1....$(|
000015e0  62 6c 6f 63 6b 25 2b 34  29 3d 74 6f 24 2b bd 30  |block%+4)=to$+.0|
000015f0  0d 00 d4 37 c8 99 20 22  57 69 6d 70 5f 52 65 70  |...7.. "Wimp_Rep|
00001600  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
00001610  2c 31 37 2c 22 4d 65 73  73 61 67 65 20 66 72 6f  |,17,"Message fro|
00001620  6d 20 22 2b 74 6e 24 0d  00 d5 05 e1 0d 00 d6 04  |m "+tn$.........|
00001630  0d 00 d7 12 dd 20 a4 73  75 72 65 28 74 65 78 74  |..... .sure(text|
00001640  24 29 0d 00 d8 19 c8 99  20 22 58 57 69 6d 70 5f  |$)...... "XWimp_|
00001650  44 72 61 67 42 6f 78 22  2c 2c 30 0d 00 d9 0d 21  |DragBox",,0....!|
00001660  62 6c 6f 63 6b 25 3d 31  0d 00 da 18 24 28 62 6c  |block%=1....$(bl|
00001670  6f 63 6b 25 2b 34 29 3d  74 65 78 74 24 2b bd 30  |ock%+4)=text$+.0|
00001680  0d 00 db 3f c8 99 20 22  57 69 6d 70 5f 52 65 70  |...?.. "Wimp_Rep|
00001690  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
000016a0  2c 31 39 2c 22 51 75 65  73 74 69 6f 6e 20 66 72  |,19,"Question fr|
000016b0  6f 6d 20 22 2b 74 6e 24  20 b8 20 2c 73 65 6c 0d  |om "+tn$ . ,sel.|
000016c0  00 dc 10 e7 20 73 65 6c  3d 32 20 8c 20 3d 30 0d  |.... sel=2 . =0.|
000016d0  00 dd 07 3d 2d 31 0d 00  de 04 0d 00 df 48 f4 20  |...=-1.......H. |
000016e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001710  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 6d 65 6e  |------------ men|
00001720  75 73 0d 00 e0 04 0d 00  e1 11 dd 20 f2 6d 65 6e  |us......... .men|
00001730  75 5f 73 65 74 75 70 0d  00 e2 24 69 63 25 3d 25  |u_setup...$ic%=%|
00001740  31 31 31 30 30 30 30 30  30 30 30 31 30 30 31 30  |1110000000010010|
00001750  30 30 30 30 30 31 31 30  30 30 31 0d 00 e3 24 69  |00000110001...$i|
00001760  67 25 3d 25 31 31 31 30  31 30 30 30 30 30 30 31  |g%=%111010000001|
00001770  30 30 31 30 30 30 30 30  30 31 31 30 30 30 31 0d  |001000000110001.|
00001780  00 e4 04 0d 00 e5 11 de  20 6d 69 6e 64 69 72 25  |........ mindir%|
00001790  20 32 35 30 0d 00 e6 0d  70 6f 69 6e 74 65 72 3d  | 250....pointer=|
000017a0  30 0d 00 e7 04 0d 00 e8  0b 69 74 65 6d 73 3d 34  |0........items=4|
000017b0  0d 00 e9 20 de 20 69 74  65 6d 5f 6d 65 6e 75 25  |... . item_menu%|
000017c0  20 28 32 38 2b 28 32 34  2a 69 74 65 6d 73 29 29  | (28+(24*items))|
000017d0  0d 00 ea 22 f2 6e 65 77  5f 6d 65 6e 75 28 22 49  |...".new_menu("I|
000017e0  74 65 6d 22 2c 69 74 65  6d 5f 6d 65 6e 75 25 2c  |tem",item_menu%,|
000017f0  37 29 0d 00 eb 29 f2 61  64 64 5f 69 74 65 6d 28  |7)...).add_item(|
00001800  69 74 65 6d 5f 6d 65 6e  75 25 2c 22 45 64 69 74  |item_menu%,"Edit|
00001810  22 2c 30 2c 2d 31 2c 69  63 25 29 0d 00 ec 2c f2  |",0,-1,ic%)...,.|
00001820  61 64 64 5f 69 6e 64 69  72 28 69 74 65 6d 5f 6d  |add_indir(item_m|
00001830  65 6e 75 25 2c 22 48 6f  6c 64 22 2c 30 2c 2d 31  |enu%,"Hold",0,-1|
00001840  2c 69 63 25 2c 37 29 0d  00 ed 2f f2 61 64 64 5f  |,ic%,7).../.add_|
00001850  69 6e 64 69 72 28 69 74  65 6d 5f 6d 65 6e 75 25  |indir(item_menu%|
00001860  2c 22 52 65 6c 65 61 73  65 22 2c 30 2c 2d 31 2c  |,"Release",0,-1,|
00001870  69 63 25 2c 37 29 0d 00  ee 2b f2 61 64 64 5f 69  |ic%,7)...+.add_i|
00001880  74 65 6d 28 69 74 65 6d  5f 6d 65 6e 75 25 2c 22  |tem(item_menu%,"|
00001890  44 65 6c 65 74 65 22 2c  30 2c 2d 31 2c 69 63 25  |Delete",0,-1,ic%|
000018a0  29 0d 00 ef 18 f2 64 6f  5f 6d 65 6e 75 28 69 74  |).....do_menu(it|
000018b0  65 6d 5f 6d 65 6e 75 25  29 0d 00 f0 04 0d 00 f1  |em_menu%).......|
000018c0  0b 69 74 65 6d 73 3d 36  0d 00 f2 20 de 20 6d 61  |.items=6... . ma|
000018d0  69 6e 5f 6d 65 6e 75 25  20 28 32 38 2b 28 32 34  |in_menu% (28+(24|
000018e0  2a 69 74 65 6d 73 29 29  0d 00 f3 20 f2 6e 65 77  |*items))... .new|
000018f0  5f 6d 65 6e 75 28 74 6e  24 2c 6d 61 69 6e 5f 6d  |_menu(tn$,main_m|
00001900  65 6e 75 25 2c 31 36 29  0d 00 f4 2c f2 61 64 64  |enu%,16)...,.add|
00001910  5f 69 74 65 6d 28 6d 61  69 6e 5f 6d 65 6e 75 25  |_item(main_menu%|
00001920  2c 22 49 6e 66 6f 22 2c  30 2c 69 6e 66 6f 25 2c  |,"Info",0,info%,|
00001930  69 63 25 29 0d 00 f5 1d  6d 65 6e 75 74 65 78 74  |ic%)....menutext|
00001940  25 3d 6d 69 6e 64 69 72  25 2b 70 6f 69 6e 74 65  |%=mindir%+pointe|
00001950  72 0d 00 f6 41 f2 61 64  64 5f 69 6e 64 69 72 28  |r...A.add_indir(|
00001960  6d 61 69 6e 5f 6d 65 6e  75 25 2c 22 4e 65 77 73  |main_menu%,"News|
00001970  20 69 74 65 6d 20 58 58  58 58 58 58 22 2c 30 2c  | item XXXXXX",0,|
00001980  69 74 65 6d 5f 6d 65 6e  75 25 2c 69 63 25 2c 31  |item_menu%,ic%,1|
00001990  37 29 0d 00 f7 34 f2 61  64 64 5f 69 74 65 6d 28  |7)...4.add_item(|
000019a0  6d 61 69 6e 5f 6d 65 6e  75 25 2c 22 52 65 2d 63  |main_menu%,"Re-c|
000019b0  68 65 63 6b 20 71 75 65  75 65 73 22 2c 30 2c 2d  |heck queues",0,-|
000019c0  31 2c 69 63 25 29 0d 00  f8 31 f2 61 64 64 5f 69  |1,ic%)...1.add_i|
000019d0  74 65 6d 28 6d 61 69 6e  5f 6d 65 6e 75 25 2c 22  |tem(main_menu%,"|
000019e0  46 6c 75 73 68 20 71 75  65 75 65 73 22 2c 30 2c  |Flush queues",0,|
000019f0  2d 31 2c 69 63 25 29 0d  00 f9 29 f2 61 64 64 5f  |-1,ic%)...).add_|
00001a00  69 74 65 6d 28 6d 61 69  6e 5f 6d 65 6e 75 25 2c  |item(main_menu%,|
00001a10  22 48 65 6c 70 22 2c 30  2c 2d 31 2c 69 63 25 29  |"Help",0,-1,ic%)|
00001a20  0d 00 fa 29 f2 61 64 64  5f 69 74 65 6d 28 6d 61  |...).add_item(ma|
00001a30  69 6e 5f 6d 65 6e 75 25  2c 22 51 75 69 74 22 2c  |in_menu%,"Quit",|
00001a40  30 2c 2d 31 2c 69 63 25  29 0d 00 fb 18 f2 64 6f  |0,-1,ic%).....do|
00001a50  5f 6d 65 6e 75 28 6d 61  69 6e 5f 6d 65 6e 75 25  |_menu(main_menu%|
00001a60  29 0d 00 fc 04 0d 00 fd  2c e7 20 70 6f 69 6e 74  |).......,. point|
00001a70  65 72 3e 32 30 30 20 85  20 30 2c 22 49 6e 64 69  |er>200 . 0,"Indi|
00001a80  72 65 63 74 65 64 20 6f  76 65 72 66 6c 6f 77 21  |rected overflow!|
00001a90  22 0d 00 fe 05 e1 0d 00  ff 04 0d 01 00 22 dd 20  |"............". |
00001aa0  f2 6e 65 77 5f 6d 65 6e  75 28 74 69 74 6c 65 24  |.new_menu(title$|
00001ab0  2c 62 6c 6b 25 2c 77 69  64 74 68 29 0d 01 01 18  |,blk%,width)....|
00001ac0  24 62 6c 6b 25 3d c0 74  69 74 6c 65 24 2b bd 30  |$blk%=.title$+.0|
00001ad0  2c 31 32 29 0d 01 02 0d  62 6c 6b 25 3f 31 32 3d  |,12)....blk%?12=|
00001ae0  37 0d 01 03 0d 62 6c 6b  25 3f 31 33 3d 32 0d 01  |7....blk%?13=2..|
00001af0  04 0d 62 6c 6b 25 3f 31  34 3d 37 0d 01 05 0d 62  |..blk%?14=7....b|
00001b00  6c 6b 25 3f 31 35 3d 30  0d 01 06 18 62 6c 6b 25  |lk%?15=0....blk%|
00001b10  21 31 36 3d 28 77 69 64  74 68 2b 31 29 2a 31 36  |!16=(width+1)*16|
00001b20  0d 01 07 0e 62 6c 6b 25  21 32 30 3d 34 34 0d 01  |....blk%!20=44..|
00001b30  08 0d 62 6c 6b 25 21 32  34 3d 30 0d 01 09 0c 73  |..blk%!24=0....s|
00001b40  74 61 72 74 3d 32 38 0d  01 0a 05 e1 0d 01 0b 04  |tart=28.........|
00001b50  0d 01 0c 31 dd 20 f2 61  64 64 5f 69 74 65 6d 28  |...1. .add_item(|
00001b60  62 6c 6b 25 2c 6e 61 6d  65 24 2c 66 6c 61 67 73  |blk%,name$,flags|
00001b70  2c 73 75 62 6d 65 6e 75  2c 69 63 66 6c 61 67 73  |,submenu,icflags|
00001b80  29 0d 01 0d 42 e7 20 a9  28 6e 61 6d 65 24 29 3e  |)...B. .(name$)>|
00001b90  31 31 20 f2 61 64 64 5f  69 6e 64 69 72 28 62 6c  |11 .add_indir(bl|
00001ba0  6b 25 2c 6e 61 6d 65 24  2c 66 6c 61 67 73 2c 73  |k%,name$,flags,s|
00001bb0  75 62 6d 65 6e 75 2c 69  63 66 6c 61 67 73 2c 30  |ubmenu,icflags,0|
00001bc0  29 3a e1 0d 01 0e 14 62  6c 6b 25 21 73 74 61 72  |):.....blk%!star|
00001bd0  74 3d 66 6c 61 67 73 0d  01 0f 1a 62 6c 6b 25 21  |t=flags....blk%!|
00001be0  28 73 74 61 72 74 2b 34  29 3d 73 75 62 6d 65 6e  |(start+4)=submen|
00001bf0  75 0d 01 10 1a 62 6c 6b  25 21 28 73 74 61 72 74  |u....blk%!(start|
00001c00  2b 38 29 3d 69 63 66 6c  61 67 73 0d 01 11 24 24  |+8)=icflags...$$|
00001c10  28 62 6c 6b 25 2b 28 73  74 61 72 74 2b 31 32 29  |(blk%+(start+12)|
00001c20  29 3d c0 6e 61 6d 65 24  2b bd 30 2c 31 32 29 0d  |)=.name$+.0,12).|
00001c30  01 12 0d 73 74 61 72 74  2b 3d 32 34 0d 01 13 05  |...start+=24....|
00001c40  e1 0d 01 14 04 0d 01 15  3a dd 20 f2 61 64 64 5f  |........:. .add_|
00001c50  69 6e 64 69 72 28 62 6c  6b 25 2c 6e 61 6d 65 24  |indir(blk%,name$|
00001c60  2c 66 6c 61 67 73 2c 73  75 62 6d 65 6e 75 2c 69  |,flags,submenu,i|
00001c70  63 66 6c 61 67 73 2c 72  65 73 65 72 76 65 29 0d  |cflags,reserve).|
00001c80  01 16 2d e7 20 72 65 73  65 72 76 65 3c 28 a9 28  |..-. reserve<(.(|
00001c90  6e 61 6d 65 24 29 2b 31  29 20 72 65 73 65 72 76  |name$)+1) reserv|
00001ca0  65 3d a9 28 6e 61 6d 65  24 29 2b 31 0d 01 17 14  |e=.(name$)+1....|
00001cb0  62 6c 6b 25 21 73 74 61  72 74 3d 66 6c 61 67 73  |blk%!start=flags|
00001cc0  0d 01 18 1a 62 6c 6b 25  21 28 73 74 61 72 74 2b  |....blk%!(start+|
00001cd0  34 29 3d 73 75 62 6d 65  6e 75 0d 01 19 21 62 6c  |4)=submenu...!bl|
00001ce0  6b 25 21 28 73 74 61 72  74 2b 38 29 3d 69 63 66  |k%!(start+8)=icf|
00001cf0  6c 61 67 73 2b 28 31 3c  3c 38 29 0d 01 1a 23 62  |lags+(1<<8)...#b|
00001d00  6c 6b 25 21 28 73 74 61  72 74 2b 31 32 29 3d 6d  |lk%!(start+12)=m|
00001d10  69 6e 64 69 72 25 2b 70  6f 69 6e 74 65 72 0d 01  |indir%+pointer..|
00001d20  1b 15 62 6c 6b 25 21 28  73 74 61 72 74 2b 31 36  |..blk%!(start+16|
00001d30  29 3d 30 0d 01 1c 1b 62  6c 6b 25 21 28 73 74 61  |)=0....blk%!(sta|
00001d40  72 74 2b 32 30 29 3d 72  65 73 65 72 76 65 0d 01  |rt+20)=reserve..|
00001d50  1d 0d 73 74 61 72 74 2b  3d 32 34 0d 01 1e 1c 24  |..start+=24....$|
00001d60  28 6d 69 6e 64 69 72 25  2b 70 6f 69 6e 74 65 72  |(mindir%+pointer|
00001d70  29 3d 6e 61 6d 65 24 0d  01 1f 14 70 6f 69 6e 74  |)=name$....point|
00001d80  65 72 2b 3d 72 65 73 65  72 76 65 0d 01 20 05 e1  |er+=reserve.. ..|
00001d90  0d 01 21 04 0d 01 22 14  dd 20 f2 64 6f 5f 6d 65  |..!...".. .do_me|
00001da0  6e 75 28 62 6c 6b 25 29  0d 01 23 27 62 6c 6b 25  |nu(blk%)..#'blk%|
00001db0  21 28 73 74 61 72 74 2d  32 34 29 3d 62 6c 6b 25  |!(start-24)=blk%|
00001dc0  21 28 73 74 61 72 74 2d  32 34 29 2b 31 32 38 0d  |!(start-24)+128.|
00001dd0  01 24 05 e1 0d 01 25 04  0d 01 26 26 dd 20 f2 6f  |.$....%...&&. .o|
00001de0  70 65 6e 5f 6d 65 6e 75  28 62 6c 6b 25 2c 6d 65  |pen_menu(blk%,me|
00001df0  6e 75 5f 78 25 2c 6d 65  6e 75 5f 79 25 29 0d 01  |nu_x%,menu_y%)..|
00001e00  27 2e c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |'... "Wimp_Creat|
00001e10  65 4d 65 6e 75 22 2c 2c  62 6c 6b 25 2c 6d 65 6e  |eMenu",,blk%,men|
00001e20  75 5f 78 25 2c 6d 65 6e  75 5f 79 25 0d 01 28 11  |u_x%,menu_y%..(.|
00001e30  63 75 72 72 65 6e 74 25  3d 62 6c 6b 25 0d 01 29  |current%=blk%..)|
00001e40  05 e1 0d 01 2a 04 0d 01  2b 12 dd 20 f2 6d 65 6e  |....*...+.. .men|
00001e50  75 5f 73 65 6c 65 63 74  0d 01 2c 31 c8 99 20 22  |u_select..,1.. "|
00001e60  57 69 6d 70 5f 44 65 63  6f 64 65 4d 65 6e 75 22  |Wimp_DecodeMenu"|
00001e70  2c 2c 63 75 72 72 65 6e  74 25 2c 62 6c 6f 63 6b  |,,current%,block|
00001e80  25 2c 62 6c 6f 63 6b 32  25 0d 01 2d 19 61 24 3d  |%,block2%..-.a$=|
00001e90  a4 73 74 72 69 6e 67 28  62 6c 6f 63 6b 32 25 2c  |.string(block2%,|
00001ea0  30 29 0d 01 2e 25 c8 99  20 22 57 69 6d 70 5f 47  |0)...%.. "Wimp_G|
00001eb0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00001ec0  62 6c 6f 63 6b 32 25 0d  01 2f 19 72 65 6f 70 65  |block2%../.reope|
00001ed0  6e 25 3d 28 62 6c 6f 63  6b 32 25 21 38 3d 31 29  |n%=(block2%!8=1)|
00001ee0  0d 01 30 04 0d 01 31 2d  e7 20 21 62 6c 6f 63 6b  |..0...1-. !block|
00001ef0  25 3d 31 20 80 20 62 6c  6f 63 6b 25 21 38 3d 2d  |%=1 . block%!8=-|
00001f00  31 20 80 20 6d 65 6e 75  5f 69 63 25 3e 2d 31 20  |1 . menu_ic%>-1 |
00001f10  8c 0d 01 32 12 20 c8 8e  20 62 6c 6f 63 6b 25 21  |...2. .. block%!|
00001f20  34 20 ca 0d 01 33 21 20  20 c9 20 30 20 3a 20 f2  |4 ...3!  . 0 : .|
00001f30  71 75 65 75 65 5f 65 64  69 74 28 6d 65 6e 75 5f  |queue_edit(menu_|
00001f40  69 63 25 29 0d 01 34 1b  20 20 c9 20 31 20 3a 20  |ic%)..4.  . 1 : |
00001f50  f2 68 6f 6c 64 28 6d 65  6e 75 5f 69 63 25 29 0d  |.hold(menu_ic%).|
00001f60  01 35 1e 20 20 c9 20 32  20 3a 20 f2 72 65 6c 65  |.5.  . 2 : .rele|
00001f70  61 73 65 28 6d 65 6e 75  5f 69 63 25 29 0d 01 36  |ase(menu_ic%)..6|
00001f80  19 20 20 c9 20 33 20 3a  20 f2 71 75 65 75 65 5f  |.  . 3 : .queue_|
00001f90  64 65 6c 65 74 65 0d 01  37 06 20 cb 0d 01 38 05  |delete..7. ...8.|
00001fa0  cd 0d 01 39 04 0d 01 3a  0b c8 8e 20 61 24 20 ca  |...9...:... a$ .|
00001fb0  0d 01 3b 46 20 c9 20 22  49 6e 66 6f 22 20 20 20  |..;F . "Info"   |
00001fc0  20 20 20 20 20 20 20 20  20 3a 20 f2 6f 70 65 6e  |         : .open|
00001fd0  5f 6d 65 6e 75 28 69 6e  66 6f 25 2c 62 6c 6f 63  |_menu(info%,bloc|
00001fe0  6b 32 25 21 30 2d 36 34  2c 62 6c 6f 63 6b 32 25  |k2%!0-64,block2%|
00001ff0  21 34 2b 36 34 29 0d 01  3c 29 20 c9 20 22 52 65  |!4+64)..<) . "Re|
00002000  2d 63 68 65 63 6b 20 71  75 65 75 65 73 22 20 3a  |-check queues" :|
00002010  20 f2 75 70 64 61 74 65  5f 71 75 65 75 65 73 0d  | .update_queues.|
00002020  01 3d 27 20 c9 20 22 46  6c 75 73 68 20 71 75 65  |.=' . "Flush que|
00002030  75 65 73 22 20 20 20 20  3a 20 f2 71 75 65 75 65  |ues"    : .queue|
00002040  5f 66 6c 75 73 68 0d 01  3e 4b 20 c9 20 22 48 65  |_flush..>K . "He|
00002050  6c 70 22 20 20 20 20 20  20 20 20 20 20 20 20 3a  |lp"            :|
00002060  20 c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  | .. "Wimp_StartT|
00002070  61 73 6b 22 2c 22 46 69  6c 65 72 5f 52 75 6e 20  |ask","Filer_Run |
00002080  22 2b 6d 79 64 69 72 24  2b 22 2e 21 48 65 6c 70  |"+mydir$+".!Help|
00002090  22 0d 01 3f 32 20 c9 20  22 51 75 69 74 22 20 20  |"..?2 . "Quit"  |
000020a0  20 20 20 20 20 20 20 20  20 20 3a 20 e7 20 a4 6f  |          : . .o|
000020b0  6b 5f 74 6f 5f 71 75 69  74 20 8c 20 71 75 69 74  |k_to_quit . quit|
000020c0  25 3d b9 0d 01 40 05 cb  0d 01 41 04 0d 01 42 4a  |%=...@....A...BJ|
000020d0  e7 20 72 65 6f 70 65 6e  25 20 8c 20 f2 6d 65 6e  |. reopen% . .men|
000020e0  75 5f 74 69 74 6c 65 28  6d 65 6e 75 5f 69 63 25  |u_title(menu_ic%|
000020f0  29 3a f2 6f 70 65 6e 5f  6d 65 6e 75 28 63 75 72  |):.open_menu(cur|
00002100  72 65 6e 74 25 2c 6d 65  6e 75 5f 78 25 2c 6d 65  |rent%,menu_x%,me|
00002110  6e 75 5f 79 25 29 0d 01  43 05 e1 0d 01 44 04 0d  |nu_y%)..C....D..|
00002120  01 45 15 dd 20 f2 6d 65  6e 75 5f 74 69 74 6c 65  |.E.. .menu_title|
00002130  28 69 63 29 0d 01 46 0d  e7 20 69 63 3d 2d 31 20  |(ic)..F.. ic=-1 |
00002140  8c 0d 01 47 1e 20 24 28  6d 65 6e 75 74 65 78 74  |...G. $(menutext|
00002150  25 29 3d 22 4e 6f 20 61  72 74 69 63 6c 65 22 0d  |%)="No article".|
00002160  01 48 05 cc 0d 01 49 2c  20 24 28 6d 65 6e 75 74  |.H....I, $(menut|
00002170  65 78 74 25 29 3d a4 74  79 70 65 28 69 63 29 2b  |ext%)=.type(ic)+|
00002180  22 20 69 74 65 6d 20 22  2b 69 64 24 28 69 63 29  |" item "+id$(ic)|
00002190  0d 01 4a 05 cd 0d 01 4b  05 e1 0d 01 4c 04 0d 01  |..J....K....L...|
000021a0  4d 48 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |MH. ------------|
000021b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000021c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 74 65 6d 70 6c 61  |--------- templa|
000021d0  74 65 73 2c 20 77 69 6e  64 6f 77 73 20 61 6e 64  |tes, windows and|
000021e0  20 69 63 6f 6e 73 0d 01  4e 04 0d 01 4f 15 dd 20  | icons..N...O.. |
000021f0  f2 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 73 0d  |.load_templates.|
00002200  01 50 31 6d 61 78 3d 33  35 30 3a de 20 69 6e 64  |.P1max=350:. ind|
00002210  69 72 25 20 6d 61 78 3a  6e 69 6e 64 69 72 25 3d  |ir% max:nindir%=|
00002220  69 6e 64 69 72 25 3a 51  25 3d 62 6c 6f 63 6b 25  |indir%:Q%=block%|
00002230  0d 01 51 2f c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..Q/.. "Wimp_Ope|
00002240  6e 54 65 6d 70 6c 61 74  65 22 2c 2c 6d 79 64 69  |nTemplate",,mydi|
00002250  72 24 2b 22 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |r$+".Templates".|
00002260  01 52 04 0d 01 53 49 c8  99 20 22 57 69 6d 70 5f  |.R...SI.. "Wimp_|
00002270  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 51  |LoadTemplate",,Q|
00002280  25 2c 6e 69 6e 64 69 72  25 2c 69 6e 64 69 72 25  |%,nindir%,indir%|
00002290  2b 6d 61 78 2c 2d 31 2c  22 69 6e 66 6f 22 2c 30  |+max,-1,"info",0|
000022a0  20 b8 20 2c 2c 6e 69 6e  64 69 72 25 0d 01 54 26  | . ,,nindir%..T&|
000022b0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000022c0  69 6e 64 6f 77 22 2c 2c  51 25 20 b8 20 69 6e 66  |indow",,Q% . inf|
000022d0  6f 25 0d 01 55 04 0d 01  56 4a c8 99 20 22 57 69  |o%..U...VJ.. "Wi|
000022e0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000022f0  2c 2c 51 25 2c 6e 69 6e  64 69 72 25 2c 69 6e 64  |,,Q%,nindir%,ind|
00002300  69 72 25 2b 6d 61 78 2c  2d 31 2c 22 71 75 65 75  |ir%+max,-1,"queu|
00002310  65 22 2c 30 20 b8 20 2c  2c 6e 69 6e 64 69 72 25  |e",0 . ,,nindir%|
00002320  0d 01 57 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..W'.. "Wimp_Cre|
00002330  61 74 65 57 69 6e 64 6f  77 22 2c 2c 51 25 20 b8  |ateWindow",,Q% .|
00002340  20 71 75 65 75 65 25 0d  01 58 04 0d 01 59 49 c8  | queue%..X...YI.|
00002350  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00002360  6c 61 74 65 22 2c 2c 51  25 2c 6e 69 6e 64 69 72  |late",,Q%,nindir|
00002370  25 2c 69 6e 64 69 72 25  2b 6d 61 78 2c 2d 31 2c  |%,indir%+max,-1,|
00002380  22 66 69 6e 64 22 2c 30  20 b8 20 2c 2c 6e 69 6e  |"find",0 . ,,nin|
00002390  64 69 72 25 0d 01 5a 26  c8 99 20 22 57 69 6d 70  |dir%..Z&.. "Wimp|
000023a0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000023b0  51 25 20 b8 20 66 69 6e  64 25 0d 01 5b 04 0d 01  |Q% . find%..[...|
000023c0  5c 4c c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |\L.. "Wimp_LoadT|
000023d0  65 6d 70 6c 61 74 65 22  2c 2c 51 25 2c 6e 69 6e  |emplate",,Q%,nin|
000023e0  64 69 72 25 2c 69 6e 64  69 72 25 2b 6d 61 78 2c  |dir%,indir%+max,|
000023f0  2d 31 2c 22 6d 65 73 73  61 67 65 22 2c 30 20 b8  |-1,"message",0 .|
00002400  20 2c 2c 6e 69 6e 64 69  72 25 0d 01 5d 29 c8 99  | ,,nindir%..])..|
00002410  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00002420  64 6f 77 22 2c 2c 51 25  20 b8 20 6d 65 73 73 61  |dow",,Q% . messa|
00002430  67 65 25 0d 01 5e 04 0d  01 5f 1b c8 99 20 22 57  |ge%..^..._... "W|
00002440  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00002450  65 22 0d 01 60 05 e1 0d  01 61 04 0d 01 62 1f dd  |e"..`....a...b..|
00002460  20 f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 28 68 61  | .open_window(ha|
00002470  6e 64 2c 66 72 6f 6e 74  25 29 0d 01 63 10 21 62  |nd,front%)..c.!b|
00002480  6c 6f 63 6b 25 3d 68 61  6e 64 0d 01 64 24 c8 99  |lock%=hand..d$..|
00002490  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
000024a0  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 01  |State",,block%..|
000024b0  65 1b e7 20 66 72 6f 6e  74 25 20 8c 20 62 6c 6f  |e.. front% . blo|
000024c0  63 6b 25 21 32 38 3d 2d  31 0d 01 66 20 c8 99 20  |ck%!28=-1..f .. |
000024d0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000024e0  22 2c 2c 62 6c 6f 63 6b  25 0d 01 67 05 e1 0d 01  |",,block%..g....|
000024f0  68 04 0d 01 69 19 dd 20  f2 6f 70 65 6e 5f 63 65  |h...i.. .open_ce|
00002500  6e 74 72 61 6c 28 68 61  6e 64 29 0d 01 6a 2d ea  |ntral(hand)..j-.|
00002510  20 78 65 69 67 66 25 2c  79 65 69 67 66 25 2c 78  | xeigf%,yeigf%,x|
00002520  73 69 7a 65 25 2c 79 73  69 7a 65 25 2c 78 76 69  |size%,ysize%,xvi|
00002530  73 25 2c 79 76 69 73 25  0d 01 6b 11 62 6c 6f 63  |s%,yvis%..k.bloc|
00002540  6b 25 21 30 3d 68 61 6e  64 0d 01 6c 24 c8 99 20  |k%!0=hand..l$.. |
00002550  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00002560  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 01 6d  |tate",,block%..m|
00002570  04 0d 01 6e 2c c8 99 20  22 4f 53 5f 52 65 61 64  |...n,.. "OS_Read|
00002580  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00002590  2c 34 20 b8 20 2c 2c 78  65 69 67 66 25 0d 01 6f  |,4 . ,,xeigf%..o|
000025a0  2c c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |,.. "OS_ReadMode|
000025b0  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 35 20 b8  |Variable",-1,5 .|
000025c0  20 2c 2c 79 65 69 67 66  25 0d 01 70 2d c8 99 20  | ,,yeigf%..p-.. |
000025d0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000025e0  61 62 6c 65 22 2c 2d 31  2c 31 31 20 b8 20 2c 2c  |able",-1,11 . ,,|
000025f0  78 73 69 7a 65 25 0d 01  71 2d c8 99 20 22 4f 53  |xsize%..q-.. "OS|
00002600  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00002610  65 22 2c 2d 31 2c 31 32  20 b8 20 2c 2c 79 73 69  |e",-1,12 . ,,ysi|
00002620  7a 65 25 0d 01 72 1d 78  73 69 7a 65 25 3d 28 78  |ze%..r.xsize%=(x|
00002630  73 69 7a 65 25 2b 31 29  3c 3c 78 65 69 67 66 25  |size%+1)<<xeigf%|
00002640  0d 01 73 1d 79 73 69 7a  65 25 3d 28 79 73 69 7a  |..s.ysize%=(ysiz|
00002650  65 25 2b 31 29 3c 3c 79  65 69 67 66 25 0d 01 74  |e%+1)<<yeigf%..t|
00002660  04 0d 01 75 1c 78 76 69  73 25 3d 62 6c 6f 63 6b  |...u.xvis%=block|
00002670  25 21 31 32 2d 62 6c 6f  63 6b 25 21 34 0d 01 76  |%!12-block%!4..v|
00002680  1c 79 76 69 73 25 3d 62  6c 6f 63 6b 25 21 31 36  |.yvis%=block%!16|
00002690  2d 62 6c 6f 63 6b 25 21  38 0d 01 77 21 62 6c 6f  |-block%!8..w!blo|
000026a0  63 6b 25 21 34 3d 28 78  73 69 7a 65 25 2f 32 29  |ck%!4=(xsize%/2)|
000026b0  2d 28 78 76 69 73 25 2f  32 29 0d 01 78 21 62 6c  |-(xvis%/2)..x!bl|
000026c0  6f 63 6b 25 21 38 3d 28  79 73 69 7a 65 25 2f 32  |ock%!8=(ysize%/2|
000026d0  29 2d 28 79 76 69 73 25  2f 32 29 0d 01 79 1c 62  |)-(yvis%/2)..y.b|
000026e0  6c 6f 63 6b 25 21 31 32  3d 62 6c 6f 63 6b 25 21  |lock%!12=block%!|
000026f0  34 2b 78 76 69 73 25 0d  01 7a 1c 62 6c 6f 63 6b  |4+xvis%..z.block|
00002700  25 21 31 36 3d 62 6c 6f  63 6b 25 21 38 2b 79 76  |%!16=block%!8+yv|
00002710  69 73 25 0d 01 7b 10 62  6c 6f 63 6b 25 21 32 38  |is%..{.block%!28|
00002720  3d 2d 31 0d 01 7c 20 c8  99 20 22 57 69 6d 70 5f  |=-1..| .. "Wimp_|
00002730  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00002740  63 6b 25 0d 01 7d 05 e1  0d 01 7e 04 0d 01 7f 19  |ck%..}....~.....|
00002750  dd 20 f2 63 6c 6f 73 65  5f 77 69 6e 64 6f 77 28  |. .close_window(|
00002760  68 61 6e 64 29 0d 01 80  10 21 62 6c 6f 63 6b 25  |hand)....!block%|
00002770  3d 68 61 6e 64 0d 01 81  21 c8 99 20 22 57 69 6d  |=hand...!.. "Wim|
00002780  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00002790  62 6c 6f 63 6b 25 0d 01  82 05 e1 0d 01 83 04 0d  |block%..........|
000027a0  01 84 29 dd 20 f2 77 72  69 74 65 5f 69 63 6f 6e  |..). .write_icon|
000027b0  5f 74 65 78 74 28 69 63  6f 6e 2c 77 69 6e 64 6f  |_text(icon,windo|
000027c0  77 2c 74 65 6d 70 24 29  0d 01 85 13 21 62 6c 6f  |w,temp$)....!blo|
000027d0  63 6b 32 25 3d 77 69 6e  64 6f 77 0d 01 86 12 62  |ck2%=window....b|
000027e0  6c 6f 63 6b 32 25 21 34  3d 69 63 6f 6e 0d 01 87  |lock2%!4=icon...|
000027f0  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |#.. "Wimp_GetIco|
00002800  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 32 25  |nState",,block2%|
00002810  0d 01 88 0f 62 6c 6f 63  6b 32 25 21 38 3d 30 0d  |....block2%!8=0.|
00002820  01 89 10 62 6c 6f 63 6b  32 25 21 31 32 3d 30 0d  |...block2%!12=0.|
00002830  01 8a 17 24 28 62 6c 6f  63 6b 32 25 21 32 38 29  |...$(block2%!28)|
00002840  3d 74 65 6d 70 24 0d 01  8b 23 c8 99 20 22 57 69  |=temp$...#.. "Wi|
00002850  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002860  2c 2c 62 6c 6f 63 6b 32  25 0d 01 8c 05 e1 0d 01  |,,block2%.......|
00002870  8d 04 0d 01 8e 19 dd 20  f2 72 65 64 72 61 77 5f  |....... .redraw_|
00002880  6c 69 6e 65 28 6c 69 6e  65 25 29 0d 01 8f 73 c8  |line(line%)...s.|
00002890  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
000028a0  72 61 77 22 2c 71 75 65  75 65 25 2c 30 2c 2d 28  |raw",queue%,0,-(|
000028b0  28 6c 69 6e 65 25 2b 31  29 2a 33 2a 33 32 29 2d  |(line%+1)*3*32)-|
000028c0  36 30 2d 28 6c 69 6e 65  25 2a 31 30 29 2c 28 28  |60-(line%*10),((|
000028d0  6d 61 78 6c 65 6e 25 2b  33 37 29 2a 31 36 29 2b  |maxlen%+37)*16)+|
000028e0  31 30 2c 2d 28 6c 69 6e  65 25 2a 33 2a 33 32 29  |10,-(line%*3*32)|
000028f0  2d 35 38 2d 28 6c 69 6e  65 25 2a 31 30 29 0d 01  |-58-(line%*10)..|
00002900  90 05 e1 0d 01 91 04 0d  01 92 0d dd 20 f2 72 65  |............ .re|
00002910  64 72 61 77 0d 01 93 40  c8 99 20 22 57 69 6d 70  |draw...@.. "Wimp|
00002920  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 71 75  |_ForceRedraw",qu|
00002930  65 75 65 25 2c 30 2c 64  65 70 74 68 25 2c 28 28  |eue%,0,depth%,((|
00002940  6d 61 78 6c 65 6e 25 2b  33 37 29 2a 31 36 29 2b  |maxlen%+37)*16)+|
00002950  31 30 2c 30 0d 01 94 05  e1 0d 01 95 04 0d 01 96  |10,0............|
00002960  0d dd 20 f2 65 78 74 65  6e 74 0d 01 97 21 64 65  |.. .extent...!de|
00002970  70 74 68 25 3d 2d 28 65  6e 74 25 2a 28 28 33 32  |pth%=-(ent%*((32|
00002980  2a 33 29 2b 31 30 29 29  2d 35 32 0d 01 98 1a e7  |*3)+10))-52.....|
00002990  20 65 6e 74 25 3d 30 20  8c 20 64 65 70 74 68 25  | ent%=0 . depth%|
000029a0  3d 2d 31 35 30 0d 01 99  0d 21 62 6c 6f 63 6b 25  |=-150....!block%|
000029b0  3d 30 0d 01 9a 13 62 6c  6f 63 6b 25 21 34 3d 64  |=0....block%!4=d|
000029c0  65 70 74 68 25 0d 01 9b  21 62 6c 6f 63 6b 25 21  |epth%...!block%!|
000029d0  38 3d 28 28 6d 61 78 6c  65 6e 25 2b 33 37 29 2a  |8=((maxlen%+37)*|
000029e0  31 36 29 2b 31 30 0d 01  9c 0f 62 6c 6f 63 6b 25  |16)+10....block%|
000029f0  21 31 32 3d 30 0d 01 9d  25 c8 99 20 22 57 69 6d  |!12=0...%.. "Wim|
00002a00  70 5f 53 65 74 45 78 74  65 6e 74 22 2c 71 75 65  |p_SetExtent",que|
00002a10  75 65 25 2c 62 6c 6f 63  6b 25 0d 01 9e 05 e1 0d  |ue%,block%......|
00002a20  01 9f 04 0d 01 a0 48 f4  20 2d 2d 2d 2d 2d 2d 2d  |......H. -------|
00002a30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002a50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 6e 75 6d 62 65  |---------- numbe|
00002a60  72 73 20 61 6e 64 20 74  65 78 74 0d 01 a1 04 0d  |rs and text.....|
00002a70  01 a2 27 dd 20 a4 30 70  61 64 28 73 24 2c 6c 65  |..'. .0pad(s$,le|
00002a80  6e 29 20 3d c2 c4 6c 65  6e 2c 22 30 22 29 2b 73  |n) =..len,"0")+s|
00002a90  24 2c 6c 65 6e 29 0d 01  a3 26 dd 20 a4 70 61 64  |$,len)...&. .pad|
00002aa0  28 73 24 2c 6c 65 6e 29  20 3d c0 73 24 2b c4 6c  |(s$,len) =.s$+.l|
00002ab0  65 6e 2c 22 20 22 29 2c  6c 65 6e 29 0d 01 a4 04  |en," "),len)....|
00002ac0  0d 01 a5 15 dd 20 a4 73  74 72 69 6e 67 28 73 74  |..... .string(st|
00002ad0  2c 70 74 72 29 0d 01 a6  0a 73 74 24 3d 22 22 0d  |,ptr)....st$="".|
00002ae0  01 a7 05 f5 0d 01 a8 13  20 73 74 24 2b 3d bd 28  |........ st$+=.(|
00002af0  73 74 3f 70 74 72 29 0d  01 a9 0b 20 70 74 72 2b  |st?ptr).... ptr+|
00002b00  3d 31 0d 01 aa 0f fd 20  73 74 3f 70 74 72 3c 33  |=1..... st?ptr<3|
00002b10  32 0d 01 ab 08 3d 73 74  24 0d 01 ac 04 0d 01 ad  |2....=st$.......|
00002b20  48 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |H. -------------|
00002b30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002b40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 6c 6f 61 64  |----------- load|
00002b50  69 6e 67 20 26 20 75 70  64 61 74 69 6e 67 20 71  |ing & updating q|
00002b60  75 65 75 65 73 0d 01 ae  04 0d 01 af 19 dd 20 f2  |ueues......... .|
00002b70  65 6e 73 75 72 65 5f 64  69 72 65 63 74 6f 72 69  |ensure_directori|
00002b80  65 73 0d 01 b0 3b e7 20  a4 6f 62 6a 65 63 74 28  |es...;. .object(|
00002b90  22 3c 4d 61 69 6c 24 44  69 72 3e 22 29 3c 32 20  |"<Mail$Dir>")<2 |
00002ba0  8c 20 85 20 30 2c a4 6d  73 67 74 5f 66 69 6e 64  |. . 0,.msgt_find|
00002bb0  28 22 6e 6f 6d 61 69 6c  64 69 72 22 29 0d 01 b1  |("nomaildir")...|
00002bc0  10 e3 20 6c 6f 6f 70 3d  31 20 b8 20 32 0d 01 b2  |.. loop=1 . 2...|
00002bd0  2c 20 e7 20 6c 6f 6f 70  3d 31 20 8c 20 74 65 6d  |, . loop=1 . tem|
00002be0  70 24 3d 22 73 70 6f 6f  6c 22 20 8b 20 74 65 6d  |p$="spool" . tem|
00002bf0  70 24 3d 22 68 65 6c 64  22 0d 01 b3 21 20 f2 65  |p$="held"...! .e|
00002c00  6e 73 75 72 65 28 22 3c  4d 61 69 6c 24 44 69 72  |nsure("<Mail$Dir|
00002c10  3e 2e 22 2b 74 65 6d 70  24 29 0d 01 b4 2b 20 f2  |>."+temp$)...+ .|
00002c20  65 6e 73 75 72 65 28 22  3c 4d 61 69 6c 24 44 69  |ensure("<Mail$Di|
00002c30  72 3e 2e 22 2b 74 65 6d  70 24 2b 22 2e 6d 71 75  |r>."+temp$+".mqu|
00002c40  65 75 65 22 29 0d 01 b5  30 20 f2 65 6e 73 75 72  |eue")...0 .ensur|
00002c50  65 28 22 3c 4d 61 69 6c  24 44 69 72 3e 2e 22 2b  |e("<Mail$Dir>."+|
00002c60  74 65 6d 70 24 2b 22 2e  6d 71 75 65 75 65 2e 77  |temp$+".mqueue.w|
00002c70  6f 72 6b 22 29 0d 01 b6  30 20 f2 65 6e 73 75 72  |ork")...0 .ensur|
00002c80  65 28 22 3c 4d 61 69 6c  24 44 69 72 3e 2e 22 2b  |e("<Mail$Dir>."+|
00002c90  74 65 6d 70 24 2b 22 2e  6d 71 75 65 75 65 2e 74  |temp$+".mqueue.t|
00002ca0  65 78 74 22 29 0d 01 b7  2e 20 f2 65 6e 73 75 72  |ext").... .ensur|
00002cb0  65 28 22 3c 4d 61 69 6c  24 44 69 72 3e 2e 22 2b  |e("<Mail$Dir>."+|
00002cc0  74 65 6d 70 24 2b 22 2e  6e 65 77 73 71 75 65 75  |temp$+".newsqueu|
00002cd0  65 22 29 0d 01 b8 38 20  f2 65 6e 73 75 72 65 28  |e")...8 .ensure(|
00002ce0  22 3c 4d 61 69 6c 24 44  69 72 3e 2e 22 2b 74 65  |"<Mail$Dir>."+te|
00002cf0  6d 70 24 2b 22 2e 6e 65  77 73 71 75 65 75 65 2e  |mp$+".newsqueue.|
00002d00  62 61 64 6d 61 72 6b 65  72 22 29 0d 01 b9 37 20  |badmarker")...7 |
00002d10  f2 65 6e 73 75 72 65 28  22 3c 4d 61 69 6c 24 44  |.ensure("<Mail$D|
00002d20  69 72 3e 2e 22 2b 74 65  6d 70 24 2b 22 2e 6e 65  |ir>."+temp$+".ne|
00002d30  77 73 71 75 65 75 65 2e  61 72 74 69 63 6c 65 73  |wsqueue.articles|
00002d40  22 29 0d 01 ba 05 ed 0d  01 bb 05 e1 0d 01 bc 04  |")..............|
00002d50  0d 01 bd 15 dd 20 f2 65  6e 73 75 72 65 28 74 65  |..... .ensure(te|
00002d60  6d 70 32 24 29 0d 01 be  19 74 79 70 65 25 3d a4  |mp2$)....type%=.|
00002d70  6f 62 6a 65 63 74 28 74  65 6d 70 32 24 29 0d 01  |object(temp2$)..|
00002d80  bf 2f e7 20 74 79 70 65  25 3c 32 20 84 20 74 79  |./. type%<2 . ty|
00002d90  70 65 25 3e 33 20 8c 20  c8 99 20 22 4f 53 5f 46  |pe%>3 . .. "OS_F|
00002da0  69 6c 65 22 2c 38 2c 74  65 6d 70 32 24 0d 01 c0  |ile",8,temp2$...|
00002db0  05 e1 0d 01 c1 04 0d 01  c2 15 dd 20 a4 6f 62 6a  |........... .obj|
00002dc0  65 63 74 28 74 65 6d 70  32 24 29 0d 01 c3 2a c8  |ect(temp2$)...*.|
00002dd0  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 31 37 2c  |. "XOS_File",17,|
00002de0  74 65 6d 70 32 24 20 b8  20 74 79 70 65 25 3b 66  |temp2$ . type%;f|
00002df0  6c 61 67 73 25 0d 01 c4  18 e7 20 28 66 6c 61 67  |lags%..... (flag|
00002e00  73 25 20 80 20 31 29 20  8c 20 3d 2d 31 0d 01 c5  |s% . 1) . =-1...|
00002e10  0a 3d 74 79 70 65 25 0d  01 c6 04 0d 01 c7 12 dd  |.=type%.........|
00002e20  20 f2 73 63 61 6e 5f 71  75 65 75 65 73 0d 01 c8  | .scan_queues...|
00002e30  0a 65 6e 74 25 3d 30 0d  01 c9 10 e3 20 6c 6f 6f  |.ent%=0..... loo|
00002e40  70 3d 30 20 b8 20 33 0d  01 ca 0d 20 73 74 61 72  |p=0 . 3.... star|
00002e50  74 25 3d 30 0d 01 cb 11  20 c8 95 20 73 74 61 72  |t%=0.... .. star|
00002e60  74 25 3e 2d 31 0d 01 cc  4a 20 20 c8 99 20 22 4f  |t%>-1...J  .. "O|
00002e70  53 5f 47 42 50 42 22 2c  39 2c 61 24 28 6c 6f 6f  |S_GBPB",9,a$(loo|
00002e80  70 29 2c 62 6c 6f 63 6b  25 2c 32 35 35 2c 73 74  |p),block%,255,st|
00002e90  61 72 74 25 2c 31 30 32  34 2c 22 2a 22 20 b8 20  |art%,1024,"*" . |
00002ea0  2c 2c 2c 72 65 61 64 25  2c 73 74 61 72 74 25 0d  |,,,read%,start%.|
00002eb0  01 cd 11 20 20 65 6e 74  25 2b 3d 72 65 61 64 25  |...  ent%+=read%|
00002ec0  0d 01 ce 06 20 ce 0d 01  cf 05 ed 0d 01 d0 05 e1  |.... ...........|
00002ed0  0d 01 d1 04 0d 01 d2 11  dd 20 f2 64 69 6d 5f 6d  |......... .dim_m|
00002ee0  65 6d 6f 72 79 0d 01 d3  10 64 69 6d 25 3d 65 6e  |emory....dim%=en|
00002ef0  74 25 2b 35 30 0d 01 d4  1c de 20 74 79 70 65 25  |t%+50..... type%|
00002f00  28 64 69 6d 25 29 2c 20  69 64 24 28 64 69 6d 25  |(dim%), id$(dim%|
00002f10  29 0d 01 d5 1e de 20 74  69 6d 65 24 28 64 69 6d  |)..... time$(dim|
00002f20  25 29 2c 20 73 69 7a 65  25 28 64 69 6d 25 29 0d  |%), size%(dim%).|
00002f30  01 d6 29 de 20 74 6f 24  28 64 69 6d 25 29 2c 20  |..). to$(dim%), |
00002f40  66 72 6f 6d 24 28 64 69  6d 25 29 2c 20 73 75 62  |from$(dim%), sub|
00002f50  6a 24 28 64 69 6d 25 29  0d 01 d7 05 e1 0d 01 d8  |j$(dim%)........|
00002f60  04 0d 01 d9 12 dd 20 f2  6c 6f 61 64 5f 71 75 65  |...... .load_que|
00002f70  75 65 73 0d 01 da 0a 70  6f 73 25 3d 30 0d 01 db  |ues....pos%=0...|
00002f80  10 e3 20 6c 6f 6f 70 3d  30 20 b8 20 33 0d 01 dc  |.. loop=0 . 3...|
00002f90  43 20 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 31  |C .. "OS_GBPB",1|
00002fa0  31 2c 61 24 28 6c 6f 6f  70 29 2c 62 6c 6f 63 6b  |1,a$(loop),block|
00002fb0  25 2c 31 2c 30 2c 31 30  32 34 2c 22 2a 22 20 b8  |%,1,0,1024,"*" .|
00002fc0  20 2c 2c 2c 72 65 61 64  25 2c 73 74 61 72 74 25  | ,,,read%,start%|
00002fd0  0d 01 dd 11 20 c8 95 20  73 74 61 72 74 25 3e 2d  |.... .. start%>-|
00002fe0  31 0d 01 de 56 20 20 e7  20 28 6c 6f 6f 70 20 80  |1...V  . (loop .|
00002ff0  20 31 29 3d 31 20 8c 20  69 64 24 28 70 6f 73 25  | 1)=1 . id$(pos%|
00003000  29 3d c1 a4 73 74 72 69  6e 67 28 62 6c 6f 63 6b  |)=..string(block|
00003010  25 2c 32 39 29 2c 35 29  20 8b 20 69 64 24 28 70  |%,29),5) . id$(p|
00003020  6f 73 25 29 3d a4 73 74  72 69 6e 67 28 62 6c 6f  |os%)=.string(blo|
00003030  63 6b 25 2c 32 39 29 0d  01 df 16 20 20 74 79 70  |ck%,29)....  typ|
00003040  65 25 28 70 6f 73 25 29  3d 6c 6f 6f 70 0d 01 e0  |e%(pos%)=loop...|
00003050  13 20 20 f2 6c 6f 61 64  28 a3 2c 70 6f 73 25 29  |.  .load(.,pos%)|
00003060  0d 01 e1 11 20 20 70 6f  73 25 2b 3d 72 65 61 64  |....  pos%+=read|
00003070  25 0d 01 e2 49 20 20 c8  99 20 22 4f 53 5f 47 42  |%...I  .. "OS_GB|
00003080  50 42 22 2c 31 31 2c 61  24 28 6c 6f 6f 70 29 2c  |PB",11,a$(loop),|
00003090  62 6c 6f 63 6b 25 2c 31  2c 73 74 61 72 74 25 2c  |block%,1,start%,|
000030a0  31 30 32 34 2c 22 2a 22  20 b8 20 2c 2c 2c 72 65  |1024,"*" . ,,,re|
000030b0  61 64 25 2c 73 74 61 72  74 25 0d 01 e3 06 20 ce  |ad%,start%.... .|
000030c0  0d 01 e4 05 ed 0d 01 e5  05 e1 0d 01 e6 04 0d 01  |................|
000030d0  e7 18 dd 20 f2 6c 6f 61  64 28 6c 61 74 65 72 25  |... .load(later%|
000030e0  2c 70 6f 73 25 29 0d 01  e8 0e e7 20 6c 61 74 65  |,pos%)..... late|
000030f0  72 25 20 8c 0d 01 e9 39  20 e7 20 28 74 79 70 65  |r% ....9 . (type|
00003100  25 28 70 6f 73 25 29 20  80 20 32 29 3d 32 20 8c  |%(pos%) . 2)=2 .|
00003110  20 68 65 6c 64 24 3d 22  68 65 6c 64 22 20 8b 20  | held$="held" . |
00003120  68 65 6c 64 24 3d 22 73  70 6f 6f 6c 22 0d 01 ea  |held$="spool"...|
00003130  5d 20 e7 20 28 74 79 70  65 25 28 70 6f 73 25 29  |] . (type%(pos%)|
00003140  20 80 20 31 29 3d 31 20  8c 20 74 79 70 65 24 3d  | . 1)=1 . type$=|
00003150  22 6e 65 77 73 71 75 65  75 65 2e 61 72 74 69 63  |"newsqueue.artic|
00003160  6c 65 73 22 3a 66 24 3d  22 6e 65 77 73 22 20 8b  |les":f$="news" .|
00003170  20 74 79 70 65 24 3d 22  6d 71 75 65 75 65 2e 74  | type$="mqueue.t|
00003180  65 78 74 22 3a 66 24 3d  22 22 0d 01 eb 4f 20 c8  |ext":f$=""...O .|
00003190  99 20 22 4f 53 5f 47 42  50 42 22 2c 31 31 2c 22  |. "OS_GBPB",11,"|
000031a0  3c 4d 61 69 6c 24 44 69  72 3e 2e 22 2b 68 65 6c  |<Mail$Dir>."+hel|
000031b0  64 24 2b 22 2e 22 2b 74  79 70 65 24 2c 62 6c 6f  |d$+"."+type$,blo|
000031c0  63 6b 25 2c 31 2c 30 2c  31 30 32 34 2c 66 24 2b  |ck%,1,0,1024,f$+|
000031d0  69 64 24 28 70 6f 73 25  29 0d 01 ec 05 cd 0d 01  |id$(pos%).......|
000031e0  ed 18 73 69 7a 65 25 28  70 6f 73 25 29 3d 62 6c  |..size%(pos%)=bl|
000031f0  6f 63 6b 25 21 38 0d 01  ee 4e c8 99 20 22 4f 53  |ock%!8...N.. "OS|
00003200  5f 43 6f 6e 76 65 72 74  44 61 74 65 41 6e 64 54  |_ConvertDateAndT|
00003210  69 6d 65 22 2c 62 6c 6f  63 6b 25 2b 32 34 2c 62  |ime",block%+24,b|
00003220  6c 6f 63 6b 32 25 2c 32  35 36 2c 22 25 32 34 3a  |lock2%,256,"%24:|
00003230  25 4d 49 3a 25 53 45 20  25 44 59 20 25 4d 33 20  |%MI:%SE %DY %M3 |
00003240  25 59 52 22 0d 01 ef 22  74 69 6d 65 24 28 70 6f  |%YR"..."time$(po|
00003250  73 25 29 3d a4 73 74 72  69 6e 67 28 62 6c 6f 63  |s%)=.string(bloc|
00003260  6b 32 25 2c 30 29 0d 01  f0 1b e7 20 28 74 79 70  |k2%,0)..... (typ|
00003270  65 25 28 70 6f 73 25 29  20 80 20 31 29 3d 30 20  |e%(pos%) . 1)=0 |
00003280  8c 0d 01 f1 16 20 66 3d  8e 28 a4 69 6e 64 65 78  |..... f=.(.index|
00003290  28 70 6f 73 25 29 29 0d  01 f2 0c 20 e7 20 66 3d  |(pos%)).... . f=|
000032a0  30 20 8c 0d 01 f3 24 20  20 74 6f 24 28 70 6f 73  |0 ....$  to$(pos|
000032b0  25 29 3d a4 6d 73 67 74  5f 66 69 6e 64 28 22 6e  |%)=.msgt_find("n|
000032c0  6f 77 6f 72 6b 22 29 0d  01 f4 14 20 20 66 72 6f  |owork")....  fro|
000032d0  6d 24 28 70 6f 73 25 29  3d 22 22 0d 01 f5 06 20  |m$(pos%)="".... |
000032e0  cc 0d 01 f6 0c 20 20 6a  24 3d be 23 66 0d 01 f7  |.....  j$=.#f...|
000032f0  2d 20 20 66 72 6f 6d 24  28 70 6f 73 25 29 3d 22  |-  from$(pos%)="|
00003300  46 72 6f 6d 3a 20 22 2b  a4 67 65 74 5f 73 74 72  |From: "+.get_str|
00003310  69 6e 67 28 66 2c 32 34  39 29 0d 01 f8 2f 20 20  |ing(f,249).../  |
00003320  e7 20 a9 28 66 72 6f 6d  24 28 70 6f 73 25 29 29  |. .(from$(pos%))|
00003330  3d 32 35 33 20 8c 20 66  72 6f 6d 24 28 70 6f 73  |=253 . from$(pos|
00003340  25 29 2b 3d 22 2e 2e 2e  22 0d 01 f9 29 20 20 74  |%)+="..."...)  t|
00003350  6f 24 28 70 6f 73 25 29  3d 22 54 6f 3a 20 22 2b  |o$(pos%)="To: "+|
00003360  a4 67 65 74 5f 73 74 72  69 6e 67 28 66 2c 32 35  |.get_string(f,25|
00003370  33 29 0d 01 fa 0e 20 20  c8 95 20 ac 20 c5 23 66  |3)....  .. . .#f|
00003380  0d 01 fb 2b 20 20 20 e7  20 a9 28 74 6f 24 28 70  |...+   . .(to$(p|
00003390  6f 73 25 29 29 3c 32 35  34 20 8c 20 74 6f 24 28  |os%))<254 . to$(|
000033a0  70 6f 73 25 29 2b 3d 22  2c 20 22 0d 01 fc 31 20  |pos%)+=", "...1 |
000033b0  20 20 74 6f 24 28 70 6f  73 25 29 2b 3d a4 67 65  |  to$(pos%)+=.ge|
000033c0  74 5f 73 74 72 69 6e 67  28 66 2c 32 35 35 2d a9  |t_string(f,255-.|
000033d0  28 74 6f 24 28 70 6f 73  25 29 29 29 0d 01 fd 07  |(to$(pos%)))....|
000033e0  20 20 ce 0d 01 fe 09 20  20 d9 23 66 0d 01 ff 06  |  .....  .#f....|
000033f0  20 cd 0d 02 00 04 0d 02  01 15 20 66 3d 8e 28 a4  | ......... f=.(.|
00003400  74 65 78 74 28 70 6f 73  25 29 29 0d 02 02 06 20  |text(pos%)).... |
00003410  f5 0d 02 03 0c 20 20 6a  24 3d be 23 66 0d 02 04  |.....  j$=.#f...|
00003420  1a 20 20 c8 8e 20 c0 6a  24 2c a7 6a 24 2c 22 3a  |.  .. .j$,.j$,":|
00003430  22 29 2d 31 29 20 ca 0d  02 05 23 20 20 20 c9 20  |")-1) ....#   . |
00003440  22 53 75 62 6a 65 63 74  22 20 3a 20 73 75 62 6a  |"Subject" : subj|
00003450  24 28 70 6f 73 25 29 3d  6a 24 0d 02 06 07 20 20  |$(pos%)=j$....  |
00003460  cb 0d 02 07 12 20 fd 20  6a 24 3d 22 22 20 84 20  |..... . j$="" . |
00003470  c5 23 66 0d 02 08 08 20  d9 23 66 0d 02 09 05 cc  |.#f.... .#f.....|
00003480  0d 02 0a 15 20 66 3d 8e  28 a4 74 65 78 74 28 70  |.... f=.(.text(p|
00003490  6f 73 25 29 29 0d 02 0b  06 20 f5 0d 02 0c 0c 20  |os%)).... ..... |
000034a0  20 6a 24 3d be 23 66 0d  02 0d 1a 20 20 c8 8e 20  | j$=.#f....  .. |
000034b0  c0 6a 24 2c a7 6a 24 2c  22 3a 22 29 2d 31 29 20  |.j$,.j$,":")-1) |
000034c0  ca 0d 02 0e 24 20 20 20  c9 20 22 4e 65 77 73 67  |....$   . "Newsg|
000034d0  72 6f 75 70 73 22 20 3a  20 74 6f 24 28 70 6f 73  |roups" : to$(pos|
000034e0  25 29 3d 6a 24 0d 02 0f  26 20 20 20 c9 20 22 46  |%)=j$...&   . "F|
000034f0  72 6f 6d 22 20 20 20 20  20 20 20 3a 20 66 72 6f  |rom"       : fro|
00003500  6d 24 28 70 6f 73 25 29  3d 6a 24 0d 02 10 26 20  |m$(pos%)=j$...& |
00003510  20 20 c9 20 22 53 75 62  6a 65 63 74 22 20 20 20  |  . "Subject"   |
00003520  20 3a 20 73 75 62 6a 24  28 70 6f 73 25 29 3d 6a  | : subj$(pos%)=j|
00003530  24 0d 02 11 07 20 20 cb  0d 02 12 12 20 fd 20 6a  |$....  ..... . j|
00003540  24 3d 22 22 20 84 20 c5  23 66 0d 02 13 08 20 d9  |$="" . .#f.... .|
00003550  23 66 0d 02 14 05 cd 0d  02 15 46 e7 20 a9 28 66  |#f........F. .(f|
00003560  72 6f 6d 24 28 70 6f 73  25 29 29 3e 6d 61 78 6c  |rom$(pos%))>maxl|
00003570  65 6e 25 20 8c 20 6d 61  78 6c 65 6e 25 3d a9 28  |en% . maxlen%=.(|
00003580  66 72 6f 6d 24 28 70 6f  73 25 29 29 3a e7 20 6c  |from$(pos%)):. l|
00003590  61 74 65 72 25 20 f2 65  78 74 65 6e 74 0d 02 16  |ater% .extent...|
000035a0  42 e7 20 a9 28 74 6f 24  28 70 6f 73 25 29 29 3e  |B. .(to$(pos%))>|
000035b0  6d 61 78 6c 65 6e 25 20  8c 20 6d 61 78 6c 65 6e  |maxlen% . maxlen|
000035c0  25 3d a9 28 74 6f 24 28  70 6f 73 25 29 29 3a e7  |%=.(to$(pos%)):.|
000035d0  20 6c 61 74 65 72 25 20  f2 65 78 74 65 6e 74 0d  | later% .extent.|
000035e0  02 17 46 e7 20 a9 28 73  75 62 6a 24 28 70 6f 73  |..F. .(subj$(pos|
000035f0  25 29 29 3e 6d 61 78 6c  65 6e 25 20 8c 20 6d 61  |%))>maxlen% . ma|
00003600  78 6c 65 6e 25 3d a9 28  73 75 62 6a 24 28 70 6f  |xlen%=.(subj$(po|
00003610  73 25 29 29 3a e7 20 6c  61 74 65 72 25 20 f2 65  |s%)):. later% .e|
00003620  78 74 65 6e 74 0d 02 18  05 e1 0d 02 19 04 0d 02  |xtent...........|
00003630  1a 1b dd 20 a4 67 65 74  5f 73 74 72 69 6e 67 28  |... .get_string(|
00003640  66 69 6c 65 2c 6c 65 6e  29 0d 02 1b 09 61 24 3d  |file,len)....a$=|
00003650  22 22 0d 02 1c 05 f5 0d  02 1d 0d 20 61 3d 9a 23  |""......... a=.#|
00003660  66 69 6c 65 0d 02 1e 16  20 e7 20 61 3c 3e 31 30  |file.... . a<>10|
00003670  20 80 20 61 3c 3e 31 33  20 8c 0d 02 1f 15 20 20  | . a<>13 .....  |
00003680  e7 20 a9 28 61 24 29 3c  6c 65 6e 2d 33 20 8c 0d  |. .(a$)<len-3 ..|
00003690  02 20 0f 20 20 20 61 24  2b 3d bd 28 61 29 0d 02  |. .   a$+=.(a)..|
000036a0  21 07 20 20 cc 0d 02 22  1c 20 20 20 e7 20 a9 28  |!.  ...".   . .(|
000036b0  61 24 29 3c 6c 65 6e 20  8c 20 61 24 2b 3d 22 2e  |a$)<len . a$+=".|
000036c0  22 0d 02 23 07 20 20 cd  0d 02 24 06 20 cd 0d 02  |"..#.  ...$. ...|
000036d0  25 1d fd 20 61 3d 31 30  20 84 20 61 3d 31 33 20  |%.. a=10 . a=13 |
000036e0  84 20 a9 28 61 24 29 3d  6c 65 6e 0d 02 26 15 e7  |. .(a$)=len..&..|
000036f0  20 61 3c 3e 31 30 20 80  20 61 3c 3e 31 33 20 8c  | a<>10 . a<>13 .|
00003700  0d 02 27 06 20 f5 0d 02  28 0e 20 20 61 3d 9a 23  |..'. ...(.  a=.#|
00003710  66 69 6c 65 0d 02 29 12  20 fd 20 61 3d 31 30 20  |file..). . a=10 |
00003720  84 20 61 3d 31 33 0d 02  2a 05 cd 0d 02 2b 07 3d  |. a=13..*....+.=|
00003730  61 24 0d 02 2c 04 0d 02  2d 14 dd 20 f2 75 70 64  |a$..,...-.. .upd|
00003740  61 74 65 5f 71 75 65 75  65 73 0d 02 2e 1c c8 99  |ate_queues......|
00003750  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00003760  75 22 2c 2c 2d 31 0d 02  2f 0d 72 65 6f 70 65 6e  |u",,-1../.reopen|
00003770  25 3d a3 0d 02 30 10 f2  73 63 61 6e 5f 71 75 65  |%=...0..scan_que|
00003780  75 65 73 0d 02 31 11 e7  20 65 6e 74 25 3e 64 69  |ues..1.. ent%>di|
00003790  6d 25 20 8c 0d 02 32 11  20 e7 20 65 64 69 74 69  |m% ...2. . editi|
000037a0  6e 67 25 20 8c 0d 02 33  32 20 20 f2 6d 65 73 73  |ng% ...32  .mess|
000037b0  61 67 65 28 22 6e 6f 74  75 70 64 61 74 65 64 22  |age("notupdated"|
000037c0  29 3a 72 65 6c 6f 61 64  25 3d b9 3a 65 6e 74 25  |):reload%=.:ent%|
000037d0  3d 64 69 6d 25 3a e1 0d  02 34 06 20 cc 0d 02 35  |=dim%:...4. ...5|
000037e0  13 20 20 f2 70 6f 6c 6c  3a f2 72 65 6c 6f 61 64  |.  .poll:.reload|
000037f0  0d 02 36 06 20 cd 0d 02  37 05 cd 0d 02 38 10 f2  |..6. ...7....8..|
00003800  6c 6f 61 64 5f 71 75 65  75 65 73 0d 02 39 0e e7  |load_queues..9..|
00003810  20 65 6e 74 25 3d 30 20  8c 0d 02 3a 19 20 74 79  | ent%=0 ...:. ty|
00003820  70 65 25 28 30 29 3d 30  3a 69 64 24 28 30 29 3d  |pe%(0)=0:id$(0)=|
00003830  22 22 0d 02 3b 1b 20 74  69 6d 65 24 28 30 29 3d  |""..;. time$(0)=|
00003840  22 22 3a 73 69 7a 65 25  28 30 29 3d 30 0d 02 3c  |"":size%(0)=0..<|
00003850  26 20 74 6f 24 28 30 29  3d 22 22 3a 66 72 6f 6d  |& to$(0)="":from|
00003860  24 28 30 29 3d 22 22 3a  73 75 62 6a 24 28 30 29  |$(0)="":subj$(0)|
00003870  3d 22 22 0d 02 3d 05 cd  0d 02 3e 2a f2 65 78 74  |=""..=....>*.ext|
00003880  65 6e 74 3a f2 72 65 64  72 61 77 3a f2 6f 70 65  |ent:.redraw:.ope|
00003890  6e 5f 77 69 6e 64 6f 77  28 71 75 65 75 65 25 2c  |n_window(queue%,|
000038a0  a3 29 0d 02 3f 05 e1 0d  02 40 04 0d 02 41 0d dd  |.)..?....@...A..|
000038b0  20 f2 72 65 6c 6f 61 64  0d 02 42 2d c8 99 20 22  | .reload..B-.. "|
000038c0  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
000038d0  22 52 75 6e 20 22 2b 6d  79 64 69 72 24 2b 22 2e  |"Run "+mydir$+".|
000038e0  21 52 75 6e 22 0d 02 43  0b f2 66 69 6e 69 73 68  |!Run"..C..finish|
000038f0  0d 02 44 05 e1 0d 02 45  04 0d 02 46 11 dd 20 f2  |..D....E...F.. .|
00003900  63 6c 65 61 72 5f 76 61  72 73 0d 02 47 0e 65 64  |clear_vars..G.ed|
00003910  69 74 69 6e 67 25 3d 30  0d 02 48 11 65 64 69 74  |iting%=0..H.edit|
00003920  5f 74 79 70 65 25 3d 2d  31 0d 02 49 0f 65 64 69  |_type%=-1..I.edi|
00003930  74 5f 69 64 24 3d 22 22  0d 02 4a 0c 77 68 61 6e  |t_id$=""..J.whan|
00003940  64 25 3d 30 0d 02 4b 05  e1 0d 02 4c 04 0d 02 4d  |d%=0..K....L...M|
00003950  48 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |H. -------------|
00003960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 20 66 75 6e  |------------ fun|
00003970  63 74 69 6f 6e 73 20 72  65 74 75 72 6e 69 6e 67  |ctions returning|
00003980  20 66 69 6c 65 6e 61 6d  65 73 2c 20 69 63 6f 6e  | filenames, icon|
00003990  73 20 65 74 63 0d 02 4e  04 0d 02 4f 11 dd 20 a4  |s etc..N...O.. .|
000039a0  74 79 70 65 28 70 6f 73  25 29 0d 02 50 1d e7 20  |type(pos%)..P.. |
000039b0  73 69 7a 65 25 28 70 6f  73 25 29 3d 30 20 8c 20  |size%(pos%)=0 . |
000039c0  3d 22 4e 6f 6e 65 22 0d  02 51 37 e7 20 28 74 79  |="None"..Q7. (ty|
000039d0  70 65 25 28 70 6f 73 25  29 20 80 20 31 29 3d 31  |pe%(pos%) . 1)=1|
000039e0  20 8c 20 74 79 70 65 24  3d 22 4e 65 77 73 22 20  | . type$="News" |
000039f0  8b 20 74 79 70 65 24 3d  22 4d 61 69 6c 22 0d 02  |. type$="Mail"..|
00003a00  52 0a 3d 74 79 70 65 24  0d 02 53 04 0d 02 54 11  |R.=type$..S...T.|
00003a10  dd 20 a4 74 65 78 74 28  70 6f 73 25 29 0d 02 55  |. .text(pos%)..U|
00003a20  38 e7 20 28 74 79 70 65  25 28 70 6f 73 25 29 20  |8. (type%(pos%) |
00003a30  80 20 32 29 3d 32 20 8c  20 68 65 6c 64 24 3d 22  |. 2)=2 . held$="|
00003a40  68 65 6c 64 22 20 8b 20  68 65 6c 64 24 3d 22 73  |held" . held$="s|
00003a50  70 6f 6f 6c 22 0d 02 56  52 e7 20 28 74 79 70 65  |pool"..VR. (type|
00003a60  25 28 70 6f 73 25 29 20  80 20 31 29 3d 31 20 8c  |%(pos%) . 1)=1 .|
00003a70  20 74 79 70 65 24 3d 22  6e 65 77 73 71 75 65 75  | type$="newsqueu|
00003a80  65 2e 61 72 74 69 63 6c  65 73 2e 6e 65 77 73 22  |e.articles.news"|
00003a90  20 8b 20 74 79 70 65 24  3d 22 6d 71 75 65 75 65  | . type$="mqueue|
00003aa0  2e 74 65 78 74 2e 22 0d  02 57 2c 3d 22 3c 4d 61  |.text."..W,="<Ma|
00003ab0  69 6c 24 44 69 72 3e 2e  22 2b 68 65 6c 64 24 2b  |il$Dir>."+held$+|
00003ac0  22 2e 22 2b 74 79 70 65  24 2b 69 64 24 28 70 6f  |"."+type$+id$(po|
00003ad0  73 25 29 0d 02 58 04 0d  02 59 12 dd 20 a4 69 6e  |s%)..X...Y.. .in|
00003ae0  64 65 78 28 70 6f 73 25  29 0d 02 5a 38 e7 20 28  |dex(pos%)..Z8. (|
00003af0  74 79 70 65 25 28 70 6f  73 25 29 20 80 20 32 29  |type%(pos%) . 2)|
00003b00  3d 32 20 8c 20 68 65 6c  64 24 3d 22 68 65 6c 64  |=2 . held$="held|
00003b10  22 20 8b 20 68 65 6c 64  24 3d 22 73 70 6f 6f 6c  |" . held$="spool|
00003b20  22 0d 02 5b 53 e7 20 28  74 79 70 65 25 28 70 6f  |"..[S. (type%(po|
00003b30  73 25 29 20 80 20 31 29  3d 31 20 8c 20 74 79 70  |s%) . 1)=1 . typ|
00003b40  65 24 3d 22 6e 65 77 73  71 75 65 75 65 2e 62 61  |e$="newsqueue.ba|
00003b50  64 6d 61 72 6b 65 72 2e  6e 65 77 73 22 20 8b 20  |dmarker.news" . |
00003b60  74 79 70 65 24 3d 22 6d  71 75 65 75 65 2e 77 6f  |type$="mqueue.wo|
00003b70  72 6b 2e 22 0d 02 5c 2c  3d 22 3c 4d 61 69 6c 24  |rk."..\,="<Mail$|
00003b80  44 69 72 3e 2e 22 2b 68  65 6c 64 24 2b 22 2e 22  |Dir>."+held$+"."|
00003b90  2b 74 79 70 65 24 2b 69  64 24 28 70 6f 73 25 29  |+type$+id$(pos%)|
00003ba0  0d 02 5d 04 0d 02 5e 11  dd 20 a4 71 75 65 75 65  |..]...^.. .queue|
00003bb0  5f 69 63 6f 6e 0d 02 5f  12 21 62 6c 6f 63 6b 25  |_icon.._.!block%|
00003bc0  3d 71 75 65 75 65 25 0d  02 60 23 c8 99 20 22 57  |=queue%..`#.. "W|
00003bd0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
00003be0  6f 22 2c 2c 62 6c 6f 63  6b 25 0d 02 61 1d 79 3d  |o",,block%..a.y=|
00003bf0  6d 79 25 2d 62 6c 6f 63  6b 25 21 31 36 2b 62 6c  |my%-block%!16+bl|
00003c00  6f 63 6b 25 21 32 34 0d  02 62 19 69 63 3d 28 62  |ock%!24..b.ic=(b|
00003c10  6c 6f 63 6b 25 21 34 34  2d 28 79 2b 35 38 29 29  |lock%!44-(y+58))|
00003c20  0d 02 63 1c e7 20 69 63  3c 30 20 8c 20 69 63 3d  |..c.. ic<0 . ic=|
00003c30  2d 28 28 33 32 2a 33 29  2b 31 30 29 0d 02 64 17  |-((32*3)+10)..d.|
00003c40  69 63 3d 69 63 20 81 20  28 28 33 32 2a 33 29 2b  |ic=ic . ((32*3)+|
00003c50  31 30 29 0d 02 65 19 e7  20 65 6e 74 25 3c 28 69  |10)..e.. ent%<(i|
00003c60  63 2b 31 29 20 8c 20 69  63 3d 2d 31 0d 02 66 07  |c+1) . ic=-1..f.|
00003c70  3d 69 63 0d 02 67 04 0d  02 68 18 dd 20 a4 65 64  |=ic..g...h.. .ed|
00003c80  69 74 69 6e 67 28 69 63  2c 74 65 78 74 24 29 0d  |iting(ic,text$).|
00003c90  02 69 15 e7 20 65 64 69  74 69 6e 67 25 3d a3 20  |.i.. editing%=. |
00003ca0  8c 20 3d 30 0d 02 6a 3e  e7 20 a4 65 64 69 74 5f  |. =0..j>. .edit_|
00003cb0  69 63 3d 69 63 20 8c 20  f2 6d 65 73 73 61 67 65  |ic=ic . .message|
00003cc0  32 28 a4 6d 73 67 74 5f  66 69 6e 64 31 28 22 63  |2(.msgt_find1("c|
00003cd0  61 6e 74 64 6f 22 2c 74  65 78 74 24 29 29 3a 3d  |antdo",text$)):=|
00003ce0  2d 31 0d 02 6b 06 3d 30  0d 02 6c 04 0d 02 6d 0e  |-1..k.=0..l...m.|
00003cf0  dd 20 a4 65 64 69 74 5f  69 63 0d 02 6e 0d 66 6f  |. .edit_ic..n.fo|
00003d00  75 6e 64 25 3d 2d 31 0d  02 6f 13 e3 20 6c 6f 6f  |und%=-1..o.. loo|
00003d10  70 3d 30 20 b8 20 65 6e  74 25 0d 02 70 40 20 e7  |p=0 . ent%..p@ .|
00003d20  20 74 79 70 65 25 28 6c  6f 6f 70 29 3d 65 64 69  | type%(loop)=edi|
00003d30  74 5f 74 79 70 65 25 20  80 20 69 64 24 28 6c 6f  |t_type% . id$(lo|
00003d40  6f 70 29 3d 65 64 69 74  5f 69 64 24 20 8c 20 66  |op)=edit_id$ . f|
00003d50  6f 75 6e 64 25 3d 6c 6f  6f 70 0d 02 71 05 ed 0d  |ound%=loop..q...|
00003d60  02 72 0b 3d 66 6f 75 6e  64 25 0d 02 73 04 0d 02  |.r.=found%..s...|
00003d70  74 48 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |tH. ------------|
00003d80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003da0  2d 2d 2d 2d 2d 20 74 68  65 20 6d 65 6e 75 20 6f  |----- the menu o|
00003db0  70 74 69 6f 6e 73 0d 02  75 04 0d 02 76 0f dd 20  |ptions..u...v.. |
00003dc0  f2 68 6f 6c 64 28 69 63  29 0d 02 77 1b e7 20 a4  |.hold(ic)..w.. .|
00003dd0  65 64 69 74 69 6e 67 28  69 63 2c 22 68 6f 6c 64  |editing(ic,"hold|
00003de0  22 29 20 e1 0d 02 78 12  f2 68 6f 6c 64 5f 69 74  |") ...x..hold_it|
00003df0  65 6d 28 69 63 29 0d 02  79 20 f2 62 72 6f 61 64  |em(ic)..y .broad|
00003e00  63 61 73 74 5f 75 70 64  61 74 65 28 74 79 70 65  |cast_update(type|
00003e10  25 28 69 63 29 29 0d 02  7a 14 f2 72 65 64 72 61  |%(ic))..z..redra|
00003e20  77 5f 6c 69 6e 65 28 69  63 29 0d 02 7b 05 e1 0d  |w_line(ic)..{...|
00003e30  02 7c 04 0d 02 7d 14 dd  20 f2 68 6f 6c 64 5f 69  |.|...}.. .hold_i|
00003e40  74 65 6d 28 69 63 29 0d  02 7e 1b e7 20 28 74 79  |tem(ic)..~.. (ty|
00003e50  70 65 25 28 69 63 29 20  80 20 32 29 3d 32 20 8c  |pe%(ic) . 2)=2 .|
00003e60  20 e1 0d 02 7f 20 61 31  24 3d a4 69 6e 64 65 78  | .... a1$=.index|
00003e70  28 69 63 29 3a 62 31 24  3d a4 74 65 78 74 28 69  |(ic):b1$=.text(i|
00003e80  63 29 0d 02 80 1b 74 79  70 65 25 28 69 63 29 3d  |c)....type%(ic)=|
00003e90  74 79 70 65 25 28 69 63  29 20 84 20 32 0d 02 81  |type%(ic) . 2...|
00003ea0  20 61 32 24 3d a4 69 6e  64 65 78 28 69 63 29 3a  | a2$=.index(ic):|
00003eb0  62 32 24 3d a4 74 65 78  74 28 69 63 29 0d 02 82  |b2$=.text(ic)...|
00003ec0  2d c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  |-.. "Wimp_StartT|
00003ed0  61 73 6b 22 2c 22 52 65  6e 61 6d 65 20 22 2b 61  |ask","Rename "+a|
00003ee0  31 24 2b 22 20 22 2b 61  32 24 0d 02 83 2d c8 99  |1$+" "+a2$...-..|
00003ef0  20 22 57 69 6d 70 5f 53  74 61 72 74 54 61 73 6b  | "Wimp_StartTask|
00003f00  22 2c 22 52 65 6e 61 6d  65 20 22 2b 62 31 24 2b  |","Rename "+b1$+|
00003f10  22 20 22 2b 62 32 24 0d  02 84 05 e1 0d 02 85 04  |" "+b2$.........|
00003f20  0d 02 86 12 dd 20 f2 72  65 6c 65 61 73 65 28 69  |..... .release(i|
00003f30  63 29 0d 02 87 1e e7 20  a4 65 64 69 74 69 6e 67  |c)..... .editing|
00003f40  28 69 63 2c 22 72 65 6c  65 61 73 65 22 29 20 e1  |(ic,"release") .|
00003f50  0d 02 88 15 f2 72 65 6c  65 61 73 65 5f 69 74 65  |.....release_ite|
00003f60  6d 28 69 63 29 0d 02 89  20 f2 62 72 6f 61 64 63  |m(ic)... .broadc|
00003f70  61 73 74 5f 75 70 64 61  74 65 28 74 79 70 65 25  |ast_update(type%|
00003f80  28 69 63 29 29 0d 02 8a  14 f2 72 65 64 72 61 77  |(ic)).....redraw|
00003f90  5f 6c 69 6e 65 28 69 63  29 0d 02 8b 05 e1 0d 02  |_line(ic).......|
00003fa0  8c 04 0d 02 8d 17 dd 20  f2 72 65 6c 65 61 73 65  |....... .release|
00003fb0  5f 69 74 65 6d 28 69 63  29 0d 02 8e 1b e7 20 28  |_item(ic)..... (|
00003fc0  74 79 70 65 25 28 69 63  29 20 80 20 32 29 3d 30  |type%(ic) . 2)=0|
00003fd0  20 8c 20 e1 0d 02 8f 20  61 31 24 3d a4 69 6e 64  | . .... a1$=.ind|
00003fe0  65 78 28 69 63 29 3a 62  31 24 3d a4 74 65 78 74  |ex(ic):b1$=.text|
00003ff0  28 69 63 29 0d 02 90 1d  74 79 70 65 25 28 69 63  |(ic)....type%(ic|
00004000  29 3d 74 79 70 65 25 28  69 63 29 20 80 20 ac 20  |)=type%(ic) . . |
00004010  32 0d 02 91 20 61 32 24  3d a4 69 6e 64 65 78 28  |2... a2$=.index(|
00004020  69 63 29 3a 62 32 24 3d  a4 74 65 78 74 28 69 63  |ic):b2$=.text(ic|
00004030  29 0d 02 92 2d c8 99 20  22 57 69 6d 70 5f 53 74  |)...-.. "Wimp_St|
00004040  61 72 74 54 61 73 6b 22  2c 22 52 65 6e 61 6d 65  |artTask","Rename|
00004050  20 22 2b 61 31 24 2b 22  20 22 2b 61 32 24 0d 02  | "+a1$+" "+a2$..|
00004060  93 2d c8 99 20 22 57 69  6d 70 5f 53 74 61 72 74  |.-.. "Wimp_Start|
00004070  54 61 73 6b 22 2c 22 52  65 6e 61 6d 65 20 22 2b  |Task","Rename "+|
00004080  62 31 24 2b 22 20 22 2b  62 32 24 0d 02 94 05 e1  |b1$+" "+b2$.....|
00004090  0d 02 95 04 0d 02 96 13  dd 20 f2 71 75 65 75 65  |......... .queue|
000040a0  5f 64 65 6c 65 74 65 0d  02 97 72 e7 20 63 6f 6e  |_delete...r. con|
000040b0  66 69 72 6d 25 20 8c 20  e7 20 ac 20 a4 73 75 72  |firm% . . . .sur|
000040c0  65 28 22 41 72 65 20 79  6f 75 20 73 75 72 65 20  |e("Are you sure |
000040d0  74 68 61 74 20 79 6f 75  20 77 61 6e 74 20 74 6f  |that you want to|
000040e0  20 64 65 6c 65 74 65 20  22 2b a4 74 79 70 65 28  | delete "+.type(|
000040f0  6d 65 6e 75 5f 69 63 25  29 2b 22 20 69 74 65 6d  |menu_ic%)+" item|
00004100  20 22 2b 69 64 24 28 6d  65 6e 75 5f 69 63 25 29  | "+id$(menu_ic%)|
00004110  2b 22 3f 22 29 20 8c 20  e1 0d 02 98 1c f2 64 65  |+"?") . ......de|
00004120  6c 65 74 65 5f 69 74 65  6d 28 a3 2c 6d 65 6e 75  |lete_item(.,menu|
00004130  5f 69 63 25 29 0d 02 99  05 e1 0d 02 9a 04 0d 02  |_ic%)...........|
00004140  9b 1f dd 20 f2 64 65 6c  65 74 65 5f 69 74 65 6d  |... .delete_item|
00004150  28 72 65 74 75 72 6e 25  2c 69 63 25 29 0d 02 9c  |(return%,ic%)...|
00004160  2e e7 20 ac 20 72 65 74  75 72 6e 25 20 8c 20 e7  |.. . return% . .|
00004170  20 a4 65 64 69 74 69 6e  67 28 69 63 25 2c 22 64  | .editing(ic%,"d|
00004180  65 6c 65 74 65 22 29 20  8c 20 e1 0d 02 9d 0e e7  |elete") . ......|
00004190  20 69 63 25 3d 2d 31 20  e1 0d 02 9e 34 c8 99 20  | ic%=-1 ....4.. |
000041a0  22 57 69 6d 70 5f 53 74  61 72 74 54 61 73 6b 22  |"Wimp_StartTask"|
000041b0  2c 22 57 69 70 65 20 22  2b a4 69 6e 64 65 78 28  |,"Wipe "+.index(|
000041c0  69 63 25 29 2b 22 20 7e  63 7e 76 66 22 0d 02 9f  |ic%)+" ~c~vf"...|
000041d0  33 c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  |3.. "Wimp_StartT|
000041e0  61 73 6b 22 2c 22 57 69  70 65 20 22 2b a4 74 65  |ask","Wipe "+.te|
000041f0  78 74 28 69 63 25 29 2b  22 20 7e 63 7e 76 66 22  |xt(ic%)+" ~c~vf"|
00004200  0d 02 a0 10 e7 20 69 63  25 3c 65 6e 74 25 20 8c  |..... ic%<ent% .|
00004210  0d 02 a1 18 20 e3 20 6c  6f 6f 70 3d 69 63 25 20  |.... . loop=ic% |
00004220  b8 20 65 6e 74 25 2d 31  0d 02 a2 1f 20 20 74 79  |. ent%-1....  ty|
00004230  70 65 25 28 6c 6f 6f 70  29 3d 74 79 70 65 25 28  |pe%(loop)=type%(|
00004240  6c 6f 6f 70 2b 31 29 0d  02 a3 1b 20 20 69 64 24  |loop+1)....  id$|
00004250  28 6c 6f 6f 70 29 3d 69  64 24 28 6c 6f 6f 70 2b  |(loop)=id$(loop+|
00004260  31 29 0d 02 a4 1f 20 20  74 69 6d 65 24 28 6c 6f  |1)....  time$(lo|
00004270  6f 70 29 3d 74 69 6d 65  24 28 6c 6f 6f 70 2b 31  |op)=time$(loop+1|
00004280  29 0d 02 a5 1f 20 20 73  69 7a 65 25 28 6c 6f 6f  |)....  size%(loo|
00004290  70 29 3d 73 69 7a 65 25  28 6c 6f 6f 70 2b 31 29  |p)=size%(loop+1)|
000042a0  0d 02 a6 1b 20 20 74 6f  24 28 6c 6f 6f 70 29 3d  |....  to$(loop)=|
000042b0  74 6f 24 28 6c 6f 6f 70  2b 31 29 0d 02 a7 1f 20  |to$(loop+1).... |
000042c0  20 66 72 6f 6d 24 28 6c  6f 6f 70 29 3d 66 72 6f  | from$(loop)=fro|
000042d0  6d 24 28 6c 6f 6f 70 2b  31 29 0d 02 a8 1f 20 20  |m$(loop+1)....  |
000042e0  73 75 62 6a 24 28 6c 6f  6f 70 29 3d 73 75 62 6a  |subj$(loop)=subj|
000042f0  24 28 6c 6f 6f 70 2b 31  29 0d 02 a9 06 20 ed 0d  |$(loop+1).... ..|
00004300  02 aa 05 cd 0d 02 ab 0b  65 6e 74 25 2d 3d 31 0d  |........ent%-=1.|
00004310  02 ac 19 e7 20 ac 20 72  65 74 75 72 6e 25 20 8c  |.... . return% .|
00004320  20 f2 65 78 74 65 6e 74  0d 02 ad 1a f2 6f 70 65  | .extent.....ope|
00004330  6e 5f 77 69 6e 64 6f 77  28 71 75 65 75 65 25 2c  |n_window(queue%,|
00004340  30 29 0d 02 ae 19 e7 20  ac 20 72 65 74 75 72 6e  |0)..... . return|
00004350  25 20 8c 20 f2 72 65 64  72 61 77 0d 02 af 21 f2  |% . .redraw...!.|
00004360  62 72 6f 61 64 63 61 73  74 5f 75 70 64 61 74 65  |broadcast_update|
00004370  28 74 79 70 65 25 28 69  63 25 29 29 0d 02 b0 05  |(type%(ic%))....|
00004380  e1 0d 02 b1 04 0d 02 b2  12 dd 20 f2 71 75 65 75  |.......... .queu|
00004390  65 5f 66 6c 75 73 68 0d  02 b3 24 e7 20 65 6e 74  |e_flush...$. ent|
000043a0  25 3d 30 20 f2 6d 65 73  73 61 67 65 28 22 63 61  |%=0 .message("ca|
000043b0  6e 74 66 6c 75 73 68 22  29 3a e1 0d 02 b4 2a e7  |ntflush"):....*.|
000043c0  20 ac 20 a4 73 75 72 65  28 a4 6d 73 67 74 5f 66  | . .sure(.msgt_f|
000043d0  69 6e 64 28 22 73 75 72  65 66 6c 75 73 68 22 29  |ind("sureflush")|
000043e0  29 20 8c 20 e1 0d 02 b5  19 e3 20 69 63 25 3d 65  |) . ...... ic%=e|
000043f0  6e 74 25 2d 31 20 b8 20  30 20 88 20 2d 31 0d 02  |nt%-1 . 0 . -1..|
00004400  b6 18 20 f2 64 65 6c 65  74 65 5f 69 74 65 6d 28  |.. .delete_item(|
00004410  a3 2c 69 63 25 29 0d 02  b7 05 ed 0d 02 b8 05 e1  |.,ic%)..........|
00004420  0d 02 b9 04 0d 02 ba 48  f4 20 2d 2d 2d 2d 2d 2d  |.......H. ------|
00004430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004460  2d 20 72 65 2d 65 64 69  74 69 6e 67 0d 02 bb 04  |- re-editing....|
00004470  0d 02 bc 15 dd 20 f2 71  75 65 75 65 5f 65 64 69  |..... .queue_edi|
00004480  74 28 69 63 29 0d 02 bd  0f e7 20 69 63 3d 2d 31  |t(ic)..... ic=-1|
00004490  20 8c 20 e1 0d 02 be 28  e7 20 65 64 69 74 69 6e  | . ....(. editin|
000044a0  67 25 3d b9 20 8c 20 f2  6d 65 73 73 61 67 65 28  |g%=. . .message(|
000044b0  22 61 6c 72 65 61 64 79  22 29 3a e1 0d 02 bf 30  |"already"):....0|
000044c0  e7 20 6e 65 77 73 62 61  73 65 5f 74 61 73 6b 25  |. newsbase_task%|
000044d0  3d 2d 31 20 8c 20 f2 6d  65 73 73 61 67 65 28 22  |=-1 . .message("|
000044e0  6e 6f 73 65 72 76 65 72  22 29 3a e1 0d 02 c0 04  |noserver"):.....|
000044f0  0d 02 c1 31 e7 20 28 74  79 70 65 25 28 69 63 29  |...1. (type%(ic)|
00004500  20 80 20 32 29 3d 30 20  8c 20 74 79 70 65 25 28  | . 2)=0 . type%(|
00004510  69 63 29 3d 74 79 70 65  25 28 69 63 29 20 84 20  |ic)=type%(ic) . |
00004520  34 0d 02 c2 12 f2 68 6f  6c 64 5f 69 74 65 6d 28  |4.....hold_item(|
00004530  69 63 29 0d 02 c3 04 0d  02 c4 35 c8 99 20 22 4f  |ic).......5.. "O|
00004540  53 5f 43 4c 49 22 2c 22  43 6f 70 79 20 22 2b a4  |S_CLI","Copy "+.|
00004550  74 65 78 74 28 69 63 29  2b 22 20 22 2b 73 63 72  |text(ic)+" "+scr|
00004560  61 70 24 2b 22 20 66 7e  63 7e 76 22 0d 02 c5 04  |ap$+" f~c~v"....|
00004570  0d 02 c6 1f 21 62 6c 6f  63 6b 25 3d 28 34 39 2b  |....!block%=(49+|
00004580  a9 28 73 63 72 61 70 24  29 29 20 80 20 2d 34 0d  |.(scrap$)) . -4.|
00004590  02 c7 0f 62 6c 6f 63 6b  25 21 31 32 3d 30 0d 02  |...block%!12=0..|
000045a0  c8 0f 62 6c 6f 63 6b 25  21 31 36 3d 35 0d 02 c9  |..block%!16=5...|
000045b0  14 62 6c 6f 63 6b 25 21  32 30 3d 71 75 65 75 65  |.block%!20=queue|
000045c0  25 0d 02 ca 0f 62 6c 6f  63 6b 25 21 32 38 3d 30  |%....block%!28=0|
000045d0  0d 02 cb 0f 62 6c 6f 63  6b 25 21 33 32 3d 30 0d  |....block%!32=0.|
000045e0  02 cc 0f 62 6c 6f 63 6b  25 21 33 36 3d 30 0d 02  |...block%!36=0..|
000045f0  cd 12 62 6c 6f 63 6b 25  21 34 30 3d 26 46 46 46  |..block%!40=&FFF|
00004600  0d 02 ce 17 24 28 62 6c  6f 63 6b 25 2b 34 34 29  |....$(block%+44)|
00004610  3d 73 63 72 61 70 24 0d  02 cf 25 c8 99 20 22 57  |=scrap$...%.. "W|
00004620  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00004630  2c 31 38 2c 62 6c 6f 63  6b 25 2c 30 0d 02 d0 10  |,18,block%,0....|
00004640  71 75 65 75 65 5f 69 63  25 3d 69 63 0d 02 d1 18  |queue_ic%=ic....|
00004650  65 64 69 74 5f 74 79 70  65 25 3d 74 79 70 65 25  |edit_type%=type%|
00004660  28 69 63 29 0d 02 d2 14  65 64 69 74 5f 69 64 24  |(ic)....edit_id$|
00004670  3d 69 64 24 28 69 63 29  0d 02 d3 0e 65 64 69 74  |=id$(ic)....edit|
00004680  69 6e 67 25 3d b9 0d 02  d4 2a c8 99 20 22 4f 53  |ing%=....*.. "OS|
00004690  5f 46 69 6c 65 22 2c 31  37 2c 73 63 72 61 70 24  |_File",17,scrap$|
000046a0  20 b8 20 2c 2c 6c 6f 61  64 25 2c 65 78 65 63 25  | . ,,load%,exec%|
000046b0  0d 02 d5 19 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |.....open_window|
000046c0  28 66 69 6e 64 25 2c b9  29 0d 02 d6 14 f2 72 65  |(find%,.).....re|
000046d0  64 72 61 77 5f 6c 69 6e  65 28 69 63 29 0d 02 d7  |draw_line(ic)...|
000046e0  05 e1 0d 02 d8 04 0d 02  d9 11 dd 20 f2 63 68 65  |........... .che|
000046f0  63 6b 5f 66 69 6c 65 0d  02 da 10 e7 20 77 68 61  |ck_file..... wha|
00004700  6e 64 25 3d 30 20 8c 0d  02 db 12 20 21 62 6c 6f  |nd%=0 ..... !blo|
00004710  63 6b 25 3d 66 69 6e 64  25 0d 02 dc 25 20 c8 99  |ck%=find%...% ..|
00004720  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00004730  53 74 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 0d 02  |State",,block%..|
00004740  dd 17 20 e7 20 62 6c 6f  63 6b 25 21 32 38 3d 2d  |.. . block%!28=-|
00004750  31 20 8c 20 e1 0d 02 de  15 20 77 68 61 6e 64 25  |1 . ..... whand%|
00004760  3d 62 6c 6f 63 6b 25 21  32 38 0d 02 df 19 20 f2  |=block%!28.... .|
00004770  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 66 69 6e  |close_window(fin|
00004780  64 25 29 0d 02 e0 05 cd  0d 02 e1 12 21 62 6c 6f  |d%).........!blo|
00004790  63 6b 25 3d 77 68 61 6e  64 25 0d 02 e2 2f c8 99  |ck%=whand%.../..|
000047a0  20 22 58 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  | "XWimp_GetWindo|
000047b0  77 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 20  |wState",,block% |
000047c0  b8 20 3b 66 6c 61 67 73  25 0d 02 e3 16 e7 20 28  |. ;flags%..... (|
000047d0  66 6c 61 67 73 25 20 80  20 31 29 3d 31 20 8c 0d  |flags% . 1)=1 ..|
000047e0  02 e4 17 20 71 75 65 75  65 5f 69 63 25 3d a4 65  |... queue_ic%=.e|
000047f0  64 69 74 5f 69 63 0d 02  e5 10 20 f2 63 6c 65 61  |dit_ic.... .clea|
00004800  72 5f 76 61 72 73 0d 02  e6 2a 20 e7 20 71 75 65  |r_vars...* . que|
00004810  75 65 5f 69 63 25 3d 2d  31 20 f2 6d 65 73 73 61  |ue_ic%=-1 .messa|
00004820  67 65 28 22 76 61 6e 69  73 68 65 64 22 29 3a e1  |ge("vanished"):.|
00004830  0d 02 e7 16 20 f2 66 69  6e 69 73 68 65 64 5f 65  |.... .finished_e|
00004840  64 69 74 69 6e 67 0d 02  e8 13 20 e7 20 ac 20 63  |diting.... . . c|
00004850  68 61 6e 67 65 64 25 20  8c 0d 02 e9 20 20 20 f2  |hanged% ....   .|
00004860  75 6e 68 6f 6c 64 5f 65  64 69 74 69 6e 67 28 71  |unhold_editing(q|
00004870  75 65 75 65 5f 69 63 25  29 0d 02 ea 29 20 20 c8  |ueue_ic%)...)  .|
00004880  99 20 22 4f 53 5f 43 4c  49 22 2c 22 57 69 70 65  |. "OS_CLI","Wipe|
00004890  20 22 2b 73 63 72 61 70  24 2b 22 20 7e 63 7e 76  | "+scrap$+" ~c~v|
000048a0  66 22 0d 02 eb 06 20 cd  0d 02 ec 18 20 e7 20 72  |f".... ..... . r|
000048b0  65 6c 6f 61 64 25 20 8c  20 f2 72 65 6c 6f 61 64  |eload% . .reload|
000048c0  0d 02 ed 05 cd 0d 02 ee  05 e1 0d 02 ef 04 0d 02  |................|
000048d0  f0 17 dd 20 f2 66 69 6e  69 73 68 65 64 5f 65 64  |... .finished_ed|
000048e0  69 74 69 6e 67 0d 02 f1  2c c8 99 20 22 4f 53 5f  |iting...,.. "OS_|
000048f0  46 69 6c 65 22 2c 31 37  2c 73 63 72 61 70 24 20  |File",17,scrap$ |
00004900  b8 20 2c 2c 6e 6c 6f 61  64 25 2c 6e 65 78 65 63  |. ,,nload%,nexec|
00004910  25 0d 02 f2 30 e7 20 6e  6c 6f 61 64 25 3d 6c 6f  |%...0. nload%=lo|
00004920  61 64 25 20 80 20 6e 65  78 65 63 25 3d 65 78 65  |ad% . nexec%=exe|
00004930  63 25 20 8c 20 63 68 61  6e 67 65 64 25 3d a3 3a  |c% . changed%=.:|
00004940  e1 0d 02 f3 0e 63 68 61  6e 67 65 64 25 3d b9 0d  |.....changed%=..|
00004950  02 f4 2e e7 20 6e 65 77  73 62 61 73 65 5f 74 61  |.... newsbase_ta|
00004960  73 6b 25 3d 2d 31 20 f2  6d 65 73 73 61 67 65 28  |sk%=-1 .message(|
00004970  22 6e 6f 73 65 72 76 65  72 22 29 3a e1 0d 02 f5  |"noserver"):....|
00004980  17 24 28 62 6c 6f 63 6b  25 2b 33 32 29 3d 73 63  |.$(block%+32)=sc|
00004990  72 61 70 24 0d 02 f6 1f  e7 20 a4 74 79 70 65 28  |rap$..... .type(|
000049a0  71 75 65 75 65 5f 69 63  25 29 3d 22 4d 61 69 6c  |queue_ic%)="Mail|
000049b0  22 20 8c 0d 02 f7 3a 20  f2 6e 65 77 73 62 61 73  |" ....: .newsbas|
000049c0  65 5f 63 6d 64 28 6e 65  77 73 62 61 73 65 5f 74  |e_cmd(newsbase_t|
000049d0  61 73 6b 25 2c 33 31 30  2c 28 33 37 2b a9 28 73  |ask%,310,(37+.(s|
000049e0  63 72 61 70 24 29 29 20  80 20 2d 34 29 0d 02 f8  |crap$)) . -4)...|
000049f0  05 cc 0d 02 f9 3a 20 f2  6e 65 77 73 62 61 73 65  |.....: .newsbase|
00004a00  5f 63 6d 64 28 6e 65 77  73 62 61 73 65 5f 74 61  |_cmd(newsbase_ta|
00004a10  73 6b 25 2c 33 30 30 2c  28 33 37 2b a9 28 73 63  |sk%,300,(37+.(sc|
00004a20  72 61 70 24 29 29 20 80  20 2d 34 29 0d 02 fa 05  |rap$)) . -4)....|
00004a30  cd 0d 02 fb 1d f2 64 65  6c 65 74 65 5f 69 74 65  |......delete_ite|
00004a40  6d 28 b9 2c 71 75 65 75  65 5f 69 63 25 29 0d 02  |m(.,queue_ic%)..|
00004a50  fc 0b f2 72 65 64 72 61  77 0d 02 fd 05 e1 0d 02  |...redraw.......|
00004a60  fe 04 0d 02 ff 14 dd 20  f2 63 6c 6f 73 65 5f 65  |....... .close_e|
00004a70  64 69 74 69 6e 67 0d 03  00 21 e7 20 28 ac 20 65  |diting...!. (. e|
00004a80  64 69 74 69 6e 67 25 29  20 84 20 77 68 61 6e 64  |diting%) . whand|
00004a90  25 3d 30 20 8c 20 e1 0d  03 01 12 21 62 6c 6f 63  |%=0 . .....!bloc|
00004aa0  6b 25 3d 77 68 61 6e 64  25 0d 03 02 2a c8 99 20  |k%=whand%...*.. |
00004ab0  22 58 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |"XWimp_SendMessa|
00004ac0  67 65 22 2c 33 2c 62 6c  6f 63 6b 25 2c 77 68 61  |ge",3,block%,wha|
00004ad0  6e 64 25 0d 03 03 05 e1  0d 03 04 04 0d 03 05 11  |nd%.............|
00004ae0  dd 20 a4 6f 6b 5f 74 6f  5f 71 75 69 74 0d 03 06  |. .ok_to_quit...|
00004af0  16 e7 20 ac 20 65 64 69  74 69 6e 67 25 20 8c 20  |.. . editing% . |
00004b00  3d 2d 31 0d 03 07 29 e7  20 a4 73 75 72 65 28 a4  |=-1...). .sure(.|
00004b10  6d 73 67 74 5f 66 69 6e  64 28 22 63 61 6e 74 71  |msgt_find("cantq|
00004b20  75 69 74 22 29 29 20 8c  20 3d 2d 31 0d 03 08 06  |uit")) . =-1....|
00004b30  3d 30 0d 03 09 04 0d 03  0a 1a dd 20 f2 75 6e 68  |=0......... .unh|
00004b40  6f 6c 64 5f 65 64 69 74  69 6e 67 28 69 63 25 29  |old_editing(ic%)|
00004b50  0d 03 0b 1a e7 20 28 74  79 70 65 25 28 69 63 25  |..... (type%(ic%|
00004b60  29 20 80 20 34 29 3d 34  20 8c 0d 03 0c 17 20 f2  |) . 4)=4 ..... .|
00004b70  72 65 6c 65 61 73 65 5f  69 74 65 6d 28 69 63 25  |release_item(ic%|
00004b80  29 0d 03 0d 20 20 74 79  70 65 25 28 69 63 25 29  |)...  type%(ic%)|
00004b90  3d 74 79 70 65 25 28 69  63 25 29 20 80 20 ac 20  |=type%(ic%) . . |
00004ba0  34 0d 03 0e 05 cd 0d 03  0f 15 f2 72 65 64 72 61  |4..........redra|
00004bb0  77 5f 6c 69 6e 65 28 69  63 25 29 0d 03 10 05 e1  |w_line(ic%).....|
00004bc0  0d 03 11 04 0d 03 12 48  f4 20 2d 2d 2d 2d 2d 2d  |.......H. ------|
00004bd0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00004bf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 20 6e 65 77 73 62  |---------- newsb|
00004c00  61 73 65 20 63 6f 6d 6d  61 6e 64 73 0d 03 13 04  |ase commands....|
00004c10  0d 03 14 17 dd 20 f2 6e  65 77 73 62 61 73 65 5f  |..... .newsbase_|
00004c20  73 74 61 72 74 75 70 0d  03 15 10 62 6c 6f 63 6b  |startup....block|
00004c30  25 21 32 34 3d 35 33 0d  03 16 19 f2 6e 65 77 73  |%!24=53.....news|
00004c40  62 61 73 65 5f 63 6d 64  28 30 2c 30 2c 32 38 29  |base_cmd(0,0,28)|
00004c50  0d 03 17 05 e1 0d 03 18  04 0d 03 19 28 dd 20 f2  |............(. .|
00004c60  6e 65 77 73 62 61 73 65  5f 63 6d 64 28 74 61 73  |newsbase_cmd(tas|
00004c70  6b 25 2c 63 6f 64 65 25  2c 6c 65 6e 67 74 68 25  |k%,code%,length%|
00004c80  29 0d 03 1a 23 e7 20 74  61 73 6b 25 3d 2d 31 20  |)...#. task%=-1 |
00004c90  f2 6d 65 73 73 61 67 65  28 22 6e 62 67 6f 6e 65  |.message("nbgone|
00004ca0  22 29 3a e1 0d 03 1b 13  21 62 6c 6f 63 6b 25 3d  |"):.....!block%=|
00004cb0  6c 65 6e 67 74 68 25 0d  03 1c 0f 62 6c 6f 63 6b  |length%....block|
00004cc0  25 21 31 32 3d 30 0d 03  1d 1f 62 6c 6f 63 6b 25  |%!12=0....block%|
00004cd0  21 31 36 3d 6e 65 77 73  62 61 73 65 5f 63 6f 6d  |!16=newsbase_com|
00004ce0  6d 61 6e 64 25 0d 03 1e  13 62 6c 6f 63 6b 25 21  |mand%....block%!|
00004cf0  32 30 3d 63 6f 64 65 25  0d 03 1f 29 c8 99 20 22  |20=code%...).. "|
00004d00  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00004d10  22 2c 31 37 2c 62 6c 6f  63 6b 25 2c 74 61 73 6b  |",17,block%,task|
00004d20  25 0d 03 20 05 e1 0d 03  21 04 0d 03 22 18 dd 20  |%.. ....!...".. |
00004d30  f2 6e 65 77 73 62 61 73  65 5f 6d 65 73 73 61 67  |.newsbase_messag|
00004d40  65 73 0d 03 23 16 63 6f  64 65 24 3d c3 28 62 6c  |es..#.code$=.(bl|
00004d50  6f 63 6b 25 21 32 30 29  0d 03 24 12 c8 8e 20 c2  |ock%!20)..$... .|
00004d60  63 6f 64 65 24 2c 31 29  20 ca 0d 03 25 43 20 c9  |code$,1) ...%C .|
00004d70  20 22 39 22 20 3a 20 f2  72 65 70 6f 72 74 28 22  | "9" : .report("|
00004d80  43 6f 6d 6d 75 6e 69 63  61 74 69 6f 6e 20 65 72  |Communication er|
00004d90  72 6f 72 3a 20 4e 6f 20  73 75 63 68 20 63 6f 6d  |ror: No such com|
00004da0  6d 61 6e 64 20 22 2b 63  6f 64 65 24 29 0d 03 26  |mand "+code$)..&|
00004db0  43 20 c9 20 22 32 22 20  3a 20 f2 72 65 70 6f 72  |C . "2" : .repor|
00004dc0  74 28 22 43 6f 6d 6d 75  6e 69 63 61 74 69 6f 6e  |t("Communication|
00004dd0  20 65 72 72 6f 72 3a 20  54 72 79 20 61 67 61 69  | error: Try agai|
00004de0  6e 20 6c 61 74 65 72 20  22 2b 63 6f 64 65 24 29  |n later "+code$)|
00004df0  0d 03 27 3c 20 c9 20 22  31 22 20 3a 20 f2 72 65  |..'< . "1" : .re|
00004e00  70 6f 72 74 28 22 43 6f  6d 6d 75 6e 69 63 61 74  |port("Communicat|
00004e10  69 6f 6e 20 65 72 72 6f  72 3a 20 43 61 6e 27 74  |ion error: Can't|
00004e20  20 64 6f 20 22 2b 63 6f  64 65 24 29 0d 03 28 1b  | do "+code$)..(.|
00004e30  20 c9 20 22 30 22 20 3a  20 c8 8e 20 62 6c 6f 63  | . "0" : .. bloc|
00004e40  6b 25 21 32 30 20 ca 0d  03 29 2f 20 20 20 20 20  |k%!20 ...)/     |
00004e50  20 20 20 20 20 20 20 20  c9 20 30 20 20 3a 20 6e  |        . 0  : n|
00004e60  65 77 73 62 61 73 65 5f  74 61 73 6b 25 3d 62 6c  |ewsbase_task%=bl|
00004e70  6f 63 6b 25 21 34 0d 03  2a 4d 20 20 20 20 20 20  |ock%!4..*M      |
00004e80  20 20 20 20 20 20 20 c9  20 31 30 20 3a 20 6e 65  |       . 10 : ne|
00004e90  77 73 62 61 73 65 5f 74  61 73 6b 25 3d 2d 31 3a  |wsbase_task%=-1:|
00004ea0  e7 20 65 64 69 74 69 6e  67 25 20 8c 20 f2 6d 65  |. editing% . .me|
00004eb0  73 73 61 67 65 28 22 73  65 72 76 65 72 67 6f 6e  |ssage("servergon|
00004ec0  65 22 29 0d 03 2b 2c 20  20 20 20 20 20 20 20 20  |e")..+,         |
00004ed0  20 20 20 20 c9 20 33 30  30 3a 20 f2 6d 65 73 73  |    . 300: .mess|
00004ee0  61 67 65 28 22 6e 65 77  73 73 65 6e 74 22 29 0d  |age("newssent").|
00004ef0  03 2c 2c 20 20 20 20 20  20 20 20 20 20 20 20 20  |.,,             |
00004f00  c9 20 33 31 30 3a 20 f2  6d 65 73 73 61 67 65 28  |. 310: .message(|
00004f10  22 6d 61 69 6c 73 65 6e  74 22 29 0d 03 2d 11 20  |"mailsent")..-. |
00004f20  20 20 20 20 20 20 20 20  20 20 20 cb 0d 03 2e 05  |           .....|
00004f30  cb 0d 03 2f 05 e1 0d 03  30 04 0d 03 31 1e dd 20  |.../....0...1.. |
00004f40  f2 62 72 6f 61 64 63 61  73 74 5f 75 70 64 61 74  |.broadcast_updat|
00004f50  65 28 74 79 70 65 25 29  0d 03 32 0e 21 62 6c 6f  |e(type%)..2.!blo|
00004f60  63 6b 25 3d 34 30 0d 03  33 0f 62 6c 6f 63 6b 25  |ck%=40..3.block%|
00004f70  21 31 32 3d 30 0d 03 34  1e 62 6c 6f 63 6b 25 21  |!12=0..4.block%!|
00004f80  31 36 3d 6e 65 77 73 62  61 73 65 5f 75 70 64 61  |16=newsbase_upda|
00004f90  74 65 25 0d 03 35 10 62  6c 6f 63 6b 25 21 32 30  |te%..5.block%!20|
00004fa0  3d 31 31 0d 03 36 19 62  6c 6f 63 6b 25 21 32 34  |=11..6.block%!24|
00004fb0  3d 28 74 79 70 65 25 20  80 20 31 29 0d 03 37 1a  |=(type% . 1)..7.|
00004fc0  24 28 62 6c 6f 63 6b 25  2b 33 32 29 3d 22 6b 61  |$(block%+32)="ka|
00004fd0  39 71 22 2b bd 30 0d 03  38 25 c8 99 20 22 57 69  |9q"+.0..8%.. "Wi|
00004fe0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00004ff0  31 37 2c 62 6c 6f 63 6b  25 2c 30 0d 03 39 05 e1  |17,block%,0..9..|
00005000  0d 03 3a 04 0d 03 3b 48  f4 20 2d 2d 2d 2d 2d 2d  |..:...;H. ------|
00005010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00005040  2d 20 6d 69 73 63 20 73  74 75 66 66 0d 03 3c 04  |- misc stuff..<.|
00005050  0d 03 3d 15 dd 20 f2 6d  65 73 73 61 67 65 28 74  |..=.. .message(t|
00005060  65 6d 70 24 29 0d 03 3e  20 f2 6d 65 73 73 61 67  |emp$)..> .messag|
00005070  65 32 28 a4 6d 73 67 74  5f 66 69 6e 64 28 74 65  |e2(.msgt_find(te|
00005080  6d 70 24 29 29 0d 03 3f  05 e1 0d 03 40 04 0d 03  |mp$))..?....@...|
00005090  41 16 dd 20 f2 6d 65 73  73 61 67 65 32 28 74 65  |A.. .message2(te|
000050a0  6d 70 24 29 0d 03 42 26  f2 77 72 69 74 65 5f 69  |mp$)..B&.write_i|
000050b0  63 6f 6e 5f 74 65 78 74  28 31 2c 6d 65 73 73 61  |con_text(1,messa|
000050c0  67 65 25 2c 74 65 6d 70  24 29 0d 03 43 1b f2 6f  |ge%,temp$)..C..o|
000050d0  70 65 6e 5f 63 65 6e 74  72 61 6c 28 6d 65 73 73  |pen_central(mess|
000050e0  61 67 65 25 29 0d 03 44  05 e1 0d 03 45 04 0d 03  |age%)..D....E...|
000050f0  46 17 dd 20 f2 73 65 6e  64 5f 68 65 6c 70 28 74  |F.. .send_help(t|
00005100  65 6d 70 24 29 0d 03 47  1e 74 65 6d 70 24 3d a4  |emp$)..G.temp$=.|
00005110  6d 73 67 74 5f 66 69 6e  64 28 74 65 6d 70 24 29  |msgt_find(temp$)|
00005120  2b bd 30 0d 03 48 1e 21  62 6c 6f 63 6b 25 3d 28  |+.0..H.!block%=(|
00005130  32 35 2b a9 28 74 65 6d  70 24 29 29 20 80 20 2d  |25+.(temp$)) . -|
00005140  34 0d 03 49 16 62 6c 6f  63 6b 25 21 31 32 3d 62  |4..I.block%!12=b|
00005150  6c 6f 63 6b 25 21 38 0d  03 4a 12 62 6c 6f 63 6b  |lock%!8..J.block|
00005160  25 21 31 36 3d 26 35 30  33 0d 03 4b 16 24 28 62  |%!16=&503..K.$(b|
00005170  6c 6f 63 6b 25 2b 32 30  29 3d 74 65 6d 70 24 0d  |lock%+20)=temp$.|
00005180  03 4c 2c c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.L,.. "Wimp_Send|
00005190  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 6c 6f 63  |Message",17,bloc|
000051a0  6b 25 2c 62 6c 6f 63 6b  25 21 34 0d 03 4d 05 e1  |k%,block%!4..M..|
000051b0  0d 03 4e 04 0d 03 4f 48  f4 20 2d 2d 2d 2d 2d 2d  |..N...OH. ------|
000051c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000051e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 6d  |-------------- m|
000051f0  65 73 73 61 67 65 20 74  72 61 6e 73 0d 03 50 04  |essage trans..P.|
00005200  0d 03 51 10 dd 20 f2 6d  73 67 74 5f 69 6e 69 74  |..Q.. .msgt_init|
00005210  0d 03 52 13 de 20 6d 73  67 74 5f 72 65 73 25 20  |..R.. msgt_res% |
00005220  32 35 36 0d 03 53 20 66  69 6c 65 6e 61 6d 65 24  |256..S filename$|
00005230  3d 6d 79 64 69 72 24 2b  22 2e 4d 65 73 73 61 67  |=mydir$+".Messag|
00005240  65 73 22 0d 03 54 39 c8  99 20 22 4d 65 73 73 61  |es"..T9.. "Messa|
00005250  67 65 54 72 61 6e 73 5f  46 69 6c 65 49 6e 66 6f  |geTrans_FileInfo|
00005260  22 2c 2c 66 69 6c 65 6e  61 6d 65 24 20 b8 20 66  |",,filename$ . f|
00005270  6c 61 67 73 25 2c 2c 73  69 7a 65 25 0d 03 55 2e  |lags%,,size%..U.|
00005280  e7 20 66 6c 61 67 73 25  20 80 20 31 20 8c 20 62  |. flags% . 1 . b|
00005290  75 66 66 65 72 25 3d 30  20 8b 20 de 20 62 75 66  |uffer%=0 . . buf|
000052a0  66 65 72 25 20 73 69 7a  65 25 0d 03 56 32 c8 99  |fer% size%..V2..|
000052b0  20 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 36 2c 2c  | "OS_Module",6,,|
000052c0  2c 31 37 2b a9 66 69 6c  65 6e 61 6d 65 24 20 b8  |,17+.filename$ .|
000052d0  20 2c 2c 66 69 6c 65 64  65 73 63 25 0d 03 57 1d  | ,,filedesc%..W.|
000052e0  24 28 66 69 6c 65 64 65  73 63 25 2b 31 36 29 3d  |$(filedesc%+16)=|
000052f0  66 69 6c 65 6e 61 6d 65  24 0d 03 58 3d c8 99 20  |filename$..X=.. |
00005300  22 4d 65 73 73 61 67 65  54 72 61 6e 73 5f 4f 70  |"MessageTrans_Op|
00005310  65 6e 46 69 6c 65 22 2c  66 69 6c 65 64 65 73 63  |enFile",filedesc|
00005320  25 2c 66 69 6c 65 64 65  73 63 25 2b 31 36 2c 62  |%,filedesc%+16,b|
00005330  75 66 66 65 72 25 0d 03  59 05 e1 0d 03 5a 04 0d  |uffer%..Y....Z..|
00005340  03 5b 18 dd 20 a4 6d 73  67 74 5f 66 69 6e 64 28  |.[.. .msgt_find(|
00005350  74 6f 6b 65 6e 24 29 0d  03 5c 07 ea 20 85 0d 03  |token$)..\.. ...|
00005360  5d 11 ee 20 85 20 ea 20  f7 20 85 3a 3d 22 22 0d  |].. . . . .:="".|
00005370  03 5e 36 c8 99 20 22 4d  65 73 73 61 67 65 54 72  |.^6.. "MessageTr|
00005380  61 6e 73 5f 4c 6f 6f 6b  75 70 22 2c 66 69 6c 65  |ans_Lookup",file|
00005390  64 65 73 63 25 2c 74 6f  6b 65 6e 24 20 b8 20 2c  |desc%,token$ . ,|
000053a0  2c 72 65 73 24 0d 03 5f  07 f7 20 85 0d 03 60 09  |,res$.._.. ...`.|
000053b0  3d 72 65 73 24 0d 03 61  04 0d 03 62 20 dd 20 a4  |=res$..a...b . .|
000053c0  6d 73 67 74 5f 66 69 6e  64 31 28 74 6f 6b 65 6e  |msgt_find1(token|
000053d0  24 2c 73 75 62 73 74 24  29 0d 03 63 07 ea 20 85  |$,subst$)..c.. .|
000053e0  0d 03 64 11 ee 20 85 20  ea 20 f7 20 85 3a 3d 22  |..d.. . . . .:="|
000053f0  22 0d 03 65 4b c8 99 20  22 4d 65 73 73 61 67 65  |"..eK.. "Message|
00005400  54 72 61 6e 73 5f 4c 6f  6f 6b 75 70 22 2c 66 69  |Trans_Lookup",fi|
00005410  6c 65 64 65 73 63 25 2c  74 6f 6b 65 6e 24 2c 6d  |ledesc%,token$,m|
00005420  73 67 74 5f 72 65 73 25  2c 32 35 36 2c 73 75 62  |sgt_res%,256,sub|
00005430  73 74 24 20 b8 20 2c 2c  72 65 73 24 0d 03 66 07  |st$ . ,,res$..f.|
00005440  f7 20 85 0d 03 67 09 3d  72 65 73 24 0d 03 68 04  |. ...g.=res$..h.|
00005450  0d 03 69 12 dd 20 f2 6d  73 67 74 5f 66 69 6e 69  |..i.. .msgt_fini|
00005460  73 68 0d 03 6a 29 c8 99  20 22 4d 65 73 73 61 67  |sh..j).. "Messag|
00005470  65 54 72 61 6e 73 5f 43  6c 6f 73 65 46 69 6c 65  |eTrans_CloseFile|
00005480  22 2c 66 69 6c 65 64 65  73 63 25 0d 03 6b 05 e1  |",filedesc%..k..|
00005490  0d 03 6c 04 0d 03 6d 48  f4 20 2d 2d 2d 2d 2d 2d  |..l...mH. ------|
000054a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000054d0  2d 2d 2d 2d 20 74 68 65  20 65 6e 64 0d ff        |---- the end..|
000054de