"� > !RunImage 2.00 (28-Apr-95)
*I AM MAIL NETMAIL
� taskid%4:$taskid%="TASK"
(>ș "Wimp_Initialise",300,!taskid%,"Mail Man",-1 � version%
2M`wbcol=&0:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
<	�vars
F
P�init_messages
Z
d� bootpath% 256
n<șs_readvar%,"MailMan$Dir",bootpath%,256,0,3 �,,bootlen%
xbootpath%?bootlen%=13
�
�=maxbuf%=&200:� buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
�"� buffer2% &100, buffer3% &100
�� menu_buffer% 40
�)ș s_fsctrl%,13,"net"+�0,1 � ,,NetOK%
�
�� q% &240,icons% &100
�� menudata% &200
�FmaxVars%=3:� choice%(maxVars%):current=0:logfile=1:name=2:source=3
�BmaxSend%=5:� send%(maxSend%):to=0:cc=1:subject=2:from=3:file=4
�C� varnames$(maxVars%):�v%=0�maxVars%:�varnames$(v%):�:scrap$=""
�
�� iconInfo% 40

-bong=�:internal%=�:� �errorbox:�finish:�

/S%=�"<MailMan$Dir>.Sprites":T%=�#S%+16:�#S%

� sprites% T%

"!sprites%=T%:sprites%!8=0

,ș s_spop%,&109,sprites%

64ș s_spop%,&10A,sprites%,"<MailMan$Dir>.Sprites"

@icmail%=�iconbar

J

T*ș s_opent%,,"<MailMan$Dir>.Templates"

^WmailIconSize%=255:mailtoSize%=5*mailIconSize%+32+16:infoSize%=200:choicesSize%=1200

hK� mailIcons% mailtoSize%,infoIcons% infoSize%,choiceIcons% choicesSize%

rCș s_loadt%,,q%,mailIcons%,mailIcons%+mailtoSize%,-1,"MailTo",0

|Bș s_createw%,,q% � mailto%:�noteBuffers(mailto%,0, 4,send%())

�?ș s_loadt%,,q%,infoIcons%,infoIcons%+infoSize%,-1,"Info",0

�#ș s_createw%,,q% � infowindow%

�Iș s_loadt%,,q%,choiceIcons%,choiceIcons%+choicesSize%,-1,"choices",0

�Tș s_createw%,,q% � choiceswindow%:�noteBuffers(choiceswindow%, 2, 5, choice%())

�ș s_closet%

�

�� optbuff% 100

�6mailref%=0:mailmethod%=0:� 0 none,1 file,2,3 scrap

�!ack=�:�setOpt(mailto%,11,ack)

�dialogueStarted%=�

�

��readChoices:�fillInChoices

�Hș s_readvar%,"MailMan$Dir",buffer%,255,0,3 � ,,length%:v%=length%-1
:ȕ v%>=0 � buffer%?v%<>�".":v%-=1:�:v%+=1:buffer%?v%=0
K�setFile(buffer%,current,"Current"):�setFile(buffer%,logfile,"LogFile")
�setMailSource:�noteScrap
&
0� �errorbox
:lodel%=500
Dhidel%=6000
Ndelay% = hidel%
Xș s_drag%,,-1
b!ș s_time% � timex%:�nudge(�)
l�
v  ș s_poll%,0,q%,timex% � A%
�
  Ȏ A% �
�B  � 0 :�mailmethod%=3 �StartDialogue:mailmethod%=1 � �nudge(�)
�  � 1 :�redraw_window(!q%)
�D  � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
�  � 3 :�close_window(!q%)
�7  � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
�6  � 8 :�key(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
�3  � 9 :�getpointer:�menuselect(q%):�retainCheck
�  � 17,18:�receive(q%)
�  �
�� �
�
���receive(q%)
�noteScrap
Ȏ q%!16 �
� 0:�finish:�
 '� 3:� data loaded from filer viewer
*)  � mailmethod%<2 � q%!12<>mailref% �
4#    � q%!40=4096 � q%!40=8192 �
>"      �report(2003,"MailE2"):�
H	    �
R-      filenam$=�rtoz(q%+44):mailmethod%=1
\3      q%!16=4:q%!12=q%!8:ș s_sendm%,17,q%,q%!4
f      �StartDialogue
p	    �
z  �
�8    q%!16=4:q%!12=q%!8:ș s_sendm%,17,q%,mailsender%
�    ș s_time% � timex%
�    mailmethod%=3
�  �
�� 1:� a data save into me.
�6  filenam$=�get_message("MailG1")+�rtoz(q%+44)+">"
�2  mailmethod%=2:mailsender%=q%!4:mailref%=q%!8
�  � scrap$="" � �
�[  $(q%+44)=scrap$:q%?(44+scrapC%)=0:!q%=47+scrapC%+1��3:q%!16=2:q%!12=mailref%:q%!36=-1
�1  ș s_sendm%,17,q%,mailsender%:mailref%=q%!8
�� 10:� desktop save
�  �desksave(q%)
�� &502:� help request
'  q%!12=q%!8:q%!16=&503:help%=q%+20
-  help%=�help(q%!32,q%!36,help%):?help%=0
  !q%=(help%+4-q%)��3
$  ș s_sendm%,17,q%,q%!4
.9� &400C0:� submenu request: can only apply to choices
86  �startChoices:ș s_crsubmenu%,,q%!20,q%!24,q%!28
B�
L�
V
`��startChoices
jB �fillInChoices:newBong=bong:�setOpt(choiceswindow%,6,newBong)
t�
~
���StartDialogue
��endDialogue
�(� scrap$=""��report(2005,"MailE3"):�
�!fromnam$=�rtoz(choice%(name))
�$(send%(to))=�0
�$(send%(cc))=�0
�$(send%(subject))=�0
�$(send%(from))=fromnam$+�0
�$(send%(file))=filenam$+�0
�2�getpointer:�popup(mailto%):dialogueStarted%=�
�&șs_setcaret%,mailto%,0,0,-1,-1,-1
��


��endDialogue
Q � dialogueStarted% � �close_window(mailto%):mailmethod%=0:dialogueStarted%=�
�
(
2ݤrtoz(s%)
<� n$
Fȕ?s%:n$+=�?s%:s%+=1:�
P=n$
Z
d=��key(handle%,icon%,xcoff%,ycoff%,careth%,caretindx%,ch%)
n� handle%=mailto% �
x � ch%=13 � icon%>1 �
�"  �mail:� remove% �endDialogue
� �
�#  �doKey(ch%,mailto%,icon%,4,0)
� �:�
��
�� handle%=choiceswindow% �
�/ � ch%=13 � icon%=5 �registerChoices(�,�):�
�) �doKey(ch%,choiceswindow%,icon%,5,2)
��
��
�
�0��doKey(ch%,window%,icon%,maxicon%,minicon%)
�
 Ȏ ch% �
   � 13:
5     icon%=icon%+1:�icon%>maxicon% icon%=minicon%
,     �setCaret(window%,icon%,caretindx%)
"   � 27: �endDialogue
,:   � &18E:icon%=icon%+1:�icon%>maxicon% icon%=minicon%
6,     �setCaret(window%,icon%,caretindx%)
@:   � &18F:icon%=icon%-1:�icon%<minicon% icon%=maxicon%
J,     �setCaret(window%,icon%,caretindx%)
T    ș s_key%,ch%
^ �
h�
r
|(��setCaret(window%,icon%,caretindx%)
� � length%
�. iconInfo%!0 = window%:iconInfo%!4 = icon%
� ș s_getiinfo%,,iconInfo%
�& length%=�buffLength(iconInfo%!28)
�, � caretindx%>length% caretindx%=length%
�3 șs_setcaret%,window%,icon%,0,-1,-1,caretindx%
��
�
���setType(of$)
� �"Stamp "+of$
� �"Settype "+of$+" Data"
��
�

��mail
� P%
#remove%=�:�registerChoices(�,�)
&toname$=�rtoz(send%(to))
0cc$=�rtoz(send%(cc))
:"subject$=�rtoz(send%(subject))
D?dummy%=�toCtrl(send%(from),buffer%):fromnam$=�rtoz(buffer%)
Nfilenam$=�rtoz(send%(file))
X'�(toname$)+�(cc$)<1 �7:remove%=�:�
b#f%=0:h%=0:� � �#f%:�errorbox:�
l.�filenam$=�"<"� f%=�scrap$ � f%=�filenam$
v�f%=0 �7:remove%=�:�
��
�� �
�
mail=0
�!mail$=fname$+"$.Mail.PostBox"
�ș s_file%,5,mail$ � r0
�� r0=2 �
�  box%=-1:�box%+=1
�=    � � � box%>99:� �:�#f%:�#h%:�report(2001,"MailE4"):�
�C    bname$=mail$+"."+��(box%+10000),2):ș s_file%,5,bname$ � r0
�;    h%=0:� r0=1 � h%=�(bname$):�h%>0 �#h%<>0 �#h%:h%=0
�  �h%<>0 � box%>99 � r0=0
�-  �h%=0 � �:�#f%:�report(2001,"MailE5"):�
�  mail=3
�
� mail<>3 �
  � (nfsflag%) �
      mail$=nfsname$+"Pending"
*    ș s_file%,5,mail$ � r0
43    � r0<>2 � � �:�#f%:�report(2002,"MailEE"):�
>    ș "Hourglass_On"
H    guardcount%=0
R	    �
\E      ș s_xfile%,11,mailguard$,&FFF,0,0,2 � r0,r1,r2,r3,r4,r5;P%
f      � P% � 1 �
p$        �delay(1):guardcount%+=1
z      �
�        guardcount%=0
�      �
�'    � guardcount%=0 � guardcount%=5
�N    � guardcount%=5 � � �:�#f%:ș "Hourglass_Off":�report(2001,"MailEG"):�
�    h%=0
�    box%=-1:�box%+=1
�m      � � � box%>9:� �:�#f%:�#h%:�removeGuard:�rep(2002, �get_message("MailEC")+","+mailq$+","+mailt$):�
�,      mailq$=mail$+"."+��(box%+10000),2)
�$      ș "OS_File",5,mailq$ � r0
�      � r0=0 �
�        h%=�(mailt$)
�$        �h%>0 �#h%<>0 �#h%:h%=0
�      �
	    �h%<>0 � box%>9
	<    �h%=0 � �:�#f%:�removeGuard:�report(2002,"MailED"):�
	    �setType(mailt$)
	$    mail=1
	.  �
	80    mail$=fname$+"&."+toname$+".Mail.Intray"
	B\    � � � �:�#f%:�#h%:�rep(2002, �get_message("MailE6")+mail$+�get_message("MailE7")):�
	L    h%=�mail$
	V-    �h%=0 � �#f%:�report(2002,"MailE8"):�
	`    �#h%=�#h%
	j    mail=0
	t  �
	~�
	�/� � � �:�#f%:�#h%:�removeGuard:�errorbox:�
	�� mail=1 �
	�#  �toname$ �#h%,"To: "+toname$
	�  �cc$ �#h%,"CC: "+cc$
	��
	�� mail=3 �
	�  �#h%,�10+"SonOfEcomail 3"
	�+  �toname$ �putM2(h%,"MailS1",toname$)
	�#  �cc$ �putM2(h%,"MailS2",cc$)
	��
	�+�subject$ �putM2(h%,"MailS3",subject$)
	�(mtime$=�$:�putM2(h%,"MailS4",mtime$)
 �putM2(h%,"MailS5",fromnam$)


�ack �
.  a$=fromnam$:A%=�a$,�13):�A% a$=�a$,A%-1)
  �putM2(h%,"MailS6",a$)
(�
2�#h%,""
<�fcopy(f%,h%)
F�#h%,""
P�#h%:h%=0:�#f%=0
Z� mail=1 �
d9  � � � �:�#f%:�removeGuard:�report(2002,"MailEF"):�
n(  ș "OS_FSControl",25,mailt$,mailq$
x1  � � � �:�#f%:�#h%:�removeGuard:�errorbox:�
��
�C%=�readVar(logfile,0,-1)
��C%<0 �
�  h%=�"<Mail$LogFile>"
�,  �h%=0 h%=�"<Mail$LogFile>" � �#h%=�#h%
�  �#h%,�39,"-+")+"-"
�A  �putM(h%,"MailS7"):�#h%,mtime$;:�putM2(h%,"MailS8",toname$)
�#  �cc$ �putM2(h%,"MailS9",cc$)
�-  �subject$ �putM2(h%,"MailSA",subject$)
�  �ack �putM1(h%,"MailSB")
�X  �filenam$,1)="<" �putM1(h%,"MailSC"):�fcopy(f%,h%) � �putM2(h%,"MailSD",filenam$)
�  �#h%,�10+�39,"+-")+"+"
�
  �#h%
   �setType("<Mail$Logfile>")
�
�#f%
"�removeGuard
,�
6
@��removeGuard
J� (nfsflag%) �
T  ș s_xfile%,6,mailguard$
^  ș "Hourglass_Off"
h�
r�
|
���delay(n%)
�� x%
�x%=�+n%*100
�
� � �>=x%
��
�
���fcopy(f%,t%)
�
�#f%=0 �
�start%=0:�
�%șs_gp%,4,f%,buffer%,&80 � ,,,r3%
�*�r3%<>&80 șs_gp%,2,t%,buffer%,&80-r3%
�start%+=&80-r3%
��start%>=�#f%
�

6��checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
&�(b%�2)�
0  �endDialogue
:  Ȏ handle% �
DF  � -2: �domenu(101,�get_message("MailM1"),�get_message("Mail01"))
N  �
X�
b�(b%�5)�
l  Ȏ handle% �
v.  � -2: �menuselgo(�get_message("MailM2"))
�;  � mailto%: �icon%=11 ack=�ack:�setOpt(mailto%,11,ack)
�  � choiceswindow%
�   Ȏ icon% �
�*    � 0: �registerChoices(�, (b%�1)=1)
�7    � 1: � b%�1 � �redrawChoices � ș s_crmenu%,,-1
�?    � 6: newBong=�newBong:�setOpt(choiceswindow%,6,newBong)
�   �
�  �
��
��
�
���finish
�ș s_closedown%

�



&��domenu(handle%,menu$,menutitle$)

 menuItems% = 0

*menuhandle%=handle%

4menuptr%=menudata%

>i%=0

Hmenuptr%!20=44

R$menuptr%=menutitle$

\Jmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol

f$menuptr%!16=230-24:menuptr%!24=0

pmenuptr%+=28

z?� item$=�par(","):�menuitem(item$):menuItems%+=1:� item$=""

�#menuptr%!-24=(menuptr%!-24)�&80

�;ș s_crmenu%,,menudata%,mousex%-64,96+(menuItems%-1)*44

��

�

�O��menuitem(text$) :� Leading character of > or < has special interpretation

�� left$

�� text$="" �

�!menuptr%=0

�#left$ = �text$,1):menuptr%!4=-1

�(� left$=">" � menuptr%!4=infowindow%

�7� left$="<" � menuptr%!4=choiceswindow%:!menuptr%=8

�menuptr%!8=&07000021

�M� left$=">" � left$="<" � $(menuptr%+12)=�text$,2) � $(menuptr%+12)=text$
menuptr%+=24
�

$ݤpar(sep$)
.%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
8=�menu$,i1%,i%-i1%)
B
LݤcheckUP(file%)
V � x%,p%:� �
`E � � �#file%:�=1043 � �report(2007, "MailE9"):=� � �errorbox:=�
j% p%=�#file%:x%=�#file%:�#file%=p%
t=�
~
���menuselect(menus%)
�� P%
�2ș s_dcmenu%,,menudata%,menus%,�200," ")�,,,a$
�� a$="" � �
�#��menuselgo(a$) menuhandle%=101
�Ȏ menuhandle% �
�0� 101: � a$=�get_message("MailM3"):�finish:�
�#  � a$=�get_message("MailM2") �
�    � (nfsflag%) �
�#      ș s_xfile%,5,mname$ � r0
�      � r0=0 �
�      guardcount%=0
      ș "Hourglass_On"

      �
G        ș s_xfile%,11,mailguard$,&FFF,0,0,2 � r0,r1,r2,r3,r4,r5;P%
        � P% � 1 �
(&          �delay(1):guardcount%+=1
2
        �
<          guardcount%=0
F
        �
P)      � guardcount%=0 � guardcount%=5
ZG      � guardcount%=5 � ș "Hourglass_Off":�report(2001,"MailEH"):�
d	    �
n+    A%=0:B%=0:C%=�readVar(logfile,0,-1)
x
�.    � Try & circumvent NFS caching problem
�    � (nfsflag%) �
�?        ș "XOS_File", 5, mname$ � type%,,,,,attr% ; flags%
�E        � type% = 0 � ș "Hourglass_Off":�report(2001,"MailEH"):�
�4        ș "XOS_File", 4, mname$,,,,0 � ; flags%
�8        ș "XOS_File", 4, mname$,,,,attr% � ; flags%
�	    �
�
�    � �
�*    � � �#B%:�removeGuard:�errorbox:�
�,    �C%>=0 � 2000,�get_message("MailEB")
�!    C%=�readVar(current,0,-1)
�I    B%=�mname$:�B%=0 � �removeGuard:� �� ��checkUP(B%) �removeGuard:�
?    �#B%=0 �#B%:�removeGuard:spname$="-mailnone":�change:�
    � C%<0 �
      C%=�"<Mail$Current>"
"      A%=�"<Mail$LogFile>"
,0      �A%=0 A%=�"<Mail$LogFile>" � �#A%=�#A%
66      � � �#A%:�#B%:�#C%:�removeGuard:�errorbox:�
@)      � X$=�#B%:�#A%,X$:�#C%,X$:��#B%
J      �#A%:�#C%:A%=0:C%=0
T,      � � �#B%:�removeGuard:�errorbox:�
^6      �#B%=0:�#B%:B%=0:spname$="-mailnone":�change
h?      �setType("<Mail$Current>"):�setType("<Mail$Logfile>")
r@      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
|B      C%=�readVar(current,buffer%+44,&100):!buffer%=47+C%+1��3
�"      ș s_sendm%,18,buffer%,0
�	    �
�      A%=�"<Mail$LogFile>"
�0      �A%=0 A%=�"<Mail$LogFile>" � �#A%=�#A%
�1      � � �#A%:�#B%:�removeGuard:�errorbox:�
�      � �#A%,�#B%:��#B%
�      �#A%:A%=0
�,      � � �#B%:�removeGuard:�errorbox:�
�6      �#B%=0:�#B%:B%=0:spname$="-mailnone":�change
�$      �setType("<Mail$Logfile>")
�@      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
�B      C%=�readVar(logfile,buffer%+44,&100):!buffer%=47+C%+1��3
�"      ș s_sendm%,18,buffer%,0
    �:�removeGuard:�
  �
