"� > !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%,&200 � ,,,r3%
�,�r3%<>&200 șs_gp%,2,h%,buffer%,&200-r3%
�start%+=&200-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 26 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  32 30 30 20 b8 20 2c 2c  |uffer%,&200 . ,,|
00002250  2c 72 33 25 0d 0b ea 2c  e7 72 33 25 3c 3e 26 32  |,r3%...,.r3%<>&2|
00002260  30 30 20 c8 99 73 5f 67  70 25 2c 32 2c 68 25 2c  |00 ..s_gp%,2,h%,|
00002270  62 75 66 66 65 72 25 2c  26 32 30 30 2d 72 33 25  |buffer%,&200-r3%|
00002280  0d 0b f4 14 73 74 61 72  74 25 2b 3d 26 32 30 30  |....start%+=&200|
00002290  2d 72 33 25 0d 0b fe 11  fd 73 74 61 72 74 25 3e  |-r3%.....start%>|
000022a0  3d a2 23 66 25 0d 0c 08  05 e1 0d 0c 12 04 0d 0c  |=.#f%...........|
000022b0  1c 36 dd f2 63 68 65 63  6b 6d 6f 75 73 65 28 6d  |.6..checkmouse(m|
000022c0  6f 75 73 65 78 25 2c 6d  6f 75 73 65 79 25 2c 62  |ousex%,mousey%,b|
000022d0  25 2c 68 61 6e 64 6c 65  25 2c 69 63 6f 6e 25 2c  |%,handle%,icon%,|
000022e0  6f 62 25 29 0d 0c 26 0c  e7 28 62 25 80 32 29 8c  |ob%)..&..(b%.2).|
000022f0  0d 0c 30 12 20 20 f2 65  6e 64 44 69 61 6c 6f 67  |..0.  .endDialog|
00002300  75 65 0d 0c 3a 12 20 20  c8 8e 20 68 61 6e 64 6c  |ue..:.  .. handl|
00002310  65 25 20 ca 0d 0c 44 46  20 20 c9 20 2d 32 3a 20  |e% ...DF  . -2: |
00002320  f2 64 6f 6d 65 6e 75 28  31 30 31 2c a4 67 65 74  |.domenu(101,.get|
00002330  5f 6d 65 73 73 61 67 65  28 22 4d 61 69 6c 4d 31  |_message("MailM1|
00002340  22 29 2c a4 67 65 74 5f  6d 65 73 73 61 67 65 28  |"),.get_message(|
00002350  22 4d 61 69 6c 30 31 22  29 29 0d 0c 4e 07 20 20  |"Mail01"))..N.  |
00002360  cb 0d 0c 58 05 cd 0d 0c  62 0c e7 28 62 25 80 35  |...X....b..(b%.5|
00002370  29 8c 0d 0c 6c 12 20 20  c8 8e 20 68 61 6e 64 6c  |)...l.  .. handl|
00002380  65 25 20 ca 0d 0c 76 2e  20 20 c9 20 2d 32 3a 20  |e% ...v.  . -2: |
00002390  f2 6d 65 6e 75 73 65 6c  67 6f 28 a4 67 65 74 5f  |.menuselgo(.get_|
000023a0  6d 65 73 73 61 67 65 28  22 4d 61 69 6c 4d 32 22  |message("MailM2"|
000023b0  29 29 0d 0c 80 3b 20 20  c9 20 6d 61 69 6c 74 6f  |))...;  . mailto|
000023c0  25 3a 20 e7 69 63 6f 6e  25 3d 31 31 20 61 63 6b  |%: .icon%=11 ack|
000023d0  3d ac 61 63 6b 3a f2 73  65 74 4f 70 74 28 6d 61  |=.ack:.setOpt(ma|
000023e0  69 6c 74 6f 25 2c 31 31  2c 61 63 6b 29 0d 0c 8a  |ilto%,11,ack)...|
000023f0  16 20 20 c9 20 63 68 6f  69 63 65 73 77 69 6e 64  |.  . choiceswind|
00002400  6f 77 25 0d 0c 94 11 20  20 20 c8 8e 20 69 63 6f  |ow%....   .. ico|
00002410  6e 25 20 ca 0d 0c 9e 2a  20 20 20 20 c9 20 30 3a  |n% ....*    . 0:|
00002420  20 f2 72 65 67 69 73 74  65 72 43 68 6f 69 63 65  | .registerChoice|
00002430  73 28 b9 2c 20 28 62 25  80 31 29 3d 31 29 0d 0c  |s(., (b%.1)=1)..|
00002440  a8 37 20 20 20 20 c9 20  31 3a 20 e7 20 62 25 80  |.7    . 1: . b%.|
00002450  31 20 8c 20 f2 72 65 64  72 61 77 43 68 6f 69 63  |1 . .redrawChoic|
00002460  65 73 20 8b 20 c8 99 20  73 5f 63 72 6d 65 6e 75  |es . .. s_crmenu|
00002470  25 2c 2c 2d 31 0d 0c b2  3f 20 20 20 20 c9 20 36  |%,,-1...?    . 6|
00002480  3a 20 6e 65 77 42 6f 6e  67 3d ac 6e 65 77 42 6f  |: newBong=.newBo|
00002490  6e 67 3a f2 73 65 74 4f  70 74 28 63 68 6f 69 63  |ng:.setOpt(choic|
000024a0  65 73 77 69 6e 64 6f 77  25 2c 36 2c 6e 65 77 42  |eswindow%,6,newB|
000024b0  6f 6e 67 29 0d 0c bc 08  20 20 20 cb 0d 0c c6 07  |ong)....   .....|
000024c0  20 20 cb 0d 0c d0 05 cd  0d 0c da 05 e1 0d 0c e4  |  ..............|
000024d0  04 0d 0c ee 0c dd f2 66  69 6e 69 73 68 0d 0c f8  |.......finish...|
000024e0  13 c8 99 20 73 5f 63 6c  6f 73 65 64 6f 77 6e 25  |... s_closedown%|
000024f0  0d 0d 02 05 e1 0d 0d 0c  04 0d 0d 16 26 dd f2 64  |............&..d|
00002500  6f 6d 65 6e 75 28 68 61  6e 64 6c 65 25 2c 6d 65  |omenu(handle%,me|
00002510  6e 75 24 2c 6d 65 6e 75  74 69 74 6c 65 24 29 0d  |nu$,menutitle$).|
00002520  0d 20 12 6d 65 6e 75 49  74 65 6d 73 25 20 3d 20  |. .menuItems% = |
00002530  30 0d 0d 2a 17 6d 65 6e  75 68 61 6e 64 6c 65 25  |0..*.menuhandle%|
00002540  3d 68 61 6e 64 6c 65 25  0d 0d 34 16 6d 65 6e 75  |=handle%..4.menu|
00002550  70 74 72 25 3d 6d 65 6e  75 64 61 74 61 25 0d 0d  |ptr%=menudata%..|
00002560  3e 08 69 25 3d 30 0d 0d  48 12 6d 65 6e 75 70 74  |>.i%=0..H.menupt|
00002570  72 25 21 32 30 3d 34 34  0d 0d 52 18 24 6d 65 6e  |r%!20=44..R.$men|
00002580  75 70 74 72 25 3d 6d 65  6e 75 74 69 74 6c 65 24  |uptr%=menutitle$|
00002590  0d 0d 5c 4a 6d 65 6e 75  70 74 72 25 3f 31 32 3d  |..\Jmenuptr%?12=|
000025a0  60 74 66 63 6f 6c 3a 6d  65 6e 75 70 74 72 25 3f  |`tfcol:menuptr%?|
000025b0  31 33 3d 32 3a 6d 65 6e  75 70 74 72 25 3f 31 34  |13=2:menuptr%?14|
000025c0  3d 60 77 66 63 6f 6c 3a  6d 65 6e 75 70 74 72 25  |=`wfcol:menuptr%|
000025d0  3f 31 35 3d 60 77 62 63  6f 6c 0d 0d 66 24 6d 65  |?15=`wbcol..f$me|
000025e0  6e 75 70 74 72 25 21 31  36 3d 32 33 30 2d 32 34  |nuptr%!16=230-24|
000025f0  3a 6d 65 6e 75 70 74 72  25 21 32 34 3d 30 0d 0d  |:menuptr%!24=0..|
00002600  70 10 6d 65 6e 75 70 74  72 25 2b 3d 32 38 0d 0d  |p.menuptr%+=28..|
00002610  7a 3f f5 20 69 74 65 6d  24 3d a4 70 61 72 28 22  |z?. item$=.par("|
00002620  2c 22 29 3a f2 6d 65 6e  75 69 74 65 6d 28 69 74  |,"):.menuitem(it|
00002630  65 6d 24 29 3a 6d 65 6e  75 49 74 65 6d 73 25 2b  |em$):menuItems%+|
00002640  3d 31 3a fd 20 69 74 65  6d 24 3d 22 22 0d 0d 84  |=1:. item$=""...|
00002650  23 6d 65 6e 75 70 74 72  25 21 2d 32 34 3d 28 6d  |#menuptr%!-24=(m|
00002660  65 6e 75 70 74 72 25 21  2d 32 34 29 84 26 38 30  |enuptr%!-24).&80|
00002670  0d 0d 8e 3b c8 99 20 73  5f 63 72 6d 65 6e 75 25  |...;.. s_crmenu%|
00002680  2c 2c 6d 65 6e 75 64 61  74 61 25 2c 6d 6f 75 73  |,,menudata%,mous|
00002690  65 78 25 2d 36 34 2c 39  36 2b 28 6d 65 6e 75 49  |ex%-64,96+(menuI|
000026a0  74 65 6d 73 25 2d 31 29  2a 34 34 0d 0d 98 05 e1  |tems%-1)*44.....|
000026b0  0d 0d a2 04 0d 0d ac 4f  dd f2 6d 65 6e 75 69 74  |.......O..menuit|
000026c0  65 6d 28 74 65 78 74 24  29 20 3a f4 20 4c 65 61  |em(text$) :. Lea|
000026d0  64 69 6e 67 20 63 68 61  72 61 63 74 65 72 20 6f  |ding character o|
000026e0  66 20 3e 20 6f 72 20 3c  20 68 61 73 20 73 70 65  |f > or < has spe|
000026f0  63 69 61 6c 20 69 6e 74  65 72 70 72 65 74 61 74  |cial interpretat|
00002700  69 6f 6e 0d 0d b6 0b ea  20 6c 65 66 74 24 0d 0d  |ion..... left$..|
00002710  c0 10 e7 20 74 65 78 74  24 3d 22 22 20 e1 0d 0d  |... text$="" ...|
00002720  ca 0f 21 6d 65 6e 75 70  74 72 25 3d 30 0d 0d d4  |..!menuptr%=0...|
00002730  23 6c 65 66 74 24 20 3d  20 c0 74 65 78 74 24 2c  |#left$ = .text$,|
00002740  31 29 3a 6d 65 6e 75 70  74 72 25 21 34 3d 2d 31  |1):menuptr%!4=-1|
00002750  0d 0d de 28 e7 20 6c 65  66 74 24 3d 22 3e 22 20  |...(. left$=">" |
00002760  8c 20 6d 65 6e 75 70 74  72 25 21 34 3d 69 6e 66  |. menuptr%!4=inf|
00002770  6f 77 69 6e 64 6f 77 25  0d 0d e8 37 e7 20 6c 65  |owindow%...7. le|
00002780  66 74 24 3d 22 3c 22 20  8c 20 6d 65 6e 75 70 74  |ft$="<" . menupt|
00002790  72 25 21 34 3d 63 68 6f  69 63 65 73 77 69 6e 64  |r%!4=choiceswind|
000027a0  6f 77 25 3a 21 6d 65 6e  75 70 74 72 25 3d 38 0d  |ow%:!menuptr%=8.|
000027b0  0d f2 18 6d 65 6e 75 70  74 72 25 21 38 3d 26 30  |...menuptr%!8=&0|
000027c0  37 30 30 30 30 32 31 0d  0d fc 4d e7 20 6c 65 66  |7000021...M. lef|
000027d0  74 24 3d 22 3e 22 20 84  20 6c 65 66 74 24 3d 22  |t$=">" . left$="|
000027e0  3c 22 20 8c 20 24 28 6d  65 6e 75 70 74 72 25 2b  |<" . $(menuptr%+|
000027f0  31 32 29 3d c1 74 65 78  74 24 2c 32 29 20 8b 20  |12)=.text$,2) . |
00002800  24 28 6d 65 6e 75 70 74  72 25 2b 31 32 29 3d 74  |$(menuptr%+12)=t|
00002810  65 78 74 24 0d 0e 06 10  6d 65 6e 75 70 74 72 25  |ext$....menuptr%|
00002820  2b 3d 32 34 0d 0e 10 05  e1 0d 0e 1a 04 0d 0e 24  |+=24...........$|
00002830  0f dd a4 70 61 72 28 73  65 70 24 29 0d 0e 2e 25  |...par(sep$)...%|
00002840  69 31 25 3d 69 25 2b 31  3a 69 25 3d a7 6d 65 6e  |i1%=i%+1:i%=.men|
00002850  75 24 2b 73 65 70 24 2c  73 65 70 24 2c 69 31 25  |u$+sep$,sep$,i1%|
00002860  29 0d 0e 38 17 3d c1 6d  65 6e 75 24 2c 69 31 25  |)..8.=.menu$,i1%|
00002870  2c 69 25 2d 69 31 25 29  0d 0e 42 04 0d 0e 4c 14  |,i%-i1%)..B...L.|
00002880  dd a4 63 68 65 63 6b 55  50 28 66 69 6c 65 25 29  |..checkUP(file%)|
00002890  0d 0e 56 10 20 ea 20 78  25 2c 70 25 3a ea 20 85  |..V. . x%,p%:. .|
000028a0  0d 0e 60 45 20 ee 85 20  ea 20 d9 23 66 69 6c 65  |..`E .. . .#file|
000028b0  25 3a e7 9f 3d 31 30 34  33 20 8c 20 f2 72 65 70  |%:..=1043 . .rep|
000028c0  6f 72 74 28 32 30 30 37  2c 20 22 4d 61 69 6c 45  |ort(2007, "MailE|
000028d0  39 22 29 3a 3d a3 20 8b  20 f2 65 72 72 6f 72 62  |9"):=. . .errorb|
000028e0  6f 78 3a 3d a3 0d 0e 6a  25 20 70 25 3d 8f 23 66  |ox:=...j% p%=.#f|
000028f0  69 6c 65 25 3a 78 25 3d  9a 23 66 69 6c 65 25 3a  |ile%:x%=.#file%:|
00002900  cf 23 66 69 6c 65 25 3d  70 25 0d 0e 74 06 3d b9  |.#file%=p%..t.=.|
00002910  0d 0e 7e 04 0d 0e 88 18  dd f2 6d 65 6e 75 73 65  |..~.......menuse|
00002920  6c 65 63 74 28 6d 65 6e  75 73 25 29 0d 0e 92 08  |lect(menus%)....|
00002930  ea 20 50 25 0d 0e 9c 32  c8 99 20 73 5f 64 63 6d  |. P%...2.. s_dcm|
00002940  65 6e 75 25 2c 2c 6d 65  6e 75 64 61 74 61 25 2c  |enu%,,menudata%,|
00002950  6d 65 6e 75 73 25 2c c4  32 30 30 2c 22 20 22 29  |menus%,.200," ")|
00002960  b8 2c 2c 2c 61 24 0d 0e  a6 0f e7 20 61 24 3d 22  |.,,,a$..... a$="|
00002970  22 20 8c 20 e1 0d 0e b0  23 dd f2 6d 65 6e 75 73  |" . ....#..menus|
00002980  65 6c 67 6f 28 61 24 29  20 6d 65 6e 75 68 61 6e  |elgo(a$) menuhan|
00002990  64 6c 65 25 3d 31 30 31  0d 0e ba 14 c8 8e 20 6d  |dle%=101...... m|
000029a0  65 6e 75 68 61 6e 64 6c  65 25 20 ca 0d 0e c4 30  |enuhandle% ....0|
000029b0  c9 20 31 30 31 3a 20 e7  20 61 24 3d a4 67 65 74  |. 101: . a$=.get|
000029c0  5f 6d 65 73 73 61 67 65  28 22 4d 61 69 6c 4d 33  |_message("MailM3|
000029d0  22 29 3a f2 66 69 6e 69  73 68 3a e0 0d 0e ce 23  |"):.finish:....#|
000029e0  20 20 e7 20 61 24 3d a4  67 65 74 5f 6d 65 73 73  |  . a$=.get_mess|
000029f0  61 67 65 28 22 4d 61 69  6c 4d 32 22 29 20 8c 0d  |age("MailM2") ..|
00002a00  0e d8 16 20 20 20 20 e7  20 28 6e 66 73 66 6c 61  |...    . (nfsfla|
00002a10  67 25 29 20 8c 0d 0e e2  23 20 20 20 20 20 20 c8  |g%) ....#      .|
00002a20  99 20 73 5f 78 66 69 6c  65 25 2c 35 2c 6d 6e 61  |. s_xfile%,5,mna|
00002a30  6d 65 24 20 b8 20 72 30  0d 0e ec 12 20 20 20 20  |me$ . r0....    |
00002a40  20 20 e7 20 72 30 3d 30  20 e1 0d 0e f6 17 20 20  |  . r0=0 .....  |
00002a50  20 20 20 20 67 75 61 72  64 63 6f 75 6e 74 25 3d  |    guardcount%=|
00002a60  30 0d 0f 00 1b 20 20 20  20 20 20 c8 99 20 22 48  |0....      .. "H|
00002a70  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 0f 0a 0b  |ourglass_On"....|
00002a80  20 20 20 20 20 20 f5 0d  0f 14 47 20 20 20 20 20  |      ....G     |
00002a90  20 20 20 c8 99 20 73 5f  78 66 69 6c 65 25 2c 31  |   .. s_xfile%,1|
00002aa0  31 2c 6d 61 69 6c 67 75  61 72 64 24 2c 26 46 46  |1,mailguard$,&FF|
00002ab0  46 2c 30 2c 30 2c 32 20  b8 20 72 30 2c 72 31 2c  |F,0,0,2 . r0,r1,|
00002ac0  72 32 2c 72 33 2c 72 34  2c 72 35 3b 50 25 0d 0f  |r2,r3,r4,r5;P%..|
00002ad0  1e 16 20 20 20 20 20 20  20 20 e7 20 50 25 20 80  |..        . P% .|
00002ae0  20 31 20 8c 0d 0f 28 26  20 20 20 20 20 20 20 20  | 1 ...(&        |
00002af0  20 20 f2 64 65 6c 61 79  28 31 29 3a 67 75 61 72  |  .delay(1):guar|
00002b00  64 63 6f 75 6e 74 25 2b  3d 31 0d 0f 32 0d 20 20  |dcount%+=1..2.  |
00002b10  20 20 20 20 20 20 cc 0d  0f 3c 1b 20 20 20 20 20  |      ...<.     |
00002b20  20 20 20 20 20 67 75 61  72 64 63 6f 75 6e 74 25  |     guardcount%|
00002b30  3d 30 0d 0f 46 0d 20 20  20 20 20 20 20 20 cd 0d  |=0..F.        ..|
00002b40  0f 50 29 20 20 20 20 20  20 fd 20 67 75 61 72 64  |.P)      . guard|
00002b50  63 6f 75 6e 74 25 3d 30  20 84 20 67 75 61 72 64  |count%=0 . guard|
00002b60  63 6f 75 6e 74 25 3d 35  0d 0f 5a 47 20 20 20 20  |count%=5..ZG    |
00002b70  20 20 e7 20 67 75 61 72  64 63 6f 75 6e 74 25 3d  |  . guardcount%=|
00002b80  35 20 8c 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |5 . .. "Hourglas|
00002b90  73 5f 4f 66 66 22 3a f2  72 65 70 6f 72 74 28 32  |s_Off":.report(2|
00002ba0  30 30 31 2c 22 4d 61 69  6c 45 48 22 29 3a e1 0d  |001,"MailEH"):..|
00002bb0  0f 64 09 20 20 20 20 cd  0d 0f 6e 2b 20 20 20 20  |.d.    ...n+    |
00002bc0  41 25 3d 30 3a 42 25 3d  30 3a 43 25 3d a4 72 65  |A%=0:B%=0:C%=.re|
00002bd0  61 64 56 61 72 28 6c 6f  67 66 69 6c 65 2c 30 2c  |adVar(logfile,0,|
00002be0  2d 31 29 0d 0f 78 04 0d  0f 82 2e 20 20 20 20 f4  |-1)..x.....    .|
00002bf0  20 54 72 79 20 26 20 63  69 72 63 75 6d 76 65 6e  | Try & circumven|
00002c00  74 20 4e 46 53 20 63 61  63 68 69 6e 67 20 70 72  |t NFS caching pr|
00002c10  6f 62 6c 65 6d 0d 0f 8c  16 20 20 20 20 e7 20 28  |oblem....    . (|
00002c20  6e 66 73 66 6c 61 67 25  29 20 8c 0d 0f 96 3f 20  |nfsflag%) ....? |
00002c30  20 20 20 20 20 20 20 c8  99 20 22 58 4f 53 5f 46  |       .. "XOS_F|
00002c40  69 6c 65 22 2c 20 35 2c  20 6d 6e 61 6d 65 24 20  |ile", 5, mname$ |
00002c50  b8 20 74 79 70 65 25 2c  2c 2c 2c 2c 61 74 74 72  |. type%,,,,,attr|
00002c60  25 20 3b 20 66 6c 61 67  73 25 0d 0f a0 45 20 20  |% ; flags%...E  |
00002c70  20 20 20 20 20 20 e7 20  74 79 70 65 25 20 3d 20  |      . type% = |
00002c80  30 20 8c 20 c8 99 20 22  48 6f 75 72 67 6c 61 73  |0 . .. "Hourglas|
00002c90  73 5f 4f 66 66 22 3a f2  72 65 70 6f 72 74 28 32  |s_Off":.report(2|
00002ca0  30 30 31 2c 22 4d 61 69  6c 45 48 22 29 3a e1 0d  |001,"MailEH"):..|
00002cb0  0f aa 34 20 20 20 20 20  20 20 20 c8 99 20 22 58  |..4        .. "X|
00002cc0  4f 53 5f 46 69 6c 65 22  2c 20 34 2c 20 6d 6e 61  |OS_File", 4, mna|
00002cd0  6d 65 24 2c 2c 2c 2c 30  20 b8 20 3b 20 66 6c 61  |me$,,,,0 . ; fla|
00002ce0  67 73 25 0d 0f b4 38 20  20 20 20 20 20 20 20 c8  |gs%...8        .|
00002cf0  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 20 34 2c  |. "XOS_File", 4,|
00002d00  20 6d 6e 61 6d 65 24 2c  2c 2c 2c 61 74 74 72 25  | mname$,,,,attr%|
00002d10  20 b8 20 3b 20 66 6c 61  67 73 25 0d 0f be 09 20  | . ; flags%.... |
00002d20  20 20 20 cd 0d 0f c8 04  0d 0f d2 0b 20 20 20 20  |   .........    |
00002d30  ea 20 85 0d 0f dc 2a 20  20 20 20 ee 85 20 ea 20  |. ....*    .. . |
00002d40  d9 23 42 25 3a f2 72 65  6d 6f 76 65 47 75 61 72  |.#B%:.removeGuar|
00002d50  64 3a f2 65 72 72 6f 72  62 6f 78 3a e1 0d 0f e6  |d:.errorbox:....|
00002d60  2c 20 20 20 20 e7 43 25  3e 3d 30 20 85 20 32 30  |,    .C%>=0 . 20|
00002d70  30 30 2c a4 67 65 74 5f  6d 65 73 73 61 67 65 28  |00,.get_message(|
00002d80  22 4d 61 69 6c 45 42 22  29 0d 0f f0 21 20 20 20  |"MailEB")...!   |
00002d90  20 43 25 3d a4 72 65 61  64 56 61 72 28 63 75 72  | C%=.readVar(cur|
00002da0  72 65 6e 74 2c 30 2c 2d  31 29 0d 0f fa 49 20 20  |rent,0,-1)...I  |
00002db0  20 20 42 25 3d ad 6d 6e  61 6d 65 24 3a e7 42 25  |  B%=.mname$:.B%|
00002dc0  3d 30 20 8c 20 f2 72 65  6d 6f 76 65 47 75 61 72  |=0 . .removeGuar|
00002dd0  64 3a e1 20 8b e7 20 ac  a4 63 68 65 63 6b 55 50  |d:. .. ..checkUP|
00002de0  28 42 25 29 20 f2 72 65  6d 6f 76 65 47 75 61 72  |(B%) .removeGuar|
00002df0  64 3a e1 0d 10 04 3f 20  20 20 20 e7 a2 23 42 25  |d:....?    ..#B%|
00002e00  3d 30 20 d9 23 42 25 3a  f2 72 65 6d 6f 76 65 47  |=0 .#B%:.removeG|
00002e10  75 61 72 64 3a 73 70 6e  61 6d 65 24 3d 22 2d 6d  |uard:spname$="-m|
00002e20  61 69 6c 6e 6f 6e 65 22  3a f2 63 68 61 6e 67 65  |ailnone":.change|
00002e30  3a e1 0d 10 0e 10 20 20  20 20 e7 20 43 25 3c 30  |:.....    . C%<0|
00002e40  20 8c 0d 10 18 1e 20 20  20 20 20 20 43 25 3d ae  | .....      C%=.|
00002e50  22 3c 4d 61 69 6c 24 43  75 72 72 65 6e 74 3e 22  |"<Mail$Current>"|
00002e60  0d 10 22 1e 20 20 20 20  20 20 41 25 3d ad 22 3c  |..".      A%=."<|
00002e70  4d 61 69 6c 24 4c 6f 67  46 69 6c 65 3e 22 0d 10  |Mail$LogFile>"..|
00002e80  2c 30 20 20 20 20 20 20  e7 41 25 3d 30 20 41 25  |,0      .A%=0 A%|
00002e90  3d ae 22 3c 4d 61 69 6c  24 4c 6f 67 46 69 6c 65  |=."<Mail$LogFile|
00002ea0  3e 22 20 8b 20 cf 23 41  25 3d a2 23 41 25 0d 10  |>" . .#A%=.#A%..|
00002eb0  36 36 20 20 20 20 20 20  ee 85 20 ea 20 d9 23 41  |66      .. . .#A|
00002ec0  25 3a d9 23 42 25 3a d9  23 43 25 3a f2 72 65 6d  |%:.#B%:.#C%:.rem|
00002ed0  6f 76 65 47 75 61 72 64  3a f2 65 72 72 6f 72 62  |oveGuard:.errorb|
00002ee0  6f 78 3a e1 0d 10 40 29  20 20 20 20 20 20 f5 20  |ox:...@)      . |
00002ef0  58 24 3d be 23 42 25 3a  d5 23 41 25 2c 58 24 3a  |X$=.#B%:.#A%,X$:|
00002f00  d5 23 43 25 2c 58 24 3a  fd c5 23 42 25 0d 10 4a  |.#C%,X$:..#B%..J|
00002f10  1d 20 20 20 20 20 20 d9  23 41 25 3a d9 23 43 25  |.      .#A%:.#C%|
00002f20  3a 41 25 3d 30 3a 43 25  3d 30 0d 10 54 2c 20 20  |:A%=0:C%=0..T,  |
00002f30  20 20 20 20 ee 85 20 ea  20 d9 23 42 25 3a f2 72  |    .. . .#B%:.r|
00002f40  65 6d 6f 76 65 47 75 61  72 64 3a f2 65 72 72 6f  |emoveGuard:.erro|
00002f50  72 62 6f 78 3a e1 0d 10  5e 36 20 20 20 20 20 20  |rbox:...^6      |
00002f60  a2 23 42 25 3d 30 3a d9  23 42 25 3a 42 25 3d 30  |.#B%=0:.#B%:B%=0|
00002f70  3a 73 70 6e 61 6d 65 24  3d 22 2d 6d 61 69 6c 6e  |:spname$="-mailn|
00002f80  6f 6e 65 22 3a f2 63 68  61 6e 67 65 0d 10 68 3f  |one":.change..h?|
00002f90  20 20 20 20 20 20 f2 73  65 74 54 79 70 65 28 22  |      .setType("|
00002fa0  3c 4d 61 69 6c 24 43 75  72 72 65 6e 74 3e 22 29  |<Mail$Current>")|
00002fb0  3a f2 73 65 74 54 79 70  65 28 22 3c 4d 61 69 6c  |:.setType("<Mail|
00002fc0  24 4c 6f 67 66 69 6c 65  3e 22 29 0d 10 72 40 20  |$Logfile>")..r@ |
00002fd0  20 20 20 20 20 62 75 66  66 65 72 25 21 31 32 3d  |     buffer%!12=|
00002fe0  30 3a 62 75 66 66 65 72  25 21 31 36 3d 35 3a 62  |0:buffer%!16=5:b|
00002ff0  75 66 66 65 72 25 21 33  36 3d 30 3a 62 75 66 66  |uffer%!36=0:buff|
00003000  65 72 25 21 34 30 3d 26  46 46 46 0d 10 7c 42 20  |er%!40=&FFF..|B |
00003010  20 20 20 20 20 43 25 3d  a4 72 65 61 64 56 61 72  |     C%=.readVar|
00003020  28 63 75 72 72 65 6e 74  2c 62 75 66 66 65 72 25  |(current,buffer%|
00003030  2b 34 34 2c 26 31 30 30  29 3a 21 62 75 66 66 65  |+44,&100):!buffe|
00003040  72 25 3d 34 37 2b 43 25  2b 31 80 ac 33 0d 10 86  |r%=47+C%+1..3...|
00003050  22 20 20 20 20 20 20 c8  99 20 73 5f 73 65 6e 64  |"      .. s_send|
00003060  6d 25 2c 31 38 2c 62 75  66 66 65 72 25 2c 30 0d  |m%,18,buffer%,0.|
00003070  10 90 09 20 20 20 20 cc  0d 10 9a 1e 20 20 20 20  |...    .....    |
00003080  20 20 41 25 3d ad 22 3c  4d 61 69 6c 24 4c 6f 67  |  A%=."<Mail$Log|
00003090  46 69 6c 65 3e 22 0d 10  a4 30 20 20 20 20 20 20  |File>"...0      |
000030a0  e7 41 25 3d 30 20 41 25  3d ae 22 3c 4d 61 69 6c  |.A%=0 A%=."<Mail|
000030b0  24 4c 6f 67 46 69 6c 65  3e 22 20 8b 20 cf 23 41  |$LogFile>" . .#A|
000030c0  25 3d a2 23 41 25 0d 10  ae 31 20 20 20 20 20 20  |%=.#A%...1      |
000030d0  ee 85 20 ea 20 d9 23 41  25 3a d9 23 42 25 3a f2  |.. . .#A%:.#B%:.|
000030e0  72 65 6d 6f 76 65 47 75  61 72 64 3a f2 65 72 72  |removeGuard:.err|
000030f0  6f 72 62 6f 78 3a e1 0d  10 b8 1b 20 20 20 20 20  |orbox:.....     |
00003100  20 f5 20 d5 23 41 25 2c  be 23 42 25 3a fd c5 23  | . .#A%,.#B%:..#|
00003110  42 25 0d 10 c2 13 20 20  20 20 20 20 d9 23 41 25  |B%....      .#A%|
00003120  3a 41 25 3d 30 0d 10 cc  2c 20 20 20 20 20 20 ee  |:A%=0...,      .|
00003130  85 20 ea 20 d9 23 42 25  3a f2 72 65 6d 6f 76 65  |. . .#B%:.remove|
00003140  47 75 61 72 64 3a f2 65  72 72 6f 72 62 6f 78 3a  |Guard:.errorbox:|
00003150  e1 0d 10 d6 36 20 20 20  20 20 20 a2 23 42 25 3d  |....6      .#B%=|
00003160  30 3a d9 23 42 25 3a 42  25 3d 30 3a 73 70 6e 61  |0:.#B%:B%=0:spna|
00003170  6d 65 24 3d 22 2d 6d 61  69 6c 6e 6f 6e 65 22 3a  |me$="-mailnone":|
00003180  f2 63 68 61 6e 67 65 0d  10 e0 24 20 20 20 20 20  |.change...$     |
00003190  20 f2 73 65 74 54 79 70  65 28 22 3c 4d 61 69 6c  | .setType("<Mail|
000031a0  24 4c 6f 67 66 69 6c 65  3e 22 29 0d 10 ea 40 20  |$Logfile>")...@ |
000031b0  20 20 20 20 20 62 75 66  66 65 72 25 21 31 32 3d  |     buffer%!12=|
000031c0  30 3a 62 75 66 66 65 72  25 21 31 36 3d 35 3a 62  |0:buffer%!16=5:b|
000031d0  75 66 66 65 72 25 21 33  36 3d 30 3a 62 75 66 66  |uffer%!36=0:buff|
000031e0  65 72 25 21 34 30 3d 26  46 46 46 0d 10 f4 42 20  |er%!40=&FFF...B |
000031f0  20 20 20 20 20 43 25 3d  a4 72 65 61 64 56 61 72  |     C%=.readVar|
00003200  28 6c 6f 67 66 69 6c 65  2c 62 75 66 66 65 72 25  |(logfile,buffer%|
00003210  2b 34 34 2c 26 31 30 30  29 3a 21 62 75 66 66 65  |+44,&100):!buffe|
00003220  72 25 3d 34 37 2b 43 25  2b 31 80 ac 33 0d 10 fe  |r%=47+C%+1..3...|
00003230  22 20 20 20 20 20 20 c8  99 20 73 5f 73 65 6e 64  |"      .. s_send|
00003240  6d 25 2c 31 38 2c 62 75  66 66 65 72 25 2c 30 0d  |m%,18,buffer%,0.|
00003250  11 08 18 20 20 20 20 cd  3a f2 72 65 6d 6f 76 65  |...    .:.remove|
00003260  47 75 61 72 64 3a e1 0d  11 12 07 20 20 cd 0d 11  |Guard:.....  ...|
00003270  1c 30 20 20 e7 20 61 24  3d a4 67 65 74 5f 6d 65  |.0  . a$=.get_me|
00003280  73 73 61 67 65 28 22 4d  61 69 6c 4d 34 22 29 20  |ssage("MailM4") |
00003290  8c 20 f2 73 61 76 65 43  68 6f 69 63 65 73 0d 11  |. .saveChoices..|
000032a0  26 05 cb 0d 11 30 05 e1  0d 11 3a 04 0d 11 44 11  |&....0....:...D.|
000032b0  dd f2 72 65 74 61 69 6e  43 68 65 63 6b 0d 11 4e  |..retainCheck..N|
000032c0  44 20 e7 28 62 25 80 31  29 8c c8 99 20 73 5f 63  |D .(b%.1)... s_c|
000032d0  72 6d 65 6e 75 25 2c 2c  6d 65 6e 75 64 61 74 61  |rmenu%,,menudata|
000032e0  25 2c 6d 6f 75 73 65 78  25 2d 36 34 2c 39 36 2b  |%,mousex%-64,96+|
000032f0  28 6d 65 6e 75 49 74 65  6d 73 25 2d 31 29 2a 34  |(menuItems%-1)*4|
00003300  34 0d 11 58 05 e1 0d 11  62 04 0d 11 6c 0d dd a4  |4..X....b...l...|
00003310  76 61 72 28 73 24 29 0d  11 76 1d ea 20 6e 25 3a  |var(s$)..v.. n%:|
00003320  c8 99 73 77 69 6e 75 6d  25 2c 2c 73 24 b8 6e 25  |..swinum%,,s$.n%|
00003330  3a 3d 6e 25 0d 11 80 04  0d 11 8a 0a dd f2 76 61  |:=n%..........va|
00003340  72 73 0d 11 94 43 c8 99  20 22 4f 53 5f 53 57 49  |rs...C.. "OS_SWI|
00003350  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
00003360  22 2c 2c 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |",,"OS_SWINumber|
00003370  46 72 6f 6d 53 74 72 69  6e 67 22 20 b8 20 73 77  |FromString" . sw|
00003380  69 6e 75 6d 25 0d 11 9e  28 73 5f 63 72 65 61 74  |inum%...(s_creat|
00003390  65 77 25 3d a4 76 61 72  28 22 57 69 6d 70 5f 43  |ew%=.var("Wimp_C|
000033a0  72 65 61 74 65 57 69 6e  64 6f 77 22 29 0d 11 a8  |reateWindow")...|
000033b0  24 73 5f 6f 70 65 6e 77  25 3d a4 76 61 72 28 22  |$s_openw%=.var("|
000033c0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000033d0  29 0d 11 b2 26 73 5f 63  6c 6f 73 65 77 25 3d a4  |)...&s_closew%=.|
000033e0  76 61 72 28 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |var("Wimp_CloseW|
000033f0  69 6e 64 6f 77 22 29 0d  11 bc 28 73 5f 72 65 64  |indow")...(s_red|
00003400  72 61 77 77 25 3d a4 76  61 72 28 22 57 69 6d 70  |raww%=.var("Wimp|
00003410  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 29 0d  |_RedrawWindow").|
00003420  11 c6 28 73 5f 67 65 74  72 65 63 74 25 3d a4 76  |..(s_getrect%=.v|
00003430  61 72 28 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |ar("Wimp_GetRect|
00003440  61 6e 67 6c 65 22 29 0d  11 d0 2c 73 5f 67 65 74  |angle")...,s_get|
00003450  77 73 74 61 74 65 25 3d  a4 76 61 72 28 22 57 69  |wstate%=.var("Wi|
00003460  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00003470  65 22 29 0d 11 da 2b 73  5f 67 65 74 70 6f 69 6e  |e")...+s_getpoin|
00003480  74 25 3d a4 76 61 72 28  22 57 69 6d 70 5f 47 65  |t%=.var("Wimp_Ge|
00003490  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 29 0d 11  |tPointerInfo")..|
000034a0  e4 20 73 5f 64 72 61 67  25 3d a4 76 61 72 28 22  |. s_drag%=.var("|
000034b0  57 69 6d 70 5f 44 72 61  67 42 6f 78 22 29 0d 11  |Wimp_DragBox")..|
000034c0  ee 25 73 5f 63 72 6d 65  6e 75 25 3d a4 76 61 72  |.%s_crmenu%=.var|
000034d0  28 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |("Wimp_CreateMen|
000034e0  75 22 29 0d 11 f8 25 73  5f 64 63 6d 65 6e 75 25  |u")...%s_dcmenu%|
000034f0  3d a4 76 61 72 28 22 57  69 6d 70 5f 44 65 63 6f  |=.var("Wimp_Deco|
00003500  64 65 4d 65 6e 75 22 29  0d 12 02 22 73 5f 70 6f  |deMenu")..."s_po|
00003510  6c 6c 25 3d a4 76 61 72  28 22 58 57 69 6d 70 5f  |ll%=.var("XWimp_|
00003520  50 6f 6c 6c 49 64 6c 65  22 29 0d 12 0c 26 73 5f  |PollIdle")...&s_|
00003530  6f 70 65 6e 74 25 3d a4  76 61 72 28 22 57 69 6d  |opent%=.var("Wim|
00003540  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 29  |p_OpenTemplate")|
00003550  0d 12 16 26 73 5f 6c 6f  61 64 74 25 3d a4 76 61  |...&s_loadt%=.va|
00003560  72 28 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |r("Wimp_LoadTemp|
00003570  6c 61 74 65 22 29 0d 12  20 28 73 5f 63 6c 6f 73  |late").. (s_clos|
00003580  65 74 25 3d a4 76 61 72  28 22 57 69 6d 70 5f 43  |et%=.var("Wimp_C|
00003590  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 29 0d 12  |loseTemplate")..|
000035a0  2a 25 73 5f 73 65 6e 64  6d 25 3d a4 76 61 72 28  |*%s_sendm%=.var(|
000035b0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
000035c0  65 22 29 0d 12 34 2b 73  5f 63 72 73 75 62 6d 65  |e")..4+s_crsubme|
000035d0  6e 75 25 3d a4 76 61 72  28 22 57 69 6d 70 5f 43  |nu%=.var("Wimp_C|
000035e0  72 65 61 74 65 53 75 62  4d 65 6e 75 22 29 0d 12  |reateSubMenu")..|
000035f0  3e 2d 73 5f 73 65 74 63  61 72 65 74 25 3d a4 76  |>-s_setcaret%=.v|
00003600  61 72 28 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |ar("Wimp_SetCare|
00003610  74 50 6f 73 69 74 69 6f  6e 22 29 0d 12 48 2d 73  |tPosition")..H-s|
00003620  5f 67 65 74 63 61 72 65  74 25 3d a4 76 61 72 28  |_getcaret%=.var(|
00003630  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
00003640  73 69 74 69 6f 6e 22 29  0d 12 52 22 73 5f 6b 65  |sition")..R"s_ke|
00003650  79 25 3d a4 76 61 72 28  22 57 69 6d 70 5f 50 72  |y%=.var("Wimp_Pr|
00003660  6f 63 65 73 73 4b 65 79  22 29 0d 12 5c 2b 73 5f  |ocessKey")..\+s_|
00003670  67 65 74 69 69 6e 66 6f  25 3d 26 34 30 30 63 65  |getiinfo%=&400ce|
00003680  20 3a 20 f4 20 57 69 6d  70 5f 47 65 74 49 63 6f  | : . Wimp_GetIco|
00003690  6e 49 6e 66 6f 0d 12 66  27 73 5f 63 6c 6f 73 65  |nInfo..f's_close|
000036a0  64 6f 77 6e 25 3d a4 76  61 72 28 22 57 69 6d 70  |down%=.var("Wimp|
000036b0  5f 43 6c 6f 73 65 44 6f  77 6e 22 29 0d 12 70 26  |_CloseDown")..p&|
000036c0  73 5f 63 72 65 61 74 65  69 25 3d a4 76 61 72 28  |s_createi%=.var(|
000036d0  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
000036e0  22 29 0d 12 7a 2a 73 5f  67 65 74 69 73 74 61 74  |")..z*s_getistat|
000036f0  65 25 3d a4 76 61 72 28  22 57 69 6d 70 5f 47 65  |e%=.var("Wimp_Ge|
00003700  74 49 63 6f 6e 53 74 61  74 65 22 29 0d 12 84 2a  |tIconState")...*|
00003710  73 5f 73 65 74 69 73 74  61 74 65 25 3d a4 76 61  |s_setistate%=.va|
00003720  72 28 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |r("Wimp_SetIconS|
00003730  74 61 74 65 22 29 0d 12  8e 26 73 5f 64 65 6c 65  |tate")...&s_dele|
00003740  74 65 69 25 3d a4 76 61  72 28 22 57 69 6d 70 5f  |tei%=.var("Wimp_|
00003750  44 65 6c 65 74 65 49 63  6f 6e 22 29 0d 12 98 25  |DeleteIcon")...%|
00003760  73 5f 65 72 72 6f 72 25  3d a4 76 61 72 28 22 57  |s_error%=.var("W|
00003770  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00003780  29 0d 12 a2 28 73 5f 66  6f 72 63 65 72 65 64 25  |)...(s_forcered%|
00003790  3d a4 76 61 72 28 22 57  69 6d 70 5f 46 6f 72 63  |=.var("Wimp_Forc|
000037a0  65 52 65 64 72 61 77 22  29 0d 12 ac 28 73 5f 74  |eRedraw")...(s_t|
000037b0  69 6d 65 25 3d a4 76 61  72 28 22 4f 53 5f 52 65  |ime%=.var("OS_Re|
000037c0  61 64 4d 6f 6e 6f 74 6f  6e 69 63 54 69 6d 65 22  |adMonotonicTime"|
000037d0  29 0d 12 b6 1f 73 5f 73  70 6f 70 25 3d a4 76 61  |)....s_spop%=.va|
000037e0  72 28 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 29  |r("OS_SpriteOp")|
000037f0  0d 12 c0 19 73 5f 67 70  25 3d a4 76 61 72 28 22  |....s_gp%=.var("|
00003800  4f 53 5f 47 42 50 42 22  29 0d 12 ca 1a 73 5f 63  |OS_GBPB")....s_c|
00003810  6c 69 25 3d a4 76 61 72  28 22 58 4f 53 5f 43 4c  |li%=.var("XOS_CL|
00003820  49 22 29 0d 12 d4 25 73  5f 72 65 61 64 76 61 72  |I")...%s_readvar|
00003830  25 3d a4 76 61 72 28 22  58 4f 53 5f 52 65 61 64  |%=.var("XOS_Read|
00003840  56 61 72 56 61 6c 22 29  0d 12 de 23 73 5f 73 65  |VarVal")...#s_se|
00003850  74 76 61 72 25 3d a4 76  61 72 28 22 58 4f 53 5f  |tvar%=.var("XOS_|
00003860  53 65 74 56 61 72 56 61  6c 22 29 0d 12 e8 1b 73  |SetVarVal")....s|
00003870  5f 66 69 6c 65 25 3d a4  76 61 72 28 22 4f 53 5f  |_file%=.var("OS_|
00003880  46 69 6c 65 22 29 0d 12  f2 1d 73 5f 78 66 69 6c  |File")....s_xfil|
00003890  65 25 3d a4 76 61 72 28  22 58 4f 53 5f 46 69 6c  |e%=.var("XOS_Fil|
000038a0  65 22 29 0d 12 fc 22 73  5f 66 73 63 74 72 6c 25  |e")..."s_fsctrl%|
000038b0  3d a4 76 61 72 28 22 4f  53 5f 46 53 43 6f 6e 74  |=.var("OS_FSCont|
000038c0  72 6f 6c 22 29 0d 13 06  04 0d 13 10 05 e1 0d 13  |rol")...........|
000038d0  1a 04 0d 13 24 18 dd f2  72 65 70 6f 72 74 28 65  |....$...report(e|
000038e0  72 72 25 2c 6d 65 73 73  24 29 0d 13 2e 23 f2 72  |rr%,mess$)...#.r|
000038f0  65 70 28 65 72 72 25 2c  20 a4 67 65 74 5f 6d 65  |ep(err%, .get_me|
00003900  73 73 61 67 65 28 6d 65  73 73 24 29 29 0d 13 38  |ssage(mess$))..8|
00003910  05 e1 0d 13 42 04 0d 13  4c 15 dd f2 72 65 70 28  |....B...L...rep(|
00003920  65 72 72 25 2c 6d 65 73  73 24 29 0d 13 56 5f c8  |err%,mess$)..V_.|
00003930  99 20 73 5f 64 72 61 67  25 2c 2c 2d 31 3a 21 62  |. s_drag%,,-1:!b|
00003940  75 66 66 65 72 25 3d 65  72 72 25 3a 24 28 62 75  |uffer%=err%:$(bu|
00003950  66 66 65 72 25 2b 34 29  3d 6d 65 73 73 24 3a c8  |ffer%+4)=mess$:.|
00003960  99 73 5f 65 72 72 6f 72  25 2c 62 75 66 66 65 72  |.s_error%,buffer|
00003970  25 2c 31 2c a4 67 65 74  5f 6d 65 73 73 61 67 65  |%,1,.get_message|
00003980  28 22 4d 61 69 6c 30 30  22 29 0d 13 60 05 e1 0d  |("Mail00")..`...|
00003990  13 6a 04 0d 13 74 40 dd  f2 65 72 72 6f 72 62 6f  |.j...t@..errorbo|
000039a0  78 20 3a f4 20 52 65 70  6f 72 74 20 65 72 72 6f  |x :. Report erro|
000039b0  72 2c 20 77 69 74 68 20  6c 69 6e 65 20 6e 75 6d  |r, with line num|
000039c0  62 65 72 20 69 66 20 65  72 72 6f 72 20 3c 20 32  |ber if error < 2|
000039d0  30 30 30 0d 13 7e 5b e7  20 28 9f 20 3c 20 32 30  |000..~[. (. < 20|
000039e0  30 30 29 20 80 20 69 6e  74 65 72 6e 61 6c 25 20  |00) . internal% |
000039f0  8c 20 f2 72 65 70 28 9f  2c f6 24 2b a4 67 65 74  |. .rep(.,.$+.get|
00003a00  5f 6d 65 73 73 61 67 65  28 22 4d 61 69 6c 45 30  |_message("MailE0|
00003a10  22 29 2b c3 9e 2b 22 29  2e 22 2b bd 30 29 20 8b  |")+..+")."+.0) .|
00003a20  20 f2 72 65 70 28 9f 2c  f6 24 2b bd 30 29 0d 13  | .rep(.,.$+.0)..|
00003a30  88 05 e1 0d 13 92 04 0d  13 9c 0d dd a4 69 63 6f  |.............ico|
00003a40  6e 62 61 72 0d 13 a6 4e  21 69 63 6f 6e 73 25 3d  |nbar...N!icons%=|
00003a50  2d 31 3a 69 63 6f 6e 73  25 21 34 3d 30 3a 69 63  |-1:icons%!4=0:ic|
00003a60  6f 6e 73 25 21 38 3d 30  3a 69 63 6f 6e 73 25 21  |ons%!8=0:icons%!|
00003a70  31 32 3d 34 37 3a 69 63  6f 6e 73 25 21 31 36 3d  |12=47:icons%!16=|
00003a80  36 38 3a 69 63 6f 6e 73  25 21 32 30 3d 26 33 31  |68:icons%!20=&31|
00003a90  30 32 0d 13 b0 17 73 70  6e 61 6d 65 24 3d 22 2d  |02....spname$="-|
00003aa0  6d 61 69 6c 68 6f 6c 65  22 0d 13 ba 27 de 20 69  |mailhole"...'. i|
00003ab0  63 6f 6e 73 25 21 32 34  20 31 32 3a 24 28 69 63  |cons%!24 12:$(ic|
00003ac0  6f 6e 73 25 21 32 34 29  3d 73 70 6e 61 6d 65 24  |ons%!24)=spname$|
00003ad0  0d 13 c4 23 69 63 6f 6e  73 25 21 32 38 3d 73 70  |...#icons%!28=sp|
00003ae0  72 69 74 65 73 25 3a 69  63 6f 6e 73 25 21 33 32  |rites%:icons%!32|
00003af0  3d 31 31 0d 13 ce 1f c8  99 20 73 5f 63 72 65 61  |=11...... s_crea|
00003b00  74 65 69 25 2c 2c 69 63  6f 6e 73 25 20 b8 20 69  |tei%,,icons% . i|
00003b10  63 25 0d 13 d8 08 3d 69  63 25 0d 13 e2 04 0d 13  |c%....=ic%......|
00003b20  ec 15 dd f2 6e 75 64 67  65 28 6e 6f 64 65 6c 61  |....nudge(nodela|
00003b30  79 25 29 0d 13 f6 20 ea  20 50 25 2c 66 30 25 2c  |y%)... . P%,f0%,|
00003b40  66 31 25 2c 66 32 25 2c  66 33 25 2c 66 34 25 2c  |f1%,f2%,f3%,f4%,|
00003b50  66 35 25 0d 14 00 10 e7  20 6e 6f 64 65 6c 61 79  |f5%..... nodelay|
00003b60  25 20 8c 0d 14 0a 10 20  20 e7 20 4e 65 74 4f 4b  |% .....  . NetOK|
00003b70  25 20 8c 0d 14 14 3b 20  20 20 20 c8 99 20 22 4e  |% ....;    .. "N|
00003b80  65 74 46 53 5f 52 65 61  64 46 53 54 69 6d 65 6f  |etFS_ReadFSTimeo|
00003b90  75 74 73 22 20 b8 20 66  30 25 2c 66 31 25 2c 66  |uts" . f0%,f1%,f|
00003ba0  32 25 2c 66 33 25 2c 66  34 25 2c 66 35 25 0d 14  |2%,f3%,f4%,f5%..|
00003bb0  1e 2f 20 20 20 20 c8 99  20 22 4e 65 74 46 53 5f  |./    .. "NetFS_|
00003bc0  53 65 74 46 53 54 69 6d  65 6f 75 74 73 22 2c 35  |SetFSTimeouts",5|
00003bd0  2c 34 2c 35 2c 34 2c 31  30 30 2c 32 30 0d 14 28  |,4,5,4,100,20..(|
00003be0  07 20 20 cd 0d 14 32 31  20 20 c8 99 20 73 5f 78  |.  ...21  .. s_x|
00003bf0  66 69 6c 65 25 2c 35 2c  6d 6e 61 6d 65 24 20 b8  |file%,5,mname$ .|
00003c00  20 72 30 2c 2c 72 32 2c  72 33 2c 72 34 2c 72 35  | r0,,r2,r3,r4,r5|
00003c10  20 3b 20 50 25 0d 14 3c  10 20 20 e7 20 4e 65 74  | ; P%..<.  . Net|
00003c20  4f 4b 25 20 8c 0d 14 46  38 20 20 20 20 c8 99 20  |OK% ...F8    .. |
00003c30  22 4e 65 74 46 53 5f 53  65 74 46 53 54 69 6d 65  |"NetFS_SetFSTime|
00003c40  6f 75 74 73 22 2c 66 30  25 2c 66 31 25 2c 66 32  |outs",f0%,f1%,f2|
00003c50  25 2c 66 33 25 2c 66 34  25 2c 66 35 25 0d 14 50  |%,f3%,f4%,f5%..P|
00003c60  07 20 20 cd 0d 14 5a 10  20 20 e7 20 50 25 20 80  |.  ...Z.  . P% .|
00003c70  20 31 20 8c 0d 14 64 1a  20 20 20 20 e7 20 64 65  | 1 ...d.    . de|
00003c80  6c 61 79 25 3c 3e 6c 6f  64 65 6c 25 20 8c 0d 14  |lay%<>lodel% ...|
00003c90  6e 22 20 20 20 20 20 20  64 65 6c 61 79 25 3d 6c  |n"      delay%=l|
00003ca0  6f 64 65 6c 25 3a 63 6f  75 6e 74 25 3d 36 3a e1  |odel%:count%=6:.|
00003cb0  0d 14 78 09 20 20 20 20  cc 0d 14 82 46 20 20 20  |..x.    ....F   |
00003cc0  20 20 20 63 6f 75 6e 74  25 2d 3d 31 3a e7 63 6f  |   count%-=1:.co|
00003cd0  75 6e 74 25 3d 30 20 64  65 6c 61 79 25 3d 68 69  |unt%=0 delay%=hi|
00003ce0  64 65 6c 25 3a 73 70 6e  61 6d 65 24 3d 22 2d 6d  |del%:spname$="-m|
00003cf0  61 69 6c 75 6e 6b 22 3a  f2 63 68 61 6e 67 65 0d  |ailunk":.change.|
00003d00  14 8c 0f 20 20 20 20 20  20 f2 74 69 63 6b 0d 14  |...      .tick..|
00003d10  96 0b 20 20 20 20 20 20  e1 0d 14 a0 09 20 20 20  |..      .....   |
00003d20  20 cd 0d 14 aa 07 20 20  cc 0d 14 b4 15 20 20 20  | .....  .....   |
00003d30  20 64 65 6c 61 79 25 3d  68 69 64 65 6c 25 0d 14  | delay%=hidel%..|
00003d40  be 07 20 20 cd 0d 14 c8  05 cc 0d 14 d2 31 20 20  |..  .........1  |
00003d50  c8 99 20 73 5f 78 66 69  6c 65 25 2c 35 2c 6d 6e  |.. s_xfile%,5,mn|
00003d60  61 6d 65 24 20 b8 20 72  30 2c 2c 72 32 2c 72 33  |ame$ . r0,,r2,r3|
00003d70  2c 72 34 2c 72 35 20 3b  20 50 25 0d 14 dc 33 20  |,r4,r5 ; P%...3 |
00003d80  20 e7 20 50 25 20 80 20  31 20 8c 20 73 70 6e 61  | . P% . 1 . spna|
00003d90  6d 65 24 3d 22 2d 6d 61  69 6c 75 6e 6b 22 3a f2  |me$="-mailunk":.|
00003da0  63 68 61 6e 67 65 3a f2  74 69 63 6b 3a e1 0d 14  |change:.tick:...|
00003db0  e6 05 cd 0d 14 f0 0b c8  8e 20 72 30 20 ca 0d 14  |......... r0 ...|
00003dc0  fa 2f c9 20 31 3a e7 20  72 34 20 80 20 73 70 6e  |./. 1:. r4 . spn|
00003dd0  61 6d 65 24 3c 3e 22 2d  6d 61 69 6c 66 75 6c 6c  |ame$<>"-mailfull|
00003de0  22 20 80 20 62 6f 6e 67  20 8c 20 ef 37 0d 15 04  |" . bong . .7...|
00003df0  32 e7 20 72 34 20 73 70  6e 61 6d 65 24 3d 22 2d  |2. r4 spname$="-|
00003e00  6d 61 69 6c 66 75 6c 6c  22 20 8b 20 73 70 6e 61  |mailfull" . spna|
00003e10  6d 65 24 3d 22 2d 6d 61  69 6c 6e 6f 6e 65 22 0d  |me$="-mailnone".|
00003e20  15 0e 18 7f 20 73 70 6e  61 6d 65 24 3d 22 2d 6d  |.... spname$="-m|
00003e30  61 69 6c 75 6e 6b 22 0d  15 18 05 cb 0d 15 22 0b  |ailunk".......".|
00003e40  f2 63 68 61 6e 67 65 0d  15 2c 09 f2 74 69 63 6b  |.change..,..tick|
00003e50  0d 15 36 05 e1 0d 15 40  04 0d 15 4a 0a dd f2 74  |..6....@...J...t|
00003e60  69 63 6b 0d 15 54 1a c8  99 20 73 5f 74 69 6d 65  |ick..T... s_time|
00003e70  25 20 b8 20 74 69 6d 65  73 6c 69 70 25 0d 15 5e  |% . timeslip%..^|
00003e80  2a c8 95 74 69 6d 65 73  6c 69 70 25 2d 74 69 6d  |*..timeslip%-tim|
00003e90  65 78 25 3e 3d 30 3a 74  69 6d 65 78 25 2b 3d 64  |ex%>=0:timex%+=d|
00003ea0  65 6c 61 79 25 3a ce 0d  15 68 05 e1 0d 15 72 04  |elay%:...h....r.|
00003eb0  0d 15 7c 0c dd f2 63 68  61 6e 67 65 0d 15 86 2c  |..|...change...,|
00003ec0  c8 99 20 73 5f 73 70 6f  70 25 2c 26 31 31 38 2c  |.. s_spop%,&118,|
00003ed0  73 70 72 69 74 65 73 25  2c 73 70 6e 61 6d 65 24  |sprites%,spname$|
00003ee0  20 b8 2c 2c 73 72 63 25  0d 15 90 31 c8 99 20 73  | .,,src%...1.. s|
00003ef0  5f 73 70 6f 70 25 2c 26  31 31 38 2c 73 70 72 69  |_spop%,&118,spri|
00003f00  74 65 73 25 2c 22 2d 6d  61 69 6c 68 6f 6c 65 22  |tes%,"-mailhole"|
00003f10  20 b8 2c 2c 64 65 73 74  25 0d 15 9a 27 e3 7a 25  | .,,dest%...'.z%|
00003f20  3d 34 34 b8 21 73 72 63  25 2d 31 88 34 3a 64 65  |=44.!src%-1.4:de|
00003f30  73 74 25 21 7a 25 3d 73  72 63 25 21 7a 25 3a ed  |st%!z%=src%!z%:.|
00003f40  0d 15 a4 26 21 71 25 3d  2d 31 3a 71 25 21 34 3d  |...&!q%=-1:q%!4=|
00003f50  69 63 6d 61 69 6c 25 3a  71 25 21 38 3d 30 3a 71  |icmail%:q%!8=0:q|
00003f60  25 21 31 32 3d 30 0d 15  ae 17 c8 99 20 73 5f 73  |%!12=0...... s_s|
00003f70  65 74 69 73 74 61 74 65  25 2c 2c 71 25 0d 15 b8  |etistate%,,q%...|
00003f80  05 e1 0d 15 c2 04 0d 15  cc 14 dd f2 70 6f 70 75  |............popu|
00003f90  70 28 68 61 6e 64 6c 65  25 29 0d 15 d6 12 f2 67  |p(handle%).....g|
00003fa0  65 74 77 28 68 61 6e 64  6c 65 25 29 0d 15 e0 26  |etw(handle%)...&|
00003fb0  78 6f 25 3d 6d 6f 75 73  65 78 25 2d 28 78 30 25  |xo%=mousex%-(x0%|
00003fc0  2b 78 31 25 29 2f 32 3a  79 6f 25 3d 39 36 2d 79  |+x1%)/2:yo%=96-y|
00003fd0  30 25 0d 15 ea 46 f2 6f  70 65 6e 5f 77 69 6e 64  |0%...F.open_wind|
00003fe0  6f 77 28 68 61 6e 64 6c  65 25 2c 78 30 25 2b 78  |ow(handle%,x0%+x|
00003ff0  6f 25 2c 79 30 25 2b 79  6f 25 2c 78 31 25 2b 78  |o%,y0%+yo%,x1%+x|
00004000  6f 25 2c 79 31 25 2b 79  6f 25 2c 73 63 78 25 2c  |o%,y1%+yo%,scx%,|
00004010  73 63 79 25 2c 2d 31 29  0d 15 f4 05 e1 0d 15 fe  |scy%,-1)........|
00004020  04 0d 16 08 3d dd f2 6f  70 65 6e 5f 77 69 6e 64  |....=..open_wind|
00004030  6f 77 28 68 61 6e 64 6c  65 25 2c 78 30 25 2c 79  |ow(handle%,x0%,y|
00004040  30 25 2c 78 31 25 2c 79  31 25 2c 73 63 78 25 2c  |0%,x1%,y1%,scx%,|
00004050  73 63 79 25 2c 62 68 61  6e 64 6c 65 25 29 0d 16  |scy%,bhandle%)..|
00004060  12 11 e7 68 61 6e 64 6c  65 25 3d 2d 31 8c e1 0d  |...handle%=-1...|
00004070  16 1c 1f 71 25 21 30 3d  68 61 6e 64 6c 65 25 3a  |...q%!0=handle%:|
00004080  71 25 21 32 38 3d 62 68  61 6e 64 6c 65 25 0d 16  |q%!28=bhandle%..|
00004090  26 29 71 25 21 34 3d 78  30 25 3a 71 25 21 38 3d  |&)q%!4=x0%:q%!8=|
000040a0  79 30 25 3a 71 25 21 31  32 3d 78 31 25 3a 71 25  |y0%:q%!12=x1%:q%|
000040b0  21 31 36 3d 79 31 25 0d  16 30 19 71 25 21 32 30  |!16=y1%..0.q%!20|
000040c0  3d 73 63 78 25 3a 71 25  21 32 34 3d 73 63 79 25  |=scx%:q%!24=scy%|
000040d0  0d 16 3a 13 c8 99 20 73  5f 6f 70 65 6e 77 25 2c  |..:... s_openw%,|
000040e0  2c 71 25 0d 16 44 05 e1  0d 16 4e 04 0d 16 58 13  |,q%..D....N...X.|
000040f0  dd f2 67 65 74 77 28 68  61 6e 64 6c 65 25 29 0d  |..getw(handle%).|
00004100  16 62 23 21 71 25 3d 68  61 6e 64 6c 65 25 3a c8  |.b#!q%=handle%:.|
00004110  99 20 73 5f 67 65 74 77  73 74 61 74 65 25 2c 2c  |. s_getwstate%,,|
00004120  71 25 0d 16 6c 2b f2 69  6e 66 6f 28 71 25 2b 34  |q%..l+.info(q%+4|
00004130  29 3a 62 68 61 6e 64 6c  65 25 3d 71 25 21 32 38  |):bhandle%=q%!28|
00004140  3a 66 6c 61 67 73 25 3d  71 25 21 33 32 0d 16 76  |:flags%=q%!32..v|
00004150  05 e1 0d 16 80 04 0d 16  8a 0e dd f2 69 6e 66 6f  |............info|
00004160  28 71 25 29 0d 16 94 3d  78 30 25 3d 21 71 25 3a  |(q%)...=x0%=!q%:|
00004170  79 30 25 3d 71 25 21 34  3a 78 31 25 3d 71 25 21  |y0%=q%!4:x1%=q%!|
00004180  38 3a 79 31 25 3d 71 25  21 31 32 3a 73 63 78 25  |8:y1%=q%!12:scx%|
00004190  3d 71 25 21 31 36 3a 73  63 79 25 3d 71 25 21 32  |=q%!16:scy%=q%!2|
000041a0  30 0d 16 9e 1d 62 78 25  3d 78 30 25 2d 73 63 78  |0....bx%=x0%-scx|
000041b0  25 3a 62 79 25 3d 79 31  25 2d 73 63 79 25 0d 16  |%:by%=y1%-scy%..|
000041c0  a8 05 e1 0d 16 b2 04 0d  16 bc 1c dd f2 72 65 64  |.............red|
000041d0  72 61 77 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |raw_window(handl|
000041e0  65 25 29 0d 16 c6 16 e7  68 61 6e 64 6c 65 25 3d  |e%).....handle%=|
000041f0  6d 61 69 6c 74 6f 25 20  8c 0d 16 d0 0f 21 71 25  |mailto% .....!q%|
00004200  3d 68 61 6e 64 6c 65 25  0d 16 da 1d c8 99 20 73  |=handle%...... s|
00004210  5f 72 65 64 72 61 77 77  25 2c 2c 71 25 20 b8 20  |_redraww%,,q% . |
00004220  6d 6f 72 65 25 0d 16 e4  0f f2 69 6e 66 6f 28 71  |more%.....info(q|
00004230  25 2b 34 29 0d 16 ee 05  cd 0d 16 f8 05 e1 0d 17  |%+4)............|
00004240  02 04 0d 17 0c 10 dd f2  67 65 74 70 6f 69 6e 74  |........getpoint|
00004250  65 72 0d 17 16 1b c8 99  20 73 5f 67 65 74 70 6f  |er...... s_getpo|
00004260  69 6e 74 25 2c 2c 62 75  66 66 65 72 25 0d 17 20  |int%,,buffer%.. |
00004270  66 6d 6f 75 73 65 78 25  3d 21 62 75 66 66 65 72  |fmousex%=!buffer|
00004280  25 3a 6d 6f 75 73 65 79  25 3d 62 75 66 66 65 72  |%:mousey%=buffer|
00004290  25 21 34 3a 62 25 3d 62  75 66 66 65 72 25 21 38  |%!4:b%=buffer%!8|
000042a0  3a 68 61 6e 64 6c 65 25  3d 62 75 66 66 65 72 25  |:handle%=buffer%|
000042b0  21 31 32 3a 69 63 6f 6e  25 3d 62 75 66 66 65 72  |!12:icon%=buffer|
000042c0  25 21 31 36 3a 6f 62 25  3d 62 75 66 66 65 72 25  |%!16:ob%=buffer%|
000042d0  21 32 30 0d 17 2a 05 e1  0d 17 34 04 0d 17 3e 3a  |!20..*....4...>:|
000042e0  dd f2 63 6c 6f 73 65 5f  77 69 6e 64 6f 77 28 68  |..close_window(h|
000042f0  61 6e 64 6c 65 25 29 3a  21 71 25 3d 68 61 6e 64  |andle%):!q%=hand|
00004300  6c 65 25 3a c8 99 20 73  5f 63 6c 6f 73 65 77 25  |le%:.. s_closew%|
00004310  2c 2c 71 25 3a e1 0d 17  48 04 0d 17 52 22 dd f2  |,,q%:...H...R"..|
00004320  73 65 74 4f 70 74 28 77  69 6e 64 6f 77 25 2c 69  |setOpt(window%,i|
00004330  63 6f 6e 25 2c 73 74 61  74 65 25 29 0d 17 5c 41  |con%,state%)..\A|
00004340  20 21 6f 70 74 62 75 66  66 25 3d 77 69 6e 64 6f  | !optbuff%=windo|
00004350  77 25 3a 6f 70 74 62 75  66 66 25 21 34 3d 69 63  |w%:optbuff%!4=ic|
00004360  6f 6e 25 3a c8 99 20 73  5f 67 65 74 69 73 74 61  |on%:.. s_getista|
00004370  74 65 25 2c 2c 6f 70 74  62 75 66 66 25 0d 17 66  |te%,,optbuff%..f|
00004380  3d 20 e7 73 74 61 74 65  25 20 24 28 6f 70 74 62  |= .state% $(optb|
00004390  75 66 66 25 2b 32 38 29  3d 22 6f 70 74 6f 6e 22  |uff%+28)="opton"|
000043a0  20 8b 20 24 28 6f 70 74  62 75 66 66 25 2b 32 38  | . $(optbuff%+28|
000043b0  29 3d 22 6f 70 74 6f 66  66 22 0d 17 70 3e 20 21  |)="optoff"..p> !|
000043c0  6f 70 74 62 75 66 66 25  3d 77 69 6e 64 6f 77 25  |optbuff%=window%|
000043d0  3a 6f 70 74 62 75 66 66  25 21 34 3d 69 63 6f 6e  |:optbuff%!4=icon|
000043e0  25 3a c8 99 73 5f 64 65  6c 65 74 65 69 25 2c 2c  |%:..s_deletei%,,|
000043f0  6f 70 74 62 75 66 66 25  0d 17 7a 30 20 6f 70 74  |optbuff%..z0 opt|
00004400  62 75 66 66 25 21 34 3d  77 69 6e 64 6f 77 25 3a  |buff%!4=window%:|
00004410  c8 99 73 5f 63 72 65 61  74 65 69 25 2c 2c 6f 70  |..s_createi%,,op|
00004420  74 62 75 66 66 25 2b 34  0d 17 84 3d 20 21 71 25  |tbuff%+4...= !q%|
00004430  3d 77 69 6e 64 6f 77 25  3a 71 25 21 34 3d 69 63  |=window%:q%!4=ic|
00004440  6f 6e 25 3a 71 25 21 38  3d 30 3a 71 25 21 31 32  |on%:q%!8=0:q%!12|
00004450  3d 30 3a c8 99 73 5f 73  65 74 69 73 74 61 74 65  |=0:..s_setistate|
00004460  25 2c 2c 71 25 0d 17 8e  05 e1 0d 17 98 04 0d 17  |%,,q%...........|
00004470  a2 1d dd a4 68 65 6c 70  28 77 69 6e 64 6f 77 25  |....help(window%|
00004480  2c 69 63 6f 6e 25 2c 74  6f 25 29 0d 17 ac 1a 20  |,icon%,to%).... |
00004490  ea 20 74 24 2c 74 31 24  3a 74 24 3d 22 22 3a 74  |. t$,t1$:t$="":t|
000044a0  31 24 3d 22 22 0d 17 b6  0b 24 74 6f 25 3d 22 22  |1$=""....$to%=""|
000044b0  0d 17 c0 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |...... window% .|
000044c0  0d 17 ca 09 20 c9 20 2d  32 0d 17 d4 11 20 20 74  |.... . -2....  t|
000044d0  24 3d 22 4d 61 69 6c 48  31 22 0d 17 de 1e 20 20  |$="MailH1"....  |
000044e0  e7 20 73 70 6e 61 6d 65  24 20 3d 20 22 2d 6d 61  |. spname$ = "-ma|
000044f0  69 6c 75 6e 6b 22 20 8c  0d 17 e8 13 20 20 20 74  |ilunk" .....   t|
00004500  31 24 3d 22 4d 61 69 6c  48 32 22 0d 17 f2 07 20  |1$="MailH2".... |
00004510  20 cc 0d 17 fc 13 20 20  20 74 31 24 3d 22 4d 61  | .....   t1$="Ma|
00004520  69 6c 48 33 22 0d 18 06  2d 20 20 20 e7 20 73 70  |ilH3"...-   . sp|
00004530  6e 61 6d 65 24 20 3d 20  22 2d 6d 61 69 6c 66 75  |name$ = "-mailfu|
00004540  6c 6c 22 20 8c 20 74 31  24 3d 22 4d 61 69 6c 48  |ll" . t1$="MailH|
00004550  34 22 0d 18 10 07 20 20  cd 0d 18 1a 0f 20 c9 20  |4"....  ..... . |
00004560  6d 61 69 6c 74 6f 25 3a  0d 18 24 11 20 20 74 24  |mailto%:..$.  t$|
00004570  3d 22 4d 61 69 6c 48 35  22 0d 18 2e 10 20 20 c8  |="MailH5"....  .|
00004580  8e 20 69 63 6f 6e 25 20  ca 0d 18 38 18 20 20 20  |. icon% ...8.   |
00004590  c9 20 30 3a 20 74 31 24  3d 22 4d 61 69 6c 48 36  |. 0: t1$="MailH6|
000045a0  22 0d 18 42 18 20 20 20  c9 20 31 3a 20 74 31 24  |"..B.   . 1: t1$|
000045b0  3d 22 4d 61 69 6c 48 37  22 0d 18 4c 18 20 20 20  |="MailH7"..L.   |
000045c0  c9 20 32 3a 20 74 31 24  3d 22 4d 61 69 6c 48 38  |. 2: t1$="MailH8|
000045d0  22 0d 18 56 18 20 20 20  c9 20 33 3a 20 74 31 24  |"..V.   . 3: t1$|
000045e0  3d 22 4d 61 69 6c 48 39  22 0d 18 60 18 20 20 20  |="MailH9"..`.   |
000045f0  c9 20 34 3a 20 74 31 24  3d 22 4d 61 69 6c 48 41  |. 4: t1$="MailHA|
00004600  22 0d 18 6a 0c 20 20 20  c9 20 31 31 3a 0d 18 74  |"..j.   . 11:..t|
00004610  2b 20 20 20 20 e7 20 61  63 6b 20 8c 20 74 31 24  |+    . ack . t1$|
00004620  3d 22 4d 61 69 6c 48 42  22 20 8b 20 74 31 24 3d  |="MailHB" . t1$=|
00004630  22 4d 61 69 6c 48 43 22  0d 18 7e 0f 20 20 20 7f  |"MailHC"..~.   .|
00004640  3a 20 74 24 3d 22 22 0d  18 88 07 20 20 cb 0d 18  |: t$=""....  ...|
00004650  92 15 20 c9 20 63 68 6f  69 63 65 73 77 69 6e 64  |.. . choiceswind|
00004660  6f 77 25 0d 18 9c 11 20  20 74 24 3d 22 4d 61 69  |ow%....  t$="Mai|
00004670  6c 48 35 22 0d 18 a6 10  20 20 c8 8e 20 69 63 6f  |lH5"....  .. ico|
00004680  6e 25 20 ca 0d 18 b0 18  20 20 20 c9 20 30 3a 20  |n% .....   . 0: |
00004690  74 31 24 3d 22 4d 61 69  6c 48 44 22 0d 18 ba 18  |t1$="MailHD"....|
000046a0  20 20 20 c9 20 31 3a 20  74 31 24 3d 22 4d 61 69  |   . 1: t1$="Mai|
000046b0  6c 48 45 22 0d 18 c4 18  20 20 20 c9 20 32 3a 20  |lHE"....   . 2: |
000046c0  74 31 24 3d 22 4d 61 69  6c 48 46 22 0d 18 ce 18  |t1$="MailHF"....|
000046d0  20 20 20 c9 20 33 3a 20  74 31 24 3d 22 4d 61 69  |   . 3: t1$="Mai|
000046e0  6c 48 47 22 0d 18 d8 18  20 20 20 c9 20 34 3a 20  |lHG"....   . 4: |
000046f0  74 31 24 3d 22 4d 61 69  6c 48 48 22 0d 18 e2 18  |t1$="MailHH"....|
00004700  20 20 20 c9 20 35 3a 20  74 31 24 3d 22 4d 61 69  |   . 5: t1$="Mai|
00004710  6c 48 49 22 0d 18 ec 0b  20 20 20 c9 20 36 3a 0d  |lHI"....   . 6:.|
00004720  18 f6 2f 20 20 20 20 e7  20 6e 65 77 42 6f 6e 67  |../    . newBong|
00004730  20 8c 20 74 31 24 3d 22  4d 61 69 6c 48 4a 22 20  | . t1$="MailHJ" |
00004740  8b 20 74 31 24 3d 22 4d  61 69 6c 48 4b 22 0d 19  |. t1$="MailHK"..|
00004750  00 0f 20 20 20 7f 3a 20  74 24 3d 22 22 0d 19 0a  |..   .: t$=""...|
00004760  07 20 20 cb 0d 19 14 07  20 20 7f 0d 19 1e 3e 20  |.  .....  ....> |
00004770  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 4d 65  |  .. "Wimp_GetMe|
00004780  6e 75 53 74 61 74 65 22  2c 20 31 2c 20 6d 65 6e  |nuState", 1, men|
00004790  75 5f 62 75 66 66 65 72  25 2c 20 77 69 6e 64 6f  |u_buffer%, windo|
000047a0  77 25 2c 20 69 63 6f 6e  25 0d 19 28 1a 20 20 20  |w%, icon%..(.   |
000047b0  c8 8e 20 6d 65 6e 75 5f  62 75 66 66 65 72 25 21  |.. menu_buffer%!|
000047c0  30 20 ca 0d 19 32 18 20  20 20 20 c9 20 30 3a 20  |0 ...2.    . 0: |
000047d0  74 24 3d 22 4d 61 69 6c  48 4c 22 0d 19 3c 18 20  |t$="MailHL"..<. |
000047e0  20 20 20 c9 20 31 3a 20  74 24 3d 22 4d 61 69 6c  |   . 1: t$="Mail|
000047f0  48 4d 22 0d 19 46 18 20  20 20 20 c9 20 32 3a 20  |HM"..F.    . 2: |
00004800  74 24 3d 22 4d 61 69 6c  48 4e 22 0d 19 50 18 20  |t$="MailHN"..P. |
00004810  20 20 20 c9 20 33 3a 20  74 24 3d 22 4d 61 69 6c  |   . 3: t$="Mail|
00004820  48 4f 22 0d 19 5a 18 20  20 20 20 c9 20 34 3a 20  |HO"..Z.    . 4: |
00004830  74 24 3d 22 4d 61 69 6c  48 50 22 0d 19 64 08 20  |t$="MailHP"..d. |
00004840  20 20 cb 0d 19 6e 04 0d  19 78 05 cb 0d 19 82 67  |  ...n...x.....g|
00004850  e7 20 74 24 20 3c 3e 20  22 22 20 80 20 74 31 24  |. t$ <> "" . t1$|
00004860  3c 3e 22 22 20 8c 20 24  74 6f 25 3d a4 67 65 74  |<>"" . $to%=.get|
00004870  5f 6d 65 73 73 61 67 65  28 74 24 29 2b a4 67 65  |_message(t$)+.ge|
00004880  74 5f 6d 65 73 73 61 67  65 28 74 31 24 29 20 8b  |t_message(t1$) .|
00004890  20 e7 20 74 24 20 3c 3e  20 22 22 20 8c 20 24 74  | . t$ <> "" . $t|
000048a0  6f 25 3d a4 67 65 74 5f  6d 65 73 73 61 67 65 28  |o%=.get_message(|
000048b0  74 24 29 0d 19 8c 10 3d  74 6f 25 2b a9 28 24 74  |t$)....=to%+.($t|
000048c0  6f 25 29 0d 19 96 04 0d  19 a0 2d dd f2 6e 6f 74  |o%).......-..not|
000048d0  65 42 75 66 66 65 72 73  28 77 69 6e 64 6f 77 25  |eBuffers(window%|
000048e0  2c 20 6c 6f 25 2c 20 68  69 25 2c 20 f8 20 74 6f  |, lo%, hi%, . to|
000048f0  25 28 29 29 0d 19 aa 0c  20 ea 20 69 63 6f 6e 25  |%()).... . icon%|
00004900  0d 19 b4 18 20 69 63 6f  6e 49 6e 66 6f 25 21 30  |.... iconInfo%!0|
00004910  3d 77 69 6e 64 6f 77 25  0d 19 be 5f 20 e3 20 69  |=window%..._ . i|
00004920  63 6f 6e 25 3d 6c 6f 25  20 b8 20 68 69 25 3a 69  |con%=lo% . hi%:i|
00004930  63 6f 6e 49 6e 66 6f 25  21 34 3d 69 63 6f 6e 25  |conInfo%!4=icon%|
00004940  3a c8 99 73 5f 67 65 74  69 69 6e 66 6f 25 2c 2c  |:..s_getiinfo%,,|
00004950  69 63 6f 6e 49 6e 66 6f  25 3a 74 6f 25 28 69 63  |iconInfo%:to%(ic|
00004960  6f 6e 25 2d 6c 6f 25 29  3d 69 63 6f 6e 49 6e 66  |on%-lo%)=iconInf|
00004970  6f 25 21 32 38 3a ed 0d  19 c8 05 e1 0d 19 d2 04  |o%!28:..........|
00004980  0d 19 dc 19 dd a4 62 75  66 66 4c 65 6e 67 74 68  |......buffLength|
00004990  28 62 75 66 66 65 72 25  29 0d 19 e6 09 20 ea 20  |(buffer%).... . |
000049a0  6c 25 0d 19 f0 42 20 e3  20 6c 25 3d 30 b8 32 35  |l%...B . l%=0.25|
000049b0  35 3a e7 62 75 66 66 65  72 25 3f 6c 25 3d 31 33  |5:.buffer%?l%=13|
000049c0  20 84 20 62 75 66 66 65  72 25 3f 6c 25 3d 31 30  | . buffer%?l%=10|
000049d0  20 84 20 62 75 66 66 65  72 25 3f 6c 25 3d 30 20  | . buffer%?l%=0 |
000049e0  8c 3d 6c 25 0d 19 fa 06  20 ed 0d 1a 04 08 3d 32  |.=l%.... .....=2|
000049f0  35 35 0d 1a 0e 04 0d 1a  18 3c dd a4 74 6f 43 74  |55.......<..toCt|
00004a00  72 6c 28 66 72 6f 6d 25  2c 20 74 6f 25 29 20 3a  |rl(from%, to%) :|
00004a10  f4 20 7c 4d 20 2d 3e 20  63 68 2e 63 6f 64 65 20  |. |M -> ch.code |
00004a20  31 33 2c 20 72 65 74 75  72 6e 73 20 6c 65 6e 67  |13, returns leng|
00004a30  74 68 0d 1a 22 17 20 ea  20 66 25 2c 74 25 3a 66  |th..". . f%,t%:f|
00004a40  25 3d 30 3a 74 25 3d 2d  31 0d 1a 2c 06 20 f5 0d  |%=0:t%=-1..,. ..|
00004a50  1a 36 65 20 74 25 2b 3d  31 3a e7 66 72 6f 6d 25  |.6e t%+=1:.from%|
00004a60  3f 66 25 3d 97 22 7c 22  80 28 66 72 6f 6d 25 3f  |?f%=."|".(from%?|
00004a70  28 66 25 2b 31 29 3d 97  22 4d 22 84 66 72 6f 6d  |(f%+1)=."M".from|
00004a80  25 3f 28 66 25 2b 31 29  3d 97 22 6d 22 29 8c 74  |%?(f%+1)=."m").t|
00004a90  6f 25 3f 74 25 3d 31 33  3a 66 25 2b 3d 32 8b 74  |o%?t%=13:f%+=2.t|
00004aa0  6f 25 3f 74 25 3d 66 72  6f 6d 25 3f 66 25 3a 66  |o%?t%=from%?f%:f|
00004ab0  25 2b 3d 31 0d 1a 40 0f  20 fd 20 74 6f 25 3f 74  |%+=1..@. . to%?t|
00004ac0  25 3d 30 0d 1a 4a 07 3d  74 25 0d 1a 54 04 0d 1a  |%=0..J.=t%..T...|
00004ad0  5e 24 dd f2 72 65 67 69  73 74 65 72 43 68 6f 69  |^$..registerChoi|
00004ae0  63 65 73 28 63 68 65 63  6b 25 2c 20 6b 65 65 70  |ces(check%, keep|
00004af0  25 29 0d 1a 68 12 20 ea  20 69 25 2c 20 6c 65 6e  |%)..h. . i%, len|
00004b00  67 74 68 25 0d 1a 72 14  20 e3 20 69 25 3d 30 b8  |gth%..r. . i%=0.|
00004b10  6d 61 78 56 61 72 73 25  0d 1a 7c 2d 20 20 6c 65  |maxVars%..|-  le|
00004b20  6e 67 74 68 25 3d a4 66  72 6f 6d 43 74 72 6c 32  |ngth%=.fromCtrl2|
00004b30  28 63 68 6f 69 63 65 25  28 69 25 29 2c 62 75 66  |(choice%(i%),buf|
00004b40  66 65 72 25 29 0d 1a 86  1e 20 20 e7 20 6c 65 6e  |fer%)....  . len|
00004b50  67 74 68 25 3d 30 20 8c  20 6c 65 6e 67 74 68 25  |gth%=0 . length%|
00004b60  3d 2d 31 0d 1a 90 34 20  20 c8 99 20 73 5f 73 65  |=-1...4  .. s_se|
00004b70  74 76 61 72 25 2c 76 61  72 6e 61 6d 65 73 24 28  |tvar%,varnames$(|
00004b80  69 25 29 2c 62 75 66 66  65 72 25 2c 6c 65 6e 67  |i%),buffer%,leng|
00004b90  74 68 25 2c 30 2c 30 0d  1a 9a 06 20 ed 0d 1a a4  |th%,0,0.... ....|
00004ba0  3a 20 f2 73 65 74 4d 61  69 6c 53 6f 75 72 63 65  |: .setMailSource|
00004bb0  3a e7 20 63 68 65 63 6b  25 20 f2 63 68 65 63 6b  |:. check% .check|
00004bc0  4d 61 69 6c 53 6f 75 72  63 65 3a 62 6f 6e 67 3d  |MailSource:bong=|
00004bd0  6e 65 77 42 6f 6e 67 0d  1a ae 0f 20 f2 6e 6f 74  |newBong.... .not|
00004be0  65 53 63 72 61 70 0d 1a  b8 20 20 e7 20 ac 6b 65  |eScrap...  . .ke|
00004bf0  65 70 25 20 8c 20 c8 99  20 73 5f 63 72 6d 65 6e  |ep% . .. s_crmen|
00004c00  75 25 2c 2c 2d 31 0d 1a  c2 05 e1 0d 1a cc 04 0d  |u%,,-1..........|
00004c10  1a d6 3c dd a4 66 72 6f  6d 43 74 72 6c 32 28 66  |..<..fromCtrl2(f|
00004c20  72 6f 6d 25 2c 20 74 6f  25 29 20 3a f4 20 6d 61  |rom%, to%) :. ma|
00004c30  6b 65 20 73 74 72 69 6e  67 20 73 75 69 74 61 62  |ke string suitab|
00004c40  6c 65 20 66 6f 72 20 2a  53 65 74 0d 1a e0 1b 20  |le for *Set.... |
00004c50  ea 20 66 25 2c 74 25 2c  63 25 3a 66 25 3d 2d 31  |. f%,t%,c%:f%=-1|
00004c60  3a 74 25 3d 2d 31 0d 1a  ea 13 20 20 f5 3a 66 25  |:t%=-1....  .:f%|
00004c70  2b 3d 31 3a 74 25 2b 3d  31 0d 1a f4 14 20 20 20  |+=1:t%+=1....   |
00004c80  c8 8e 20 66 72 6f 6d 25  3f 66 25 20 ca 0d 1a fe  |.. from%?f% ....|
00004c90  3f 20 20 20 20 c9 20 97  22 7c 22 3a e7 20 28 66  |?    . ."|":. (f|
00004ca0  72 6f 6d 25 3f 28 66 25  2b 31 29 20 80 20 26 44  |rom%?(f%+1) . &D|
00004cb0  46 29 3c 3e 97 22 4d 22  20 8c 20 74 6f 25 3f 74  |F)<>."M" . to%?t|
00004cc0  25 3d 97 22 7c 22 3a 74  25 2b 3d 31 0d 1b 08 23  |%=."|":t%+=1...#|
00004cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004ce0  74 6f 25 3f 74 25 3d 66  72 6f 6d 25 3f 66 25 0d  |to%?t%=from%?f%.|
00004cf0  1b 12 30 20 20 20 20 c9  20 97 22 3c 22 3a 74 6f  |..0    . ."<":to|
00004d00  25 3f 74 25 3d 97 22 7c  22 3a 74 25 2b 3d 31 3a  |%?t%=."|":t%+=1:|
00004d10  74 6f 25 3f 74 25 3d 66  72 6f 6d 25 3f 66 25 0d  |to%?t%=from%?f%.|
00004d20  1b 1c 19 20 20 20 20 7f  3a 74 6f 25 3f 74 25 3d  |...    .:to%?t%=|
00004d30  66 72 6f 6d 25 3f 66 25  0d 1b 26 08 20 20 20 cb  |from%?f%..&.   .|
00004d40  0d 1b 30 11 20 20 fd 66  72 6f 6d 25 3f 66 25 3d  |..0.  .from%?f%=|
00004d50  30 0d 1b 3a 22 3d 20 74  25 2b 31 20 3a 20 f4 20  |0..:"= t%+1 : . |
00004d60  69 6e 63 6c 75 64 65 73  20 74 65 72 6d 69 6e 61  |includes termina|
00004d70  74 6f 72 0d 1b 44 04 0d  1b 4e 11 dd f2 73 61 76  |tor..D...N...sav|
00004d80  65 43 68 6f 69 63 65 73  0d 1b 58 4b 20 ea 20 69  |eChoices..XK . i|
00004d90  25 2c 66 69 6c 65 25 2c  76 61 6c 75 65 24 3a ea  |%,file%,value$:.|
00004da0  20 85 3a ee 85 20 ea 20  69 6e 74 65 72 6e 61 6c  | .:.. . internal|
00004db0  25 3d a3 3a d9 23 66 69  6c 65 25 3a f2 65 72 72  |%=.:.#file%:.err|
00004dc0  6f 72 62 6f 78 3a 69 6e  74 65 72 6e 61 6c 25 3d  |orbox:internal%=|
00004dd0  b9 3a e1 0d 1b 62 2c 20  66 69 6c 65 25 3d 30 3a  |.:...b, file%=0:|
00004de0  66 69 6c 65 25 3d ae 22  3c 4d 61 69 6c 4d 61 6e  |file%=."<MailMan|
00004df0  24 44 69 72 3e 2e 21 43  68 6f 69 63 65 73 22 0d  |$Dir>.!Choices".|
00004e00  1b 6c 14 20 e3 20 69 25  3d 30 b8 6d 61 78 56 61  |.l. . i%=0.maxVa|
00004e10  72 73 25 0d 1b 76 60 20  20 6c 65 6e 67 74 68 25  |rs%..v`  length%|
00004e20  3d a4 72 65 61 64 56 61  72 28 69 25 2c 62 75 66  |=.readVar(i%,buf|
00004e30  66 65 72 25 2c 32 35 36  29 3a f2 66 72 6f 6d 43  |fer%,256):.fromC|
00004e40  74 72 6c 28 62 75 66 66  65 72 25 2c 20 63 68 6f  |trl(buffer%, cho|
00004e50  69 63 65 25 28 69 25 29  29 3a 76 61 6c 75 65 24  |ice%(i%)):value$|
00004e60  3d a4 72 74 6f 7a 28 63  68 6f 69 63 65 25 28 69  |=.rtoz(choice%(i|
00004e70  25 29 29 0d 1b 80 35 20  20 e7 20 76 61 6c 75 65  |%))...5  . value|
00004e80  24 20 3c 3e 20 22 22 20  8c 20 d5 23 66 69 6c 65  |$ <> "" . .#file|
00004e90  25 2c 69 25 2b 97 22 30  22 3a d5 23 66 69 6c 65  |%,i%+."0":.#file|
00004ea0  25 2c 76 61 6c 75 65 24  0d 1b 8a 06 20 ed 0d 1b  |%,value$.... ...|
00004eb0  94 29 20 e7 20 62 6f 6e  67 20 8c 20 d5 23 66 69  |.) . bong . .#fi|
00004ec0  6c 65 25 2c 97 22 39 22  3a d5 23 66 69 6c 65 25  |le%,."9":.#file%|
00004ed0  2c 22 42 6f 6e 67 22 0d  1b 9e 0c 20 d9 23 66 69  |,"Bong".... .#fi|
00004ee0  6c 65 25 0d 1b a8 2b 20  ff 22 53 65 74 74 79 70  |le%...+ ."Settyp|
00004ef0  65 20 3c 4d 61 69 6c 4d  61 6e 24 44 69 72 3e 2e  |e <MailMan$Dir>.|
00004f00  21 43 68 6f 69 63 65 73  20 44 61 74 61 22 0d 1b  |!Choices Data"..|
00004f10  b2 05 e1 0d 1b bc 04 0d  1b c6 45 dd f2 66 72 6f  |..........E..fro|
00004f20  6d 43 74 72 6c 28 66 72  6f 6d 25 2c 20 74 6f 25  |mCtrl(from%, to%|
00004f30  29 20 3a f4 20 63 6f 6e  74 72 6f 6c 20 63 6f 64  |) :. control cod|
00004f40  65 73 20 73 74 72 69 70  70 65 64 2c 20 65 78 63  |es stripped, exc|
00004f50  65 70 74 20 31 33 20 3d  3e 20 7c 4d 0d 1b d0 18  |ept 13 => |M....|
00004f60  20 ea 20 66 25 2c 74 25  3a 66 25 3d 2d 31 3a 74  | . f%,t%:f%=-1:t|
00004f70  25 3d 2d 31 0d 1b da 4e  20 20 f5 3a 66 25 2b 3d  |%=-1...N  .:f%+=|
00004f80  31 3a 74 25 2b 3d 31 3a  e7 66 72 6f 6d 25 3f 66  |1:t%+=1:.from%?f|
00004f90  25 3d 31 33 8c 74 6f 25  3f 74 25 3d 97 22 7c 22  |%=13.to%?t%=."|"|
00004fa0  3a 74 25 2b 3d 31 3a 74  6f 25 3f 74 25 3d 97 22  |:t%+=1:to%?t%=."|
00004fb0  4d 22 8b 74 6f 25 3f 74  25 3d 66 72 6f 6d 25 3f  |M".to%?t%=from%?|
00004fc0  66 25 0d 1b e4 47 20 20  20 20 e7 20 74 6f 25 3f  |f%...G    . to%?|
00004fd0  74 25 3c 33 32 20 8c 20  74 25 2d 3d 31 20 3a 20  |t%<32 . t%-=1 : |
00004fe0  f4 20 73 74 72 69 70 20  63 6f 6e 74 72 6f 6c 20  |. strip control |
00004ff0  63 6f 64 65 73 20 28 74  25 20 69 67 6e 6f 72 65  |codes (t% ignore|
00005000  64 20 61 74 20 65 6e 64  29 0d 1b ee 11 20 20 fd  |d at end)....  .|
00005010  66 72 6f 6d 25 3f 66 25  3d 30 0d 1b f8 05 e1 0d  |from%?f%=0......|
00005020  1c 02 04 0d 1c 0c 13 dd  f2 66 69 6c 6c 49 6e 43  |.........fillInC|
00005030  68 6f 69 63 65 73 0d 1c  16 12 20 ea 20 6c 65 6e  |hoices.... . len|
00005040  67 74 68 25 2c 20 69 25  0d 1c 20 14 20 e3 20 69  |gth%, i%.. . . i|
00005050  25 3d 30 b8 6d 61 78 56  61 72 73 25 0d 1c 2a 46  |%=0.maxVars%..*F|
00005060  20 20 6c 65 6e 67 74 68  25 3d a4 72 65 61 64 56  |  length%=.readV|
00005070  61 72 28 69 25 2c 62 75  66 66 65 72 25 2c 32 35  |ar(i%,buffer%,25|
00005080  36 29 3a f2 66 72 6f 6d  43 74 72 6c 28 62 75 66  |6):.fromCtrl(buf|
00005090  66 65 72 25 2c 20 63 68  6f 69 63 65 25 28 69 25  |fer%, choice%(i%|
000050a0  29 29 0d 1c 34 06 20 ed  0d 1c 3e 05 e1 0d 1c 48  |))..4. ...>....H|
000050b0  04 0d 1c 52 13 dd f2 73  65 74 4d 61 69 6c 53 6f  |...R...setMailSo|
000050c0  75 72 63 65 0d 1c 5c 26  20 43 25 3d a4 72 65 61  |urce..\& C%=.rea|
000050d0  64 56 61 72 28 73 6f 75  72 63 65 2c 20 62 75 66  |dVar(source, buf|
000050e0  66 65 72 25 2c 20 32 35  36 29 0d 1c 66 57 20 e7  |fer%, 256)..fW .|
000050f0  20 43 25 3d 30 20 8c 20  6d 6e 61 6d 65 24 3d 22  | C%=0 . mname$="|
00005100  6e 65 74 3a 26 2e 6d 61  69 6c 2e 49 6e 74 72 61  |net:&.mail.Intra|
00005110  79 22 3a f2 73 65 74 56  61 72 28 73 6f 75 72 63  |y":.setVar(sourc|
00005120  65 2c 6d 6e 61 6d 65 24  29 20 8b 20 6d 6e 61 6d  |e,mname$) . mnam|
00005130  65 24 3d a4 72 74 6f 7a  28 62 75 66 66 65 72 25  |e$=.rtoz(buffer%|
00005140  29 0d 1c 70 3e 20 43 25  3d a7 6d 6e 61 6d 65 24  |)..p> C%=.mname$|
00005150  2c 22 3a 22 29 3a e7 c1  6d 6e 61 6d 65 24 2c 43  |,":"):..mname$,C|
00005160  25 2b 31 2c 31 29 3d 22  3a 22 20 43 25 3d a7 6d  |%+1,1)=":" C%=.m|
00005170  6e 61 6d 65 24 2c 22 2e  22 2c 43 25 2b 31 29 0d  |name$,".",C%+1).|
00005180  1c 7a 17 20 66 6e 61 6d  65 24 3d c0 6d 6e 61 6d  |.z. fname$=.mnam|
00005190  65 24 2c 43 25 29 0d 1c  84 1a 20 43 25 3d a7 6d  |e$,C%).... C%=.m|
000051a0  6e 61 6d 65 24 2c 22 2e  49 6e 74 72 61 79 22 29  |name$,".Intray")|
000051b0  0d 1c 8e 3e 20 e7 20 43  25 3d 30 20 8c 20 6e 66  |...> . C%=0 . nf|
000051c0  73 6e 61 6d 65 24 3d 66  6e 61 6d 65 24 2b 22 24  |sname$=fname$+"$|
000051d0  2e 4d 61 69 6c 2e 22 20  8b 20 6e 66 73 6e 61 6d  |.Mail." . nfsnam|
000051e0  65 24 3d c0 6d 6e 61 6d  65 24 2c 43 25 29 0d 1c  |e$=.mname$,C%)..|
000051f0  98 23 20 6d 61 69 6c 67  75 61 72 64 24 3d 6e 66  |.# mailguard$=nf|
00005200  73 6e 61 6d 65 24 2b 22  4d 5f 41 43 54 49 56 45  |sname$+"M_ACTIVE|
00005210  22 0d 1c a2 1d 20 6d 61  69 6c 74 24 3d 6e 66 73  |".... mailt$=nfs|
00005220  6e 61 6d 65 24 2b 22 4d  5f 43 54 4d 50 22 0d 1c  |name$+"M_CTMP"..|
00005230  ac 0f 20 6e 66 73 66 6c  61 67 25 3d 30 0d 1c b6  |.. nfsflag%=0...|
00005240  16 20 43 25 3d a7 66 6e  61 6d 65 24 2c 22 6e 66  |. C%=.fname$,"nf|
00005250  73 22 29 0d 1c c0 0d 20  e7 20 43 25 3d 31 20 8c  |s").... . C%=1 .|
00005260  0d 1c ca 10 20 20 6e 66  73 66 6c 61 67 25 3d 31  |....  nfsflag%=1|
00005270  0d 1c d4 1e 20 20 c8 99  20 73 5f 66 69 6c 65 25  |....  .. s_file%|
00005280  2c 35 2c 6d 61 69 6c 74  24 20 b8 20 72 30 0d 1c  |,5,mailt$ . r0..|
00005290  de 24 20 20 e7 20 72 30  3c 3e 30 20 8c 20 c8 99  |.$  . r0<>0 . ..|
000052a0  20 73 5f 78 66 69 6c 65  25 2c 36 2c 6d 61 69 6c  | s_xfile%,6,mail|
000052b0  74 24 0d 1c e8 06 20 cd  0d 1c f2 12 20 f2 63 68  |t$.... ..... .ch|
000052c0  65 63 6b 5f 61 63 63 65  73 73 0d 1c fc 05 e1 0d  |eck_access......|
000052d0  1d 06 04 0d 1d 10 04 0d  1d 1a 13 dd 20 f2 63 68  |............ .ch|
000052e0  65 63 6b 5f 61 63 63 65  73 73 0d 1d 24 3e 20 f4  |eck_access..$> .|
000052f0  20 46 69 78 20 4d 4d 2d  30 30 30 31 20 2d 20 63  | Fix MM-0001 - c|
00005300  68 65 63 6b 20 66 6f 72  20 70 75 62 6c 69 63 20  |heck for public |
00005310  77 72 69 74 65 20 61 63  63 65 73 73 20 6f 6e 20  |write access on |
00005320  6d 61 69 6c 20 62 6f 78  0d 1d 2e 04 0d 1d 38 34  |mail box......84|
00005330  20 c8 99 20 22 58 4f 53  5f 46 69 6c 65 22 2c 20  | .. "XOS_File", |
00005340  35 2c 20 6d 6e 61 6d 65  24 20 b8 20 74 79 70 65  |5, mname$ . type|
00005350  25 2c 2c 2c 2c 2c 61 74  74 72 25 20 3b 20 66 25  |%,,,,,attr% ; f%|
00005360  0d 1d 42 04 0d 1d 4c 11  20 e7 20 28 66 25 20 80  |..B...L. . (f% .|
00005370  20 31 29 20 8c 0d 1d 56  41 20 20 20 20 20 c8 99  | 1) ...VA     ..|
00005380  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00005390  6f 72 22 2c 20 74 79 70  65 25 2c 20 31 2c 20 a4  |or", type%, 1, .|
000053a0  67 65 74 5f 6d 65 73 73  61 67 65 20 28 22 4d 61  |get_message ("Ma|
000053b0  69 6c 30 30 22 29 0d 1d  60 0a 20 20 20 20 20 e1  |il00")..`.     .|
000053c0  0d 1d 6a 06 20 cd 0d 1d  74 04 0d 1d 7e 14 20 e7  |..j. ...t...~. .|
000053d0  20 28 74 79 70 65 25 20  3d 20 30 29 20 8c 0d 1d  | (type% = 0) ...|
000053e0  88 21 20 20 20 20 20 f2  72 65 70 6f 72 74 20 28  |.!     .report (|
000053f0  32 30 30 37 2c 20 22 4d  61 69 6c 45 4c 22 29 0d  |2007, "MailEL").|
00005400  1d 92 06 20 cc 0d 1d 9c  16 20 20 e7 20 28 74 79  |... .....  . (ty|
00005410  70 65 25 20 3c 3e 20 31  29 20 8c 0d 1d a6 22 20  |pe% <> 1) ...." |
00005420  20 20 20 20 20 f2 72 65  70 6f 72 74 20 28 32 30  |     .report (20|
00005430  30 35 2c 20 22 4d 61 69  6c 45 4b 22 29 0d 1d b0  |05, "MailEK")...|
00005440  07 20 20 cc 0d 1d ba 22  20 20 20 e7 20 28 28 61  |.  ...."   . ((a|
00005450  74 74 72 25 20 80 20 25  31 30 30 30 30 30 29 20  |ttr% . %100000) |
00005460  3d 20 30 29 20 8c 0d 1d  c4 22 20 20 20 20 20 20  |= 0) ...."      |
00005470  f2 72 65 70 6f 72 74 20  28 32 30 30 36 2c 20 22  |.report (2006, "|
00005480  4d 61 69 6c 45 4a 22 29  0d 1d ce 08 20 20 20 cd  |MailEJ")....   .|
00005490  0d 1d d8 07 20 20 cd 0d  1d e2 06 20 cd 0d 1d ec  |....  ..... ....|
000054a0  05 e1 0d 1d f6 04 0d 1e  00 15 dd f2 63 68 65 63  |............chec|
000054b0  6b 4d 61 69 6c 53 6f 75  72 63 65 0d 1e 0a 1a 20  |kMailSource.... |
000054c0  ea 20 66 6c 61 67 73 25  2c 20 65 78 69 73 74 73  |. flags%, exists|
000054d0  25 3a ea 20 85 0d 1e 14  2d 20 ee 85 20 ea 20 69  |%:. ....- .. . i|
000054e0  6e 74 65 72 6e 61 6c 25  3d a3 3a f2 65 72 72 6f  |nternal%=.:.erro|
000054f0  72 62 6f 78 3a 69 6e 74  65 72 6e 61 6c 25 3d b9  |rbox:internal%=.|
00005500  3a e1 0d 1e 1e 22 20 c8  99 20 73 5f 66 69 6c 65  |:...." .. s_file|
00005510  25 2c 35 2c 6d 6e 61 6d  65 24 20 b8 20 65 78 69  |%,5,mname$ . exi|
00005520  73 74 73 25 0d 1e 28 29  20 e7 20 65 78 69 73 74  |sts%..() . exist|
00005530  73 25 3d 30 20 8c 20 f2  72 65 70 6f 72 74 28 32  |s%=0 . .report(2|
00005540  30 30 34 2c 22 4d 61 69  6c 47 32 22 29 0d 1e 32  |004,"MailG2")..2|
00005550  05 e1 0d 1e 3c 04 0d 1e  46 17 dd a4 63 72 65 61  |....<...F...crea|
00005560  74 65 54 72 65 65 28 6e  61 6d 65 24 29 0d 1e 50  |teTree(name$)..P|
00005570  47 20 f4 20 52 65 63 75  72 73 69 76 65 6c 79 20  |G . Recursively |
00005580  73 74 72 69 70 20 6c 65  61 66 20 6f 66 66 2c 20  |strip leaf off, |
00005590  74 65 73 74 20 66 6f 72  20 65 78 69 73 74 65 6e  |test for existen|
000055a0  63 65 20 61 6e 64 20 74  72 79 20 74 6f 20 63 72  |ce and try to cr|
000055b0  65 61 74 65 0d 1e 5a 2b  20 ea 20 69 25 2c 20 72  |eate..Z+ . i%, r|
000055c0  6f 6f 74 24 2c 20 65 78  69 73 74 73 25 2c 20 66  |oot$, exists%, f|
000055d0  6c 61 67 73 25 2c 20 6d  69 64 24 3a ea 20 85 0d  |lags%, mid$:. ..|
000055e0  1e 64 16 20 ee 85 20 ea  20 f2 65 72 72 6f 72 62  |.d. .. . .errorb|
000055f0  6f 78 3a 3d a3 0d 1e 6e  19 20 e3 20 69 25 3d a9  |ox:=...n. . i%=.|
00005600  6e 61 6d 65 24 20 b8 20  31 20 88 20 2d 31 0d 1e  |name$ . 1 . -1..|
00005610  78 17 20 20 6d 69 64 24  3d c1 6e 61 6d 65 24 2c  |x.  mid$=.name$,|
00005620  69 25 2c 31 29 0d 1e 82  12 20 20 e7 20 6d 69 64  |i%,1)....  . mid|
00005630  24 3d 22 2e 22 20 8c 0d  1e 8c 19 20 20 20 72 6f  |$="." .....   ro|
00005640  6f 74 24 3d c0 6e 61 6d  65 24 2c 69 25 2d 31 29  |ot$=.name$,i%-1)|
00005650  0d 1e 96 31 20 20 20 c8  99 73 5f 66 69 6c 65 25  |...1   ..s_file%|
00005660  2c 35 2c 72 6f 6f 74 24  20 b8 20 65 78 69 73 74  |,5,root$ . exist|
00005670  73 25 3a e7 20 65 78 69  73 74 73 25 20 8c 20 3d  |s%:. exists% . =|
00005680  b9 0d 1e a0 53 20 20 20  c8 99 73 5f 63 6c 69 25  |....S   ..s_cli%|
00005690  2c 22 63 64 69 72 20 22  2b 72 6f 6f 74 24 20 b8  |,"cdir "+root$ .|
000056a0  20 3b 66 6c 61 67 73 25  3a e7 20 28 66 6c 61 67  | ;flags%:. (flag|
000056b0  73 25 20 80 20 31 29 3d  31 20 8c 20 3d a4 63 72  |s% . 1)=1 . =.cr|
000056c0  65 61 74 65 54 72 65 65  28 72 6f 6f 74 24 29 20  |eateTree(root$) |
000056d0  8b 20 3d b9 0d 1e aa 07  20 20 cc 0d 1e b4 2c 20  |. =.....  ...., |
000056e0  20 20 e7 20 6d 69 64 24  3d 22 26 22 20 84 20 6d  |  . mid$="&" . m|
000056f0  69 64 24 3d 22 24 22 20  84 20 6d 69 64 24 3d 22  |id$="$" . mid$="|
00005700  3a 22 20 8c 20 3d a3 0d  1e be 07 20 20 cd 0d 1e  |:" . =.....  ...|
00005710  c8 06 20 ed 0d 1e d2 06  3d a3 0d 1e dc 04 0d 1e  |.. .....=.......|
00005720  e6 1f dd f2 73 65 74 46  69 6c 65 28 62 75 66 66  |....setFile(buff|
00005730  65 72 25 2c 69 25 2c 6c  65 61 66 24 29 0d 1e f0  |er%,i%,leaf$)...|
00005740  28 20 ea 20 6c 65 6e 67  74 68 25 2c 20 6e 61 6d  |( . length%, nam|
00005750  65 24 2c 20 74 65 6d 70  25 3a de 20 74 65 6d 70  |e$, temp%:. temp|
00005760  25 20 32 35 36 0d 1e fa  23 20 6c 65 6e 67 74 68  |% 256...# length|
00005770  25 3d a4 72 65 61 64 56  61 72 28 69 25 2c 74 65  |%=.readVar(i%,te|
00005780  6d 70 25 2c 32 35 36 29  0d 1f 04 6a 20 e7 20 6c  |mp%,256)...j . l|
00005790  65 6e 67 74 68 25 3d 30  20 8c 20 6e 61 6d 65 24  |ength%=0 . name$|
000057a0  3d a4 72 74 6f 7a 28 62  75 66 66 65 72 25 29 2b  |=.rtoz(buffer%)+|
000057b0  6c 65 61 66 24 2b bd 30  3a f2 73 65 74 56 61 72  |leaf$+.0:.setVar|
000057c0  28 69 25 2c 6e 61 6d 65  24 29 3a 24 63 68 6f 69  |(i%,name$):$choi|
000057d0  63 65 25 28 69 25 29 3d  6e 61 6d 65 24 3a 63 68  |ce%(i%)=name$:ch|
000057e0  6f 69 63 65 25 28 69 25  29 3f a9 6e 61 6d 65 24  |oice%(i%)?.name$|
000057f0  3d 30 0d 1f 0e 05 e1 0d  1f 18 04 0d 1f 22 0f dd  |=0..........."..|
00005800  f2 6e 6f 74 65 53 63 72  61 70 0d 1f 2c 4c 20 c8  |.noteScrap..,L .|
00005810  99 73 5f 72 65 61 64 76  61 72 25 2c 22 4d 61 69  |.s_readvar%,"Mai|
00005820  6c 24 53 63 72 61 70 22  2c 62 75 66 66 65 72 25  |l$Scrap",buffer%|
00005830  2c 32 35 36 2c 30 2c 33  20 b8 20 2c 2c 73 63 72  |,256,0,3 . ,,scr|
00005840  61 70 43 25 3a 62 75 66  66 65 72 25 3f 73 63 72  |apC%:buffer%?scr|
00005850  61 70 43 25 3d 30 0d 1f  36 38 20 e7 20 73 63 72  |apC%=0..68 . scr|
00005860  61 70 43 25 3d 30 20 8c  20 73 63 72 61 70 43 25  |apC%=0 . scrapC%|
00005870  3d a4 72 65 61 64 56 61  72 28 63 75 72 72 65 6e  |=.readVar(curren|
00005880  74 2c 62 75 66 66 65 72  25 2c 32 35 36 29 0d 1f  |t,buffer%,256)..|
00005890  40 34 20 e7 20 73 63 72  61 70 43 25 3d 30 20 8c  |@4 . scrapC%=0 .|
000058a0  20 73 63 72 61 70 24 3d  22 22 20 8b 20 73 63 72  | scrap$="" . scr|
000058b0  61 70 24 3d a4 72 74 6f  7a 28 62 75 66 66 65 72  |ap$=.rtoz(buffer|
000058c0  25 29 0d 1f 4a 05 e1 0d  1f 54 04 0d 1f 5e 11 dd  |%)..J....T...^..|
000058d0  f2 72 65 61 64 43 68 6f  69 63 65 73 0d 1f 68 23  |.readChoices..h#|
000058e0  20 ea 20 69 25 2c 66 69  6c 65 25 2c 76 61 72 6e  | . i%,file%,varn|
000058f0  61 6d 65 24 2c 76 61 6c  75 65 24 3a ea 20 85 0d  |ame$,value$:. ..|
00005900  1f 72 35 20 ee 85 20 ea  20 69 6e 74 65 72 6e 61  |.r5 .. . interna|
00005910  6c 25 3d a3 3a f2 65 72  72 6f 72 62 6f 78 3a 69  |l%=.:.errorbox:i|
00005920  6e 74 65 72 6e 61 6c 25  3d b9 3a d9 23 66 69 6c  |nternal%=.:.#fil|
00005930  65 25 3a e1 0d 1f 7c 2f  20 66 69 6c 65 25 3d 8e  |e%:...|/ file%=.|
00005940  22 3c 4d 61 69 6c 4d 61  6e 24 44 69 72 3e 2e 21  |"<MailMan$Dir>.!|
00005950  43 68 6f 69 63 65 73 22  3a e7 66 69 6c 65 25 3d  |Choices":.file%=|
00005960  30 8c e1 0d 1f 86 11 20  c8 95 20 ac 20 c5 23 66  |0...... .. . .#f|
00005970  69 6c 65 25 0d 1f 90 24  20 20 69 25 3d 9a 23 66  |ile%...$  i%=.#f|
00005980  69 6c 65 25 2d 97 22 30  22 3a 76 61 6c 75 65 24  |ile%-."0":value$|
00005990  3d be 23 66 69 6c 65 25  0d 1f 9a 1c 20 20 e7 20  |=.#file%....  . |
000059a0  69 25 3e 3d 30 80 69 25  3c 3d 6d 61 78 56 61 72  |i%>=0.i%<=maxVar|
000059b0  73 25 20 8c 0d 1f a4 36  20 20 20 43 25 3d a4 72  |s% ....6   C%=.r|
000059c0  65 61 64 56 61 72 28 69  25 2c 30 2c 2d 31 29 3a  |eadVar(i%,0,-1):|
000059d0  e7 43 25 3d 30 20 8c 20  f2 73 65 74 56 61 72 28  |.C%=0 . .setVar(|
000059e0  69 25 2c 76 61 6c 75 65  24 29 0d 1f ae 07 20 20  |i%,value$)....  |
000059f0  cc 0d 1f b8 21 20 20 20  e7 69 25 3d 39 80 76 61  |....!   .i%=9.va|
00005a00  6c 75 65 24 3d 22 42 6f  6e 67 22 8c 62 6f 6e 67  |lue$="Bong".bong|
00005a10  3d b9 0d 1f c2 07 20 20  cd 0d 1f cc 06 20 ce 0d  |=.....  ..... ..|
00005a20  1f d6 0c 20 d9 23 66 69  6c 65 25 0d 1f e0 05 e1  |... .#file%.....|
00005a30  0d 1f ea 04 0d 1f f4 21  dd a4 72 65 61 64 56 61  |.......!..readVa|
00005a40  72 28 76 61 72 25 2c 20  74 6f 25 2c 20 6d 61 78  |r(var%, to%, max|
00005a50  42 75 66 25 29 0d 1f fe  0e 20 ea 20 6c 65 6e 67  |Buf%).... . leng|
00005a60  74 68 25 0d 20 08 3d 20  c8 99 73 5f 72 65 61 64  |th%. .= ..s_read|
00005a70  76 61 72 25 2c 76 61 72  6e 61 6d 65 73 24 28 76  |var%,varnames$(v|
00005a80  61 72 25 29 2c 74 6f 25  2c 6d 61 78 42 75 66 25  |ar%),to%,maxBuf%|
00005a90  2c 30 2c 33 20 b8 20 2c  2c 6c 65 6e 67 74 68 25  |,0,3 . ,,length%|
00005aa0  0d 20 12 22 20 e7 20 6d  61 78 42 75 66 25 3c 3e  |. ." . maxBuf%<>|
00005ab0  2d 31 20 8c 20 74 6f 25  3f 6c 65 6e 67 74 68 25  |-1 . to%?length%|
00005ac0  3d 30 0d 20 1c 0c 3d 6c  65 6e 67 74 68 25 0d 20  |=0. ..=length%. |
00005ad0  26 04 0d 20 30 19 dd f2  73 65 74 56 61 72 28 76  |&.. 0...setVar(v|
00005ae0  61 72 25 2c 20 66 72 6f  6d 24 29 0d 20 3a 0b 20  |ar%, from$). :. |
00005af0  ea 20 6c 65 6e 25 0d 20  44 4b 20 24 62 75 66 66  |. len%. DK $buff|
00005b00  65 72 32 25 3d 66 72 6f  6d 24 3a 62 75 66 66 65  |er2%=from$:buffe|
00005b10  72 32 25 3f 28 a9 66 72  6f 6d 24 29 3d 30 3a 6c  |r2%?(.from$)=0:l|
00005b20  65 6e 25 3d a4 66 72 6f  6d 43 74 72 6c 32 28 62  |en%=.fromCtrl2(b|
00005b30  75 66 66 65 72 32 25 2c  62 75 66 66 65 72 33 25  |uffer2%,buffer3%|
00005b40  29 0d 20 4e 32 20 c8 99  73 5f 73 65 74 76 61 72  |). N2 ..s_setvar|
00005b50  25 2c 76 61 72 6e 61 6d  65 73 24 28 76 61 72 25  |%,varnames$(var%|
00005b60  29 2c 62 75 66 66 65 72  33 25 2c 6c 65 6e 25 2c  |),buffer3%,len%,|
00005b70  30 2c 30 0d 20 58 05 e1  0d 20 62 04 0d 20 6c 13  |0,0. X... b.. l.|
00005b80  dd f2 72 65 64 72 61 77  43 68 6f 69 63 65 73 0d  |..redrawChoices.|
00005b90  20 76 37 20 f2 73 74 61  72 74 43 68 6f 69 63 65  | v7 .startChoice|
00005ba0  73 3a c8 99 73 5f 66 6f  72 63 65 72 65 64 25 2c  |s:..s_forcered%,|
00005bb0  68 61 6e 64 6c 65 25 2c  30 2c 2d 31 30 32 34 2c  |handle%,0,-1024,|
00005bc0  31 32 38 30 2c 30 0d 20  80 16 20 c8 99 73 5f 67  |1280,0. .. ..s_g|
00005bd0  65 74 63 61 72 65 74 25  2c 2c 71 25 0d 20 8a 35  |etcaret%,,q%. .5|
00005be0  20 e7 20 21 71 25 3d 63  68 6f 69 63 65 73 77 69  | . !q%=choiceswi|
00005bf0  6e 64 6f 77 25 20 8c 20  f2 73 65 74 43 61 72 65  |ndow% . .setCare|
00005c00  74 28 21 71 25 2c 71 25  21 34 2c 71 25 21 32 30  |t(!q%,q%!4,q%!20|
00005c10  29 0d 20 94 05 e1 0d 20  9e 04 0d 20 a8 11 dd f2  |). .... ... ....|
00005c20  70 75 74 4d 28 68 25 2c  6d 24 29 0d 20 b2 1a d5  |putM(h%,m$). ...|
00005c30  23 68 25 2c a4 67 65 74  5f 6d 65 73 73 61 67 65  |#h%,.get_message|
00005c40  28 6d 24 29 3b 0d 20 bc  05 e1 0d 20 c6 12 dd f2  |(m$);. .... ....|
00005c50  70 75 74 4d 31 28 68 25  2c 6d 24 29 0d 20 d0 19  |putM1(h%,m$). ..|
00005c60  d5 23 68 25 2c a4 67 65  74 5f 6d 65 73 73 61 67  |.#h%,.get_messag|
00005c70  65 28 6d 24 29 0d 20 da  05 e1 0d 20 e4 04 0d 20  |e(m$). .... ... |
00005c80  ee 16 dd f2 70 75 74 4d  32 28 68 25 2c 6d 24 2c  |....putM2(h%,m$,|
00005c90  6d 31 24 29 0d 20 f8 19  f2 70 75 74 4d 28 68 25  |m1$). ...putM(h%|
00005ca0  2c 6d 24 29 3a d5 23 68  25 2c 6d 31 24 0d 21 02  |,m$):.#h%,m1$.!.|
00005cb0  05 e1 0d 21 0c 04 0d 21  16 13 dd f2 69 6e 69 74  |...!...!....init|
00005cc0  5f 6d 65 73 73 61 67 65  73 0d 21 20 0b ea 20 43  |_messages.! .. C|
00005cd0  25 2c 4a 25 0d 21 2a 22  43 25 3d 8e 28 22 3c 4d  |%,J%.!*"C%=.("<M|
00005ce0  61 69 6c 4d 61 6e 24 44  69 72 3e 2e 4d 65 73 73  |ailMan$Dir>.Mess|
00005cf0  61 67 65 73 22 29 0d 21  34 2c e7 43 25 3d 30 20  |ages").!4,.C%=0 |
00005d00  85 20 32 30 31 31 2c 22  43 61 6e 6e 6f 74 20 66  |. 2011,"Cannot f|
00005d10  69 6e 64 20 6d 65 73 73  61 67 65 73 20 66 69 6c  |ind messages fil|
00005d20  65 22 0d 21 3e 14 de 20  6d 65 73 73 61 67 65 73  |e".!>.. messages|
00005d30  25 20 a2 23 43 25 0d 21  48 10 4a 25 3d 6d 65 73  |% .#C%.!H.J%=mes|
00005d40  73 61 67 65 73 25 0d 21  52 0c c8 95 20 ac c5 23  |sages%.!R... ..#|
00005d50  43 25 0d 21 5c 0d 20 24  4a 25 3d be 23 43 25 0d  |C%.!\. $J%=.#C%.|
00005d60  21 66 11 20 4a 25 2b 3d  a9 28 24 4a 25 29 2b 31  |!f. J%+=.($J%)+1|
00005d70  0d 21 70 05 ce 0d 21 7a  08 d9 23 43 25 0d 21 84  |.!p...!z..#C%.!.|
00005d80  15 65 6e 64 6f 66 6d 65  73 73 61 67 65 73 25 3d  |.endofmessages%=|
00005d90  4a 25 0d 21 8e 05 e1 0d  21 98 04 0d 21 a2 15 dd  |J%.!....!...!...|
00005da0  a4 67 65 74 5f 6d 65 73  73 61 67 65 28 54 24 29  |.get_message(T$)|
00005db0  0d 21 ac 0e ea 20 4a 25  2c 43 24 2c 49 25 0d 21  |.!... J%,C$,I%.!|
00005dc0  b6 10 4a 25 3d 6d 65 73  73 61 67 65 73 25 0d 21  |..J%=messages%.!|
00005dd0  c0 18 c8 95 20 4a 25 3c  65 6e 64 6f 66 6d 65 73  |.... J%<endofmes|
00005de0  73 61 67 65 73 25 0d 21  ca 0b 20 43 24 3d 24 4a  |sages%.!.. C$=$J|
00005df0  25 0d 21 d4 11 20 4a 25  2b 3d a9 28 24 4a 25 29  |%.!.. J%+=.($J%)|
00005e00  2b 31 0d 21 de 13 20 e7  c0 43 24 2c 31 29 3c 3e  |+1.!.. ..C$,1)<>|
00005e10  22 23 22 20 8c 0d 21 e8  11 20 20 49 25 3d a7 43  |"#" ..!..  I%=.C|
00005e20  24 2c 22 3a 22 29 0d 21  f2 0e 20 20 e7 49 25 3c  |$,":").!..  .I%<|
00005e30  3e 30 20 8c 0d 21 fc 20  20 20 20 e7 c0 43 24 2c  |>0 ..!.    ..C$,|
00005e40  49 25 2d 31 29 3d 54 24  20 3a 3d c1 43 24 2c 49  |I%-1)=T$ :=.C$,I|
00005e50  25 2b 31 29 0d 22 06 07  20 20 cd 0d 22 10 06 20  |%+1)."..  ..".. |
00005e60  cd 0d 22 1a 05 ce 0d 22  24 20 85 20 32 30 31 30  |.."...."$ . 2010|
00005e70  2c 22 43 61 6e 6e 6f 74  20 66 69 6e 64 20 74 61  |,"Cannot find ta|
00005e80  67 20 22 2b 54 24 0d 22  2e 07 3d 22 22 0d 22 38  |g "+T$."..=""."8|
00005e90  04 0d 22 42 19 dd 20 f2  64 65 73 6b 73 61 76 65  |.."B.. .desksave|
00005ea0  28 6d 65 73 73 61 67 65  25 29 0d 22 4c 14 ea 20  |(message%)."L.. |
00005eb0  6d 79 72 65 66 25 2c 73  65 6e 64 65 72 25 0d 22  |myref%,sender%."|
00005ec0  56 21 e7 20 ac 20 a4 64  65 73 6b 77 72 69 74 65  |V!. . .deskwrite|
00005ed0  28 6d 65 73 73 61 67 65  25 21 32 30 29 20 8c 0d  |(message%!20) ..|
00005ee0  22 60 18 20 20 73 65 6e  64 65 72 25 3d 6d 65 73  |"`.  sender%=mes|
00005ef0  73 61 67 65 25 21 34 0d  22 6a 17 20 20 6d 79 72  |sage%!4."j.  myr|
00005f00  65 66 25 3d 6d 65 73 73  61 67 65 25 21 38 0d 22  |ef%=message%!8."|
00005f10  74 18 20 20 6d 65 73 73  61 67 65 25 21 31 32 3d  |t.  message%!12=|
00005f20  6d 79 72 65 66 25 0d 22  7e 24 20 20 c8 99 73 5f  |myref%."~$  ..s_|
00005f30  73 65 6e 64 6d 25 2c 31  39 2c 6d 65 73 73 61 67  |sendm%,19,messag|
00005f40  65 25 2c 73 65 6e 64 65  72 25 0d 22 88 10 20 20  |e%,sender%."..  |
00005f50  f2 72 65 70 28 9f 2c f6  24 29 0d 22 92 05 cd 0d  |.rep(.,.$)."....|
00005f60  22 9c 05 e1 0d 22 a6 04  0d 22 b0 14 dd 20 a4 64  |"...."..."... .d|
00005f70  65 73 6b 77 72 69 74 65  28 48 25 29 0d 22 ba 07  |eskwrite(H%)."..|
00005f80  ea 20 85 0d 22 c4 0d ee  20 85 20 ea 20 3d 20 a3  |. .."... . . = .|
00005f90  0d 22 ce 1a d5 23 48 25  2c 22 52 75 6e 20 22 2b  |."...#H%,"Run "+|
00005fa0  24 62 6f 6f 74 70 61 74  68 25 0d 22 d8 07 3d 20  |$bootpath%."..= |
00005fb0  b9 0d 22 e2 04 0d 22 ec  3d dc 20 22 4d 61 69 6c  |.."...".=. "Mail|
00005fc0  24 43 75 72 72 65 6e 74  22 2c 22 4d 61 69 6c 24  |$Current","Mail$|
00005fd0  4c 6f 67 46 69 6c 65 22  2c 22 4d 61 69 6c 24 4e  |LogFile","Mail$N|
00005fe0  61 6d 65 22 2c 22 4d 61  69 6c 24 53 6f 75 72 63  |ame","Mail$Sourc|
00005ff0  65 22 0d ff                                       |e"..|
00005ff4