"� > !RunImage 1.06 (25-Jun-92)

� 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$+" Text"
��
�

��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 31 2e 30 36 20 28  32 35 2d 4a 75 6e 2d 39  |e 1.06 (25-Jun-9|
00000020  32 29 0d 00 14 04 0d 00  1e 1e de 20 74 61 73 6b  |2)......... task|
00000030  69 64 25 34 3a 24 74 61  73 6b 69 64 25 3d 22 54  |id%4:$taskid%="T|
00000040  41 53 4b 22 0d 00 28 3e  c8 99 20 22 57 69 6d 70  |ASK"..(>.. "Wimp|
00000050  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 33 30 30  |_Initialise",300|
00000060  2c 21 74 61 73 6b 69 64  25 2c 22 4d 61 69 6c 20  |,!taskid%,"Mail |
00000070  4d 61 6e 22 2c 2d 31 20  b8 20 76 65 72 73 69 6f  |Man",-1 . versio|
00000080  6e 25 0d 00 32 4d 60 77  62 63 6f 6c 3d 26 30 3a  |n%..2M`wbcol=&0:|
00000090  60 74 62 63 6f 6c 3d 31  32 3a 60 73 63 6f 3d 34  |`tbcol=12:`sco=4|
000000a0  3a 60 6d 62 63 6f 6c 3d  32 3a 60 77 66 63 6f 6c  |:`mbcol=2:`wfcol|
000000b0  3d 26 37 3a 60 74 66 63  6f 6c 3d 37 3a 60 73 63  |=&7:`tfcol=7:`sc|
000000c0  69 3d 26 44 3a 60 74 62  63 6f 6c 32 3d 26 43 0d  |i=&D:`tbcol2=&C.|
000000d0  00 3c 09 f2 76 61 72 73  0d 00 46 04 0d 00 50 12  |.<..vars..F...P.|
000000e0  f2 69 6e 69 74 5f 6d 65  73 73 61 67 65 73 0d 00  |.init_messages..|
000000f0  5a 04 0d 00 64 13 de 20  62 6f 6f 74 70 61 74 68  |Z...d.. bootpath|
00000100  25 20 32 35 36 0d 00 6e  3c c8 99 73 5f 72 65 61  |% 256..n<..s_rea|
00000110  64 76 61 72 25 2c 22 4d  61 69 6c 4d 61 6e 24 44  |dvar%,"MailMan$D|
00000120  69 72 22 2c 62 6f 6f 74  70 61 74 68 25 2c 32 35  |ir",bootpath%,25|
00000130  36 2c 30 2c 33 20 b8 2c  2c 62 6f 6f 74 6c 65 6e  |6,0,3 .,,bootlen|
00000140  25 0d 00 78 19 62 6f 6f  74 70 61 74 68 25 3f 62  |%..x.bootpath%?b|
00000150  6f 6f 74 6c 65 6e 25 3d  31 33 0d 00 82 04 0d 00  |ootlen%=13......|
00000160  8c 3d 6d 61 78 62 75 66  25 3d 26 32 30 30 3a de  |.=maxbuf%=&200:.|
00000170  20 62 75 66 66 65 72 25  20 6d 61 78 62 75 66 25  | buffer% maxbuf%|
00000180  2c 65 6e 64 62 75 66 25  20 2d 31 3a 63 75 72 62  |,endbuf% -1:curb|
00000190  75 66 25 3d 62 75 66 66  65 72 25 0d 00 96 22 de  |uf%=buffer%...".|
000001a0  20 62 75 66 66 65 72 32  25 20 26 31 30 30 2c 20  | buffer2% &100, |
000001b0  62 75 66 66 65 72 33 25  20 26 31 30 30 0d 00 a0  |buffer3% &100...|
000001c0  15 de 20 6d 65 6e 75 5f  62 75 66 66 65 72 25 20  |.. menu_buffer% |
000001d0  34 30 0d 00 aa 29 c8 99  20 73 5f 66 73 63 74 72  |40...).. s_fsctr|
000001e0  6c 25 2c 31 33 2c 22 6e  65 74 22 2b bd 30 2c 31  |l%,13,"net"+.0,1|
000001f0  20 b8 20 2c 2c 4e 65 74  4f 4b 25 0d 00 b4 04 0d  | . ,,NetOK%.....|
00000200  00 be 19 de 20 71 25 20  26 32 34 30 2c 69 63 6f  |.... q% &240,ico|
00000210  6e 73 25 20 26 31 30 30  0d 00 c8 14 de 20 6d 65  |ns% &100..... me|
00000220  6e 75 64 61 74 61 25 20  26 32 30 30 0d 00 d2 46  |nudata% &200...F|
00000230  6d 61 78 56 61 72 73 25  3d 33 3a de 20 63 68 6f  |maxVars%=3:. cho|
00000240  69 63 65 25 28 6d 61 78  56 61 72 73 25 29 3a 63  |ice%(maxVars%):c|
00000250  75 72 72 65 6e 74 3d 30  3a 6c 6f 67 66 69 6c 65  |urrent=0:logfile|
00000260  3d 31 3a 6e 61 6d 65 3d  32 3a 73 6f 75 72 63 65  |=1:name=2:source|
00000270  3d 33 0d 00 dc 42 6d 61  78 53 65 6e 64 25 3d 35  |=3...BmaxSend%=5|
00000280  3a de 20 73 65 6e 64 25  28 6d 61 78 53 65 6e 64  |:. send%(maxSend|
00000290  25 29 3a 74 6f 3d 30 3a  63 63 3d 31 3a 73 75 62  |%):to=0:cc=1:sub|
000002a0  6a 65 63 74 3d 32 3a 66  72 6f 6d 3d 33 3a 66 69  |ject=2:from=3:fi|
000002b0  6c 65 3d 34 0d 00 e6 43  de 20 76 61 72 6e 61 6d  |le=4...C. varnam|
000002c0  65 73 24 28 6d 61 78 56  61 72 73 25 29 3a e3 76  |es$(maxVars%):.v|
000002d0  25 3d 30 b8 6d 61 78 56  61 72 73 25 3a f3 76 61  |%=0.maxVars%:.va|
000002e0  72 6e 61 6d 65 73 24 28  76 25 29 3a ed 3a 73 63  |rnames$(v%):.:sc|
000002f0  72 61 70 24 3d 22 22 0d  00 f0 04 0d 00 fa 12 de  |rap$="".........|
00000300  20 69 63 6f 6e 49 6e 66  6f 25 20 34 30 0d 01 04  | iconInfo% 40...|
00000310  2d 62 6f 6e 67 3d a3 3a  69 6e 74 65 72 6e 61 6c  |-bong=.:internal|
00000320  25 3d b9 3a ee 85 20 f2  65 72 72 6f 72 62 6f 78  |%=.:.. .errorbox|
00000330  3a f2 66 69 6e 69 73 68  3a e0 0d 01 0e 2f 53 25  |:.finish:..../S%|
00000340  3d 8e 22 3c 4d 61 69 6c  4d 61 6e 24 44 69 72 3e  |=."<MailMan$Dir>|
00000350  2e 53 70 72 69 74 65 73  22 3a 54 25 3d a2 23 53  |.Sprites":T%=.#S|
00000360  25 2b 31 36 3a d9 23 53  25 0d 01 18 11 de 20 73  |%+16:.#S%..... s|
00000370  70 72 69 74 65 73 25 20  54 25 0d 01 22 1d 21 73  |prites% T%..".!s|
00000380  70 72 69 74 65 73 25 3d  54 25 3a 73 70 72 69 74  |prites%=T%:sprit|
00000390  65 73 25 21 38 3d 30 0d  01 2c 1c c8 99 20 73 5f  |es%!8=0..,... s_|
000003a0  73 70 6f 70 25 2c 26 31  30 39 2c 73 70 72 69 74  |spop%,&109,sprit|
000003b0  65 73 25 0d 01 36 34 c8  99 20 73 5f 73 70 6f 70  |es%..64.. s_spop|
000003c0  25 2c 26 31 30 41 2c 73  70 72 69 74 65 73 25 2c  |%,&10A,sprites%,|
000003d0  22 3c 4d 61 69 6c 4d 61  6e 24 44 69 72 3e 2e 53  |"<MailMan$Dir>.S|
000003e0  70 72 69 74 65 73 22 0d  01 40 14 69 63 6d 61 69  |prites"..@.icmai|
000003f0  6c 25 3d a4 69 63 6f 6e  62 61 72 0d 01 4a 04 0d  |l%=.iconbar..J..|
00000400  01 54 2a c8 99 20 73 5f  6f 70 65 6e 74 25 2c 2c  |.T*.. s_opent%,,|
00000410  22 3c 4d 61 69 6c 4d 61  6e 24 44 69 72 3e 2e 54  |"<MailMan$Dir>.T|
00000420  65 6d 70 6c 61 74 65 73  22 0d 01 5e 57 6d 61 69  |emplates"..^Wmai|
00000430  6c 49 63 6f 6e 53 69 7a  65 25 3d 32 35 35 3a 6d  |lIconSize%=255:m|
00000440  61 69 6c 74 6f 53 69 7a  65 25 3d 35 2a 6d 61 69  |ailtoSize%=5*mai|
00000450  6c 49 63 6f 6e 53 69 7a  65 25 2b 33 32 2b 31 36  |lIconSize%+32+16|
00000460  3a 69 6e 66 6f 53 69 7a  65 25 3d 32 30 30 3a 63  |:infoSize%=200:c|
00000470  68 6f 69 63 65 73 53 69  7a 65 25 3d 31 32 30 30  |hoicesSize%=1200|
00000480  0d 01 68 4b de 20 6d 61  69 6c 49 63 6f 6e 73 25  |..hK. mailIcons%|
00000490  20 6d 61 69 6c 74 6f 53  69 7a 65 25 2c 69 6e 66  | mailtoSize%,inf|
000004a0  6f 49 63 6f 6e 73 25 20  69 6e 66 6f 53 69 7a 65  |oIcons% infoSize|
000004b0  25 2c 63 68 6f 69 63 65  49 63 6f 6e 73 25 20 63  |%,choiceIcons% c|
000004c0  68 6f 69 63 65 73 53 69  7a 65 25 0d 01 72 43 c8  |hoicesSize%..rC.|
000004d0  99 20 73 5f 6c 6f 61 64  74 25 2c 2c 71 25 2c 6d  |. s_loadt%,,q%,m|
000004e0  61 69 6c 49 63 6f 6e 73  25 2c 6d 61 69 6c 49 63  |ailIcons%,mailIc|
000004f0  6f 6e 73 25 2b 6d 61 69  6c 74 6f 53 69 7a 65 25  |ons%+mailtoSize%|
00000500  2c 2d 31 2c 22 4d 61 69  6c 54 6f 22 2c 30 0d 01  |,-1,"MailTo",0..|
00000510  7c 42 c8 99 20 73 5f 63  72 65 61 74 65 77 25 2c  ||B.. s_createw%,|
00000520  2c 71 25 20 b8 20 6d 61  69 6c 74 6f 25 3a f2 6e  |,q% . mailto%:.n|
00000530  6f 74 65 42 75 66 66 65  72 73 28 6d 61 69 6c 74  |oteBuffers(mailt|
00000540  6f 25 2c 30 2c 20 34 2c  73 65 6e 64 25 28 29 29  |o%,0, 4,send%())|
00000550  0d 01 86 3f c8 99 20 73  5f 6c 6f 61 64 74 25 2c  |...?.. s_loadt%,|
00000560  2c 71 25 2c 69 6e 66 6f  49 63 6f 6e 73 25 2c 69  |,q%,infoIcons%,i|
00000570  6e 66 6f 49 63 6f 6e 73  25 2b 69 6e 66 6f 53 69  |nfoIcons%+infoSi|
00000580  7a 65 25 2c 2d 31 2c 22  49 6e 66 6f 22 2c 30 0d  |ze%,-1,"Info",0.|
00000590  01 90 23 c8 99 20 73 5f  63 72 65 61 74 65 77 25  |..#.. s_createw%|
000005a0  2c 2c 71 25 20 b8 20 69  6e 66 6f 77 69 6e 64 6f  |,,q% . infowindo|
000005b0  77 25 0d 01 9a 49 c8 99  20 73 5f 6c 6f 61 64 74  |w%...I.. s_loadt|
000005c0  25 2c 2c 71 25 2c 63 68  6f 69 63 65 49 63 6f 6e  |%,,q%,choiceIcon|
000005d0  73 25 2c 63 68 6f 69 63  65 49 63 6f 6e 73 25 2b  |s%,choiceIcons%+|
000005e0  63 68 6f 69 63 65 73 53  69 7a 65 25 2c 2d 31 2c  |choicesSize%,-1,|
000005f0  22 63 68 6f 69 63 65 73  22 2c 30 0d 01 a4 54 c8  |"choices",0...T.|
00000600  99 20 73 5f 63 72 65 61  74 65 77 25 2c 2c 71 25  |. s_createw%,,q%|
00000610  20 b8 20 63 68 6f 69 63  65 73 77 69 6e 64 6f 77  | . choiceswindow|
00000620  25 3a f2 6e 6f 74 65 42  75 66 66 65 72 73 28 63  |%:.noteBuffers(c|
00000630  68 6f 69 63 65 73 77 69  6e 64 6f 77 25 2c 20 32  |hoiceswindow%, 2|
00000640  2c 20 35 2c 20 63 68 6f  69 63 65 25 28 29 29 0d  |, 5, choice%()).|
00000650  01 ae 10 c8 99 20 73 5f  63 6c 6f 73 65 74 25 0d  |..... s_closet%.|
00000660  01 b8 04 0d 01 c2 12 de  20 6f 70 74 62 75 66 66  |........ optbuff|
00000670  25 20 31 30 30 0d 01 cc  36 6d 61 69 6c 72 65 66  |% 100...6mailref|
00000680  25 3d 30 3a 6d 61 69 6c  6d 65 74 68 6f 64 25 3d  |%=0:mailmethod%=|
00000690  30 3a f4 20 30 20 6e 6f  6e 65 2c 31 20 66 69 6c  |0:. 0 none,1 fil|
000006a0  65 2c 32 2c 33 20 73 63  72 61 70 0d 01 d6 21 61  |e,2,3 scrap...!a|
000006b0  63 6b 3d a3 3a f2 73 65  74 4f 70 74 28 6d 61 69  |ck=.:.setOpt(mai|
000006c0  6c 74 6f 25 2c 31 31 2c  61 63 6b 29 0d 01 e0 16  |lto%,11,ack)....|
000006d0  64 69 61 6c 6f 67 75 65  53 74 61 72 74 65 64 25  |dialogueStarted%|
000006e0  3d a3 0d 01 ea 04 0d 01  f4 1f f2 72 65 61 64 43  |=..........readC|
000006f0  68 6f 69 63 65 73 3a f2  66 69 6c 6c 49 6e 43 68  |hoices:.fillInCh|
00000700  6f 69 63 65 73 0d 01 fe  48 c8 99 20 73 5f 72 65  |oices...H.. s_re|
00000710  61 64 76 61 72 25 2c 22  4d 61 69 6c 4d 61 6e 24  |advar%,"MailMan$|
00000720  44 69 72 22 2c 62 75 66  66 65 72 25 2c 32 35 35  |Dir",buffer%,255|
00000730  2c 30 2c 33 20 b8 20 2c  2c 6c 65 6e 67 74 68 25  |,0,3 . ,,length%|
00000740  3a 76 25 3d 6c 65 6e 67  74 68 25 2d 31 0d 02 08  |:v%=length%-1...|
00000750  3a c8 95 20 76 25 3e 3d  30 20 80 20 62 75 66 66  |:.. v%>=0 . buff|
00000760  65 72 25 3f 76 25 3c 3e  97 22 2e 22 3a 76 25 2d  |er%?v%<>.".":v%-|
00000770  3d 31 3a ce 3a 76 25 2b  3d 31 3a 62 75 66 66 65  |=1:.:v%+=1:buffe|
00000780  72 25 3f 76 25 3d 30 0d  02 12 4b f2 73 65 74 46  |r%?v%=0...K.setF|
00000790  69 6c 65 28 62 75 66 66  65 72 25 2c 63 75 72 72  |ile(buffer%,curr|
000007a0  65 6e 74 2c 22 43 75 72  72 65 6e 74 22 29 3a f2  |ent,"Current"):.|
000007b0  73 65 74 46 69 6c 65 28  62 75 66 66 65 72 25 2c  |setFile(buffer%,|
000007c0  6c 6f 67 66 69 6c 65 2c  22 4c 6f 67 46 69 6c 65  |logfile,"LogFile|
000007d0  22 29 0d 02 1c 1d f2 73  65 74 4d 61 69 6c 53 6f  |").....setMailSo|
000007e0  75 72 63 65 3a f2 6e 6f  74 65 53 63 72 61 70 0d  |urce:.noteScrap.|
000007f0  02 26 04 0d 02 30 10 ee  85 20 f2 65 72 72 6f 72  |.&...0... .error|
00000800  62 6f 78 0d 02 3a 0e 6c  6f 64 65 6c 25 3d 35 30  |box..:.lodel%=50|
00000810  30 0d 02 44 0f 68 69 64  65 6c 25 3d 36 30 30 30  |0..D.hidel%=6000|
00000820  0d 02 4e 13 64 65 6c 61  79 25 20 3d 20 68 69 64  |..N.delay% = hid|
00000830  65 6c 25 0d 02 58 12 c8  99 20 73 5f 64 72 61 67  |el%..X... s_drag|
00000840  25 2c 2c 2d 31 0d 02 62  21 c8 99 20 73 5f 74 69  |%,,-1..b!.. s_ti|
00000850  6d 65 25 20 b8 20 74 69  6d 65 78 25 3a f2 6e 75  |me% . timex%:.nu|
00000860  64 67 65 28 a3 29 0d 02  6c 05 f5 0d 02 76 20 20  |dge(.)..l....v  |
00000870  c8 99 20 73 5f 70 6f 6c  6c 25 2c 30 2c 71 25 2c  |.. s_poll%,0,q%,|
00000880  74 69 6d 65 78 25 20 b8  20 41 25 0d 02 80 0d 20  |timex% . A%.... |
00000890  20 c8 8e 20 41 25 20 ca  0d 02 8a 42 20 20 c9 20  | .. A% ....B  . |
000008a0  30 20 3a e7 6d 61 69 6c  6d 65 74 68 6f 64 25 3d  |0 :.mailmethod%=|
000008b0  33 20 f2 53 74 61 72 74  44 69 61 6c 6f 67 75 65  |3 .StartDialogue|
000008c0  3a 6d 61 69 6c 6d 65 74  68 6f 64 25 3d 31 20 8b  |:mailmethod%=1 .|
000008d0  20 f2 6e 75 64 67 65 28  b9 29 0d 02 94 1e 20 20  | .nudge(.)....  |
000008e0  c9 20 31 20 3a f2 72 65  64 72 61 77 5f 77 69 6e  |. 1 :.redraw_win|
000008f0  64 6f 77 28 21 71 25 29  0d 02 9e 44 20 20 c9 20  |dow(!q%)...D  . |
00000900  32 20 3a f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |2 :.open_window(|
00000910  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
00000920  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 2c  |!12,q%!16,q%!20,|
00000930  71 25 21 32 34 2c 71 25  21 32 38 29 0d 02 a8 1d  |q%!24,q%!28)....|
00000940  20 20 c9 20 33 20 3a f2  63 6c 6f 73 65 5f 77 69  |  . 3 :.close_wi|
00000950  6e 64 6f 77 28 21 71 25  29 0d 02 b2 37 20 20 c9  |ndow(!q%)...7  .|
00000960  20 36 20 3a f2 63 68 65  63 6b 6d 6f 75 73 65 28  | 6 :.checkmouse(|
00000970  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
00000980  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 29  |!12,q%!16,q%!20)|
00000990  0d 02 bc 36 20 20 c9 20  38 20 3a f2 6b 65 79 28  |...6  . 8 :.key(|
000009a0  21 71 25 2c 71 25 21 34  2c 71 25 21 38 2c 71 25  |!q%,q%!4,q%!8,q%|
000009b0  21 31 32 2c 71 25 21 31  36 2c 71 25 21 32 30 2c  |!12,q%!16,q%!20,|
000009c0  71 25 21 32 34 29 0d 02  c6 33 20 20 c9 20 39 20  |q%!24)...3  . 9 |
000009d0  3a f2 67 65 74 70 6f 69  6e 74 65 72 3a f2 6d 65  |:.getpointer:.me|
000009e0  6e 75 73 65 6c 65 63 74  28 71 25 29 3a f2 72 65  |nuselect(q%):.re|
000009f0  74 61 69 6e 43 68 65 63  6b 0d 02 d0 1a 20 20 c9  |tainCheck....  .|
00000a00  20 31 37 2c 31 38 3a f2  72 65 63 65 69 76 65 28  | 17,18:.receive(|
00000a10  71 25 29 0d 02 da 07 20  20 cb 0d 02 e4 07 fd 20  |q%)....  ...... |
00000a20  a3 0d 02 ee 04 0d 02 f8  11 dd f2 72 65 63 65 69  |...........recei|
00000a30  76 65 28 71 25 29 0d 03  02 0e f2 6e 6f 74 65 53  |ve(q%).....noteS|
00000a40  63 72 61 70 0d 03 0c 0e  c8 8e 20 71 25 21 31 36  |crap...... q%!16|
00000a50  20 ca 0d 03 16 11 c9 20  30 3a f2 66 69 6e 69 73  | ...... 0:.finis|
00000a60  68 3a e0 0d 03 20 27 c9  20 33 3a f4 20 64 61 74  |h:... '. 3:. dat|
00000a70  61 20 6c 6f 61 64 65 64  20 66 72 6f 6d 20 66 69  |a loaded from fi|
00000a80  6c 65 72 20 76 69 65 77  65 72 0d 03 2a 29 20 20  |ler viewer..*)  |
00000a90  e7 20 6d 61 69 6c 6d 65  74 68 6f 64 25 3c 32 20  |. mailmethod%<2 |
00000aa0  84 20 71 25 21 31 32 3c  3e 6d 61 69 6c 72 65 66  |. q%!12<>mailref|
00000ab0  25 20 8c 0d 03 34 23 20  20 20 20 e7 20 71 25 21  |% ...4#    . q%!|
00000ac0  34 30 3d 34 30 39 36 20  84 20 71 25 21 34 30 3d  |40=4096 . q%!40=|
00000ad0  38 31 39 32 20 8c 0d 03  3e 22 20 20 20 20 20 20  |8192 ...>"      |
00000ae0  f2 72 65 70 6f 72 74 28  32 30 30 33 2c 22 4d 61  |.report(2003,"Ma|
00000af0  69 6c 45 32 22 29 3a e1  0d 03 48 09 20 20 20 20  |ilE2"):...H.    |
00000b00  cc 0d 03 52 2d 20 20 20  20 20 20 66 69 6c 65 6e  |...R-      filen|
00000b10  61 6d 24 3d a4 72 74 6f  7a 28 71 25 2b 34 34 29  |am$=.rtoz(q%+44)|
00000b20  3a 6d 61 69 6c 6d 65 74  68 6f 64 25 3d 31 0d 03  |:mailmethod%=1..|
00000b30  5c 33 20 20 20 20 20 20  71 25 21 31 36 3d 34 3a  |\3      q%!16=4:|
00000b40  71 25 21 31 32 3d 71 25  21 38 3a c8 99 20 73 5f  |q%!12=q%!8:.. s_|
00000b50  73 65 6e 64 6d 25 2c 31  37 2c 71 25 2c 71 25 21  |sendm%,17,q%,q%!|
00000b60  34 0d 03 66 18 20 20 20  20 20 20 f2 53 74 61 72  |4..f.      .Star|
00000b70  74 44 69 61 6c 6f 67 75  65 0d 03 70 09 20 20 20  |tDialogue..p.   |
00000b80  20 cd 0d 03 7a 07 20 20  cc 0d 03 84 38 20 20 20  | ...z.  ....8   |
00000b90  20 71 25 21 31 36 3d 34  3a 71 25 21 31 32 3d 71  | q%!16=4:q%!12=q|
00000ba0  25 21 38 3a c8 99 20 73  5f 73 65 6e 64 6d 25 2c  |%!8:.. s_sendm%,|
00000bb0  31 37 2c 71 25 2c 6d 61  69 6c 73 65 6e 64 65 72  |17,q%,mailsender|
00000bc0  25 0d 03 8e 1b 20 20 20  20 c8 99 20 73 5f 74 69  |%....    .. s_ti|
00000bd0  6d 65 25 20 b8 20 74 69  6d 65 78 25 0d 03 98 15  |me% . timex%....|
00000be0  20 20 20 20 6d 61 69 6c  6d 65 74 68 6f 64 25 3d  |    mailmethod%=|
00000bf0  33 0d 03 a2 07 20 20 cd  0d 03 ac 1e c9 20 31 3a  |3....  ...... 1:|
00000c00  f4 20 61 20 64 61 74 61  20 73 61 76 65 20 69 6e  |. a data save in|
00000c10  74 6f 20 6d 65 2e 0d 03  b6 36 20 20 66 69 6c 65  |to me....6  file|
00000c20  6e 61 6d 24 3d a4 67 65  74 5f 6d 65 73 73 61 67  |nam$=.get_messag|
00000c30  65 28 22 4d 61 69 6c 47  31 22 29 2b a4 72 74 6f  |e("MailG1")+.rto|
00000c40  7a 28 71 25 2b 34 34 29  2b 22 3e 22 0d 03 c0 32  |z(q%+44)+">"...2|
00000c50  20 20 6d 61 69 6c 6d 65  74 68 6f 64 25 3d 32 3a  |  mailmethod%=2:|
00000c60  6d 61 69 6c 73 65 6e 64  65 72 25 3d 71 25 21 34  |mailsender%=q%!4|
00000c70  3a 6d 61 69 6c 72 65 66  25 3d 71 25 21 38 0d 03  |:mailref%=q%!8..|
00000c80  ca 15 20 20 e7 20 73 63  72 61 70 24 3d 22 22 20  |..  . scrap$="" |
00000c90  8c 20 e1 0d 03 d4 5b 20  20 24 28 71 25 2b 34 34  |. ....[  $(q%+44|
00000ca0  29 3d 73 63 72 61 70 24  3a 71 25 3f 28 34 34 2b  |)=scrap$:q%?(44+|
00000cb0  73 63 72 61 70 43 25 29  3d 30 3a 21 71 25 3d 34  |scrapC%)=0:!q%=4|
00000cc0  37 2b 73 63 72 61 70 43  25 2b 31 80 ac 33 3a 71  |7+scrapC%+1..3:q|
00000cd0  25 21 31 36 3d 32 3a 71  25 21 31 32 3d 6d 61 69  |%!16=2:q%!12=mai|
00000ce0  6c 72 65 66 25 3a 71 25  21 33 36 3d 2d 31 0d 03  |lref%:q%!36=-1..|
00000cf0  de 31 20 20 c8 99 20 73  5f 73 65 6e 64 6d 25 2c  |.1  .. s_sendm%,|
00000d00  31 37 2c 71 25 2c 6d 61  69 6c 73 65 6e 64 65 72  |17,q%,mailsender|
00000d10  25 3a 6d 61 69 6c 72 65  66 25 3d 71 25 21 38 0d  |%:mailref%=q%!8.|
00000d20  03 e8 17 c9 20 31 30 3a  f4 20 64 65 73 6b 74 6f  |.... 10:. deskto|
00000d30  70 20 73 61 76 65 0d 03  f2 13 20 20 f2 64 65 73  |p save....  .des|
00000d40  6b 73 61 76 65 28 71 25  29 0d 03 fc 19 c9 20 26  |ksave(q%)..... &|
00000d50  35 30 32 3a f4 20 68 65  6c 70 20 72 65 71 75 65  |502:. help reque|
00000d60  73 74 0d 04 06 27 20 20  71 25 21 31 32 3d 71 25  |st...'  q%!12=q%|
00000d70  21 38 3a 71 25 21 31 36  3d 26 35 30 33 3a 68 65  |!8:q%!16=&503:he|
00000d80  6c 70 25 3d 71 25 2b 32  30 0d 04 10 2d 20 20 68  |lp%=q%+20...-  h|
00000d90  65 6c 70 25 3d a4 68 65  6c 70 28 71 25 21 33 32  |elp%=.help(q%!32|
00000da0  2c 71 25 21 33 36 2c 68  65 6c 70 25 29 3a 3f 68  |,q%!36,help%):?h|
00000db0  65 6c 70 25 3d 30 0d 04  1a 19 20 20 21 71 25 3d  |elp%=0....  !q%=|
00000dc0  28 68 65 6c 70 25 2b 34  2d 71 25 29 80 ac 33 0d  |(help%+4-q%)..3.|
00000dd0  04 24 1c 20 20 c8 99 20  73 5f 73 65 6e 64 6d 25  |.$.  .. s_sendm%|
00000de0  2c 31 37 2c 71 25 2c 71  25 21 34 0d 04 2e 39 c9  |,17,q%,q%!4...9.|
00000df0  20 26 34 30 30 43 30 3a  f4 20 73 75 62 6d 65 6e  | &400C0:. submen|
00000e00  75 20 72 65 71 75 65 73  74 3a 20 63 61 6e 20 6f  |u request: can o|
00000e10  6e 6c 79 20 61 70 70 6c  79 20 74 6f 20 63 68 6f  |nly apply to cho|
00000e20  69 63 65 73 0d 04 38 36  20 20 f2 73 74 61 72 74  |ices..86  .start|
00000e30  43 68 6f 69 63 65 73 3a  c8 99 20 73 5f 63 72 73  |Choices:.. s_crs|
00000e40  75 62 6d 65 6e 75 25 2c  2c 71 25 21 32 30 2c 71  |ubmenu%,,q%!20,q|
00000e50  25 21 32 34 2c 71 25 21  32 38 0d 04 42 05 cb 0d  |%!24,q%!28..B...|
00000e60  04 4c 05 e1 0d 04 56 04  0d 04 60 12 dd f2 73 74  |.L....V...`...st|
00000e70  61 72 74 43 68 6f 69 63  65 73 0d 04 6a 42 20 f2  |artChoices..jB .|
00000e80  66 69 6c 6c 49 6e 43 68  6f 69 63 65 73 3a 6e 65  |fillInChoices:ne|
00000e90  77 42 6f 6e 67 3d 62 6f  6e 67 3a f2 73 65 74 4f  |wBong=bong:.setO|
00000ea0  70 74 28 63 68 6f 69 63  65 73 77 69 6e 64 6f 77  |pt(choiceswindow|
00000eb0  25 2c 36 2c 6e 65 77 42  6f 6e 67 29 0d 04 74 05  |%,6,newBong)..t.|
00000ec0  e1 0d 04 7e 04 0d 04 88  13 dd f2 53 74 61 72 74  |...~.......Start|
00000ed0  44 69 61 6c 6f 67 75 65  0d 04 92 10 f2 65 6e 64  |Dialogue.....end|
00000ee0  44 69 61 6c 6f 67 75 65  0d 04 9c 28 e7 20 73 63  |Dialogue...(. sc|
00000ef0  72 61 70 24 3d 22 22 8c  f2 72 65 70 6f 72 74 28  |rap$=""..report(|
00000f00  32 30 30 35 2c 22 4d 61  69 6c 45 33 22 29 3a e1  |2005,"MailE3"):.|
00000f10  0d 04 a6 21 66 72 6f 6d  6e 61 6d 24 3d a4 72 74  |...!fromnam$=.rt|
00000f20  6f 7a 28 63 68 6f 69 63  65 25 28 6e 61 6d 65 29  |oz(choice%(name)|
00000f30  29 0d 04 b0 13 24 28 73  65 6e 64 25 28 74 6f 29  |)....$(send%(to)|
00000f40  29 3d bd 30 0d 04 ba 13  24 28 73 65 6e 64 25 28  |)=.0....$(send%(|
00000f50  63 63 29 29 3d bd 30 0d  04 c4 18 24 28 73 65 6e  |cc))=.0....$(sen|
00000f60  64 25 28 73 75 62 6a 65  63 74 29 29 3d bd 30 0d  |d%(subject))=.0.|
00000f70  04 ce 1e 24 28 73 65 6e  64 25 28 66 72 6f 6d 29  |...$(send%(from)|
00000f80  29 3d 66 72 6f 6d 6e 61  6d 24 2b bd 30 0d 04 d8  |)=fromnam$+.0...|
00000f90  1e 24 28 73 65 6e 64 25  28 66 69 6c 65 29 29 3d  |.$(send%(file))=|
00000fa0  66 69 6c 65 6e 61 6d 24  2b bd 30 0d 04 e2 32 f2  |filenam$+.0...2.|
00000fb0  67 65 74 70 6f 69 6e 74  65 72 3a f2 70 6f 70 75  |getpointer:.popu|
00000fc0  70 28 6d 61 69 6c 74 6f  25 29 3a 64 69 61 6c 6f  |p(mailto%):dialo|
00000fd0  67 75 65 53 74 61 72 74  65 64 25 3d b9 0d 04 ec  |gueStarted%=....|
00000fe0  26 c8 99 73 5f 73 65 74  63 61 72 65 74 25 2c 6d  |&..s_setcaret%,m|
00000ff0  61 69 6c 74 6f 25 2c 30  2c 30 2c 2d 31 2c 2d 31  |ailto%,0,0,-1,-1|
00001000  2c 2d 31 0d 04 f6 05 e1  0d 05 00 04 0d 05 0a 11  |,-1.............|
00001010  dd f2 65 6e 64 44 69 61  6c 6f 67 75 65 0d 05 14  |..endDialogue...|
00001020  51 20 e7 20 64 69 61 6c  6f 67 75 65 53 74 61 72  |Q . dialogueStar|
00001030  74 65 64 25 20 8c 20 f2  63 6c 6f 73 65 5f 77 69  |ted% . .close_wi|
00001040  6e 64 6f 77 28 6d 61 69  6c 74 6f 25 29 3a 6d 61  |ndow(mailto%):ma|
00001050  69 6c 6d 65 74 68 6f 64  25 3d 30 3a 64 69 61 6c  |ilmethod%=0:dial|
00001060  6f 67 75 65 53 74 61 72  74 65 64 25 3d a3 0d 05  |ogueStarted%=...|
00001070  1e 05 e1 0d 05 28 04 0d  05 32 0e dd a4 72 74 6f  |.....(...2...rto|
00001080  7a 28 73 25 29 0d 05 3c  08 ea 20 6e 24 0d 05 46  |z(s%)..<.. n$..F|
00001090  1a c8 95 3f 73 25 3a 6e  24 2b 3d bd 3f 73 25 3a  |...?s%:n$+=.?s%:|
000010a0  73 25 2b 3d 31 3a ce 0d  05 50 07 3d 6e 24 0d 05  |s%+=1:...P.=n$..|
000010b0  5a 04 0d 05 64 3d dd f2  6b 65 79 28 68 61 6e 64  |Z...d=..key(hand|
000010c0  6c 65 25 2c 69 63 6f 6e  25 2c 78 63 6f 66 66 25  |le%,icon%,xcoff%|
000010d0  2c 79 63 6f 66 66 25 2c  63 61 72 65 74 68 25 2c  |,ycoff%,careth%,|
000010e0  63 61 72 65 74 69 6e 64  78 25 2c 63 68 25 29 0d  |caretindx%,ch%).|
000010f0  05 6e 17 e7 20 68 61 6e  64 6c 65 25 3d 6d 61 69  |.n.. handle%=mai|
00001100  6c 74 6f 25 20 8c 0d 05  78 19 20 e7 20 63 68 25  |lto% ...x. . ch%|
00001110  3d 31 33 20 80 20 69 63  6f 6e 25 3e 31 20 8c 0d  |=13 . icon%>1 ..|
00001120  05 82 22 20 20 f2 6d 61  69 6c 3a e7 20 72 65 6d  |.."  .mail:. rem|
00001130  6f 76 65 25 20 f2 65 6e  64 44 69 61 6c 6f 67 75  |ove% .endDialogu|
00001140  65 0d 05 8c 06 20 cc 0d  05 96 23 20 20 f2 64 6f  |e.... ....#  .do|
00001150  4b 65 79 28 63 68 25 2c  6d 61 69 6c 74 6f 25 2c  |Key(ch%,mailto%,|
00001160  69 63 6f 6e 25 2c 34 2c  30 29 0d 05 a0 08 20 cd  |icon%,4,0).... .|
00001170  3a e1 0d 05 aa 05 cd 0d  05 b4 1e e7 20 68 61 6e  |:........... han|
00001180  64 6c 65 25 3d 63 68 6f  69 63 65 73 77 69 6e 64  |dle%=choiceswind|
00001190  6f 77 25 20 8c 0d 05 be  2f 20 e7 20 63 68 25 3d  |ow% ..../ . ch%=|
000011a0  31 33 20 80 20 69 63 6f  6e 25 3d 35 20 f2 72 65  |13 . icon%=5 .re|
000011b0  67 69 73 74 65 72 43 68  6f 69 63 65 73 28 b9 2c  |gisterChoices(.,|
000011c0  a3 29 3a e1 0d 05 c8 29  20 f2 64 6f 4b 65 79 28  |.):....) .doKey(|
000011d0  63 68 25 2c 63 68 6f 69  63 65 73 77 69 6e 64 6f  |ch%,choiceswindo|
000011e0  77 25 2c 69 63 6f 6e 25  2c 35 2c 32 29 0d 05 d2  |w%,icon%,5,2)...|
000011f0  05 cd 0d 05 dc 05 e1 0d  05 e6 04 0d 05 f0 30 dd  |..............0.|
00001200  f2 64 6f 4b 65 79 28 63  68 25 2c 77 69 6e 64 6f  |.doKey(ch%,windo|
00001210  77 25 2c 69 63 6f 6e 25  2c 6d 61 78 69 63 6f 6e  |w%,icon%,maxicon|
00001220  25 2c 6d 69 6e 69 63 6f  6e 25 29 0d 05 fa 0d 20  |%,minicon%).... |
00001230  c8 8e 20 63 68 25 20 ca  0d 06 04 0c 20 20 20 c9  |.. ch% .....   .|
00001240  20 31 33 3a 0d 06 0e 35  20 20 20 20 20 69 63 6f  | 13:...5     ico|
00001250  6e 25 3d 69 63 6f 6e 25  2b 31 3a e7 69 63 6f 6e  |n%=icon%+1:.icon|
00001260  25 3e 6d 61 78 69 63 6f  6e 25 20 69 63 6f 6e 25  |%>maxicon% icon%|
00001270  3d 6d 69 6e 69 63 6f 6e  25 0d 06 18 2c 20 20 20  |=minicon%...,   |
00001280  20 20 f2 73 65 74 43 61  72 65 74 28 77 69 6e 64  |  .setCaret(wind|
00001290  6f 77 25 2c 69 63 6f 6e  25 2c 63 61 72 65 74 69  |ow%,icon%,careti|
000012a0  6e 64 78 25 29 0d 06 22  19 20 20 20 c9 20 32 37  |ndx%)..".   . 27|
000012b0  3a 20 f2 65 6e 64 44 69  61 6c 6f 67 75 65 0d 06  |: .endDialogue..|
000012c0  2c 3a 20 20 20 c9 20 26  31 38 45 3a 69 63 6f 6e  |,:   . &18E:icon|
000012d0  25 3d 69 63 6f 6e 25 2b  31 3a e7 69 63 6f 6e 25  |%=icon%+1:.icon%|
000012e0  3e 6d 61 78 69 63 6f 6e  25 20 69 63 6f 6e 25 3d  |>maxicon% icon%=|
000012f0  6d 69 6e 69 63 6f 6e 25  0d 06 36 2c 20 20 20 20  |minicon%..6,    |
00001300  20 f2 73 65 74 43 61 72  65 74 28 77 69 6e 64 6f  | .setCaret(windo|
00001310  77 25 2c 69 63 6f 6e 25  2c 63 61 72 65 74 69 6e  |w%,icon%,caretin|
00001320  64 78 25 29 0d 06 40 3a  20 20 20 c9 20 26 31 38  |dx%)..@:   . &18|
00001330  46 3a 69 63 6f 6e 25 3d  69 63 6f 6e 25 2d 31 3a  |F:icon%=icon%-1:|
00001340  e7 69 63 6f 6e 25 3c 6d  69 6e 69 63 6f 6e 25 20  |.icon%<minicon% |
00001350  69 63 6f 6e 25 3d 6d 61  78 69 63 6f 6e 25 0d 06  |icon%=maxicon%..|
00001360  4a 2c 20 20 20 20 20 f2  73 65 74 43 61 72 65 74  |J,     .setCaret|
00001370  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 63  |(window%,icon%,c|
00001380  61 72 65 74 69 6e 64 78  25 29 0d 06 54 16 20 20  |aretindx%)..T.  |
00001390  20 7f 20 c8 99 20 73 5f  6b 65 79 25 2c 63 68 25  | . .. s_key%,ch%|
000013a0  0d 06 5e 06 20 cb 0d 06  68 05 e1 0d 06 72 04 0d  |..^. ...h....r..|
000013b0  06 7c 28 dd f2 73 65 74  43 61 72 65 74 28 77 69  |.|(..setCaret(wi|
000013c0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 63 61 72 65  |ndow%,icon%,care|
000013d0  74 69 6e 64 78 25 29 0d  06 86 0e 20 ea 20 6c 65  |tindx%).... . le|
000013e0  6e 67 74 68 25 0d 06 90  2e 20 69 63 6f 6e 49 6e  |ngth%.... iconIn|
000013f0  66 6f 25 21 30 20 3d 20  77 69 6e 64 6f 77 25 3a  |fo%!0 = window%:|
00001400  69 63 6f 6e 49 6e 66 6f  25 21 34 20 3d 20 69 63  |iconInfo%!4 = ic|
00001410  6f 6e 25 0d 06 9a 1e 20  c8 99 20 73 5f 67 65 74  |on%.... .. s_get|
00001420  69 69 6e 66 6f 25 2c 2c  69 63 6f 6e 49 6e 66 6f  |iinfo%,,iconInfo|
00001430  25 0d 06 a4 26 20 6c 65  6e 67 74 68 25 3d a4 62  |%...& length%=.b|
00001440  75 66 66 4c 65 6e 67 74  68 28 69 63 6f 6e 49 6e  |uffLength(iconIn|
00001450  66 6f 25 21 32 38 29 0d  06 ae 2c 20 e7 20 63 61  |fo%!28)..., . ca|
00001460  72 65 74 69 6e 64 78 25  3e 6c 65 6e 67 74 68 25  |retindx%>length%|
00001470  20 63 61 72 65 74 69 6e  64 78 25 3d 6c 65 6e 67  | caretindx%=leng|
00001480  74 68 25 0d 06 b8 33 20  c8 99 73 5f 73 65 74 63  |th%...3 ..s_setc|
00001490  61 72 65 74 25 2c 77 69  6e 64 6f 77 25 2c 69 63  |aret%,window%,ic|
000014a0  6f 6e 25 2c 30 2c 2d 31  2c 2d 31 2c 63 61 72 65  |on%,0,-1,-1,care|
000014b0  74 69 6e 64 78 25 0d 06  c2 05 e1 0d 06 cc 04 0d  |tindx%..........|
000014c0  06 d6 12 dd f2 73 65 74  54 79 70 65 28 6f 66 24  |.....setType(of$|
000014d0  29 0d 06 e0 12 20 ff 22  53 74 61 6d 70 20 22 2b  |).... ."Stamp "+|
000014e0  6f 66 24 0d 06 ea 1c 20  ff 22 53 65 74 74 79 70  |of$.... ."Settyp|
000014f0  65 20 22 2b 6f 66 24 2b  22 20 54 65 78 74 22 0d  |e "+of$+" Text".|
00001500  06 f4 05 e1 0d 06 fe 04  0d 07 08 0a dd f2 6d 61  |..............ma|
00001510  69 6c 0d 07 12 08 ea 20  50 25 0d 07 1c 23 72 65  |il..... P%...#re|
00001520  6d 6f 76 65 25 3d b9 3a  f2 72 65 67 69 73 74 65  |move%=.:.registe|
00001530  72 43 68 6f 69 63 65 73  28 a3 2c a3 29 0d 07 26  |rChoices(.,.)..&|
00001540  1c 74 6f 6e 61 6d 65 24  3d a4 72 74 6f 7a 28 73  |.toname$=.rtoz(s|
00001550  65 6e 64 25 28 74 6f 29  29 0d 07 30 18 63 63 24  |end%(to))..0.cc$|
00001560  3d a4 72 74 6f 7a 28 73  65 6e 64 25 28 63 63 29  |=.rtoz(send%(cc)|
00001570  29 0d 07 3a 22 73 75 62  6a 65 63 74 24 3d a4 72  |)..:"subject$=.r|
00001580  74 6f 7a 28 73 65 6e 64  25 28 73 75 62 6a 65 63  |toz(send%(subjec|
00001590  74 29 29 0d 07 44 3f 64  75 6d 6d 79 25 3d a4 74  |t))..D?dummy%=.t|
000015a0  6f 43 74 72 6c 28 73 65  6e 64 25 28 66 72 6f 6d  |oCtrl(send%(from|
000015b0  29 2c 62 75 66 66 65 72  25 29 3a 66 72 6f 6d 6e  |),buffer%):fromn|
000015c0  61 6d 24 3d a4 72 74 6f  7a 28 62 75 66 66 65 72  |am$=.rtoz(buffer|
000015d0  25 29 0d 07 4e 1f 66 69  6c 65 6e 61 6d 24 3d a4  |%)..N.filenam$=.|
000015e0  72 74 6f 7a 28 73 65 6e  64 25 28 66 69 6c 65 29  |rtoz(send%(file)|
000015f0  29 0d 07 58 27 e7 a9 28  74 6f 6e 61 6d 65 24 29  |)..X'..(toname$)|
00001600  2b a9 28 63 63 24 29 3c  31 20 ef 37 3a 72 65 6d  |+.(cc$)<1 .7:rem|
00001610  6f 76 65 25 3d a3 3a e1  0d 07 62 23 66 25 3d 30  |ove%=.:...b#f%=0|
00001620  3a 68 25 3d 30 3a ee 85  20 ea 20 d9 23 66 25 3a  |:h%=0:.. . .#f%:|
00001630  f2 65 72 72 6f 72 62 6f  78 3a e1 0d 07 6c 2e e7  |.errorbox:...l..|
00001640  97 66 69 6c 65 6e 61 6d  24 3d 97 22 3c 22 8c 20  |.filenam$=."<". |
00001650  66 25 3d 8e 73 63 72 61  70 24 20 8b 20 66 25 3d  |f%=.scrap$ . f%=|
00001660  8e 66 69 6c 65 6e 61 6d  24 0d 07 76 18 e7 66 25  |.filenam$..v..f%|
00001670  3d 30 20 ef 37 3a 72 65  6d 6f 76 65 25 3d a3 3a  |=0 .7:remove%=.:|
00001680  e1 0d 07 80 05 cd 0d 07  8a 07 ea 20 85 0d 07 94  |........... ....|
00001690  0a 6d 61 69 6c 3d 30 0d  07 9e 21 6d 61 69 6c 24  |.mail=0...!mail$|
000016a0  3d 66 6e 61 6d 65 24 2b  22 24 2e 4d 61 69 6c 2e  |=fname$+"$.Mail.|
000016b0  50 6f 73 74 42 6f 78 22  0d 07 a8 1b c8 99 20 73  |PostBox"...... s|
000016c0  5f 66 69 6c 65 25 2c 35  2c 6d 61 69 6c 24 20 b8  |_file%,5,mail$ .|
000016d0  20 72 30 0d 07 b2 0c e7  20 72 30 3d 32 20 8c 0d  | r0..... r0=2 ..|
000016e0  07 bc 16 20 20 62 6f 78  25 3d 2d 31 3a f5 62 6f  |...  box%=-1:.bo|
000016f0  78 25 2b 3d 31 0d 07 c6  3d 20 20 20 20 ee 85 20  |x%+=1...=    .. |
00001700  ea 20 fd 20 62 6f 78 25  3e 39 39 3a f7 20 85 3a  |. . box%>99:. .:|
00001710  d9 23 66 25 3a d9 23 68  25 3a f2 72 65 70 6f 72  |.#f%:.#h%:.repor|
00001720  74 28 32 30 30 31 2c 22  4d 61 69 6c 45 34 22 29  |t(2001,"MailE4")|
00001730  3a e1 0d 07 d0 43 20 20  20 20 62 6e 61 6d 65 24  |:....C    bname$|
00001740  3d 6d 61 69 6c 24 2b 22  2e 22 2b c2 c3 28 62 6f  |=mail$+"."+..(bo|
00001750  78 25 2b 31 30 30 30 30  29 2c 32 29 3a c8 99 20  |x%+10000),2):.. |
00001760  73 5f 66 69 6c 65 25 2c  35 2c 62 6e 61 6d 65 24  |s_file%,5,bname$|
00001770  20 b8 20 72 30 0d 07 da  3b 20 20 20 20 68 25 3d  | . r0...;    h%=|
00001780  30 3a e7 20 72 30 3d 31  20 8c 20 68 25 3d ad 28  |0:. r0=1 . h%=.(|
00001790  62 6e 61 6d 65 24 29 3a  e7 68 25 3e 30 20 e7 a2  |bname$):.h%>0 ..|
000017a0  23 68 25 3c 3e 30 20 d9  23 68 25 3a 68 25 3d 30  |#h%<>0 .#h%:h%=0|
000017b0  0d 07 e4 1d 20 20 fd 68  25 3c 3e 30 20 84 20 62  |....  .h%<>0 . b|
000017c0  6f 78 25 3e 39 39 20 84  20 72 30 3d 30 0d 07 ee  |ox%>99 . r0=0...|
000017d0  2d 20 20 e7 68 25 3d 30  20 f7 20 85 3a d9 23 66  |-  .h%=0 . .:.#f|
000017e0  25 3a f2 72 65 70 6f 72  74 28 32 30 30 31 2c 22  |%:.report(2001,"|
000017f0  4d 61 69 6c 45 35 22 29  3a e1 0d 07 f8 0c 20 20  |MailE5"):.....  |
00001800  6d 61 69 6c 3d 33 0d 08  02 05 cd 0d 08 0c 0f e7  |mail=3..........|
00001810  20 6d 61 69 6c 3c 3e 33  20 8c 0d 08 16 14 20 20  | mail<>3 .....  |
00001820  e7 20 28 6e 66 73 66 6c  61 67 25 29 20 8c 0d 08  |. (nfsflag%) ...|
00001830  20 20 20 20 20 20 6d 61  69 6c 24 3d 6e 66 73 6e  |      mail$=nfsn|
00001840  61 6d 65 24 2b 22 50 65  6e 64 69 6e 67 22 0d 08  |ame$+"Pending"..|
00001850  2a 1f 20 20 20 20 c8 99  20 73 5f 66 69 6c 65 25  |*.    .. s_file%|
00001860  2c 35 2c 6d 61 69 6c 24  20 b8 20 72 30 0d 08 34  |,5,mail$ . r0..4|
00001870  33 20 20 20 20 e7 20 72  30 3c 3e 32 20 8c 20 f7  |3    . r0<>2 . .|
00001880  20 85 3a d9 23 66 25 3a  f2 72 65 70 6f 72 74 28  | .:.#f%:.report(|
00001890  32 30 30 32 2c 22 4d 61  69 6c 45 45 22 29 3a e1  |2002,"MailEE"):.|
000018a0  0d 08 3e 19 20 20 20 20  c8 99 20 22 48 6f 75 72  |..>.    .. "Hour|
000018b0  67 6c 61 73 73 5f 4f 6e  22 0d 08 48 15 20 20 20  |glass_On"..H.   |
000018c0  20 67 75 61 72 64 63 6f  75 6e 74 25 3d 30 0d 08  | guardcount%=0..|
000018d0  52 09 20 20 20 20 f5 0d  08 5c 45 20 20 20 20 20  |R.    ...\E     |
000018e0  20 c8 99 20 73 5f 78 66  69 6c 65 25 2c 31 31 2c  | .. s_xfile%,11,|
000018f0  6d 61 69 6c 67 75 61 72  64 24 2c 26 46 46 46 2c  |mailguard$,&FFF,|
00001900  30 2c 30 2c 32 20 b8 20  72 30 2c 72 31 2c 72 32  |0,0,2 . r0,r1,r2|
00001910  2c 72 33 2c 72 34 2c 72  35 3b 50 25 0d 08 66 14  |,r3,r4,r5;P%..f.|
00001920  20 20 20 20 20 20 e7 20  50 25 20 80 20 31 20 8c  |      . P% . 1 .|
00001930  0d 08 70 24 20 20 20 20  20 20 20 20 f2 64 65 6c  |..p$        .del|
00001940  61 79 28 31 29 3a 67 75  61 72 64 63 6f 75 6e 74  |ay(1):guardcount|
00001950  25 2b 3d 31 0d 08 7a 0b  20 20 20 20 20 20 cc 0d  |%+=1..z.      ..|
00001960  08 84 19 20 20 20 20 20  20 20 20 67 75 61 72 64  |...        guard|
00001970  63 6f 75 6e 74 25 3d 30  0d 08 8e 0b 20 20 20 20  |count%=0....    |
00001980  20 20 cd 0d 08 98 27 20  20 20 20 fd 20 67 75 61  |  ....'    . gua|
00001990  72 64 63 6f 75 6e 74 25  3d 30 20 84 20 67 75 61  |rdcount%=0 . gua|
000019a0  72 64 63 6f 75 6e 74 25  3d 35 0d 08 a2 4e 20 20  |rdcount%=5...N  |
000019b0  20 20 e7 20 67 75 61 72  64 63 6f 75 6e 74 25 3d  |  . guardcount%=|
000019c0  35 20 8c 20 f7 20 85 3a  d9 23 66 25 3a c8 99 20  |5 . . .:.#f%:.. |
000019d0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 3a  |"Hourglass_Off":|
000019e0  f2 72 65 70 6f 72 74 28  32 30 30 31 2c 22 4d 61  |.report(2001,"Ma|
000019f0  69 6c 45 47 22 29 3a e1  0d 08 ac 0c 20 20 20 20  |ilEG"):.....    |
00001a00  68 25 3d 30 0d 08 b6 18  20 20 20 20 62 6f 78 25  |h%=0....    box%|
00001a10  3d 2d 31 3a f5 62 6f 78  25 2b 3d 31 0d 08 c0 6d  |=-1:.box%+=1...m|
00001a20  20 20 20 20 20 20 ee 85  20 ea 20 fd 20 62 6f 78  |      .. . . box|
00001a30  25 3e 39 3a f7 20 85 3a  d9 23 66 25 3a d9 23 68  |%>9:. .:.#f%:.#h|
00001a40  25 3a f2 72 65 6d 6f 76  65 47 75 61 72 64 3a f2  |%:.removeGuard:.|
00001a50  72 65 70 28 32 30 30 32  2c 20 a4 67 65 74 5f 6d  |rep(2002, .get_m|
00001a60  65 73 73 61 67 65 28 22  4d 61 69 6c 45 43 22 29  |essage("MailEC")|
00001a70  2b 22 2c 22 2b 6d 61 69  6c 71 24 2b 22 2c 22 2b  |+","+mailq$+","+|
00001a80  6d 61 69 6c 74 24 29 3a  e1 0d 08 ca 2c 20 20 20  |mailt$):....,   |
00001a90  20 20 20 6d 61 69 6c 71  24 3d 6d 61 69 6c 24 2b  |   mailq$=mail$+|
00001aa0  22 2e 22 2b c2 c3 28 62  6f 78 25 2b 31 30 30 30  |"."+..(box%+1000|
00001ab0  30 29 2c 32 29 0d 08 d4  24 20 20 20 20 20 20 c8  |0),2)...$      .|
00001ac0  99 20 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 6d 61  |. "OS_File",5,ma|
00001ad0  69 6c 71 24 20 b8 20 72  30 0d 08 de 12 20 20 20  |ilq$ . r0....   |
00001ae0  20 20 20 e7 20 72 30 3d  30 20 8c 0d 08 e8 18 20  |   . r0=0 ..... |
00001af0  20 20 20 20 20 20 20 68  25 3d ae 28 6d 61 69 6c  |       h%=.(mail|
00001b00  74 24 29 0d 08 f2 24 20  20 20 20 20 20 20 20 e7  |t$)...$        .|
00001b10  68 25 3e 30 20 e7 a2 23  68 25 3c 3e 30 20 d9 23  |h%>0 ..#h%<>0 .#|
00001b20  68 25 3a 68 25 3d 30 0d  08 fc 0b 20 20 20 20 20  |h%:h%=0....     |
00001b30  20 cd 0d 09 06 17 20 20  20 20 fd 68 25 3c 3e 30  | .....    .h%<>0|
00001b40  20 84 20 62 6f 78 25 3e  39 0d 09 10 3c 20 20 20  | . box%>9...<   |
00001b50  20 e7 68 25 3d 30 20 f7  20 85 3a d9 23 66 25 3a  | .h%=0 . .:.#f%:|
00001b60  f2 72 65 6d 6f 76 65 47  75 61 72 64 3a f2 72 65  |.removeGuard:.re|
00001b70  70 6f 72 74 28 32 30 30  32 2c 22 4d 61 69 6c 45  |port(2002,"MailE|
00001b80  44 22 29 3a e1 0d 09 1a  18 20 20 20 20 f2 73 65  |D"):.....    .se|
00001b90  74 54 79 70 65 28 6d 61  69 6c 74 24 29 0d 09 24  |tType(mailt$)..$|
00001ba0  0e 20 20 20 20 6d 61 69  6c 3d 31 0d 09 2e 07 20  |.    mail=1.... |
00001bb0  20 cc 0d 09 38 30 20 20  20 20 6d 61 69 6c 24 3d  | ...80    mail$=|
00001bc0  66 6e 61 6d 65 24 2b 22  24 2e 22 2b 74 6f 6e 61  |fname$+"$."+tona|
00001bd0  6d 65 24 2b 22 2e 4d 61  69 6c 2e 49 6e 74 72 61  |me$+".Mail.Intra|
00001be0  79 22 0d 09 42 5c 20 20  20 20 ee 85 20 ea 20 f7  |y"..B\    .. . .|
00001bf0  20 85 3a d9 23 66 25 3a  d9 23 68 25 3a f2 72 65  | .:.#f%:.#h%:.re|
00001c00  70 28 32 30 30 32 2c 20  a4 67 65 74 5f 6d 65 73  |p(2002, .get_mes|
00001c10  73 61 67 65 28 22 4d 61  69 6c 45 36 22 29 2b 6d  |sage("MailE6")+m|
00001c20  61 69 6c 24 2b a4 67 65  74 5f 6d 65 73 73 61 67  |ail$+.get_messag|
00001c30  65 28 22 4d 61 69 6c 45  37 22 29 29 3a e1 0d 09  |e("MailE7")):...|
00001c40  4c 11 20 20 20 20 68 25  3d ad 6d 61 69 6c 24 0d  |L.    h%=.mail$.|
00001c50  09 56 2d 20 20 20 20 e7  68 25 3d 30 20 8c 20 d9  |.V-    .h%=0 . .|
00001c60  23 66 25 3a f2 72 65 70  6f 72 74 28 32 30 30 32  |#f%:.report(2002|
00001c70  2c 22 4d 61 69 6c 45 38  22 29 3a e1 0d 09 60 11  |,"MailE8"):...`.|
00001c80  20 20 20 20 cf 23 68 25  3d a2 23 68 25 0d 09 6a  |    .#h%=.#h%..j|
00001c90  0e 20 20 20 20 6d 61 69  6c 3d 30 0d 09 74 07 20  |.    mail=0..t. |
00001ca0  20 cd 0d 09 7e 05 cd 0d  09 88 2f ee 85 20 ea 20  | ...~...../.. . |
00001cb0  f7 20 85 3a d9 23 66 25  3a d9 23 68 25 3a f2 72  |. .:.#f%:.#h%:.r|
00001cc0  65 6d 6f 76 65 47 75 61  72 64 3a f2 65 72 72 6f  |emoveGuard:.erro|
00001cd0  72 62 6f 78 3a e1 0d 09  92 0e e7 20 6d 61 69 6c  |rbox:...... mail|
00001ce0  3d 31 20 8c 0d 09 9c 23  20 20 e7 a9 74 6f 6e 61  |=1 ....#  ..tona|
00001cf0  6d 65 24 20 d5 23 68 25  2c 22 54 6f 3a 20 22 2b  |me$ .#h%,"To: "+|
00001d00  74 6f 6e 61 6d 65 24 0d  09 a6 1b 20 20 e7 a9 63  |toname$....  ..c|
00001d10  63 24 20 d5 23 68 25 2c  22 43 43 3a 20 22 2b 63  |c$ .#h%,"CC: "+c|
00001d20  63 24 0d 09 b0 05 cd 0d  09 ba 0e e7 20 6d 61 69  |c$.......... mai|
00001d30  6c 3d 33 20 8c 0d 09 c4  1f 20 20 d5 23 68 25 2c  |l=3 .....  .#h%,|
00001d40  bd 31 30 2b 22 53 6f 6e  4f 66 45 63 6f 6d 61 69  |.10+"SonOfEcomai|
00001d50  6c 20 33 22 0d 09 ce 2b  20 20 e7 a9 74 6f 6e 61  |l 3"...+  ..tona|
00001d60  6d 65 24 20 f2 70 75 74  4d 32 28 68 25 2c 22 4d  |me$ .putM2(h%,"M|
00001d70  61 69 6c 53 31 22 2c 74  6f 6e 61 6d 65 24 29 0d  |ailS1",toname$).|
00001d80  09 d8 23 20 20 e7 a9 63  63 24 20 f2 70 75 74 4d  |..#  ..cc$ .putM|
00001d90  32 28 68 25 2c 22 4d 61  69 6c 53 32 22 2c 63 63  |2(h%,"MailS2",cc|
00001da0  24 29 0d 09 e2 05 cd 0d  09 ec 2b e7 a9 73 75 62  |$)........+..sub|
00001db0  6a 65 63 74 24 20 f2 70  75 74 4d 32 28 68 25 2c  |ject$ .putM2(h%,|
00001dc0  22 4d 61 69 6c 53 33 22  2c 73 75 62 6a 65 63 74  |"MailS3",subject|
00001dd0  24 29 0d 09 f6 28 6d 74  69 6d 65 24 3d 91 24 3a  |$)...(mtime$=.$:|
00001de0  f2 70 75 74 4d 32 28 68  25 2c 22 4d 61 69 6c 53  |.putM2(h%,"MailS|
00001df0  34 22 2c 6d 74 69 6d 65  24 29 0d 0a 00 20 f2 70  |4",mtime$)... .p|
00001e00  75 74 4d 32 28 68 25 2c  22 4d 61 69 6c 53 35 22  |utM2(h%,"MailS5"|
00001e10  2c 66 72 6f 6d 6e 61 6d  24 29 0d 0a 0a 0a e7 61  |,fromnam$).....a|
00001e20  63 6b 20 8c 0d 0a 14 2e  20 20 61 24 3d 66 72 6f  |ck .....  a$=fro|
00001e30  6d 6e 61 6d 24 3a 41 25  3d a7 61 24 2c bd 31 33  |mnam$:A%=.a$,.13|
00001e40  29 3a e7 41 25 20 61 24  3d c0 61 24 2c 41 25 2d  |):.A% a$=.a$,A%-|
00001e50  31 29 0d 0a 1e 1c 20 20  f2 70 75 74 4d 32 28 68  |1)....  .putM2(h|
00001e60  25 2c 22 4d 61 69 6c 53  36 22 2c 61 24 29 0d 0a  |%,"MailS6",a$)..|
00001e70  28 05 cd 0d 0a 32 0b d5  23 68 25 2c 22 22 0d 0a  |(....2..#h%,""..|
00001e80  3c 11 f2 66 63 6f 70 79  28 66 25 2c 68 25 29 0d  |<..fcopy(f%,h%).|
00001e90  0a 46 0b d5 23 68 25 2c  22 22 0d 0a 50 14 d9 23  |.F..#h%,""..P..#|
00001ea0  68 25 3a 68 25 3d 30 3a  cf 23 66 25 3d 30 0d 0a  |h%:h%=0:.#f%=0..|
00001eb0  5a 0e e7 20 6d 61 69 6c  3d 31 20 8c 0d 0a 64 39  |Z.. mail=1 ...d9|
00001ec0  20 20 ee 85 20 ea 20 f7  20 85 3a d9 23 66 25 3a  |  .. . . .:.#f%:|
00001ed0  f2 72 65 6d 6f 76 65 47  75 61 72 64 3a f2 72 65  |.removeGuard:.re|
00001ee0  70 6f 72 74 28 32 30 30  32 2c 22 4d 61 69 6c 45  |port(2002,"MailE|
00001ef0  46 22 29 3a e1 0d 0a 6e  28 20 20 c8 99 20 22 4f  |F"):...n(  .. "O|
00001f00  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 32 35 2c  |S_FSControl",25,|
00001f10  6d 61 69 6c 74 24 2c 6d  61 69 6c 71 24 0d 0a 78  |mailt$,mailq$..x|
00001f20  31 20 20 ee 85 20 ea 20  f7 20 85 3a d9 23 66 25  |1  .. . . .:.#f%|
00001f30  3a d9 23 68 25 3a f2 72  65 6d 6f 76 65 47 75 61  |:.#h%:.removeGua|
00001f40  72 64 3a f2 65 72 72 6f  72 62 6f 78 3a e1 0d 0a  |rd:.errorbox:...|
00001f50  82 05 cd 0d 0a 8c 1d 43  25 3d a4 72 65 61 64 56  |.......C%=.readV|
00001f60  61 72 28 6c 6f 67 66 69  6c 65 2c 30 2c 2d 31 29  |ar(logfile,0,-1)|
00001f70  0d 0a 96 0b e7 43 25 3c  30 20 8c 0d 0a a0 1a 20  |.....C%<0 ..... |
00001f80  20 68 25 3d ad 22 3c 4d  61 69 6c 24 4c 6f 67 46  | h%=."<Mail$LogF|
00001f90  69 6c 65 3e 22 0d 0a aa  2c 20 20 e7 68 25 3d 30  |ile>"...,  .h%=0|
00001fa0  20 68 25 3d ae 22 3c 4d  61 69 6c 24 4c 6f 67 46  | h%=."<Mail$LogF|
00001fb0  69 6c 65 3e 22 20 8b 20  cf 23 68 25 3d a2 23 68  |ile>" . .#h%=.#h|
00001fc0  25 0d 0a b4 18 20 20 d5  23 68 25 2c c4 33 39 2c  |%....  .#h%,.39,|
00001fd0  22 2d 2b 22 29 2b 22 2d  22 0d 0a be 41 20 20 f2  |"-+")+"-"...A  .|
00001fe0  70 75 74 4d 28 68 25 2c  22 4d 61 69 6c 53 37 22  |putM(h%,"MailS7"|
00001ff0  29 3a d5 23 68 25 2c 6d  74 69 6d 65 24 3b 3a f2  |):.#h%,mtime$;:.|
00002000  70 75 74 4d 32 28 68 25  2c 22 4d 61 69 6c 53 38  |putM2(h%,"MailS8|
00002010  22 2c 74 6f 6e 61 6d 65  24 29 0d 0a c8 23 20 20  |",toname$)...#  |
00002020  e7 a9 63 63 24 20 f2 70  75 74 4d 32 28 68 25 2c  |..cc$ .putM2(h%,|
00002030  22 4d 61 69 6c 53 39 22  2c 63 63 24 29 0d 0a d2  |"MailS9",cc$)...|
00002040  2d 20 20 e7 a9 73 75 62  6a 65 63 74 24 20 f2 70  |-  ..subject$ .p|
00002050  75 74 4d 32 28 68 25 2c  22 4d 61 69 6c 53 41 22  |utM2(h%,"MailSA"|
00002060  2c 73 75 62 6a 65 63 74  24 29 0d 0a dc 1e 20 20  |,subject$)....  |
00002070  e7 61 63 6b 20 f2 70 75  74 4d 31 28 68 25 2c 22  |.ack .putM1(h%,"|
00002080  4d 61 69 6c 53 42 22 29  0d 0a e6 58 20 20 e7 c0  |MailSB")...X  ..|
00002090  66 69 6c 65 6e 61 6d 24  2c 31 29 3d 22 3c 22 20  |filenam$,1)="<" |
000020a0  f2 70 75 74 4d 31 28 68  25 2c 22 4d 61 69 6c 53  |.putM1(h%,"MailS|
000020b0  43 22 29 3a f2 66 63 6f  70 79 28 66 25 2c 68 25  |C"):.fcopy(f%,h%|
000020c0  29 20 8b 20 f2 70 75 74  4d 32 28 68 25 2c 22 4d  |) . .putM2(h%,"M|
000020d0  61 69 6c 53 44 22 2c 66  69 6c 65 6e 61 6d 24 29  |ailSD",filenam$)|
000020e0  0d 0a f0 1c 20 20 d5 23  68 25 2c bd 31 30 2b c4  |....  .#h%,.10+.|
000020f0  33 39 2c 22 2b 2d 22 29  2b 22 2b 22 0d 0a fa 0a  |39,"+-")+"+"....|
00002100  20 20 d9 23 68 25 0d 0b  04 20 20 20 f2 73 65 74  |  .#h%...   .set|
00002110  54 79 70 65 28 22 3c 4d  61 69 6c 24 4c 6f 67 66  |Type("<Mail$Logf|
00002120  69 6c 65 3e 22 29 0d 0b  0e 05 cd 0d 0b 18 08 d9  |ile>")..........|
00002130  23 66 25 0d 0b 22 10 f2  72 65 6d 6f 76 65 47 75  |#f%.."..removeGu|
00002140  61 72 64 0d 0b 2c 05 e1  0d 0b 36 04 0d 0b 40 11  |ard..,....6...@.|
00002150  dd f2 72 65 6d 6f 76 65  47 75 61 72 64 0d 0b 4a  |..removeGuard..J|
00002160  12 e7 20 28 6e 66 73 66  6c 61 67 25 29 20 8c 0d  |.. (nfsflag%) ..|
00002170  0b 54 1e 20 20 c8 99 20  73 5f 78 66 69 6c 65 25  |.T.  .. s_xfile%|
00002180  2c 36 2c 6d 61 69 6c 67  75 61 72 64 24 0d 0b 5e  |,6,mailguard$..^|
00002190  18 20 20 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.  .. "Hourglass|
000021a0  5f 4f 66 66 22 0d 0b 68  05 cd 0d 0b 72 05 e1 0d  |_Off"..h....r...|
000021b0  0b 7c 04 0d 0b 86 0f dd  f2 64 65 6c 61 79 28 6e  |.|.......delay(n|
000021c0  25 29 0d 0b 90 08 ea 20  78 25 0d 0b 9a 0f 78 25  |%)..... x%....x%|
000021d0  3d 91 2b 6e 25 2a 31 30  30 0d 0b a4 0d f5 20 fd  |=.+n%*100..... .|
000021e0  20 91 3e 3d 78 25 0d 0b  ae 05 e1 0d 0b b8 04 0d  | .>=x%..........|
000021f0  0b c2 12 dd f2 66 63 6f  70 79 28 66 25 2c 74 25  |.....fcopy(f%,t%|
00002200  29 0d 0b cc 0d e7 a2 23  66 25 3d 30 20 e1 0d 0b  |)......#f%=0 ...|
00002210  d6 0e 73 74 61 72 74 25  3d 30 3a f5 0d 0b e0 26  |..start%=0:....&|
00002220  c8 99 73 5f 67 70 25 2c  34 2c 66 25 2c 62 75 66  |..s_gp%,4,f%,buf|
00002230  66 65 72 25 2c 26 32 30  30 20 b8 20 2c 2c 2c 72  |fer%,&200 . ,,,r|
00002240  33 25 0d 0b ea 2c e7 72  33 25 3c 3e 26 32 30 30  |3%...,.r3%<>&200|
00002250  20 c8 99 73 5f 67 70 25  2c 32 2c 68 25 2c 62 75  | ..s_gp%,2,h%,bu|
00002260  66 66 65 72 25 2c 26 32  30 30 2d 72 33 25 0d 0b  |ffer%,&200-r3%..|
00002270  f4 14 73 74 61 72 74 25  2b 3d 26 32 30 30 2d 72  |..start%+=&200-r|
00002280  33 25 0d 0b fe 11 fd 73  74 61 72 74 25 3e 3d a2  |3%.....start%>=.|
00002290  23 66 25 0d 0c 08 05 e1  0d 0c 12 04 0d 0c 1c 36  |#f%............6|
000022a0  dd f2 63 68 65 63 6b 6d  6f 75 73 65 28 6d 6f 75  |..checkmouse(mou|
000022b0  73 65 78 25 2c 6d 6f 75  73 65 79 25 2c 62 25 2c  |sex%,mousey%,b%,|
000022c0  68 61 6e 64 6c 65 25 2c  69 63 6f 6e 25 2c 6f 62  |handle%,icon%,ob|
000022d0  25 29 0d 0c 26 0c e7 28  62 25 80 32 29 8c 0d 0c  |%)..&..(b%.2)...|
000022e0  30 12 20 20 f2 65 6e 64  44 69 61 6c 6f 67 75 65  |0.  .endDialogue|
000022f0  0d 0c 3a 12 20 20 c8 8e  20 68 61 6e 64 6c 65 25  |..:.  .. handle%|
00002300  20 ca 0d 0c 44 46 20 20  c9 20 2d 32 3a 20 f2 64  | ...DF  . -2: .d|
00002310  6f 6d 65 6e 75 28 31 30  31 2c a4 67 65 74 5f 6d  |omenu(101,.get_m|
00002320  65 73 73 61 67 65 28 22  4d 61 69 6c 4d 31 22 29  |essage("MailM1")|
00002330  2c a4 67 65 74 5f 6d 65  73 73 61 67 65 28 22 4d  |,.get_message("M|
00002340  61 69 6c 30 31 22 29 29  0d 0c 4e 07 20 20 cb 0d  |ail01"))..N.  ..|
00002350  0c 58 05 cd 0d 0c 62 0c  e7 28 62 25 80 35 29 8c  |.X....b..(b%.5).|
00002360  0d 0c 6c 12 20 20 c8 8e  20 68 61 6e 64 6c 65 25  |..l.  .. handle%|
00002370  20 ca 0d 0c 76 2e 20 20  c9 20 2d 32 3a 20 f2 6d  | ...v.  . -2: .m|
00002380  65 6e 75 73 65 6c 67 6f  28 a4 67 65 74 5f 6d 65  |enuselgo(.get_me|
00002390  73 73 61 67 65 28 22 4d  61 69 6c 4d 32 22 29 29  |ssage("MailM2"))|
000023a0  0d 0c 80 3b 20 20 c9 20  6d 61 69 6c 74 6f 25 3a  |...;  . mailto%:|
000023b0  20 e7 69 63 6f 6e 25 3d  31 31 20 61 63 6b 3d ac  | .icon%=11 ack=.|
000023c0  61 63 6b 3a f2 73 65 74  4f 70 74 28 6d 61 69 6c  |ack:.setOpt(mail|
000023d0  74 6f 25 2c 31 31 2c 61  63 6b 29 0d 0c 8a 16 20  |to%,11,ack).... |
000023e0  20 c9 20 63 68 6f 69 63  65 73 77 69 6e 64 6f 77  | . choiceswindow|
000023f0  25 0d 0c 94 11 20 20 20  c8 8e 20 69 63 6f 6e 25  |%....   .. icon%|
00002400  20 ca 0d 0c 9e 2a 20 20  20 20 c9 20 30 3a 20 f2  | ....*    . 0: .|
00002410  72 65 67 69 73 74 65 72  43 68 6f 69 63 65 73 28  |registerChoices(|
00002420  b9 2c 20 28 62 25 80 31  29 3d 31 29 0d 0c a8 37  |., (b%.1)=1)...7|
00002430  20 20 20 20 c9 20 31 3a  20 e7 20 62 25 80 31 20  |    . 1: . b%.1 |
00002440  8c 20 f2 72 65 64 72 61  77 43 68 6f 69 63 65 73  |. .redrawChoices|
00002450  20 8b 20 c8 99 20 73 5f  63 72 6d 65 6e 75 25 2c  | . .. s_crmenu%,|
00002460  2c 2d 31 0d 0c b2 3f 20  20 20 20 c9 20 36 3a 20  |,-1...?    . 6: |
00002470  6e 65 77 42 6f 6e 67 3d  ac 6e 65 77 42 6f 6e 67  |newBong=.newBong|
00002480  3a f2 73 65 74 4f 70 74  28 63 68 6f 69 63 65 73  |:.setOpt(choices|
00002490  77 69 6e 64 6f 77 25 2c  36 2c 6e 65 77 42 6f 6e  |window%,6,newBon|
000024a0  67 29 0d 0c bc 08 20 20  20 cb 0d 0c c6 07 20 20  |g)....   .....  |
000024b0  cb 0d 0c d0 05 cd 0d 0c  da 05 e1 0d 0c e4 04 0d  |................|
000024c0  0c ee 0c dd f2 66 69 6e  69 73 68 0d 0c f8 13 c8  |.....finish.....|
000024d0  99 20 73 5f 63 6c 6f 73  65 64 6f 77 6e 25 0d 0d  |. s_closedown%..|
000024e0  02 05 e1 0d 0d 0c 04 0d  0d 16 26 dd f2 64 6f 6d  |..........&..dom|
000024f0  65 6e 75 28 68 61 6e 64  6c 65 25 2c 6d 65 6e 75  |enu(handle%,menu|
00002500  24 2c 6d 65 6e 75 74 69  74 6c 65 24 29 0d 0d 20  |$,menutitle$).. |
00002510  12 6d 65 6e 75 49 74 65  6d 73 25 20 3d 20 30 0d  |.menuItems% = 0.|
00002520  0d 2a 17 6d 65 6e 75 68  61 6e 64 6c 65 25 3d 68  |.*.menuhandle%=h|
00002530  61 6e 64 6c 65 25 0d 0d  34 16 6d 65 6e 75 70 74  |andle%..4.menupt|
00002540  72 25 3d 6d 65 6e 75 64  61 74 61 25 0d 0d 3e 08  |r%=menudata%..>.|
00002550  69 25 3d 30 0d 0d 48 12  6d 65 6e 75 70 74 72 25  |i%=0..H.menuptr%|
00002560  21 32 30 3d 34 34 0d 0d  52 18 24 6d 65 6e 75 70  |!20=44..R.$menup|
00002570  74 72 25 3d 6d 65 6e 75  74 69 74 6c 65 24 0d 0d  |tr%=menutitle$..|
00002580  5c 4a 6d 65 6e 75 70 74  72 25 3f 31 32 3d 60 74  |\Jmenuptr%?12=`t|
00002590  66 63 6f 6c 3a 6d 65 6e  75 70 74 72 25 3f 31 33  |fcol:menuptr%?13|
000025a0  3d 32 3a 6d 65 6e 75 70  74 72 25 3f 31 34 3d 60  |=2:menuptr%?14=`|
000025b0  77 66 63 6f 6c 3a 6d 65  6e 75 70 74 72 25 3f 31  |wfcol:menuptr%?1|
000025c0  35 3d 60 77 62 63 6f 6c  0d 0d 66 24 6d 65 6e 75  |5=`wbcol..f$menu|
000025d0  70 74 72 25 21 31 36 3d  32 33 30 2d 32 34 3a 6d  |ptr%!16=230-24:m|
000025e0  65 6e 75 70 74 72 25 21  32 34 3d 30 0d 0d 70 10  |enuptr%!24=0..p.|
000025f0  6d 65 6e 75 70 74 72 25  2b 3d 32 38 0d 0d 7a 3f  |menuptr%+=28..z?|
00002600  f5 20 69 74 65 6d 24 3d  a4 70 61 72 28 22 2c 22  |. item$=.par(","|
00002610  29 3a f2 6d 65 6e 75 69  74 65 6d 28 69 74 65 6d  |):.menuitem(item|
00002620  24 29 3a 6d 65 6e 75 49  74 65 6d 73 25 2b 3d 31  |$):menuItems%+=1|
00002630  3a fd 20 69 74 65 6d 24  3d 22 22 0d 0d 84 23 6d  |:. item$=""...#m|
00002640  65 6e 75 70 74 72 25 21  2d 32 34 3d 28 6d 65 6e  |enuptr%!-24=(men|
00002650  75 70 74 72 25 21 2d 32  34 29 84 26 38 30 0d 0d  |uptr%!-24).&80..|
00002660  8e 3b c8 99 20 73 5f 63  72 6d 65 6e 75 25 2c 2c  |.;.. s_crmenu%,,|
00002670  6d 65 6e 75 64 61 74 61  25 2c 6d 6f 75 73 65 78  |menudata%,mousex|
00002680  25 2d 36 34 2c 39 36 2b  28 6d 65 6e 75 49 74 65  |%-64,96+(menuIte|
00002690  6d 73 25 2d 31 29 2a 34  34 0d 0d 98 05 e1 0d 0d  |ms%-1)*44.......|
000026a0  a2 04 0d 0d ac 4f dd f2  6d 65 6e 75 69 74 65 6d  |.....O..menuitem|
000026b0  28 74 65 78 74 24 29 20  3a f4 20 4c 65 61 64 69  |(text$) :. Leadi|
000026c0  6e 67 20 63 68 61 72 61  63 74 65 72 20 6f 66 20  |ng character of |
000026d0  3e 20 6f 72 20 3c 20 68  61 73 20 73 70 65 63 69  |> or < has speci|
000026e0  61 6c 20 69 6e 74 65 72  70 72 65 74 61 74 69 6f  |al interpretatio|
000026f0  6e 0d 0d b6 0b ea 20 6c  65 66 74 24 0d 0d c0 10  |n..... left$....|
00002700  e7 20 74 65 78 74 24 3d  22 22 20 e1 0d 0d ca 0f  |. text$="" .....|
00002710  21 6d 65 6e 75 70 74 72  25 3d 30 0d 0d d4 23 6c  |!menuptr%=0...#l|
00002720  65 66 74 24 20 3d 20 c0  74 65 78 74 24 2c 31 29  |eft$ = .text$,1)|
00002730  3a 6d 65 6e 75 70 74 72  25 21 34 3d 2d 31 0d 0d  |:menuptr%!4=-1..|
00002740  de 28 e7 20 6c 65 66 74  24 3d 22 3e 22 20 8c 20  |.(. left$=">" . |
00002750  6d 65 6e 75 70 74 72 25  21 34 3d 69 6e 66 6f 77  |menuptr%!4=infow|
00002760  69 6e 64 6f 77 25 0d 0d  e8 37 e7 20 6c 65 66 74  |indow%...7. left|
00002770  24 3d 22 3c 22 20 8c 20  6d 65 6e 75 70 74 72 25  |$="<" . menuptr%|
00002780  21 34 3d 63 68 6f 69 63  65 73 77 69 6e 64 6f 77  |!4=choiceswindow|
00002790  25 3a 21 6d 65 6e 75 70  74 72 25 3d 38 0d 0d f2  |%:!menuptr%=8...|
000027a0  18 6d 65 6e 75 70 74 72  25 21 38 3d 26 30 37 30  |.menuptr%!8=&070|
000027b0  30 30 30 32 31 0d 0d fc  4d e7 20 6c 65 66 74 24  |00021...M. left$|
000027c0  3d 22 3e 22 20 84 20 6c  65 66 74 24 3d 22 3c 22  |=">" . left$="<"|
000027d0  20 8c 20 24 28 6d 65 6e  75 70 74 72 25 2b 31 32  | . $(menuptr%+12|
000027e0  29 3d c1 74 65 78 74 24  2c 32 29 20 8b 20 24 28  |)=.text$,2) . $(|
000027f0  6d 65 6e 75 70 74 72 25  2b 31 32 29 3d 74 65 78  |menuptr%+12)=tex|
00002800  74 24 0d 0e 06 10 6d 65  6e 75 70 74 72 25 2b 3d  |t$....menuptr%+=|
00002810  32 34 0d 0e 10 05 e1 0d  0e 1a 04 0d 0e 24 0f dd  |24...........$..|
00002820  a4 70 61 72 28 73 65 70  24 29 0d 0e 2e 25 69 31  |.par(sep$)...%i1|
00002830  25 3d 69 25 2b 31 3a 69  25 3d a7 6d 65 6e 75 24  |%=i%+1:i%=.menu$|
00002840  2b 73 65 70 24 2c 73 65  70 24 2c 69 31 25 29 0d  |+sep$,sep$,i1%).|
00002850  0e 38 17 3d c1 6d 65 6e  75 24 2c 69 31 25 2c 69  |.8.=.menu$,i1%,i|
00002860  25 2d 69 31 25 29 0d 0e  42 04 0d 0e 4c 14 dd a4  |%-i1%)..B...L...|
00002870  63 68 65 63 6b 55 50 28  66 69 6c 65 25 29 0d 0e  |checkUP(file%)..|
00002880  56 10 20 ea 20 78 25 2c  70 25 3a ea 20 85 0d 0e  |V. . x%,p%:. ...|
00002890  60 45 20 ee 85 20 ea 20  d9 23 66 69 6c 65 25 3a  |`E .. . .#file%:|
000028a0  e7 9f 3d 31 30 34 33 20  8c 20 f2 72 65 70 6f 72  |..=1043 . .repor|
000028b0  74 28 32 30 30 37 2c 20  22 4d 61 69 6c 45 39 22  |t(2007, "MailE9"|
000028c0  29 3a 3d a3 20 8b 20 f2  65 72 72 6f 72 62 6f 78  |):=. . .errorbox|
000028d0  3a 3d a3 0d 0e 6a 25 20  70 25 3d 8f 23 66 69 6c  |:=...j% p%=.#fil|
000028e0  65 25 3a 78 25 3d 9a 23  66 69 6c 65 25 3a cf 23  |e%:x%=.#file%:.#|
000028f0  66 69 6c 65 25 3d 70 25  0d 0e 74 06 3d b9 0d 0e  |file%=p%..t.=...|
00002900  7e 04 0d 0e 88 18 dd f2  6d 65 6e 75 73 65 6c 65  |~.......menusele|
00002910  63 74 28 6d 65 6e 75 73  25 29 0d 0e 92 08 ea 20  |ct(menus%)..... |
00002920  50 25 0d 0e 9c 32 c8 99  20 73 5f 64 63 6d 65 6e  |P%...2.. s_dcmen|
00002930  75 25 2c 2c 6d 65 6e 75  64 61 74 61 25 2c 6d 65  |u%,,menudata%,me|
00002940  6e 75 73 25 2c c4 32 30  30 2c 22 20 22 29 b8 2c  |nus%,.200," ").,|
00002950  2c 2c 61 24 0d 0e a6 0f  e7 20 61 24 3d 22 22 20  |,,a$..... a$="" |
00002960  8c 20 e1 0d 0e b0 23 dd  f2 6d 65 6e 75 73 65 6c  |. ....#..menusel|
00002970  67 6f 28 61 24 29 20 6d  65 6e 75 68 61 6e 64 6c  |go(a$) menuhandl|
00002980  65 25 3d 31 30 31 0d 0e  ba 14 c8 8e 20 6d 65 6e  |e%=101...... men|
00002990  75 68 61 6e 64 6c 65 25  20 ca 0d 0e c4 30 c9 20  |uhandle% ....0. |
000029a0  31 30 31 3a 20 e7 20 61  24 3d a4 67 65 74 5f 6d  |101: . a$=.get_m|
000029b0  65 73 73 61 67 65 28 22  4d 61 69 6c 4d 33 22 29  |essage("MailM3")|
000029c0  3a f2 66 69 6e 69 73 68  3a e0 0d 0e ce 23 20 20  |:.finish:....#  |
000029d0  e7 20 61 24 3d a4 67 65  74 5f 6d 65 73 73 61 67  |. a$=.get_messag|
000029e0  65 28 22 4d 61 69 6c 4d  32 22 29 20 8c 0d 0e d8  |e("MailM2") ....|
000029f0  16 20 20 20 20 e7 20 28  6e 66 73 66 6c 61 67 25  |.    . (nfsflag%|
00002a00  29 20 8c 0d 0e e2 23 20  20 20 20 20 20 c8 99 20  |) ....#      .. |
00002a10  73 5f 78 66 69 6c 65 25  2c 35 2c 6d 6e 61 6d 65  |s_xfile%,5,mname|
00002a20  24 20 b8 20 72 30 0d 0e  ec 12 20 20 20 20 20 20  |$ . r0....      |
00002a30  e7 20 72 30 3d 30 20 e1  0d 0e f6 17 20 20 20 20  |. r0=0 .....    |
00002a40  20 20 67 75 61 72 64 63  6f 75 6e 74 25 3d 30 0d  |  guardcount%=0.|
00002a50  0f 00 1b 20 20 20 20 20  20 c8 99 20 22 48 6f 75  |...      .. "Hou|
00002a60  72 67 6c 61 73 73 5f 4f  6e 22 0d 0f 0a 0b 20 20  |rglass_On"....  |
00002a70  20 20 20 20 f5 0d 0f 14  47 20 20 20 20 20 20 20  |    ....G       |
00002a80  20 c8 99 20 73 5f 78 66  69 6c 65 25 2c 31 31 2c  | .. s_xfile%,11,|
00002a90  6d 61 69 6c 67 75 61 72  64 24 2c 26 46 46 46 2c  |mailguard$,&FFF,|
00002aa0  30 2c 30 2c 32 20 b8 20  72 30 2c 72 31 2c 72 32  |0,0,2 . r0,r1,r2|
00002ab0  2c 72 33 2c 72 34 2c 72  35 3b 50 25 0d 0f 1e 16  |,r3,r4,r5;P%....|
00002ac0  20 20 20 20 20 20 20 20  e7 20 50 25 20 80 20 31  |        . P% . 1|
00002ad0  20 8c 0d 0f 28 26 20 20  20 20 20 20 20 20 20 20  | ...(&          |
00002ae0  f2 64 65 6c 61 79 28 31  29 3a 67 75 61 72 64 63  |.delay(1):guardc|
00002af0  6f 75 6e 74 25 2b 3d 31  0d 0f 32 0d 20 20 20 20  |ount%+=1..2.    |
00002b00  20 20 20 20 cc 0d 0f 3c  1b 20 20 20 20 20 20 20  |    ...<.       |
00002b10  20 20 20 67 75 61 72 64  63 6f 75 6e 74 25 3d 30  |   guardcount%=0|
00002b20  0d 0f 46 0d 20 20 20 20  20 20 20 20 cd 0d 0f 50  |..F.        ...P|
00002b30  29 20 20 20 20 20 20 fd  20 67 75 61 72 64 63 6f  |)      . guardco|
00002b40  75 6e 74 25 3d 30 20 84  20 67 75 61 72 64 63 6f  |unt%=0 . guardco|
00002b50  75 6e 74 25 3d 35 0d 0f  5a 47 20 20 20 20 20 20  |unt%=5..ZG      |
00002b60  e7 20 67 75 61 72 64 63  6f 75 6e 74 25 3d 35 20  |. guardcount%=5 |
00002b70  8c 20 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |. .. "Hourglass_|
00002b80  4f 66 66 22 3a f2 72 65  70 6f 72 74 28 32 30 30  |Off":.report(200|
00002b90  31 2c 22 4d 61 69 6c 45  48 22 29 3a e1 0d 0f 64  |1,"MailEH"):...d|
00002ba0  09 20 20 20 20 cd 0d 0f  6e 2b 20 20 20 20 41 25  |.    ...n+    A%|
00002bb0  3d 30 3a 42 25 3d 30 3a  43 25 3d a4 72 65 61 64  |=0:B%=0:C%=.read|
00002bc0  56 61 72 28 6c 6f 67 66  69 6c 65 2c 30 2c 2d 31  |Var(logfile,0,-1|
00002bd0  29 0d 0f 78 04 0d 0f 82  2e 20 20 20 20 f4 20 54  |)..x.....    . T|
00002be0  72 79 20 26 20 63 69 72  63 75 6d 76 65 6e 74 20  |ry & circumvent |
00002bf0  4e 46 53 20 63 61 63 68  69 6e 67 20 70 72 6f 62  |NFS caching prob|
00002c00  6c 65 6d 0d 0f 8c 16 20  20 20 20 e7 20 28 6e 66  |lem....    . (nf|
00002c10  73 66 6c 61 67 25 29 20  8c 0d 0f 96 3f 20 20 20  |sflag%) ....?   |
00002c20  20 20 20 20 20 c8 99 20  22 58 4f 53 5f 46 69 6c  |     .. "XOS_Fil|
00002c30  65 22 2c 20 35 2c 20 6d  6e 61 6d 65 24 20 b8 20  |e", 5, mname$ . |
00002c40  74 79 70 65 25 2c 2c 2c  2c 2c 61 74 74 72 25 20  |type%,,,,,attr% |
00002c50  3b 20 66 6c 61 67 73 25  0d 0f a0 45 20 20 20 20  |; flags%...E    |
00002c60  20 20 20 20 e7 20 74 79  70 65 25 20 3d 20 30 20  |    . type% = 0 |
00002c70  8c 20 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |. .. "Hourglass_|
00002c80  4f 66 66 22 3a f2 72 65  70 6f 72 74 28 32 30 30  |Off":.report(200|
00002c90  31 2c 22 4d 61 69 6c 45  48 22 29 3a e1 0d 0f aa  |1,"MailEH"):....|
00002ca0  34 20 20 20 20 20 20 20  20 c8 99 20 22 58 4f 53  |4        .. "XOS|
00002cb0  5f 46 69 6c 65 22 2c 20  34 2c 20 6d 6e 61 6d 65  |_File", 4, mname|
00002cc0  24 2c 2c 2c 2c 30 20 b8  20 3b 20 66 6c 61 67 73  |$,,,,0 . ; flags|
00002cd0  25 0d 0f b4 38 20 20 20  20 20 20 20 20 c8 99 20  |%...8        .. |
00002ce0  22 58 4f 53 5f 46 69 6c  65 22 2c 20 34 2c 20 6d  |"XOS_File", 4, m|
00002cf0  6e 61 6d 65 24 2c 2c 2c  2c 61 74 74 72 25 20 b8  |name$,,,,attr% .|
00002d00  20 3b 20 66 6c 61 67 73  25 0d 0f be 09 20 20 20  | ; flags%....   |
00002d10  20 cd 0d 0f c8 04 0d 0f  d2 0b 20 20 20 20 ea 20  | .........    . |
00002d20  85 0d 0f dc 2a 20 20 20  20 ee 85 20 ea 20 d9 23  |....*    .. . .#|
00002d30  42 25 3a f2 72 65 6d 6f  76 65 47 75 61 72 64 3a  |B%:.removeGuard:|
00002d40  f2 65 72 72 6f 72 62 6f  78 3a e1 0d 0f e6 2c 20  |.errorbox:...., |
00002d50  20 20 20 e7 43 25 3e 3d  30 20 85 20 32 30 30 30  |   .C%>=0 . 2000|
00002d60  2c a4 67 65 74 5f 6d 65  73 73 61 67 65 28 22 4d  |,.get_message("M|
00002d70  61 69 6c 45 42 22 29 0d  0f f0 21 20 20 20 20 43  |ailEB")...!    C|
00002d80  25 3d a4 72 65 61 64 56  61 72 28 63 75 72 72 65  |%=.readVar(curre|
00002d90  6e 74 2c 30 2c 2d 31 29  0d 0f fa 49 20 20 20 20  |nt,0,-1)...I    |
00002da0  42 25 3d ad 6d 6e 61 6d  65 24 3a e7 42 25 3d 30  |B%=.mname$:.B%=0|
00002db0  20 8c 20 f2 72 65 6d 6f  76 65 47 75 61 72 64 3a  | . .removeGuard:|
00002dc0  e1 20 8b e7 20 ac a4 63  68 65 63 6b 55 50 28 42  |. .. ..checkUP(B|
00002dd0  25 29 20 f2 72 65 6d 6f  76 65 47 75 61 72 64 3a  |%) .removeGuard:|
00002de0  e1 0d 10 04 3f 20 20 20  20 e7 a2 23 42 25 3d 30  |....?    ..#B%=0|
00002df0  20 d9 23 42 25 3a f2 72  65 6d 6f 76 65 47 75 61  | .#B%:.removeGua|
00002e00  72 64 3a 73 70 6e 61 6d  65 24 3d 22 2d 6d 61 69  |rd:spname$="-mai|
00002e10  6c 6e 6f 6e 65 22 3a f2  63 68 61 6e 67 65 3a e1  |lnone":.change:.|
00002e20  0d 10 0e 10 20 20 20 20  e7 20 43 25 3c 30 20 8c  |....    . C%<0 .|
00002e30  0d 10 18 1e 20 20 20 20  20 20 43 25 3d ae 22 3c  |....      C%=."<|
00002e40  4d 61 69 6c 24 43 75 72  72 65 6e 74 3e 22 0d 10  |Mail$Current>"..|
00002e50  22 1e 20 20 20 20 20 20  41 25 3d ad 22 3c 4d 61  |".      A%=."<Ma|
00002e60  69 6c 24 4c 6f 67 46 69  6c 65 3e 22 0d 10 2c 30  |il$LogFile>"..,0|
00002e70  20 20 20 20 20 20 e7 41  25 3d 30 20 41 25 3d ae  |      .A%=0 A%=.|
00002e80  22 3c 4d 61 69 6c 24 4c  6f 67 46 69 6c 65 3e 22  |"<Mail$LogFile>"|
00002e90  20 8b 20 cf 23 41 25 3d  a2 23 41 25 0d 10 36 36  | . .#A%=.#A%..66|
00002ea0  20 20 20 20 20 20 ee 85  20 ea 20 d9 23 41 25 3a  |      .. . .#A%:|
00002eb0  d9 23 42 25 3a d9 23 43  25 3a f2 72 65 6d 6f 76  |.#B%:.#C%:.remov|
00002ec0  65 47 75 61 72 64 3a f2  65 72 72 6f 72 62 6f 78  |eGuard:.errorbox|
00002ed0  3a e1 0d 10 40 29 20 20  20 20 20 20 f5 20 58 24  |:...@)      . X$|
00002ee0  3d be 23 42 25 3a d5 23  41 25 2c 58 24 3a d5 23  |=.#B%:.#A%,X$:.#|
00002ef0  43 25 2c 58 24 3a fd c5  23 42 25 0d 10 4a 1d 20  |C%,X$:..#B%..J. |
00002f00  20 20 20 20 20 d9 23 41  25 3a d9 23 43 25 3a 41  |     .#A%:.#C%:A|
00002f10  25 3d 30 3a 43 25 3d 30  0d 10 54 2c 20 20 20 20  |%=0:C%=0..T,    |
00002f20  20 20 ee 85 20 ea 20 d9  23 42 25 3a f2 72 65 6d  |  .. . .#B%:.rem|
00002f30  6f 76 65 47 75 61 72 64  3a f2 65 72 72 6f 72 62  |oveGuard:.errorb|
00002f40  6f 78 3a e1 0d 10 5e 36  20 20 20 20 20 20 a2 23  |ox:...^6      .#|
00002f50  42 25 3d 30 3a d9 23 42  25 3a 42 25 3d 30 3a 73  |B%=0:.#B%:B%=0:s|
00002f60  70 6e 61 6d 65 24 3d 22  2d 6d 61 69 6c 6e 6f 6e  |pname$="-mailnon|
00002f70  65 22 3a f2 63 68 61 6e  67 65 0d 10 68 3f 20 20  |e":.change..h?  |
00002f80  20 20 20 20 f2 73 65 74  54 79 70 65 28 22 3c 4d  |    .setType("<M|
00002f90  61 69 6c 24 43 75 72 72  65 6e 74 3e 22 29 3a f2  |ail$Current>"):.|
00002fa0  73 65 74 54 79 70 65 28  22 3c 4d 61 69 6c 24 4c  |setType("<Mail$L|
00002fb0  6f 67 66 69 6c 65 3e 22  29 0d 10 72 40 20 20 20  |ogfile>")..r@   |
00002fc0  20 20 20 62 75 66 66 65  72 25 21 31 32 3d 30 3a  |   buffer%!12=0:|
00002fd0  62 75 66 66 65 72 25 21  31 36 3d 35 3a 62 75 66  |buffer%!16=5:buf|
00002fe0  66 65 72 25 21 33 36 3d  30 3a 62 75 66 66 65 72  |fer%!36=0:buffer|
00002ff0  25 21 34 30 3d 26 46 46  46 0d 10 7c 42 20 20 20  |%!40=&FFF..|B   |
00003000  20 20 20 43 25 3d a4 72  65 61 64 56 61 72 28 63  |   C%=.readVar(c|
00003010  75 72 72 65 6e 74 2c 62  75 66 66 65 72 25 2b 34  |urrent,buffer%+4|
00003020  34 2c 26 31 30 30 29 3a  21 62 75 66 66 65 72 25  |4,&100):!buffer%|
00003030  3d 34 37 2b 43 25 2b 31  80 ac 33 0d 10 86 22 20  |=47+C%+1..3..." |
00003040  20 20 20 20 20 c8 99 20  73 5f 73 65 6e 64 6d 25  |     .. s_sendm%|
00003050  2c 31 38 2c 62 75 66 66  65 72 25 2c 30 0d 10 90  |,18,buffer%,0...|
00003060  09 20 20 20 20 cc 0d 10  9a 1e 20 20 20 20 20 20  |.    .....      |
00003070  41 25 3d ad 22 3c 4d 61  69 6c 24 4c 6f 67 46 69  |A%=."<Mail$LogFi|
00003080  6c 65 3e 22 0d 10 a4 30  20 20 20 20 20 20 e7 41  |le>"...0      .A|
00003090  25 3d 30 20 41 25 3d ae  22 3c 4d 61 69 6c 24 4c  |%=0 A%=."<Mail$L|
000030a0  6f 67 46 69 6c 65 3e 22  20 8b 20 cf 23 41 25 3d  |ogFile>" . .#A%=|
000030b0  a2 23 41 25 0d 10 ae 31  20 20 20 20 20 20 ee 85  |.#A%...1      ..|
000030c0  20 ea 20 d9 23 41 25 3a  d9 23 42 25 3a f2 72 65  | . .#A%:.#B%:.re|
000030d0  6d 6f 76 65 47 75 61 72  64 3a f2 65 72 72 6f 72  |moveGuard:.error|
000030e0  62 6f 78 3a e1 0d 10 b8  1b 20 20 20 20 20 20 f5  |box:.....      .|
000030f0  20 d5 23 41 25 2c be 23  42 25 3a fd c5 23 42 25  | .#A%,.#B%:..#B%|
00003100  0d 10 c2 13 20 20 20 20  20 20 d9 23 41 25 3a 41  |....      .#A%:A|
00003110  25 3d 30 0d 10 cc 2c 20  20 20 20 20 20 ee 85 20  |%=0...,      .. |
00003120  ea 20 d9 23 42 25 3a f2  72 65 6d 6f 76 65 47 75  |. .#B%:.removeGu|
00003130  61 72 64 3a f2 65 72 72  6f 72 62 6f 78 3a e1 0d  |ard:.errorbox:..|
00003140  10 d6 36 20 20 20 20 20  20 a2 23 42 25 3d 30 3a  |..6      .#B%=0:|
00003150  d9 23 42 25 3a 42 25 3d  30 3a 73 70 6e 61 6d 65  |.#B%:B%=0:spname|
00003160  24 3d 22 2d 6d 61 69 6c  6e 6f 6e 65 22 3a f2 63  |$="-mailnone":.c|
00003170  68 61 6e 67 65 0d 10 e0  24 20 20 20 20 20 20 f2  |hange...$      .|
00003180  73 65 74 54 79 70 65 28  22 3c 4d 61 69 6c 24 4c  |setType("<Mail$L|
00003190  6f 67 66 69 6c 65 3e 22  29 0d 10 ea 40 20 20 20  |ogfile>")...@   |
000031a0  20 20 20 62 75 66 66 65  72 25 21 31 32 3d 30 3a  |   buffer%!12=0:|
000031b0  62 75 66 66 65 72 25 21  31 36 3d 35 3a 62 75 66  |buffer%!16=5:buf|
000031c0  66 65 72 25 21 33 36 3d  30 3a 62 75 66 66 65 72  |fer%!36=0:buffer|
000031d0  25 21 34 30 3d 26 46 46  46 0d 10 f4 42 20 20 20  |%!40=&FFF...B   |
000031e0  20 20 20 43 25 3d a4 72  65 61 64 56 61 72 28 6c  |   C%=.readVar(l|
000031f0  6f 67 66 69 6c 65 2c 62  75 66 66 65 72 25 2b 34  |ogfile,buffer%+4|
00003200  34 2c 26 31 30 30 29 3a  21 62 75 66 66 65 72 25  |4,&100):!buffer%|
00003210  3d 34 37 2b 43 25 2b 31  80 ac 33 0d 10 fe 22 20  |=47+C%+1..3..." |
00003220  20 20 20 20 20 c8 99 20  73 5f 73 65 6e 64 6d 25  |     .. s_sendm%|
00003230  2c 31 38 2c 62 75 66 66  65 72 25 2c 30 0d 11 08  |,18,buffer%,0...|
00003240  18 20 20 20 20 cd 3a f2  72 65 6d 6f 76 65 47 75  |.    .:.removeGu|
00003250  61 72 64 3a e1 0d 11 12  07 20 20 cd 0d 11 1c 30  |ard:.....  ....0|
00003260  20 20 e7 20 61 24 3d a4  67 65 74 5f 6d 65 73 73  |  . a$=.get_mess|
00003270  61 67 65 28 22 4d 61 69  6c 4d 34 22 29 20 8c 20  |age("MailM4") . |
00003280  f2 73 61 76 65 43 68 6f  69 63 65 73 0d 11 26 05  |.saveChoices..&.|
00003290  cb 0d 11 30 05 e1 0d 11  3a 04 0d 11 44 11 dd f2  |...0....:...D...|
000032a0  72 65 74 61 69 6e 43 68  65 63 6b 0d 11 4e 44 20  |retainCheck..ND |
000032b0  e7 28 62 25 80 31 29 8c  c8 99 20 73 5f 63 72 6d  |.(b%.1)... s_crm|
000032c0  65 6e 75 25 2c 2c 6d 65  6e 75 64 61 74 61 25 2c  |enu%,,menudata%,|
000032d0  6d 6f 75 73 65 78 25 2d  36 34 2c 39 36 2b 28 6d  |mousex%-64,96+(m|
000032e0  65 6e 75 49 74 65 6d 73  25 2d 31 29 2a 34 34 0d  |enuItems%-1)*44.|
000032f0  11 58 05 e1 0d 11 62 04  0d 11 6c 0d dd a4 76 61  |.X....b...l...va|
00003300  72 28 73 24 29 0d 11 76  1d ea 20 6e 25 3a c8 99  |r(s$)..v.. n%:..|
00003310  73 77 69 6e 75 6d 25 2c  2c 73 24 b8 6e 25 3a 3d  |swinum%,,s$.n%:=|
00003320  6e 25 0d 11 80 04 0d 11  8a 0a dd f2 76 61 72 73  |n%..........vars|
00003330  0d 11 94 43 c8 99 20 22  4f 53 5f 53 57 49 4e 75  |...C.. "OS_SWINu|
00003340  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
00003350  2c 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  |,"OS_SWINumberFr|
00003360  6f 6d 53 74 72 69 6e 67  22 20 b8 20 73 77 69 6e  |omString" . swin|
00003370  75 6d 25 0d 11 9e 28 73  5f 63 72 65 61 74 65 77  |um%...(s_createw|
00003380  25 3d a4 76 61 72 28 22  57 69 6d 70 5f 43 72 65  |%=.var("Wimp_Cre|
00003390  61 74 65 57 69 6e 64 6f  77 22 29 0d 11 a8 24 73  |ateWindow")...$s|
000033a0  5f 6f 70 65 6e 77 25 3d  a4 76 61 72 28 22 57 69  |_openw%=.var("Wi|
000033b0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 29 0d  |mp_OpenWindow").|
000033c0  11 b2 26 73 5f 63 6c 6f  73 65 77 25 3d a4 76 61  |..&s_closew%=.va|
000033d0  72 28 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |r("Wimp_CloseWin|
000033e0  64 6f 77 22 29 0d 11 bc  28 73 5f 72 65 64 72 61  |dow")...(s_redra|
000033f0  77 77 25 3d a4 76 61 72  28 22 57 69 6d 70 5f 52  |ww%=.var("Wimp_R|
00003400  65 64 72 61 77 57 69 6e  64 6f 77 22 29 0d 11 c6  |edrawWindow")...|
00003410  28 73 5f 67 65 74 72 65  63 74 25 3d a4 76 61 72  |(s_getrect%=.var|
00003420  28 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |("Wimp_GetRectan|
00003430  67 6c 65 22 29 0d 11 d0  2c 73 5f 67 65 74 77 73  |gle")...,s_getws|
00003440  74 61 74 65 25 3d a4 76  61 72 28 22 57 69 6d 70  |tate%=.var("Wimp|
00003450  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00003460  29 0d 11 da 2b 73 5f 67  65 74 70 6f 69 6e 74 25  |)...+s_getpoint%|
00003470  3d a4 76 61 72 28 22 57  69 6d 70 5f 47 65 74 50  |=.var("Wimp_GetP|
00003480  6f 69 6e 74 65 72 49 6e  66 6f 22 29 0d 11 e4 20  |ointerInfo")... |
00003490  73 5f 64 72 61 67 25 3d  a4 76 61 72 28 22 57 69  |s_drag%=.var("Wi|
000034a0  6d 70 5f 44 72 61 67 42  6f 78 22 29 0d 11 ee 25  |mp_DragBox")...%|
000034b0  73 5f 63 72 6d 65 6e 75  25 3d a4 76 61 72 28 22  |s_crmenu%=.var("|
000034c0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000034d0  29 0d 11 f8 25 73 5f 64  63 6d 65 6e 75 25 3d a4  |)...%s_dcmenu%=.|
000034e0  76 61 72 28 22 57 69 6d  70 5f 44 65 63 6f 64 65  |var("Wimp_Decode|
000034f0  4d 65 6e 75 22 29 0d 12  02 22 73 5f 70 6f 6c 6c  |Menu")..."s_poll|
00003500  25 3d a4 76 61 72 28 22  58 57 69 6d 70 5f 50 6f  |%=.var("XWimp_Po|
00003510  6c 6c 49 64 6c 65 22 29  0d 12 0c 26 73 5f 6f 70  |llIdle")...&s_op|
00003520  65 6e 74 25 3d a4 76 61  72 28 22 57 69 6d 70 5f  |ent%=.var("Wimp_|
00003530  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 29 0d 12  |OpenTemplate")..|
00003540  16 26 73 5f 6c 6f 61 64  74 25 3d a4 76 61 72 28  |.&s_loadt%=.var(|
00003550  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00003560  74 65 22 29 0d 12 20 28  73 5f 63 6c 6f 73 65 74  |te").. (s_closet|
00003570  25 3d a4 76 61 72 28 22  57 69 6d 70 5f 43 6c 6f  |%=.var("Wimp_Clo|
00003580  73 65 54 65 6d 70 6c 61  74 65 22 29 0d 12 2a 25  |seTemplate")..*%|
00003590  73 5f 73 65 6e 64 6d 25  3d a4 76 61 72 28 22 57  |s_sendm%=.var("W|
000035a0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000035b0  29 0d 12 34 2b 73 5f 63  72 73 75 62 6d 65 6e 75  |)..4+s_crsubmenu|
000035c0  25 3d a4 76 61 72 28 22  57 69 6d 70 5f 43 72 65  |%=.var("Wimp_Cre|
000035d0  61 74 65 53 75 62 4d 65  6e 75 22 29 0d 12 3e 2d  |ateSubMenu")..>-|
000035e0  73 5f 73 65 74 63 61 72  65 74 25 3d a4 76 61 72  |s_setcaret%=.var|
000035f0  28 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |("Wimp_SetCaretP|
00003600  6f 73 69 74 69 6f 6e 22  29 0d 12 48 2d 73 5f 67  |osition")..H-s_g|
00003610  65 74 63 61 72 65 74 25  3d a4 76 61 72 28 22 57  |etcaret%=.var("W|
00003620  69 6d 70 5f 47 65 74 43  61 72 65 74 50 6f 73 69  |imp_GetCaretPosi|
00003630  74 69 6f 6e 22 29 0d 12  52 22 73 5f 6b 65 79 25  |tion")..R"s_key%|
00003640  3d a4 76 61 72 28 22 57  69 6d 70 5f 50 72 6f 63  |=.var("Wimp_Proc|
00003650  65 73 73 4b 65 79 22 29  0d 12 5c 2b 73 5f 67 65  |essKey")..\+s_ge|
00003660  74 69 69 6e 66 6f 25 3d  26 34 30 30 63 65 20 3a  |tiinfo%=&400ce :|
00003670  20 f4 20 57 69 6d 70 5f  47 65 74 49 63 6f 6e 49  | . Wimp_GetIconI|
00003680  6e 66 6f 0d 12 66 27 73  5f 63 6c 6f 73 65 64 6f  |nfo..f's_closedo|
00003690  77 6e 25 3d a4 76 61 72  28 22 57 69 6d 70 5f 43  |wn%=.var("Wimp_C|
000036a0  6c 6f 73 65 44 6f 77 6e  22 29 0d 12 70 26 73 5f  |loseDown")..p&s_|
000036b0  63 72 65 61 74 65 69 25  3d a4 76 61 72 28 22 57  |createi%=.var("W|
000036c0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 29  |imp_CreateIcon")|
000036d0  0d 12 7a 2a 73 5f 67 65  74 69 73 74 61 74 65 25  |..z*s_getistate%|
000036e0  3d a4 76 61 72 28 22 57  69 6d 70 5f 47 65 74 49  |=.var("Wimp_GetI|
000036f0  63 6f 6e 53 74 61 74 65  22 29 0d 12 84 2a 73 5f  |conState")...*s_|
00003700  73 65 74 69 73 74 61 74  65 25 3d a4 76 61 72 28  |setistate%=.var(|
00003710  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00003720  74 65 22 29 0d 12 8e 26  73 5f 64 65 6c 65 74 65  |te")...&s_delete|
00003730  69 25 3d a4 76 61 72 28  22 57 69 6d 70 5f 44 65  |i%=.var("Wimp_De|
00003740  6c 65 74 65 49 63 6f 6e  22 29 0d 12 98 25 73 5f  |leteIcon")...%s_|
00003750  65 72 72 6f 72 25 3d a4  76 61 72 28 22 57 69 6d  |error%=.var("Wim|
00003760  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 29 0d  |p_ReportError").|
00003770  12 a2 28 73 5f 66 6f 72  63 65 72 65 64 25 3d a4  |..(s_forcered%=.|
00003780  76 61 72 28 22 57 69 6d  70 5f 46 6f 72 63 65 52  |var("Wimp_ForceR|
00003790  65 64 72 61 77 22 29 0d  12 ac 28 73 5f 74 69 6d  |edraw")...(s_tim|
000037a0  65 25 3d a4 76 61 72 28  22 4f 53 5f 52 65 61 64  |e%=.var("OS_Read|
000037b0  4d 6f 6e 6f 74 6f 6e 69  63 54 69 6d 65 22 29 0d  |MonotonicTime").|
000037c0  12 b6 1f 73 5f 73 70 6f  70 25 3d a4 76 61 72 28  |...s_spop%=.var(|
000037d0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 29 0d 12  |"OS_SpriteOp")..|
000037e0  c0 19 73 5f 67 70 25 3d  a4 76 61 72 28 22 4f 53  |..s_gp%=.var("OS|
000037f0  5f 47 42 50 42 22 29 0d  12 ca 1a 73 5f 63 6c 69  |_GBPB")....s_cli|
00003800  25 3d a4 76 61 72 28 22  58 4f 53 5f 43 4c 49 22  |%=.var("XOS_CLI"|
00003810  29 0d 12 d4 25 73 5f 72  65 61 64 76 61 72 25 3d  |)...%s_readvar%=|
00003820  a4 76 61 72 28 22 58 4f  53 5f 52 65 61 64 56 61  |.var("XOS_ReadVa|
00003830  72 56 61 6c 22 29 0d 12  de 23 73 5f 73 65 74 76  |rVal")...#s_setv|
00003840  61 72 25 3d a4 76 61 72  28 22 58 4f 53 5f 53 65  |ar%=.var("XOS_Se|
00003850  74 56 61 72 56 61 6c 22  29 0d 12 e8 1b 73 5f 66  |tVarVal")....s_f|
00003860  69 6c 65 25 3d a4 76 61  72 28 22 4f 53 5f 46 69  |ile%=.var("OS_Fi|
00003870  6c 65 22 29 0d 12 f2 1d  73 5f 78 66 69 6c 65 25  |le")....s_xfile%|
00003880  3d a4 76 61 72 28 22 58  4f 53 5f 46 69 6c 65 22  |=.var("XOS_File"|
00003890  29 0d 12 fc 22 73 5f 66  73 63 74 72 6c 25 3d a4  |)..."s_fsctrl%=.|
000038a0  76 61 72 28 22 4f 53 5f  46 53 43 6f 6e 74 72 6f  |var("OS_FSContro|
000038b0  6c 22 29 0d 13 06 04 0d  13 10 05 e1 0d 13 1a 04  |l").............|
000038c0  0d 13 24 18 dd f2 72 65  70 6f 72 74 28 65 72 72  |..$...report(err|
000038d0  25 2c 6d 65 73 73 24 29  0d 13 2e 23 f2 72 65 70  |%,mess$)...#.rep|
000038e0  28 65 72 72 25 2c 20 a4  67 65 74 5f 6d 65 73 73  |(err%, .get_mess|
000038f0  61 67 65 28 6d 65 73 73  24 29 29 0d 13 38 05 e1  |age(mess$))..8..|
00003900  0d 13 42 04 0d 13 4c 15  dd f2 72 65 70 28 65 72  |..B...L...rep(er|
00003910  72 25 2c 6d 65 73 73 24  29 0d 13 56 5f c8 99 20  |r%,mess$)..V_.. |
00003920  73 5f 64 72 61 67 25 2c  2c 2d 31 3a 21 62 75 66  |s_drag%,,-1:!buf|
00003930  66 65 72 25 3d 65 72 72  25 3a 24 28 62 75 66 66  |fer%=err%:$(buff|
00003940  65 72 25 2b 34 29 3d 6d  65 73 73 24 3a c8 99 73  |er%+4)=mess$:..s|
00003950  5f 65 72 72 6f 72 25 2c  62 75 66 66 65 72 25 2c  |_error%,buffer%,|
00003960  31 2c a4 67 65 74 5f 6d  65 73 73 61 67 65 28 22  |1,.get_message("|
00003970  4d 61 69 6c 30 30 22 29  0d 13 60 05 e1 0d 13 6a  |Mail00")..`....j|
00003980  04 0d 13 74 40 dd f2 65  72 72 6f 72 62 6f 78 20  |...t@..errorbox |
00003990  3a f4 20 52 65 70 6f 72  74 20 65 72 72 6f 72 2c  |:. Report error,|
000039a0  20 77 69 74 68 20 6c 69  6e 65 20 6e 75 6d 62 65  | with line numbe|
000039b0  72 20 69 66 20 65 72 72  6f 72 20 3c 20 32 30 30  |r if error < 200|
000039c0  30 0d 13 7e 5b e7 20 28  9f 20 3c 20 32 30 30 30  |0..~[. (. < 2000|
000039d0  29 20 80 20 69 6e 74 65  72 6e 61 6c 25 20 8c 20  |) . internal% . |
000039e0  f2 72 65 70 28 9f 2c f6  24 2b a4 67 65 74 5f 6d  |.rep(.,.$+.get_m|
000039f0  65 73 73 61 67 65 28 22  4d 61 69 6c 45 30 22 29  |essage("MailE0")|
00003a00  2b c3 9e 2b 22 29 2e 22  2b bd 30 29 20 8b 20 f2  |+..+")."+.0) . .|
00003a10  72 65 70 28 9f 2c f6 24  2b bd 30 29 0d 13 88 05  |rep(.,.$+.0)....|
00003a20  e1 0d 13 92 04 0d 13 9c  0d dd a4 69 63 6f 6e 62  |...........iconb|
00003a30  61 72 0d 13 a6 4e 21 69  63 6f 6e 73 25 3d 2d 31  |ar...N!icons%=-1|
00003a40  3a 69 63 6f 6e 73 25 21  34 3d 30 3a 69 63 6f 6e  |:icons%!4=0:icon|
00003a50  73 25 21 38 3d 30 3a 69  63 6f 6e 73 25 21 31 32  |s%!8=0:icons%!12|
00003a60  3d 34 37 3a 69 63 6f 6e  73 25 21 31 36 3d 36 38  |=47:icons%!16=68|
00003a70  3a 69 63 6f 6e 73 25 21  32 30 3d 26 33 31 30 32  |:icons%!20=&3102|
00003a80  0d 13 b0 17 73 70 6e 61  6d 65 24 3d 22 2d 6d 61  |....spname$="-ma|
00003a90  69 6c 68 6f 6c 65 22 0d  13 ba 27 de 20 69 63 6f  |ilhole"...'. ico|
00003aa0  6e 73 25 21 32 34 20 31  32 3a 24 28 69 63 6f 6e  |ns%!24 12:$(icon|
00003ab0  73 25 21 32 34 29 3d 73  70 6e 61 6d 65 24 0d 13  |s%!24)=spname$..|
00003ac0  c4 23 69 63 6f 6e 73 25  21 32 38 3d 73 70 72 69  |.#icons%!28=spri|
00003ad0  74 65 73 25 3a 69 63 6f  6e 73 25 21 33 32 3d 31  |tes%:icons%!32=1|
00003ae0  31 0d 13 ce 1f c8 99 20  73 5f 63 72 65 61 74 65  |1...... s_create|
00003af0  69 25 2c 2c 69 63 6f 6e  73 25 20 b8 20 69 63 25  |i%,,icons% . ic%|
00003b00  0d 13 d8 08 3d 69 63 25  0d 13 e2 04 0d 13 ec 15  |....=ic%........|
00003b10  dd f2 6e 75 64 67 65 28  6e 6f 64 65 6c 61 79 25  |..nudge(nodelay%|
00003b20  29 0d 13 f6 20 ea 20 50  25 2c 66 30 25 2c 66 31  |)... . P%,f0%,f1|
00003b30  25 2c 66 32 25 2c 66 33  25 2c 66 34 25 2c 66 35  |%,f2%,f3%,f4%,f5|
00003b40  25 0d 14 00 10 e7 20 6e  6f 64 65 6c 61 79 25 20  |%..... nodelay% |
00003b50  8c 0d 14 0a 10 20 20 e7  20 4e 65 74 4f 4b 25 20  |.....  . NetOK% |
00003b60  8c 0d 14 14 3b 20 20 20  20 c8 99 20 22 4e 65 74  |....;    .. "Net|
00003b70  46 53 5f 52 65 61 64 46  53 54 69 6d 65 6f 75 74  |FS_ReadFSTimeout|
00003b80  73 22 20 b8 20 66 30 25  2c 66 31 25 2c 66 32 25  |s" . f0%,f1%,f2%|
00003b90  2c 66 33 25 2c 66 34 25  2c 66 35 25 0d 14 1e 2f  |,f3%,f4%,f5%.../|
00003ba0  20 20 20 20 c8 99 20 22  4e 65 74 46 53 5f 53 65  |    .. "NetFS_Se|
00003bb0  74 46 53 54 69 6d 65 6f  75 74 73 22 2c 35 2c 34  |tFSTimeouts",5,4|
00003bc0  2c 35 2c 34 2c 31 30 30  2c 32 30 0d 14 28 07 20  |,5,4,100,20..(. |
00003bd0  20 cd 0d 14 32 31 20 20  c8 99 20 73 5f 78 66 69  | ...21  .. s_xfi|
00003be0  6c 65 25 2c 35 2c 6d 6e  61 6d 65 24 20 b8 20 72  |le%,5,mname$ . r|
00003bf0  30 2c 2c 72 32 2c 72 33  2c 72 34 2c 72 35 20 3b  |0,,r2,r3,r4,r5 ;|
00003c00  20 50 25 0d 14 3c 10 20  20 e7 20 4e 65 74 4f 4b  | P%..<.  . NetOK|
00003c10  25 20 8c 0d 14 46 38 20  20 20 20 c8 99 20 22 4e  |% ...F8    .. "N|
00003c20  65 74 46 53 5f 53 65 74  46 53 54 69 6d 65 6f 75  |etFS_SetFSTimeou|
00003c30  74 73 22 2c 66 30 25 2c  66 31 25 2c 66 32 25 2c  |ts",f0%,f1%,f2%,|
00003c40  66 33 25 2c 66 34 25 2c  66 35 25 0d 14 50 07 20  |f3%,f4%,f5%..P. |
00003c50  20 cd 0d 14 5a 10 20 20  e7 20 50 25 20 80 20 31  | ...Z.  . P% . 1|
00003c60  20 8c 0d 14 64 1a 20 20  20 20 e7 20 64 65 6c 61  | ...d.    . dela|
00003c70  79 25 3c 3e 6c 6f 64 65  6c 25 20 8c 0d 14 6e 22  |y%<>lodel% ...n"|
00003c80  20 20 20 20 20 20 64 65  6c 61 79 25 3d 6c 6f 64  |      delay%=lod|
00003c90  65 6c 25 3a 63 6f 75 6e  74 25 3d 36 3a e1 0d 14  |el%:count%=6:...|
00003ca0  78 09 20 20 20 20 cc 0d  14 82 46 20 20 20 20 20  |x.    ....F     |
00003cb0  20 63 6f 75 6e 74 25 2d  3d 31 3a e7 63 6f 75 6e  | count%-=1:.coun|
00003cc0  74 25 3d 30 20 64 65 6c  61 79 25 3d 68 69 64 65  |t%=0 delay%=hide|
00003cd0  6c 25 3a 73 70 6e 61 6d  65 24 3d 22 2d 6d 61 69  |l%:spname$="-mai|
00003ce0  6c 75 6e 6b 22 3a f2 63  68 61 6e 67 65 0d 14 8c  |lunk":.change...|
00003cf0  0f 20 20 20 20 20 20 f2  74 69 63 6b 0d 14 96 0b  |.      .tick....|
00003d00  20 20 20 20 20 20 e1 0d  14 a0 09 20 20 20 20 cd  |      .....    .|
00003d10  0d 14 aa 07 20 20 cc 0d  14 b4 15 20 20 20 20 64  |....  .....    d|
00003d20  65 6c 61 79 25 3d 68 69  64 65 6c 25 0d 14 be 07  |elay%=hidel%....|
00003d30  20 20 cd 0d 14 c8 05 cc  0d 14 d2 31 20 20 c8 99  |  .........1  ..|
00003d40  20 73 5f 78 66 69 6c 65  25 2c 35 2c 6d 6e 61 6d  | s_xfile%,5,mnam|
00003d50  65 24 20 b8 20 72 30 2c  2c 72 32 2c 72 33 2c 72  |e$ . r0,,r2,r3,r|
00003d60  34 2c 72 35 20 3b 20 50  25 0d 14 dc 33 20 20 e7  |4,r5 ; P%...3  .|
00003d70  20 50 25 20 80 20 31 20  8c 20 73 70 6e 61 6d 65  | P% . 1 . spname|
00003d80  24 3d 22 2d 6d 61 69 6c  75 6e 6b 22 3a f2 63 68  |$="-mailunk":.ch|
00003d90  61 6e 67 65 3a f2 74 69  63 6b 3a e1 0d 14 e6 05  |ange:.tick:.....|
00003da0  cd 0d 14 f0 0b c8 8e 20  72 30 20 ca 0d 14 fa 2f  |....... r0 ..../|
00003db0  c9 20 31 3a e7 20 72 34  20 80 20 73 70 6e 61 6d  |. 1:. r4 . spnam|
00003dc0  65 24 3c 3e 22 2d 6d 61  69 6c 66 75 6c 6c 22 20  |e$<>"-mailfull" |
00003dd0  80 20 62 6f 6e 67 20 8c  20 ef 37 0d 15 04 32 e7  |. bong . .7...2.|
00003de0  20 72 34 20 73 70 6e 61  6d 65 24 3d 22 2d 6d 61  | r4 spname$="-ma|
00003df0  69 6c 66 75 6c 6c 22 20  8b 20 73 70 6e 61 6d 65  |ilfull" . spname|
00003e00  24 3d 22 2d 6d 61 69 6c  6e 6f 6e 65 22 0d 15 0e  |$="-mailnone"...|
00003e10  18 7f 20 73 70 6e 61 6d  65 24 3d 22 2d 6d 61 69  |.. spname$="-mai|
00003e20  6c 75 6e 6b 22 0d 15 18  05 cb 0d 15 22 0b f2 63  |lunk"......."..c|
00003e30  68 61 6e 67 65 0d 15 2c  09 f2 74 69 63 6b 0d 15  |hange..,..tick..|
00003e40  36 05 e1 0d 15 40 04 0d  15 4a 0a dd f2 74 69 63  |6....@...J...tic|
00003e50  6b 0d 15 54 1a c8 99 20  73 5f 74 69 6d 65 25 20  |k..T... s_time% |
00003e60  b8 20 74 69 6d 65 73 6c  69 70 25 0d 15 5e 2a c8  |. timeslip%..^*.|
00003e70  95 74 69 6d 65 73 6c 69  70 25 2d 74 69 6d 65 78  |.timeslip%-timex|
00003e80  25 3e 3d 30 3a 74 69 6d  65 78 25 2b 3d 64 65 6c  |%>=0:timex%+=del|
00003e90  61 79 25 3a ce 0d 15 68  05 e1 0d 15 72 04 0d 15  |ay%:...h....r...|
00003ea0  7c 0c dd f2 63 68 61 6e  67 65 0d 15 86 2c c8 99  ||...change...,..|
00003eb0  20 73 5f 73 70 6f 70 25  2c 26 31 31 38 2c 73 70  | s_spop%,&118,sp|
00003ec0  72 69 74 65 73 25 2c 73  70 6e 61 6d 65 24 20 b8  |rites%,spname$ .|
00003ed0  2c 2c 73 72 63 25 0d 15  90 31 c8 99 20 73 5f 73  |,,src%...1.. s_s|
00003ee0  70 6f 70 25 2c 26 31 31  38 2c 73 70 72 69 74 65  |pop%,&118,sprite|
00003ef0  73 25 2c 22 2d 6d 61 69  6c 68 6f 6c 65 22 20 b8  |s%,"-mailhole" .|
00003f00  2c 2c 64 65 73 74 25 0d  15 9a 27 e3 7a 25 3d 34  |,,dest%...'.z%=4|
00003f10  34 b8 21 73 72 63 25 2d  31 88 34 3a 64 65 73 74  |4.!src%-1.4:dest|
00003f20  25 21 7a 25 3d 73 72 63  25 21 7a 25 3a ed 0d 15  |%!z%=src%!z%:...|
00003f30  a4 26 21 71 25 3d 2d 31  3a 71 25 21 34 3d 69 63  |.&!q%=-1:q%!4=ic|
00003f40  6d 61 69 6c 25 3a 71 25  21 38 3d 30 3a 71 25 21  |mail%:q%!8=0:q%!|
00003f50  31 32 3d 30 0d 15 ae 17  c8 99 20 73 5f 73 65 74  |12=0...... s_set|
00003f60  69 73 74 61 74 65 25 2c  2c 71 25 0d 15 b8 05 e1  |istate%,,q%.....|
00003f70  0d 15 c2 04 0d 15 cc 14  dd f2 70 6f 70 75 70 28  |..........popup(|
00003f80  68 61 6e 64 6c 65 25 29  0d 15 d6 12 f2 67 65 74  |handle%).....get|
00003f90  77 28 68 61 6e 64 6c 65  25 29 0d 15 e0 26 78 6f  |w(handle%)...&xo|
00003fa0  25 3d 6d 6f 75 73 65 78  25 2d 28 78 30 25 2b 78  |%=mousex%-(x0%+x|
00003fb0  31 25 29 2f 32 3a 79 6f  25 3d 39 36 2d 79 30 25  |1%)/2:yo%=96-y0%|
00003fc0  0d 15 ea 46 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |...F.open_window|
00003fd0  28 68 61 6e 64 6c 65 25  2c 78 30 25 2b 78 6f 25  |(handle%,x0%+xo%|
00003fe0  2c 79 30 25 2b 79 6f 25  2c 78 31 25 2b 78 6f 25  |,y0%+yo%,x1%+xo%|
00003ff0  2c 79 31 25 2b 79 6f 25  2c 73 63 78 25 2c 73 63  |,y1%+yo%,scx%,sc|
00004000  79 25 2c 2d 31 29 0d 15  f4 05 e1 0d 15 fe 04 0d  |y%,-1)..........|
00004010  16 08 3d dd f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |..=..open_window|
00004020  28 68 61 6e 64 6c 65 25  2c 78 30 25 2c 79 30 25  |(handle%,x0%,y0%|
00004030  2c 78 31 25 2c 79 31 25  2c 73 63 78 25 2c 73 63  |,x1%,y1%,scx%,sc|
00004040  79 25 2c 62 68 61 6e 64  6c 65 25 29 0d 16 12 11  |y%,bhandle%)....|
00004050  e7 68 61 6e 64 6c 65 25  3d 2d 31 8c e1 0d 16 1c  |.handle%=-1.....|
00004060  1f 71 25 21 30 3d 68 61  6e 64 6c 65 25 3a 71 25  |.q%!0=handle%:q%|
00004070  21 32 38 3d 62 68 61 6e  64 6c 65 25 0d 16 26 29  |!28=bhandle%..&)|
00004080  71 25 21 34 3d 78 30 25  3a 71 25 21 38 3d 79 30  |q%!4=x0%:q%!8=y0|
00004090  25 3a 71 25 21 31 32 3d  78 31 25 3a 71 25 21 31  |%:q%!12=x1%:q%!1|
000040a0  36 3d 79 31 25 0d 16 30  19 71 25 21 32 30 3d 73  |6=y1%..0.q%!20=s|
000040b0  63 78 25 3a 71 25 21 32  34 3d 73 63 79 25 0d 16  |cx%:q%!24=scy%..|
000040c0  3a 13 c8 99 20 73 5f 6f  70 65 6e 77 25 2c 2c 71  |:... s_openw%,,q|
000040d0  25 0d 16 44 05 e1 0d 16  4e 04 0d 16 58 13 dd f2  |%..D....N...X...|
000040e0  67 65 74 77 28 68 61 6e  64 6c 65 25 29 0d 16 62  |getw(handle%)..b|
000040f0  23 21 71 25 3d 68 61 6e  64 6c 65 25 3a c8 99 20  |#!q%=handle%:.. |
00004100  73 5f 67 65 74 77 73 74  61 74 65 25 2c 2c 71 25  |s_getwstate%,,q%|
00004110  0d 16 6c 2b f2 69 6e 66  6f 28 71 25 2b 34 29 3a  |..l+.info(q%+4):|
00004120  62 68 61 6e 64 6c 65 25  3d 71 25 21 32 38 3a 66  |bhandle%=q%!28:f|
00004130  6c 61 67 73 25 3d 71 25  21 33 32 0d 16 76 05 e1  |lags%=q%!32..v..|
00004140  0d 16 80 04 0d 16 8a 0e  dd f2 69 6e 66 6f 28 71  |..........info(q|
00004150  25 29 0d 16 94 3d 78 30  25 3d 21 71 25 3a 79 30  |%)...=x0%=!q%:y0|
00004160  25 3d 71 25 21 34 3a 78  31 25 3d 71 25 21 38 3a  |%=q%!4:x1%=q%!8:|
00004170  79 31 25 3d 71 25 21 31  32 3a 73 63 78 25 3d 71  |y1%=q%!12:scx%=q|
00004180  25 21 31 36 3a 73 63 79  25 3d 71 25 21 32 30 0d  |%!16:scy%=q%!20.|
00004190  16 9e 1d 62 78 25 3d 78  30 25 2d 73 63 78 25 3a  |...bx%=x0%-scx%:|
000041a0  62 79 25 3d 79 31 25 2d  73 63 79 25 0d 16 a8 05  |by%=y1%-scy%....|
000041b0  e1 0d 16 b2 04 0d 16 bc  1c dd f2 72 65 64 72 61  |...........redra|
000041c0  77 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |w_window(handle%|
000041d0  29 0d 16 c6 16 e7 68 61  6e 64 6c 65 25 3d 6d 61  |).....handle%=ma|
000041e0  69 6c 74 6f 25 20 8c 0d  16 d0 0f 21 71 25 3d 68  |ilto% .....!q%=h|
000041f0  61 6e 64 6c 65 25 0d 16  da 1d c8 99 20 73 5f 72  |andle%...... s_r|
00004200  65 64 72 61 77 77 25 2c  2c 71 25 20 b8 20 6d 6f  |edraww%,,q% . mo|
00004210  72 65 25 0d 16 e4 0f f2  69 6e 66 6f 28 71 25 2b  |re%.....info(q%+|
00004220  34 29 0d 16 ee 05 cd 0d  16 f8 05 e1 0d 17 02 04  |4)..............|
00004230  0d 17 0c 10 dd f2 67 65  74 70 6f 69 6e 74 65 72  |......getpointer|
00004240  0d 17 16 1b c8 99 20 73  5f 67 65 74 70 6f 69 6e  |...... s_getpoin|
00004250  74 25 2c 2c 62 75 66 66  65 72 25 0d 17 20 66 6d  |t%,,buffer%.. fm|
00004260  6f 75 73 65 78 25 3d 21  62 75 66 66 65 72 25 3a  |ousex%=!buffer%:|
00004270  6d 6f 75 73 65 79 25 3d  62 75 66 66 65 72 25 21  |mousey%=buffer%!|
00004280  34 3a 62 25 3d 62 75 66  66 65 72 25 21 38 3a 68  |4:b%=buffer%!8:h|
00004290  61 6e 64 6c 65 25 3d 62  75 66 66 65 72 25 21 31  |andle%=buffer%!1|
000042a0  32 3a 69 63 6f 6e 25 3d  62 75 66 66 65 72 25 21  |2:icon%=buffer%!|
000042b0  31 36 3a 6f 62 25 3d 62  75 66 66 65 72 25 21 32  |16:ob%=buffer%!2|
000042c0  30 0d 17 2a 05 e1 0d 17  34 04 0d 17 3e 3a dd f2  |0..*....4...>:..|
000042d0  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 68 61 6e  |close_window(han|
000042e0  64 6c 65 25 29 3a 21 71  25 3d 68 61 6e 64 6c 65  |dle%):!q%=handle|
000042f0  25 3a c8 99 20 73 5f 63  6c 6f 73 65 77 25 2c 2c  |%:.. s_closew%,,|
00004300  71 25 3a e1 0d 17 48 04  0d 17 52 22 dd f2 73 65  |q%:...H...R"..se|
00004310  74 4f 70 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |tOpt(window%,ico|
00004320  6e 25 2c 73 74 61 74 65  25 29 0d 17 5c 41 20 21  |n%,state%)..\A !|
00004330  6f 70 74 62 75 66 66 25  3d 77 69 6e 64 6f 77 25  |optbuff%=window%|
00004340  3a 6f 70 74 62 75 66 66  25 21 34 3d 69 63 6f 6e  |:optbuff%!4=icon|
00004350  25 3a c8 99 20 73 5f 67  65 74 69 73 74 61 74 65  |%:.. s_getistate|
00004360  25 2c 2c 6f 70 74 62 75  66 66 25 0d 17 66 3d 20  |%,,optbuff%..f= |
00004370  e7 73 74 61 74 65 25 20  24 28 6f 70 74 62 75 66  |.state% $(optbuf|
00004380  66 25 2b 32 38 29 3d 22  6f 70 74 6f 6e 22 20 8b  |f%+28)="opton" .|
00004390  20 24 28 6f 70 74 62 75  66 66 25 2b 32 38 29 3d  | $(optbuff%+28)=|
000043a0  22 6f 70 74 6f 66 66 22  0d 17 70 3e 20 21 6f 70  |"optoff"..p> !op|
000043b0  74 62 75 66 66 25 3d 77  69 6e 64 6f 77 25 3a 6f  |tbuff%=window%:o|
000043c0  70 74 62 75 66 66 25 21  34 3d 69 63 6f 6e 25 3a  |ptbuff%!4=icon%:|
000043d0  c8 99 73 5f 64 65 6c 65  74 65 69 25 2c 2c 6f 70  |..s_deletei%,,op|
000043e0  74 62 75 66 66 25 0d 17  7a 30 20 6f 70 74 62 75  |tbuff%..z0 optbu|
000043f0  66 66 25 21 34 3d 77 69  6e 64 6f 77 25 3a c8 99  |ff%!4=window%:..|
00004400  73 5f 63 72 65 61 74 65  69 25 2c 2c 6f 70 74 62  |s_createi%,,optb|
00004410  75 66 66 25 2b 34 0d 17  84 3d 20 21 71 25 3d 77  |uff%+4...= !q%=w|
00004420  69 6e 64 6f 77 25 3a 71  25 21 34 3d 69 63 6f 6e  |indow%:q%!4=icon|
00004430  25 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 30  |%:q%!8=0:q%!12=0|
00004440  3a c8 99 73 5f 73 65 74  69 73 74 61 74 65 25 2c  |:..s_setistate%,|
00004450  2c 71 25 0d 17 8e 05 e1  0d 17 98 04 0d 17 a2 1d  |,q%.............|
00004460  dd a4 68 65 6c 70 28 77  69 6e 64 6f 77 25 2c 69  |..help(window%,i|
00004470  63 6f 6e 25 2c 74 6f 25  29 0d 17 ac 1a 20 ea 20  |con%,to%).... . |
00004480  74 24 2c 74 31 24 3a 74  24 3d 22 22 3a 74 31 24  |t$,t1$:t$="":t1$|
00004490  3d 22 22 0d 17 b6 0b 24  74 6f 25 3d 22 22 0d 17  |=""....$to%=""..|
000044a0  c0 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 17  |.... window% ...|
000044b0  ca 09 20 c9 20 2d 32 0d  17 d4 11 20 20 74 24 3d  |.. . -2....  t$=|
000044c0  22 4d 61 69 6c 48 31 22  0d 17 de 1e 20 20 e7 20  |"MailH1"....  . |
000044d0  73 70 6e 61 6d 65 24 20  3d 20 22 2d 6d 61 69 6c  |spname$ = "-mail|
000044e0  75 6e 6b 22 20 8c 0d 17  e8 13 20 20 20 74 31 24  |unk" .....   t1$|
000044f0  3d 22 4d 61 69 6c 48 32  22 0d 17 f2 07 20 20 cc  |="MailH2"....  .|
00004500  0d 17 fc 13 20 20 20 74  31 24 3d 22 4d 61 69 6c  |....   t1$="Mail|
00004510  48 33 22 0d 18 06 2d 20  20 20 e7 20 73 70 6e 61  |H3"...-   . spna|
00004520  6d 65 24 20 3d 20 22 2d  6d 61 69 6c 66 75 6c 6c  |me$ = "-mailfull|
00004530  22 20 8c 20 74 31 24 3d  22 4d 61 69 6c 48 34 22  |" . t1$="MailH4"|
00004540  0d 18 10 07 20 20 cd 0d  18 1a 0f 20 c9 20 6d 61  |....  ..... . ma|
00004550  69 6c 74 6f 25 3a 0d 18  24 11 20 20 74 24 3d 22  |ilto%:..$.  t$="|
00004560  4d 61 69 6c 48 35 22 0d  18 2e 10 20 20 c8 8e 20  |MailH5"....  .. |
00004570  69 63 6f 6e 25 20 ca 0d  18 38 18 20 20 20 c9 20  |icon% ...8.   . |
00004580  30 3a 20 74 31 24 3d 22  4d 61 69 6c 48 36 22 0d  |0: t1$="MailH6".|
00004590  18 42 18 20 20 20 c9 20  31 3a 20 74 31 24 3d 22  |.B.   . 1: t1$="|
000045a0  4d 61 69 6c 48 37 22 0d  18 4c 18 20 20 20 c9 20  |MailH7"..L.   . |
000045b0  32 3a 20 74 31 24 3d 22  4d 61 69 6c 48 38 22 0d  |2: t1$="MailH8".|
000045c0  18 56 18 20 20 20 c9 20  33 3a 20 74 31 24 3d 22  |.V.   . 3: t1$="|
000045d0  4d 61 69 6c 48 39 22 0d  18 60 18 20 20 20 c9 20  |MailH9"..`.   . |
000045e0  34 3a 20 74 31 24 3d 22  4d 61 69 6c 48 41 22 0d  |4: t1$="MailHA".|
000045f0  18 6a 0c 20 20 20 c9 20  31 31 3a 0d 18 74 2b 20  |.j.   . 11:..t+ |
00004600  20 20 20 e7 20 61 63 6b  20 8c 20 74 31 24 3d 22  |   . ack . t1$="|
00004610  4d 61 69 6c 48 42 22 20  8b 20 74 31 24 3d 22 4d  |MailHB" . t1$="M|
00004620  61 69 6c 48 43 22 0d 18  7e 0f 20 20 20 7f 3a 20  |ailHC"..~.   .: |
00004630  74 24 3d 22 22 0d 18 88  07 20 20 cb 0d 18 92 15  |t$=""....  .....|
00004640  20 c9 20 63 68 6f 69 63  65 73 77 69 6e 64 6f 77  | . choiceswindow|
00004650  25 0d 18 9c 11 20 20 74  24 3d 22 4d 61 69 6c 48  |%....  t$="MailH|
00004660  35 22 0d 18 a6 10 20 20  c8 8e 20 69 63 6f 6e 25  |5"....  .. icon%|
00004670  20 ca 0d 18 b0 18 20 20  20 c9 20 30 3a 20 74 31  | .....   . 0: t1|
00004680  24 3d 22 4d 61 69 6c 48  44 22 0d 18 ba 18 20 20  |$="MailHD"....  |
00004690  20 c9 20 31 3a 20 74 31  24 3d 22 4d 61 69 6c 48  | . 1: t1$="MailH|
000046a0  45 22 0d 18 c4 18 20 20  20 c9 20 32 3a 20 74 31  |E"....   . 2: t1|
000046b0  24 3d 22 4d 61 69 6c 48  46 22 0d 18 ce 18 20 20  |$="MailHF"....  |
000046c0  20 c9 20 33 3a 20 74 31  24 3d 22 4d 61 69 6c 48  | . 3: t1$="MailH|
000046d0  47 22 0d 18 d8 18 20 20  20 c9 20 34 3a 20 74 31  |G"....   . 4: t1|
000046e0  24 3d 22 4d 61 69 6c 48  48 22 0d 18 e2 18 20 20  |$="MailHH"....  |
000046f0  20 c9 20 35 3a 20 74 31  24 3d 22 4d 61 69 6c 48  | . 5: t1$="MailH|
00004700  49 22 0d 18 ec 0b 20 20  20 c9 20 36 3a 0d 18 f6  |I"....   . 6:...|
00004710  2f 20 20 20 20 e7 20 6e  65 77 42 6f 6e 67 20 8c  |/    . newBong .|
00004720  20 74 31 24 3d 22 4d 61  69 6c 48 4a 22 20 8b 20  | t1$="MailHJ" . |
00004730  74 31 24 3d 22 4d 61 69  6c 48 4b 22 0d 19 00 0f  |t1$="MailHK"....|
00004740  20 20 20 7f 3a 20 74 24  3d 22 22 0d 19 0a 07 20  |   .: t$="".... |
00004750  20 cb 0d 19 14 07 20 20  7f 0d 19 1e 3e 20 20 20  | .....  ....>   |
00004760  c8 99 20 22 57 69 6d 70  5f 47 65 74 4d 65 6e 75  |.. "Wimp_GetMenu|
00004770  53 74 61 74 65 22 2c 20  31 2c 20 6d 65 6e 75 5f  |State", 1, menu_|
00004780  62 75 66 66 65 72 25 2c  20 77 69 6e 64 6f 77 25  |buffer%, window%|
00004790  2c 20 69 63 6f 6e 25 0d  19 28 1a 20 20 20 c8 8e  |, icon%..(.   ..|
000047a0  20 6d 65 6e 75 5f 62 75  66 66 65 72 25 21 30 20  | menu_buffer%!0 |
000047b0  ca 0d 19 32 18 20 20 20  20 c9 20 30 3a 20 74 24  |...2.    . 0: t$|
000047c0  3d 22 4d 61 69 6c 48 4c  22 0d 19 3c 18 20 20 20  |="MailHL"..<.   |
000047d0  20 c9 20 31 3a 20 74 24  3d 22 4d 61 69 6c 48 4d  | . 1: t$="MailHM|
000047e0  22 0d 19 46 18 20 20 20  20 c9 20 32 3a 20 74 24  |"..F.    . 2: t$|
000047f0  3d 22 4d 61 69 6c 48 4e  22 0d 19 50 18 20 20 20  |="MailHN"..P.   |
00004800  20 c9 20 33 3a 20 74 24  3d 22 4d 61 69 6c 48 4f  | . 3: t$="MailHO|
00004810  22 0d 19 5a 18 20 20 20  20 c9 20 34 3a 20 74 24  |"..Z.    . 4: t$|
00004820  3d 22 4d 61 69 6c 48 50  22 0d 19 64 08 20 20 20  |="MailHP"..d.   |
00004830  cb 0d 19 6e 04 0d 19 78  05 cb 0d 19 82 67 e7 20  |...n...x.....g. |
00004840  74 24 20 3c 3e 20 22 22  20 80 20 74 31 24 3c 3e  |t$ <> "" . t1$<>|
00004850  22 22 20 8c 20 24 74 6f  25 3d a4 67 65 74 5f 6d  |"" . $to%=.get_m|
00004860  65 73 73 61 67 65 28 74  24 29 2b a4 67 65 74 5f  |essage(t$)+.get_|
00004870  6d 65 73 73 61 67 65 28  74 31 24 29 20 8b 20 e7  |message(t1$) . .|
00004880  20 74 24 20 3c 3e 20 22  22 20 8c 20 24 74 6f 25  | t$ <> "" . $to%|
00004890  3d a4 67 65 74 5f 6d 65  73 73 61 67 65 28 74 24  |=.get_message(t$|
000048a0  29 0d 19 8c 10 3d 74 6f  25 2b a9 28 24 74 6f 25  |)....=to%+.($to%|
000048b0  29 0d 19 96 04 0d 19 a0  2d dd f2 6e 6f 74 65 42  |).......-..noteB|
000048c0  75 66 66 65 72 73 28 77  69 6e 64 6f 77 25 2c 20  |uffers(window%, |
000048d0  6c 6f 25 2c 20 68 69 25  2c 20 f8 20 74 6f 25 28  |lo%, hi%, . to%(|
000048e0  29 29 0d 19 aa 0c 20 ea  20 69 63 6f 6e 25 0d 19  |)).... . icon%..|
000048f0  b4 18 20 69 63 6f 6e 49  6e 66 6f 25 21 30 3d 77  |.. iconInfo%!0=w|
00004900  69 6e 64 6f 77 25 0d 19  be 5f 20 e3 20 69 63 6f  |indow%..._ . ico|
00004910  6e 25 3d 6c 6f 25 20 b8  20 68 69 25 3a 69 63 6f  |n%=lo% . hi%:ico|
00004920  6e 49 6e 66 6f 25 21 34  3d 69 63 6f 6e 25 3a c8  |nInfo%!4=icon%:.|
00004930  99 73 5f 67 65 74 69 69  6e 66 6f 25 2c 2c 69 63  |.s_getiinfo%,,ic|
00004940  6f 6e 49 6e 66 6f 25 3a  74 6f 25 28 69 63 6f 6e  |onInfo%:to%(icon|
00004950  25 2d 6c 6f 25 29 3d 69  63 6f 6e 49 6e 66 6f 25  |%-lo%)=iconInfo%|
00004960  21 32 38 3a ed 0d 19 c8  05 e1 0d 19 d2 04 0d 19  |!28:............|
00004970  dc 19 dd a4 62 75 66 66  4c 65 6e 67 74 68 28 62  |....buffLength(b|
00004980  75 66 66 65 72 25 29 0d  19 e6 09 20 ea 20 6c 25  |uffer%).... . l%|
00004990  0d 19 f0 42 20 e3 20 6c  25 3d 30 b8 32 35 35 3a  |...B . l%=0.255:|
000049a0  e7 62 75 66 66 65 72 25  3f 6c 25 3d 31 33 20 84  |.buffer%?l%=13 .|
000049b0  20 62 75 66 66 65 72 25  3f 6c 25 3d 31 30 20 84  | buffer%?l%=10 .|
000049c0  20 62 75 66 66 65 72 25  3f 6c 25 3d 30 20 8c 3d  | buffer%?l%=0 .=|
000049d0  6c 25 0d 19 fa 06 20 ed  0d 1a 04 08 3d 32 35 35  |l%.... .....=255|
000049e0  0d 1a 0e 04 0d 1a 18 3c  dd a4 74 6f 43 74 72 6c  |.......<..toCtrl|
000049f0  28 66 72 6f 6d 25 2c 20  74 6f 25 29 20 3a f4 20  |(from%, to%) :. |
00004a00  7c 4d 20 2d 3e 20 63 68  2e 63 6f 64 65 20 31 33  ||M -> ch.code 13|
00004a10  2c 20 72 65 74 75 72 6e  73 20 6c 65 6e 67 74 68  |, returns length|
00004a20  0d 1a 22 17 20 ea 20 66  25 2c 74 25 3a 66 25 3d  |..". . f%,t%:f%=|
00004a30  30 3a 74 25 3d 2d 31 0d  1a 2c 06 20 f5 0d 1a 36  |0:t%=-1..,. ...6|
00004a40  65 20 74 25 2b 3d 31 3a  e7 66 72 6f 6d 25 3f 66  |e t%+=1:.from%?f|
00004a50  25 3d 97 22 7c 22 80 28  66 72 6f 6d 25 3f 28 66  |%=."|".(from%?(f|
00004a60  25 2b 31 29 3d 97 22 4d  22 84 66 72 6f 6d 25 3f  |%+1)=."M".from%?|
00004a70  28 66 25 2b 31 29 3d 97  22 6d 22 29 8c 74 6f 25  |(f%+1)=."m").to%|
00004a80  3f 74 25 3d 31 33 3a 66  25 2b 3d 32 8b 74 6f 25  |?t%=13:f%+=2.to%|
00004a90  3f 74 25 3d 66 72 6f 6d  25 3f 66 25 3a 66 25 2b  |?t%=from%?f%:f%+|
00004aa0  3d 31 0d 1a 40 0f 20 fd  20 74 6f 25 3f 74 25 3d  |=1..@. . to%?t%=|
00004ab0  30 0d 1a 4a 07 3d 74 25  0d 1a 54 04 0d 1a 5e 24  |0..J.=t%..T...^$|
00004ac0  dd f2 72 65 67 69 73 74  65 72 43 68 6f 69 63 65  |..registerChoice|
00004ad0  73 28 63 68 65 63 6b 25  2c 20 6b 65 65 70 25 29  |s(check%, keep%)|
00004ae0  0d 1a 68 12 20 ea 20 69  25 2c 20 6c 65 6e 67 74  |..h. . i%, lengt|
00004af0  68 25 0d 1a 72 14 20 e3  20 69 25 3d 30 b8 6d 61  |h%..r. . i%=0.ma|
00004b00  78 56 61 72 73 25 0d 1a  7c 2d 20 20 6c 65 6e 67  |xVars%..|-  leng|
00004b10  74 68 25 3d a4 66 72 6f  6d 43 74 72 6c 32 28 63  |th%=.fromCtrl2(c|
00004b20  68 6f 69 63 65 25 28 69  25 29 2c 62 75 66 66 65  |hoice%(i%),buffe|
00004b30  72 25 29 0d 1a 86 1e 20  20 e7 20 6c 65 6e 67 74  |r%)....  . lengt|
00004b40  68 25 3d 30 20 8c 20 6c  65 6e 67 74 68 25 3d 2d  |h%=0 . length%=-|
00004b50  31 0d 1a 90 34 20 20 c8  99 20 73 5f 73 65 74 76  |1...4  .. s_setv|
00004b60  61 72 25 2c 76 61 72 6e  61 6d 65 73 24 28 69 25  |ar%,varnames$(i%|
00004b70  29 2c 62 75 66 66 65 72  25 2c 6c 65 6e 67 74 68  |),buffer%,length|
00004b80  25 2c 30 2c 30 0d 1a 9a  06 20 ed 0d 1a a4 3a 20  |%,0,0.... ....: |
00004b90  f2 73 65 74 4d 61 69 6c  53 6f 75 72 63 65 3a e7  |.setMailSource:.|
00004ba0  20 63 68 65 63 6b 25 20  f2 63 68 65 63 6b 4d 61  | check% .checkMa|
00004bb0  69 6c 53 6f 75 72 63 65  3a 62 6f 6e 67 3d 6e 65  |ilSource:bong=ne|
00004bc0  77 42 6f 6e 67 0d 1a ae  0f 20 f2 6e 6f 74 65 53  |wBong.... .noteS|
00004bd0  63 72 61 70 0d 1a b8 20  20 e7 20 ac 6b 65 65 70  |crap...  . .keep|
00004be0  25 20 8c 20 c8 99 20 73  5f 63 72 6d 65 6e 75 25  |% . .. s_crmenu%|
00004bf0  2c 2c 2d 31 0d 1a c2 05  e1 0d 1a cc 04 0d 1a d6  |,,-1............|
00004c00  3c dd a4 66 72 6f 6d 43  74 72 6c 32 28 66 72 6f  |<..fromCtrl2(fro|
00004c10  6d 25 2c 20 74 6f 25 29  20 3a f4 20 6d 61 6b 65  |m%, to%) :. make|
00004c20  20 73 74 72 69 6e 67 20  73 75 69 74 61 62 6c 65  | string suitable|
00004c30  20 66 6f 72 20 2a 53 65  74 0d 1a e0 1b 20 ea 20  | for *Set.... . |
00004c40  66 25 2c 74 25 2c 63 25  3a 66 25 3d 2d 31 3a 74  |f%,t%,c%:f%=-1:t|
00004c50  25 3d 2d 31 0d 1a ea 13  20 20 f5 3a 66 25 2b 3d  |%=-1....  .:f%+=|
00004c60  31 3a 74 25 2b 3d 31 0d  1a f4 14 20 20 20 c8 8e  |1:t%+=1....   ..|
00004c70  20 66 72 6f 6d 25 3f 66  25 20 ca 0d 1a fe 3f 20  | from%?f% ....? |
00004c80  20 20 20 c9 20 97 22 7c  22 3a e7 20 28 66 72 6f  |   . ."|":. (fro|
00004c90  6d 25 3f 28 66 25 2b 31  29 20 80 20 26 44 46 29  |m%?(f%+1) . &DF)|
00004ca0  3c 3e 97 22 4d 22 20 8c  20 74 6f 25 3f 74 25 3d  |<>."M" . to%?t%=|
00004cb0  97 22 7c 22 3a 74 25 2b  3d 31 0d 1b 08 23 20 20  |."|":t%+=1...#  |
00004cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 74 6f  |              to|
00004cd0  25 3f 74 25 3d 66 72 6f  6d 25 3f 66 25 0d 1b 12  |%?t%=from%?f%...|
00004ce0  30 20 20 20 20 c9 20 97  22 3c 22 3a 74 6f 25 3f  |0    . ."<":to%?|
00004cf0  74 25 3d 97 22 7c 22 3a  74 25 2b 3d 31 3a 74 6f  |t%=."|":t%+=1:to|
00004d00  25 3f 74 25 3d 66 72 6f  6d 25 3f 66 25 0d 1b 1c  |%?t%=from%?f%...|
00004d10  19 20 20 20 20 7f 3a 74  6f 25 3f 74 25 3d 66 72  |.    .:to%?t%=fr|
00004d20  6f 6d 25 3f 66 25 0d 1b  26 08 20 20 20 cb 0d 1b  |om%?f%..&.   ...|
00004d30  30 11 20 20 fd 66 72 6f  6d 25 3f 66 25 3d 30 0d  |0.  .from%?f%=0.|
00004d40  1b 3a 22 3d 20 74 25 2b  31 20 3a 20 f4 20 69 6e  |.:"= t%+1 : . in|
00004d50  63 6c 75 64 65 73 20 74  65 72 6d 69 6e 61 74 6f  |cludes terminato|
00004d60  72 0d 1b 44 04 0d 1b 4e  11 dd f2 73 61 76 65 43  |r..D...N...saveC|
00004d70  68 6f 69 63 65 73 0d 1b  58 4b 20 ea 20 69 25 2c  |hoices..XK . i%,|
00004d80  66 69 6c 65 25 2c 76 61  6c 75 65 24 3a ea 20 85  |file%,value$:. .|
00004d90  3a ee 85 20 ea 20 69 6e  74 65 72 6e 61 6c 25 3d  |:.. . internal%=|
00004da0  a3 3a d9 23 66 69 6c 65  25 3a f2 65 72 72 6f 72  |.:.#file%:.error|
00004db0  62 6f 78 3a 69 6e 74 65  72 6e 61 6c 25 3d b9 3a  |box:internal%=.:|
00004dc0  e1 0d 1b 62 2c 20 66 69  6c 65 25 3d 30 3a 66 69  |...b, file%=0:fi|
00004dd0  6c 65 25 3d ae 22 3c 4d  61 69 6c 4d 61 6e 24 44  |le%=."<MailMan$D|
00004de0  69 72 3e 2e 21 43 68 6f  69 63 65 73 22 0d 1b 6c  |ir>.!Choices"..l|
00004df0  14 20 e3 20 69 25 3d 30  b8 6d 61 78 56 61 72 73  |. . i%=0.maxVars|
00004e00  25 0d 1b 76 60 20 20 6c  65 6e 67 74 68 25 3d a4  |%..v`  length%=.|
00004e10  72 65 61 64 56 61 72 28  69 25 2c 62 75 66 66 65  |readVar(i%,buffe|
00004e20  72 25 2c 32 35 36 29 3a  f2 66 72 6f 6d 43 74 72  |r%,256):.fromCtr|
00004e30  6c 28 62 75 66 66 65 72  25 2c 20 63 68 6f 69 63  |l(buffer%, choic|
00004e40  65 25 28 69 25 29 29 3a  76 61 6c 75 65 24 3d a4  |e%(i%)):value$=.|
00004e50  72 74 6f 7a 28 63 68 6f  69 63 65 25 28 69 25 29  |rtoz(choice%(i%)|
00004e60  29 0d 1b 80 35 20 20 e7  20 76 61 6c 75 65 24 20  |)...5  . value$ |
00004e70  3c 3e 20 22 22 20 8c 20  d5 23 66 69 6c 65 25 2c  |<> "" . .#file%,|
00004e80  69 25 2b 97 22 30 22 3a  d5 23 66 69 6c 65 25 2c  |i%+."0":.#file%,|
00004e90  76 61 6c 75 65 24 0d 1b  8a 06 20 ed 0d 1b 94 29  |value$.... ....)|
00004ea0  20 e7 20 62 6f 6e 67 20  8c 20 d5 23 66 69 6c 65  | . bong . .#file|
00004eb0  25 2c 97 22 39 22 3a d5  23 66 69 6c 65 25 2c 22  |%,."9":.#file%,"|
00004ec0  42 6f 6e 67 22 0d 1b 9e  0c 20 d9 23 66 69 6c 65  |Bong".... .#file|
00004ed0  25 0d 1b a8 2b 20 ff 22  53 65 74 74 79 70 65 20  |%...+ ."Settype |
00004ee0  3c 4d 61 69 6c 4d 61 6e  24 44 69 72 3e 2e 21 43  |<MailMan$Dir>.!C|
00004ef0  68 6f 69 63 65 73 20 44  61 74 61 22 0d 1b b2 05  |hoices Data"....|
00004f00  e1 0d 1b bc 04 0d 1b c6  45 dd f2 66 72 6f 6d 43  |........E..fromC|
00004f10  74 72 6c 28 66 72 6f 6d  25 2c 20 74 6f 25 29 20  |trl(from%, to%) |
00004f20  3a f4 20 63 6f 6e 74 72  6f 6c 20 63 6f 64 65 73  |:. control codes|
00004f30  20 73 74 72 69 70 70 65  64 2c 20 65 78 63 65 70  | stripped, excep|
00004f40  74 20 31 33 20 3d 3e 20  7c 4d 0d 1b d0 18 20 ea  |t 13 => |M.... .|
00004f50  20 66 25 2c 74 25 3a 66  25 3d 2d 31 3a 74 25 3d  | f%,t%:f%=-1:t%=|
00004f60  2d 31 0d 1b da 4e 20 20  f5 3a 66 25 2b 3d 31 3a  |-1...N  .:f%+=1:|
00004f70  74 25 2b 3d 31 3a e7 66  72 6f 6d 25 3f 66 25 3d  |t%+=1:.from%?f%=|
00004f80  31 33 8c 74 6f 25 3f 74  25 3d 97 22 7c 22 3a 74  |13.to%?t%=."|":t|
00004f90  25 2b 3d 31 3a 74 6f 25  3f 74 25 3d 97 22 4d 22  |%+=1:to%?t%=."M"|
00004fa0  8b 74 6f 25 3f 74 25 3d  66 72 6f 6d 25 3f 66 25  |.to%?t%=from%?f%|
00004fb0  0d 1b e4 47 20 20 20 20  e7 20 74 6f 25 3f 74 25  |...G    . to%?t%|
00004fc0  3c 33 32 20 8c 20 74 25  2d 3d 31 20 3a 20 f4 20  |<32 . t%-=1 : . |
00004fd0  73 74 72 69 70 20 63 6f  6e 74 72 6f 6c 20 63 6f  |strip control co|
00004fe0  64 65 73 20 28 74 25 20  69 67 6e 6f 72 65 64 20  |des (t% ignored |
00004ff0  61 74 20 65 6e 64 29 0d  1b ee 11 20 20 fd 66 72  |at end)....  .fr|
00005000  6f 6d 25 3f 66 25 3d 30  0d 1b f8 05 e1 0d 1c 02  |om%?f%=0........|
00005010  04 0d 1c 0c 13 dd f2 66  69 6c 6c 49 6e 43 68 6f  |.......fillInCho|
00005020  69 63 65 73 0d 1c 16 12  20 ea 20 6c 65 6e 67 74  |ices.... . lengt|
00005030  68 25 2c 20 69 25 0d 1c  20 14 20 e3 20 69 25 3d  |h%, i%.. . . i%=|
00005040  30 b8 6d 61 78 56 61 72  73 25 0d 1c 2a 46 20 20  |0.maxVars%..*F  |
00005050  6c 65 6e 67 74 68 25 3d  a4 72 65 61 64 56 61 72  |length%=.readVar|
00005060  28 69 25 2c 62 75 66 66  65 72 25 2c 32 35 36 29  |(i%,buffer%,256)|
00005070  3a f2 66 72 6f 6d 43 74  72 6c 28 62 75 66 66 65  |:.fromCtrl(buffe|
00005080  72 25 2c 20 63 68 6f 69  63 65 25 28 69 25 29 29  |r%, choice%(i%))|
00005090  0d 1c 34 06 20 ed 0d 1c  3e 05 e1 0d 1c 48 04 0d  |..4. ...>....H..|
000050a0  1c 52 13 dd f2 73 65 74  4d 61 69 6c 53 6f 75 72  |.R...setMailSour|
000050b0  63 65 0d 1c 5c 26 20 43  25 3d a4 72 65 61 64 56  |ce..\& C%=.readV|
000050c0  61 72 28 73 6f 75 72 63  65 2c 20 62 75 66 66 65  |ar(source, buffe|
000050d0  72 25 2c 20 32 35 36 29  0d 1c 66 57 20 e7 20 43  |r%, 256)..fW . C|
000050e0  25 3d 30 20 8c 20 6d 6e  61 6d 65 24 3d 22 6e 65  |%=0 . mname$="ne|
000050f0  74 3a 26 2e 6d 61 69 6c  2e 49 6e 74 72 61 79 22  |t:&.mail.Intray"|
00005100  3a f2 73 65 74 56 61 72  28 73 6f 75 72 63 65 2c  |:.setVar(source,|
00005110  6d 6e 61 6d 65 24 29 20  8b 20 6d 6e 61 6d 65 24  |mname$) . mname$|
00005120  3d a4 72 74 6f 7a 28 62  75 66 66 65 72 25 29 0d  |=.rtoz(buffer%).|
00005130  1c 70 3e 20 43 25 3d a7  6d 6e 61 6d 65 24 2c 22  |.p> C%=.mname$,"|
00005140  3a 22 29 3a e7 c1 6d 6e  61 6d 65 24 2c 43 25 2b  |:"):..mname$,C%+|
00005150  31 2c 31 29 3d 22 3a 22  20 43 25 3d a7 6d 6e 61  |1,1)=":" C%=.mna|
00005160  6d 65 24 2c 22 2e 22 2c  43 25 2b 31 29 0d 1c 7a  |me$,".",C%+1)..z|
00005170  17 20 66 6e 61 6d 65 24  3d c0 6d 6e 61 6d 65 24  |. fname$=.mname$|
00005180  2c 43 25 29 0d 1c 84 1a  20 43 25 3d a7 6d 6e 61  |,C%).... C%=.mna|
00005190  6d 65 24 2c 22 2e 49 6e  74 72 61 79 22 29 0d 1c  |me$,".Intray")..|
000051a0  8e 3e 20 e7 20 43 25 3d  30 20 8c 20 6e 66 73 6e  |.> . C%=0 . nfsn|
000051b0  61 6d 65 24 3d 66 6e 61  6d 65 24 2b 22 24 2e 4d  |ame$=fname$+"$.M|
000051c0  61 69 6c 2e 22 20 8b 20  6e 66 73 6e 61 6d 65 24  |ail." . nfsname$|
000051d0  3d c0 6d 6e 61 6d 65 24  2c 43 25 29 0d 1c 98 23  |=.mname$,C%)...#|
000051e0  20 6d 61 69 6c 67 75 61  72 64 24 3d 6e 66 73 6e  | mailguard$=nfsn|
000051f0  61 6d 65 24 2b 22 4d 5f  41 43 54 49 56 45 22 0d  |ame$+"M_ACTIVE".|
00005200  1c a2 1d 20 6d 61 69 6c  74 24 3d 6e 66 73 6e 61  |... mailt$=nfsna|
00005210  6d 65 24 2b 22 4d 5f 43  54 4d 50 22 0d 1c ac 0f  |me$+"M_CTMP"....|
00005220  20 6e 66 73 66 6c 61 67  25 3d 30 0d 1c b6 16 20  | nfsflag%=0.... |
00005230  43 25 3d a7 66 6e 61 6d  65 24 2c 22 6e 66 73 22  |C%=.fname$,"nfs"|
00005240  29 0d 1c c0 0d 20 e7 20  43 25 3d 31 20 8c 0d 1c  |).... . C%=1 ...|
00005250  ca 10 20 20 6e 66 73 66  6c 61 67 25 3d 31 0d 1c  |..  nfsflag%=1..|
00005260  d4 1e 20 20 c8 99 20 73  5f 66 69 6c 65 25 2c 35  |..  .. s_file%,5|
00005270  2c 6d 61 69 6c 74 24 20  b8 20 72 30 0d 1c de 24  |,mailt$ . r0...$|
00005280  20 20 e7 20 72 30 3c 3e  30 20 8c 20 c8 99 20 73  |  . r0<>0 . .. s|
00005290  5f 78 66 69 6c 65 25 2c  36 2c 6d 61 69 6c 74 24  |_xfile%,6,mailt$|
000052a0  0d 1c e8 06 20 cd 0d 1c  f2 12 20 f2 63 68 65 63  |.... ..... .chec|
000052b0  6b 5f 61 63 63 65 73 73  0d 1c fc 05 e1 0d 1d 06  |k_access........|
000052c0  04 0d 1d 10 04 0d 1d 1a  13 dd 20 f2 63 68 65 63  |.......... .chec|
000052d0  6b 5f 61 63 63 65 73 73  0d 1d 24 3e 20 f4 20 46  |k_access..$> . F|
000052e0  69 78 20 4d 4d 2d 30 30  30 31 20 2d 20 63 68 65  |ix MM-0001 - che|
000052f0  63 6b 20 66 6f 72 20 70  75 62 6c 69 63 20 77 72  |ck for public wr|
00005300  69 74 65 20 61 63 63 65  73 73 20 6f 6e 20 6d 61  |ite access on ma|
00005310  69 6c 20 62 6f 78 0d 1d  2e 04 0d 1d 38 34 20 c8  |il box......84 .|
00005320  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 20 35 2c  |. "XOS_File", 5,|
00005330  20 6d 6e 61 6d 65 24 20  b8 20 74 79 70 65 25 2c  | mname$ . type%,|
00005340  2c 2c 2c 2c 61 74 74 72  25 20 3b 20 66 25 0d 1d  |,,,,attr% ; f%..|
00005350  42 04 0d 1d 4c 11 20 e7  20 28 66 25 20 80 20 31  |B...L. . (f% . 1|
00005360  29 20 8c 0d 1d 56 41 20  20 20 20 20 c8 99 20 22  |) ...VA     .. "|
00005370  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00005380  22 2c 20 74 79 70 65 25  2c 20 31 2c 20 a4 67 65  |", type%, 1, .ge|
00005390  74 5f 6d 65 73 73 61 67  65 20 28 22 4d 61 69 6c  |t_message ("Mail|
000053a0  30 30 22 29 0d 1d 60 0a  20 20 20 20 20 e1 0d 1d  |00")..`.     ...|
000053b0  6a 06 20 cd 0d 1d 74 04  0d 1d 7e 14 20 e7 20 28  |j. ...t...~. . (|
000053c0  74 79 70 65 25 20 3d 20  30 29 20 8c 0d 1d 88 21  |type% = 0) ....!|
000053d0  20 20 20 20 20 f2 72 65  70 6f 72 74 20 28 32 30  |     .report (20|
000053e0  30 37 2c 20 22 4d 61 69  6c 45 4c 22 29 0d 1d 92  |07, "MailEL")...|
000053f0  06 20 cc 0d 1d 9c 16 20  20 e7 20 28 74 79 70 65  |. .....  . (type|
00005400  25 20 3c 3e 20 31 29 20  8c 0d 1d a6 22 20 20 20  |% <> 1) ...."   |
00005410  20 20 20 f2 72 65 70 6f  72 74 20 28 32 30 30 35  |   .report (2005|
00005420  2c 20 22 4d 61 69 6c 45  4b 22 29 0d 1d b0 07 20  |, "MailEK").... |
00005430  20 cc 0d 1d ba 22 20 20  20 e7 20 28 28 61 74 74  | ...."   . ((att|
00005440  72 25 20 80 20 25 31 30  30 30 30 30 29 20 3d 20  |r% . %100000) = |
00005450  30 29 20 8c 0d 1d c4 22  20 20 20 20 20 20 f2 72  |0) ...."      .r|
00005460  65 70 6f 72 74 20 28 32  30 30 36 2c 20 22 4d 61  |eport (2006, "Ma|
00005470  69 6c 45 4a 22 29 0d 1d  ce 08 20 20 20 cd 0d 1d  |ilEJ")....   ...|
00005480  d8 07 20 20 cd 0d 1d e2  06 20 cd 0d 1d ec 05 e1  |..  ..... ......|
00005490  0d 1d f6 04 0d 1e 00 15  dd f2 63 68 65 63 6b 4d  |..........checkM|
000054a0  61 69 6c 53 6f 75 72 63  65 0d 1e 0a 1a 20 ea 20  |ailSource.... . |
000054b0  66 6c 61 67 73 25 2c 20  65 78 69 73 74 73 25 3a  |flags%, exists%:|
000054c0  ea 20 85 0d 1e 14 2d 20  ee 85 20 ea 20 69 6e 74  |. ....- .. . int|
000054d0  65 72 6e 61 6c 25 3d a3  3a f2 65 72 72 6f 72 62  |ernal%=.:.errorb|
000054e0  6f 78 3a 69 6e 74 65 72  6e 61 6c 25 3d b9 3a e1  |ox:internal%=.:.|
000054f0  0d 1e 1e 22 20 c8 99 20  73 5f 66 69 6c 65 25 2c  |..." .. s_file%,|
00005500  35 2c 6d 6e 61 6d 65 24  20 b8 20 65 78 69 73 74  |5,mname$ . exist|
00005510  73 25 0d 1e 28 29 20 e7  20 65 78 69 73 74 73 25  |s%..() . exists%|
00005520  3d 30 20 8c 20 f2 72 65  70 6f 72 74 28 32 30 30  |=0 . .report(200|
00005530  34 2c 22 4d 61 69 6c 47  32 22 29 0d 1e 32 05 e1  |4,"MailG2")..2..|
00005540  0d 1e 3c 04 0d 1e 46 17  dd a4 63 72 65 61 74 65  |..<...F...create|
00005550  54 72 65 65 28 6e 61 6d  65 24 29 0d 1e 50 47 20  |Tree(name$)..PG |
00005560  f4 20 52 65 63 75 72 73  69 76 65 6c 79 20 73 74  |. Recursively st|
00005570  72 69 70 20 6c 65 61 66  20 6f 66 66 2c 20 74 65  |rip leaf off, te|
00005580  73 74 20 66 6f 72 20 65  78 69 73 74 65 6e 63 65  |st for existence|
00005590  20 61 6e 64 20 74 72 79  20 74 6f 20 63 72 65 61  | and try to crea|
000055a0  74 65 0d 1e 5a 2b 20 ea  20 69 25 2c 20 72 6f 6f  |te..Z+ . i%, roo|
000055b0  74 24 2c 20 65 78 69 73  74 73 25 2c 20 66 6c 61  |t$, exists%, fla|
000055c0  67 73 25 2c 20 6d 69 64  24 3a ea 20 85 0d 1e 64  |gs%, mid$:. ...d|
000055d0  16 20 ee 85 20 ea 20 f2  65 72 72 6f 72 62 6f 78  |. .. . .errorbox|
000055e0  3a 3d a3 0d 1e 6e 19 20  e3 20 69 25 3d a9 6e 61  |:=...n. . i%=.na|
000055f0  6d 65 24 20 b8 20 31 20  88 20 2d 31 0d 1e 78 17  |me$ . 1 . -1..x.|
00005600  20 20 6d 69 64 24 3d c1  6e 61 6d 65 24 2c 69 25  |  mid$=.name$,i%|
00005610  2c 31 29 0d 1e 82 12 20  20 e7 20 6d 69 64 24 3d  |,1)....  . mid$=|
00005620  22 2e 22 20 8c 0d 1e 8c  19 20 20 20 72 6f 6f 74  |"." .....   root|
00005630  24 3d c0 6e 61 6d 65 24  2c 69 25 2d 31 29 0d 1e  |$=.name$,i%-1)..|
00005640  96 31 20 20 20 c8 99 73  5f 66 69 6c 65 25 2c 35  |.1   ..s_file%,5|
00005650  2c 72 6f 6f 74 24 20 b8  20 65 78 69 73 74 73 25  |,root$ . exists%|
00005660  3a e7 20 65 78 69 73 74  73 25 20 8c 20 3d b9 0d  |:. exists% . =..|
00005670  1e a0 53 20 20 20 c8 99  73 5f 63 6c 69 25 2c 22  |..S   ..s_cli%,"|
00005680  63 64 69 72 20 22 2b 72  6f 6f 74 24 20 b8 20 3b  |cdir "+root$ . ;|
00005690  66 6c 61 67 73 25 3a e7  20 28 66 6c 61 67 73 25  |flags%:. (flags%|
000056a0  20 80 20 31 29 3d 31 20  8c 20 3d a4 63 72 65 61  | . 1)=1 . =.crea|
000056b0  74 65 54 72 65 65 28 72  6f 6f 74 24 29 20 8b 20  |teTree(root$) . |
000056c0  3d b9 0d 1e aa 07 20 20  cc 0d 1e b4 2c 20 20 20  |=.....  ....,   |
000056d0  e7 20 6d 69 64 24 3d 22  26 22 20 84 20 6d 69 64  |. mid$="&" . mid|
000056e0  24 3d 22 24 22 20 84 20  6d 69 64 24 3d 22 3a 22  |$="$" . mid$=":"|
000056f0  20 8c 20 3d a3 0d 1e be  07 20 20 cd 0d 1e c8 06  | . =.....  .....|
00005700  20 ed 0d 1e d2 06 3d a3  0d 1e dc 04 0d 1e e6 1f  | .....=.........|
00005710  dd f2 73 65 74 46 69 6c  65 28 62 75 66 66 65 72  |..setFile(buffer|
00005720  25 2c 69 25 2c 6c 65 61  66 24 29 0d 1e f0 28 20  |%,i%,leaf$)...( |
00005730  ea 20 6c 65 6e 67 74 68  25 2c 20 6e 61 6d 65 24  |. length%, name$|
00005740  2c 20 74 65 6d 70 25 3a  de 20 74 65 6d 70 25 20  |, temp%:. temp% |
00005750  32 35 36 0d 1e fa 23 20  6c 65 6e 67 74 68 25 3d  |256...# length%=|
00005760  a4 72 65 61 64 56 61 72  28 69 25 2c 74 65 6d 70  |.readVar(i%,temp|
00005770  25 2c 32 35 36 29 0d 1f  04 6a 20 e7 20 6c 65 6e  |%,256)...j . len|
00005780  67 74 68 25 3d 30 20 8c  20 6e 61 6d 65 24 3d a4  |gth%=0 . name$=.|
00005790  72 74 6f 7a 28 62 75 66  66 65 72 25 29 2b 6c 65  |rtoz(buffer%)+le|
000057a0  61 66 24 2b bd 30 3a f2  73 65 74 56 61 72 28 69  |af$+.0:.setVar(i|
000057b0  25 2c 6e 61 6d 65 24 29  3a 24 63 68 6f 69 63 65  |%,name$):$choice|
000057c0  25 28 69 25 29 3d 6e 61  6d 65 24 3a 63 68 6f 69  |%(i%)=name$:choi|
000057d0  63 65 25 28 69 25 29 3f  a9 6e 61 6d 65 24 3d 30  |ce%(i%)?.name$=0|
000057e0  0d 1f 0e 05 e1 0d 1f 18  04 0d 1f 22 0f dd f2 6e  |..........."...n|
000057f0  6f 74 65 53 63 72 61 70  0d 1f 2c 4c 20 c8 99 73  |oteScrap..,L ..s|
00005800  5f 72 65 61 64 76 61 72  25 2c 22 4d 61 69 6c 24  |_readvar%,"Mail$|
00005810  53 63 72 61 70 22 2c 62  75 66 66 65 72 25 2c 32  |Scrap",buffer%,2|
00005820  35 36 2c 30 2c 33 20 b8  20 2c 2c 73 63 72 61 70  |56,0,3 . ,,scrap|
00005830  43 25 3a 62 75 66 66 65  72 25 3f 73 63 72 61 70  |C%:buffer%?scrap|
00005840  43 25 3d 30 0d 1f 36 38  20 e7 20 73 63 72 61 70  |C%=0..68 . scrap|
00005850  43 25 3d 30 20 8c 20 73  63 72 61 70 43 25 3d a4  |C%=0 . scrapC%=.|
00005860  72 65 61 64 56 61 72 28  63 75 72 72 65 6e 74 2c  |readVar(current,|
00005870  62 75 66 66 65 72 25 2c  32 35 36 29 0d 1f 40 34  |buffer%,256)..@4|
00005880  20 e7 20 73 63 72 61 70  43 25 3d 30 20 8c 20 73  | . scrapC%=0 . s|
00005890  63 72 61 70 24 3d 22 22  20 8b 20 73 63 72 61 70  |crap$="" . scrap|
000058a0  24 3d a4 72 74 6f 7a 28  62 75 66 66 65 72 25 29  |$=.rtoz(buffer%)|
000058b0  0d 1f 4a 05 e1 0d 1f 54  04 0d 1f 5e 11 dd f2 72  |..J....T...^...r|
000058c0  65 61 64 43 68 6f 69 63  65 73 0d 1f 68 23 20 ea  |eadChoices..h# .|
000058d0  20 69 25 2c 66 69 6c 65  25 2c 76 61 72 6e 61 6d  | i%,file%,varnam|
000058e0  65 24 2c 76 61 6c 75 65  24 3a ea 20 85 0d 1f 72  |e$,value$:. ...r|
000058f0  35 20 ee 85 20 ea 20 69  6e 74 65 72 6e 61 6c 25  |5 .. . internal%|
00005900  3d a3 3a f2 65 72 72 6f  72 62 6f 78 3a 69 6e 74  |=.:.errorbox:int|
00005910  65 72 6e 61 6c 25 3d b9  3a d9 23 66 69 6c 65 25  |ernal%=.:.#file%|
00005920  3a e1 0d 1f 7c 2f 20 66  69 6c 65 25 3d 8e 22 3c  |:...|/ file%=."<|
00005930  4d 61 69 6c 4d 61 6e 24  44 69 72 3e 2e 21 43 68  |MailMan$Dir>.!Ch|
00005940  6f 69 63 65 73 22 3a e7  66 69 6c 65 25 3d 30 8c  |oices":.file%=0.|
00005950  e1 0d 1f 86 11 20 c8 95  20 ac 20 c5 23 66 69 6c  |..... .. . .#fil|
00005960  65 25 0d 1f 90 24 20 20  69 25 3d 9a 23 66 69 6c  |e%...$  i%=.#fil|
00005970  65 25 2d 97 22 30 22 3a  76 61 6c 75 65 24 3d be  |e%-."0":value$=.|
00005980  23 66 69 6c 65 25 0d 1f  9a 1c 20 20 e7 20 69 25  |#file%....  . i%|
00005990  3e 3d 30 80 69 25 3c 3d  6d 61 78 56 61 72 73 25  |>=0.i%<=maxVars%|
000059a0  20 8c 0d 1f a4 36 20 20  20 43 25 3d a4 72 65 61  | ....6   C%=.rea|
000059b0  64 56 61 72 28 69 25 2c  30 2c 2d 31 29 3a e7 43  |dVar(i%,0,-1):.C|
000059c0  25 3d 30 20 8c 20 f2 73  65 74 56 61 72 28 69 25  |%=0 . .setVar(i%|
000059d0  2c 76 61 6c 75 65 24 29  0d 1f ae 07 20 20 cc 0d  |,value$)....  ..|
000059e0  1f b8 21 20 20 20 e7 69  25 3d 39 80 76 61 6c 75  |..!   .i%=9.valu|
000059f0  65 24 3d 22 42 6f 6e 67  22 8c 62 6f 6e 67 3d b9  |e$="Bong".bong=.|
00005a00  0d 1f c2 07 20 20 cd 0d  1f cc 06 20 ce 0d 1f d6  |....  ..... ....|
00005a10  0c 20 d9 23 66 69 6c 65  25 0d 1f e0 05 e1 0d 1f  |. .#file%.......|
00005a20  ea 04 0d 1f f4 21 dd a4  72 65 61 64 56 61 72 28  |.....!..readVar(|
00005a30  76 61 72 25 2c 20 74 6f  25 2c 20 6d 61 78 42 75  |var%, to%, maxBu|
00005a40  66 25 29 0d 1f fe 0e 20  ea 20 6c 65 6e 67 74 68  |f%).... . length|
00005a50  25 0d 20 08 3d 20 c8 99  73 5f 72 65 61 64 76 61  |%. .= ..s_readva|
00005a60  72 25 2c 76 61 72 6e 61  6d 65 73 24 28 76 61 72  |r%,varnames$(var|
00005a70  25 29 2c 74 6f 25 2c 6d  61 78 42 75 66 25 2c 30  |%),to%,maxBuf%,0|
00005a80  2c 33 20 b8 20 2c 2c 6c  65 6e 67 74 68 25 0d 20  |,3 . ,,length%. |
00005a90  12 22 20 e7 20 6d 61 78  42 75 66 25 3c 3e 2d 31  |." . maxBuf%<>-1|
00005aa0  20 8c 20 74 6f 25 3f 6c  65 6e 67 74 68 25 3d 30  | . to%?length%=0|
00005ab0  0d 20 1c 0c 3d 6c 65 6e  67 74 68 25 0d 20 26 04  |. ..=length%. &.|
00005ac0  0d 20 30 19 dd f2 73 65  74 56 61 72 28 76 61 72  |. 0...setVar(var|
00005ad0  25 2c 20 66 72 6f 6d 24  29 0d 20 3a 0b 20 ea 20  |%, from$). :. . |
00005ae0  6c 65 6e 25 0d 20 44 4b  20 24 62 75 66 66 65 72  |len%. DK $buffer|
00005af0  32 25 3d 66 72 6f 6d 24  3a 62 75 66 66 65 72 32  |2%=from$:buffer2|
00005b00  25 3f 28 a9 66 72 6f 6d  24 29 3d 30 3a 6c 65 6e  |%?(.from$)=0:len|
00005b10  25 3d a4 66 72 6f 6d 43  74 72 6c 32 28 62 75 66  |%=.fromCtrl2(buf|
00005b20  66 65 72 32 25 2c 62 75  66 66 65 72 33 25 29 0d  |fer2%,buffer3%).|
00005b30  20 4e 32 20 c8 99 73 5f  73 65 74 76 61 72 25 2c  | N2 ..s_setvar%,|
00005b40  76 61 72 6e 61 6d 65 73  24 28 76 61 72 25 29 2c  |varnames$(var%),|
00005b50  62 75 66 66 65 72 33 25  2c 6c 65 6e 25 2c 30 2c  |buffer3%,len%,0,|
00005b60  30 0d 20 58 05 e1 0d 20  62 04 0d 20 6c 13 dd f2  |0. X... b.. l...|
00005b70  72 65 64 72 61 77 43 68  6f 69 63 65 73 0d 20 76  |redrawChoices. v|
00005b80  37 20 f2 73 74 61 72 74  43 68 6f 69 63 65 73 3a  |7 .startChoices:|
00005b90  c8 99 73 5f 66 6f 72 63  65 72 65 64 25 2c 68 61  |..s_forcered%,ha|
00005ba0  6e 64 6c 65 25 2c 30 2c  2d 31 30 32 34 2c 31 32  |ndle%,0,-1024,12|
00005bb0  38 30 2c 30 0d 20 80 16  20 c8 99 73 5f 67 65 74  |80,0. .. ..s_get|
00005bc0  63 61 72 65 74 25 2c 2c  71 25 0d 20 8a 35 20 e7  |caret%,,q%. .5 .|
00005bd0  20 21 71 25 3d 63 68 6f  69 63 65 73 77 69 6e 64  | !q%=choiceswind|
00005be0  6f 77 25 20 8c 20 f2 73  65 74 43 61 72 65 74 28  |ow% . .setCaret(|
00005bf0  21 71 25 2c 71 25 21 34  2c 71 25 21 32 30 29 0d  |!q%,q%!4,q%!20).|
00005c00  20 94 05 e1 0d 20 9e 04  0d 20 a8 11 dd f2 70 75  | .... ... ....pu|
00005c10  74 4d 28 68 25 2c 6d 24  29 0d 20 b2 1a d5 23 68  |tM(h%,m$). ...#h|
00005c20  25 2c a4 67 65 74 5f 6d  65 73 73 61 67 65 28 6d  |%,.get_message(m|
00005c30  24 29 3b 0d 20 bc 05 e1  0d 20 c6 12 dd f2 70 75  |$);. .... ....pu|
00005c40  74 4d 31 28 68 25 2c 6d  24 29 0d 20 d0 19 d5 23  |tM1(h%,m$). ...#|
00005c50  68 25 2c a4 67 65 74 5f  6d 65 73 73 61 67 65 28  |h%,.get_message(|
00005c60  6d 24 29 0d 20 da 05 e1  0d 20 e4 04 0d 20 ee 16  |m$). .... ... ..|
00005c70  dd f2 70 75 74 4d 32 28  68 25 2c 6d 24 2c 6d 31  |..putM2(h%,m$,m1|
00005c80  24 29 0d 20 f8 19 f2 70  75 74 4d 28 68 25 2c 6d  |$). ...putM(h%,m|
00005c90  24 29 3a d5 23 68 25 2c  6d 31 24 0d 21 02 05 e1  |$):.#h%,m1$.!...|
00005ca0  0d 21 0c 04 0d 21 16 13  dd f2 69 6e 69 74 5f 6d  |.!...!....init_m|
00005cb0  65 73 73 61 67 65 73 0d  21 20 0b ea 20 43 25 2c  |essages.! .. C%,|
00005cc0  4a 25 0d 21 2a 22 43 25  3d 8e 28 22 3c 4d 61 69  |J%.!*"C%=.("<Mai|
00005cd0  6c 4d 61 6e 24 44 69 72  3e 2e 4d 65 73 73 61 67  |lMan$Dir>.Messag|
00005ce0  65 73 22 29 0d 21 34 2c  e7 43 25 3d 30 20 85 20  |es").!4,.C%=0 . |
00005cf0  32 30 31 31 2c 22 43 61  6e 6e 6f 74 20 66 69 6e  |2011,"Cannot fin|
00005d00  64 20 6d 65 73 73 61 67  65 73 20 66 69 6c 65 22  |d messages file"|
00005d10  0d 21 3e 14 de 20 6d 65  73 73 61 67 65 73 25 20  |.!>.. messages% |
00005d20  a2 23 43 25 0d 21 48 10  4a 25 3d 6d 65 73 73 61  |.#C%.!H.J%=messa|
00005d30  67 65 73 25 0d 21 52 0c  c8 95 20 ac c5 23 43 25  |ges%.!R... ..#C%|
00005d40  0d 21 5c 0d 20 24 4a 25  3d be 23 43 25 0d 21 66  |.!\. $J%=.#C%.!f|
00005d50  11 20 4a 25 2b 3d a9 28  24 4a 25 29 2b 31 0d 21  |. J%+=.($J%)+1.!|
00005d60  70 05 ce 0d 21 7a 08 d9  23 43 25 0d 21 84 15 65  |p...!z..#C%.!..e|
00005d70  6e 64 6f 66 6d 65 73 73  61 67 65 73 25 3d 4a 25  |ndofmessages%=J%|
00005d80  0d 21 8e 05 e1 0d 21 98  04 0d 21 a2 15 dd a4 67  |.!....!...!....g|
00005d90  65 74 5f 6d 65 73 73 61  67 65 28 54 24 29 0d 21  |et_message(T$).!|
00005da0  ac 0e ea 20 4a 25 2c 43  24 2c 49 25 0d 21 b6 10  |... J%,C$,I%.!..|
00005db0  4a 25 3d 6d 65 73 73 61  67 65 73 25 0d 21 c0 18  |J%=messages%.!..|
00005dc0  c8 95 20 4a 25 3c 65 6e  64 6f 66 6d 65 73 73 61  |.. J%<endofmessa|
00005dd0  67 65 73 25 0d 21 ca 0b  20 43 24 3d 24 4a 25 0d  |ges%.!.. C$=$J%.|
00005de0  21 d4 11 20 4a 25 2b 3d  a9 28 24 4a 25 29 2b 31  |!.. J%+=.($J%)+1|
00005df0  0d 21 de 13 20 e7 c0 43  24 2c 31 29 3c 3e 22 23  |.!.. ..C$,1)<>"#|
00005e00  22 20 8c 0d 21 e8 11 20  20 49 25 3d a7 43 24 2c  |" ..!..  I%=.C$,|
00005e10  22 3a 22 29 0d 21 f2 0e  20 20 e7 49 25 3c 3e 30  |":").!..  .I%<>0|
00005e20  20 8c 0d 21 fc 20 20 20  20 e7 c0 43 24 2c 49 25  | ..!.    ..C$,I%|
00005e30  2d 31 29 3d 54 24 20 3a  3d c1 43 24 2c 49 25 2b  |-1)=T$ :=.C$,I%+|
00005e40  31 29 0d 22 06 07 20 20  cd 0d 22 10 06 20 cd 0d  |1)."..  ..".. ..|
00005e50  22 1a 05 ce 0d 22 24 20  85 20 32 30 31 30 2c 22  |"...."$ . 2010,"|
00005e60  43 61 6e 6e 6f 74 20 66  69 6e 64 20 74 61 67 20  |Cannot find tag |
00005e70  22 2b 54 24 0d 22 2e 07  3d 22 22 0d 22 38 04 0d  |"+T$."..=""."8..|
00005e80  22 42 19 dd 20 f2 64 65  73 6b 73 61 76 65 28 6d  |"B.. .desksave(m|
00005e90  65 73 73 61 67 65 25 29  0d 22 4c 14 ea 20 6d 79  |essage%)."L.. my|
00005ea0  72 65 66 25 2c 73 65 6e  64 65 72 25 0d 22 56 21  |ref%,sender%."V!|
00005eb0  e7 20 ac 20 a4 64 65 73  6b 77 72 69 74 65 28 6d  |. . .deskwrite(m|
00005ec0  65 73 73 61 67 65 25 21  32 30 29 20 8c 0d 22 60  |essage%!20) .."`|
00005ed0  18 20 20 73 65 6e 64 65  72 25 3d 6d 65 73 73 61  |.  sender%=messa|
00005ee0  67 65 25 21 34 0d 22 6a  17 20 20 6d 79 72 65 66  |ge%!4."j.  myref|
00005ef0  25 3d 6d 65 73 73 61 67  65 25 21 38 0d 22 74 18  |%=message%!8."t.|
00005f00  20 20 6d 65 73 73 61 67  65 25 21 31 32 3d 6d 79  |  message%!12=my|
00005f10  72 65 66 25 0d 22 7e 24  20 20 c8 99 73 5f 73 65  |ref%."~$  ..s_se|
00005f20  6e 64 6d 25 2c 31 39 2c  6d 65 73 73 61 67 65 25  |ndm%,19,message%|
00005f30  2c 73 65 6e 64 65 72 25  0d 22 88 10 20 20 f2 72  |,sender%."..  .r|
00005f40  65 70 28 9f 2c f6 24 29  0d 22 92 05 cd 0d 22 9c  |ep(.,.$)."....".|
00005f50  05 e1 0d 22 a6 04 0d 22  b0 14 dd 20 a4 64 65 73  |..."..."... .des|
00005f60  6b 77 72 69 74 65 28 48  25 29 0d 22 ba 07 ea 20  |kwrite(H%)."... |
00005f70  85 0d 22 c4 0d ee 20 85  20 ea 20 3d 20 a3 0d 22  |.."... . . = .."|
00005f80  ce 1a d5 23 48 25 2c 22  52 75 6e 20 22 2b 24 62  |...#H%,"Run "+$b|
00005f90  6f 6f 74 70 61 74 68 25  0d 22 d8 07 3d 20 b9 0d  |ootpath%."..= ..|
00005fa0  22 e2 04 0d 22 ec 3d dc  20 22 4d 61 69 6c 24 43  |"...".=. "Mail$C|
00005fb0  75 72 72 65 6e 74 22 2c  22 4d 61 69 6c 24 4c 6f  |urrent","Mail$Lo|
00005fc0  67 46 69 6c 65 22 2c 22  4d 61 69 6c 24 4e 61 6d  |gFile","Mail$Nam|
00005fd0  65 22 2c 22 4d 61 69 6c  24 53 6f 75 72 63 65 22  |e","Mail$Source"|
00005fe0  0d ff                                             |..|
00005fe2