0  � a$=�get_message("MailM4") � �saveChoices
&�
0�
:
D��retainCheck
ND �(b%�1)�ș s_crmenu%,,menudata%,mousex%-64,96+(menuItems%-1)*44
X�
b
l
ݤvar(s$)
v� n%:șswinum%,,s$�n%:=n%
�
�
��vars
�Cș "OS_SWINumberFromString",,"OS_SWINumberFromString" � swinum%
�(s_createw%=�var("Wimp_CreateWindow")
�$s_openw%=�var("Wimp_OpenWindow")
�&s_closew%=�var("Wimp_CloseWindow")
�(s_redraww%=�var("Wimp_RedrawWindow")
�(s_getrect%=�var("Wimp_GetRectangle")
�,s_getwstate%=�var("Wimp_GetWindowState")
�+s_getpoint%=�var("Wimp_GetPointerInfo")
� s_drag%=�var("Wimp_DragBox")
�%s_crmenu%=�var("Wimp_CreateMenu")
�%s_dcmenu%=�var("Wimp_DecodeMenu")
"s_poll%=�var("XWimp_PollIdle")
&s_opent%=�var("Wimp_OpenTemplate")
&s_loadt%=�var("Wimp_LoadTemplate")
 (s_closet%=�var("Wimp_CloseTemplate")
*%s_sendm%=�var("Wimp_SendMessage")
4+s_crsubmenu%=�var("Wimp_CreateSubMenu")
>-s_setcaret%=�var("Wimp_SetCaretPosition")
H-s_getcaret%=�var("Wimp_GetCaretPosition")
R"s_key%=�var("Wimp_ProcessKey")
\+s_getiinfo%=&400ce : � Wimp_GetIconInfo
f's_closedown%=�var("Wimp_CloseDown")
p&s_createi%=�var("Wimp_CreateIcon")
z*s_getistate%=�var("Wimp_GetIconState")
�*s_setistate%=�var("Wimp_SetIconState")
�&s_deletei%=�var("Wimp_DeleteIcon")
�%s_error%=�var("Wimp_ReportError")
�(s_forcered%=�var("Wimp_ForceRedraw")
�(s_time%=�var("OS_ReadMonotonicTime")
�s_spop%=�var("OS_SpriteOp")
�s_gp%=�var("OS_GBPB")
�s_cli%=�var("XOS_CLI")
�%s_readvar%=�var("XOS_ReadVarVal")
�#s_setvar%=�var("XOS_SetVarVal")
�s_file%=�var("OS_File")
�s_xfile%=�var("XOS_File")
�"s_fsctrl%=�var("OS_FSControl")

�

$��report(err%,mess$)
.#�rep(err%, �get_message(mess$))
8�
B
L��rep(err%,mess$)
V_ș s_drag%,,-1:!buffer%=err%:$(buffer%+4)=mess$:șs_error%,buffer%,1,�get_message("Mail00")
`�
j
t@��errorbox :� Report error, with line number if error < 2000
~[� (� < 2000) � internal% � �rep(�,�$+�get_message("MailE0")+Þ+")."+�0) � �rep(�,�$+�0)
��
�
�
ݤiconbar
�N!icons%=-1:icons%!4=0:icons%!8=0:icons%!12=47:icons%!16=68:icons%!20=&3102
�spname$="-mailhole"
�'� icons%!24 12:$(icons%!24)=spname$
�#icons%!28=sprites%:icons%!32=11
�ș s_createi%,,icons% � ic%
�=ic%
�
���nudge(nodelay%)
� � P%,f0%,f1%,f2%,f3%,f4%,f5%
� nodelay% �

  � NetOK% �
;    ș "NetFS_ReadFSTimeouts" � f0%,f1%,f2%,f3%,f4%,f5%
/    ș "NetFS_SetFSTimeouts",5,4,5,4,100,20
(  �
21  ș s_xfile%,5,mname$ � r0,,r2,r3,r4,r5 ; P%
<  � NetOK% �
F8    ș "NetFS_SetFSTimeouts",f0%,f1%,f2%,f3%,f4%,f5%
P  �
Z  � P% � 1 �
d    � delay%<>lodel% �
n"      delay%=lodel%:count%=6:�
x	    �
�F      count%-=1:�count%=0 delay%=hidel%:spname$="-mailunk":�change
�      �tick
�      �
�	    �
�  �
�    delay%=hidel%
�  �
��
�1  ș s_xfile%,5,mname$ � r0,,r2,r3,r4,r5 ; P%
�3  � P% � 1 � spname$="-mailunk":�change:�tick:�
��
�Ȏ r0 �
�/� 1:� r4 � spname$<>"-mailfull" � bong � �7
2� r4 spname$="-mailfull" � spname$="-mailnone"
 spname$="-mailunk"
�
"�change
,	�tick
6�
@
J
��tick
Tș s_time% � timeslip%
^*ȕtimeslip%-timex%>=0:timex%+=delay%:�
h�
r
|��change
�,ș s_spop%,&118,sprites%,spname$ �,,src%
�1ș s_spop%,&118,sprites%,"-mailhole" �,,dest%
�'�z%=44�!src%-1�4:dest%!z%=src%!z%:�
�&!q%=-1:q%!4=icmail%:q%!8=0:q%!12=0
�ș s_setistate%,,q%
��
�
���popup(handle%)
��getw(handle%)
�&xo%=mousex%-(x0%+x1%)/2:yo%=96-y0%
�F�open_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
��
�
=��open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
�handle%=-1��
q%!0=handle%:q%!28=bhandle%
&)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
0q%!20=scx%:q%!24=scy%
:ș s_openw%,,q%
D�
N
X��getw(handle%)
b#!q%=handle%:ș s_getwstate%,,q%
l+�info(q%+4):bhandle%=q%!28:flags%=q%!32
v�
�
���info(q%)
�=x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
�bx%=x0%-scx%:by%=y1%-scy%
��
�
���redraw_window(handle%)
��handle%=mailto% �
�!q%=handle%
�ș s_redraww%,,q% � more%
��info(q%+4)
��
��

��getpointer
ș s_getpoint%,,buffer%
 fmousex%=!buffer%:mousey%=buffer%!4:b%=buffer%!8:handle%=buffer%!12:icon%=buffer%!16:ob%=buffer%!20
*�
4
>:��close_window(handle%):!q%=handle%:ș s_closew%,,q%:�
H
R"��setOpt(window%,icon%,state%)
\A !optbuff%=window%:optbuff%!4=icon%:ș s_getistate%,,optbuff%
f= �state% $(optbuff%+28)="opton" � $(optbuff%+28)="optoff"
p> !optbuff%=window%:optbuff%!4=icon%:șs_deletei%,,optbuff%
z0 optbuff%!4=window%:șs_createi%,,optbuff%+4
�= !q%=window%:q%!4=icon%:q%!8=0:q%!12=0:șs_setistate%,,q%
��
�
�ݤhelp(window%,icon%,to%)
� � t$,t1$:t$="":t1$=""
�$to%=""
�Ȏ window% �
�	 � -2
�  t$="MailH1"
�  � spname$ = "-mailunk" �
�   t1$="MailH2"
�  �
�   t1$="MailH3"
-   � spname$ = "-mailfull" � t1$="MailH4"
  �
 � mailto%:
$  t$="MailH5"
.  Ȏ icon% �
8   � 0: t1$="MailH6"
B   � 1: t1$="MailH7"
L   � 2: t1$="MailH8"
V   � 3: t1$="MailH9"
`   � 4: t1$="MailHA"
j   � 11:
t+    � ack � t1$="MailHB" � t1$="MailHC"
~   : t$=""
�  �
� � choiceswindow%
�  t$="MailH5"
�  Ȏ icon% �
�   � 0: t1$="MailHD"
�   � 1: t1$="MailHE"
�   � 2: t1$="MailHF"
�   � 3: t1$="MailHG"
�   � 4: t1$="MailHH"
�   � 5: t1$="MailHI"
�   � 6:
�/    � newBong � t1$="MailHJ" � t1$="MailHK"
   : t$=""

  �
  
>   ș "Wimp_GetMenuState", 1, menu_buffer%, window%, icon%
(   Ȏ menu_buffer%!0 �
2    � 0: t$="MailHL"
<    � 1: t$="MailHM"
F    � 2: t$="MailHN"
P    � 3: t$="MailHO"
Z    � 4: t$="MailHP"
d   �
n
x�
�g� t$ <> "" � t1$<>"" � $to%=�get_message(t$)+�get_message(t1$) � � t$ <> "" � $to%=�get_message(t$)
�=to%+�($to%)
�
�-��noteBuffers(window%, lo%, hi%, � to%())
� � icon%
� iconInfo%!0=window%
�_ � icon%=lo% � hi%:iconInfo%!4=icon%:șs_getiinfo%,,iconInfo%:to%(icon%-lo%)=iconInfo%!28:�
��
�
�ݤbuffLength(buffer%)
�	 � l%
�B � l%=0�255:�buffer%?l%=13 � buffer%?l%=10 � buffer%?l%=0 �=l%
� �
=255

<ݤtoCtrl(from%, to%) :� |M -> ch.code 13, returns length
" � f%,t%:f%=0:t%=-1
, �
6e t%+=1:�from%?f%=�"|"�(from%?(f%+1)=�"M"�from%?(f%+1)=�"m")�to%?t%=13:f%+=2�to%?t%=from%?f%:f%+=1
@ � to%?t%=0
J=t%
T
^$��registerChoices(check%, keep%)
h � i%, length%
r � i%=0�maxVars%
|-  length%=�fromCtrl2(choice%(i%),buffer%)
�  � length%=0 � length%=-1
�4  ș s_setvar%,varnames$(i%),buffer%,length%,0,0
� �
�: �setMailSource:� check% �checkMailSource:bong=newBong
� �noteScrap
�  � �keep% � ș s_crmenu%,,-1
��
�
�<ݤfromCtrl2(from%, to%) :� make string suitable for *Set
� � f%,t%,c%:f%=-1:t%=-1
�  �:f%+=1:t%+=1
�   Ȏ from%?f% �
�?    � �"|":� (from%?(f%+1) � &DF)<>�"M" � to%?t%=�"|":t%+=1
#                to%?t%=from%?f%
0    � �"<":to%?t%=�"|":t%+=1:to%?t%=from%?f%
    :to%?t%=from%?f%
&   �
0  �from%?f%=0
:"= t%+1 : � includes terminator
D
N��saveChoices
XK � i%,file%,value$:� �:� � internal%=�:�#file%:�errorbox:internal%=�:�
b, file%=0:file%=�"<MailMan$Dir>.!Choices"
l � i%=0�maxVars%
v`  length%=�readVar(i%,buffer%,256):�fromCtrl(buffer%, choice%(i%)):value$=�rtoz(choice%(i%))
�5  � value$ <> "" � �#file%,i%+�"0":�#file%,value$
� �
�) � bong � �#file%,�"9":�#file%,"Bong"
� �#file%
�+ �"Settype <MailMan$Dir>.!Choices Data"
��
�
�E��fromCtrl(from%, to%) :� control codes stripped, except 13 => |M
� � f%,t%:f%=-1:t%=-1
�N  �:f%+=1:t%+=1:�from%?f%=13�to%?t%=�"|":t%+=1:to%?t%=�"M"�to%?t%=from%?f%
�G    � to%?t%<32 � t%-=1 : � strip control codes (t% ignored at end)
�  �from%?f%=0
��

��fillInChoices
 � length%, i%
  � i%=0�maxVars%
*F  length%=�readVar(i%,buffer%,256):�fromCtrl(buffer%, choice%(i%))
4 �
>�
H
R��setMailSource
\& C%=�readVar(source, buffer%, 256)
fW � C%=0 � mname$="net:&.mail.Intray":�setVar(source,mname$) � mname$=�rtoz(buffer%)
p> C%=�mname$,":"):�mname$,C%+1,1)=":" C%=�mname$,".",C%+1)
z fname$=�mname$,C%)
� C%=�mname$,".Intray")
�> � C%=0 � nfsname$=fname$+"$.Mail." � nfsname$=�mname$,C%)
�# mailguard$=nfsname$+"M_ACTIVE"
� mailt$=nfsname$+"M_CTMP"
� nfsflag%=0
� C%=�fname$,"nfs")
�
 � C%=1 �
�  nfsflag%=1
�  ș s_file%,5,mailt$ � r0
�$  � r0<>0 � ș s_xfile%,6,mailt$
� �
� �check_access
��


� �check_access
$> � Fix MM-0001 - check for public write access on mail box
.
84 ș "XOS_File", 5, mname$ � type%,,,,,attr% ; f%
B
L � (f% � 1) �
VA     ș "Wimp_ReportError", type%, 1, �get_message ("Mail00")
`
     �
j �
t
~ � (type% = 0) �
�!     �report (2007, "MailEL")
� �
�  � (type% <> 1) �
�"      �report (2005, "MailEK")
�  �
�"   � ((attr% � %100000) = 0) �
�"      �report (2006, "MailEJ")
�   �
�  �
� �
��
�
��checkMailSource

 � flags%, exists%:� �
- � � internal%=�:�errorbox:internal%=�:�
" ș s_file%,5,mname$ � exists%
() � exists%=0 � �report(2004,"MailG2")
2�
<
FݤcreateTree(name$)
PG � Recursively strip leaf off, test for existence and try to create
Z+ � i%, root$, exists%, flags%, mid$:� �
d � � �errorbox:=�
n � i%=�name$ � 1 � -1
x  mid$=�name$,i%,1)
�  � mid$="." �
�   root$=�name$,i%-1)
�1   șs_file%,5,root$ � exists%:� exists% � =�
�S   șs_cli%,"cdir "+root$ � ;flags%:� (flags% � 1)=1 � =�createTree(root$) � =�
�  �
�,   � mid$="&" � mid$="$" � mid$=":" � =�
�  �
� �
�=�
�
���setFile(buffer%,i%,leaf$)
�( � length%, name$, temp%:� temp% 256
�# length%=�readVar(i%,temp%,256)
j � length%=0 � name$=�rtoz(buffer%)+leaf$+�0:�setVar(i%,name$):$choice%(i%)=name$:choice%(i%)?�name$=0
�

"��noteScrap
,L șs_readvar%,"Mail$Scrap",buffer%,256,0,3 � ,,scrapC%:buffer%?scrapC%=0
68 � scrapC%=0 � scrapC%=�readVar(current,buffer%,256)
@4 � scrapC%=0 � scrap$="" � scrap$=�rtoz(buffer%)
J�
T
^��readChoices
h# � i%,file%,varname$,value$:� �
r5 � � internal%=�:�errorbox:internal%=�:�#file%:�
|/ file%=�"<MailMan$Dir>.!Choices":�file%=0��
� ȕ � �#file%
�$  i%=�#file%-�"0":value$=�#file%
�  � i%>=0�i%<=maxVars% �
�6   C%=�readVar(i%,0,-1):�C%=0 � �setVar(i%,value$)
�  �
�!   �i%=9�value$="Bong"�bong=�
�  �
� �
� �#file%
��
�
�!ݤreadVar(var%, to%, maxBuf%)
� � length%
 = șs_readvar%,varnames$(var%),to%,maxBuf%,0,3 � ,,length%
 " � maxBuf%<>-1 � to%?length%=0
 =length%
 &
 0��setVar(var%, from$)
 : � len%
 DK $buffer2%=from$:buffer2%?(�from$)=0:len%=�fromCtrl2(buffer2%,buffer3%)
 N2 șs_setvar%,varnames$(var%),buffer3%,len%,0,0
 X�
 b
 l��redrawChoices
 v7 �startChoices:șs_forcered%,handle%,0,-1024,1280,0
 � șs_getcaret%,,q%
 �5 � !q%=choiceswindow% � �setCaret(!q%,q%!4,q%!20)
 ��
 �
 ���putM(h%,m$)
 ��#h%,�get_message(m$);
 ��
 ���putM1(h%,m$)
 ��#h%,�get_message(m$)
 ��
 �
 ���putM2(h%,m$,m1$)
 ��putM(h%,m$):�#h%,m1$
!�
!
!��init_messages
! � C%,J%
!*"C%=�("<MailMan$Dir>.Messages")
!4,�C%=0 � 2011,"Cannot find messages file"
!>� messages% �#C%
!HJ%=messages%
!Rȕ ��#C%
!\
 $J%=�#C%
!f J%+=�($J%)+1
!p�
!z�#C%
!�endofmessages%=J%
!��
!�
!�ݤget_message(T$)
!�� J%,C$,I%
!�J%=messages%
!�ȕ J%<endofmessages%
!� C$=$J%
!� J%+=�($J%)+1
!� �C$,1)<>"#" �
!�  I%=�C$,":")
!�  �I%<>0 �
!�    �C$,I%-1)=T$ :=�C$,I%+1)
"  �
" �
"�
"$ � 2010,"Cannot find tag "+T$
".=""
"8
"B� �desksave(message%)
"L� myref%,sender%
"V!� � �deskwrite(message%!20) �
"`  sender%=message%!4
"j  myref%=message%!8
"t  message%!12=myref%
"~$  șs_sendm%,19,message%,sender%
"�  �rep(�,�$)
"��
"��
"�
"�� �deskwrite(H%)
"�� �
"�
� � � = �
"��#H%,"Run "+$bootpath%
"�= �
"�
"�=� "Mail$Current","Mail$LogFile","Mail$Name","Mail$Source"
�

00000000  0d 00 0a 22 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |...". > !RunImag|
00000010  65 20 32 2e 30 30 20 28  32 38 2d 41 70 72 2d 39  |e 2.00 (28-Apr-9|
00000020  35 29 0d 00 14 16 2a 49  20 41 4d 20 4d 41 49 4c  |5)....*I AM MAIL|
00000030  20 4e 45 54 4d 41 49 4c  0d 00 1e 1e de 20 74 61  | NETMAIL..... ta|
00000040  73 6b 69 64 25 34 3a 24  74 61 73 6b 69 64 25 3d  |skid%4:$taskid%=|
00000050  22 54 41 53 4b 22 0d 00  28 3e c8 99 20 22 57 69  |"TASK"..(>.. "Wi|
00000060  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 33  |mp_Initialise",3|
00000070  30 30 2c 21 74 61 73 6b  69 64 25 2c 22 4d 61 69  |00,!taskid%,"Mai|
00000080  6c 20 4d 61 6e 22 2c 2d  31 20 b8 20 76 65 72 73  |l Man",-1 . vers|
00000090  69 6f 6e 25 0d 00 32 4d  60 77 62 63 6f 6c 3d 26  |ion%..2M`wbcol=&|
000000a0  30 3a 60 74 62 63 6f 6c  3d 31 32 3a 60 73 63 6f  |0:`tbcol=12:`sco|
000000b0  3d 34 3a 60 6d 62 63 6f  6c 3d 32 3a 60 77 66 63  |=4:`mbcol=2:`wfc|
000000c0  6f 6c 3d 26 37 3a 60 74  66 63 6f 6c 3d 37 3a 60  |ol=&7:`tfcol=7:`|
000000d0  73 63 69 3d 26 44 3a 60  74 62 63 6f 6c 32 3d 26  |sci=&D:`tbcol2=&|
000000e0  43 0d 00 3c 09 f2 76 61  72 73 0d 00 46 04 0d 00  |C..<..vars..F...|
000000f0  50 12 f2 69 6e 69 74 5f  6d 65 73 73 61 67 65 73  |P..init_messages|
00000100  0d 00 5a 04 0d 00 64 13  de 20 62 6f 6f 74 70 61  |..Z...d.. bootpa|
00000110  74 68 25 20 32 35 36 0d  00 6e 3c c8 99 73 5f 72  |th% 256..n<..s_r|
00000120  65 61 64 76 61 72 25 2c  22 4d 61 69 6c 4d 61 6e  |eadvar%,"MailMan|
00000130  24 44 69 72 22 2c 62 6f  6f 74 70 61 74 68 25 2c  |$Dir",bootpath%,|
00000140  32 35 36 2c 30 2c 33 20  b8 2c 2c 62 6f 6f 74 6c  |256,0,3 .,,bootl|
00000150  65 6e 25 0d 00 78 19 62  6f 6f 74 70 61 74 68 25  |en%..x.bootpath%|
00000160  3f 62 6f 6f 74 6c 65 6e  25 3d 31 33 0d 00 82 04  |?bootlen%=13....|
00000170  0d 00 8c 3d 6d 61 78 62  75 66 25 3d 26 32 30 30  |...=maxbuf%=&200|
00000180  3a de 20 62 75 66 66 65  72 25 20 6d 61 78 62 75  |:. buffer% maxbu|
00000190  66 25 2c 65 6e 64 62 75  66 25 20 2d 31 3a 63 75  |f%,endbuf% -1:cu|
000001a0  72 62 75 66 25 3d 62 75  66 66 65 72 25 0d 00 96  |rbuf%=buffer%...|
000001b0  22 de 20 62 75 66 66 65  72 32 25 20 26 31 30 30  |". buffer2% &100|
000001c0  2c 20 62 75 66 66 65 72  33 25 20 26 31 30 30 0d  |, buffer3% &100.|
000001d0  00 a0 15 de 20 6d 65 6e  75 5f 62 75 66 66 65 72  |.... menu_buffer|
000001e0  25 20 34 30 0d 00 aa 29  c8 99 20 73 5f 66 73 63  |% 40...).. s_fsc|
000001f0  74 72 6c 25 2c 31 33 2c  22 6e 65 74 22 2b bd 30  |trl%,13,"net"+.0|
00000200  2c 31 20 b8 20 2c 2c 4e  65 74 4f 4b 25 0d 00 b4  |,1 . ,,NetOK%...|
00000210  04 0d 00 be 19 de 20 71  25 20 26 32 34 30 2c 69  |...... q% &240,i|
00000220  63 6f 6e 73 25 20 26 31  30 30 0d 00 c8 14 de 20  |cons% &100..... |
00000230  6d 65 6e 75 64 61 74 61  25 20 26 32 30 30 0d 00  |menudata% &200..|
00000240  d2 46 6d 61 78 56 61 72  73 25 3d 33 3a de 20 63  |.FmaxVars%=3:. c|
00000250  68 6f 69 63 65 25 28 6d  61 78 56 61 72 73 25 29  |hoice%(maxVars%)|
00000260  3a 63 75 72 72 65 6e 74  3d 30 3a 6c 6f 67 66 69  |:current=0:logfi|
00000270  6c 65 3d 31 3a 6e 61 6d  65 3d 32 3a 73 6f 75 72  |le=1:name=2:sour|
00000280  63 65 3d 33 0d 00 dc 42  6d 61 78 53 65 6e 64 25  |ce=3...BmaxSend%|
00000290  3d 35 3a de 20 73 65 6e  64 25 28 6d 61 78 53 65  |=5:. send%(maxSe|
000002a0  6e 64 25 29 3a 74 6f 3d  30 3a 63 63 3d 31 3a 73  |nd%):to=0:cc=1:s|
000002b0  75 62 6a 65 63 74 3d 32  3a 66 72 6f 6d 3d 33 3a  |ubject=2:from=3:|
000002c0  66 69 6c 65 3d 34 0d 00  e6 43 de 20 76 61 72 6e  |file=4...C. varn|
000002d0  61 6d 65 73 24 28 6d 61  78 56 61 72 73 25 29 3a  |ames$(maxVars%):|
000002e0  e3 76 25 3d 30 b8 6d 61  78 56 61 72 73 25 3a f3  |.v%=0.maxVars%:.|
000002f0  76 61 72 6e 61 6d 65 73  24 28 76 25 29 3a ed 3a  |varnames$(v%):.:|
00000300  73 63 72 61 70 24 3d 22  22 0d 00 f0 04 0d 00 fa  |scrap$="".......|
00000310  12 de 20 69 63 6f 6e 49  6e 66 6f 25 20 34 30 0d  |.. iconInfo% 40.|
00000320  01 04 2d 62 6f 6e 67 3d  a3 3a 69 6e 74 65 72 6e  |..-bong=.:intern|
00000330  61 6c 25 3d b9 3a ee 85  20 f2 65 72 72 6f 72 62  |al%=.:.. .errorb|
00000340  6f 78 3a f2 66 69 6e 69  73 68 3a e0 0d 01 0e 2f  |ox:.finish:..../|
00000350  53 25 3d 8e 22 3c 4d 61  69 6c 4d 61 6e 24 44 69  |S%=."<MailMan$Di|
00000360  72 3e 2e 53 70 72 69 74  65 73 22 3a 54 25 3d a2  |r>.Sprites":T%=.|
00000370  23 53 25 2b 31 36 3a d9  23 53 25 0d 01 18 11 de  |#S%+16:.#S%.....|
00000380  20 73 70 72 69 74 65 73  25 20 54 25 0d 01 22 1d  | sprites% T%..".|
00000390  21 73 70 72 69 74 65 73  25 3d 54 25 3a 73 70 72  |!sprites%=T%:spr|
000003a0  69 74 65 73 25 21 38 3d  30 0d 01 2c 1c c8 99 20  |ites%!8=0..,... |
000003b0  73 5f 73 70 6f 70 25 2c  26 31 30 39 2c 73 70 72  |s_spop%,&109,spr|
000003c0  69 74 65 73 25 0d 01 36  34 c8 99 20 73 5f 73 70  |ites%..64.. s_sp|
000003d0  6f 70 25 2c 26 31 30 41  2c 73 70 72 69 74 65 73  |op%,&10A,sprites|
000003e0  25 2c 22 3c 4d 61 69 6c  4d 61 6e 24 44 69 72 3e  |%,"<MailMan$Dir>|
000003f0  2e 53 70 72 69 74 65 73  22 0d 01 40 14 69 63 6d  |.Sprites"..@.icm|
00000400  61 69 6c 25 3d a4 69 63  6f 6e 62 61 72 0d 01 4a  |ail%=.iconbar..J|
00000410  04 0d 01 54 2a c8 99 20  73 5f 6f 70 65 6e 74 25  |...T*.. s_opent%|
00000420  2c 2c 22 3c 4d 61 69 6c  4d 61 6e 24 44 69 72 3e  |,,"<MailMan$Dir>|
00000430  2e 54 65 6d 70 6c 61 74  65 73 22 0d 01 5e 57 6d  |.Templates"..^Wm|
00000440  61 69 6c 49 63 6f 6e 53  69 7a 65 25 3d 32 35 35  |ailIconSize%=255|
00000450  3a 6d 61 69 6c 74 6f 53  69 7a 65 25 3d 35 2a 6d  |:mailtoSize%=5*m|
00000460  61 69 6c 49 63 6f 6e 53  69 7a 65 25 2b 33 32 2b  |ailIconSize%+32+|
00000470  31 36 3a 69 6e 66 6f 53  69 7a 65 25 3d 32 30 30  |16:infoSize%=200|
00000480  3a 63 68 6f 69 63 65 73  53 69 7a 65 25 3d 31 32  |:choicesSize%=12|
00000490  30 30 0d 01 68 4b de 20  6d 61 69 6c 49 63 6f 6e  |00..hK. mailIcon|
000004a0  73 25 20 6d 61 69 6c 74  6f 53 69 7a 65 25 2c 69  |s% mailtoSize%,i|
000004b0  6e 66 6f 49 63 6f 6e 73  25 20 69 6e 66 6f 53 69  |nfoIcons% infoSi|
000004c0  7a 65 25 2c 63 68 6f 69  63 65 49 63 6f 6e 73 25  |ze%,choiceIcons%|
000004d0  20 63 68 6f 69 63 65 73  53 69 7a 65 25 0d 01 72  | choicesSize%..r|
000004e0  43 c8 99 20 73 5f 6c 6f  61 64 74 25 2c 2c 71 25  |C.. s_loadt%,,q%|
000004f0  2c 6d 61 69 6c 49 63 6f  6e 73 25 2c 6d 61 69 6c  |,mailIcons%,mail|
00000500  49 63 6f 6e 73 25 2b 6d  61 69 6c 74 6f 53 69 7a  |Icons%+mailtoSiz|
00000510  65 25 2c 2d 31 2c 22 4d  61 69 6c 54 6f 22 2c 30  |e%,-1,"MailTo",0|
00000520  0d 01 7c 42 c8 99 20 73  5f 63 72 65 61 74 65 77  |..|B.. s_createw|
00000530  25 2c 2c 71 25 20 b8 20  6d 61 69 6c 74 6f 25 3a  |%,,q% . mailto%:|
00000540  f2 6e 6f 74 65 42 75 66  66 65 72 73 28 6d 61 69  |.noteBuffers(mai|
00000550  6c 74 6f 25 2c 30 2c 20  34 2c 73 65 6e 64 25 28  |lto%,0, 4,send%(|
00000560  29 29 0d 01 86 3f c8 99  20 73 5f 6c 6f 61 64 74  |))...?.. s_loadt|
00000570  25 2c 2c 71 25 2c 69 6e  66 6f 49 63 6f 6e 73 25  |%,,q%,infoIcons%|
00000580  2c 69 6e 66 6f 49 63 6f  6e 73 25 2b 69 6e 66 6f  |,infoIcons%+info|
00000590  53 69 7a 65 25 2c 2d 31  2c 22 49 6e 66 6f 22 2c  |Size%,-1,"Info",|
000005a0  30 0d 01 90 23 c8 99 20  73 5f 63 72 65 61 74 65  |0...#.. s_create|
000005b0  77 25 2c 2c 71 25 20 b8  20 69 6e 66 6f 77 69 6e  |w%,,q% . infowin|
000005c0  64 6f 77 25 0d 01 9a 49  c8 99 20 73 5f 6c 6f 61  |dow%...I.. s_loa|
000005d0  64 74 25 2c 2c 71 25 2c  63 68 6f 69 63 65 49 63  |dt%,,q%,choiceIc|
000005e0  6f 6e 73 25 2c 63 68 6f  69 63 65 49 63 6f 6e 73  |ons%,choiceIcons|
000005f0  25 2b 63 68 6f 69 63 65  73 53 69 7a 65 25 2c 2d  |%+choicesSize%,-|
00000600  31 2c 22 63 68 6f 69 63  65 73 22 2c 30 0d 01 a4  |1,"choices",0...|
00000610  54 c8 99 20 73 5f 63 72  65 61 74 65 77 25 2c 2c  |T.. s_createw%,,|
00000620  71 25 20 b8 20 63 68 6f  69 63 65 73 77 69 6e 64  |q% . choiceswind|
00000630  6f 77 25 3a f2 6e 6f 74  65 42 75 66 66 65 72 73  |ow%:.noteBuffers|
00000640  28 63 68 6f 69 63 65 73  77 69 6e 64 6f 77 25 2c  |(choiceswindow%,|
00000650  20 32 2c 20 35 2c 20 63  68 6f 69 63 65 25 28 29  | 2, 5, choice%()|
00000660  29 0d 01 ae 10 c8 99 20  73 5f 63 6c 6f 73 65 74  |)...... s_closet|
00000670  25 0d 01 b8 04 0d 01 c2  12 de 20 6f 70 74 62 75  |%......... optbu|
00000680  66 66 25 20 31 30 30 0d  01 cc 36 6d 61 69 6c 72  |ff% 100...6mailr|
00000690  65 66 25 3d 30 3a 6d 61  69 6c 6d 65 74 68 6f 64  |ef%=0:mailmethod|
000006a0  25 3d 30 3a f4 20 30 20  6e 6f 6e 65 2c 31 20 66  |%=0:. 0 none,1 f|
000006b0  69 6c 65 2c 32 2c 33 20  73 63 72 61 70 0d 01 d6  |ile,2,3 scrap...|
000006c0  21 61 63 6b 3d a3 3a f2  73 65 74 4f 70 74 28 6d  |!ack=.:.setOpt(m|
000006d0  61 69 6c 74 6f 25 2c 31  31 2c 61 63 6b 29 0d 01  |ailto%,11,ack)..|
000006e0  e0 16 64 69 61 6c 6f 67  75 65 53 74 61 72 74 65  |..dialogueStarte|
000006f0  64 25 3d a3 0d 01 ea 04  0d 01 f4 1f f2 72 65 61  |d%=..........rea|
00000700  64 43 68 6f 69 63 65 73  3a f2 66 69 6c 6c 49 6e  |dChoices:.fillIn|
00000710  43 68 6f 69 63 65 73 0d  01 fe 48 c8 99 20 73 5f  |Choices...H.. s_|
00000720  72 65 61 64 76 61 72 25  2c 22 4d 61 69 6c 4d 61  |readvar%,"MailMa|
00000730  6e 24 44 69 72 22 2c 62  75 66 66 65 72 25 2c 32  |n$Dir",buffer%,2|
00000740  35 35 2c 30 2c 33 20 b8  20 2c 2c 6c 65 6e 67 74  |55,0,3 . ,,lengt|
00000750  68 25 3a 76 25 3d 6c 65  6e 67 74 68 25 2d 31 0d  |h%:v%=length%-1.|
00000760  02 08 3a c8 95 20 76 25  3e 3d 30 20 80 20 62 75  |..:.. v%>=0 . bu|
00000770  66 66 65 72 25 3f 76 25  3c 3e 97 22 2e 22 3a 76  |ffer%?v%<>.".":v|
00000780  25 2d 3d 31 3a ce 3a 76  25 2b 3d 31 3a 62 75 66  |%-=1:.:v%+=1:buf|
00000790  66 65 72 25 3f 76 25 3d  30 0d 02 12 4b f2 73 65  |fer%?v%=0...K.se|
000007a0  74 46 69 6c 65 28 62 75  66 66 65 72 25 2c 63 75  |tFile(buffer%,cu|
000007b0  72 72 65 6e 74 2c 22 43  75 72 72 65 6e 74 22 29  |rrent,"Current")|
000007c0  3a f2 73 65 74 46 69 6c  65 28 62 75 66 66 65 72  |:.setFile(buffer|
000007d0  25 2c 6c 6f 67 66 69 6c  65 2c 22 4c 6f 67 46 69  |%,logfile,"LogFi|
000007e0  6c 65 22 29 0d 02 1c 1d  f2 73 65 74 4d 61 69 6c  |le").....setMail|
000007f0  53 6f 75 72 63 65 3a f2  6e 6f 74 65 53 63 72 61  |Source:.noteScra|
00000800  70 0d 02 26 04 0d 02 30  10 ee 85 20 f2 65 72 72  |p..&...0... .err|
00000810  6f 72 62 6f 78 0d 02 3a  0e 6c 6f 64 65 6c 25 3d  |orbox..:.lodel%=|
00000820  35 30 30 0d 02 44 0f 68  69 64 65 6c 25 3d 36 30  |500..D.hidel%=60|
00000830  30 30 0d 02 4e 13 64 65  6c 61 79 25 20 3d 20 68  |00..N.delay% = h|
00000840  69 64 65 6c 25 0d 02 58  12 c8 99 20 73 5f 64 72  |idel%..X... s_dr|
00000850  61 67 25 2c 2c 2d 31 0d  02 62 21 c8 99 20 73 5f  |ag%,,-1..b!.. s_|
00000860  74 69 6d 65 25 20 b8 20  74 69 6d 65 78 25 3a f2  |time% . timex%:.|
00000870  6e 75 64 67 65 28 a3 29  0d 02 6c 05 f5 0d 02 76  |nudge(.)..l....v|
00000880  20 20 c8 99 20 73 5f 70  6f 6c 6c 25 2c 30 2c 71  |  .. s_poll%,0,q|
00000890  25 2c 74 69 6d 65 78 25  20 b8 20 41 25 0d 02 80  |%,timex% . A%...|
000008a0  0d 20 20 c8 8e 20 41 25  20 ca 0d 02 8a 42 20 20  |.  .. A% ....B  |
000008b0  c9 20 30 20 3a e7 6d 61  69 6c 6d 65 74 68 6f 64  |. 0 :.mailmethod|
000008c0  25 3d 33 20 f2 53 74 61  72 74 44 69 61 6c 6f 67  |%=3 .StartDialog|
000008d0  75 65 3a 6d 61 69 6c 6d  65 74 68 6f 64 25 3d 31  |ue:mailmethod%=1|
000008e0  20 8b 20 f2 6e 75 64 67  65 28 b9 29 0d 02 94 1e  | . .nudge(.)....|
000008f0  20 20 c9 20 31 20 3a f2  72 65 64 72 61 77 5f 77  |  . 1 :.redraw_w|
00000900  69 6e 64 6f 77 28 21 71  25 29 0d 02 9e 44 20 20  |indow(!q%)...D  |
00000910  c9 20 32 20 3a f2 6f 70  65 6e 5f 77 69 6e 64 6f  |. 2 :.open_windo|
00000920  77 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |w(!q%,q%!4,q%!8,|
00000930  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
00000940  30 2c 71 25 21 32 34 2c  71 25 21 32 38 29 0d 02  |0,q%!24,q%!28)..|
00000950  a8 1d 20 20 c9 20 33 20  3a f2 63 6c 6f 73 65 5f  |..  . 3 :.close_|
00000960  77 69 6e 64 6f 77 28 21  71 25 29 0d 02 b2 37 20  |window(!q%)...7 |
00000970  20 c9 20 36 20 3a f2 63  68 65 63 6b 6d 6f 75 73  | . 6 :.checkmous|
00000980  65 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |e(!q%,q%!4,q%!8,|
00000990  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
000009a0  30 29 0d 02 bc 36 20 20  c9 20 38 20 3a f2 6b 65  |0)...6  . 8 :.ke|
000009b0  79 28 21 71 25 2c 71 25  21 34 2c 71 25 21 38 2c  |y(!q%,q%!4,q%!8,|
000009c0  71 25 21 31 32 2c 71 25  21 31 36 2c 71 25 21 32  |q%!12,q%!16,q%!2|
000009d0  30 2c 71 25 21 32 34 29  0d 02 c6 33 20 20 c9 20  |0,q%!24)...3  . |
000009e0  39 20 3a f2 67 65 74 70  6f 69 6e 74 65 72 3a f2  |9 :.getpointer:.|
000009f0  6d 65 6e 75 73 65 6c 65  63 74 28 71 25 29 3a f2  |menuselect(q%):.|
00000a00  72 65 74 61 69 6e 43 68  65 63 6b 0d 02 d0 1a 20  |retainCheck.... |
00000a10  20 c9 20 31 37 2c 31 38  3a f2 72 65 63 65 69 76  | . 17,18:.receiv|
00000a20  65 28 71 25 29 0d 02 da  07 20 20 cb 0d 02 e4 07  |e(q%)....  .....|
00000a30  fd 20 a3 0d 02 ee 04 0d  02 f8 11 dd f2 72 65 63  |. ...........rec|
00000a40  65 69 76 65 28 71 25 29  0d 03 02 0e f2 6e 6f 74  |eive(q%).....not|
00000a50  65 53 63 72 61 70 0d 03  0c 0e c8 8e 20 71 25 21  |eScrap...... q%!|
00000a60  31 36 20 ca 0d 03 16 11  c9 20 30 3a f2 66 69 6e  |16 ...... 0:.fin|
00000a70  69 73 68 3a e0 0d 03 20  27 c9 20 33 3a f4 20 64  |ish:... '. 3:. d|
00000a80  61 74 61 20 6c 6f 61 64  65 64 20 66 72 6f 6d 20  |ata loaded from |
00000a90  66 69 6c 65 72 20 76 69  65 77 65 72 0d 03 2a 29  |filer viewer..*)|
00000aa0  20 20 e7 20 6d 61 69 6c  6d 65 74 68 6f 64 25 3c  |  . mailmethod%<|
00000ab0  32 20 84 20 71 25 21 31  32 3c 3e 6d 61 69 6c 72  |2 . q%!12<>mailr|
00000ac0  65 66 25 20 8c 0d 03 34  23 20 20 20 20 e7 20 71  |ef% ...4#    . q|
00000ad0  25 21 34 30 3d 34 30 39  36 20 84 20 71 25 21 34  |%!40=4096 . q%!4|
00000ae0  30 3d 38 31 39 32 20 8c  0d 03 3e 22 20 20 20 20  |0=8192 ...>"    |
00000af0  20 20 f2 72 65 70 6f 72  74 28 32 30 30 33 2c 22  |  .report(2003,"|
00000b00  4d 61 69 6c 45 32 22 29  3a e1 0d 03 48 09 20 20  |MailE2"):...H.  |
00000b10  20 20 cc 0d 03 52 2d 20  20 20 20 20 20 66 69 6c  |  ...R-      fil|
00000b20  65 6e 61 6d 24 3d a4 72  74 6f 7a 28 71 25 2b 34  |enam$=.rtoz(q%+4|
00000b30  34 29 3a 6d 61 69 6c 6d  65 74 68 6f 64 25 3d 31  |4):mailmethod%=1|
00000b40  0d 03 5c 33 20 20 20 20  20 20 71 25 21 31 36 3d  |..\3      q%!16=|
00000b50  34 3a 71 25 21 31 32 3d  71 25 21 38 3a c8 99 20  |4:q%!12=q%!8:.. |
00000b60  73 5f 73 65 6e 64 6d 25  2c 31 37 2c 71 25 2c 71  |s_sendm%,17,q%,q|
00000b70  25 21 34 0d 03 66 18 20  20 20 20 20 20 f2 53 74  |%!4..f.      .St|
00000b80  61 72 74 44 69 61 6c 6f  67 75 65 0d 03 70 09 20  |artDialogue..p. |
00000b90  20 20 20 cd 0d 03 7a 07  20 20 cc 0d 03 84 38 20  |   ...z.  ....8 |
00000ba0  20 20 20 71 25 21 31 36  3d 34 3a 71 25 21 31 32  |   q%!16=4:q%!12|
00000bb0  3d 71 25 21 38 3a c8 99  20 73 5f 73 65 6e 64 6d  |=q%!8:.. s_sendm|
00000bc0  25 2c 31 37 2c 71 25 2c  6d 61 69 6c 73 65 6e 64  |%,17,q%,mailsend|
00000bd0  65 72 25 0d 03 8e 1b 20  20 20 20 c8 99 20 73 5f  |er%....    .. s_|
00000be0  74 69 6d 65 25 20 b8 20  74 69 6d 65 78 25 0d 03  |time% . timex%..|
00000bf0  98 15 20 20 20 20 6d 61  69 6c 6d 65 74 68 6f 64  |..    mailmethod|
00000c00  25 3d 33 0d 03 a2 07 20  20 cd 0d 03 ac 1e c9 20  |%=3....  ...... |
00000c10  31 3a f4 20 61 20 64 61  74 61 20 73 61 76 65 20  |1:. a data save |
00000c20  69 6e 74 6f 20 6d 65 2e  0d 03 b6 36 20 20 66 69  |into me....6  fi|
00000c30  6c 65 6e 61 6d 24 3d a4  67 65 74 5f 6d 65 73 73  |lenam$=.get_mess|
00000c40  61 67 65 28 22 4d 61 69  6c 47 31 22 29 2b a4 72  |age("MailG1")+.r|
00000c50  74 6f 7a 28 71 25 2b 34  34 29 2b 22 3e 22 0d 03  |toz(q%+44)+">"..|
00000c60  c0 32 20 20 6d 61 69 6c  6d 65 74 68 6f 64 25 3d  |.2  mailmethod%=|
00000c70  32 3a 6d 61 69 6c 73 65  6e 64 65 72 25 3d 71 25  |2:mailsender%=q%|
00000c80  21 34 3a 6d 61 69 6c 72  65 66 25 3d 71 25 21 38  |!4:mailref%=q%!8|
00000c90  0d 03 ca 15 20 20 e7 20  73 63 72 61 70 24 3d 22  |....  . scrap$="|
00000ca0  22 20 8c 20 e1 0d 03 d4  5b 20 20 24 28 71 25 2b  |" . ....[  $(q%+|
00000cb0  34 34 29 3d 73 63 72 61  70 24 3a 71 25 3f 28 34  |44)=scrap$:q%?(4|
00000cc0  34 2b 73 63 72 61 70 43  25 29 3d 30 3a 21 71 25  |4+scrapC%)=0:!q%|
00000cd0  3d 34 37 2b 73 63 72 61  70 43 25 2b 31 80 ac 33  |=47+scrapC%+1..3|
00000ce0  3a 71 25 21 31 36 3d 32  3a 71 25 21 31 32 3d 6d  |:q%!16=2:q%!12=m|
00000cf0  61 69 6c 72 65 66 25 3a  71 25 21 33 36 3d 2d 31  |ailref%:q%!36=-1|
00000d00  0d 03 de 31 20 20 c8 99  20 73 5f 73 65 6e 64 6d  |...1  .. s_sendm|
00000d10  25 2c 31 37 2c 71 25 2c  6d 61 69 6c 73 65 6e 64  |%,17,q%,mailsend|
00000d20  65 72 25 3a 6d 61 69 6c  72 65 66 25 3d 71 25 21  |er%:mailref%=q%!|
00000d30  38 0d 03 e8 17 c9 20 31  30 3a f4 20 64 65 73 6b  |8..... 10:. desk|
00000d40  74 6f 70 20 73 61 76 65  0d 03 f2 13 20 20 f2 64  |top save....  .d|
00000d50  65 73 6b 73 61 76 65 28  71 25 29 0d 03 fc 19 c9  |esksave(q%).....|
00000d60  20 26 35 30 32 3a f4 20  68 65 6c 70 20 72 65 71  | &502:. help req|
00000d70  75 65 73 74 0d 04 06 27  20 20 71 25 21 31 32 3d  |uest...'  q%!12=|
00000d80  71 25 21 38 3a 71 25 21  31 36 3d 26 35 30 33 3a  |q%!8:q%!16=&503:|
00000d90  68 65 6c 70 25 3d 71 25  2b 32 30 0d 04 10 2d 20  |help%=q%+20...- |
00000da0  20 68 65 6c 70 25 3d a4  68 65 6c 70 28 71 25 21  | help%=.help(q%!|
00000db0  33 32 2c 71 25 21 33 36  2c 68 65 6c 70 25 29 3a  |32,q%!36,help%):|
00000dc0  3f 68 65 6c 70 25 3d 30  0d 04 1a 19 20 20 21 71  |?help%=0....  !q|
00000dd0  25 3d 28 68 65 6c 70 25  2b 34 2d 71 25 29 80 ac  |%=(help%+4-q%)..|
00000de0  33 0d 04 24 1c 20 20 c8  99 20 73 5f 73 65 6e 64  |3..$.  .. s_send|
00000df0  6d 25 2c 31 37 2c 71 25  2c 71 25 21 34 0d 04 2e  |m%,17,q%,q%!4...|
00000e00  39 c9 20 26 34 30 30 43  30 3a f4 20 73 75 62 6d  |9. &400C0:. subm|
00000e10  65 6e 75 20 72 65 71 75  65 73 74 3a 20 63 61 6e  |enu request: can|
00000e20  20 6f 6e 6c 79 20 61 70  70 6c 79 20 74 6f 20 63  | only apply to c|
00000e30  68 6f 69 63 65 73 0d 04  38 36 20 20 f2 73 74 61  |hoices..86  .sta|
00000e40  72 74 43 68 6f 69 63 65  73 3a c8 99 20 73 5f 63  |rtChoices:.. s_c|
00000e50  72 73 75 62 6d 65 6e 75  25 2c 2c 71 25 21 32 30  |rsubmenu%,,q%!20|
00000e60  2c 71 25 21 32 34 2c 71  25 21 32 38 0d 04 42 05  |,q%!24,q%!28..B.|
00000e70  cb 0d 04 4c 05 e1 0d 04  56 04 0d 04 60 12 dd f2  |...L....V...`...|
00000e80  73 74 61 72 74 43 68 6f  69 63 65 73 0d 04 6a 42  |startChoices..jB|
00000e90  20 f2 66 69 6c 6c 49 6e  43 68 6f 69 63 65 73 3a  | .fillInChoices:|
00000ea0  6e 65 77 42 6f 6e 67 3d  62 6f 6e 67 3a f2 73 65  |newBong=bong:.se|
00000eb0  74 4f 70 74 28 63 68 6f  69 63 65 73 77 69 6e 64  |tOpt(choiceswind|
00000ec0  6f 77 25 2c 36 2c 6e 65  77 42 6f 6e 67 29 0d 04  |ow%,6,newBong)..|
00000ed0  74 05 e1 0d 04 7e 04 0d  04 88 13 dd f2 53 74 61  |t....~.......Sta|
00000ee0  72 74 44 69 61 6c 6f 67  75 65 0d 04 92 10 f2 65  |rtDialogue.....e|
00000ef0  6e 64 44 69 61 6c 6f 67  75 65 0d 04 9c 28 e7 20  |ndDialogue...(. |
00000f00  73 63 72 61 70 24 3d 22  22 8c f2 72 65 70 6f 72  |scrap$=""..repor|
00000f10  74 28 32 30 30 35 2c 22  4d 61 69 6c 45 33 22 29  |t(2005,"MailE3")|
00000f20  3a e1 0d 04 a6 21 66 72  6f 6d 6e 61 6d 24 3d a4  |:....!fromnam$=.|
00000f30  72 74 6f 7a 28 63 68 6f  69 63 65 25 28 6e 61 6d  |rtoz(choice%(nam|
00000f40  65 29 29 0d 04 b0 13 24  28 73 65 6e 64 25 28 74  |e))....$(send%(t|
00000f50  6f 29 29 3d bd 30 0d 04  ba 13 24 28 73 65 6e 64  |o))=.0....$(send|
00000f60  25 28 63 63 29 29 3d bd  30 0d 04 c4 18 24 28 73  |%(cc))=.0....$(s|
00000f70  65 6e 64 25 28 73 75 62  6a 65 63 74 29 29 3d bd  |end%(subject))=.|
00000f80  30 0d 04 ce 1e 24 28 73  65 6e 64 25 28 66 72 6f  |0....$(send%(fro|
00000f90  6d 29 29 3d 66 72 6f 6d  6e 61 6d 24 2b bd 30 0d  |m))=fromnam$+.0.|
00000fa0  04 d8 1e 24 28 73 65 6e  64 25 28 66 69 6c 65 29  |...$(send%(file)|
00000fb0  29 3d 66 69 6c 65 6e 61  6d 24 2b bd 30 0d 04 e2  |)=filenam$+.0...|
00000fc0  32 f2 67 65 74 70 6f 69  6e 74 65 72 3a f2 70 6f  |2.getpointer:.po|
00000fd0  70 75 70 28 6d 61 69 6c  74 6f 25 29 3a 64 69 61  |pup(mailto%):dia|
00000fe0  6c 6f 67 75 65 53 74 61  72 74 65 64 25 3d b9 0d  |logueStarted%=..|
00000ff0  04 ec 26 c8 99 73 5f 73  65 74 63 61 72 65 74 25  |..&..s_setcaret%|
00001000  2c 6d 61 69 6c 74 6f 25  2c 30 2c 30 2c 2d 31 2c  |,mailto%,0,0,-1,|
00001010  2d 31 2c 2d 31 0d 04 f6  05 e1 0d 05 00 04 0d 05  |-1,-1...........|
00001020  0a 11 dd f2 65 6e 64 44  69 61 6c 6f 67 75 65 0d  |....endDialogue.|
00001030  05 14 51 20 e7 20 64 69  61 6c 6f 67 75 65 53 74  |..Q . dialogueSt|
00001040  61 72 74 65 64 25 20 8c  20 f2 63 6c 6f 73 65 5f  |arted% . .close_|
00001050  77 69 6e 64 6f 77 28 6d  61 69 6c 74 6f 25 29 3a  |window(mailto%):|
00001060  6d 61 69 6c 6d 65 74 68  6f 64 25 3d 30 3a 64 69  |mailmethod%=0:di|
00001070  61 6c 6f 67 75 65 53 74  61 72 74 65 64 25 3d a3  |alogueStarted%=.|
00001080  0d 05 1e 05 e1 0d 05 28  04 0d 05 32 0e dd a4 72  |.......(...2...r|
00001090  74 6f 7a 28 73 25 29 0d  05 3c 08 ea 20 6e 24 0d  |toz(s%)..<.. n$.|
000010a0  05 46 1a c8 95 3f 73 25  3a 6e 24 2b 3d bd 3f 73  |.F...?s%:n$+=.?s|
000010b0  25 3a 73 25 2b 3d 31 3a  ce 0d 05 50 07 3d 6e 24  |%:s%+=1:...P.=n$|
000010c0  0d 05 5a 04 0d 05 64 3d  dd f2 6b 65 79 28 68 61  |..Z...d=..key(ha|
000010d0  6e 64 6c 65 25 2c 69 63  6f 6e 25 2c 78 63 6f 66  |ndle%,icon%,xcof|
000010e0  66 25 2c 79 63 6f 66 66  25 2c 63 61 72 65 74 68  |f%,ycoff%,careth|
000010f0  25 2c 63 61 72 65 74 69  6e 64 78 25 2c 63 68 25  |%,caretindx%,ch%|
00001100  29 0d 05 6e 17 e7 20 68  61 6e 64 6c 65 25 3d 6d  |)..n.. handle%=m|
00001110  61 69 6c 74 6f 25 20 8c  0d 05 78 19 20 e7 20 63  |ailto% ...x. . c|
00001120  68 25 3d 31 33 20 80 20  69 63 6f 6e 25 3e 31 20  |h%=13 . icon%>1 |
00001130  8c 0d 05 82 22 20 20 f2  6d 61 69 6c 3a e7 20 72  |...."  .mail:. r|
00001140  65 6d 6f 76 65 25 20 f2  65 6e 64 44 69 61 6c 6f  |emove% .endDialo|
00001150  67 75 65 0d 05 8c 06 20  cc 0d 05 96 23 20 20 f2  |gue.... ....#  .|
00001160  64 6f 4b 65 79 28 63 68  25 2c 6d 61 69 6c 74 6f  |doKey(ch%,mailto|
00001170  25 2c 69 63 6f 6e 25 2c  34 2c 30 29 0d 05 a0 08  |%,icon%,4,0)....|
00001180  20 cd 3a e1 0d 05 aa 05  cd 0d 05 b4 1e e7 20 68  | .:........... h|
00001190  61 6e 64 6c 65 25 3d 63  68 6f 69 63 65 73 77 69  |andle%=choiceswi|
000011a0  6e 64 6f 77 25 20 8c 0d  05 be 2f 20 e7 20 63 68  |ndow% ..../ . ch|
000011b0  25 3d 31 33 20 80 20 69  63 6f 6e 25 3d 35 20 f2  |%=13 . icon%=5 .|
000011c0  72 65 67 69 73 74 65 72  43 68 6f 69 63 65 73 28  |registerChoices(|
000011d0  b9 2c a3 29 3a e1 0d 05  c8 29 20 f2 64 6f 4b 65  |.,.):....) .doKe|
000011e0  79 28 63 68 25 2c 63 68  6f 69 63 65 73 77 69 6e  |y(ch%,choiceswin|
000011f0  64 6f 77 25 2c 69 63 6f  6e 25 2c 35 2c 32 29 0d  |dow%,icon%,5,2).|
00001200  05 d2 05 cd 0d 05 dc 05  e1 0d 05 e6 04 0d 05 f0  |................|
00001210  30 dd f2 64 6f 4b 65 79  28 63 68 25 2c 77 69 6e  |0..doKey(ch%,win|
00001220  64 6f 77 25 2c 69 63 6f  6e 25 2c 6d 61 78 69 63  |dow%,icon%,maxic|
00001230  6f 6e 25 2c 6d 69 6e 69  63 6f 6e 25 29 0d 05 fa  |on%,minicon%)...|
00001240  0d 20 c8 8e 20 63 68 25  20 ca 0d 06 04 0c 20 20  |. .. ch% .....  |
00001250  20 c9 20 31 33 3a 0d 06  0e 35 20 20 20 20 20 69  | . 13:...5     i|
00001260  63 6f 6e 25 3d 69 63 6f  6e 25 2b 31 3a e7 69 63  |con%=icon%+1:.ic|
00001270  6f 6e 25 3e 6d 61 78 69  63 6f 6e 25 20 69 63 6f  |on%>maxicon% ico|
00001280  6e 25 3d 6d 69 6e 69 63  6f 6e 25 0d 06 18 2c 20  |n%=minicon%..., |
00001290  20 20 20 20 f2 73 65 74  43 61 72 65 74 28 77 69  |    .setCaret(wi|
000012a0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 63 61 72 65  |ndow%,icon%,care|
000012b0  74 69 6e 64 78 25 29 0d  06 22 19 20 20 20 c9 20  |tindx%)..".   . |
000012c0  32 37 3a 20 f2 65 6e 64  44 69 61 6c 6f 67 75 65  |27: .endDialogue|
000012d0  0d 06 2c 3a 20 20 20 c9  20 26 31 38 45 3a 69 63  |..,:   . &18E:ic|
000012e0  6f 6e 25 3d 69 63 6f 6e  25 2b 31 3a e7 69 63 6f  |on%=icon%+1:.ico|
000012f0  6e 25 3e 6d 61 78 69 63  6f 6e 25 20 69 63 6f 6e  |n%>maxicon% icon|
00001300  25 3d 6d 69 6e 69 63 6f  6e 25 0d 06 36 2c 20 20  |%=minicon%..6,  |
00001310  20 20 20 f2 73 65 74 43  61 72 65 74 28 77 69 6e  |   .setCaret(win|
00001320  64 6f 77 25 2c 69 63 6f  6e 25 2c 63 61 72 65 74  |dow%,icon%,caret|
00001330  69 6e 64 78 25 29 0d 06  40 3a 20 20 20 c9 20 26  |indx%)..@:   . &|
00001340  31 38 46 3a 69 63 6f 6e  25 3d 69 63 6f 6e 25 2d  |18F:icon%=icon%-|
00001350  31 3a e7 69 63 6f 6e 25  3c 6d 69 6e 69 63 6f 6e  |1:.icon%<minicon|
00001360  25 20 69 63 6f 6e 25 3d  6d 61 78 69 63 6f 6e 25  |% icon%=maxicon%|
00001370  0d 06 4a 2c 20 20 20 20  20 f2 73 65 74 43 61 72  |..J,     .setCar|
00001380  65 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |et(window%,icon%|
00001390  2c 63 61 72 65 74 69 6e  64 78 25 29 0d 06 54 16  |,caretindx%)..T.|
000013a0  20 20 20 7f 20 c8 99 20  73 5f 6b 65 79 25 2c 63  |   . .. s_key%,c|
000013b0  68 25 0d 06 5e 06 20 cb  0d 06 68 05 e1 0d 06 72  |h%..^. ...h....r|
000013c0  04 0d 06 7c 28 dd f2 73  65 74 43 61 72 65 74 28  |...|(..setCaret(|
000013d0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 63 61  |window%,icon%,ca|
000013e0  72 65 74 69 6e 64 78 25  29 0d 06 86 0e 20 ea 20  |retindx%).... . |
000013f0  6c 65 6e 67 74 68 25 0d  06 90 2e 20 69 63 6f 6e  |length%.... icon|
00001400  49 6e 66 6f 25 21 30 20  3d 20 77 69 6e 64 6f 77  |Info%!0 = window|
00001410  25 3a 69 63 6f 6e 49 6e  66 6f 25 21 34 20 3d 20  |%:iconInfo%!4 = |
00001420  69 63 6f 6e 25 0d 06 9a  1e 20 c8 99 20 73 5f 67  |icon%.... .. s_g|
00001430  65 74 69 69 6e 66 6f 25  2c 2c 69 63 6f 6e 49 6e  |etiinfo%,,iconIn|
00001440  66 6f 25 0d 06 a4 26 20  6c 65 6e 67 74 68 25 3d  |fo%...& length%=|
00001450  a4 62 75 66 66 4c 65 6e  67 74 68 28 69 63 6f 6e  |.buffLength(icon|
00001460  49 6e 66 6f 25 21 32 38  29 0d 06 ae 2c 20 e7 20  |Info%!28)..., . |
00001470  63 61 72 65 74 69 6e 64  78 25 3e 6c 65 6e 67 74  |caretindx%>lengt|
00001480  68 25 20 63 61 72 65 74  69 6e 64 78 25 3d 6c 65  |h% caretindx%=le|
00001490  6e 67 74 68 25 0d 06 b8  33 20 c8 99 73 5f 73 65  |ngth%...3 ..s_se|
000014a0  74 63 61 72 65 74 25 2c  77 69 6e 64 6f 77 25 2c  |tcaret%,window%,|
000014b0  69 63 6f 6e 25 2c 30 2c  2d 31 2c 2d 31 2c 63 61  |icon%,0,-1,-1,ca|
000014c0  72 65 74 69 6e 64 78 25  0d 06 c2 05 e1 0d 06 cc  |retindx%........|
000014d0  04 0d 06 d6 12 dd f2 73  65 74 54 79 70 65 28 6f  |.......setType(o|
000014e0  66 24 29 0d 06 e0 12 20  ff 22 53 74 61 6d 70 20  |f$).... ."Stamp |
000014f0  22 2b 6f 66 24 0d 06 ea  1c 20 ff 22 53 65 74 74  |"+of$.... ."Sett|
00001500  79 70 65 20 22 2b 6f 66  24 2b 22 20 44 61 74 61  |ype "+of$+" Data|
00001510  22 0d 06 f4 05 e1 0d 06  fe 04 0d 07 08 0a dd f2  |"...............|
00001520  6d 61 69 6c 0d 07 12 08  ea 20 50 25 0d 07 1c 23  |mail..... P%...#|
00001530  72 65 6d 6f 76 65 25 3d  b9 3a f2 72 65 67 69 73  |remove%=.:.regis|
00001540  74 65 72 43 68 6f 69 63  65 73 28 a3 2c a3 29 0d  |terChoices(.,.).|
00001550  07 26 1c 74 6f 6e 61 6d  65 24 3d a4 72 74 6f 7a  |.&.toname$=.rtoz|
00001560  28 73 65 6e 64 25 28 74  6f 29 29 0d 07 30 18 63  |(send%(to))..0.c|
00001570  63 24 3d a4 72 74 6f 7a  28 73 65 6e 64 25 28 63  |c$=.rtoz(send%(c|
00001580  63 29 29 0d 07 3a 22 73  75 62 6a 65 63 74 24 3d  |c))..:"subject$=|
00001590  a4 72 74 6f 7a 28 73 65  6e 64 25 28 73 75 62 6a  |.rtoz(send%(subj|
000015a0  65 63 74 29 29 0d 07 44  3f 64 75 6d 6d 79 25 3d  |ect))..D?dummy%=|
000015b0  a4 74 6f 43 74 72 6c 28  73 65 6e 64 25 28 66 72  |.toCtrl(send%(fr|
000015c0  6f 6d 29 2c 62 75 66 66  65 72 25 29 3a 66 72 6f  |om),buffer%):fro|
000015d0  6d 6e 61 6d 24 3d a4 72  74 6f 7a 28 62 75 66 66  |mnam$=.rtoz(buff|
000015e0  65 72 25 29 0d 07 4e 1f  66 69 6c 65 6e 61 6d 24  |er%)..N.filenam$|
000015f0  3d a4 72 74 6f 7a 28 73  65 6e 64 25 28 66 69 6c  |=.rtoz(send%(fil|
00001600  65 29 29 0d 07 58 27 e7  a9 28 74 6f 6e 61 6d 65  |e))..X'..(toname|
00001610  24 29 2b a9 28 63 63 24  29 3c 31 20 ef 37 3a 72  |$)+.(cc$)<1 .7:r|
00001620  65 6d 6f 76 65 25 3d a3  3a e1 0d 07 62 23 66 25  |emove%=.:...b#f%|
00001630  3d 30 3a 68 25 3d 30 3a  ee 85 20 ea 20 d9 23 66  |=0:h%=0:.. . .#f|
00001640  25 3a f2 65 72 72 6f 72  62 6f 78 3a e1 0d 07 6c  |%:.errorbox:...l|
00001650  2e e7 97 66 69 6c 65 6e  61 6d 24 3d 97 22 3c 22  |...filenam$=."<"|
00001660  8c 20 66 25 3d 8e 73 63  72 61 70 24 20 8b 20 66  |. f%=.scrap$ . f|
00001670  25 3d 8e 66 69 6c 65 6e  61 6d 24 0d 07 76 18 e7  |%=.filenam$..v..|
00001680  66 25 3d 30 20 ef 37 3a  72 65 6d 6f 76 65 25 3d  |f%=0 .7:remove%=|
00001690  a3 3a e1 0d 07 80 05 cd  0d 07 8a 07 ea 20 85 0d  |.:........... ..|
000016a0  07 94 0a 6d 61 69 6c 3d  30 0d 07 9e 21 6d 61 69  |...mail=0...!mai|
000016b0  6c 24 3d 66 6e 61 6d 65  24 2b 22 24 2e 4d 61 69  |l$=fname$+"$.Mai|
000016c0  6c 2e 50 6f 73 74 42 6f  78 22 0d 07 a8 1b c8 99  |l.PostBox"......|
000016d0  20 73 5f 66 69 6c 65 25  2c 35 2c 6d 61 69 6c 24  | s_file%,5,mail$|
000016e0  20 b8 20 72 30 0d 07 b2  0c e7 20 72 30 3d 32 20  | . r0..... r0=2 |
000016f0  8c 0d 07 bc 16 20 20 62  6f 78 25 3d 2d 31 3a f5  |.....  box%=-1:.|
00001700  62 6f 78 25 2b 3d 31 0d  07 c6 3d 20 20 20 20 ee  |box%+=1...=    .|
00001710  85 20 ea 20 fd 20 62 6f  78 25 3e 39 39 3a f7 20  |. . . box%>99:. |
00001720  85 3a d9 23 66 25 3a d9  23 68 25 3a f2 72 65 70  |.:.#f%:.#h%:.rep|
00001730  6f 72 74 28 32 30 30 31  2c 22 4d 61 69 6c 45 34  |ort(2001,"MailE4|
00001740  22 29 3a e1 0d 07 d0 43  20 20 20 20 62 6e 61 6d  |"):....C    bnam|
00001750  65 24 3d 6d 61 69 6c 24  2b 22 2e 22 2b c2 c3 28  |e$=mail$+"."+..(|
00001760  62 6f 78 25 2b 31 30 30  30 30 29 2c 32 29 3a c8  |box%+10000),2):.|
00001770  99 20 73 5f 66 69 6c 65  25 2c 35 2c 62 6e 61 6d  |. s_file%,5,bnam|
00001780  65 24 20 b8 20 72 30 0d  07 da 3b 20 20 20 20 68  |e$ . r0...;    h|
00001790  25 3d 30 3a e7 20 72 30  3d 31 20 8c 20 68 25 3d  |%=0:. r0=1 . h%=|
000017a0  ad 28 62 6e 61 6d 65 24  29 3a e7 68 25 3e 30 20  |.(bname$):.h%>0 |
000017b0  e7 a2 23 68 25 3c 3e 30  20 d9 23 68 25 3a 68 25  |..#h%<>0 .#h%:h%|
000017c0  3d 30 0d 07 e4 1d 20 20  fd 68 25 3c 3e 30 20 84  |=0....  .h%<>0 .|
000017d0  20 62 6f 78 25 3e 39 39  20 84 20 72 30 3d 30 0d  | box%>99 . r0=0.|
000017e0  07 ee 2d 20 20 e7 68 25  3d 30 20 f7 20 85 3a d9  |..-  .h%=0 . .:.|
000017f0  23 66 25 3a f2 72 65 70  6f 72 74 28 32 30 30 31  |#f%:.report(2001|
00001800  2c 22 4d 61 69 6c 45 35  22 29 3a e1 0d 07 f8 0c  |,"MailE5"):.....|
00001810  20 20 6d 61 69 6c 3d 33  0d 08 02 05 cd 0d 08 0c  |  mail=3........|
00001820  0f e7 20 6d 61 69 6c 3c  3e 33 20 8c 0d 08 16 14  |.. mail<>3 .....|
00001830  20 20 e7 20 28 6e 66 73  66 6c 61 67 25 29 20 8c  |  . (nfsflag%) .|
00001840  0d 08 20 20 20 20 20 20  6d 61 69 6c 24 3d 6e 66  |..      mail$=nf|
00001850  73 6e 61 6d 65 24 2b 22  50 65 6e 64 69 6e 67 22  |sname$+"Pending"|
00001860  0d 08 2a 1f 20 20 20 20  c8 99 20 73 5f 66 69 6c  |..*.    .. s_fil|
00001870  65 25 2c 35 2c 6d 61 69  6c 24 20 b8 20 72 30 0d  |e%,5,mail$ . r0.|
00001880  08 34 33 20 20 20 20 e7  20 72 30 3c 3e 32 20 8c  |.43    . r0<>2 .|
00001890  20 f7 20 85 3a d9 23 66  25 3a f2 72 65 70 6f 72  | . .:.#f%:.repor|
000018a0  74 28 32 30 30 32 2c 22  4d 61 69 6c 45 45 22 29  |t(2002,"MailEE")|
000018b0  3a e1 0d 08 3e 19 20 20  20 20 c8 99 20 22 48 6f  |:...>.    .. "Ho|
000018c0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 08 48 15 20  |urglass_On"..H. |
000018d0  20 20 20 67 75 61 72 64  63 6f 75 6e 74 25 3d 30  |   guardcount%=0|
000018e0  0d 08 52 09 20 20 20 20  f5 0d 08 5c 45 20 20 20  |..R.    ...\E   |
000018f0  20 20 20 c8 99 20 73 5f  78 66 69 6c 65 25 2c 31  |   .. s_xfile%,1|
00001900  31 2c 6d 61 69 6c 67 75  61 72 64 24 2c 26 46 46  |1,mailguard$,&FF|
00001910  46 2c 30 2c 30 2c 32 20  b8 20 72 30 2c 72 31 2c  |F,0,0,2 . r0,r1,|
00001920  72 32 2c 72 33 2c 72 34  2c 72 35 3b 50 25 0d 08  |r2,r3,r4,r5;P%..|
00001930  66 14 20 20 20 20 20 20  e7 20 50 25 20 80 20 31  |f.      . P% . 1|
00001940  20 8c 0d 08 70 24 20 20  20 20 20 20 20 20 f2 64  | ...p$        .d|
00001950  65 6c 61 79 28 31 29 3a  67 75 61 72 64 63 6f 75  |elay(1):guardcou|
00001960  6e 74 25 2b 3d 31 0d 08  7a 0b 20 20 20 20 20 20  |nt%+=1..z.      |
00001970  cc 0d 08 84 19 20 20 20  20 20 20 20 20 67 75 61  |.....        gua|
00001980  72 64 63 6f 75 6e 74 25  3d 30 0d 08 8e 0b 20 20  |rdcount%=0....  |
00001990  20 20 20 20 cd 0d 08 98  27 20 20 20 20 fd 20 67  |    ....'    . g|
000019a0  75 61 72 64 63 6f 75 6e  74 25 3d 30 20 84 20 67  |uardcount%=0 . g|
000019b0  75 61 72 64 63 6f 75 6e  74 25 3d 35 0d 08 a2 4e  |uardcount%=5...N|
000019c0  20 20 20 20 e7 20 67 75  61 72 64 63 6f 75 6e 74  |    . guardcount|
000019d0  25 3d 35 20 8c 20 f7 20  85 3a d9 23 66 25 3a c8  |%=5 . . .:.#f%:.|
000019e0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
000019f0  22 3a f2 72 65 70 6f 72  74 28 32 30 30 31 2c 22  |":.report(2001,"|
00001a00  4d 61 69 6c 45 47 22 29  3a e1 0d 08 ac 0c 20 20  |MailEG"):.....  |
00001a10  20 20 68 25 3d 30 0d 08  b6 18 20 20 20 20 62 6f  |  h%=0....    bo|
00001a20  78 25 3d 2d 31 3a f5 62  6f 78 25 2b 3d 31 0d 08  |x%=-1:.box%+=1..|
00001a30  c0 6d 20 20 20 20 20 20  ee 85 20 ea 20 fd 20 62  |.m      .. . . b|
00001a40  6f 78 25 3e 39 3a f7 20  85 3a d9 23 66 25 3a d9  |ox%>9:. .:.#f%:.|
00001a50  23 68 25 3a f2 72 65 6d  6f 76 65 47 75 61 72 64  |#h%:.removeGuard|
00001a60  3a f2 72 65 70 28 32 30  30 32 2c 20 a4 67 65 74  |:.rep(2002, .get|
00001a70  5f 6d 65 73 73 61 67 65  28 22 4d 61 69 6c 45 43  |_message("MailEC|
00001a80  22 29 2b 22 2c 22 2b 6d  61 69 6c 71 24 2b 22 2c  |")+","+mailq$+",|
00001a90  22 2b 6d 61 69 6c 74 24  29 3a e1 0d 08 ca 2c 20  |"+mailt$):...., |
00001aa0  20 20 20 20 20 6d 61 69  6c 71 24 3d 6d 61 69 6c  |     mailq$=mail|
00001ab0  24 2b 22 2e 22 2b c2 c3  28 62 6f 78 25 2b 31 30  |$+"."+..(box%+10|
00001ac0  30 30 30 29 2c 32 29 0d  08 d4 24 20 20 20 20 20  |000),2)...$     |
00001ad0  20 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 35 2c  | .. "OS_File",5,|
00001ae0  6d 61 69 6c 71 24 20 b8  20 72 30 0d 08 de 12 20  |mailq$ . r0.... |
00001af0  20 20 20 20 20 e7 20 72  30 3d 30 20 8c 0d 08 e8  |     . r0=0 ....|
00001b00  18 20 20 20 20 20 20 20  20 68 25 3d ae 28 6d 61  |.        h%=.(ma|
00001b10  69 6c 74 24 29 0d 08 f2  24 20 20 20 20 20 20 20  |ilt$)...$       |
00001b20  20 e7 68 25 3e 30 20 e7  a2 23 68 25 3c 3e 30 20  | .h%>0 ..#h%<>0 |
00001b30  d9 23 68 25 3a 68 25 3d  30 0d 08 fc 0b 20 20 20  |.#h%:h%=0....   |
00001b40  20 20 20 cd 0d 09 06 17  20 20 20 20 fd 68 25 3c  |   .....    .h%<|
00001b50  3e 30 20 84 20 62 6f 78  25 3e 39 0d 09 10 3c 20  |>0 . box%>9...< |
00001b60  20 20 20 e7 68 25 3d 30  20 f7 20 85 3a d9 23 66  |   .h%=0 . .:.#f|
00001b70  25 3a f2 72 65 6d 6f 76  65 47 75 61 72 64 3a f2  |%:.removeGuard:.|
00001b80  72 65 70 6f 72 74 28 32  30 30 32 2c 22 4d 61 69  |report(2002,"Mai|
00001b90  6c 45 44 22 29 3a e1 0d  09 1a 18 20 20 20 20 f2  |lED"):.....    .|
00001ba0  73 65 74 54 79 70 65 28  6d 61 69 6c 74 24 29 0d  |setType(mailt$).|
00001bb0  09 24 0e 20 20 20 20 6d  61 69 6c 3d 31 0d 09 2e  |.$.    mail=1...|
00001bc0  07 20 20 cc 0d 09 38 30  20 20 20 20 6d 61 69 6c  |.  ...80    mail|
00001bd0  24 3d 66 6e 61 6d 65 24  2b 22 26 2e 22 2b 74 6f  |$=fname$+"&."+to|
00001be0  6e 61 6d 65 24 2b 22 2e  4d 61 69 6c 2e 49 6e 74  |name$+".Mail.Int|
00001bf0  72 61 79 22 0d 09 42 5c  20 20 20 20 ee 85 20 ea  |ray"..B\    .. .|
00001c00  20 f7 20 85 3a d9 23 66  25 3a d9 23 68 25 3a f2  | . .:.#f%:.#h%:.|
00001c10  72 65 70 28 32 30 30 32  2c 20 a4 67 65 74 5f 6d  |rep(2002, .get_m|
00001c20  65 73 73 61 67 65 28 22  4d 61 69 6c 45 36 22 29  |essage("MailE6")|
00001c30  2b 6d 61 69 6c 24 2b a4  67 65 74 5f 6d 65 73 73  |+mail$+.get_mess|
00001c40  61 67 65 28 22 4d 61 69  6c 45 37 22 29 29 3a e1  |age("MailE7")):.|
00001c50  0d 09 4c 11 20 20 20 20  68 25 3d ad 6d 61 69 6c  |..L.    h%=.mail|
00001c60  24 0d 09 56 2d 20 20 20  20 e7 68 25 3d 30 20 8c  |$..V-    .h%=0 .|
00001c70  20 d9 23 66 25 3a f2 72  65 70 6f 72 74 28 32 30  | .#f%:.report(20|
00001c80  30 32 2c 22 4d 61 69 6c  45 38 22 29 3a e1 0d 09  |02,"MailE8"):...|
00001c90  60 11 20 20 20 20 cf 23  68 25 3d a2 23 68 25 0d  |`.    .#h%=.#h%.|
00001ca0  09 6a 0e 20 20 20 20 6d  61 69 6c 3d 30 0d 09 74  |.j.    mail=0..t|
00001cb0  07 20 20 cd 0d 09 7e 05  cd 0d 09 88 2f ee 85 20  |.  ...~...../.. |
00001cc0  ea 20 f7 20 85 3a d9 23  66 25 3a d9 23 68 25 3a  |. . .:.#f%:.#h%:|
00001cd0  f2 72 65 6d 6f 76 65 47  75 61 72 64 3a f2 65 72  |.removeGuard:.er|
00001ce0  72 6f 72 62 6f 78 3a e1  0d 09 92 0e e7 20 6d 61  |rorbox:...... ma|
00001cf0  69 6c 3d 31 20 8c 0d 09  9c 23 20 20 e7 a9 74 6f  |il=1 ....#  ..to|
00001d00  6e 61 6d 65 24 20 d5 23  68 25 2c 22 54 6f 3a 20  |name$ .#h%,"To: |
00001d10  22 2b 74 6f 6e 61 6d 65  24 0d 09 a6 1b 20 20 e7  |"+toname$....  .|
00001d20  a9 63 63 24 20 d5 23 68  25 2c 22 43 43 3a 20 22  |.cc$ .#h%,"CC: "|
00001d30  2b 63 63 24 0d 09 b0 05  cd 0d 09 ba 0e e7 20 6d  |+cc$.......... m|
00001d40  61 69 6c 3d 33 20 8c 0d  09 c4 1f 20 20 d5 23 68  |ail=3 .....  .#h|
00001d50  25 2c bd 31 30 2b 22 53  6f 6e 4f 66 45 63 6f 6d  |%,.10+"SonOfEcom|
00001d60  61 69 6c 20 33 22 0d 09  ce 2b 20 20 e7 a9 74 6f  |ail 3"...+  ..to|
00001d70  6e 61 6d 65 24 20 f2 70  75 74 4d 32 28 68 25 2c  |name$ .putM2(h%,|
00001d80  22 4d 61 69 6c 53 31 22  2c 74 6f 6e 61 6d 65 24  |"MailS1",toname$|
00001d90  29 0d 09 d8 23 20 20 e7  a9 63 63 24 20 f2 70 75  |)...#  ..cc$ .pu|
00001da0  74 4d 32 28 68 25 2c 22  4d 61 69 6c 53 32 22 2c  |tM2(h%,"MailS2",|
00001db0  63 63 24 29 0d 09 e2 05  cd 0d 09 ec 2b e7 a9 73  |cc$)........+..s|
00001dc0  75 62 6a 65 63 74 24 20  f2 70 75 74 4d 32 28 68  |ubject$ .putM2(h|
00001dd0  25 2c 22 4d 61 69 6c 53  33 22 2c 73 75 62 6a 65  |%,"MailS3",subje|
00001de0  63 74 24 29 0d 09 f6 28  6d 74 69 6d 65 24 3d 91  |ct$)...(mtime$=.|
00001df0  24 3a f2 70 75 74 4d 32  28 68 25 2c 22 4d 61 69  |$:.putM2(h%,"Mai|
00001e00  6c 53 34 22 2c 6d 74 69  6d 65 24 29 0d 0a 00 20  |lS4",mtime$)... |
00001e10  f2 70 75 74 4d 32 28 68  25 2c 22 4d 61 69 6c 53  |.putM2(h%,"MailS|
00001e20  35 22 2c 66 72 6f 6d 6e  61 6d 24 29 0d 0a 0a 0a  |5",fromnam$)....|
00001e30  e7 61 63 6b 20 8c 0d 0a  14 2e 20 20 61 24 3d 66  |.ack .....  a$=f|
00001e40  72 6f 6d 6e 61 6d 24 3a  41 25 3d a7 61 24 2c bd  |romnam$:A%=.a$,.|
00001e50  31 33 29 3a e7 41 25 20  61 24 3d c0 61 24 2c 41  |13):.A% a$=.a$,A|
00001e60  25 2d 31 29 0d 0a 1e 1c  20 20 f2 70 75 74 4d 32  |%-1)....  .putM2|
00001e70  28 68 25 2c 22 4d 61 69  6c 53 36 22 2c 61 24 29  |(h%,"MailS6",a$)|
00001e80  0d 0a 28 05 cd 0d 0a 32  0b d5 23 68 25 2c 22 22  |..(....2..#h%,""|
00001e90  0d 0a 3c 11 f2 66 63 6f  70 79 28 66 25 2c 68 25  |..<..fcopy(f%,h%|
00001ea0  29 0d 0a 46 0b d5 23 68  25 2c 22 22 0d 0a 50 14  |)..F..#h%,""..P.|
00001eb0  d9 23 68 25 3a 68 25 3d  30 3a cf 23 66 25 3d 30  |.#h%:h%=0:.#f%=0|
00001ec0  0d 0a 5a 0e e7 20 6d 61  69 6c 3d 31 20 8c 0d 0a  |..Z.. mail=1 ...|
00001ed0  64 39 20 20 ee 85 20 ea  20 f7 20 85 3a d9 23 66  |d9  .. . . .:.#f|
00001ee0  25 3a f2 72 65 6d 6f 76  65 47 75 61 72 64 3a f2  |%:.removeGuard:.|
00001ef0  72 65 70 6f 72 74 28 32  30 30 32 2c 22 4d 61 69  |report(2002,"Mai|
00001f00  6c 45 46 22 29 3a e1 0d  0a 6e 28 20 20 c8 99 20  |lEF"):...n(  .. |
00001f10  22 4f 53 5f 46 53 43 6f  6e 74 72 6f 6c 22 2c 32  |"OS_FSControl",2|
00001f20  35 2c 6d 61 69 6c 74 24  2c 6d 61 69 6c 71 24 0d  |5,mailt$,mailq$.|
00001f30  0a 78 31 20 20 ee 85 20  ea 20 f7 20 85 3a d9 23  |.x1  .. . . .:.#|
00001f40  66 25 3a d9 23 68 25 3a  f2 72 65 6d 6f 76 65 47  |f%:.#h%:.removeG|
00001f50  75 61 72 64 3a f2 65 72  72 6f 72 62 6f 78 3a e1  |uard:.errorbox:.|
00001f60  0d 0a 82 05 cd 0d 0a 8c  1d 43 25 3d a4 72 65 61  |.........C%=.rea|
00001f70  64 56 61 72 28 6c 6f 67  66 69 6c 65 2c 30 2c 2d  |dVar(logfile,0,-|
00001f80  31 29 0d 0a 96 0b e7 43  25 3c 30 20 8c 0d 0a a0  |1).....C%<0 ....|
00001f90  1a 20 20 68 25 3d ad 22  3c 4d 61 69 6c 24 4c 6f  |.  h%=."<Mail$Lo|
00001fa0  67 46 69 6c 65 3e 22 0d  0a aa 2c 20 20 e7 68 25  |gFile>"...,  .h%|
00001fb0  3d 30 20 68 25 3d ae 22  3c 4d 61 69 6c 24 4c 6f  |=0 h%=."<Mail$Lo|
00001fc0  67 46 69 6c 65 3e 22 20  8b 20 cf 23 68 25 3d a2  |gFile>" . .#h%=.|
00001fd0  23 68 25 0d 0a b4 18 20  20 d5 23 68 25 2c c4 33  |#h%....  .#h%,.3|
00001fe0  39 2c 22 2d 2b 22 29 2b  22 2d 22 0d 0a be 41 20  |9,"-+")+"-"...A |
00001ff0  20 f2 70 75 74 4d 28 68  25 2c 22 4d 61 69 6c 53  | .putM(h%,"MailS|
00002000  37 22 29 3a d5 23 68 25  2c 6d 74 69 6d 65 24 3b  |7"):.#h%,mtime$;|
00002010  3a f2 70 75 74 4d 32 28  68 25 2c 22 4d 61 69 6c  |:.putM2(h%,"Mail|
00002020  53 38 22 2c 74 6f 6e 61  6d 65 24 29 0d 0a c8 23  |S8",toname$)...#|
00002030  20 20 e7 a9 63 63 24 20  f2 70 75 74 4d 32 28 68  |  ..cc$ .putM2(h|
00002040  25 2c 22 4d 61 69 6c 53  39 22 2c 63 63 24 29 0d  |%,"MailS9",cc$).|
00002050  0a d2 2d 20 20 e7 a9 73  75 62 6a 65 63 74 24 20  |..-  ..subject$ |
00002060  f2 70 75 74 4d 32 28 68  25 2c 22 4d 61 69 6c 53  |.putM2(h%,"MailS|
00002070  41 22 2c 73 75 62 6a 65  63 74 24 29 0d 0a dc 1e  |A",subject$)....|
00002080  20 20 e7 61 63 6b 20 f2  70 75 74 4d 31 28 68 25  |  .ack .putM1(h%|
00002090  2c 22 4d 61 69 6c 53 42  22 29 0d 0a e6 58 20 20  |,"MailSB")...X  |
000020a0  e7 c0 66 69 6c 65 6e 61  6d 24 2c 31 29 3d 22 3c  |..filenam$,1)="<|
000020b0  22 20 f2 70 75 74 4d 31  28 68 25 2c 22 4d 61 69  |" .putM1(h%,"Mai|
000020c0  6c 53 43 22 29 3a f2 66  63 6f 70 79 28 66 25 2c  |lSC"):.fcopy(f%,|
000020d0  68 25 29 20 8b 20 f2 70  75 74 4d 32 28 68 25 2c  |h%) . .putM2(h%,|
000020e0  22 4d 61 69 6c 53 44 22  2c 66 69 6c 65 6e 61 6d  |"MailSD",filenam|
000020f0  24 29 0d 0a f0 1c 20 20  d5 23 68 25 2c bd 31 30  |$)....  .#h%,.10|
00002100  2b c4 33 39 2c 22 2b 2d  22 29 2b 22 2b 22 0d 0a  |+.39,"+-")+"+"..|
00002110  fa 0a 20 20 d9 23 68 25  0d 0b 04 20 20 20 f2 73  |..  .#h%...   .s|
00002120  65 74 54 79 70 65 28 22  3c 4d 61 69 6c 24 4c 6f  |etType("<Mail$Lo|
00002130  67 66 69 6c 65 3e 22 29  0d 0b 0e 05 cd 0d 0b 18  |gfile>")........|
00002140  08 d9 23 66 25 0d 0b 22  10 f2 72 65 6d 6f 76 65  |..#f%.."..remove|
00002150  47 75 61 72 64 0d 0b 2c  05 e1 0d 0b 36 04 0d 0b  |Guard..,....6...|
00002160  40 11 dd f2 72 65 6d 6f  76 65 47 75 61 72 64 0d  |@...removeGuard.|
00002170  0b 4a 12 e7 20 28 6e 66  73 66 6c 61 67 25 29 20  |.J.. (nfsflag%) |
00002180  8c 0d 0b 54 1e 20 20 c8  99 20 73 5f 78 66 69 6c  |...T.  .. s_xfil|
00002190  65 25 2c 36 2c 6d 61 69  6c 67 75 61 72 64 24 0d  |e%,6,mailguard$.|
000021a0  0b 5e 18 20 20 c8 99 20  22 48 6f 75 72 67 6c 61  |.^.  .. "Hourgla|
000021b0  73 73 5f 4f 66 66 22 0d  0b 68 05 cd 0d 0b 72 05  |ss_Off"..h....r.|
000021c0  e1 0d 0b 7c 04 0d 0b 86  0f dd f2 64 65 6c 61 79  |...|.......delay|
000021d0  28 6e 25 29 0d 0b 90 08  ea 20 78 25 0d 0b 9a 0f  |(n%)..... x%....|
000021e0  78 25 3d 91 2b 6e 25 2a  31 30 30 0d 0b a4 0d f5  |x%=.+n%*100.....|
000021f0  20 fd 20 91 3e 3d 78 25  0d 0b ae 05 e1 0d 0b b8  | . .>=x%........|
00002200  04 0d 0b c2 12 dd f2 66  63 6f 70 79 28 66 25 2c  |.......fcopy(f%,|
00002210  74 25 29 0d 0b cc 0d e7  a2 23 66 25 3d 30 20 e1  |t%)......#f%=0 .|
00002220  0d 0b d6 0e 73 74 61 72  74 25 3d 30 3a f5 0d 0b  |....start%=0:...|
00002230  e0 25 c8 99 73 5f 67 70  25 2c 34 2c 66 25 2c 62  |.%..s_gp%,4,f%,b|
00002240  75 66 66 65 72 25 2c 26  38 30 20 b8 20 2c 2c 2c  |uffer%,&80 . ,,,|
00002250  72 33 25 0d 0b ea 2a e7  72 33 25 3c 3e 26 38 30  |r3%...*.r3%<>&80|
00002260  20 c8 99 73 5f 67 70 25  2c 32 2c 74 25 2c 62 75  | ..s_gp%,2,t%,bu|
00002270  66 66 65 72 25 2c 26 38  30 2d 72 33 25 0d 0b f4  |ffer%,&80-r3%...|
00002280  13 73 74 61 72 74 25 2b  3d 26 38 30 2d 72 33 25  |.start%+=&80-r3%|
00002290  0d 0b fe 11 fd 73 74 61  72 74 25 3e 3d a2 23 66  |.....start%>=.#f|
000022a0  25 0d 0c 08 05 e1 0d 0c  12 04 0d 0c 1c 36 dd f2  |%............6..|
000022b0  63 68 65 63 6b 6d 6f 75  73 65 28 6d 6f 75 73 65  |checkmouse(mouse|
000022c0  78 25 2c 6d 6f 75 73 65  79 25 2c 62 25 2c 68 61  |x%,mousey%,b%,ha|
000022d0  6e 64 6c 65 25 2c 69 63  6f 6e 25 2c 6f 62 25 29  |ndle%,icon%,ob%)|
000022e0  0d 0c 26 0c e7 28 62 25  80 32 29 8c 0d 0c 30 12  |..&..(b%.2)...0.|
000022f0  20 20 f2 65 6e 64 44 69  61 6c 6f 67 75 65 0d 0c  |  .endDialogue..|
00002300  3a 12 20 20 c8 8e 20 68  61 6e 64 6c 65 25 20 ca  |:.  .. handle% .|
00002310  0d 0c 44 46 20 20 c9 20  2d 32 3a 20 f2 64 6f 6d  |..DF  . -2: .dom|
00002320  65 6e 75 28 31 30 31 2c  a4 67 65 74 5f 6d 65 73  |enu(101,.get_mes|
00002330  73 61 67 65 28 22 4d 61  69 6c 4d 31 22 29 2c a4  |sage("MailM1"),.|
00002340  67 65 74 5f 6d 65 73 73  61 67 65 28 22 4d 61 69  |get_message("Mai|
00002350  6c 30 31 22 29 29 0d 0c  4e 07 20 20 cb 0d 0c 58  |l01"))..N.  ...X|
00002360  05 cd 0d 0c 62 0c e7 28  62 25 80 35 29 8c 0d 0c  |....b..(b%.5)...|
00002370  6c 12 20 20 c8 8e 20 68  61 6e 64 6c 65 25 20 ca  |l.  .. handle% .|
00002380  0d 0c 76 2e 20 20 c9 20  2d 32 3a 20 f2 6d 65 6e  |..v.  . -2: .men|
00002390  75 73 65 6c 67 6f 28 a4  67 65 74 5f 6d 65 73 73  |uselgo(.get_mess|
000023a0  61 67 65 28 22 4d 61 69  6c 4d 32 22 29 29 0d 0c  |age("MailM2"))..|
000023b0  80 3b 20 20 c9 20 6d 61  69 6c 74 6f 25 3a 20 e7  |.;  . mailto%: .|
000023c0  69 63 6f 6e 25 3d 31 31  20 61 63 6b 3d ac 61 63  |icon%=11 ack=.ac|
000023d0  6b 3a f2 73 65 74 4f 70  74 28 6d 61 69 6c 74 6f  |k:.setOpt(mailto|
000023e0  25 2c 31 31 2c 61 63 6b  29 0d 0c 8a 16 20 20 c9  |%,11,ack)....  .|
000023f0  20 63 68 6f 69 63 65 73  77 69 6e 64 6f 77 25 0d  | choiceswindow%.|
00002400  0c 94 11 20 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |...   .. icon% .|
00002410  0d 0c 9e 2a 20 20 20 20  c9 20 30 3a 20 f2 72 65  |...*    . 0: .re|
00002420  67 69 73 74 65 72 43 68  6f 69 63 65 73 28 b9 2c  |gisterChoices(.,|
00002430  20 28 62 25 80 31 29 3d  31 29 0d 0c a8 37 20 20  | (b%.1)=1)...7  |
00002440  20 20 c9 20 31 3a 20 e7  20 62 25 80 31 20 8c 20  |  . 1: . b%.1 . |
00002450  f2 72 65 64 72 61 77 43  68 6f 69 63 65 73 20 8b  |.redrawChoices .|
00002460  20 c8 99 20 73 5f 63 72  6d 65 6e 75 25 2c 2c 2d  | .. s_crmenu%,,-|
00002470  31 0d 0c b2 3f 20 20 20  20 c9 20 36 3a 20 6e 65  |1...?    . 6: ne|
00002480  77 42 6f 6e 67 3d ac 6e  65 77 42 6f 6e 67 3a f2  |wBong=.newBong:.|
00002490  73 65 74 4f 70 74 28 63  68 6f 69 63 65 73 77 69  |setOpt(choiceswi|
000024a0  6e 64 6f 77 25 2c 36 2c  6e 65 77 42 6f 6e 67 29  |ndow%,6,newBong)|
000024b0  0d 0c bc 08 20 20 20 cb  0d 0c c6 07 20 20 cb 0d  |....   .....  ..|
000024c0  0c d0 05 cd 0d 0c da 05  e1 0d 0c e4 04 0d 0c ee  |................|
000024d0  0c dd f2 66 69 6e 69 73  68 0d 0c f8 13 c8 99 20  |...finish...... |
000024e0  73 5f 63 6c 6f 73 65 64  6f 77 6e 25 0d 0d 02 05  |s_closedown%....|
000024f0  e1 0d 0d 0c 04 0d 0d 16  26 dd f2 64 6f 6d 65 6e  |........&..domen|
00002500  75 28 68 61 6e 64 6c 65  25 2c 6d 65 6e 75 24 2c  |u(handle%,menu$,|
00002510  6d 65 6e 75 74 69 74 6c  65 24 29 0d 0d 20 12 6d  |menutitle$).. .m|
00002520  65 6e 75 49 74 65 6d 73  25 20 3d 20 30 0d 0d 2a  |enuItems% = 0..*|
00002530  17 6d 65 6e 75 68 61 6e  64 6c 65 25 3d 68 61 6e  |.menuhandle%=han|
00002540  64 6c 65 25 0d 0d 34 16  6d 65 6e 75 70 74 72 25  |dle%..4.menuptr%|
00002550  3d 6d 65 6e 75 64 61 74  61 25 0d 0d 3e 08 69 25  |=menudata%..>.i%|
00002560  3d 30 0d 0d 48 12 6d 65  6e 75 70 74 72 25 21 32  |=0..H.menuptr%!2|
00002570  30 3d 34 34 0d 0d 52 18  24 6d 65 6e 75 70 74 72  |0=44..R.$menuptr|
00002580  25 3d 6d 65 6e 75 74 69  74 6c 65 24 0d 0d 5c 4a  |%=menutitle$..\J|
00002590  6d 65 6e 75 70 74 72 25  3f 31 32 3d 60 74 66 63  |menuptr%?12=`tfc|
000025a0  6f 6c 3a 6d 65 6e 75 70  74 72 25 3f 31 33 3d 32  |ol:menuptr%?13=2|
000025b0  3a 6d 65 6e 75 70 74 72  25 3f 31 34 3d 60 77 66  |:menuptr%?14=`wf|
000025c0  63 6f 6c 3a 6d 65 6e 75  70 74 72 25 3f 31 35 3d  |col:menuptr%?15=|
000025d0  60 77 62 63 6f 6c 0d 0d  66 24 6d 65 6e 75 70 74  |`wbcol..f$menupt|
000025e0  72 25 21 31 36 3d 32 33  30 2d 32 34 3a 6d 65 6e  |r%!16=230-24:men|
000025f0  75 70 74 72 25 21 32 34  3d 30 0d 0d 70 10 6d 65  |uptr%!24=0..p.me|
00002600  6e 75 70 74 72 25 2b 3d  32 38 0d 0d 7a 3f f5 20  |nuptr%+=28..z?. |
00002610  69 74 65 6d 24 3d a4 70  61 72 28 22 2c 22 29 3a  |item$=.par(","):|
00002620  f2 6d 65 6e 75 69 74 65  6d 28 69 74 65 6d 24 29  |.menuitem(item$)|
00002630  3a 6d 65 6e 75 49 74 65  6d 73 25 2b 3d 31 3a fd  |:menuItems%+=1:.|
00002640  20 69 74 65 6d 24 3d 22  22 0d 0d 84 23 6d 65 6e  | item$=""...#men|
00002650  75 70 74 72 25 21 2d 32  34 3d 28 6d 65 6e 75 70  |uptr%!-24=(menup|
00002660  74 72 25 21 2d 32 34 29  84 26 38 30 0d 0d 8e 3b  |tr%!-24).&80...;|
00002670  c8 99 20 73 5f 63 72 6d  65 6e 75 25 2c 2c 6d 65  |.. s_crmenu%,,me|
00002680  6e 75 64 61 74 61 25 2c  6d 6f 75 73 65 78 25 2d  |nudata%,mousex%-|
00002690  36 34 2c 39 36 2b 28 6d  65 6e 75 49 74 65 6d 73  |64,96+(menuItems|
000026a0  25 2d 31 29 2a 34 34 0d  0d 98 05 e1 0d 0d a2 04  |%-1)*44.........|
000026b0  0d 0d ac 4f dd f2 6d 65  6e 75 69 74 65 6d 28 74  |...O..menuitem(t|
000026c0  65 78 74 24 29 20 3a f4  20 4c 65 61 64 69 6e 67  |ext$) :. Leading|
000026d0  20 63 68 61 72 61 63 74  65 72 20 6f 66 20 3e 20  | character of > |
000026e0  6f 72 20 3c 20 68 61 73  20 73 70 65 63 69 61 6c  |or < has special|
000026f0  20 69 6e 74 65 72 70 72  65 74 61 74 69 6f 6e 0d  | interpretation.|
00002700  0d b6 0b ea 20 6c 65 66  74 24 0d 0d c0 10 e7 20  |.... left$..... |
00002710  74 65 78 74 24 3d 22 22  20 e1 0d 0d ca 0f 21 6d  |text$="" .....!m|
00002720  65 6e 75 70 74 72 25 3d  30 0d 0d d4 23 6c 65 66  |enuptr%=0...#lef|
00002730  74 24 20 3d 20 c0 74 65  78 74 24 2c 31 29 3a 6d  |t$ = .text$,1):m|
00002740  65 6e 75 70 74 72 25 21  34 3d 2d 31 0d 0d de 28  |enuptr%!4=-1...(|
00002750  e7 20 6c 65 66 74 24 3d  22 3e 22 20 8c 20 6d 65  |. left$=">" . me|
00002760  6e 75 70 74 72 25 21 34  3d 69 6e 66 6f 77 69 6e  |nuptr%!4=infowin|
00002770  64 6f 77 25 0d 0d e8 37  e7 20 6c 65 66 74 24 3d  |dow%...7. left$=|
00002780  22 3c 22 20 8c 20 6d 65  6e 75 70 74 72 25 21 34  |"<" . menuptr%!4|
00002790  3d 63 68 6f 69 63 65 73  77 69 6e 64 6f 77 25 3a  |=choiceswindow%:|
000027a0  21 6d 65 6e 75 70 74 72  25 3d 38 0d 0d f2 18 6d  |!menuptr%=8....m|
000027b0  65 6e 75 70 74 72 25 21  38 3d 26 30 37 30 30 30  |enuptr%!8=&07000|
000027c0  30 32 31 0d 0d fc 4d e7  20 6c 65 66 74 24 3d 22  |021...M. left$="|
000027d0  3e 22 20 84 20 6c 65 66  74 24 3d 22 3c 22 20 8c  |>" . left$="<" .|
000027e0  20 24 28 6d 65 6e 75 70  74 72 25 2b 31 32 29 3d  | $(menuptr%+12)=|
000027f0  c1 74 65 78 74 24 2c 32  29 20 8b 20 24 28 6d 65  |.text$,2) . $(me|
00002800  6e 75 70 74 72 25 2b 31  32 29 3d 74 65 78 74 24  |nuptr%+12)=text$|
00002810  0d 0e 06 10 6d 65 6e 75  70 74 72 25 2b 3d 32 34  |....menuptr%+=24|
00002820  0d 0e 10 05 e1 0d 0e 1a  04 0d 0e 24 0f dd a4 70  |...........$...p|
00002830  61 72 28 73 65 70 24 29  0d 0e 2e 25 69 31 25 3d  |ar(sep$)...%i1%=|
00002840  69 25 2b 31 3a 69 25 3d  a7 6d 65 6e 75 24 2b 73  |i%+1:i%=.menu$+s|
00002850  65 70 24 2c 73 65 70 24  2c 69 31 25 29 0d 0e 38  |ep$,sep$,i1%)..8|
00002860  17 3d c1 6d 65 6e 75 24  2c 69 31 25 2c 69 25 2d  |.=.menu$,i1%,i%-|
00002870  69 31 25 29 0d 0e 42 04  0d 0e 4c 14 dd a4 63 68  |i1%)..B...L...ch|
00002880  65 63 6b 55 50 28 66 69  6c 65 25 29 0d 0e 56 10  |eckUP(file%)..V.|
00002890  20 ea 20 78 25 2c 70 25  3a ea 20 85 0d 0e 60 45  | . x%,p%:. ...`E|
000028a0  20 ee 85 20 ea 20 d9 23  66 69 6c 65 25 3a e7 9f  | .. . .#file%:..|
000028b0  3d 31 30 34 33 20 8c 20  f2 72 65 70 6f 72 74 28  |=1043 . .report(|
000028c0  32 30 30 37 2c 20 22 4d  61 69 6c 45 39 22 29 3a  |2007, "MailE9"):|
000028d0  3d a3 20 8b 20 f2 65 72  72 6f 72 62 6f 78 3a 3d  |=. . .errorbox:=|
000028e0  a3 0d 0e 6a 25 20 70 25  3d 8f 23 66 69 6c 65 25  |...j% p%=.#file%|
000028f0  3a 78 25 3d 9a 23 66 69  6c 65 25 3a cf 23 66 69  |:x%=.#file%:.#fi|
00002900  6c 65 25 3d 70 25 0d 0e  74 06 3d b9 0d 0e 7e 04  |le%=p%..t.=...~.|
00002910  0d 0e 88 18 dd f2 6d 65  6e 75 73 65 6c 65 63 74  |......menuselect|
00002920  28 6d 65 6e 75 73 25 29  0d 0e 92 08 ea 20 50 25  |(menus%)..... P%|
00002930  0d 0e 9c 32 c8 99 20 73  5f 64 63 6d 65 6e 75 25  |...2.. s_dcmenu%|
00002940  2c 2c 6d 65 6e 75 64 61  74 61 25 2c 6d 65 6e 75  |,,menudata%,menu|
00002950  73 25 2c c4 32 30 30 2c  22 20 22 29 b8 2c 2c 2c  |s%,.200," ").,,,|
00002960  61 24 0d 0e a6 0f e7 20  61 24 3d 22 22 20 8c 20  |a$..... a$="" . |
00002970  e1 0d 0e b0 23 dd f2 6d  65 6e 75 73 65 6c 67 6f  |....#..menuselgo|
00002980  28 61 24 29 20 6d 65 6e  75 68 61 6e 64 6c 65 25  |(a$) menuhandle%|
00002990  3d 31 30 31 0d 0e ba 14  c8 8e 20 6d 65 6e 75 68  |=101...... menuh|
000029a0  61 6e 64 6c 65 25 20 ca  0d 0e c4 30 c9 20 31 30  |andle% ....0. 10|
000029b0  31 3a 20 e7 20 61 24 3d  a4 67 65 74 5f 6d 65 73  |1: . a$=.get_mes|
000029c0  73 61 67 65 28 22 4d 61  69 6c 4d 33 22 29 3a f2  |sage("MailM3"):.|
000029d0  66 69 6e 69 73 68 3a e0  0d 0e ce 23 20 20 e7 20  |finish:....#  . |
000029e0  61 24 3d a4 67 65 74 5f  6d 65 73 73 61 67 65 28  |a$=.get_message(|
000029f0  22 4d 61 69 6c 4d 32 22  29 20 8c 0d 0e d8 16 20  |"MailM2") ..... |
00002a00  20 20 20 e7 20 28 6e 66  73 66 6c 61 67 25 29 20  |   . (nfsflag%) |
00002a10  8c 0d 0e e2 23 20 20 20  20 20 20 c8 99 20 73 5f  |....#      .. s_|
00002a20  78 66 69 6c 65 25 2c 35  2c 6d 6e 61 6d 65 24 20  |xfile%,5,mname$ |
00002a30  b8 20 72 30 0d 0e ec 12  20 20 20 20 20 20 e7 20  |. r0....      . |
00002a40  72 30 3d 30 20 e1 0d 0e  f6 17 20 20 20 20 20 20  |r0=0 .....      |
00002a50  67 75 61 72 64 63 6f 75  6e 74 25 3d 30 0d 0f 00  |guardcount%=0...|
00002a60  1b 20 20 20 20 20 20 c8  99 20 22 48 6f 75 72 67  |.      .. "Hourg|
00002a70  6c 61 73 73 5f 4f 6e 22  0d 0f 0a 0b 20 20 20 20  |lass_On"....    |
00002a80  20 20 f5 0d 0f 14 47 20  20 20 20 20 20 20 20 c8  |  ....G        .|
00002a90  99 20 73 5f 78 66 69 6c  65 25 2c 31 31 2c 6d 61  |. s_xfile%,11,ma|
00002aa0  69 6c 67 75 61 72 64 24  2c 26 46 46 46 2c 30 2c  |ilguard$,&FFF,0,|
00002ab0  30 2c 32 20 b8 20 72 30  2c 72 31 2c 72 32 2c 72  |0,2 . r0,r1,r2,r|
00002ac0  33 2c 72 34 2c 72 35 3b  50 25 0d 0f 1e 16 20 20  |3,r4,r5;P%....  |
00002ad0  20 20 20 20 20 20 e7 20  50 25 20 80 20 31 20 8c  |      . P% . 1 .|
00002ae0  0d 0f 28 26 20 20 20 20  20 20 20 20 20 20 f2 64  |..(&          .d|
00002af0  65 6c 61 79 28 31 29 3a  67 75 61 72 64 63 6f 75  |elay(1):guardcou|
00002b00  6e 74 25 2b 3d 31 0d 0f  32 0d 20 20 20 20 20 20  |nt%+=1..2.      |
00002b10  20 20 cc 0d 0f 3c 1b 20  20 20 20 20 20 20 20 20  |  ...<.         |
00002b20  20 67 75 61 72 64 63 6f  75 6e 74 25 3d 30 0d 0f  | guardcount%=0..|
00002b30  46 0d 20 20 20 20 20 20  20 20 cd 0d 0f 50 29 20  |F.        ...P) |
00002b40  20 20 20 20 20 fd 20 67  75 61 72 64 63 6f 75 6e  |     . guardcoun|
00002b50  74 25 3d 30 20 84 20 67  75 61 72 64 63 6f 75 6e  |t%=0 . guardcoun|
00002b60  74 25 3d 35 0d 0f 5a 47  20 20 20 20 20 20 e7 20  |t%=5..ZG      . |
00002b70  67 75 61 72 64 63 6f 75  6e 74 25 3d 35 20 8c 20  |guardcount%=5 . |
00002b80  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00002b90  66 22 3a f2 72 65 70 6f  72 74 28 32 30 30 31 2c  |f":.report(2001,|
00002ba0  22 4d 61 69 6c 45 48 22  29 3a e1 0d 0f 64 09 20  |"MailEH"):...d. |
00002bb0  20 20 20 cd 0d 0f 6e 2b  20 20 20 20 41 25 3d 30  |   ...n+    A%=0|
00002bc0  3a 42 25 3d 30 3a 43 25  3d a4 72 65 61 64 56 61  |:B%=0:C%=.readVa|
00002bd0  72 28 6c 6f 67 66 69 6c  65 2c 30 2c 2d 31 29 0d  |r(logfile,0,-1).|
00002be0  0f 78 04 0d 0f 82 2e 20  20 20 20 f4 20 54 72 79  |.x.....    . Try|
00002bf0  20 26 20 63 69 72 63 75  6d 76 65 6e 74 20 4e 46  | & circumvent NF|
00002c00  53 20 63 61 63 68 69 6e  67 20 70 72 6f 62 6c 65  |S caching proble|
00002c10  6d 0d 0f 8c 16 20 20 20  20 e7 20 28 6e 66 73 66  |m....    . (nfsf|
00002c20  6c 61 67 25 29 20 8c 0d  0f 96 3f 20 20 20 20 20  |lag%) ....?     |
00002c30  20 20 20 c8 99 20 22 58  4f 53 5f 46 69 6c 65 22  |   .. "XOS_File"|
00002c40  2c 20 35 2c 20 6d 6e 61  6d 65 24 20 b8 20 74 79  |, 5, mname$ . ty|
00002c50  70 65 25 2c 2c 2c 2c 2c  61 74 74 72 25 20 3b 20  |pe%,,,,,attr% ; |
00002c60  66 6c 61 67 73 25 0d 0f  a0 45 20 20 20 20 20 20  |flags%...E      |
00002c70  20 20 e7 20 74 79 70 65  25 20 3d 20 30 20 8c 20  |  . type% = 0 . |
00002c80  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00002c90  66 22 3a f2 72 65 70 6f  72 74 28 32 30 30 31 2c  |f":.report(2001,|
00002ca0  22 4d 61 69 6c 45 48 22  29 3a e1 0d 0f aa 34 20  |"MailEH"):....4 |
00002cb0  20 20 20 20 20 20 20 c8  99 20 22 58 4f 53 5f 46  |       .. "XOS_F|
00002cc0  69 6c 65 22 2c 20 34 2c  20 6d 6e 61 6d 65 24 2c  |ile", 4, mname$,|
00002cd0  2c 2c 2c 30 20 b8 20 3b  20 66 6c 61 67 73 25 0d  |,,,0 . ; flags%.|
00002ce0  0f b4 38 20 20 20 20 20  20 20 20 c8 99 20 22 58  |..8        .. "X|
00002cf0  4f 53 5f 46 69 6c 65 22  2c 20 34 2c 20 6d 6e 61  |OS_File", 4, mna|
00002d00  6d 65 24 2c 2c 2c 2c 61  74 74 72 25 20 b8 20 3b  |me$,,,,attr% . ;|
00002d10  20 66 6c 61 67 73 25 0d  0f be 09 20 20 20 20 cd  | flags%....    .|
00002d20  0d 0f c8 04 0d 0f d2 0b  20 20 20 20 ea 20 85 0d  |........    . ..|
00002d30  0f dc 2a 20 20 20 20 ee  85 20 ea 20 d9 23 42 25  |..*    .. . .#B%|
00002d40  3a f2 72 65 6d 6f 76 65  47 75 61 72 64 3a f2 65  |:.removeGuard:.e|
00002d50  72 72 6f 72 62 6f 78 3a  e1 0d 0f e6 2c 20 20 20  |rrorbox:....,   |
00002d60  20 e7 43 25 3e 3d 30 20  85 20 32 30 30 30 2c a4  | .C%>=0 . 2000,.|
00002d70  67 65 74 5f 6d 65 73 73  61 67 65 28 22 4d 61 69  |get_message("Mai|
00002d80  6c 45 42 22 29 0d 0f f0  21 20 20 20 20 43 25 3d  |lEB")...!    C%=|
00002d90  a4 72 65 61 64 56 61 72  28 63 75 72 72 65 6e 74  |.readVar(current|
00002da0  2c 30 2c 2d 31 29 0d 0f  fa 49 20 20 20 20 42 25  |,0,-1)...I    B%|
00002db0  3d ad 6d 6e 61 6d 65 24  3a e7 42 25 3d 30 20 8c  |=.mname$:.B%=0 .|
00002dc0  20 f2 72 65 6d 6f 76 65  47 75 61 72 64 3a e1 20  | .removeGuard:. |
00002dd0  8b e7 20 ac a4 63 68 65  63 6b 55 50 28 42 25 29  |.. ..checkUP(B%)|
00002de0  20 f2 72 65 6d 6f 76 65  47 75 61 72 64 3a e1 0d  | .removeGuard:..|
00002df0  10 04 3f 20 20 20 20 e7  a2 23 42 25 3d 30 20 d9  |..?    ..#B%=0 .|
00002e00  23 42 25 3a f2 72 65 6d  6f 76 65 47 75 61 72 64  |#B%:.removeGuard|
00002e10  3a 73 70 6e 61 6d 65 24  3d 22 2d 6d 61 69 6c 6e  |:spname$="-mailn|
00002e20  6f 6e 65 22 3a f2 63 68  61 6e 67 65 3a e1 0d 10  |one":.change:...|
00002e30  0e 10 20 20 20 20 e7 20  43 25 3c 30 20 8c 0d 10  |..    . C%<0 ...|
00002e40  18 1e 20 20 20 20 20 20  43 25 3d ae 22 3c 4d 61  |..      C%=."<Ma|
00002e50  69 6c 24 43 75 72 72 65  6e 74 3e 22 0d 10 22 1e  |il$Current>"..".|
00002e60  20 20 20 20 20 20 41 25  3d ad 22 3c 4d 61 69 6c  |      A%=."<Mail|
00002e70  24 4c 6f 67 46 69 6c 65  3e 22 0d 10 2c 30 20 20  |$LogFile>"..,0  |
00002e80  20 20 20 20 e7 41 25 3d  30 20 41 25 3d ae 22 3c  |    .A%=0 A%=."<|
00002e90  4d 61 69 6c 24 4c 6f 67  46 69 6c 65 3e 22 20 8b  |Mail$LogFile>" .|
00002ea0  20 cf 23 41 25 3d a2 23  41 25 0d 10 36 36 20 20  | .#A%=.#A%..66  |
00002eb0  20 20 20 20 ee 85 20 ea  20 d9 23 41 25 3a d9 23  |    .. . .#A%:.#|
00002ec0  42 25 3a d9 23 43 25 3a  f2 72 65 6d 6f 76 65 47  |B%:.#C%:.removeG|
00002ed0  75 61 72 64 3a f2 65 72  72 6f 72 62 6f 78 3a e1  |uard:.errorbox:.|
00002ee0  0d 10 40 29 20 20 20 20  20 20 f5 20 58 24 3d be  |..@)      . X$=.|
00002ef0  23 42 25 3a d5 23 41 25  2c 58 24 3a d5 23 43 25  |#B%:.#A%,X$:.#C%|
00002f00  2c 58 24 3a fd c5 23 42  25 0d 10 4a 1d 20 20 20  |,X$:..#B%..J.   |
00002f10  20 20 20 d9 23 41 25 3a  d9 23 43 25 3a 41 25 3d  |   .#A%:.#C%:A%=|
00002f20  30 3a 43 25 3d 30 0d 10  54 2c 20 20 20 20 20 20  |0:C%=0..T,      |
00002f30  ee 85 20 ea 20 d9 23 42  25 3a f2 72 65 6d 6f 76  |.. . .#B%:.remov|
00002f40  65 47 75 61 72 64 3a f2  65 72 72 6f 72 62 6f 78  |eGuard:.errorbox|
00002f50  3a e1 0d 10 5e 36 20 20  20 20 20 20 a2 23 42 25  |:...^6      .#B%|
00002f60  3d 30 3a d9 23 42 25 3a  42 25 3d 30 3a 73 70 6e  |=0:.#B%:B%=0:spn|
00002f70  61 6d 65 24 3d 22 2d 6d  61 69 6c 6e 6f 6e 65 22  |ame$="-mailnone"|
00002f80  3a f2 63 68 61 6e 67 65  0d 10 68 3f 20 20 20 20  |:.change..h?    |
00002f90  20 20 f2 73 65 74 54 79  70 65 28 22 3c 4d 61 69  |  .setType("<Mai|
00002fa0  6c 24 43 75 72 72 65 6e  74 3e 22 29 3a f2 73 65  |l$Current>"):.se|
00002fb0  74 54 79 70 65 28 22 3c  4d 61 69 6c 24 4c 6f 67  |tType("<Mail$Log|
00002fc0  66 69 6c 65 3e 22 29 0d  10 72 40 20 20 20 20 20  |file>")..r@     |
00002fd0  20 62 75 66 66 65 72 25  21 31 32 3d 30 3a 62 75  | buffer%!12=0:bu|
00002fe0  66 66 65 72 25 21 31 36  3d 35 3a 62 75 66 66 65  |ffer%!16=5:buffe|
00002ff0  72 25 21 33 36 3d 30 3a  62 75 66 66 65 72 25 21  |r%!36=0:buffer%!|
00003000  34 30 3d 26 46 46 46 0d  10 7c 42 20 20 20 20 20  |40=&FFF..|B     |
00003010  20 43 25 3d a4 72 65 61  64 56 61 72 28 63 75 72  | C%=.readVar(cur|
00003020  72 65 6e 74 2c 62 75 66  66 65 72 25 2b 34 34 2c  |rent,buffer%+44,|
00003030  26 31 30 30 29 3a 21 62  75 66 66 65 72 25 3d 34  |&100):!buffer%=4|
00003040  37 2b 43 25 2b 31 80 ac  33 0d 10 86 22 20 20 20  |7+C%+1..3..."   |
00003050  20 20 20 c8 99 20 73 5f  73 65 6e 64 6d 25 2c 31  |   .. s_sendm%,1|
00003060  38 2c 62 75 66 66 65 72  25 2c 30 0d 10 90 09 20  |8,buffer%,0.... |
00003070  20 20 20 cc 0d 10 9a 1e  20 20 20 20 20 20 41 25  |   .....      A%|
00003080  3d ad 22 3c 4d 61 69 6c  24 4c 6f 67 46 69 6c 65  |=."<Mail$LogFile|
00003090  3e 22 0d 10 a4 30 20 20  20 20 20 20 e7 41 25 3d  |>"...0      .A%=|
000030a0  30 20 41 25 3d ae 22 3c  4d 61 69 6c 24 4c 6f 67  |0 A%=."<Mail$Log|
000030b0  46 69 6c 65 3e 22 20 8b  20 cf 23 41 25 3d a2 23  |File>" . .#A%=.#|
000030c0  41 25 0d 10 ae 31 20 20  20 20 20 20 ee 85 20 ea  |A%...1      .. .|
000030d0  20 d9 23 41 25 3a d9 23  42 25 3a f2 72 65 6d 6f  | .#A%:.#B%:.remo|
000030e0  76 65 47 75 61 72 64 3a  f2 65 72 72 6f 72 62 6f  |veGuard:.errorbo|
000030f0  78 3a e1 0d 10 b8 1b 20  20 20 20 20 20 f5 20 d5  |x:.....      . .|
00003100  23 41 25 2c be 23 42 25  3a fd c5 23 42 25 0d 10  |#A%,.#B%:..#B%..|
00003110  c2 13 20 20 20 20 20 20  d9 23 41 25 3a 41 25 3d  |..      .#A%:A%=|
00003120  30 0d 10 cc 2c 20 20 20  20 20 20 ee 85 20 ea 20  |0...,      .. . |
00003130  d9 23 42 25 3a f2 72 65  6d 6f 76 65 47 75 61 72  |.#B%:.removeGuar|
00003140  64 3a f2 65 72 72 6f 72  62 6f 78 3a e1 0d 10 d6  |d:.errorbox:....|
00003150  36 20 20 20 20 20 20 a2  23 42 25 3d 30 3a d9 23  |6      .#B%=0:.#|
00003160  42 25 3a 42 25 3d 30 3a  73 70 6e 61 6d 65 24 3d  |B%:B%=0:spname$=|
00003170  22 2d 6d 61 69 6c 6e 6f  6e 65 22 3a f2 63 68 61  |"-mailnone":.cha|
00003180  6e 67 65 0d 10 e0 24 20  20 20 20 20 20 f2 73 65  |nge...$      .se|
00003190  74 54 79 70 65 28 22 3c  4d 61 69 6c 24 4c 6f 67  |tType("<Mail$Log|
000031a0  66 69 6c 65 3e 22 29 0d  10 ea 40 20 20 20 20 20  |file>")...@     |
000031b0  20 62 75 66 66 65 72 25  21 31 32 3d 30 3a 62 75  | buffer%!12=0:bu|
000031c0  66 66 65 72 25 21 31 36  3d 35 3a 62 75 66 66 65  |ffer%!16=5:buffe|
000031d0  72 25 21 33 36 3d 30 3a  62 75 66 66 65 72 25 21  |r%!36=0:buffer%!|
000031e0  34 30 3d 26 46 46 46 0d  10 f4 42 20 20 20 20 20  |40=&FFF...B     |
000031f0  20 43 25 3d a4 72 65 61  64 56 61 72 28 6c 6f 67  | C%=.readVar(log|
00003200  66 69 6c 65 2c 62 75 66  66 65 72 25 2b 34 34 2c  |file,buffer%+44,|
00003210  26 31 30 30 29 3a 21 62  75 66 66 65 72 25 3d 34  |&100):!buffer%=4|
00003220  37 2b 43 25 2b 31 80 ac  33 0d 10 fe 22 20 20 20  |7+C%+1..3..."   |
00003230  20 20 20 c8 99 20 73 5f  73 65 6e 64 6d 25 2c 31  |   .. s_sendm%,1|
00003240  38 2c 62 75 66 66 65 72  25 2c 30 0d 11 08 18 20  |8,buffer%,0.... |
00003250  20 20 20 cd 3a f2 72 65  6d 6f 76 65 47 75 61 72  |   .:.removeGuar|
00003260  64 3a e1 0d 11 12 07 20  20 cd 0d 11 1c 30 20 20  |d:.....  ....0  |
00003270  e7 20 61 24 3d a4 67 65  74 5f 6d 65 73 73 61 67  |. a$=.get_messag|
00003280  65 28 22 4d 61 69 6c 4d  34 22 29 20 8c 20 f2 73  |e("MailM4") . .s|
00003290  61 76 65 43 68 6f 69 63  65 73 0d 11 26 05 cb 0d  |aveChoices..&...|
000032a0  11 30 05 e1 0d 11 3a 04  0d 11 44 11 dd f2 72 65  |.0....:...D...re|
000032b0  74 61 69 6e 43 68 65 63  6b 0d 11 4e 44 20 e7 28  |tainCheck..ND .(|
000032c0  62 25 80 31 29 8c c8 99  20 73 5f 63 72 6d 65 6e  |b%.1)... s_crmen|
000032d0  75 25 2c 2c 6d 65 6e 75  64 61 74 61 25 2c 6d 6f  |u%,,menudata%,mo|
000032e0  75 73 65 78 25 2d 36 34  2c 39 36 2b 28 6d 65 6e  |usex%-64,96+(men|
000032f0  75 49 74 65 6d 73 25 2d  31 29 2a 34 34 0d 11 58  |uItems%-1)*44..X|
00003300  05 e1 0d 11 62 04 0d 11  6c 0d dd a4 76 61 72 28  |....b...l...var(|
00003310  73 24 29 0d 11 76 1d ea  20 6e 25 3a c8 99 73 77  |s$)..v.. n%:..sw|
00003320  69 6e 75 6d 25 2c 2c 73  24 b8 6e 25 3a 3d 6e 25  |inum%,,s$.n%:=n%|
00003330  0d 11 80 04 0d 11 8a 0a  dd f2 76 61 72 73 0d 11  |..........vars..|
00003340  94 43 c8 99 20 22 4f 53  5f 53 57 49 4e 75 6d 62  |.C.. "OS_SWINumb|
00003350  65 72 46 72 6f 6d 53 74  72 69 6e 67 22 2c 2c 22  |erFromString",,"|
00003360  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00003370  53 74 72 69 6e 67 22 20  b8 20 73 77 69 6e 75 6d  |String" . swinum|
00003380  25 0d 11 9e 28 73 5f 63  72 65 61 74 65 77 25 3d  |%...(s_createw%=|
00003390  a4 76 61 72 28 22 57 69  6d 70 5f 43 72 65 61 74  |.var("Wimp_Creat|
000033a0  65 57 69 6e 64 6f 77 22  29 0d 11 a8 24 73 5f 6f  |eWindow")...$s_o|
000033b0  70 65 6e 77 25 3d a4 76  61 72 28 22 57 69 6d 70  |penw%=.var("Wimp|
000033c0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 29 0d 11 b2  |_OpenWindow")...|
000033d0  26 73 5f 63 6c 6f 73 65  77 25 3d a4 76 61 72 28  |&s_closew%=.var(|
000033e0  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
000033f0  77 22 29 0d 11 bc 28 73  5f 72 65 64 72 61 77 77  |w")...(s_redraww|
00003400  25 3d a4 76 61 72 28 22  57 69 6d 70 5f 52 65 64  |%=.var("Wimp_Red|
00003410  72 61 77 57 69 6e 64 6f  77 22 29 0d 11 c6 28 73  |rawWindow")...(s|
00003420  5f 67 65 74 72 65 63 74  25 3d a4 76 61 72 28 22  |_getrect%=.var("|
00003430  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
00003440  65 22 29 0d 11 d0 2c 73  5f 67 65 74 77 73 74 61  |e")...,s_getwsta|
00003450  74 65 25 3d a4 76 61 72  28 22 57 69 6d 70 5f 47  |te%=.var("Wimp_G|
00003460  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 29 0d  |etWindowState").|
00003470  11 da 2b 73 5f 67 65 74  70 6f 69 6e 74 25 3d a4  |..+s_getpoint%=.|
00003480  76 61 72 28 22 57 69 6d  70 5f 47 65 74 50 6f 69  |var("Wimp_GetPoi|
00003490  6e 74 65 72 49 6e 66 6f  22 29 0d 11 e4 20 73 5f  |nterInfo")... s_|
000034a0  64 72 61 67 25 3d a4 76  61 72 28 22 57 69 6d 70  |drag%=.var("Wimp|
000034b0  5f 44 72 61 67 42 6f 78  22 29 0d 11 ee 25 73 5f  |_DragBox")...%s_|
000034c0  63 72 6d 65 6e 75 25 3d  a4 76 61 72 28 22 57 69  |crmenu%=.var("Wi|
000034d0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 29 0d  |mp_CreateMenu").|
000034e0  11 f8 25 73 5f 64 63 6d  65 6e 75 25 3d a4 76 61  |..%s_dcmenu%=.va|
000034f0  72 28 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |r("Wimp_DecodeMe|
00003500  6e 75 22 29 0d 12 02 22  73 5f 70 6f 6c 6c 25 3d  |nu")..."s_poll%=|
00003510  a4 76 61 72 28 22 58 57  69 6d 70 5f 50 6f 6c 6c  |.var("XWimp_Poll|
00003520  49 64 6c 65 22 29 0d 12  0c 26 73 5f 6f 70 65 6e  |Idle")...&s_open|
00003530  74 25 3d a4 76 61 72 28  22 57 69 6d 70 5f 4f 70  |t%=.var("Wimp_Op|
00003540  65 6e 54 65 6d 70 6c 61  74 65 22 29 0d 12 16 26  |enTemplate")...&|
00003550  73 5f 6c 6f 61 64 74 25  3d a4 76 61 72 28 22 57  |s_loadt%=.var("W|
00003560  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00003570  22 29 0d 12 20 28 73 5f  63 6c 6f 73 65 74 25 3d  |").. (s_closet%=|
00003580  a4 76 61 72 28 22 57 69  6d 70 5f 43 6c 6f 73 65  |.var("Wimp_Close|
00003590  54 65 6d 70 6c 61 74 65  22 29 0d 12 2a 25 73 5f  |Template")..*%s_|
000035a0  73 65 6e 64 6d 25 3d a4  76 61 72 28 22 57 69 6d  |sendm%=.var("Wim|
000035b0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 29 0d  |p_SendMessage").|
000035c0  12 34 2b 73 5f 63 72 73  75 62 6d 65 6e 75 25 3d  |.4+s_crsubmenu%=|
000035d0  a4 76 61 72 28 22 57 69  6d 70 5f 43 72 65 61 74  |.var("Wimp_Creat|
000035e0  65 53 75 62 4d 65 6e 75  22 29 0d 12 3e 2d 73 5f  |eSubMenu")..>-s_|
000035f0  73 65 74 63 61 72 65 74  25 3d a4 76 61 72 28 22  |setcaret%=.var("|
00003600  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00003610  69 74 69 6f 6e 22 29 0d  12 48 2d 73 5f 67 65 74  |ition")..H-s_get|
00003620  63 61 72 65 74 25 3d a4  76 61 72 28 22 57 69 6d  |caret%=.var("Wim|
00003630  70 5f 47 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_GetCaretPositi|
00003640  6f 6e 22 29 0d 12 52 22  73 5f 6b 65 79 25 3d a4  |on")..R"s_key%=.|
00003650  76 61 72 28 22 57 69 6d  70 5f 50 72 6f 63 65 73  |var("Wimp_Proces|
00003660  73 4b 65 79 22 29 0d 12  5c 2b 73 5f 67 65 74 69  |sKey")..\+s_geti|
00003670  69 6e 66 6f 25 3d 26 34  30 30 63 65 20 3a 20 f4  |info%=&400ce : .|
00003680  20 57 69 6d 70 5f 47 65  74 49 63 6f 6e 49 6e 66  | Wimp_GetIconInf|
00003690  6f 0d 12 66 27 73 5f 63  6c 6f 73 65 64 6f 77 6e  |o..f's_closedown|
000036a0  25 3d a4 76 61 72 28 22  57 69 6d 70 5f 43 6c 6f  |%=.var("Wimp_Clo|
000036b0  73 65 44 6f 77 6e 22 29  0d 12 70 26 73 5f 63 72  |seDown")..p&s_cr|
000036c0  65 61 74 65 69 25 3d a4  76 61 72 28 22 57 69 6d  |eatei%=.var("Wim|
000036d0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 29 0d 12  |p_CreateIcon")..|
000036e0  7a 2a 73 5f 67 65 74 69  73 74 61 74 65 25 3d a4  |z*s_getistate%=.|
000036f0  76 61 72 28 22 57 69 6d  70 5f 47 65 74 49 63 6f  |var("Wimp_GetIco|
00003700  6e 53 74 61 74 65 22 29  0d 12 84 2a 73 5f 73 65  |nState")...*s_se|
00003710  74 69 73 74 61 74 65 25  3d a4 76 61 72 28 22 57  |tistate%=.var("W|
00003720  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00003730  22 29 0d 12 8e 26 73 5f  64 65 6c 65 74 65 69 25  |")...&s_deletei%|
00003740  3d a4 76 61 72 28 22 57  69 6d 70 5f 44 65 6c 65  |=.var("Wimp_Dele|
00003750  74 65 49 63 6f 6e 22 29  0d 12 98 25 73 5f 65 72  |teIcon")...%s_er|
00003760  72 6f 72 25 3d a4 76 61  72 28 22 57 69 6d 70 5f  |ror%=.var("Wimp_|
00003770  52 65 70 6f 72 74 45 72  72 6f 72 22 29 0d 12 a2  |ReportError")...|
00003780  28 73 5f 66 6f 72 63 65  72 65 64 25 3d a4 76 61  |(s_forcered%=.va|
00003790  72 28 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |r("Wimp_ForceRed|
000037a0  72 61 77 22 29 0d 12 ac  28 73 5f 74 69 6d 65 25  |raw")...(s_time%|
000037b0  3d a4 76 61 72 28 22 4f  53 5f 52 65 61 64 4d 6f  |=.var("OS_ReadMo|
000037c0  6e 6f 74 6f 6e 69 63 54  69 6d 65 22 29 0d 12 b6  |notonicTime")...|
000037d0  1f 73 5f 73 70 6f 70 25  3d a4 76 61 72 28 22 4f  |.s_spop%=.var("O|
000037e0  53 5f 53 70 72 69 74 65  4f 70 22 29 0d 12 c0 19  |S_SpriteOp")....|
000037f0  73 5f 67 70 25 3d a4 76  61 72 28 22 4f 53 5f 47  |s_gp%=.var("OS_G|
00003800  42 50 42 22 29 0d 12 ca  1a 73 5f 63 6c 69 25 3d  |BPB")....s_cli%=|
00003810  a4 76 61 72 28 22 58 4f  53 5f 43 4c 49 22 29 0d  |.var("XOS_CLI").|
00003820  12 d4 25 73 5f 72 65 61  64 76 61 72 25 3d a4 76  |..%s_readvar%=.v|
00003830  61 72 28 22 58 4f 53 5f  52 65 61 64 56 61 72 56  |ar("XOS_ReadVarV|
00003840  61 6c 22 29 0d 12 de 23  73 5f 73 65 74 76 61 72  |al")...#s_setvar|
00003850  25 3d a4 76 61 72 28 22  58 4f 53 5f 53 65 74 56  |%=.var("XOS_SetV|
00003860  61 72 56 61 6c 22 29 0d  12 e8 1b 73 5f 66 69 6c  |arVal")....s_fil|
00003870  65 25 3d a4 76 61 72 28  22 4f 53 5f 46 69 6c 65  |e%=.var("OS_File|
00003880  22 29 0d 12 f2 1d 73 5f  78 66 69 6c 65 25 3d a4  |")....s_xfile%=.|
00003890  76 61 72 28 22 58 4f 53  5f 46 69 6c 65 22 29 0d  |var("XOS_File").|
000038a0  12 fc 22 73 5f 66 73 63  74 72 6c 25 3d a4 76 61  |.."s_fsctrl%=.va|
000038b0  72 28 22 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  |r("OS_FSControl"|
000038c0  29 0d 13 06 04 0d 13 10  05 e1 0d 13 1a 04 0d 13  |)...............|
000038d0  24 18 dd f2 72 65 70 6f  72 74 28 65 72 72 25 2c  |$...report(err%,|
000038e0  6d 65 73 73 24 29 0d 13  2e 23 f2 72 65 70 28 65  |mess$)...#.rep(e|
000038f0  72 72 25 2c 20 a4 67 65  74 5f 6d 65 73 73 61 67  |rr%, .get_messag|
00003900  65 28 6d 65 73 73 24 29  29 0d 13 38 05 e1 0d 13  |e(mess$))..8....|
00003910  42 04 0d 13 4c 15 dd f2  72 65 70 28 65 72 72 25  |B...L...rep(err%|
00003920  2c 6d 65 73 73 24 29 0d  13 56 5f c8 99 20 73 5f  |,mess$)..V_.. s_|
00003930  64 72 61 67 25 2c 2c 2d  31 3a 21 62 75 66 66 65  |drag%,,-1:!buffe|
00003940  72 25 3d 65 72 72 25 3a  24 28 62 75 66 66 65 72  |r%=err%:$(buffer|
00003950  25 2b 34 29 3d 6d 65 73  73 24 3a c8 99 73 5f 65  |%+4)=mess$:..s_e|
00003960  72 72 6f 72 25 2c 62 75  66 66 65 72 25 2c 31 2c  |rror%,buffer%,1,|
00003970  a4 67 65 74 5f 6d 65 73  73 61 67 65 28 22 4d 61  |.get_message("Ma|
00003980  69 6c 30 30 22 29 0d 13  60 05 e1 0d 13 6a 04 0d  |il00")..`....j..|
00003990  13 74 40 dd f2 65 72 72  6f 72 62 6f 78 20 3a f4  |.t@..errorbox :.|
000039a0  20 52 65 70 6f 72 74 20  65 72 72 6f 72 2c 20 77  | Report error, w|
000039b0  69 74 68 20 6c 69 6e 65  20 6e 75 6d 62 65 72 20  |ith line number |
000039c0  69 66 20 65 72 72 6f 72  20 3c 20 32 30 30 30 0d  |if error < 2000.|
000039d0  13 7e 5b e7 20 28 9f 20  3c 20 32 30 30 30 29 20  |.~[. (. < 2000) |
000039e0  80 20 69 6e 74 65 72 6e  61 6c 25 20 8c 20 f2 72  |. internal% . .r|
000039f0  65 70 28 9f 2c f6 24 2b  a4 67 65 74 5f 6d 65 73  |ep(.,.$+.get_mes|
00003a00  73 61 67 65 28 22 4d 61  69 6c 45 30 22 29 2b c3  |sage("MailE0")+.|
00003a10  9e 2b 22 29 2e 22 2b bd  30 29 20 8b 20 f2 72 65  |.+")."+.0) . .re|
00003a20  70 28 9f 2c f6 24 2b bd  30 29 0d 13 88 05 e1 0d  |p(.,.$+.0)......|
00003a30  13 92 04 0d 13 9c 0d dd  a4 69 63 6f 6e 62 61 72  |.........iconbar|
00003a40  0d 13 a6 4e 21 69 63 6f  6e 73 25 3d 2d 31 3a 69  |...N!icons%=-1:i|
00003a50  63 6f 6e 73 25 21 34 3d  30 3a 69 63 6f 6e 73 25  |cons%!4=0:icons%|
00003a60  21 38 3d 30 3a 69 63 6f  6e 73 25 21 31 32 3d 34  |!8=0:icons%!12=4|
00003a70  37 3a 69 63 6f 6e 73 25  21 31 36 3d 36 38 3a 69  |7:icons%!16=68:i|
00003a80  63 6f 6e 73 25 21 32 30  3d 26 33 31 30 32 0d 13  |cons%!20=&3102..|
00003a90  b0 17 73 70 6e 61 6d 65  24 3d 22 2d 6d 61 69 6c  |..spname$="-mail|
00003aa0  68 6f 6c 65 22 0d 13 ba  27 de 20 69 63 6f 6e 73  |hole"...'. icons|
00003ab0  25 21 32 34 20 31 32 3a  24 28 69 63 6f 6e 73 25  |%!24 12:$(icons%|
00003ac0  21 32 34 29 3d 73 70 6e  61 6d 65 24 0d 13 c4 23  |!24)=spname$...#|
00003ad0  69 63 6f 6e 73 25 21 32  38 3d 73 70 72 69 74 65  |icons%!28=sprite|
00003ae0  73 25 3a 69 63 6f 6e 73  25 21 33 32 3d 31 31 0d  |s%:icons%!32=11.|
00003af0  13 ce 1f c8 99 20 73 5f  63 72 65 61 74 65 69 25  |..... s_createi%|
00003b00  2c 2c 69 63 6f 6e 73 25  20 b8 20 69 63 25 0d 13  |,,icons% . ic%..|
00003b10  d8 08 3d 69 63 25 0d 13  e2 04 0d 13 ec 15 dd f2  |..=ic%..........|
00003b20  6e 75 64 67 65 28 6e 6f  64 65 6c 61 79 25 29 0d  |nudge(nodelay%).|
00003b30  13 f6 20 ea 20 50 25 2c  66 30 25 2c 66 31 25 2c  |.. . P%,f0%,f1%,|
00003b40  66 32 25 2c 66 33 25 2c  66 34 25 2c 66 35 25 0d  |f2%,f3%,f4%,f5%.|
00003b50  14 00 10 e7 20 6e 6f 64  65 6c 61 79 25 20 8c 0d  |.... nodelay% ..|
00003b60  14 0a 10 20 20 e7 20 4e  65 74 4f 4b 25 20 8c 0d  |...  . NetOK% ..|
00003b70  14 14 3b 20 20 20 20 c8  99 20 22 4e 65 74 46 53  |..;    .. "NetFS|
00003b80  5f 52 65 61 64 46 53 54  69 6d 65 6f 75 74 73 22  |_ReadFSTimeouts"|
00003b90  20 b8 20 66 30 25 2c 66  31 25 2c 66 32 25 2c 66  | . f0%,f1%,f2%,f|
00003ba0  33 25 2c 66 34 25 2c 66  35 25 0d 14 1e 2f 20 20  |3%,f4%,f5%.../  |
00003bb0  20 20 c8 99 20 22 4e 65  74 46 53 5f 53 65 74 46  |  .. "NetFS_SetF|
00003bc0  53 54 69 6d 65 6f 75 74  73 22 2c 35 2c 34 2c 35  |STimeouts",5,4,5|
00003bd0  2c 34 2c 31 30 30 2c 32  30 0d 14 28 07 20 20 cd  |,4,100,20..(.  .|
00003be0  0d 14 32 31 20 20 c8 99  20 73 5f 78 66 69 6c 65  |..21  .. s_xfile|
00003bf0  25 2c 35 2c 6d 6e 61 6d  65 24 20 b8 20 72 30 2c  |%,5,mname$ . r0,|
00003c00  2c 72 32 2c 72 33 2c 72  34 2c 72 35 20 3b 20 50  |,r2,r3,r4,r5 ; P|
00003c10  25 0d 14 3c 10 20 20 e7  20 4e 65 74 4f 4b 25 20  |%..<.  . NetOK% |
00003c20  8c 0d 14 46 38 20 20 20  20 c8 99 20 22 4e 65 74  |...F8    .. "Net|
00003c30  46 53 5f 53 65 74 46 53  54 69 6d 65 6f 75 74 73  |FS_SetFSTimeouts|
00003c40  22 2c 66 30 25 2c 66 31  25 2c 66 32 25 2c 66 33  |",f0%,f1%,f2%,f3|
00003c50  25 2c 66 34 25 2c 66 35  25 0d 14 50 07 20 20 cd  |%,f4%,f5%..P.  .|
00003c60  0d 14 5a 10 20 20 e7 20  50 25 20 80 20 31 20 8c  |..Z.  . P% . 1 .|
00003c70  0d 14 64 1a 20 20 20 20  e7 20 64 65 6c 61 79 25  |..d.    . delay%|
00003c80  3c 3e 6c 6f 64 65 6c 25  20 8c 0d 14 6e 22 20 20  |<>lodel% ...n"  |
00003c90  20 20 20 20 64 65 6c 61  79 25 3d 6c 6f 64 65 6c  |    delay%=lodel|
00003ca0  25 3a 63 6f 75 6e 74 25  3d 36 3a e1 0d 14 78 09  |%:count%=6:...x.|
00003cb0  20 20 20 20 cc 0d 14 82  46 20 20 20 20 20 20 63  |    ....F      c|
00003cc0  6f 75 6e 74 25 2d 3d 31  3a e7 63 6f 75 6e 74 25  |ount%-=1:.count%|
00003cd0  3d 30 20 64 65 6c 61 79  25 3d 68 69 64 65 6c 25  |=0 delay%=hidel%|
00003ce0  3a 73 70 6e 61 6d 65 24  3d 22 2d 6d 61 69 6c 75  |:spname$="-mailu|
00003cf0  6e 6b 22 3a f2 63 68 61  6e 67 65 0d 14 8c 0f 20  |nk":.change.... |
00003d00  20 20 20 20 20 f2 74 69  63 6b 0d 14 96 0b 20 20  |     .tick....  |
00003d10  20 20 20 20 e1 0d 14 a0  09 20 20 20 20 cd 0d 14  |    .....    ...|
00003d20  aa 07 20 20 cc 0d 14 b4  15 20 20 20 20 64 65 6c  |..  .....    del|
00003d30  61 79 25 3d 68 69 64 65  6c 25 0d 14 be 07 20 20  |ay%=hidel%....  |
00003d40  cd 0d 14 c8 05 cc 0d 14  d2 31 20 20 c8 99 20 73  |.........1  .. s|
00003d50  5f 78 66 69 6c 65 25 2c  35 2c 6d 6e 61 6d 65 24  |_xfile%,5,mname$|
00003d60  20 b8 20 72 30 2c 2c 72  32 2c 72 33 2c 72 34 2c  | . r0,,r2,r3,r4,|
00003d70  72 35 20 3b 20 50 25 0d  14 dc 33 20 20 e7 20 50  |r5 ; P%...3  . P|
00003d80  25 20 80 20 31 20 8c 20  73 70 6e 61 6d 65 24 3d  |% . 1 . spname$=|
00003d90  22 2d 6d 61 69 6c 75 6e  6b 22 3a f2 63 68 61 6e  |"-mailunk":.chan|
00003da0  67 65 3a f2 74 69 63 6b  3a e1 0d 14 e6 05 cd 0d  |ge:.tick:.......|
00003db0  14 f0 0b c8 8e 20 72 30  20 ca 0d 14 fa 2f c9 20  |..... r0 ..../. |
00003dc0  31 3a e7 20 72 34 20 80  20 73 70 6e 61 6d 65 24  |1:. r4 . spname$|
00003dd0  3c 3e 22 2d 6d 61 69 6c  66 75 6c 6c 22 20 80 20  |<>"-mailfull" . |
00003de0  62 6f 6e 67 20 8c 20 ef  37 0d 15 04 32 e7 20 72  |bong . .7...2. r|
00003df0  34 20 73 70 6e 61 6d 65  24 3d 22 2d 6d 61 69 6c  |4 spname$="-mail|
00003e00  66 75 6c 6c 22 20 8b 20  73 70 6e 61 6d 65 24 3d  |full" . spname$=|
00003e10  22 2d 6d 61 69 6c 6e 6f  6e 65 22 0d 15 0e 18 7f  |"-mailnone".....|
00003e20  20 73 70 6e 61 6d 65 24  3d 22 2d 6d 61 69 6c 75  | spname$="-mailu|
00003e30  6e 6b 22 0d 15 18 05 cb  0d 15 22 0b f2 63 68 61  |nk"......."..cha|
00003e40  6e 67 65 0d 15 2c 09 f2  74 69 63 6b 0d 15 36 05  |nge..,..tick..6.|
00003e50  e1 0d 15 40 04 0d 15 4a  0a dd f2 74 69 63 6b 0d  |...@...J...tick.|
00003e60  15 54 1a c8 99 20 73 5f  74 69 6d 65 25 20 b8 20  |.T... s_time% . |
00003e70  74 69 6d 65 73 6c 69 70  25 0d 15 5e 2a c8 95 74  |timeslip%..^*..t|
00003e80  69 6d 65 73 6c 69 70 25  2d 74 69 6d 65 78 25 3e  |imeslip%-timex%>|
00003e90  3d 30 3a 74 69 6d 65 78  25 2b 3d 64 65 6c 61 79  |=0:timex%+=delay|
00003ea0  25 3a ce 0d 15 68 05 e1  0d 15 72 04 0d 15 7c 0c  |%:...h....r...|.|
00003eb0  dd f2 63 68 61 6e 67 65  0d 15 86 2c c8 99 20 73  |..change...,.. s|
00003ec0  5f 73 70 6f 70 25 2c 26  31 31 38 2c 73 70 72 69  |_spop%,&118,spri|
00003ed0  74 65 73 25 2c 73 70 6e  61 6d 65 24 20 b8 2c 2c  |tes%,spname$ .,,|
00003ee0  73 72 63 25 0d 15 90 31  c8 99 20 73 5f 73 70 6f  |src%...1.. s_spo|
00003ef0  70 25 2c 26 31 31 38 2c  73 70 72 69 74 65 73 25  |p%,&118,sprites%|
00003f00  2c 22 2d 6d 61 69 6c 68  6f 6c 65 22 20 b8 2c 2c  |,"-mailhole" .,,|
00003f10  64 65 73 74 25 0d 15 9a  27 e3 7a 25 3d 34 34 b8  |dest%...'.z%=44.|
00003f20  21 73 72 63 25 2d 31 88  34 3a 64 65 73 74 25 21  |!src%-1.4:dest%!|
00003f30  7a 25 3d 73 72 63 25 21  7a 25 3a ed 0d 15 a4 26  |z%=src%!z%:....&|
00003f40  21 71 25 3d 2d 31 3a 71  25 21 34 3d 69 63 6d 61  |!q%=-1:q%!4=icma|
00003f50  69 6c 25 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |il%:q%!8=0:q%!12|
00003f60  3d 30 0d 15 ae 17 c8 99  20 73 5f 73 65 74 69 73  |=0...... s_setis|
00003f70  74 61 74 65 25 2c 2c 71  25 0d 15 b8 05 e1 0d 15  |tate%,,q%.......|
00003f80  c2 04 0d 15 cc 14 dd f2  70 6f 70 75 70 28 68 61  |........popup(ha|
00003f90  6e 64 6c 65 25 29 0d 15  d6 12 f2 67 65 74 77 28  |ndle%).....getw(|
00003fa0  68 61 6e 64 6c 65 25 29  0d 15 e0 26 78 6f 25 3d  |handle%)...&xo%=|
00003fb0  6d 6f 75 73 65 78 25 2d  28 78 30 25 2b 78 31 25  |mousex%-(x0%+x1%|
00003fc0  29 2f 32 3a 79 6f 25 3d  39 36 2d 79 30 25 0d 15  |)/2:yo%=96-y0%..|
00003fd0  ea 46 f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |.F.open_window(h|
00003fe0  61 6e 64 6c 65 25 2c 78  30 25 2b 78 6f 25 2c 79  |andle%,x0%+xo%,y|
00003ff0  30 25 2b 79 6f 25 2c 78  31 25 2b 78 6f 25 2c 79  |0%+yo%,x1%+xo%,y|
00004000  31 25 2b 79 6f 25 2c 73  63 78 25 2c 73 63 79 25  |1%+yo%,scx%,scy%|
00004010  2c 2d 31 29 0d 15 f4 05  e1 0d 15 fe 04 0d 16 08  |,-1)............|
00004020  3d dd f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 28 68  |=..open_window(h|
00004030  61 6e 64 6c 65 25 2c 78  30 25 2c 79 30 25 2c 78  |andle%,x0%,y0%,x|
00004040  31 25 2c 79 31 25 2c 73  63 78 25 2c 73 63 79 25  |1%,y1%,scx%,scy%|
00004050  2c 62 68 61 6e 64 6c 65  25 29 0d 16 12 11 e7 68  |,bhandle%).....h|
00004060  61 6e 64 6c 65 25 3d 2d  31 8c e1 0d 16 1c 1f 71  |andle%=-1......q|
00004070  25 21 30 3d 68 61 6e 64  6c 65 25 3a 71 25 21 32  |%!0=handle%:q%!2|
00004080  38 3d 62 68 61 6e 64 6c  65 25 0d 16 26 29 71 25  |8=bhandle%..&)q%|
00004090  21 34 3d 78 30 25 3a 71  25 21 38 3d 79 30 25 3a  |!4=x0%:q%!8=y0%:|
000040a0  71 25 21 31 32 3d 78 31  25 3a 71 25 21 31 36 3d  |q%!12=x1%:q%!16=|
000040b0  79 31 25 0d 16 30 19 71  25 21 32 30 3d 73 63 78  |y1%..0.q%!20=scx|
000040c0  25 3a 71 25 21 32 34 3d  73 63 79 25 0d 16 3a 13  |%:q%!24=scy%..:.|
000040d0  c8 99 20 73 5f 6f 70 65  6e 77 25 2c 2c 71 25 0d  |.. s_openw%,,q%.|
000040e0  16 44 05 e1 0d 16 4e 04  0d 16 58 13 dd f2 67 65  |.D....N...X...ge|
000040f0  74 77 28 68 61 6e 64 6c  65 25 29 0d 16 62 23 21  |tw(handle%)..b#!|
00004100  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 73 5f  |q%=handle%:.. s_|
00004110  67 65 74 77 73 74 61 74  65 25 2c 2c 71 25 0d 16  |getwstate%,,q%..|
00004120  6c 2b f2 69 6e 66 6f 28  71 25 2b 34 29 3a 62 68  |l+.info(q%+4):bh|
00004130  61 6e 64 6c 65 25 3d 71  25 21 32 38 3a 66 6c 61  |andle%=q%!28:fla|
00004140  67 73 25 3d 71 25 21 33  32 0d 16 76 05 e1 0d 16  |gs%=q%!32..v....|
00004150  80 04 0d 16 8a 0e dd f2  69 6e 66 6f 28 71 25 29  |........info(q%)|
00004160  0d 16 94 3d 78 30 25 3d  21 71 25 3a 79 30 25 3d  |...=x0%=!q%:y0%=|
00004170  71 25 21 34 3a 78 31 25  3d 71 25 21 38 3a 79 31  |q%!4:x1%=q%!8:y1|
00004180  25 3d 71 25 21 31 32 3a  73 63 78 25 3d 71 25 21  |%=q%!12:scx%=q%!|
00004190  31 36 3a 73 63 79 25 3d  71 25 21 32 30 0d 16 9e  |16:scy%=q%!20...|
000041a0  1d 62 78 25 3d 78 30 25  2d 73 63 78 25 3a 62 79  |.bx%=x0%-scx%:by|
000041b0  25 3d 79 31 25 2d 73 63  79 25 0d 16 a8 05 e1 0d  |%=y1%-scy%......|
000041c0  16 b2 04 0d 16 bc 1c dd  f2 72 65 64 72 61 77 5f  |.........redraw_|
000041d0  77 69 6e 64 6f 77 28 68  61 6e 64 6c 65 25 29 0d  |window(handle%).|
000041e0  16 c6 16 e7 68 61 6e 64  6c 65 25 3d 6d 61 69 6c  |....handle%=mail|
000041f0  74 6f 25 20 8c 0d 16 d0  0f 21 71 25 3d 68 61 6e  |to% .....!q%=han|
00004200  64 6c 65 25 0d 16 da 1d  c8 99 20 73 5f 72 65 64  |dle%...... s_red|
00004210  72 61 77 77 25 2c 2c 71  25 20 b8 20 6d 6f 72 65  |raww%,,q% . more|
00004220  25 0d 16 e4 0f f2 69 6e  66 6f 28 71 25 2b 34 29  |%.....info(q%+4)|
00004230  0d 16 ee 05 cd 0d 16 f8  05 e1 0d 17 02 04 0d 17  |................|
00004240  0c 10 dd f2 67 65 74 70  6f 69 6e 74 65 72 0d 17  |....getpointer..|
00004250  16 1b c8 99 20 73 5f 67  65 74 70 6f 69 6e 74 25  |.... s_getpoint%|
00004260  2c 2c 62 75 66 66 65 72  25 0d 17 20 66 6d 6f 75  |,,buffer%.. fmou|
00004270  73 65 78 25 3d 21 62 75  66 66 65 72 25 3a 6d 6f  |sex%=!buffer%:mo|
00004280  75 73 65 79 25 3d 62 75  66 66 65 72 25 21 34 3a  |usey%=buffer%!4:|
00004290  62 25 3d 62 75 66 66 65  72 25 21 38 3a 68 61 6e  |b%=buffer%!8:han|
000042a0  64 6c 65 25 3d 62 75 66  66 65 72 25 21 31 32 3a  |dle%=buffer%!12:|
000042b0  69 63 6f 6e 25 3d 62 75  66 66 65 72 25 21 31 36  |icon%=buffer%!16|
000042c0  3a 6f 62 25 3d 62 75 66  66 65 72 25 21 32 30 0d  |:ob%=buffer%!20.|
000042d0  17 2a 05 e1 0d 17 34 04  0d 17 3e 3a dd f2 63 6c  |.*....4...>:..cl|
000042e0  6f 73 65 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |ose_window(handl|
000042f0  65 25 29 3a 21 71 25 3d  68 61 6e 64 6c 65 25 3a  |e%):!q%=handle%:|
00004300  c8 99 20 73 5f 63 6c 6f  73 65 77 25 2c 2c 71 25  |.. s_closew%,,q%|
00004310  3a e1 0d 17 48 04 0d 17  52 22 dd f2 73 65 74 4f  |:...H...R"..setO|
00004320  70 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |pt(window%,icon%|
00004330  2c 73 74 61 74 65 25 29  0d 17 5c 41 20 21 6f 70  |,state%)..\A !op|
00004340  74 62 75 66 66 25 3d 77  69 6e 64 6f 77 25 3a 6f  |tbuff%=window%:o|
00004350  70 74 62 75 66 66 25 21  34 3d 69 63 6f 6e 25 3a  |ptbuff%!4=icon%:|
00004360  c8 99 20 73 5f 67 65 74  69 73 74 61 74 65 25 2c  |.. s_getistate%,|
00004370  2c 6f 70 74 62 75 66 66  25 0d 17 66 3d 20 e7 73  |,optbuff%..f= .s|
00004380  74 61 74 65 25 20 24 28  6f 70 74 62 75 66 66 25  |tate% $(optbuff%|
00004390  2b 32 38 29 3d 22 6f 70  74 6f 6e 22 20 8b 20 24  |+28)="opton" . $|
000043a0  28 6f 70 74 62 75 66 66  25 2b 32 38 29 3d 22 6f  |(optbuff%+28)="o|
000043b0  70 74 6f 66 66 22 0d 17  70 3e 20 21 6f 70 74 62  |ptoff"..p> !optb|
000043c0  75 66 66 25 3d 77 69 6e  64 6f 77 25 3a 6f 70 74  |uff%=window%:opt|
000043d0  62 75 66 66 25 21 34 3d  69 63 6f 6e 25 3a c8 99  |buff%!4=icon%:..|
000043e0  73 5f 64 65 6c 65 74 65  69 25 2c 2c 6f 70 74 62  |s_deletei%,,optb|
000043f0  75 66 66 25 0d 17 7a 30  20 6f 70 74 62 75 66 66  |uff%..z0 optbuff|
00004400  25 21 34 3d 77 69 6e 64  6f 77 25 3a c8 99 73 5f  |%!4=window%:..s_|
00004410  63 72 65 61 74 65 69 25  2c 2c 6f 70 74 62 75 66  |createi%,,optbuf|
00004420  66 25 2b 34 0d 17 84 3d  20 21 71 25 3d 77 69 6e  |f%+4...= !q%=win|
00004430  64 6f 77 25 3a 71 25 21  34 3d 69 63 6f 6e 25 3a  |dow%:q%!4=icon%:|
00004440  71 25 21 38 3d 30 3a 71  25 21 31 32 3d 30 3a c8  |q%!8=0:q%!12=0:.|
00004450  99 73 5f 73 65 74 69 73  74 61 74 65 25 2c 2c 71  |.s_setistate%,,q|
00004460  25 0d 17 8e 05 e1 0d 17  98 04 0d 17 a2 1d dd a4  |%...............|
00004470  68 65 6c 70 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |help(window%,ico|
00004480  6e 25 2c 74 6f 25 29 0d  17 ac 1a 20 ea 20 74 24  |n%,to%).... . t$|
00004490  2c 74 31 24 3a 74 24 3d  22 22 3a 74 31 24 3d 22  |,t1$:t$="":t1$="|
000044a0  22 0d 17 b6 0b 24 74 6f  25 3d 22 22 0d 17 c0 10  |"....$to%=""....|
000044b0  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 17 ca 09  |.. window% .....|
000044c0  20 c9 20 2d 32 0d 17 d4  11 20 20 74 24 3d 22 4d  | . -2....  t$="M|
000044d0  61 69 6c 48 31 22 0d 17  de 1e 20 20 e7 20 73 70  |ailH1"....  . sp|
000044e0  6e 61 6d 65 24 20 3d 20  22 2d 6d 61 69 6c 75 6e  |name$ = "-mailun|
000044f0  6b 22 20 8c 0d 17 e8 13  20 20 20 74 31 24 3d 22  |k" .....   t1$="|
00004500  4d 61 69 6c 48 32 22 0d  17 f2 07 20 20 cc 0d 17  |MailH2"....  ...|
00004510  fc 13 20 20 20 74 31 24  3d 22 4d 61 69 6c 48 33  |..   t1$="MailH3|
00004520  22 0d 18 06 2d 20 20 20  e7 20 73 70 6e 61 6d 65  |"...-   . spname|
00004530  24 20 3d 20 22 2d 6d 61  69 6c 66 75 6c 6c 22 20  |$ = "-mailfull" |
00004540  8c 20 74 31 24 3d 22 4d  61 69 6c 48 34 22 0d 18  |. t1$="MailH4"..|
00004550  10 07 20 20 cd 0d 18 1a  0f 20 c9 20 6d 61 69 6c  |..  ..... . mail|
00004560  74 6f 25 3a 0d 18 24 11  20 20 74 24 3d 22 4d 61  |to%:..$.  t$="Ma|
00004570  69 6c 48 35 22 0d 18 2e  10 20 20 c8 8e 20 69 63  |ilH5"....  .. ic|
00004580  6f 6e 25 20 ca 0d 18 38  18 20 20 20 c9 20 30 3a  |on% ...8.   . 0:|
00004590  20 74 31 24 3d 22 4d 61  69 6c 48 36 22 0d 18 42  | t1$="MailH6"..B|
000045a0  18 20 20 20 c9 20 31 3a  20 74 31 24 3d 22 4d 61  |.   . 1: t1$="Ma|
000045b0  69 6c 48 37 22 0d 18 4c  18 20 20 20 c9 20 32 3a  |ilH7"..L.   . 2:|
000045c0  20 74 31 24 3d 22 4d 61  69 6c 48 38 22 0d 18 56  | t1$="MailH8"..V|
000045d0  18 20 20 20 c9 20 33 3a  20 74 31 24 3d 22 4d 61  |.   . 3: t1$="Ma|
000045e0  69 6c 48 39 22 0d 18 60  18 20 20 20 c9 20 34 3a  |ilH9"..`.   . 4:|
000045f0  20 74 31 24 3d 22 4d 61  69 6c 48 41 22 0d 18 6a  | t1$="MailHA"..j|
00004600  0c 20 20 20 c9 20 31 31  3a 0d 18 74 2b 20 20 20  |.   . 11:..t+   |
00004610  20 e7 20 61 63 6b 20 8c  20 74 31 24 3d 22 4d 61  | . ack . t1$="Ma|
00004620  69 6c 48 42 22 20 8b 20  74 31 24 3d 22 4d 61 69  |ilHB" . t1$="Mai|
00004630  6c 48 43 22 0d 18 7e 0f  20 20 20 7f 3a 20 74 24  |lHC"..~.   .: t$|
00004640  3d 22 22 0d 18 88 07 20  20 cb 0d 18 92 15 20 c9  |=""....  ..... .|
00004650  20 63 68 6f 69 63 65 73  77 69 6e 64 6f 77 25 0d  | choiceswindow%.|
00004660  18 9c 11 20 20 74 24 3d  22 4d 61 69 6c 48 35 22  |...  t$="MailH5"|
00004670  0d 18 a6 10 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |....  .. icon% .|
00004680  0d 18 b0 18 20 20 20 c9  20 30 3a 20 74 31 24 3d  |....   . 0: t1$=|
00004690  22 4d 61 69 6c 48 44 22  0d 18 ba 18 20 20 20 c9  |"MailHD"....   .|
000046a0  20 31 3a 20 74 31 24 3d  22 4d 61 69 6c 48 45 22  | 1: t1$="MailHE"|
000046b0  0d 18 c4 18 20 20 20 c9  20 32 3a 20 74 31 24 3d  |....   . 2: t1$=|
000046c0  22 4d 61 69 6c 48 46 22  0d 18 ce 18 20 20 20 c9  |"MailHF"....   .|
000046d0  20 33 3a 20 74 31 24 3d  22 4d 61 69 6c 48 47 22  | 3: t1$="MailHG"|
000046e0  0d 18 d8 18 20 20 20 c9  20 34 3a 20 74 31 24 3d  |....   . 4: t1$=|
000046f0  22 4d 61 69 6c 48 48 22  0d 18 e2 18 20 20 20 c9  |"MailHH"....   .|
00004700  20 35 3a 20 74 31 24 3d  22 4d 61 69 6c 48 49 22  | 5: t1$="MailHI"|
00004710  0d 18 ec 0b 20 20 20 c9  20 36 3a 0d 18 f6 2f 20  |....   . 6:.../ |
00004720  20 20 20 e7 20 6e 65 77  42 6f 6e 67 20 8c 20 74  |   . newBong . t|
00004730  31 24 3d 22 4d 61 69 6c  48 4a 22 20 8b 20 74 31  |1$="MailHJ" . t1|
00004740  24 3d 22 4d 61 69 6c 48  4b 22 0d 19 00 0f 20 20  |$="MailHK"....  |
00004750  20 7f 3a 20 74 24 3d 22  22 0d 19 0a 07 20 20 cb  | .: t$=""....  .|
00004760  0d 19 14 07 20 20 7f 0d  19 1e 3e 20 20 20 c8 99  |....  ....>   ..|
00004770  20 22 57 69 6d 70 5f 47  65 74 4d 65 6e 75 53 74  | "Wimp_GetMenuSt|
00004780  61 74 65 22 2c 20 31 2c  20 6d 65 6e 75 5f 62 75  |ate", 1, menu_bu|
00004790  66 66 65 72 25 2c 20 77  69 6e 64 6f 77 25 2c 20  |ffer%, window%, |
000047a0  69 63 6f 6e 25 0d 19 28  1a 20 20 20 c8 8e 20 6d  |icon%..(.   .. m|
000047b0  65 6e 75 5f 62 75 66 66  65 72 25 21 30 20 ca 0d  |enu_buffer%!0 ..|
000047c0  19 32 18 20 20 20 20 c9  20 30 3a 20 74 24 3d 22  |.2.    . 0: t$="|
000047d0  4d 61 69 6c 48 4c 22 0d  19 3c 18 20 20 20 20 c9  |MailHL"..<.    .|
000047e0  20 31 3a 20 74 24 3d 22  4d 61 69 6c 48 4d 22 0d  | 1: t$="MailHM".|
000047f0  19 46 18 20 20 20 20 c9  20 32 3a 20 74 24 3d 22  |.F.    . 2: t$="|
00004800  4d 61 69 6c 48 4e 22 0d  19 50 18 20 20 20 20 c9  |MailHN"..P.    .|
00004810  20 33 3a 20 74 24 3d 22  4d 61 69 6c 48 4f 22 0d  | 3: t$="MailHO".|
00004820  19 5a 18 20 20 20 20 c9  20 34 3a 20 74 24 3d 22  |.Z.    . 4: t$="|
00004830  4d 61 69 6c 48 50 22 0d  19 64 08 20 20 20 cb 0d  |MailHP"..d.   ..|
00004840  19 6e 04 0d 19 78 05 cb  0d 19 82 67 e7 20 74 24  |.n...x.....g. t$|
00004850  20 3c 3e 20 22 22 20 80  20 74 31 24 3c 3e 22 22  | <> "" . t1$<>""|
00004860  20 8c 20 24 74 6f 25 3d  a4 67 65 74 5f 6d 65 73  | . $to%=.get_mes|
00004870  73 61 67 65 28 74 24 29  2b a4 67 65 74 5f 6d 65  |sage(t$)+.get_me|
00004880  73 73 61 67 65 28 74 31  24 29 20 8b 20 e7 20 74  |ssage(t1$) . . t|
00004890  24 20 3c 3e 20 22 22 20  8c 20 24 74 6f 25 3d a4  |$ <> "" . $to%=.|
000048a0  67 65 74 5f 6d 65 73 73  61 67 65 28 74 24 29 0d  |get_message(t$).|
000048b0  19 8c 10 3d 74 6f 25 2b  a9 28 24 74 6f 25 29 0d  |...=to%+.($to%).|
000048c0  19 96 04 0d 19 a0 2d dd  f2 6e 6f 74 65 42 75 66  |......-..noteBuf|
000048d0  66 65 72 73 28 77 69 6e  64 6f 77 25 2c 20 6c 6f  |fers(window%, lo|
000048e0  25 2c 20 68 69 25 2c 20  f8 20 74 6f 25 28 29 29  |%, hi%, . to%())|
000048f0  0d 19 aa 0c 20 ea 20 69  63 6f 6e 25 0d 19 b4 18  |.... . icon%....|
00004900  20 69 63 6f 6e 49 6e 66  6f 25 21 30 3d 77 69 6e  | iconInfo%!0=win|
00004910  64 6f 77 25 0d 19 be 5f  20 e3 20 69 63 6f 6e 25  |dow%..._ . icon%|
00004920  3d 6c 6f 25 20 b8 20 68  69 25 3a 69 63 6f 6e 49  |=lo% . hi%:iconI|
00004930  6e 66 6f 25 21 34 3d 69  63 6f 6e 25 3a c8 99 73  |nfo%!4=icon%:..s|
00004940  5f 67 65 74 69 69 6e 66  6f 25 2c 2c 69 63 6f 6e  |_getiinfo%,,icon|
00004950  49 6e 66 6f 25 3a 74 6f  25 28 69 63 6f 6e 25 2d  |Info%:to%(icon%-|
00004960  6c 6f 25 29 3d 69 63 6f  6e 49 6e 66 6f 25 21 32  |lo%)=iconInfo%!2|
00004970  38 3a ed 0d 19 c8 05 e1  0d 19 d2 04 0d 19 dc 19  |8:..............|
00004980  dd a4 62 75 66 66 4c 65  6e 67 74 68 28 62 75 66  |..buffLength(buf|
00004990  66 65 72 25 29 0d 19 e6  09 20 ea 20 6c 25 0d 19  |fer%).... . l%..|
000049a0  f0 42 20 e3 20 6c 25 3d  30 b8 32 35 35 3a e7 62  |.B . l%=0.255:.b|
000049b0  75 66 66 65 72 25 3f 6c  25 3d 31 33 20 84 20 62  |uffer%?l%=13 . b|
000049c0  75 66 66 65 72 25 3f 6c  25 3d 31 30 20 84 20 62  |uffer%?l%=10 . b|
000049d0  75 66 66 65 72 25 3f 6c  25 3d 30 20 8c 3d 6c 25  |uffer%?l%=0 .=l%|
000049e0  0d 19 fa 06 20 ed 0d 1a  04 08 3d 32 35 35 0d 1a  |.... .....=255..|
000049f0  0e 04 0d 1a 18 3c dd a4  74 6f 43 74 72 6c 28 66  |.....<..toCtrl(f|
00004a00  72 6f 6d 25 2c 20 74 6f  25 29 20 3a f4 20 7c 4d  |rom%, to%) :. |M|
00004a10  20 2d 3e 20 63 68 2e 63  6f 64 65 20 31 33 2c 20  | -> ch.code 13, |
00004a20  72 65 74 75 72 6e 73 20  6c 65 6e 67 74 68 0d 1a  |returns length..|
00004a30  22 17 20 ea 20 66 25 2c  74 25 3a 66 25 3d 30 3a  |". . f%,t%:f%=0:|
00004a40  74 25 3d 2d 31 0d 1a 2c  06 20 f5 0d 1a 36 65 20  |t%=-1..,. ...6e |
00004a50  74 25 2b 3d 31 3a e7 66  72 6f 6d 25 3f 66 25 3d  |t%+=1:.from%?f%=|
00004a60  97 22 7c 22 80 28 66 72  6f 6d 25 3f 28 66 25 2b  |."|".(from%?(f%+|
00004a70  31 29 3d 97 22 4d 22 84  66 72 6f 6d 25 3f 28 66  |1)=."M".from%?(f|
00004a80  25 2b 31 29 3d 97 22 6d  22 29 8c 74 6f 25 3f 74  |%+1)=."m").to%?t|
00004a90  25 3d 31 33 3a 66 25 2b  3d 32 8b 74 6f 25 3f 74  |%=13:f%+=2.to%?t|
00004aa0  25 3d 66 72 6f 6d 25 3f  66 25 3a 66 25 2b 3d 31  |%=from%?f%:f%+=1|
00004ab0  0d 1a 40 0f 20 fd 20 74  6f 25 3f 74 25 3d 30 0d  |..@. . to%?t%=0.|
00004ac0  1a 4a 07 3d 74 25 0d 1a  54 04 0d 1a 5e 24 dd f2  |.J.=t%..T...^$..|
00004ad0  72 65 67 69 73 74 65 72  43 68 6f 69 63 65 73 28  |registerChoices(|
00004ae0  63 68 65 63 6b 25 2c 20  6b 65 65 70 25 29 0d 1a  |check%, keep%)..|
00004af0  68 12 20 ea 20 69 25 2c  20 6c 65 6e 67 74 68 25  |h. . i%, length%|
00004b00  0d 1a 72 14 20 e3 20 69  25 3d 30 b8 6d 61 78 56  |..r. . i%=0.maxV|
00004b10  61 72 73 25 0d 1a 7c 2d  20 20 6c 65 6e 67 74 68  |ars%..|-  length|
00004b20  25 3d a4 66 72 6f 6d 43  74 72 6c 32 28 63 68 6f  |%=.fromCtrl2(cho|
00004b30  69 63 65 25 28 69 25 29  2c 62 75 66 66 65 72 25  |ice%(i%),buffer%|
00004b40  29 0d 1a 86 1e 20 20 e7  20 6c 65 6e 67 74 68 25  |)....  . length%|
00004b50  3d 30 20 8c 20 6c 65 6e  67 74 68 25 3d 2d 31 0d  |=0 . length%=-1.|
00004b60  1a 90 34 20 20 c8 99 20  73 5f 73 65 74 76 61 72  |..4  .. s_setvar|
00004b70  25 2c 76 61 72 6e 61 6d  65 73 24 28 69 25 29 2c  |%,varnames$(i%),|
00004b80  62 75 66 66 65 72 25 2c  6c 65 6e 67 74 68 25 2c  |buffer%,length%,|
00004b90  30 2c 30 0d 1a 9a 06 20  ed 0d 1a a4 3a 20 f2 73  |0,0.... ....: .s|
00004ba0  65 74 4d 61 69 6c 53 6f  75 72 63 65 3a e7 20 63  |etMailSource:. c|
00004bb0  68 65 63 6b 25 20 f2 63  68 65 63 6b 4d 61 69 6c  |heck% .checkMail|
00004bc0  53 6f 75 72 63 65 3a 62  6f 6e 67 3d 6e 65 77 42  |Source:bong=newB|
00004bd0  6f 6e 67 0d 1a ae 0f 20  f2 6e 6f 74 65 53 63 72  |ong.... .noteScr|
00004be0  61 70 0d 1a b8 20 20 e7  20 ac 6b 65 65 70 25 20  |ap...  . .keep% |
00004bf0  8c 20 c8 99 20 73 5f 63  72 6d 65 6e 75 25 2c 2c  |. .. s_crmenu%,,|
00004c00  2d 31 0d 1a c2 05 e1 0d  1a cc 04 0d 1a d6 3c dd  |-1............<.|
00004c10  a4 66 72 6f 6d 43 74 72  6c 32 28 66 72 6f 6d 25  |.fromCtrl2(from%|
00004c20  2c 20 74 6f 25 29 20 3a  f4 20 6d 61 6b 65 20 73  |, to%) :. make s|
00004c30  74 72 69 6e 67 20 73 75  69 74 61 62 6c 65 20 66  |tring suitable f|
00004c40  6f 72 20 2a 53 65 74 0d  1a e0 1b 20 ea 20 66 25  |or *Set.... . f%|
00004c50  2c 74 25 2c 63 25 3a 66  25 3d 2d 31 3a 74 25 3d  |,t%,c%:f%=-1:t%=|
00004c60  2d 31 0d 1a ea 13 20 20  f5 3a 66 25 2b 3d 31 3a  |-1....  .:f%+=1:|
00004c70  74 25 2b 3d 31 0d 1a f4  14 20 20 20 c8 8e 20 66  |t%+=1....   .. f|
00004c80  72 6f 6d 25 3f 66 25 20  ca 0d 1a fe 3f 20 20 20  |rom%?f% ....?   |
00004c90  20 c9 20 97 22 7c 22 3a  e7 20 28 66 72 6f 6d 25  | . ."|":. (from%|
00004ca0  3f 28 66 25 2b 31 29 20  80 20 26 44 46 29 3c 3e  |?(f%+1) . &DF)<>|
00004cb0  97 22 4d 22 20 8c 20 74  6f 25 3f 74 25 3d 97 22  |."M" . to%?t%=."|
00004cc0  7c 22 3a 74 25 2b 3d 31  0d 1b 08 23 20 20 20 20  ||":t%+=1...#    |
00004cd0  20 20 20 20 20 20 20 20  20 20 20 20 74 6f 25 3f  |            to%?|
00004ce0  74 25 3d 66 72 6f 6d 25  3f 66 25 0d 1b 12 30 20  |t%=from%?f%...0 |
00004cf0  20 20 20 c9 20 97 22 3c  22 3a 74 6f 25 3f 74 25  |   . ."<":to%?t%|
00004d00  3d 97 22 7c 22 3a 74 25  2b 3d 31 3a 74 6f 25 3f  |=."|":t%+=1:to%?|
00004d10  74 25 3d 66 72 6f 6d 25  3f 66 25 0d 1b 1c 19 20  |t%=from%?f%.... |
00004d20  20 20 20 7f 3a 74 6f 25  3f 74 25 3d 66 72 6f 6d  |   .:to%?t%=from|
00004d30  25 3f 66 25 0d 1b 26 08  20 20 20 cb 0d 1b 30 11  |%?f%..&.   ...0.|
00004d40  20 20 fd 66 72 6f 6d 25  3f 66 25 3d 30 0d 1b 3a  |  .from%?f%=0..:|
00004d50  22 3d 20 74 25 2b 31 20  3a 20 f4 20 69 6e 63 6c  |"= t%+1 : . incl|
00004d60  75 64 65 73 20 74 65 72  6d 69 6e 61 74 6f 72 0d  |udes terminator.|
00004d70  1b 44 04 0d 1b 4e 11 dd  f2 73 61 76 65 43 68 6f  |.D...N...saveCho|
00004d80  69 63 65 73 0d 1b 58 4b  20 ea 20 69 25 2c 66 69  |ices..XK . i%,fi|
00004d90  6c 65 25 2c 76 61 6c 75  65 24 3a ea 20 85 3a ee  |le%,value$:. .:.|
00004da0  85 20 ea 20 69 6e 74 65  72 6e 61 6c 25 3d a3 3a  |. . internal%=.:|
00004db0  d9 23 66 69 6c 65 25 3a  f2 65 72 72 6f 72 62 6f  |.#file%:.errorbo|
00004dc0  78 3a 69 6e 74 65 72 6e  61 6c 25 3d b9 3a e1 0d  |x:internal%=.:..|
00004dd0  1b 62 2c 20 66 69 6c 65  25 3d 30 3a 66 69 6c 65  |.b, file%=0:file|
00004de0  25 3d ae 22 3c 4d 61 69  6c 4d 61 6e 24 44 69 72  |%=."<MailMan$Dir|
00004df0  3e 2e 21 43 68 6f 69 63  65 73 22 0d 1b 6c 14 20  |>.!Choices"..l. |
00004e00  e3 20 69 25 3d 30 b8 6d  61 78 56 61 72 73 25 0d  |. i%=0.maxVars%.|
00004e10  1b 76 60 20 20 6c 65 6e  67 74 68 25 3d a4 72 65  |.v`  length%=.re|
00004e20  61 64 56 61 72 28 69 25  2c 62 75 66 66 65 72 25  |adVar(i%,buffer%|
00004e30  2c 32 35 36 29 3a f2 66  72 6f 6d 43 74 72 6c 28  |,256):.fromCtrl(|
00004e40  62 75 66 66 65 72 25 2c  20 63 68 6f 69 63 65 25  |buffer%, choice%|
00004e50  28 69 25 29 29 3a 76 61  6c 75 65 24 3d a4 72 74  |(i%)):value$=.rt|
00004e60  6f 7a 28 63 68 6f 69 63  65 25 28 69 25 29 29 0d  |oz(choice%(i%)).|
00004e70  1b 80 35 20 20 e7 20 76  61 6c 75 65 24 20 3c 3e  |..5  . value$ <>|
00004e80  20 22 22 20 8c 20 d5 23  66 69 6c 65 25 2c 69 25  | "" . .#file%,i%|
00004e90  2b 97 22 30 22 3a d5 23  66 69 6c 65 25 2c 76 61  |+."0":.#file%,va|
00004ea0  6c 75 65 24 0d 1b 8a 06  20 ed 0d 1b 94 29 20 e7  |lue$.... ....) .|
00004eb0  20 62 6f 6e 67 20 8c 20  d5 23 66 69 6c 65 25 2c  | bong . .#file%,|
00004ec0  97 22 39 22 3a d5 23 66  69 6c 65 25 2c 22 42 6f  |."9":.#file%,"Bo|
00004ed0  6e 67 22 0d 1b 9e 0c 20  d9 23 66 69 6c 65 25 0d  |ng".... .#file%.|
00004ee0  1b a8 2b 20 ff 22 53 65  74 74 79 70 65 20 3c 4d  |..+ ."Settype <M|
00004ef0  61 69 6c 4d 61 6e 24 44  69 72 3e 2e 21 43 68 6f  |ailMan$Dir>.!Cho|
00004f00  69 63 65 73 20 44 61 74  61 22 0d 1b b2 05 e1 0d  |ices Data"......|
00004f10  1b bc 04 0d 1b c6 45 dd  f2 66 72 6f 6d 43 74 72  |......E..fromCtr|
00004f20  6c 28 66 72 6f 6d 25 2c  20 74 6f 25 29 20 3a f4  |l(from%, to%) :.|
00004f30  20 63 6f 6e 74 72 6f 6c  20 63 6f 64 65 73 20 73  | control codes s|
00004f40  74 72 69 70 70 65 64 2c  20 65 78 63 65 70 74 20  |tripped, except |
00004f50  31 33 20 3d 3e 20 7c 4d  0d 1b d0 18 20 ea 20 66  |13 => |M.... . f|
00004f60  25 2c 74 25 3a 66 25 3d  2d 31 3a 74 25 3d 2d 31  |%,t%:f%=-1:t%=-1|
00004f70  0d 1b da 4e 20 20 f5 3a  66 25 2b 3d 31 3a 74 25  |...N  .:f%+=1:t%|
00004f80  2b 3d 31 3a e7 66 72 6f  6d 25 3f 66 25 3d 31 33  |+=1:.from%?f%=13|
00004f90  8c 74 6f 25 3f 74 25 3d  97 22 7c 22 3a 74 25 2b  |.to%?t%=."|":t%+|
00004fa0  3d 31 3a 74 6f 25 3f 74  25 3d 97 22 4d 22 8b 74  |=1:to%?t%=."M".t|
00004fb0  6f 25 3f 74 25 3d 66 72  6f 6d 25 3f 66 25 0d 1b  |o%?t%=from%?f%..|
00004fc0  e4 47 20 20 20 20 e7 20  74 6f 25 3f 74 25 3c 33  |.G    . to%?t%<3|
00004fd0  32 20 8c 20 74 25 2d 3d  31 20 3a 20 f4 20 73 74  |2 . t%-=1 : . st|
00004fe0  72 69 70 20 63 6f 6e 74  72 6f 6c 20 63 6f 64 65  |rip control code|
00004ff0  73 20 28 74 25 20 69 67  6e 6f 72 65 64 20 61 74  |s (t% ignored at|
00005000  20 65 6e 64 29 0d 1b ee  11 20 20 fd 66 72 6f 6d  | end)....  .from|
00005010  25 3f 66 25 3d 30 0d 1b  f8 05 e1 0d 1c 02 04 0d  |%?f%=0..........|
00005020  1c 0c 13 dd f2 66 69 6c  6c 49 6e 43 68 6f 69 63  |.....fillInChoic|
00005030  65 73 0d 1c 16 12 20 ea  20 6c 65 6e 67 74 68 25  |es.... . length%|
00005040  2c 20 69 25 0d 1c 20 14  20 e3 20 69 25 3d 30 b8  |, i%.. . . i%=0.|
00005050  6d 61 78 56 61 72 73 25  0d 1c 2a 46 20 20 6c 65  |maxVars%..*F  le|
00005060  6e 67 74 68 25 3d a4 72  65 61 64 56 61 72 28 69  |ngth%=.readVar(i|
00005070  25 2c 62 75 66 66 65 72  25 2c 32 35 36 29 3a f2  |%,buffer%,256):.|
00005080  66 72 6f 6d 43 74 72 6c  28 62 75 66 66 65 72 25  |fromCtrl(buffer%|
00005090  2c 20 63 68 6f 69 63 65  25 28 69 25 29 29 0d 1c  |, choice%(i%))..|
000050a0  34 06 20 ed 0d 1c 3e 05  e1 0d 1c 48 04 0d 1c 52  |4. ...>....H...R|
000050b0  13 dd f2 73 65 74 4d 61  69 6c 53 6f 75 72 63 65  |...setMailSource|
000050c0  0d 1c 5c 26 20 43 25 3d  a4 72 65 61 64 56 61 72  |..\& C%=.readVar|
000050d0  28 73 6f 75 72 63 65 2c  20 62 75 66 66 65 72 25  |(source, buffer%|
000050e0  2c 20 32 35 36 29 0d 1c  66 57 20 e7 20 43 25 3d  |, 256)..fW . C%=|
000050f0  30 20 8c 20 6d 6e 61 6d  65 24 3d 22 6e 65 74 3a  |0 . mname$="net:|
00005100  26 2e 6d 61 69 6c 2e 49  6e 74 72 61 79 22 3a f2  |&.mail.Intray":.|
00005110  73 65 74 56 61 72 28 73  6f 75 72 63 65 2c 6d 6e  |setVar(source,mn|
00005120  61 6d 65 24 29 20 8b 20  6d 6e 61 6d 65 24 3d a4  |ame$) . mname$=.|
00005130  72 74 6f 7a 28 62 75 66  66 65 72 25 29 0d 1c 70  |rtoz(buffer%)..p|
00005140  3e 20 43 25 3d a7 6d 6e  61 6d 65 24 2c 22 3a 22  |> C%=.mname$,":"|
00005150  29 3a e7 c1 6d 6e 61 6d  65 24 2c 43 25 2b 31 2c  |):..mname$,C%+1,|
00005160  31 29 3d 22 3a 22 20 43  25 3d a7 6d 6e 61 6d 65  |1)=":" C%=.mname|
00005170  24 2c 22 2e 22 2c 43 25  2b 31 29 0d 1c 7a 17 20  |$,".",C%+1)..z. |
00005180  66 6e 61 6d 65 24 3d c0  6d 6e 61 6d 65 24 2c 43  |fname$=.mname$,C|
00005190  25 29 0d 1c 84 1a 20 43  25 3d a7 6d 6e 61 6d 65  |%).... C%=.mname|
000051a0  24 2c 22 2e 49 6e 74 72  61 79 22 29 0d 1c 8e 3e  |$,".Intray")...>|
000051b0  20 e7 20 43 25 3d 30 20  8c 20 6e 66 73 6e 61 6d  | . C%=0 . nfsnam|
000051c0  65 24 3d 66 6e 61 6d 65  24 2b 22 24 2e 4d 61 69  |e$=fname$+"$.Mai|
000051d0  6c 2e 22 20 8b 20 6e 66  73 6e 61 6d 65 24 3d c0  |l." . nfsname$=.|
000051e0  6d 6e 61 6d 65 24 2c 43  25 29 0d 1c 98 23 20 6d  |mname$,C%)...# m|
000051f0  61 69 6c 67 75 61 72 64  24 3d 6e 66 73 6e 61 6d  |ailguard$=nfsnam|
00005200  65 24 2b 22 4d 5f 41 43  54 49 56 45 22 0d 1c a2  |e$+"M_ACTIVE"...|
00005210  1d 20 6d 61 69 6c 74 24  3d 6e 66 73 6e 61 6d 65  |. mailt$=nfsname|
00005220  24 2b 22 4d 5f 43 54 4d  50 22 0d 1c ac 0f 20 6e  |$+"M_CTMP".... n|
00005230  66 73 66 6c 61 67 25 3d  30 0d 1c b6 16 20 43 25  |fsflag%=0.... C%|
00005240  3d a7 66 6e 61 6d 65 24  2c 22 6e 66 73 22 29 0d  |=.fname$,"nfs").|
00005250  1c c0 0d 20 e7 20 43 25  3d 31 20 8c 0d 1c ca 10  |... . C%=1 .....|
00005260  20 20 6e 66 73 66 6c 61  67 25 3d 31 0d 1c d4 1e  |  nfsflag%=1....|
00005270  20 20 c8 99 20 73 5f 66  69 6c 65 25 2c 35 2c 6d  |  .. s_file%,5,m|
00005280  61 69 6c 74 24 20 b8 20  72 30 0d 1c de 24 20 20  |ailt$ . r0...$  |
00005290  e7 20 72 30 3c 3e 30 20  8c 20 c8 99 20 73 5f 78  |. r0<>0 . .. s_x|
000052a0  66 69 6c 65 25 2c 36 2c  6d 61 69 6c 74 24 0d 1c  |file%,6,mailt$..|
000052b0  e8 06 20 cd 0d 1c f2 12  20 f2 63 68 65 63 6b 5f  |.. ..... .check_|
000052c0  61 63 63 65 73 73 0d 1c  fc 05 e1 0d 1d 06 04 0d  |access..........|
000052d0  1d 10 04 0d 1d 1a 13 dd  20 f2 63 68 65 63 6b 5f  |........ .check_|
000052e0  61 63 63 65 73 73 0d 1d  24 3e 20 f4 20 46 69 78  |access..$> . Fix|
000052f0  20 4d 4d 2d 30 30 30 31  20 2d 20 63 68 65 63 6b  | MM-0001 - check|
00005300  20 66 6f 72 20 70 75 62  6c 69 63 20 77 72 69 74  | for public writ|
00005310  65 20 61 63 63 65 73 73  20 6f 6e 20 6d 61 69 6c  |e access on mail|
00005320  20 62 6f 78 0d 1d 2e 04  0d 1d 38 34 20 c8 99 20  | box......84 .. |
00005330  22 58 4f 53 5f 46 69 6c  65 22 2c 20 35 2c 20 6d  |"XOS_File", 5, m|
00005340  6e 61 6d 65 24 20 b8 20  74 79 70 65 25 2c 2c 2c  |name$ . type%,,,|
00005350  2c 2c 61 74 74 72 25 20  3b 20 66 25 0d 1d 42 04  |,,attr% ; f%..B.|
00005360  0d 1d 4c 11 20 e7 20 28  66 25 20 80 20 31 29 20  |..L. . (f% . 1) |
00005370  8c 0d 1d 56 41 20 20 20  20 20 c8 99 20 22 57 69  |...VA     .. "Wi|
00005380  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00005390  20 74 79 70 65 25 2c 20  31 2c 20 a4 67 65 74 5f  | type%, 1, .get_|
000053a0  6d 65 73 73 61 67 65 20  28 22 4d 61 69 6c 30 30  |message ("Mail00|
000053b0  22 29 0d 1d 60 0a 20 20  20 20 20 e1 0d 1d 6a 06  |")..`.     ...j.|
000053c0  20 cd 0d 1d 74 04 0d 1d  7e 14 20 e7 20 28 74 79  | ...t...~. . (ty|
000053d0  70 65 25 20 3d 20 30 29  20 8c 0d 1d 88 21 20 20  |pe% = 0) ....!  |
000053e0  20 20 20 f2 72 65 70 6f  72 74 20 28 32 30 30 37  |   .report (2007|
000053f0  2c 20 22 4d 61 69 6c 45  4c 22 29 0d 1d 92 06 20  |, "MailEL").... |
00005400  cc 0d 1d 9c 16 20 20 e7  20 28 74 79 70 65 25 20  |.....  . (type% |
00005410  3c 3e 20 31 29 20 8c 0d  1d a6 22 20 20 20 20 20  |<> 1) ...."     |
00005420  20 f2 72 65 70 6f 72 74  20 28 32 30 30 35 2c 20  | .report (2005, |
00005430  22 4d 61 69 6c 45 4b 22  29 0d 1d b0 07 20 20 cc  |"MailEK")....  .|
00005440  0d 1d ba 22 20 20 20 e7  20 28 28 61 74 74 72 25  |..."   . ((attr%|
00005450  20 80 20 25 31 30 30 30  30 30 29 20 3d 20 30 29  | . %100000) = 0)|
00005460  20 8c 0d 1d c4 22 20 20  20 20 20 20 f2 72 65 70  | ...."      .rep|
00005470  6f 72 74 20 28 32 30 30  36 2c 20 22 4d 61 69 6c  |ort (2006, "Mail|
00005480  45 4a 22 29 0d 1d ce 08  20 20 20 cd 0d 1d d8 07  |EJ")....   .....|
00005490  20 20 cd 0d 1d e2 06 20  cd 0d 1d ec 05 e1 0d 1d  |  ..... ........|
000054a0  f6 04 0d 1e 00 15 dd f2  63 68 65 63 6b 4d 61 69  |........checkMai|
000054b0  6c 53 6f 75 72 63 65 0d  1e 0a 1a 20 ea 20 66 6c  |lSource.... . fl|
000054c0  61 67 73 25 2c 20 65 78  69 73 74 73 25 3a ea 20  |ags%, exists%:. |
000054d0  85 0d 1e 14 2d 20 ee 85  20 ea 20 69 6e 74 65 72  |....- .. . inter|
000054e0  6e 61 6c 25 3d a3 3a f2  65 72 72 6f 72 62 6f 78  |nal%=.:.errorbox|
000054f0  3a 69 6e 74 65 72 6e 61  6c 25 3d b9 3a e1 0d 1e  |:internal%=.:...|
00005500  1e 22 20 c8 99 20 73 5f  66 69 6c 65 25 2c 35 2c  |." .. s_file%,5,|
00005510  6d 6e 61 6d 65 24 20 b8  20 65 78 69 73 74 73 25  |mname$ . exists%|
00005520  0d 1e 28 29 20 e7 20 65  78 69 73 74 73 25 3d 30  |..() . exists%=0|
00005530  20 8c 20 f2 72 65 70 6f  72 74 28 32 30 30 34 2c  | . .report(2004,|
00005540  22 4d 61 69 6c 47 32 22  29 0d 1e 32 05 e1 0d 1e  |"MailG2")..2....|
00005550  3c 04 0d 1e 46 17 dd a4  63 72 65 61 74 65 54 72  |<...F...createTr|
00005560  65 65 28 6e 61 6d 65 24  29 0d 1e 50 47 20 f4 20  |ee(name$)..PG . |
00005570  52 65 63 75 72 73 69 76  65 6c 79 20 73 74 72 69  |Recursively stri|
00005580  70 20 6c 65 61 66 20 6f  66 66 2c 20 74 65 73 74  |p leaf off, test|
00005590  20 66 6f 72 20 65 78 69  73 74 65 6e 63 65 20 61  | for existence a|
000055a0  6e 64 20 74 72 79 20 74  6f 20 63 72 65 61 74 65  |nd try to create|
000055b0  0d 1e 5a 2b 20 ea 20 69  25 2c 20 72 6f 6f 74 24  |..Z+ . i%, root$|
000055c0  2c 20 65 78 69 73 74 73  25 2c 20 66 6c 61 67 73  |, exists%, flags|
000055d0  25 2c 20 6d 69 64 24 3a  ea 20 85 0d 1e 64 16 20  |%, mid$:. ...d. |
000055e0  ee 85 20 ea 20 f2 65 72  72 6f 72 62 6f 78 3a 3d  |.. . .errorbox:=|
000055f0  a3 0d 1e 6e 19 20 e3 20  69 25 3d a9 6e 61 6d 65  |...n. . i%=.name|
00005600  24 20 b8 20 31 20 88 20  2d 31 0d 1e 78 17 20 20  |$ . 1 . -1..x.  |
00005610  6d 69 64 24 3d c1 6e 61  6d 65 24 2c 69 25 2c 31  |mid$=.name$,i%,1|
00005620  29 0d 1e 82 12 20 20 e7  20 6d 69 64 24 3d 22 2e  |)....  . mid$=".|
00005630  22 20 8c 0d 1e 8c 19 20  20 20 72 6f 6f 74 24 3d  |" .....   root$=|
00005640  c0 6e 61 6d 65 24 2c 69  25 2d 31 29 0d 1e 96 31  |.name$,i%-1)...1|
00005650  20 20 20 c8 99 73 5f 66  69 6c 65 25 2c 35 2c 72  |   ..s_file%,5,r|
00005660  6f 6f 74 24 20 b8 20 65  78 69 73 74 73 25 3a e7  |oot$ . exists%:.|
00005670  20 65 78 69 73 74 73 25  20 8c 20 3d b9 0d 1e a0  | exists% . =....|
00005680  53 20 20 20 c8 99 73 5f  63 6c 69 25 2c 22 63 64  |S   ..s_cli%,"cd|
00005690  69 72 20 22 2b 72 6f 6f  74 24 20 b8 20 3b 66 6c  |ir "+root$ . ;fl|
000056a0  61 67 73 25 3a e7 20 28  66 6c 61 67 73 25 20 80  |ags%:. (flags% .|
000056b0  20 31 29 3d 31 20 8c 20  3d a4 63 72 65 61 74 65  | 1)=1 . =.create|
000056c0  54 72 65 65 28 72 6f 6f  74 24 29 20 8b 20 3d b9  |Tree(root$) . =.|
000056d0  0d 1e aa 07 20 20 cc 0d  1e b4 2c 20 20 20 e7 20  |....  ....,   . |
000056e0  6d 69 64 24 3d 22 26 22  20 84 20 6d 69 64 24 3d  |mid$="&" . mid$=|
000056f0  22 24 22 20 84 20 6d 69  64 24 3d 22 3a 22 20 8c  |"$" . mid$=":" .|
00005700  20 3d a3 0d 1e be 07 20  20 cd 0d 1e c8 06 20 ed  | =.....  ..... .|
00005710  0d 1e d2 06 3d a3 0d 1e  dc 04 0d 1e e6 1f dd f2  |....=...........|
00005720  73 65 74 46 69 6c 65 28  62 75 66 66 65 72 25 2c  |setFile(buffer%,|
00005730  69 25 2c 6c 65 61 66 24  29 0d 1e f0 28 20 ea 20  |i%,leaf$)...( . |
00005740  6c 65 6e 67 74 68 25 2c  20 6e 61 6d 65 24 2c 20  |length%, name$, |
00005750  74 65 6d 70 25 3a de 20  74 65 6d 70 25 20 32 35  |temp%:. temp% 25|
00005760  36 0d 1e fa 23 20 6c 65  6e 67 74 68 25 3d a4 72  |6...# length%=.r|
00005770  65 61 64 56 61 72 28 69  25 2c 74 65 6d 70 25 2c  |eadVar(i%,temp%,|
00005780  32 35 36 29 0d 1f 04 6a  20 e7 20 6c 65 6e 67 74  |256)...j . lengt|
00005790  68 25 3d 30 20 8c 20 6e  61 6d 65 24 3d a4 72 74  |h%=0 . name$=.rt|
000057a0  6f 7a 28 62 75 66 66 65  72 25 29 2b 6c 65 61 66  |oz(buffer%)+leaf|
000057b0  24 2b bd 30 3a f2 73 65  74 56 61 72 28 69 25 2c  |$+.0:.setVar(i%,|
000057c0  6e 61 6d 65 24 29 3a 24  63 68 6f 69 63 65 25 28  |name$):$choice%(|
000057d0  69 25 29 3d 6e 61 6d 65  24 3a 63 68 6f 69 63 65  |i%)=name$:choice|
000057e0  25 28 69 25 29 3f a9 6e  61 6d 65 24 3d 30 0d 1f  |%(i%)?.name$=0..|
000057f0  0e 05 e1 0d 1f 18 04 0d  1f 22 0f dd f2 6e 6f 74  |........."...not|
00005800  65 53 63 72 61 70 0d 1f  2c 4c 20 c8 99 73 5f 72  |eScrap..,L ..s_r|
00005810  65 61 64 76 61 72 25 2c  22 4d 61 69 6c 24 53 63  |eadvar%,"Mail$Sc|
00005820  72 61 70 22 2c 62 75 66  66 65 72 25 2c 32 35 36  |rap",buffer%,256|
00005830  2c 30 2c 33 20 b8 20 2c  2c 73 63 72 61 70 43 25  |,0,3 . ,,scrapC%|
00005840  3a 62 75 66 66 65 72 25  3f 73 63 72 61 70 43 25  |:buffer%?scrapC%|
00005850  3d 30 0d 1f 36 38 20 e7  20 73 63 72 61 70 43 25  |=0..68 . scrapC%|
00005860  3d 30 20 8c 20 73 63 72  61 70 43 25 3d a4 72 65  |=0 . scrapC%=.re|
00005870  61 64 56 61 72 28 63 75  72 72 65 6e 74 2c 62 75  |adVar(current,bu|
00005880  66 66 65 72 25 2c 32 35  36 29 0d 1f 40 34 20 e7  |ffer%,256)..@4 .|
00005890  20 73 63 72 61 70 43 25  3d 30 20 8c 20 73 63 72  | scrapC%=0 . scr|
000058a0  61 70 24 3d 22 22 20 8b  20 73 63 72 61 70 24 3d  |ap$="" . scrap$=|
000058b0  a4 72 74 6f 7a 28 62 75  66 66 65 72 25 29 0d 1f  |.rtoz(buffer%)..|
000058c0  4a 05 e1 0d 1f 54 04 0d  1f 5e 11 dd f2 72 65 61  |J....T...^...rea|
000058d0  64 43 68 6f 69 63 65 73  0d 1f 68 23 20 ea 20 69  |dChoices..h# . i|
000058e0  25 2c 66 69 6c 65 25 2c  76 61 72 6e 61 6d 65 24  |%,file%,varname$|
000058f0  2c 76 61 6c 75 65 24 3a  ea 20 85 0d 1f 72 35 20  |,value$:. ...r5 |
00005900  ee 85 20 ea 20 69 6e 74  65 72 6e 61 6c 25 3d a3  |.. . internal%=.|
00005910  3a f2 65 72 72 6f 72 62  6f 78 3a 69 6e 74 65 72  |:.errorbox:inter|
00005920  6e 61 6c 25 3d b9 3a d9  23 66 69 6c 65 25 3a e1  |nal%=.:.#file%:.|
00005930  0d 1f 7c 2f 20 66 69 6c  65 25 3d 8e 22 3c 4d 61  |..|/ file%=."<Ma|
00005940  69 6c 4d 61 6e 24 44 69  72 3e 2e 21 43 68 6f 69  |ilMan$Dir>.!Choi|
00005950  63 65 73 22 3a e7 66 69  6c 65 25 3d 30 8c e1 0d  |ces":.file%=0...|
00005960  1f 86 11 20 c8 95 20 ac  20 c5 23 66 69 6c 65 25  |... .. . .#file%|
00005970  0d 1f 90 24 20 20 69 25  3d 9a 23 66 69 6c 65 25  |...$  i%=.#file%|
00005980  2d 97 22 30 22 3a 76 61  6c 75 65 24 3d be 23 66  |-."0":value$=.#f|
00005990  69 6c 65 25 0d 1f 9a 1c  20 20 e7 20 69 25 3e 3d  |ile%....  . i%>=|
000059a0  30 80 69 25 3c 3d 6d 61  78 56 61 72 73 25 20 8c  |0.i%<=maxVars% .|
000059b0  0d 1f a4 36 20 20 20 43  25 3d a4 72 65 61 64 56  |...6   C%=.readV|
000059c0  61 72 28 69 25 2c 30 2c  2d 31 29 3a e7 43 25 3d  |ar(i%,0,-1):.C%=|
000059d0  30 20 8c 20 f2 73 65 74  56 61 72 28 69 25 2c 76  |0 . .setVar(i%,v|
000059e0  61 6c 75 65 24 29 0d 1f  ae 07 20 20 cc 0d 1f b8  |alue$)....  ....|
000059f0  21 20 20 20 e7 69 25 3d  39 80 76 61 6c 75 65 24  |!   .i%=9.value$|
00005a00  3d 22 42 6f 6e 67 22 8c  62 6f 6e 67 3d b9 0d 1f  |="Bong".bong=...|
00005a10  c2 07 20 20 cd 0d 1f cc  06 20 ce 0d 1f d6 0c 20  |..  ..... ..... |
00005a20  d9 23 66 69 6c 65 25 0d  1f e0 05 e1 0d 1f ea 04  |.#file%.........|
00005a30  0d 1f f4 21 dd a4 72 65  61 64 56 61 72 28 76 61  |...!..readVar(va|
00005a40  72 25 2c 20 74 6f 25 2c  20 6d 61 78 42 75 66 25  |r%, to%, maxBuf%|
00005a50  29 0d 1f fe 0e 20 ea 20  6c 65 6e 67 74 68 25 0d  |).... . length%.|
00005a60  20 08 3d 20 c8 99 73 5f  72 65 61 64 76 61 72 25  | .= ..s_readvar%|
00005a70  2c 76 61 72 6e 61 6d 65  73 24 28 76 61 72 25 29  |,varnames$(var%)|
00005a80  2c 74 6f 25 2c 6d 61 78  42 75 66 25 2c 30 2c 33  |,to%,maxBuf%,0,3|
00005a90  20 b8 20 2c 2c 6c 65 6e  67 74 68 25 0d 20 12 22  | . ,,length%. ."|
00005aa0  20 e7 20 6d 61 78 42 75  66 25 3c 3e 2d 31 20 8c  | . maxBuf%<>-1 .|
00005ab0  20 74 6f 25 3f 6c 65 6e  67 74 68 25 3d 30 0d 20  | to%?length%=0. |
00005ac0  1c 0c 3d 6c 65 6e 67 74  68 25 0d 20 26 04 0d 20  |..=length%. &.. |
00005ad0  30 19 dd f2 73 65 74 56  61 72 28 76 61 72 25 2c  |0...setVar(var%,|
00005ae0  20 66 72 6f 6d 24 29 0d  20 3a 0b 20 ea 20 6c 65  | from$). :. . le|
00005af0  6e 25 0d 20 44 4b 20 24  62 75 66 66 65 72 32 25  |n%. DK $buffer2%|
00005b00  3d 66 72 6f 6d 24 3a 62  75 66 66 65 72 32 25 3f  |=from$:buffer2%?|
00005b10  28 a9 66 72 6f 6d 24 29  3d 30 3a 6c 65 6e 25 3d  |(.from$)=0:len%=|
00005b20  a4 66 72 6f 6d 43 74 72  6c 32 28 62 75 66 66 65  |.fromCtrl2(buffe|
00005b30  72 32 25 2c 62 75 66 66  65 72 33 25 29 0d 20 4e  |r2%,buffer3%). N|
00005b40  32 20 c8 99 73 5f 73 65  74 76 61 72 25 2c 76 61  |2 ..s_setvar%,va|
00005b50  72 6e 61 6d 65 73 24 28  76 61 72 25 29 2c 62 75  |rnames$(var%),bu|
00005b60  66 66 65 72 33 25 2c 6c  65 6e 25 2c 30 2c 30 0d  |ffer3%,len%,0,0.|
00005b70  20 58 05 e1 0d 20 62 04  0d 20 6c 13 dd f2 72 65  | X... b.. l...re|
00005b80  64 72 61 77 43 68 6f 69  63 65 73 0d 20 76 37 20  |drawChoices. v7 |
00005b90  f2 73 74 61 72 74 43 68  6f 69 63 65 73 3a c8 99  |.startChoices:..|
00005ba0  73 5f 66 6f 72 63 65 72  65 64 25 2c 68 61 6e 64  |s_forcered%,hand|
00005bb0  6c 65 25 2c 30 2c 2d 31  30 32 34 2c 31 32 38 30  |le%,0,-1024,1280|
00005bc0  2c 30 0d 20 80 16 20 c8  99 73 5f 67 65 74 63 61  |,0. .. ..s_getca|
00005bd0  72 65 74 25 2c 2c 71 25  0d 20 8a 35 20 e7 20 21  |ret%,,q%. .5 . !|
00005be0  71 25 3d 63 68 6f 69 63  65 73 77 69 6e 64 6f 77  |q%=choiceswindow|
00005bf0  25 20 8c 20 f2 73 65 74  43 61 72 65 74 28 21 71  |% . .setCaret(!q|
00005c00  25 2c 71 25 21 34 2c 71  25 21 32 30 29 0d 20 94  |%,q%!4,q%!20). .|
00005c10  05 e1 0d 20 9e 04 0d 20  a8 11 dd f2 70 75 74 4d  |... ... ....putM|
00005c20  28 68 25 2c 6d 24 29 0d  20 b2 1a d5 23 68 25 2c  |(h%,m$). ...#h%,|
00005c30  a4 67 65 74 5f 6d 65 73  73 61 67 65 28 6d 24 29  |.get_message(m$)|
00005c40  3b 0d 20 bc 05 e1 0d 20  c6 12 dd f2 70 75 74 4d  |;. .... ....putM|
00005c50  31 28 68 25 2c 6d 24 29  0d 20 d0 19 d5 23 68 25  |1(h%,m$). ...#h%|
00005c60  2c a4 67 65 74 5f 6d 65  73 73 61 67 65 28 6d 24  |,.get_message(m$|
00005c70  29 0d 20 da 05 e1 0d 20  e4 04 0d 20 ee 16 dd f2  |). .... ... ....|
00005c80  70 75 74 4d 32 28 68 25  2c 6d 24 2c 6d 31 24 29  |putM2(h%,m$,m1$)|
00005c90  0d 20 f8 19 f2 70 75 74  4d 28 68 25 2c 6d 24 29  |. ...putM(h%,m$)|
00005ca0  3a d5 23 68 25 2c 6d 31  24 0d 21 02 05 e1 0d 21  |:.#h%,m1$.!....!|
00005cb0  0c 04 0d 21 16 13 dd f2  69 6e 69 74 5f 6d 65 73  |...!....init_mes|
00005cc0  73 61 67 65 73 0d 21 20  0b ea 20 43 25 2c 4a 25  |sages.! .. C%,J%|
00005cd0  0d 21 2a 22 43 25 3d 8e  28 22 3c 4d 61 69 6c 4d  |.!*"C%=.("<MailM|
00005ce0  61 6e 24 44 69 72 3e 2e  4d 65 73 73 61 67 65 73  |an$Dir>.Messages|
00005cf0  22 29 0d 21 34 2c e7 43  25 3d 30 20 85 20 32 30  |").!4,.C%=0 . 20|
00005d00  31 31 2c 22 43 61 6e 6e  6f 74 20 66 69 6e 64 20  |11,"Cannot find |
00005d10  6d 65 73 73 61 67 65 73  20 66 69 6c 65 22 0d 21  |messages file".!|
00005d20  3e 14 de 20 6d 65 73 73  61 67 65 73 25 20 a2 23  |>.. messages% .#|
00005d30  43 25 0d 21 48 10 4a 25  3d 6d 65 73 73 61 67 65  |C%.!H.J%=message|
00005d40  73 25 0d 21 52 0c c8 95  20 ac c5 23 43 25 0d 21  |s%.!R... ..#C%.!|
00005d50  5c 0d 20 24 4a 25 3d be  23 43 25 0d 21 66 11 20  |\. $J%=.#C%.!f. |
00005d60  4a 25 2b 3d a9 28 24 4a  25 29 2b 31 0d 21 70 05  |J%+=.($J%)+1.!p.|
00005d70  ce 0d 21 7a 08 d9 23 43  25 0d 21 84 15 65 6e 64  |..!z..#C%.!..end|
00005d80  6f 66 6d 65 73 73 61 67  65 73 25 3d 4a 25 0d 21  |ofmessages%=J%.!|
00005d90  8e 05 e1 0d 21 98 04 0d  21 a2 15 dd a4 67 65 74  |....!...!....get|
00005da0  5f 6d 65 73 73 61 67 65  28 54 24 29 0d 21 ac 0e  |_message(T$).!..|
00005db0  ea 20 4a 25 2c 43 24 2c  49 25 0d 21 b6 10 4a 25  |. J%,C$,I%.!..J%|
00005dc0  3d 6d 65 73 73 61 67 65  73 25 0d 21 c0 18 c8 95  |=messages%.!....|
00005dd0  20 4a 25 3c 65 6e 64 6f  66 6d 65 73 73 61 67 65  | J%<endofmessage|
00005de0  73 25 0d 21 ca 0b 20 43  24 3d 24 4a 25 0d 21 d4  |s%.!.. C$=$J%.!.|
00005df0  11 20 4a 25 2b 3d a9 28  24 4a 25 29 2b 31 0d 21  |. J%+=.($J%)+1.!|
00005e00  de 13 20 e7 c0 43 24 2c  31 29 3c 3e 22 23 22 20  |.. ..C$,1)<>"#" |
00005e10  8c 0d 21 e8 11 20 20 49  25 3d a7 43 24 2c 22 3a  |..!..  I%=.C$,":|
00005e20  22 29 0d 21 f2 0e 20 20  e7 49 25 3c 3e 30 20 8c  |").!..  .I%<>0 .|
00005e30  0d 21 fc 20 20 20 20 e7  c0 43 24 2c 49 25 2d 31  |.!.    ..C$,I%-1|
00005e40  29 3d 54 24 20 3a 3d c1  43 24 2c 49 25 2b 31 29  |)=T$ :=.C$,I%+1)|
00005e50  0d 22 06 07 20 20 cd 0d  22 10 06 20 cd 0d 22 1a  |."..  ..".. ..".|
00005e60  05 ce 0d 22 24 20 85 20  32 30 31 30 2c 22 43 61  |..."$ . 2010,"Ca|
00005e70  6e 6e 6f 74 20 66 69 6e  64 20 74 61 67 20 22 2b  |nnot find tag "+|
00005e80  54 24 0d 22 2e 07 3d 22  22 0d 22 38 04 0d 22 42  |T$."..=""."8.."B|
00005e90  19 dd 20 f2 64 65 73 6b  73 61 76 65 28 6d 65 73  |.. .desksave(mes|
00005ea0  73 61 67 65 25 29 0d 22  4c 14 ea 20 6d 79 72 65  |sage%)."L.. myre|
00005eb0  66 25 2c 73 65 6e 64 65  72 25 0d 22 56 21 e7 20  |f%,sender%."V!. |
00005ec0  ac 20 a4 64 65 73 6b 77  72 69 74 65 28 6d 65 73  |. .deskwrite(mes|
00005ed0  73 61 67 65 25 21 32 30  29 20 8c 0d 22 60 18 20  |sage%!20) .."`. |
00005ee0  20 73 65 6e 64 65 72 25  3d 6d 65 73 73 61 67 65  | sender%=message|
00005ef0  25 21 34 0d 22 6a 17 20  20 6d 79 72 65 66 25 3d  |%!4."j.  myref%=|
00005f00  6d 65 73 73 61 67 65 25  21 38 0d 22 74 18 20 20  |message%!8."t.  |
00005f10  6d 65 73 73 61 67 65 25  21 31 32 3d 6d 79 72 65  |message%!12=myre|
00005f20  66 25 0d 22 7e 24 20 20  c8 99 73 5f 73 65 6e 64  |f%."~$  ..s_send|
00005f30  6d 25 2c 31 39 2c 6d 65  73 73 61 67 65 25 2c 73  |m%,19,message%,s|
00005f40  65 6e 64 65 72 25 0d 22  88 10 20 20 f2 72 65 70  |ender%."..  .rep|
00005f50  28 9f 2c f6 24 29 0d 22  92 05 cd 0d 22 9c 05 e1  |(.,.$)."...."...|
00005f60  0d 22 a6 04 0d 22 b0 14  dd 20 a4 64 65 73 6b 77  |."..."... .deskw|
00005f70  72 69 74 65 28 48 25 29  0d 22 ba 07 ea 20 85 0d  |rite(H%)."... ..|
00005f80  22 c4 0d ee 20 85 20 ea  20 3d 20 a3 0d 22 ce 1a  |"... . . = .."..|
00005f90  d5 23 48 25 2c 22 52 75  6e 20 22 2b 24 62 6f 6f  |.#H%,"Run "+$boo|
00005fa0  74 70 61 74 68 25 0d 22  d8 07 3d 20 b9 0d 22 e2  |tpath%."..= ..".|
00005fb0  04 0d 22 ec 3d dc 20 22  4d 61 69 6c 24 43 75 72  |..".=. "Mail$Cur|
00005fc0  72 65 6e 74 22 2c 22 4d  61 69 6c 24 4c 6f 67 46  |rent","Mail$LogF|
00005fd0  69 6c 65 22 2c 22 4d 61  69 6c 24 4e 61 6d 65 22  |ile","Mail$Name"|
00005fe0  2c 22 4d 61 69 6c 24 53  6f 75 72 63 65 22 0d ff  |,"Mail$Source"..|
00005ff0