Home » Personal collection » Acorn ADFS disks » Archimedes » RiscOs_Apps_2.ADF » !MailMan/!RunImage

!MailMan/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Archimedes » RiscOs_Apps_2.ADF
Filename: !MailMan/!RunImage
Read OK:
File size: 5109 bytes
Load address: FFFFFB41
Exec address: 59032CF8
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM > !RunImage
   20DIM taskid%4:$taskid%="TASK"
   30SYS "Wimp_Initialise",200,!taskid%,"Mail Man" TO version%
   40`wbcol=&0:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
   50PROCvars
   60 
   70maxbuf%=&200:DIM buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
   80SYS "OS_FSControl",13,"net"+CHR$0,1 TO ,,NetOK%
   90IF NetOK%=0 THEN PROCreport(2006, "You need network hardware and the network filing system in order to use the mailman."):PROCfinish:END
  100 
  110DIM q% &240,icons% &100
  120DIM menudata% &200
  130maxVars%=3:DIM choice%(maxVars%):current=0:logfile=1:name=2:source=3
  140DIM varnames$(maxVars%):FOR v%=0TOmaxVars%:READvarnames$(v%):NEXT:scrap$=""
  150 
  160DIM iconInfo% 40:Wimp_GetIconInfo=&400ce
  170internal%=TRUE:ONERROR PROCerrorbox:PROCfinish:END
  180 
  190S%=OPENIN"<MailMan$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
  200DIM sprites% T%
  210!sprites%=T%:sprites%!8=0
  220SYS spop%,&109,sprites%
  230SYS spop%,&10A,sprites%,"<MailMan$Dir>.Sprites"
  240icmail%=FNiconbar
  250 
  260SYS "Wimp_OpenTemplate",,"<MailMan$Dir>.Templates"
  270mailtoSize%=5*100+32+16:infoSize%=200:choicesSize%=1200
  280DIM mailIcons% mailtoSize%, infoIcons% infoSize%, choiceIcons% choicesSize%
  290SYS "Wimp_LoadTemplate",,q%,mailIcons%,mailIcons%+mailtoSize%,-1,"MailTo",0
  300SYS "Wimp_CreateWindow",,q% TO mailto%
  310SYS "Wimp_LoadTemplate",,q%,infoIcons%,infoIcons%+infoSize%,-1,"Info",0
  320SYS "Wimp_CreateWindow",,q% TO infowindow%
  330SYS "Wimp_LoadTemplate",,q%,choiceIcons%,choiceIcons%+choicesSize%,-1,"choices",0
  340SYS "Wimp_CreateWindow",,q% TO choiceswindow%:PROCnoteBuffers
  350SYS "Wimp_CloseTemplate"
  360 
  370DIM optbuff% 100
  380bong=FALSE:mailref%=0:mailmethod%=0:REM 0 none, 1 file, 2,3 scrap
  390ack=FALSE:PROCsetOpt(mailto%,11,ack)
  400dialogueStarted%=FALSE
  410 
  420PROCreadChoices:PROCfillInChoices
  430SYS "XOS_ReadVarVal","MailMan$Dir",buffer%,255,0,3 TO ,,length%:v%=length%-1
  440WHILE v%>=0 AND buffer%?v%<>ASC".":v%-=1:ENDWHILE:v%+=1:buffer%?v%=0
  450PROCsetFile(buffer%,current,"Current"):PROCsetFile(buffer%,logfile,"LogFile")
  460PROCsetMailSource:PROCnoteScrap
  470 
  480ONERROR PROCerrorbox
  490lodel%=500
  500hidel%=6000
  510delay% = hidel%
  520SYS Drag,,-1
  530SYS Time% TO timex%:PROCnudge(FALSE)
  540REPEAT
  550 SYS Poll%,0,q%,timex% TO A%
  560  CASE A% OF
  570  WHEN 0 :IFmailmethod%=3 PROCStartDialogue:mailmethod%=1 ELSE PROCnudge(TRUE)
  580  WHEN 1 :PROCredraw_window(!q%)
  590  WHEN 2 :PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
  600  WHEN 3 :PROCclose_window(!q%)
  610  WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
  620  WHEN 8 :PROCkey(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
  630  WHEN 9 :PROCgetpointer:PROCmenuselect(q%):PROCretainCheck
  640  WHEN 17,18:PROCreceive(q%)
  650  ENDCASE
  660UNTIL FALSE
  670 
  680DEF PROCreceive(q%)
  690PROCnoteScrap
  700CASE q%!16 OF
  710WHEN 0:PROCfinish:END
  720WHEN 3:REM data loaded from filer viewer
  730  IF mailmethod%<2 OR q%!12<>mailref% THEN
  740    IF q%!40=4096 OR q%!40=8192 THEN
  750      PROCreport(2003,"You can only send files, not directories or applications."):ENDPROC
  760    ELSE
  770      filenam$=FNrtoz(q%+44):mailmethod%=1
  780      q%!16=4:SYS "Wimp_SendMessage",17,q%,q%!4
  790      PROCStartDialogue
  800    ENDIF
  810  ELSE
  820    q%!16=4:q%!12=q%!8:SYS "Wimp_SendMessage",17,q%,mailsender%
  830    SYS Time% TO timex%
  840    mailmethod%=3
  850  ENDIF
  860WHEN 1:REM a data save into me.
  870  filenam$="<application data:"+FNrtoz(q%+44)+">"
  880  mailmethod%=2:mailsender%=q%!4:mailref%=q%!8
  890  IF scrap$="" THEN ENDPROC
  900  $(q%+44)=scrap$:q%?(44+scrapC%)=0:!q%=47+scrapC%+1ANDNOT3:q%!16=2:q%!12=mailref%:q%!36=-1
  910  SYS "Wimp_SendMessage",17,q%,mailsender%:mailref%=q%!8
  920WHEN &502:REM help request
  930  q%!12=q%!8:q%!16=&503:help%=q%+20
  940  help%=FNhelp(q%!32,q%!36,help%):?help%=0
  950  !q%=(help%+4-q%)ANDNOT3
  960  SYS "Wimp_SendMessage",17,q%,q%!4
  970WHEN &400C0:REM submenu request: can only apply to choices
  980  PROCstartChoices:SYS "Wimp_CreateSubMenu",,q%!20,q%!24,q%!28
  990ENDCASE
 1000ENDPROC
 1010 
 1020DEFPROCstartChoices
 1030 PROCfillInChoices:newBong=bong:PROCsetOpt(choiceswindow%,6,newBong)
 1040ENDPROC
 1050 
 1060DEF PROCStartDialogue
 1070PROCendDialogue
 1080IF scrap$=""THENPROCreport(2005,"You must set up a current or scrap mail file name before you can send a file from an application."):ENDPROC
 1090fromnam$=FNrtoz(choice%(name))
 1100$mailIcons%=CHR$0
 1110$(mailIcons%+100)=CHR$0
 1120$(mailIcons%+200)=CHR$0
 1130$(mailIcons%+300)=fromnam$+CHR$0
 1140$(mailIcons%+400)=filenam$+CHR$0
 1150PROCgetpointer:PROCpopup(mailto%):dialogueStarted%=TRUE
 1160SYS"Wimp_SetCaretPosition",mailto%,0,0,-1,-1,-1
 1170ENDPROC
 1180 
 1190DEFPROCendDialogue
 1200 IF dialogueStarted% THEN PROCclose_window(mailto%):mailmethod%=0:dialogueStarted%=FALSE
 1210ENDPROC
 1220 
 1230DEF FNrtoz(s%)
 1240LOCAL n$
 1250WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 1260=n$
 1270 
 1280DEF PROCkey(handle%,icon%,xcoff%,ycoff%,careth%,caretindx%,ch%)
 1290IF handle%=mailto% THEN
 1300 IF ch%=13 AND icon%>1 THEN
 1310  PROCmail:IF remove% PROCendDialogue
 1320 ELSE
 1330  PROCdoKey(ch%,mailto%,icon%,4,0)
 1340 ENDIF:ENDPROC
 1350ENDIF
 1360IF handle%=choiceswindow% THEN
 1370 IF ch%=13 AND icon%=5 PROCregisterChoices(TRUE,FALSE):ENDPROC
 1380 PROCdoKey(ch%,choiceswindow%,icon%,5,2)
 1390ENDIF
 1400ENDPROC
 1410 
 1420DEFPROCdoKey(ch%,window%,icon%,maxicon%,minicon%)
 1430 CASE ch% OF
 1440   WHEN 13:
 1450     icon%=icon%+1:IFicon%>maxicon% icon%=minicon%
 1460     PROCsetCaret(window%,icon%,caretindx%)
 1470   WHEN 27: PROCendDialogue
 1480   WHEN &18E:icon%=icon%+1:IFicon%>maxicon% icon%=minicon%
 1490     PROCsetCaret(window%,icon%,caretindx%)
 1500   WHEN &18F:icon%=icon%-1:IFicon%<minicon% icon%=maxicon%
 1510     PROCsetCaret(window%,icon%,caretindx%)
 1520   OTHERWISE SYS "Wimp_ProcessKey",ch%
 1530 ENDCASE
 1540ENDPROC
 1550 
 1560DEFPROCsetCaret(window%,icon%,caretindx%)
 1570 LOCAL length%
 1580 iconInfo%!0 = window%:iconInfo%!4 = icon%
 1590 SYS Wimp_GetIconInfo,,iconInfo%
 1600 length%=FNbuffLength(iconInfo%!28)
 1610 IF caretindx%>length% caretindx%=length%
 1620 SYS"Wimp_SetCaretPosition",window%,icon%,0,-1,-1,caretindx%
 1630ENDPROC
 1640 
 1650DEF PROCmail
 1660remove%=TRUE:PROCregisterChoices(FALSE,FALSE)
 1670toname$=FNrtoz(mailIcons%)
 1680cc$=FNrtoz(mailIcons%+100)
 1690subject$=FNrtoz(mailIcons%+200)
 1700dummy%=FNtoCtrl(mailIcons%+300,buffer%):fromnam$=FNrtoz(buffer%)
 1710filenam$=FNrtoz(mailIcons%+400)
 1720IFLEN(toname$+cc$)<4 VDU7:remove%=FALSE:ENDPROC
 1730f%=0:h%=0:ONERROR LOCAL CLOSE#f%:PROCerrorbox:ENDPROC
 1740IFASCfilenam$=ASC"<"THEN f%=OPENINscrap$ ELSE f%=OPENINfilenam$
 1750IFf%=0 VDU7:remove%=FALSE:ENDPROC
 1760ENDIF
 1770LOCAL ERROR
 1780mail$=fname$+"$.Mail.PostBox"
 1790SYS "OS_File",5,mail$ TO r0
 1800IF r0=2 THEN
 1810  box%=-1:REPEATbox%+=1
 1820  ONERROR LOCAL UNTIL box%>9:RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCreport(2001,"Can't open post box."):ENDPROC
 1830  h%=OPENUP(mail$+"."+RIGHT$(STR$(box%+10000),2))
 1840  IFh%>0 IFEXT#h%<>0 CLOSE#h%:h%=0
 1850  UNTILh%<>0 OR box%>9
 1860  IFh%=0 RESTORE ERROR:CLOSE#f%:PROCreport(2001,"All post boxes full."):ENDPROC
 1870  mail=3
 1880ELSE
 1890  mail$=fname$+"$."+toname$+".Mail.Intray"
 1900  ONERROR LOCAL RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCreport(2002,"Can't open '"+mail$+"' for direct mail."):ENDPROC
 1910  h%=OPENUPmail$
 1920  IFh%=0 THEN CLOSE#f%:PROCreport(2002,"Can't mail (does destination intray exist?)."):ENDPROC
 1930  PTR#h%=EXT#h%
 1940  mail=0
 1950ENDIF
 1960ONERROR LOCAL RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCerrorbox:ENDPROC
 1970IF mail=3 THEN
 1980BPUT#h%,CHR$10+"SonOfEcomail 3"
 1990IFLENtoname$ BPUT#h%,"To: "+toname$
 2000IFLENcc$ BPUT#h%,"CC: "+cc$
 2010ENDIF
 2020IFLENsubject$ BPUT#h%,"Subject: "+subject$
 2030mtime$=TIME$:BPUT#h%,"Date: "+mtime$
 2040BPUT#h%,"From: "+fromnam$
 2050IFack THEN
 2060  a$=fromnam$:A%=INSTR(a$,CHR$13):IFA% a$=LEFT$(a$,A%-1)
 2070  BPUT#h%,"Return-Receipt-To: "+a$
 2080ENDIF
 2090BPUT#h%,""
 2100PROCfcopy(f%,h%)
 2110BPUT#h%,""
 2120CLOSE#h%:h%=0:PTR#f%=0
 2130C%=FNreadVar(logfile,0,-1)
 2140IFC%<0 THEN
 2150  h%=OPENUP"<Mail$LogFile>"
 2160  IFh%=0 h%=OPENOUT"<Mail$LogFile>" ELSE PTR#h%=EXT#h%
 2170  BPUT#h%,STRING$(39,"-+")+"-"
 2180  BPUT#h%,"At "+mtime$+" mail was sent to "+toname$;
 2190  IFLENcc$ BPUT#h%,CHR$10+"and cc'd to "+cc$ ELSE BPUT#h%,10
 2200  IFLENsubject$ BPUT#h%,"About "+subject$
 2210  IFack BPUT#h%,"Acknowledge receipt of subject."
 2220  IFLEFT$(filenam$,1)="<" BPUT#h%,"Text:":PROCfcopy(f%,h%) ELSE BPUT#h%,"From file "+filenam$
 2230  BPUT#h%,CHR$10+STRING$(39,"+-")+"+"
 2240  CLOSE#h%
 2250ENDIF
 2260CLOSE#f%
 2270ENDPROC
 2280 
 2290DEF PROCfcopy(f%,t%)
 2300IFEXT#f%=0 ENDPROC
 2310start%=0:REPEAT
 2320SYSgp%,4,f%,buffer%,&200 TO ,,,r3%
 2330IFr3%<>&200 SYSgp%,2,h%,buffer%,&200-r3%
 2340start%+=&200-r3%
 2350UNTILstart%>=EXT#f%
 2360ENDPROC
 2370 
 2380DEF PROCcheckmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
 2390IF(b%AND2)THEN
 2400  PROCendDialogue
 2410  CASE handle% OF
 2420  WHEN -2: PROCdomenu(101,">Info,Fetch Mail,<Set up,Save choices,Quit","Mail Man")
 2430  ENDCASE
 2440ENDIF
 2450IF(b%AND5)THEN
 2460  CASE handle% OF
 2470  WHEN -2: PROCmenuselgo("Fetch Mail")
 2480  WHEN mailto%: IFicon%=11 ack=NOTack:PROCsetOpt(mailto%,11,ack)
 2490  WHEN choiceswindow%
 2500   CASE icon% OF
 2510    WHEN 0: PROCregisterChoices(TRUE, (b%AND1)=1)
 2520    WHEN 1: IF b%AND1 THEN PROCredrawChoices ELSE SYS CrMenu,,-1
 2530    WHEN 6: newBong=NOTnewBong:PROCsetOpt(choiceswindow%,6,newBong)
 2540   ENDCASE
 2550  ENDCASE
 2560ENDIF
 2570ENDPROC
 2580 
 2590DEF PROCfinish
 2600SYS "Wimp_CloseDown"
 2610ENDPROC
 2620 
 2630DEF PROCdomenu(handle%,menu$,menutitle$)
 2640menuItems% = 0
 2650menuhandle%=handle%
 2660menuptr%=menudata%
 2670i%=0
 2680menuptr%!20=44
 2690$menuptr%=menutitle$
 2700menuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
 2710menuptr%!16=230-24:menuptr%!24=0
 2720menuptr%+=28
 2730REPEAT item$=FNpar(","):PROCmenuitem(item$):menuItems%+=1:UNTIL item$=""
 2740menuptr%!-24=(menuptr%!-24)OR&80
 2750SYS CrMenu,,menudata%,mousex%-64,96+(menuItems%-1)*44
 2760ENDPROC
 2770 
 2780DEF PROCmenuitem(text$) :REM Leading character of > or < has special interpretation
 2790LOCAL left$
 2800IF text$="" ENDPROC
 2810!menuptr%=0
 2820left$ = LEFT$(text$,1):menuptr%!4=-1
 2830IF left$=">" THEN menuptr%!4=infowindow%
 2840IF left$="<" THEN menuptr%!4=choiceswindow%:!menuptr%=8
 2850menuptr%!8=&07000021
 2860IF left$=">" OR left$="<" THEN $(menuptr%+12)=MID$(text$,2) ELSE $(menuptr%+12)=text$
 2870menuptr%+=24
 2880ENDPROC
 2890 
 2900DEF FNpar(sep$)
 2910i1%=i%+1:i%=INSTR(menu$+sep$,sep$,i1%)
 2920=MID$(menu$,i1%,i%-i1%)
 2930 
 2940DEFFNcheckUP(file%)
 2950 LOCAL x%,p%:LOCAL ERROR
 2960 ONERROR LOCAL CLOSE#file%:IFERR=1043 THEN PROCreport(2007, "Mail cannot be fetched because you do not have appropriate access to the mail source file"):=FALSE ELSE PROCerrorbox:=FALSE
 2970 p%=PTR#file%:x%=BGET#file%:PTR#file%=p%
 2980=TRUE
 2990 
 3000DEF PROCmenuselect(menus%)
 3010SYS DcMenu,,menudata%,menus%,STRING$(200," ")TO,,,a$
 3020IF a$="" THEN ENDPROC
 3030DEF PROCmenuselgo(a$) menuhandle%=101
 3040CASE menuhandle% OF
 3050WHEN 101: IF a$="Quit":PROCfinish:END
 3060  IF a$="Fetch Mail" THEN
 3070    A%=0:B%=0:C%=FNreadVar(logfile,0,-1)
 3080    LOCAL ERROR
 3090    ONERROR LOCAL CLOSE#B%:PROCerrorbox:ENDPROC
 3100    IFC%>=0 ERROR 2000,"System variable Mail$LogFile needs to exist in order to Fetch Mail. Mail$Current is a copy of the last fetch."
 3110    C%=FNreadVar(current,0,-1)
 3120    B%=OPENUPmname$:IFB%=0 THENENDPROC ELSEIF NOTFNcheckUP(B%)ENDPROC
 3130    IFEXT#B%=0 CLOSE#B%:spname$="-mailnone":PROCchange:ENDPROC
 3140    IF C%<0 THEN
 3150      C%=OPENOUT"<Mail$Current>"
 3160      A%=OPENUP"<Mail$LogFile>"
 3170      IFA%=0 A%=OPENOUT"<Mail$LogFile>" ELSE PTR#A%=EXT#A%
 3180      ONERROR LOCAL CLOSE#A%:CLOSE#B%:CLOSE#C%:PROCerrorbox:ENDPROC
 3190      REPEAT X$=GET$#B%:BPUT#A%,X$:BPUT#C%,X$:UNTILEOF#B%
 3200      CLOSE#A%:CLOSE#C%:A%=0:C%=0
 3210      ONERROR LOCAL CLOSE#B%:PROCerrorbox:ENDPROC
 3220      EXT#B%=0:CLOSE#B%:B%=0:spname$="-mailnone":PROCchange
 3230      OSCLI"Settype <Mail$Current> Text"
 3240      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
 3250      C%=FNreadVar(current,buffer%+44,&100):!buffer%=47+C%+1ANDNOT3
 3260      SYS "Wimp_SendMessage",18,buffer%,0
 3270    ELSE
 3280      A%=OPENUP"<Mail$LogFile>"
 3290      IFA%=0 A%=OPENOUT"<Mail$LogFile>" ELSE PTR#A%=EXT#A%
 3300      ONERROR LOCAL CLOSE#A%:CLOSE#B%:PROCerrorbox:ENDPROC
 3310      REPEAT BPUT#A%,GET$#B%:UNTILEOF#B%
 3320      CLOSE#A%:A%=0
 3330      ONERROR LOCAL CLOSE#B%:PROCerrorbox:ENDPROC
 3340      EXT#B%=0:CLOSE#B%:B%=0:spname$="-mailnone":PROCchange
 3350      OSCLI"Settype <Mail$LogFile> Text"
 3360      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
 3370      C%=FNreadVar(logfile,buffer%+44,&100):!buffer%=47+C%+1ANDNOT3
 3380      SYS "Wimp_SendMessage",18,buffer%,0
 3390    ENDIF:ENDPROC
 3400  ENDIF
 3410  IF a$="Save choices" THEN PROCsaveChoices
 3420ENDCASE
 3430ENDPROC
 3440 
 3450DEFPROCretainCheck
 3460 IF(b%AND1)THENSYS CrMenu,,menudata%,mousex%-64,96+(menuItems%-1)*44
 3470ENDPROC
 3480 
 3490DEF PROCvars
 3500Wimp    = (1<<18) + (3<<6)
 3510CreateW = Wimp+1
 3520OpenW   = Wimp+5
 3530CloseW  = Wimp+6
 3540RedrawW = Wimp+8
 3550UpdateW = Wimp+9
 3560GetR    = Wimp+10
 3570GetW    = Wimp+11
 3580GetP    = Wimp+15
 3590Drag    = Wimp+16
 3600CrMenu  = Wimp+20
 3610DcMenu  = Wimp+21
 3620SYS "OS_SWINumberFromString",,"XWimp_PollIdle" TO Poll%
 3630SYS "OS_SWINumberFromString",,"OS_ReadMonotonicTime" TO Time%
 3640SYS "OS_SWINumberFromString",,"OS_SpriteOp" TO spop%
 3650SYS "OS_SWINumberFromString",,"OS_GBPB" TO gp%
 3660ENDPROC
 3670 
 3680DEFPROCreport(err%,mess$)
 3690SYS Drag,,-1:!buffer%=err%:$(buffer%+4)=mess$:SYS"Wimp_ReportError",buffer%,1,"Mail Man"
 3700ENDPROC
 3710 
 3720DEF PROCerrorbox :REM Report error, with line number if error < 2000
 3730IF (ERR < 2000) AND internal% THEN PROCreport(ERR,REPORT$+" (internal error code "+STR$ERL+")."+CHR$0) ELSE PROCreport(ERR,REPORT$+CHR$0)
 3740ENDPROC
 3750 
 3760DEF FNiconbar
 3770!icons%=-1:icons%!4=0:icons%!8=0:icons%!12=47:icons%!16=68:icons%!20=&3102
 3780spname$="-mailhole"
 3790DIM icons%!24 12:$(icons%!24)=spname$
 3800icons%!28=sprites%:icons%!32=11
 3810SYS "Wimp_CreateIcon",,icons% TO ic%
 3820=ic%
 3830 
 3840DEF PROCnudge(nodelay%)
 3850LOCAL P%,f0%,f1%,f2%,f3%,f4%,f5%
 3860IF nodelay% THEN
 3870  SYS "NetFS_ReadFSTimeouts" TO f0%,f1%,f2%,f3%,f4%,f5%
 3880  SYS "NetFS_SetFSTimeouts",5,4,5,4,100,20
 3890  SYS "XOS_File",5,mname$ TO r0,,r2,r3,r4,r5 ; P%
 3900  SYS "NetFS_SetFSTimeouts",f0%,f1%,f2%,f3%,f4%,f5%
 3910  IF P% AND 1 THEN
 3920    IF delay%<>lodel% THEN
 3930      delay%=lodel%:count%=6:ENDPROC
 3940    ELSE
 3950      count%-=1:IFcount%=0 delay%=hidel%:spname$="-mailunk":PROCchange
 3960      PROCtick
 3970      ENDPROC
 3980    ENDIF
 3990  ELSE
 4000    delay%=hidel%
 4010  ENDIF
 4020ELSE
 4030  SYS "XOS_File",5,mname$ TO r0,,r2,r3,r4,r5 ; P%
 4040  IF P% AND 1 THEN spname$="-mailunk":PROCchange:PROCtick:ENDPROC
 4050ENDIF
 4060CASE r0 OF
 4070WHEN 1:IF r4 AND spname$<>"-mailfull" AND bong THEN VDU7
 4080IF r4 spname$="-mailfull" ELSE spname$="-mailnone"
 4090OTHERWISE spname$="-mailunk"
 4100ENDCASE
 4110PROCchange
 4120PROCtick
 4130ENDPROC
 4140 
 4150DEF PROCtick
 4160SYS Time% TO timeslip%
 4170WHILEtimeslip%-timex%>=0:timex%+=delay%:ENDWHILE
 4180ENDPROC
 4190 
 4200DEF PROCchange
 4210SYS spop%,&118,sprites%,spname$ TO,,src%
 4220SYS spop%,&118,sprites%,"-mailhole" TO,,dest%
 4230FORz%=44TO!src%-1STEP4:dest%!z%=src%!z%:NEXT
 4240!q%=-1:q%!4=icmail%:q%!8=0:q%!12=0
 4250SYS "Wimp_SetIconState",,q%
 4260ENDPROC
 4270 
 4280DEF PROCpopup(handle%)
 4290PROCgetw(handle%)
 4300xo%=mousex%-(x0%+x1%)/2:yo%=96-y0%
 4310PROCopen_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
 4320ENDPROC
 4330 
 4340DEF PROCreopen(handle%)
 4350PROCgetw(handle%)
 4360PROCopen_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
 4370ENDPROC
 4380 
 4390DEF PROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
 4400IFhandle%=-1THENENDPROC
 4410q%!0=handle%:q%!28=bhandle%
 4420q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
 4430q%!20=scx%:q%!24=scy%
 4440SYS OpenW,,q%
 4450ENDPROC
 4460 
 4470DEF PROCgetw(handle%)
 4480!q%=handle%:SYS GetW,,q%
 4490PROCinfo(q%+4):bhandle%=q%!28:flags%=q%!32
 4500ENDPROC
 4510 
 4520DEF PROCinfo(q%)
 4530x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
 4540bx%=x0%-scx%:by%=y1%-scy%
 4550ENDPROC
 4560 
 4570DEF PROCupdate(handle%,ux0%,uy0%,ux1%,uy1%)
 4580!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
 4590SYS UpdateW,,q% TO more%:PROCinfo(q%+4)
 4600ENDPROC
 4610 
 4620DEF PROCredraw_window(handle%)
 4630IFhandle%=mailto% THEN
 4640!q%=handle%
 4650SYS RedrawW,,q% TO more%
 4660PROCinfo(q%+4)
 4670ENDIF
 4680ENDPROC
 4690 
 4700DEF PROCgetpointer
 4710SYS GetP,,buffer%
 4720mousex%=!buffer%:mousey%=buffer%!4:b%=buffer%!8:handle%=buffer%!12:icon%=buffer%!16:ob%=buffer%!20
 4730ENDPROC
 4740 
 4750DEF PROCclose_window(handle%):!q%=handle%:SYS CloseW,,q%:ENDPROC
 4760 
 4770DEFPROCsetOpt(window%,icon%,state%)
 4780 !optbuff%=window%:optbuff%!4=icon%:SYS "Wimp_GetIconState",,optbuff%
 4790 IFstate% $(optbuff%+28)="opton" ELSE $(optbuff%+28)="optoff"
 4800 !optbuff%=window%:optbuff%!4=icon%:SYS"Wimp_DeleteIcon",,optbuff%
 4810 optbuff%!4=window%:SYS"Wimp_CreateIcon",,optbuff%+4
 4820 !q%=window%:q%!4=icon%:q%!8=0:q%!12=0:SYS "Wimp_SetIconState",,q%
 4830ENDPROC
 4840 
 4850DEFFNhelp(window%,icon%,to%)
 4860$to%=""
 4870CASE window% OF
 4880 WHEN -2
 4890  $to%="This is the MailMan icon.|M"
 4900  IF spname$ = "-mailunk" THEN
 4910   $to% += "The MailMan cannot find the network mailing system at present.|M"
 4920  ELSE
 4930   $to% += "Drag text files to the icon to send them via the electronic mail system.|M"
 4940   IF spname$ = "-mailfull" THEN $to% += "There is mail waiting to be read. Click SELECT on the icon to fetch it."
 4950  ENDIF
 4960 WHEN mailto%:
 4970  $to%="Click SELECT "
 4980  CASE icon% OF
 4990   WHEN 0: $to%+="and type the mail name of the recipient of the mail.|MYou may enter more than one name by separating them with commas."
 5000   WHEN 1: $to%+="and type the mail name of anyone to whom copies of the mail should be sent.|MYou may enter more than one name by separating them with commas."
 5010   WHEN 2: $to%+="and type in the subject of the mail.|MPressing return here sends the mail.|M"
 5020   WHEN 3: $to%+="and type the name to be used for the sender of the mail.|MYou will not usually need to change this."
 5030   WHEN 4: $to%+="and type in the name of the file to send.|MYou will not usually need to change this."
 5040   WHEN 11: $to%+="to set whether an acknowledgement of recipt of the mail is to be sent back.|MThe current setting is for mail "
 5050    IF ack THEN $to%+="to be acknowledged." ELSE $to%+="not to be acknowledged."
 5060   OTHERWISE: $to%=""
 5070  ENDCASE
 5080 WHEN choiceswindow%
 5090  $to%="Click SELECT "
 5100  CASE icon% OF
 5110   WHEN 0: $to%+="to set the indicated choices.|M"
 5120   WHEN 1: $to%+="to leave the choices unchanged.|M"
 5130   WHEN 2: $to%+="and type in the name of the file used to store the current mail message.|M"
 5140   WHEN 3: $to%+="and type in the name of the file used to keep a permanent log of mail messages.|M"
 5150   WHEN 4: $to%+="and type in the name to be used as the sender of mail messages by default.|M"
 5160   WHEN 5: $to%+="and type in the name of the mail intray file on the network.|M"
 5170   WHEN 6: $to%+="to set whether the MailMan will bleep when mail arrives.|MThe current setting is for the MailMan "
 5180    IF newBong THEN $to% += "to bleep.|M" ELSE $to%+="not to bleep."
 5190   OTHERWISE: $to%=""
 5200  ENDCASE
 5210ENDCASE
 5220=to%+LEN($to%)
 5230 
 5240DEFPROCnoteBuffers
 5250 LOCAL icon%
 5260 iconInfo%!0 = choiceswindow%
 5270 FOR icon% = 2 TO 5:iconInfo%!4 = icon%:SYS Wimp_GetIconInfo,,iconInfo%:choice%(icon%-2) = iconInfo%!28:NEXT
 5280ENDPROC
 5290 
 5300DEFFNbuffLength(buffer%)
 5310 LOCAL l%
 5320 FOR l%=0TO255:IFbuffer%?l%=13 OR buffer%?l%=10 OR buffer%?l%=0 THEN=l%
 5330 NEXT
 5340=255
 5350 
 5360DEFFNtoCtrl(from%, to%) :REM |M -> ch.code 13, returns length
 5370 LOCAL f%,t%:f%=0:t%=-1
 5380 REPEAT
 5390 t%+=1:IFfrom%?f%=ASC"|"AND(from%?(f%+1)=ASC"M"ORfrom%?(f%+1)=ASC"m")THENto%?t%=13:f%+=2ELSEto%?t%=from%?f%:f%+=1
 5400 UNTIL to%?t%=0
 5410=t%
 5420 
 5430DEFPROCregisterChoices(check%, keep%)
 5440 LOCAL i%, length%
 5450 FOR i%=0TOmaxVars%
 5460  length%=FNbuffLength(choice%(i%))
 5470  IF length%=0 THEN length%=-1
 5480  SYS "XOS_SetVarVal",varnames$(i%),choice%(i%),length%,0,0
 5490 NEXT
 5500 PROCsetMailSource:IF check% PROCcheckMailSource:bong=newBong
 5510 PROCnoteScrap
 5520 IF NOTkeep% THEN SYS CrMenu,,-1
 5530ENDPROC
 5540 
 5550DEFPROCsaveChoices
 5560 LOCAL i%,file%,value$:LOCAL ERROR:ONERROR LOCAL internal%=FALSE:CLOSE#file%:PROCerrorbox:internal%=TRUE:ENDPROC
 5570 file%=0:file%=OPENOUT"<MailMan$Dir>.!Choices"
 5580 FOR i%=0TOmaxVars%
 5590  length%=FNreadVar(i%,buffer%,256):PROCfromCtrl(buffer%, choice%(i%)):value$=FNrtoz(choice%(i%))
 5600  IF value$ <> "" THEN BPUT#file%,i%+ASC"0":BPUT#file%,value$
 5610 NEXT
 5620 IF bong THEN BPUT#file%,ASC"9":BPUT#file%,"Bong"
 5630 CLOSE#file%
 5640 OSCLI"Settype <MailMan$Dir>.!Choices Data"
 5650ENDPROC
 5660 
 5670DEFPROCfromCtrl(from%, to%) :REM ch.code 13 -> |M
 5680 LOCAL f%,t%:f%=-1:t%=-1
 5690  REPEAT:f%+=1:t%+=1:IFfrom%?f%=13THENto%?t%=ASC"|":t%+=1:to%?t%=ASC"M"ELSEto%?t%=from%?f%
 5700  UNTILfrom%?f%=0
 5710ENDPROC
 5720 
 5730DEFPROCfillInChoices
 5740 LOCAL length%, i%
 5750 FOR i%=0TOmaxVars%
 5760  length%=FNreadVar(i%,buffer%,256):PROCfromCtrl(buffer%, choice%(i%))
 5770 NEXT
 5780ENDPROC
 5790 
 5800DEFPROCsetMailSource
 5810 C%=FNreadVar(source, buffer%, 256)
 5820 IF C%=0 THEN mname$="net:&.mail.intray":PROCsetVar(source,mname$) ELSE mname$=FNrtoz(buffer%)
 5830 C%=INSTR(mname$,":"):IFMID$(mname$,C%+1,1)=":" C%=INSTR(mname$,".")
 5840 fname$=LEFT$(mname$,C%)
 5850ENDPROC
 5860 
 5870DEFPROCcheckMailSource
 5880 LOCAL flags%, exists%:LOCAL ERROR
 5890 ONERROR LOCAL internal%=FALSE:PROCerrorbox:internal%=TRUE:ENDPROC
 5900 SYS "OS_File",5,mname$ TO exists%
 5910 IF exists%=0 THEN
 5920  !buffer%=0:$(buffer%+4)="Mail source '"+mname$+"' does not exist. Do you want to create it?"
 5930  SYS Drag,,-1
 5940  SYS "Wimp_ReportError",buffer%,&13,"Mail Man" TO ,create%
 5950  IF create%<>1 THEN ENDPROC ELSE IF FNcreateTree(mname$) THEN
 5960   SYS "XOS_CLI","create "+mname$ TO ;flags%
 5970   IF (flags% AND 1) = 0 THEN ENDPROC
 5980   OSCLI"SetType "+mname$+" Text"
 5990  ENDIF
 6000  PROCreport(2004,"The mail source could not be created.")
 6010 ENDIF
 6020ENDPROC
 6030 
 6040DEFFNcreateTree(name$)
 6050 REM Recursively strip leaf off, test for existence and try to create
 6060 LOCAL i%, root$, exists%, flags%, mid$:LOCAL ERROR
 6070 ONERROR LOCAL PROCerrorbox:=FALSE
 6080 FOR i%=LENname$ TO 1 STEP -1
 6090  mid$=MID$(name$,i%,1)
 6100  IF mid$="." THEN
 6110   root$=LEFT$(name$,i%-1)
 6120   SYS"OS_File",5,root$ TO exists%:IF exists% THEN =TRUE
 6130   SYS"XOS_CLI","cdir "+root$ TO ;flags%:IF (flags% AND 1)=1 THEN =FNcreateTree(root$) ELSE =TRUE
 6140  ELSE
 6150   IF mid$="&" OR mid$="$" OR mid$=":" THEN =FALSE
 6160  ENDIF
 6170 NEXT
 6180=FALSE
 6190 
 6200DEFPROCsetFile(buffer%,i%,leaf$)
 6210 LOCAL length%, name$, temp%:DIM temp% 256
 6220 length%=FNreadVar(i%,temp%,256)
 6230 IF length%=0 THEN name$=FNrtoz(buffer%)+leaf$+CHR$0:PROCsetVar(i%,name$):$choice%(i%)=name$:choice%(i%)?LENname$=0
 6240ENDPROC
 6250 
 6260DEFPROCnoteScrap
 6270 SYS "XOS_ReadVarVal","Mail$Scrap",buffer%,256,0,3 TO ,,scrapC%:buffer%?scrapC%=0
 6280 IF scrapC%=0 THEN scrapC%=FNreadVar(current,buffer%,256)
 6290 IF scrapC%=0 THEN scrap$="" ELSE scrap$=FNrtoz(buffer%)
 6300ENDPROC
 6310 
 6320DEFPROCreadChoices
 6330 LOCAL i%,file%,varname$,value$:LOCAL ERROR
 6340 ONERROR LOCAL internal%=FALSE:PROCerrorbox:internal%=TRUE:CLOSE#file%:ENDPROC
 6350 file%=OPENIN"<MailMan$Dir>.!Choices":IFfile%=0THENENDPROC
 6360 WHILE NOT EOF#file%
 6370  i%=BGET#file%-ASC"0":value$=GET$#file%
 6380  IF i%>=0ANDi%<=maxVars% THEN
 6390   C%=FNreadVar(i%,0,-1):IFC%=0 THEN PROCsetVar(i%,value$)
 6400  ELSE
 6410   IFi%=9ANDvalue$="Bong"THENbong=TRUE
 6420  ENDIF
 6430 ENDWHILE
 6440 CLOSE#file%
 6450ENDPROC
 6460 
 6470DEFFNreadVar(var%, to%, maxBuf%)
 6480 LOCAL length%
 6490 SYS "XOS_ReadVarVal",varnames$(var%),to%,maxBuf%,0,3 TO ,,length%
 6500 IF maxBuf%<>-1 THEN to%?length%=0
 6510=length%
 6520 
 6530DEFPROCsetVar(var%, from$)
 6540 SYS "XOS_SetVarVal",varnames$(var%),from$,LENfrom$,0,0
 6550ENDPROC
 6560 
 6570DEFPROCredrawChoices
 6580 PROCstartChoices:SYS "Wimp_ForceRedraw",handle%,0,-1024,1280,0
 6590 SYS "Wimp_GetCaretPosition",,q%
 6600 IF !q%=choiceswindow% THEN PROCsetCaret(!q%,q%!4,q%!20)
 6610ENDPROC
 6620 
 6630DATA "Mail$Current","Mail$LogFile","Mail$Name","Mail$Source"

� > !RunImage
� taskid%4:$taskid%="TASK"
;ș "Wimp_Initialise",200,!taskid%,"Mail Man" � version%
(M`wbcol=&0:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
2	�vars
< 
F=maxbuf%=&200:� buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
P.ș "OS_FSControl",13,"net"+�0,1 � ,,NetOK%
Z�� NetOK%=0 � �report(2006, "You need network hardware and the network filing system in order to use the mailman."):�finish:�
d 
n� q% &240,icons% &100
x� menudata% &200
�FmaxVars%=3:� choice%(maxVars%):current=0:logfile=1:name=2:source=3
�D� varnames$(maxVars%):� v%=0�maxVars%:�varnames$(v%):�:scrap$=""
� 
�*� iconInfo% 40:Wimp_GetIconInfo=&400ce
�&internal%=�:� �errorbox:�finish:�
� 
�/S%=�"<MailMan$Dir>.Sprites":T%=�#S%+16:�#S%
�� sprites% T%
�!sprites%=T%:sprites%!8=0
�ș spop%,&109,sprites%
�2ș spop%,&10A,sprites%,"<MailMan$Dir>.Sprites"
�icmail%=�iconbar
� 
5ș "Wimp_OpenTemplate",,"<MailMan$Dir>.Templates"
;mailtoSize%=5*100+32+16:infoSize%=200:choicesSize%=1200
M� mailIcons% mailtoSize%, infoIcons% infoSize%, choiceIcons% choicesSize%
"Nș "Wimp_LoadTemplate",,q%,mailIcons%,mailIcons%+mailtoSize%,-1,"MailTo",0
,(ș "Wimp_CreateWindow",,q% � mailto%
6Jș "Wimp_LoadTemplate",,q%,infoIcons%,infoIcons%+infoSize%,-1,"Info",0
@,ș "Wimp_CreateWindow",,q% � infowindow%
JTș "Wimp_LoadTemplate",,q%,choiceIcons%,choiceIcons%+choicesSize%,-1,"choices",0
T<ș "Wimp_CreateWindow",,q% � choiceswindow%:�noteBuffers
^ș "Wimp_CloseTemplate"
h 
r� optbuff% 100
|?bong=�:mailref%=0:mailmethod%=0:� 0 none, 1 file, 2,3 scrap
�!ack=�:�setOpt(mailto%,11,ack)
�dialogueStarted%=�
� 
��readChoices:�fillInChoices
�Nș "XOS_ReadVarVal","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
� 
�� �errorbox
�lodel%=500
�hidel%=6000
�delay% = hidel%
ș Drag,,-1
ș Time% � timex%:�nudge(�)
�
& ș Poll%,0,q%,timex% � A%
0
  Ȏ A% �
:B  � 0 :�mailmethod%=3 �StartDialogue:mailmethod%=1 � �nudge(�)
D  � 1 :�redraw_window(!q%)
ND  � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
X  � 3 :�close_window(!q%)
b7  � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
l6  � 8 :�key(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
v3  � 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% �
�#    � q%!40=4096 � q%!40=8192 �
�U      �report(2003,"You can only send files, not directories or applications."):�
�	    �
-      filenam$=�rtoz(q%+44):mailmethod%=1
2      q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4
      �StartDialogue
 	    �
*  �
4B    q%!16=4:q%!12=q%!8:ș "Wimp_SendMessage",17,q%,mailsender%
>    ș Time% � timex%
H    mailmethod%=3
R  �
\� 1:� a data save into me.
f4  filenam$="<application data:"+�rtoz(q%+44)+">"
p2  mailmethod%=2:mailsender%=q%!4:mailref%=q%!8
z  � scrap$="" � �
�[  $(q%+44)=scrap$:q%?(44+scrapC%)=0:!q%=47+scrapC%+1��3:q%!16=2:q%!12=mailref%:q%!36=-1
�;  ș "Wimp_SendMessage",17,q%,mailsender%:mailref%=q%!8
�� &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
�&  ș "Wimp_SendMessage",17,q%,q%!4
�9� &400C0:� submenu request: can only apply to choices
�>  �startChoices:ș "Wimp_CreateSubMenu",,q%!20,q%!24,q%!28
��
��
� 
���startChoices
B �fillInChoices:newBong=bong:�setOpt(choiceswindow%,6,newBong)
�
 
$� �StartDialogue
.�endDialogue
8�� scrap$=""��report(2005,"You must set up a current or scrap mail file name before you can send a file from an application."):�
B!fromnam$=�rtoz(choice%(name))
L$mailIcons%=�0
V$(mailIcons%+100)=�0
`$(mailIcons%+200)=�0
j!$(mailIcons%+300)=fromnam$+�0
t!$(mailIcons%+400)=filenam$+�0
~2�getpointer:�popup(mailto%):dialogueStarted%=�
�2ș"Wimp_SetCaretPosition",mailto%,0,0,-1,-1,-1
��
� 
���endDialogue
�Q � dialogueStarted% � �close_window(mailto%):mailmethod%=0:dialogueStarted%=�
��
� 
�� �rtoz(s%)
�� n$
�ȕ?s%:n$+=�?s%:s%+=1:�
�=n$
� 
>� �key(handle%,icon%,xcoff%,ycoff%,careth%,caretindx%,ch%)

� handle%=mailto% �
 � ch%=13 � icon%>1 �
"  �mail:� remove% �endDialogue
( �
2#  �doKey(ch%,mailto%,icon%,4,0)
< �:�
F�
P� handle%=choiceswindow% �
Z/ � ch%=13 � icon%=5 �registerChoices(�,�):�
d) �doKey(ch%,choiceswindow%,icon%,5,2)
n�
x�
� 
�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%
�,     �setCaret(window%,icon%,caretindx%)
�:   � &18F:icon%=icon%-1:�icon%<minicon% icon%=maxicon%
�,     �setCaret(window%,icon%,caretindx%)
�!    ș "Wimp_ProcessKey",ch%
� �
�
 
(��setCaret(window%,icon%,caretindx%)
" � length%
,. iconInfo%!0 = window%:iconInfo%!4 = icon%
6# ș Wimp_GetIconInfo,,iconInfo%
@& length%=�buffLength(iconInfo%!28)
J, � caretindx%>length% caretindx%=length%
T? ș"Wimp_SetCaretPosition",window%,icon%,0,-1,-1,caretindx%
^�
h 
r� �mail
|#remove%=�:�registerChoices(�,�)
�toname$=�rtoz(mailIcons%)
�cc$=�rtoz(mailIcons%+100)
�"subject$=�rtoz(mailIcons%+200)
�Bdummy%=�toCtrl(mailIcons%+300,buffer%):fromnam$=�rtoz(buffer%)
�"filenam$=�rtoz(mailIcons%+400)
�$�(toname$+cc$)<4 �7:remove%=�:�
�#f%=0:h%=0:� � �#f%:�errorbox:�
�.�filenam$=�"<"� f%=�scrap$ � f%=�filenam$
��f%=0 �7:remove%=�:�
��
�� �
�!mail$=fname$+"$.Mail.PostBox"
�ș "OS_File",5,mail$ � r0
� r0=2 �
  box%=-1:�box%+=1
H  � � � box%>9:� �:�#f%:�#h%:�report(2001,"Can't open post box."):�
&'  h%=�(mail$+"."+��(box%+10000),2))
0  �h%>0 �#h%<>0 �#h%:h%=0
:  �h%<>0 � box%>9
D;  �h%=0 � �:�#f%:�report(2001,"All post boxes full."):�
N  mail=3
X�
b.  mail$=fname$+"$."+toname$+".Mail.Intray"
lR  � � � �:�#f%:�#h%:�report(2002,"Can't open '"+mail$+"' for direct mail."):�
v  h%=�mail$
�Q  �h%=0 � �#f%:�report(2002,"Can't mail (does destination intray exist?)."):�
�  �#h%=�#h%
�  mail=0
��
�"� � � �:�#f%:�#h%:�errorbox:�
�� mail=3 �
��#h%,�10+"SonOfEcomail 3"
�!�toname$ �#h%,"To: "+toname$
��cc$ �#h%,"CC: "+cc$
��
�(�subject$ �#h%,"Subject: "+subject$
�"mtime$=�$:�#h%,"Date: "+mtime$
��#h%,"From: "+fromnam$

�ack �
.  a$=fromnam$:A%=�a$,�13):�A% a$=�a$,A%-1)
#  �#h%,"Return-Receipt-To: "+a$
 �
*�#h%,""
4�fcopy(f%,h%)
>�#h%,""
H�#h%:h%=0:�#f%=0
RC%=�readVar(logfile,0,-1)
\�C%<0 �
f  h%=�"<Mail$LogFile>"
p,  �h%=0 h%=�"<Mail$LogFile>" � �#h%=�#h%
z  �#h%,�39,"-+")+"-"
�5  �#h%,"At "+mtime$+" mail was sent to "+toname$;
�1  �cc$ �#h%,�10+"and cc'd to "+cc$ � �#h%,10
�'  �subject$ �#h%,"About "+subject$
�1  �ack �#h%,"Acknowledge receipt of subject."
�O  �filenam$,1)="<" �#h%,"Text:":�fcopy(f%,h%) � �#h%,"From file "+filenam$
�  �#h%,�10+�39,"+-")+"+"
�
  �#h%
��
��#f%
��
� 
�� �fcopy(f%,t%)
�
�#f%=0 �
	start%=0:�
	$șgp%,4,f%,buffer%,&200 � ,,,r3%
	*�r3%<>&200 șgp%,2,h%,buffer%,&200-r3%
	$start%+=&200-r3%
	.�start%>=�#f%
	8�
	B 
	L7� �checkmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
	V�(b%�2)�
	`  �endDialogue
	j  Ȏ handle% �
	tP  � -2: �domenu(101,">Info,Fetch Mail,<Set up,Save choices,Quit","Mail Man")
	~  �
	��
	��(b%�5)�
	�  Ȏ handle% �
	�$  � -2: �menuselgo("Fetch Mail")
	�;  � mailto%: �icon%=11 ack=�ack:�setOpt(mailto%,11,ack)
	�  � choiceswindow%
	�   Ȏ icon% �
	�*    � 0: �registerChoices(�, (b%�1)=1)
	�4    � 1: � b%�1 � �redrawChoices � ș CrMenu,,-1
	�?    � 6: newBong=�newBong:�setOpt(choiceswindow%,6,newBong)
	�   �
	�  �
�

�
 

� �finish
(ș "Wimp_CloseDown"
2�
< 
F'� �domenu(handle%,menu$,menutitle$)
PmenuItems% = 0
Zmenuhandle%=handle%
dmenuptr%=menudata%
ni%=0
xmenuptr%!20=44
�$menuptr%=menutitle$
�Jmenuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
�$menuptr%!16=230-24:menuptr%!24=0
�menuptr%+=28
�?� item$=�par(","):�menuitem(item$):menuItems%+=1:� item$=""
�#menuptr%!-24=(menuptr%!-24)�&80
�8ș CrMenu,,menudata%,mousex%-64,96+(menuItems%-1)*44
��
� 
�P� �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$
6menuptr%+=24
@�
J 
T� �par(sep$)
^%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
h=�menu$,i1%,i%-i1%)
r 
|ݤcheckUP(file%)
� � x%,p%:� �
�� � � �#file%:�=1043 � �report(2007, "Mail cannot be fetched because you do not have appropriate access to the mail source file"):=� � �errorbox:=�
�% p%=�#file%:x%=�#file%:�#file%=p%
�=�
� 
�� �menuselect(menus%)
�/ș DcMenu,,menudata%,menus%,�200," ")�,,,a$
�� a$="" � �
�$� �menuselgo(a$) menuhandle%=101
�Ȏ menuhandle% �
� � 101: � a$="Quit":�finish:�
�  � a$="Fetch Mail" �
�+    A%=0:B%=0:C%=�readVar(logfile,0,-1)
    � �
    � � �#B%:�errorbox:�
�    �C%>=0 � 2000,"System variable Mail$LogFile needs to exist in order to Fetch Mail. Mail$Current is a copy of the last fetch."
&!    C%=�readVar(current,0,-1)
0-    B%=�mname$:�B%=0 �� �� ��checkUP(B%)�
:2    �#B%=0 �#B%:spname$="-mailnone":�change:�
D    � C%<0 �
N      C%=�"<Mail$Current>"
X      A%=�"<Mail$LogFile>"
b0      �A%=0 A%=�"<Mail$LogFile>" � �#A%=�#A%
l)      � � �#A%:�#B%:�#C%:�errorbox:�
v)      � X$=�#B%:�#A%,X$:�#C%,X$:��#B%
�      �#A%:�#C%:A%=0:C%=0
�      � � �#B%:�errorbox:�
�6      �#B%=0:�#B%:B%=0:spname$="-mailnone":�change
�(      �"Settype <Mail$Current> Text"
�@      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
�B      C%=�readVar(current,buffer%+44,&100):!buffer%=47+C%+1��3
�,      ș "Wimp_SendMessage",18,buffer%,0
�	    �
�      A%=�"<Mail$LogFile>"
�0      �A%=0 A%=�"<Mail$LogFile>" � �#A%=�#A%
�$      � � �#A%:�#B%:�errorbox:�
�      � �#A%,�#B%:��#B%
�      �#A%:A%=0

      � � �#B%:�errorbox:�

6      �#B%=0:�#B%:B%=0:spname$="-mailnone":�change

(      �"Settype <Mail$LogFile> Text"

 @      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF

*B      C%=�readVar(logfile,buffer%+44,&100):!buffer%=47+C%+1��3

4,      ș "Wimp_SendMessage",18,buffer%,0

>    �:�

H  �

R(  � a$="Save choices" � �saveChoices

\�

f�

p 

z��retainCheck

�A �(b%�1)�ș CrMenu,,menudata%,mousex%-64,96+(menuItems%-1)*44

��

� 

�� �vars

�Wimp    = (1<<18) + (3<<6)

�CreateW = Wimp+1

�OpenW   = Wimp+5

�CloseW  = Wimp+6

�RedrawW = Wimp+8

�UpdateW = Wimp+9

�GetR    = Wimp+10

�GetW    = Wimp+11

�GetP    = Wimp+15
Drag    = Wimp+16
CrMenu  = Wimp+20
DcMenu  = Wimp+21
$9ș "OS_SWINumberFromString",,"XWimp_PollIdle" � Poll%
.?ș "OS_SWINumberFromString",,"OS_ReadMonotonicTime" � Time%
86ș "OS_SWINumberFromString",,"OS_SpriteOp" � spop%
B0ș "OS_SWINumberFromString",,"OS_GBPB" � gp%
L�
V 
`��report(err%,mess$)
jZș Drag,,-1:!buffer%=err%:$(buffer%+4)=mess$:ș"Wimp_ReportError",buffer%,1,"Mail Man"
t�
~ 
�A� �errorbox :� Report error, with line number if error < 2000
�c� (� < 2000) � internal% � �report(�,�$+" (internal error code "+Þ+")."+�0) � �report(�,�$+�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
�&ș "Wimp_CreateIcon",,icons% � ic%
�=ic%
� 
� �nudge(nodelay%)

 � P%,f0%,f1%,f2%,f3%,f4%,f5%
� nodelay% �
9  ș "NetFS_ReadFSTimeouts" � f0%,f1%,f2%,f3%,f4%,f5%
(-  ș "NetFS_SetFSTimeouts",5,4,5,4,100,20
23  ș "XOS_File",5,mname$ � r0,,r2,r3,r4,r5 ; P%
<6  ș "NetFS_SetFSTimeouts",f0%,f1%,f2%,f3%,f4%,f5%
F  � P% � 1 �
P    � delay%<>lodel% �
Z"      delay%=lodel%:count%=6:�
d	    �
nF      count%-=1:�count%=0 delay%=hidel%:spname$="-mailunk":�change
x      �tick
�      �
�	    �
�  �
�    delay%=hidel%
�  �
��
�3  ș "XOS_File",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� �tick
@ș Time% � timeslip%
J*ȕtimeslip%-timex%>=0:timex%+=delay%:�
T�
^ 
h
� �change
r*ș spop%,&118,sprites%,spname$ �,,src%
|/ș 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
�ș "Wimp_SetIconState",,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)
��
� 
�� �reopen(handle%)
��getw(handle%)
F�open_window(handle%,xo%,yo%,x1%-x0%+xo%,y1%-y0%+yo%,scx%,scy%,-1)
�
 
&>� �open_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
0�handle%=-1��
:q%!0=handle%:q%!28=bhandle%
D)q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
Nq%!20=scx%:q%!24=scy%
Xș OpenW,,q%
b�
l 
v� �getw(handle%)
�!q%=handle%:ș GetW,,q%
�+�info(q%+4):bhandle%=q%!28:flags%=q%!32
��
� 
�� �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%
��
� 
�*� �update(handle%,ux0%,uy0%,ux1%,uy1%)
�9!q%=handle%:q%!4=ux0%:q%!8=uy0%:q%!12=ux1%:q%!16=uy1%
�&ș UpdateW,,q% � more%:�info(q%+4)
��
 
� �redraw_window(handle%)
�handle%=mailto% �
 !q%=handle%
*ș RedrawW,,q% � more%
4�info(q%+4)
>�
H�
R 
\� �getpointer
fș GetP,,buffer%
pfmousex%=!buffer%:mousey%=buffer%!4:b%=buffer%!8:handle%=buffer%!12:icon%=buffer%!16:ob%=buffer%!20
z�
� 
�8� �close_window(handle%):!q%=handle%:ș CloseW,,q%:�
� 
�"��setOpt(window%,icon%,state%)
�H !optbuff%=window%:optbuff%!4=icon%:ș "Wimp_GetIconState",,optbuff%
�= �state% $(optbuff%+28)="opton" � $(optbuff%+28)="optoff"
�E !optbuff%=window%:optbuff%!4=icon%:ș"Wimp_DeleteIcon",,optbuff%
�7 optbuff%!4=window%:ș"Wimp_CreateIcon",,optbuff%+4
�E !q%=window%:q%!4=icon%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
��
� 
�ݤhelp(window%,icon%,to%)
�$to%=""
Ȏ window% �
	 � -2
(  $to%="This is the MailMan icon.|M"
$  � spname$ = "-mailunk" �
.Q   $to% += "The MailMan cannot find the network mailing system at present.|M"
8  �
B[   $to% += "Drag text files to the icon to send them via the electronic mail system.|M"
Lr   � spname$ = "-mailfull" � $to% += "There is mail waiting to be read. Click SELECT on the icon to fetch it."
V  �
` � mailto%:
j  $to%="Click SELECT "
t  Ȏ icon% �
~�   � 0: $to%+="and type the mail name of the recipient of the mail.|MYou may enter more than one name by separating them with commas."
��   � 1: $to%+="and type the mail name of anyone to whom copies of the mail should be sent.|MYou may enter more than one name by separating them with commas."
�`   � 2: $to%+="and type in the subject of the mail.|MPressing return here sends the mail.|M"
�w   � 3: $to%+="and type the name to be used for the sender of the mail.|MYou will not usually need to change this."
�h   � 4: $to%+="and type in the name of the file to send.|MYou will not usually need to change this."
��   � 11: $to%+="to set whether an acknowledgement of recipt of the mail is to be sent back.|MThe current setting is for mail "
�M    � ack � $to%+="to be acknowledged." � $to%+="not to be acknowledged."
�   : $to%=""
�  �
� � choiceswindow%
�  $to%="Click SELECT "
�  Ȏ icon% �
�3   � 0: $to%+="to set the indicated choices.|M"
5   � 1: $to%+="to leave the choices unchanged.|M"

^   � 2: $to%+="and type in the name of the file used to store the current mail message.|M"
e   � 3: $to%+="and type in the name of the file used to keep a permanent log of mail messages.|M"
`   � 4: $to%+="and type in the name to be used as the sender of mail messages by default.|M"
(R   � 5: $to%+="and type in the name of the mail intray file on the network.|M"
2u   � 6: $to%+="to set whether the MailMan will bleep when mail arrives.|MThe current setting is for the MailMan "
<A    � newBong � $to% += "to bleep.|M" � $to%+="not to bleep."
F   : $to%=""
P  �
Z�
d=to%+�($to%)
n 
x��noteBuffers
� � icon%
�! iconInfo%!0 = choiceswindow%
�i � icon% = 2 � 5:iconInfo%!4 = icon%:ș Wimp_GetIconInfo,,iconInfo%:choice%(icon%-2) = 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
 �
e 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
"=t%
, 
6$��registerChoices(check%, keep%)
@ � i%, length%
J � i%=0�maxVars%
T&  length%=�buffLength(choice%(i%))
^  � length%=0 � length%=-1
h>  ș "XOS_SetVarVal",varnames$(i%),choice%(i%),length%,0,0
r �
|: �setMailSource:� check% �checkMailSource:bong=newBong
� �noteScrap
� � �keep% � ș CrMenu,,-1
��
� 
���saveChoices
�K � i%,file%,value$:� �:� � internal%=�:�#file%:�errorbox:internal%=�:�
�, file%=0:file%=�"<MailMan$Dir>.!Choices"
� � i%=0�maxVars%
�`  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"
�
 
&.��fromCtrl(from%, to%) :� ch.code 13 -> |M
0 � 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%
D  �from%?f%=0
N�
X 
b��fillInChoices
l � length%, i%
v � i%=0�maxVars%
�F  length%=�readVar(i%,buffer%,256):�fromCtrl(buffer%, choice%(i%))
� �
��
� 
���setMailSource
�& C%=�readVar(source, buffer%, 256)
�W � C%=0 � mname$="net:&.mail.intray":�setVar(source,mname$) � mname$=�rtoz(buffer%)
�9 C%=�mname$,":"):�mname$,C%+1,1)=":" C%=�mname$,".")
� fname$=�mname$,C%)
��
� 
���checkMailSource
� � flags%, exists%:� �
- � � internal%=�:�errorbox:internal%=�:�
$ ș "OS_File",5,mname$ � exists%
 � exists%=0 �
 b  !buffer%=0:$(buffer%+4)="Mail source '"+mname$+"' does not exist. Do you want to create it?"
*  ș Drag,,-1
4=  ș "Wimp_ReportError",buffer%,&13,"Mail Man" � ,create%
>0  � create%<>1 � � � � �createTree(mname$) �
H.   ș "XOS_CLI","create "+mname$ � ;flags%
R   � (flags% � 1) = 0 � �
\!   �"SetType "+mname$+" Text"
f  �
p;  �report(2004,"The mail source could not be created.")
z �
��
� 
�ݤcreateTree(name$)
�G � Recursively strip leaf off, test for existence and try to create
�+ � i%, root$, exists%, flags%, mid$:� �
� � � �errorbox:=�
� � i%=�name$ � 1 � -1
�  mid$=�name$,i%,1)
�  � mid$="." �
�   root$=�name$,i%-1)
�3   ș"OS_File",5,root$ � exists%:� exists% � =�
�V   ș"XOS_CLI","cdir "+root$ � ;flags%:� (flags% � 1)=1 � =�createTree(root$) � =�
�  �
,   � mid$="&" � mid$="$" � mid$=":" � =�
  �
 �
$=�
. 
8��setFile(buffer%,i%,leaf$)
B( � length%, name$, temp%:� temp% 256
L# length%=�readVar(i%,temp%,256)
Vj � length%=0 � name$=�rtoz(buffer%)+leaf$+�0:�setVar(i%,name$):$choice%(i%)=name$:choice%(i%)?�name$=0
`�
j 
t��noteScrap
~S ș "XOS_ReadVarVal","Mail$Scrap",buffer%,256,0,3 � ,,scrapC%:buffer%?scrapC%=0
�8 � scrapC%=0 � scrapC%=�readVar(current,buffer%,256)
�4 � scrapC%=0 � scrap$="" � scrap$=�rtoz(buffer%)
��
� 
���readChoices
�# � i%,file%,varname$,value$:� �
�5 � � 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%
2�
< 
F!ݤreadVar(var%, to%, maxBuf%)
P � length%
ZD ș "XOS_ReadVarVal",varnames$(var%),to%,maxBuf%,0,3 � ,,length%
d" � maxBuf%<>-1 � to%?length%=0
n=length%
x 
���setVar(var%, from$)
�8 ș "XOS_SetVarVal",varnames$(var%),from$,�from$,0,0
��
� 
���redrawChoices
�? �startChoices:ș "Wimp_ForceRedraw",handle%,0,-1024,1280,0
�# ș "Wimp_GetCaretPosition",,q%
�5 � !q%=choiceswindow% � �setCaret(!q%,q%!4,q%!20)
��
� 
�=� "Mail$Current","Mail$LogFile","Mail$Name","Mail$Source"
�
00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 1e de 20 74  61 73 6b 69 64 25 34 3a  |e..... taskid%4:|
00000020  24 74 61 73 6b 69 64 25  3d 22 54 41 53 4b 22 0d  |$taskid%="TASK".|
00000030  00 1e 3b c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |..;.. "Wimp_Init|
00000040  69 61 6c 69 73 65 22 2c  32 30 30 2c 21 74 61 73  |ialise",200,!tas|
00000050  6b 69 64 25 2c 22 4d 61  69 6c 20 4d 61 6e 22 20  |kid%,"Mail Man" |
00000060  b8 20 76 65 72 73 69 6f  6e 25 0d 00 28 4d 60 77  |. version%..(M`w|
00000070  62 63 6f 6c 3d 26 30 3a  60 74 62 63 6f 6c 3d 31  |bcol=&0:`tbcol=1|
00000080  32 3a 60 73 63 6f 3d 34  3a 60 6d 62 63 6f 6c 3d  |2:`sco=4:`mbcol=|
00000090  32 3a 60 77 66 63 6f 6c  3d 26 37 3a 60 74 66 63  |2:`wfcol=&7:`tfc|
000000a0  6f 6c 3d 37 3a 60 73 63  69 3d 26 44 3a 60 74 62  |ol=7:`sci=&D:`tb|
000000b0  63 6f 6c 32 3d 26 43 0d  00 32 09 f2 76 61 72 73  |col2=&C..2..vars|
000000c0  0d 00 3c 05 20 0d 00 46  3d 6d 61 78 62 75 66 25  |..<. ..F=maxbuf%|
000000d0  3d 26 32 30 30 3a de 20  62 75 66 66 65 72 25 20  |=&200:. buffer% |
000000e0  6d 61 78 62 75 66 25 2c  65 6e 64 62 75 66 25 20  |maxbuf%,endbuf% |
000000f0  2d 31 3a 63 75 72 62 75  66 25 3d 62 75 66 66 65  |-1:curbuf%=buffe|
00000100  72 25 0d 00 50 2e c8 99  20 22 4f 53 5f 46 53 43  |r%..P... "OS_FSC|
00000110  6f 6e 74 72 6f 6c 22 2c  31 33 2c 22 6e 65 74 22  |ontrol",13,"net"|
00000120  2b bd 30 2c 31 20 b8 20  2c 2c 4e 65 74 4f 4b 25  |+.0,1 . ,,NetOK%|
00000130  0d 00 5a 80 e7 20 4e 65  74 4f 4b 25 3d 30 20 8c  |..Z.. NetOK%=0 .|
00000140  20 f2 72 65 70 6f 72 74  28 32 30 30 36 2c 20 22  | .report(2006, "|
00000150  59 6f 75 20 6e 65 65 64  20 6e 65 74 77 6f 72 6b  |You need network|
00000160  20 68 61 72 64 77 61 72  65 20 61 6e 64 20 74 68  | hardware and th|
00000170  65 20 6e 65 74 77 6f 72  6b 20 66 69 6c 69 6e 67  |e network filing|
00000180  20 73 79 73 74 65 6d 20  69 6e 20 6f 72 64 65 72  | system in order|
00000190  20 74 6f 20 75 73 65 20  74 68 65 20 6d 61 69 6c  | to use the mail|
000001a0  6d 61 6e 2e 22 29 3a f2  66 69 6e 69 73 68 3a e0  |man."):.finish:.|
000001b0  0d 00 64 05 20 0d 00 6e  19 de 20 71 25 20 26 32  |..d. ..n.. q% &2|
000001c0  34 30 2c 69 63 6f 6e 73  25 20 26 31 30 30 0d 00  |40,icons% &100..|
000001d0  78 14 de 20 6d 65 6e 75  64 61 74 61 25 20 26 32  |x.. menudata% &2|
000001e0  30 30 0d 00 82 46 6d 61  78 56 61 72 73 25 3d 33  |00...FmaxVars%=3|
000001f0  3a de 20 63 68 6f 69 63  65 25 28 6d 61 78 56 61  |:. choice%(maxVa|
00000200  72 73 25 29 3a 63 75 72  72 65 6e 74 3d 30 3a 6c  |rs%):current=0:l|
00000210  6f 67 66 69 6c 65 3d 31  3a 6e 61 6d 65 3d 32 3a  |ogfile=1:name=2:|
00000220  73 6f 75 72 63 65 3d 33  0d 00 8c 44 de 20 76 61  |source=3...D. va|
00000230  72 6e 61 6d 65 73 24 28  6d 61 78 56 61 72 73 25  |rnames$(maxVars%|
00000240  29 3a e3 20 76 25 3d 30  b8 6d 61 78 56 61 72 73  |):. v%=0.maxVars|
00000250  25 3a f3 76 61 72 6e 61  6d 65 73 24 28 76 25 29  |%:.varnames$(v%)|
00000260  3a ed 3a 73 63 72 61 70  24 3d 22 22 0d 00 96 05  |:.:scrap$=""....|
00000270  20 0d 00 a0 2a de 20 69  63 6f 6e 49 6e 66 6f 25  | ...*. iconInfo%|
00000280  20 34 30 3a 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | 40:Wimp_GetIcon|
00000290  49 6e 66 6f 3d 26 34 30  30 63 65 0d 00 aa 26 69  |Info=&400ce...&i|
000002a0  6e 74 65 72 6e 61 6c 25  3d b9 3a ee 85 20 f2 65  |nternal%=.:.. .e|
000002b0  72 72 6f 72 62 6f 78 3a  f2 66 69 6e 69 73 68 3a  |rrorbox:.finish:|
000002c0  e0 0d 00 b4 05 20 0d 00  be 2f 53 25 3d 8e 22 3c  |..... .../S%=."<|
000002d0  4d 61 69 6c 4d 61 6e 24  44 69 72 3e 2e 53 70 72  |MailMan$Dir>.Spr|
000002e0  69 74 65 73 22 3a 54 25  3d a2 23 53 25 2b 31 36  |ites":T%=.#S%+16|
000002f0  3a d9 23 53 25 0d 00 c8  11 de 20 73 70 72 69 74  |:.#S%..... sprit|
00000300  65 73 25 20 54 25 0d 00  d2 1d 21 73 70 72 69 74  |es% T%....!sprit|
00000310  65 73 25 3d 54 25 3a 73  70 72 69 74 65 73 25 21  |es%=T%:sprites%!|
00000320  38 3d 30 0d 00 dc 1a c8  99 20 73 70 6f 70 25 2c  |8=0...... spop%,|
00000330  26 31 30 39 2c 73 70 72  69 74 65 73 25 0d 00 e6  |&109,sprites%...|
00000340  32 c8 99 20 73 70 6f 70  25 2c 26 31 30 41 2c 73  |2.. spop%,&10A,s|
00000350  70 72 69 74 65 73 25 2c  22 3c 4d 61 69 6c 4d 61  |prites%,"<MailMa|
00000360  6e 24 44 69 72 3e 2e 53  70 72 69 74 65 73 22 0d  |n$Dir>.Sprites".|
00000370  00 f0 14 69 63 6d 61 69  6c 25 3d a4 69 63 6f 6e  |...icmail%=.icon|
00000380  62 61 72 0d 00 fa 05 20  0d 01 04 35 c8 99 20 22  |bar.... ...5.. "|
00000390  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
000003a0  65 22 2c 2c 22 3c 4d 61  69 6c 4d 61 6e 24 44 69  |e",,"<MailMan$Di|
000003b0  72 3e 2e 54 65 6d 70 6c  61 74 65 73 22 0d 01 0e  |r>.Templates"...|
000003c0  3b 6d 61 69 6c 74 6f 53  69 7a 65 25 3d 35 2a 31  |;mailtoSize%=5*1|
000003d0  30 30 2b 33 32 2b 31 36  3a 69 6e 66 6f 53 69 7a  |00+32+16:infoSiz|
000003e0  65 25 3d 32 30 30 3a 63  68 6f 69 63 65 73 53 69  |e%=200:choicesSi|
000003f0  7a 65 25 3d 31 32 30 30  0d 01 18 4d de 20 6d 61  |ze%=1200...M. ma|
00000400  69 6c 49 63 6f 6e 73 25  20 6d 61 69 6c 74 6f 53  |ilIcons% mailtoS|
00000410  69 7a 65 25 2c 20 69 6e  66 6f 49 63 6f 6e 73 25  |ize%, infoIcons%|
00000420  20 69 6e 66 6f 53 69 7a  65 25 2c 20 63 68 6f 69  | infoSize%, choi|
00000430  63 65 49 63 6f 6e 73 25  20 63 68 6f 69 63 65 73  |ceIcons% choices|
00000440  53 69 7a 65 25 0d 01 22  4e c8 99 20 22 57 69 6d  |Size%.."N.. "Wim|
00000450  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000460  2c 71 25 2c 6d 61 69 6c  49 63 6f 6e 73 25 2c 6d  |,q%,mailIcons%,m|
00000470  61 69 6c 49 63 6f 6e 73  25 2b 6d 61 69 6c 74 6f  |ailIcons%+mailto|
00000480  53 69 7a 65 25 2c 2d 31  2c 22 4d 61 69 6c 54 6f  |Size%,-1,"MailTo|
00000490  22 2c 30 0d 01 2c 28 c8  99 20 22 57 69 6d 70 5f  |",0..,(.. "Wimp_|
000004a0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 71  |CreateWindow",,q|
000004b0  25 20 b8 20 6d 61 69 6c  74 6f 25 0d 01 36 4a c8  |% . mailto%..6J.|
000004c0  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
000004d0  6c 61 74 65 22 2c 2c 71  25 2c 69 6e 66 6f 49 63  |late",,q%,infoIc|
000004e0  6f 6e 73 25 2c 69 6e 66  6f 49 63 6f 6e 73 25 2b  |ons%,infoIcons%+|
000004f0  69 6e 66 6f 53 69 7a 65  25 2c 2d 31 2c 22 49 6e  |infoSize%,-1,"In|
00000500  66 6f 22 2c 30 0d 01 40  2c c8 99 20 22 57 69 6d  |fo",0..@,.. "Wim|
00000510  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000520  2c 71 25 20 b8 20 69 6e  66 6f 77 69 6e 64 6f 77  |,q% . infowindow|
00000530  25 0d 01 4a 54 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%..JT.. "Wimp_Lo|
00000540  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 71 25 2c  |adTemplate",,q%,|
00000550  63 68 6f 69 63 65 49 63  6f 6e 73 25 2c 63 68 6f  |choiceIcons%,cho|
00000560  69 63 65 49 63 6f 6e 73  25 2b 63 68 6f 69 63 65  |iceIcons%+choice|
00000570  73 53 69 7a 65 25 2c 2d  31 2c 22 63 68 6f 69 63  |sSize%,-1,"choic|
00000580  65 73 22 2c 30 0d 01 54  3c c8 99 20 22 57 69 6d  |es",0..T<.. "Wim|
00000590  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000005a0  2c 71 25 20 b8 20 63 68  6f 69 63 65 73 77 69 6e  |,q% . choiceswin|
000005b0  64 6f 77 25 3a f2 6e 6f  74 65 42 75 66 66 65 72  |dow%:.noteBuffer|
000005c0  73 0d 01 5e 1b c8 99 20  22 57 69 6d 70 5f 43 6c  |s..^... "Wimp_Cl|
000005d0  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 01 68 05  |oseTemplate"..h.|
000005e0  20 0d 01 72 12 de 20 6f  70 74 62 75 66 66 25 20  | ..r.. optbuff% |
000005f0  31 30 30 0d 01 7c 3f 62  6f 6e 67 3d a3 3a 6d 61  |100..|?bong=.:ma|
00000600  69 6c 72 65 66 25 3d 30  3a 6d 61 69 6c 6d 65 74  |ilref%=0:mailmet|
00000610  68 6f 64 25 3d 30 3a f4  20 30 20 6e 6f 6e 65 2c  |hod%=0:. 0 none,|
00000620  20 31 20 66 69 6c 65 2c  20 32 2c 33 20 73 63 72  | 1 file, 2,3 scr|
00000630  61 70 0d 01 86 21 61 63  6b 3d a3 3a f2 73 65 74  |ap...!ack=.:.set|
00000640  4f 70 74 28 6d 61 69 6c  74 6f 25 2c 31 31 2c 61  |Opt(mailto%,11,a|
00000650  63 6b 29 0d 01 90 16 64  69 61 6c 6f 67 75 65 53  |ck)....dialogueS|
00000660  74 61 72 74 65 64 25 3d  a3 0d 01 9a 05 20 0d 01  |tarted%=..... ..|
00000670  a4 1f f2 72 65 61 64 43  68 6f 69 63 65 73 3a f2  |...readChoices:.|
00000680  66 69 6c 6c 49 6e 43 68  6f 69 63 65 73 0d 01 ae  |fillInChoices...|
00000690  4e c8 99 20 22 58 4f 53  5f 52 65 61 64 56 61 72  |N.. "XOS_ReadVar|
000006a0  56 61 6c 22 2c 22 4d 61  69 6c 4d 61 6e 24 44 69  |Val","MailMan$Di|
000006b0  72 22 2c 62 75 66 66 65  72 25 2c 32 35 35 2c 30  |r",buffer%,255,0|
000006c0  2c 33 20 b8 20 2c 2c 6c  65 6e 67 74 68 25 3a 76  |,3 . ,,length%:v|
000006d0  25 3d 6c 65 6e 67 74 68  25 2d 31 0d 01 b8 3a c8  |%=length%-1...:.|
000006e0  95 20 76 25 3e 3d 30 20  80 20 62 75 66 66 65 72  |. v%>=0 . buffer|
000006f0  25 3f 76 25 3c 3e 97 22  2e 22 3a 76 25 2d 3d 31  |%?v%<>.".":v%-=1|
00000700  3a ce 3a 76 25 2b 3d 31  3a 62 75 66 66 65 72 25  |:.:v%+=1:buffer%|
00000710  3f 76 25 3d 30 0d 01 c2  4b f2 73 65 74 46 69 6c  |?v%=0...K.setFil|
00000720  65 28 62 75 66 66 65 72  25 2c 63 75 72 72 65 6e  |e(buffer%,curren|
00000730  74 2c 22 43 75 72 72 65  6e 74 22 29 3a f2 73 65  |t,"Current"):.se|
00000740  74 46 69 6c 65 28 62 75  66 66 65 72 25 2c 6c 6f  |tFile(buffer%,lo|
00000750  67 66 69 6c 65 2c 22 4c  6f 67 46 69 6c 65 22 29  |gfile,"LogFile")|
00000760  0d 01 cc 1d f2 73 65 74  4d 61 69 6c 53 6f 75 72  |.....setMailSour|
00000770  63 65 3a f2 6e 6f 74 65  53 63 72 61 70 0d 01 d6  |ce:.noteScrap...|
00000780  05 20 0d 01 e0 10 ee 85  20 f2 65 72 72 6f 72 62  |. ...... .errorb|
00000790  6f 78 0d 01 ea 0e 6c 6f  64 65 6c 25 3d 35 30 30  |ox....lodel%=500|
000007a0  0d 01 f4 0f 68 69 64 65  6c 25 3d 36 30 30 30 0d  |....hidel%=6000.|
000007b0  01 fe 13 64 65 6c 61 79  25 20 3d 20 68 69 64 65  |...delay% = hide|
000007c0  6c 25 0d 02 08 0f c8 99  20 44 72 61 67 2c 2c 2d  |l%...... Drag,,-|
000007d0  31 0d 02 12 1f c8 99 20  54 69 6d 65 25 20 b8 20  |1...... Time% . |
000007e0  74 69 6d 65 78 25 3a f2  6e 75 64 67 65 28 a3 29  |timex%:.nudge(.)|
000007f0  0d 02 1c 05 f5 0d 02 26  1e 20 c8 99 20 50 6f 6c  |.......&. .. Pol|
00000800  6c 25 2c 30 2c 71 25 2c  74 69 6d 65 78 25 20 b8  |l%,0,q%,timex% .|
00000810  20 41 25 0d 02 30 0d 20  20 c8 8e 20 41 25 20 ca  | A%..0.  .. A% .|
00000820  0d 02 3a 42 20 20 c9 20  30 20 3a e7 6d 61 69 6c  |..:B  . 0 :.mail|
00000830  6d 65 74 68 6f 64 25 3d  33 20 f2 53 74 61 72 74  |method%=3 .Start|
00000840  44 69 61 6c 6f 67 75 65  3a 6d 61 69 6c 6d 65 74  |Dialogue:mailmet|
00000850  68 6f 64 25 3d 31 20 8b  20 f2 6e 75 64 67 65 28  |hod%=1 . .nudge(|
00000860  b9 29 0d 02 44 1e 20 20  c9 20 31 20 3a f2 72 65  |.)..D.  . 1 :.re|
00000870  64 72 61 77 5f 77 69 6e  64 6f 77 28 21 71 25 29  |draw_window(!q%)|
00000880  0d 02 4e 44 20 20 c9 20  32 20 3a f2 6f 70 65 6e  |..ND  . 2 :.open|
00000890  5f 77 69 6e 64 6f 77 28  21 71 25 2c 71 25 21 34  |_window(!q%,q%!4|
000008a0  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
000008b0  36 2c 71 25 21 32 30 2c  71 25 21 32 34 2c 71 25  |6,q%!20,q%!24,q%|
000008c0  21 32 38 29 0d 02 58 1d  20 20 c9 20 33 20 3a f2  |!28)..X.  . 3 :.|
000008d0  63 6c 6f 73 65 5f 77 69  6e 64 6f 77 28 21 71 25  |close_window(!q%|
000008e0  29 0d 02 62 37 20 20 c9  20 36 20 3a f2 63 68 65  |)..b7  . 6 :.che|
000008f0  63 6b 6d 6f 75 73 65 28  21 71 25 2c 71 25 21 34  |ckmouse(!q%,q%!4|
00000900  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
00000910  36 2c 71 25 21 32 30 29  0d 02 6c 36 20 20 c9 20  |6,q%!20)..l6  . |
00000920  38 20 3a f2 6b 65 79 28  21 71 25 2c 71 25 21 34  |8 :.key(!q%,q%!4|
00000930  2c 71 25 21 38 2c 71 25  21 31 32 2c 71 25 21 31  |,q%!8,q%!12,q%!1|
00000940  36 2c 71 25 21 32 30 2c  71 25 21 32 34 29 0d 02  |6,q%!20,q%!24)..|
00000950  76 33 20 20 c9 20 39 20  3a f2 67 65 74 70 6f 69  |v3  . 9 :.getpoi|
00000960  6e 74 65 72 3a f2 6d 65  6e 75 73 65 6c 65 63 74  |nter:.menuselect|
00000970  28 71 25 29 3a f2 72 65  74 61 69 6e 43 68 65 63  |(q%):.retainChec|
00000980  6b 0d 02 80 1a 20 20 c9  20 31 37 2c 31 38 3a f2  |k....  . 17,18:.|
00000990  72 65 63 65 69 76 65 28  71 25 29 0d 02 8a 07 20  |receive(q%).... |
000009a0  20 cb 0d 02 94 07 fd 20  a3 0d 02 9e 05 20 0d 02  | ...... ..... ..|
000009b0  a8 12 dd 20 f2 72 65 63  65 69 76 65 28 71 25 29  |... .receive(q%)|
000009c0  0d 02 b2 0e f2 6e 6f 74  65 53 63 72 61 70 0d 02  |.....noteScrap..|
000009d0  bc 0e c8 8e 20 71 25 21  31 36 20 ca 0d 02 c6 11  |.... q%!16 .....|
000009e0  c9 20 30 3a f2 66 69 6e  69 73 68 3a e0 0d 02 d0  |. 0:.finish:....|
000009f0  27 c9 20 33 3a f4 20 64  61 74 61 20 6c 6f 61 64  |'. 3:. data load|
00000a00  65 64 20 66 72 6f 6d 20  66 69 6c 65 72 20 76 69  |ed from filer vi|
00000a10  65 77 65 72 0d 02 da 29  20 20 e7 20 6d 61 69 6c  |ewer...)  . mail|
00000a20  6d 65 74 68 6f 64 25 3c  32 20 84 20 71 25 21 31  |method%<2 . q%!1|
00000a30  32 3c 3e 6d 61 69 6c 72  65 66 25 20 8c 0d 02 e4  |2<>mailref% ....|
00000a40  23 20 20 20 20 e7 20 71  25 21 34 30 3d 34 30 39  |#    . q%!40=409|
00000a50  36 20 84 20 71 25 21 34  30 3d 38 31 39 32 20 8c  |6 . q%!40=8192 .|
00000a60  0d 02 ee 55 20 20 20 20  20 20 f2 72 65 70 6f 72  |...U      .repor|
00000a70  74 28 32 30 30 33 2c 22  59 6f 75 20 63 61 6e 20  |t(2003,"You can |
00000a80  6f 6e 6c 79 20 73 65 6e  64 20 66 69 6c 65 73 2c  |only send files,|
00000a90  20 6e 6f 74 20 64 69 72  65 63 74 6f 72 69 65 73  | not directories|
00000aa0  20 6f 72 20 61 70 70 6c  69 63 61 74 69 6f 6e 73  | or applications|
00000ab0  2e 22 29 3a e1 0d 02 f8  09 20 20 20 20 cc 0d 03  |."):.....    ...|
00000ac0  02 2d 20 20 20 20 20 20  66 69 6c 65 6e 61 6d 24  |.-      filenam$|
00000ad0  3d a4 72 74 6f 7a 28 71  25 2b 34 34 29 3a 6d 61  |=.rtoz(q%+44):ma|
00000ae0  69 6c 6d 65 74 68 6f 64  25 3d 31 0d 03 0c 32 20  |ilmethod%=1...2 |
00000af0  20 20 20 20 20 71 25 21  31 36 3d 34 3a c8 99 20  |     q%!16=4:.. |
00000b00  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00000b10  65 22 2c 31 37 2c 71 25  2c 71 25 21 34 0d 03 16  |e",17,q%,q%!4...|
00000b20  18 20 20 20 20 20 20 f2  53 74 61 72 74 44 69 61  |.      .StartDia|
00000b30  6c 6f 67 75 65 0d 03 20  09 20 20 20 20 cd 0d 03  |logue.. .    ...|
00000b40  2a 07 20 20 cc 0d 03 34  42 20 20 20 20 71 25 21  |*.  ...4B    q%!|
00000b50  31 36 3d 34 3a 71 25 21  31 32 3d 71 25 21 38 3a  |16=4:q%!12=q%!8:|
00000b60  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
00000b70  73 61 67 65 22 2c 31 37  2c 71 25 2c 6d 61 69 6c  |sage",17,q%,mail|
00000b80  73 65 6e 64 65 72 25 0d  03 3e 19 20 20 20 20 c8  |sender%..>.    .|
00000b90  99 20 54 69 6d 65 25 20  b8 20 74 69 6d 65 78 25  |. Time% . timex%|
00000ba0  0d 03 48 15 20 20 20 20  6d 61 69 6c 6d 65 74 68  |..H.    mailmeth|
00000bb0  6f 64 25 3d 33 0d 03 52  07 20 20 cd 0d 03 5c 1e  |od%=3..R.  ...\.|
00000bc0  c9 20 31 3a f4 20 61 20  64 61 74 61 20 73 61 76  |. 1:. a data sav|
00000bd0  65 20 69 6e 74 6f 20 6d  65 2e 0d 03 66 34 20 20  |e into me...f4  |
00000be0  66 69 6c 65 6e 61 6d 24  3d 22 3c 61 70 70 6c 69  |filenam$="<appli|
00000bf0  63 61 74 69 6f 6e 20 64  61 74 61 3a 22 2b a4 72  |cation data:"+.r|
00000c00  74 6f 7a 28 71 25 2b 34  34 29 2b 22 3e 22 0d 03  |toz(q%+44)+">"..|
00000c10  70 32 20 20 6d 61 69 6c  6d 65 74 68 6f 64 25 3d  |p2  mailmethod%=|
00000c20  32 3a 6d 61 69 6c 73 65  6e 64 65 72 25 3d 71 25  |2:mailsender%=q%|
00000c30  21 34 3a 6d 61 69 6c 72  65 66 25 3d 71 25 21 38  |!4:mailref%=q%!8|
00000c40  0d 03 7a 15 20 20 e7 20  73 63 72 61 70 24 3d 22  |..z.  . scrap$="|
00000c50  22 20 8c 20 e1 0d 03 84  5b 20 20 24 28 71 25 2b  |" . ....[  $(q%+|
00000c60  34 34 29 3d 73 63 72 61  70 24 3a 71 25 3f 28 34  |44)=scrap$:q%?(4|
00000c70  34 2b 73 63 72 61 70 43  25 29 3d 30 3a 21 71 25  |4+scrapC%)=0:!q%|
00000c80  3d 34 37 2b 73 63 72 61  70 43 25 2b 31 80 ac 33  |=47+scrapC%+1..3|
00000c90  3a 71 25 21 31 36 3d 32  3a 71 25 21 31 32 3d 6d  |:q%!16=2:q%!12=m|
00000ca0  61 69 6c 72 65 66 25 3a  71 25 21 33 36 3d 2d 31  |ailref%:q%!36=-1|
00000cb0  0d 03 8e 3b 20 20 c8 99  20 22 57 69 6d 70 5f 53  |...;  .. "Wimp_S|
00000cc0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 71  |endMessage",17,q|
00000cd0  25 2c 6d 61 69 6c 73 65  6e 64 65 72 25 3a 6d 61  |%,mailsender%:ma|
00000ce0  69 6c 72 65 66 25 3d 71  25 21 38 0d 03 98 19 c9  |ilref%=q%!8.....|
00000cf0  20 26 35 30 32 3a f4 20  68 65 6c 70 20 72 65 71  | &502:. help req|
00000d00  75 65 73 74 0d 03 a2 27  20 20 71 25 21 31 32 3d  |uest...'  q%!12=|
00000d10  71 25 21 38 3a 71 25 21  31 36 3d 26 35 30 33 3a  |q%!8:q%!16=&503:|
00000d20  68 65 6c 70 25 3d 71 25  2b 32 30 0d 03 ac 2d 20  |help%=q%+20...- |
00000d30  20 68 65 6c 70 25 3d a4  68 65 6c 70 28 71 25 21  | help%=.help(q%!|
00000d40  33 32 2c 71 25 21 33 36  2c 68 65 6c 70 25 29 3a  |32,q%!36,help%):|
00000d50  3f 68 65 6c 70 25 3d 30  0d 03 b6 19 20 20 21 71  |?help%=0....  !q|
00000d60  25 3d 28 68 65 6c 70 25  2b 34 2d 71 25 29 80 ac  |%=(help%+4-q%)..|
00000d70  33 0d 03 c0 26 20 20 c8  99 20 22 57 69 6d 70 5f  |3...&  .. "Wimp_|
00000d80  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00000d90  71 25 2c 71 25 21 34 0d  03 ca 39 c9 20 26 34 30  |q%,q%!4...9. &40|
00000da0  30 43 30 3a f4 20 73 75  62 6d 65 6e 75 20 72 65  |0C0:. submenu re|
00000db0  71 75 65 73 74 3a 20 63  61 6e 20 6f 6e 6c 79 20  |quest: can only |
00000dc0  61 70 70 6c 79 20 74 6f  20 63 68 6f 69 63 65 73  |apply to choices|
00000dd0  0d 03 d4 3e 20 20 f2 73  74 61 72 74 43 68 6f 69  |...>  .startChoi|
00000de0  63 65 73 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |ces:.. "Wimp_Cre|
00000df0  61 74 65 53 75 62 4d 65  6e 75 22 2c 2c 71 25 21  |ateSubMenu",,q%!|
00000e00  32 30 2c 71 25 21 32 34  2c 71 25 21 32 38 0d 03  |20,q%!24,q%!28..|
00000e10  de 05 cb 0d 03 e8 05 e1  0d 03 f2 05 20 0d 03 fc  |............ ...|
00000e20  12 dd f2 73 74 61 72 74  43 68 6f 69 63 65 73 0d  |...startChoices.|
00000e30  04 06 42 20 f2 66 69 6c  6c 49 6e 43 68 6f 69 63  |..B .fillInChoic|
00000e40  65 73 3a 6e 65 77 42 6f  6e 67 3d 62 6f 6e 67 3a  |es:newBong=bong:|
00000e50  f2 73 65 74 4f 70 74 28  63 68 6f 69 63 65 73 77  |.setOpt(choicesw|
00000e60  69 6e 64 6f 77 25 2c 36  2c 6e 65 77 42 6f 6e 67  |indow%,6,newBong|
00000e70  29 0d 04 10 05 e1 0d 04  1a 05 20 0d 04 24 14 dd  |)......... ..$..|
00000e80  20 f2 53 74 61 72 74 44  69 61 6c 6f 67 75 65 0d  | .StartDialogue.|
00000e90  04 2e 10 f2 65 6e 64 44  69 61 6c 6f 67 75 65 0d  |....endDialogue.|
00000ea0  04 38 83 e7 20 73 63 72  61 70 24 3d 22 22 8c f2  |.8.. scrap$=""..|
00000eb0  72 65 70 6f 72 74 28 32  30 30 35 2c 22 59 6f 75  |report(2005,"You|
00000ec0  20 6d 75 73 74 20 73 65  74 20 75 70 20 61 20 63  | must set up a c|
00000ed0  75 72 72 65 6e 74 20 6f  72 20 73 63 72 61 70 20  |urrent or scrap |
00000ee0  6d 61 69 6c 20 66 69 6c  65 20 6e 61 6d 65 20 62  |mail file name b|
00000ef0  65 66 6f 72 65 20 79 6f  75 20 63 61 6e 20 73 65  |efore you can se|
00000f00  6e 64 20 61 20 66 69 6c  65 20 66 72 6f 6d 20 61  |nd a file from a|
00000f10  6e 20 61 70 70 6c 69 63  61 74 69 6f 6e 2e 22 29  |n application.")|
00000f20  3a e1 0d 04 42 21 66 72  6f 6d 6e 61 6d 24 3d a4  |:...B!fromnam$=.|
00000f30  72 74 6f 7a 28 63 68 6f  69 63 65 25 28 6e 61 6d  |rtoz(choice%(nam|
00000f40  65 29 29 0d 04 4c 12 24  6d 61 69 6c 49 63 6f 6e  |e))..L.$mailIcon|
00000f50  73 25 3d bd 30 0d 04 56  18 24 28 6d 61 69 6c 49  |s%=.0..V.$(mailI|
00000f60  63 6f 6e 73 25 2b 31 30  30 29 3d bd 30 0d 04 60  |cons%+100)=.0..`|
00000f70  18 24 28 6d 61 69 6c 49  63 6f 6e 73 25 2b 32 30  |.$(mailIcons%+20|
00000f80  30 29 3d bd 30 0d 04 6a  21 24 28 6d 61 69 6c 49  |0)=.0..j!$(mailI|
00000f90  63 6f 6e 73 25 2b 33 30  30 29 3d 66 72 6f 6d 6e  |cons%+300)=fromn|
00000fa0  61 6d 24 2b bd 30 0d 04  74 21 24 28 6d 61 69 6c  |am$+.0..t!$(mail|
00000fb0  49 63 6f 6e 73 25 2b 34  30 30 29 3d 66 69 6c 65  |Icons%+400)=file|
00000fc0  6e 61 6d 24 2b bd 30 0d  04 7e 32 f2 67 65 74 70  |nam$+.0..~2.getp|
00000fd0  6f 69 6e 74 65 72 3a f2  70 6f 70 75 70 28 6d 61  |ointer:.popup(ma|
00000fe0  69 6c 74 6f 25 29 3a 64  69 61 6c 6f 67 75 65 53  |ilto%):dialogueS|
00000ff0  74 61 72 74 65 64 25 3d  b9 0d 04 88 32 c8 99 22  |tarted%=....2.."|
00001000  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00001010  69 74 69 6f 6e 22 2c 6d  61 69 6c 74 6f 25 2c 30  |ition",mailto%,0|
00001020  2c 30 2c 2d 31 2c 2d 31  2c 2d 31 0d 04 92 05 e1  |,0,-1,-1,-1.....|
00001030  0d 04 9c 05 20 0d 04 a6  11 dd f2 65 6e 64 44 69  |.... ......endDi|
00001040  61 6c 6f 67 75 65 0d 04  b0 51 20 e7 20 64 69 61  |alogue...Q . dia|
00001050  6c 6f 67 75 65 53 74 61  72 74 65 64 25 20 8c 20  |logueStarted% . |
00001060  f2 63 6c 6f 73 65 5f 77  69 6e 64 6f 77 28 6d 61  |.close_window(ma|
00001070  69 6c 74 6f 25 29 3a 6d  61 69 6c 6d 65 74 68 6f  |ilto%):mailmetho|
00001080  64 25 3d 30 3a 64 69 61  6c 6f 67 75 65 53 74 61  |d%=0:dialogueSta|
00001090  72 74 65 64 25 3d a3 0d  04 ba 05 e1 0d 04 c4 05  |rted%=..........|
000010a0  20 0d 04 ce 0f dd 20 a4  72 74 6f 7a 28 73 25 29  | ..... .rtoz(s%)|
000010b0  0d 04 d8 08 ea 20 6e 24  0d 04 e2 1a c8 95 3f 73  |..... n$......?s|
000010c0  25 3a 6e 24 2b 3d bd 3f  73 25 3a 73 25 2b 3d 31  |%:n$+=.?s%:s%+=1|
000010d0  3a ce 0d 04 ec 07 3d 6e  24 0d 04 f6 05 20 0d 05  |:.....=n$.... ..|
000010e0  00 3e dd 20 f2 6b 65 79  28 68 61 6e 64 6c 65 25  |.>. .key(handle%|
000010f0  2c 69 63 6f 6e 25 2c 78  63 6f 66 66 25 2c 79 63  |,icon%,xcoff%,yc|
00001100  6f 66 66 25 2c 63 61 72  65 74 68 25 2c 63 61 72  |off%,careth%,car|
00001110  65 74 69 6e 64 78 25 2c  63 68 25 29 0d 05 0a 17  |etindx%,ch%)....|
00001120  e7 20 68 61 6e 64 6c 65  25 3d 6d 61 69 6c 74 6f  |. handle%=mailto|
00001130  25 20 8c 0d 05 14 19 20  e7 20 63 68 25 3d 31 33  |% ..... . ch%=13|
00001140  20 80 20 69 63 6f 6e 25  3e 31 20 8c 0d 05 1e 22  | . icon%>1 ...."|
00001150  20 20 f2 6d 61 69 6c 3a  e7 20 72 65 6d 6f 76 65  |  .mail:. remove|
00001160  25 20 f2 65 6e 64 44 69  61 6c 6f 67 75 65 0d 05  |% .endDialogue..|
00001170  28 06 20 cc 0d 05 32 23  20 20 f2 64 6f 4b 65 79  |(. ...2#  .doKey|
00001180  28 63 68 25 2c 6d 61 69  6c 74 6f 25 2c 69 63 6f  |(ch%,mailto%,ico|
00001190  6e 25 2c 34 2c 30 29 0d  05 3c 08 20 cd 3a e1 0d  |n%,4,0)..<. .:..|
000011a0  05 46 05 cd 0d 05 50 1e  e7 20 68 61 6e 64 6c 65  |.F....P.. handle|
000011b0  25 3d 63 68 6f 69 63 65  73 77 69 6e 64 6f 77 25  |%=choiceswindow%|
000011c0  20 8c 0d 05 5a 2f 20 e7  20 63 68 25 3d 31 33 20  | ...Z/ . ch%=13 |
000011d0  80 20 69 63 6f 6e 25 3d  35 20 f2 72 65 67 69 73  |. icon%=5 .regis|
000011e0  74 65 72 43 68 6f 69 63  65 73 28 b9 2c a3 29 3a  |terChoices(.,.):|
000011f0  e1 0d 05 64 29 20 f2 64  6f 4b 65 79 28 63 68 25  |...d) .doKey(ch%|
00001200  2c 63 68 6f 69 63 65 73  77 69 6e 64 6f 77 25 2c  |,choiceswindow%,|
00001210  69 63 6f 6e 25 2c 35 2c  32 29 0d 05 6e 05 cd 0d  |icon%,5,2)..n...|
00001220  05 78 05 e1 0d 05 82 05  20 0d 05 8c 30 dd f2 64  |.x...... ...0..d|
00001230  6f 4b 65 79 28 63 68 25  2c 77 69 6e 64 6f 77 25  |oKey(ch%,window%|
00001240  2c 69 63 6f 6e 25 2c 6d  61 78 69 63 6f 6e 25 2c  |,icon%,maxicon%,|
00001250  6d 69 6e 69 63 6f 6e 25  29 0d 05 96 0d 20 c8 8e  |minicon%).... ..|
00001260  20 63 68 25 20 ca 0d 05  a0 0c 20 20 20 c9 20 31  | ch% .....   . 1|
00001270  33 3a 0d 05 aa 35 20 20  20 20 20 69 63 6f 6e 25  |3:...5     icon%|
00001280  3d 69 63 6f 6e 25 2b 31  3a e7 69 63 6f 6e 25 3e  |=icon%+1:.icon%>|
00001290  6d 61 78 69 63 6f 6e 25  20 69 63 6f 6e 25 3d 6d  |maxicon% icon%=m|
000012a0  69 6e 69 63 6f 6e 25 0d  05 b4 2c 20 20 20 20 20  |inicon%...,     |
000012b0  f2 73 65 74 43 61 72 65  74 28 77 69 6e 64 6f 77  |.setCaret(window|
000012c0  25 2c 69 63 6f 6e 25 2c  63 61 72 65 74 69 6e 64  |%,icon%,caretind|
000012d0  78 25 29 0d 05 be 19 20  20 20 c9 20 32 37 3a 20  |x%)....   . 27: |
000012e0  f2 65 6e 64 44 69 61 6c  6f 67 75 65 0d 05 c8 3a  |.endDialogue...:|
000012f0  20 20 20 c9 20 26 31 38  45 3a 69 63 6f 6e 25 3d  |   . &18E:icon%=|
00001300  69 63 6f 6e 25 2b 31 3a  e7 69 63 6f 6e 25 3e 6d  |icon%+1:.icon%>m|
00001310  61 78 69 63 6f 6e 25 20  69 63 6f 6e 25 3d 6d 69  |axicon% icon%=mi|
00001320  6e 69 63 6f 6e 25 0d 05  d2 2c 20 20 20 20 20 f2  |nicon%...,     .|
00001330  73 65 74 43 61 72 65 74  28 77 69 6e 64 6f 77 25  |setCaret(window%|
00001340  2c 69 63 6f 6e 25 2c 63  61 72 65 74 69 6e 64 78  |,icon%,caretindx|
00001350  25 29 0d 05 dc 3a 20 20  20 c9 20 26 31 38 46 3a  |%)...:   . &18F:|
00001360  69 63 6f 6e 25 3d 69 63  6f 6e 25 2d 31 3a e7 69  |icon%=icon%-1:.i|
00001370  63 6f 6e 25 3c 6d 69 6e  69 63 6f 6e 25 20 69 63  |con%<minicon% ic|
00001380  6f 6e 25 3d 6d 61 78 69  63 6f 6e 25 0d 05 e6 2c  |on%=maxicon%...,|
00001390  20 20 20 20 20 f2 73 65  74 43 61 72 65 74 28 77  |     .setCaret(w|
000013a0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 63 61 72  |indow%,icon%,car|
000013b0  65 74 69 6e 64 78 25 29  0d 05 f0 21 20 20 20 7f  |etindx%)...!   .|
000013c0  20 c8 99 20 22 57 69 6d  70 5f 50 72 6f 63 65 73  | .. "Wimp_Proces|
000013d0  73 4b 65 79 22 2c 63 68  25 0d 05 fa 06 20 cb 0d  |sKey",ch%.... ..|
000013e0  06 04 05 e1 0d 06 0e 05  20 0d 06 18 28 dd f2 73  |........ ...(..s|
000013f0  65 74 43 61 72 65 74 28  77 69 6e 64 6f 77 25 2c  |etCaret(window%,|
00001400  69 63 6f 6e 25 2c 63 61  72 65 74 69 6e 64 78 25  |icon%,caretindx%|
00001410  29 0d 06 22 0e 20 ea 20  6c 65 6e 67 74 68 25 0d  |)..". . length%.|
00001420  06 2c 2e 20 69 63 6f 6e  49 6e 66 6f 25 21 30 20  |.,. iconInfo%!0 |
00001430  3d 20 77 69 6e 64 6f 77  25 3a 69 63 6f 6e 49 6e  |= window%:iconIn|
00001440  66 6f 25 21 34 20 3d 20  69 63 6f 6e 25 0d 06 36  |fo%!4 = icon%..6|
00001450  23 20 c8 99 20 57 69 6d  70 5f 47 65 74 49 63 6f  |# .. Wimp_GetIco|
00001460  6e 49 6e 66 6f 2c 2c 69  63 6f 6e 49 6e 66 6f 25  |nInfo,,iconInfo%|
00001470  0d 06 40 26 20 6c 65 6e  67 74 68 25 3d a4 62 75  |..@& length%=.bu|
00001480  66 66 4c 65 6e 67 74 68  28 69 63 6f 6e 49 6e 66  |ffLength(iconInf|
00001490  6f 25 21 32 38 29 0d 06  4a 2c 20 e7 20 63 61 72  |o%!28)..J, . car|
000014a0  65 74 69 6e 64 78 25 3e  6c 65 6e 67 74 68 25 20  |etindx%>length% |
000014b0  63 61 72 65 74 69 6e 64  78 25 3d 6c 65 6e 67 74  |caretindx%=lengt|
000014c0  68 25 0d 06 54 3f 20 c8  99 22 57 69 6d 70 5f 53  |h%..T? .."Wimp_S|
000014d0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
000014e0  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 30  |,window%,icon%,0|
000014f0  2c 2d 31 2c 2d 31 2c 63  61 72 65 74 69 6e 64 78  |,-1,-1,caretindx|
00001500  25 0d 06 5e 05 e1 0d 06  68 05 20 0d 06 72 0b dd  |%..^....h. ..r..|
00001510  20 f2 6d 61 69 6c 0d 06  7c 23 72 65 6d 6f 76 65  | .mail..|#remove|
00001520  25 3d b9 3a f2 72 65 67  69 73 74 65 72 43 68 6f  |%=.:.registerCho|
00001530  69 63 65 73 28 a3 2c a3  29 0d 06 86 1d 74 6f 6e  |ices(.,.)....ton|
00001540  61 6d 65 24 3d a4 72 74  6f 7a 28 6d 61 69 6c 49  |ame$=.rtoz(mailI|
00001550  63 6f 6e 73 25 29 0d 06  90 1d 63 63 24 3d a4 72  |cons%)....cc$=.r|
00001560  74 6f 7a 28 6d 61 69 6c  49 63 6f 6e 73 25 2b 31  |toz(mailIcons%+1|
00001570  30 30 29 0d 06 9a 22 73  75 62 6a 65 63 74 24 3d  |00)..."subject$=|
00001580  a4 72 74 6f 7a 28 6d 61  69 6c 49 63 6f 6e 73 25  |.rtoz(mailIcons%|
00001590  2b 32 30 30 29 0d 06 a4  42 64 75 6d 6d 79 25 3d  |+200)...Bdummy%=|
000015a0  a4 74 6f 43 74 72 6c 28  6d 61 69 6c 49 63 6f 6e  |.toCtrl(mailIcon|
000015b0  73 25 2b 33 30 30 2c 62  75 66 66 65 72 25 29 3a  |s%+300,buffer%):|
000015c0  66 72 6f 6d 6e 61 6d 24  3d a4 72 74 6f 7a 28 62  |fromnam$=.rtoz(b|
000015d0  75 66 66 65 72 25 29 0d  06 ae 22 66 69 6c 65 6e  |uffer%)..."filen|
000015e0  61 6d 24 3d a4 72 74 6f  7a 28 6d 61 69 6c 49 63  |am$=.rtoz(mailIc|
000015f0  6f 6e 73 25 2b 34 30 30  29 0d 06 b8 24 e7 a9 28  |ons%+400)...$..(|
00001600  74 6f 6e 61 6d 65 24 2b  63 63 24 29 3c 34 20 ef  |toname$+cc$)<4 .|
00001610  37 3a 72 65 6d 6f 76 65  25 3d a3 3a e1 0d 06 c2  |7:remove%=.:....|
00001620  23 66 25 3d 30 3a 68 25  3d 30 3a ee 85 20 ea 20  |#f%=0:h%=0:.. . |
00001630  d9 23 66 25 3a f2 65 72  72 6f 72 62 6f 78 3a e1  |.#f%:.errorbox:.|
00001640  0d 06 cc 2e e7 97 66 69  6c 65 6e 61 6d 24 3d 97  |......filenam$=.|
00001650  22 3c 22 8c 20 66 25 3d  8e 73 63 72 61 70 24 20  |"<". f%=.scrap$ |
00001660  8b 20 66 25 3d 8e 66 69  6c 65 6e 61 6d 24 0d 06  |. f%=.filenam$..|
00001670  d6 18 e7 66 25 3d 30 20  ef 37 3a 72 65 6d 6f 76  |...f%=0 .7:remov|
00001680  65 25 3d a3 3a e1 0d 06  e0 05 cd 0d 06 ea 07 ea  |e%=.:...........|
00001690  20 85 0d 06 f4 21 6d 61  69 6c 24 3d 66 6e 61 6d  | ....!mail$=fnam|
000016a0  65 24 2b 22 24 2e 4d 61  69 6c 2e 50 6f 73 74 42  |e$+"$.Mail.PostB|
000016b0  6f 78 22 0d 06 fe 1d c8  99 20 22 4f 53 5f 46 69  |ox"...... "OS_Fi|
000016c0  6c 65 22 2c 35 2c 6d 61  69 6c 24 20 b8 20 72 30  |le",5,mail$ . r0|
000016d0  0d 07 08 0c e7 20 72 30  3d 32 20 8c 0d 07 12 16  |..... r0=2 .....|
000016e0  20 20 62 6f 78 25 3d 2d  31 3a f5 62 6f 78 25 2b  |  box%=-1:.box%+|
000016f0  3d 31 0d 07 1c 48 20 20  ee 85 20 ea 20 fd 20 62  |=1...H  .. . . b|
00001700  6f 78 25 3e 39 3a f7 20  85 3a d9 23 66 25 3a d9  |ox%>9:. .:.#f%:.|
00001710  23 68 25 3a f2 72 65 70  6f 72 74 28 32 30 30 31  |#h%:.report(2001|
00001720  2c 22 43 61 6e 27 74 20  6f 70 65 6e 20 70 6f 73  |,"Can't open pos|
00001730  74 20 62 6f 78 2e 22 29  3a e1 0d 07 26 27 20 20  |t box."):...&'  |
00001740  68 25 3d ad 28 6d 61 69  6c 24 2b 22 2e 22 2b c2  |h%=.(mail$+"."+.|
00001750  c3 28 62 6f 78 25 2b 31  30 30 30 30 29 2c 32 29  |.(box%+10000),2)|
00001760  29 0d 07 30 1e 20 20 e7  68 25 3e 30 20 e7 a2 23  |)..0.  .h%>0 ..#|
00001770  68 25 3c 3e 30 20 d9 23  68 25 3a 68 25 3d 30 0d  |h%<>0 .#h%:h%=0.|
00001780  07 3a 15 20 20 fd 68 25  3c 3e 30 20 84 20 62 6f  |.:.  .h%<>0 . bo|
00001790  78 25 3e 39 0d 07 44 3b  20 20 e7 68 25 3d 30 20  |x%>9..D;  .h%=0 |
000017a0  f7 20 85 3a d9 23 66 25  3a f2 72 65 70 6f 72 74  |. .:.#f%:.report|
000017b0  28 32 30 30 31 2c 22 41  6c 6c 20 70 6f 73 74 20  |(2001,"All post |
000017c0  62 6f 78 65 73 20 66 75  6c 6c 2e 22 29 3a e1 0d  |boxes full."):..|
000017d0  07 4e 0c 20 20 6d 61 69  6c 3d 33 0d 07 58 05 cc  |.N.  mail=3..X..|
000017e0  0d 07 62 2e 20 20 6d 61  69 6c 24 3d 66 6e 61 6d  |..b.  mail$=fnam|
000017f0  65 24 2b 22 24 2e 22 2b  74 6f 6e 61 6d 65 24 2b  |e$+"$."+toname$+|
00001800  22 2e 4d 61 69 6c 2e 49  6e 74 72 61 79 22 0d 07  |".Mail.Intray"..|
00001810  6c 52 20 20 ee 85 20 ea  20 f7 20 85 3a d9 23 66  |lR  .. . . .:.#f|
00001820  25 3a d9 23 68 25 3a f2  72 65 70 6f 72 74 28 32  |%:.#h%:.report(2|
00001830  30 30 32 2c 22 43 61 6e  27 74 20 6f 70 65 6e 20  |002,"Can't open |
00001840  27 22 2b 6d 61 69 6c 24  2b 22 27 20 66 6f 72 20  |'"+mail$+"' for |
00001850  64 69 72 65 63 74 20 6d  61 69 6c 2e 22 29 3a e1  |direct mail."):.|
00001860  0d 07 76 0f 20 20 68 25  3d ad 6d 61 69 6c 24 0d  |..v.  h%=.mail$.|
00001870  07 80 51 20 20 e7 68 25  3d 30 20 8c 20 d9 23 66  |..Q  .h%=0 . .#f|
00001880  25 3a f2 72 65 70 6f 72  74 28 32 30 30 32 2c 22  |%:.report(2002,"|
00001890  43 61 6e 27 74 20 6d 61  69 6c 20 28 64 6f 65 73  |Can't mail (does|
000018a0  20 64 65 73 74 69 6e 61  74 69 6f 6e 20 69 6e 74  | destination int|
000018b0  72 61 79 20 65 78 69 73  74 3f 29 2e 22 29 3a e1  |ray exist?)."):.|
000018c0  0d 07 8a 0f 20 20 cf 23  68 25 3d a2 23 68 25 0d  |....  .#h%=.#h%.|
000018d0  07 94 0c 20 20 6d 61 69  6c 3d 30 0d 07 9e 05 cd  |...  mail=0.....|
000018e0  0d 07 a8 22 ee 85 20 ea  20 f7 20 85 3a d9 23 66  |...".. . . .:.#f|
000018f0  25 3a d9 23 68 25 3a f2  65 72 72 6f 72 62 6f 78  |%:.#h%:.errorbox|
00001900  3a e1 0d 07 b2 0e e7 20  6d 61 69 6c 3d 33 20 8c  |:...... mail=3 .|
00001910  0d 07 bc 1d d5 23 68 25  2c bd 31 30 2b 22 53 6f  |.....#h%,.10+"So|
00001920  6e 4f 66 45 63 6f 6d 61  69 6c 20 33 22 0d 07 c6  |nOfEcomail 3"...|
00001930  21 e7 a9 74 6f 6e 61 6d  65 24 20 d5 23 68 25 2c  |!..toname$ .#h%,|
00001940  22 54 6f 3a 20 22 2b 74  6f 6e 61 6d 65 24 0d 07  |"To: "+toname$..|
00001950  d0 19 e7 a9 63 63 24 20  d5 23 68 25 2c 22 43 43  |....cc$ .#h%,"CC|
00001960  3a 20 22 2b 63 63 24 0d  07 da 05 cd 0d 07 e4 28  |: "+cc$........(|
00001970  e7 a9 73 75 62 6a 65 63  74 24 20 d5 23 68 25 2c  |..subject$ .#h%,|
00001980  22 53 75 62 6a 65 63 74  3a 20 22 2b 73 75 62 6a  |"Subject: "+subj|
00001990  65 63 74 24 0d 07 ee 22  6d 74 69 6d 65 24 3d 91  |ect$..."mtime$=.|
000019a0  24 3a d5 23 68 25 2c 22  44 61 74 65 3a 20 22 2b  |$:.#h%,"Date: "+|
000019b0  6d 74 69 6d 65 24 0d 07  f8 1a d5 23 68 25 2c 22  |mtime$.....#h%,"|
000019c0  46 72 6f 6d 3a 20 22 2b  66 72 6f 6d 6e 61 6d 24  |From: "+fromnam$|
000019d0  0d 08 02 0a e7 61 63 6b  20 8c 0d 08 0c 2e 20 20  |.....ack .....  |
000019e0  61 24 3d 66 72 6f 6d 6e  61 6d 24 3a 41 25 3d a7  |a$=fromnam$:A%=.|
000019f0  61 24 2c bd 31 33 29 3a  e7 41 25 20 61 24 3d c0  |a$,.13):.A% a$=.|
00001a00  61 24 2c 41 25 2d 31 29  0d 08 16 23 20 20 d5 23  |a$,A%-1)...#  .#|
00001a10  68 25 2c 22 52 65 74 75  72 6e 2d 52 65 63 65 69  |h%,"Return-Recei|
00001a20  70 74 2d 54 6f 3a 20 22  2b 61 24 0d 08 20 05 cd  |pt-To: "+a$.. ..|
00001a30  0d 08 2a 0b d5 23 68 25  2c 22 22 0d 08 34 11 f2  |..*..#h%,""..4..|
00001a40  66 63 6f 70 79 28 66 25  2c 68 25 29 0d 08 3e 0b  |fcopy(f%,h%)..>.|
00001a50  d5 23 68 25 2c 22 22 0d  08 48 14 d9 23 68 25 3a  |.#h%,""..H..#h%:|
00001a60  68 25 3d 30 3a cf 23 66  25 3d 30 0d 08 52 1d 43  |h%=0:.#f%=0..R.C|
00001a70  25 3d a4 72 65 61 64 56  61 72 28 6c 6f 67 66 69  |%=.readVar(logfi|
00001a80  6c 65 2c 30 2c 2d 31 29  0d 08 5c 0b e7 43 25 3c  |le,0,-1)..\..C%<|
00001a90  30 20 8c 0d 08 66 1a 20  20 68 25 3d ad 22 3c 4d  |0 ...f.  h%=."<M|
00001aa0  61 69 6c 24 4c 6f 67 46  69 6c 65 3e 22 0d 08 70  |ail$LogFile>"..p|
00001ab0  2c 20 20 e7 68 25 3d 30  20 68 25 3d ae 22 3c 4d  |,  .h%=0 h%=."<M|
00001ac0  61 69 6c 24 4c 6f 67 46  69 6c 65 3e 22 20 8b 20  |ail$LogFile>" . |
00001ad0  cf 23 68 25 3d a2 23 68  25 0d 08 7a 18 20 20 d5  |.#h%=.#h%..z.  .|
00001ae0  23 68 25 2c c4 33 39 2c  22 2d 2b 22 29 2b 22 2d  |#h%,.39,"-+")+"-|
00001af0  22 0d 08 84 35 20 20 d5  23 68 25 2c 22 41 74 20  |"...5  .#h%,"At |
00001b00  22 2b 6d 74 69 6d 65 24  2b 22 20 6d 61 69 6c 20  |"+mtime$+" mail |
00001b10  77 61 73 20 73 65 6e 74  20 74 6f 20 22 2b 74 6f  |was sent to "+to|
00001b20  6e 61 6d 65 24 3b 0d 08  8e 31 20 20 e7 a9 63 63  |name$;...1  ..cc|
00001b30  24 20 d5 23 68 25 2c bd  31 30 2b 22 61 6e 64 20  |$ .#h%,.10+"and |
00001b40  63 63 27 64 20 74 6f 20  22 2b 63 63 24 20 8b 20  |cc'd to "+cc$ . |
00001b50  d5 23 68 25 2c 31 30 0d  08 98 27 20 20 e7 a9 73  |.#h%,10...'  ..s|
00001b60  75 62 6a 65 63 74 24 20  d5 23 68 25 2c 22 41 62  |ubject$ .#h%,"Ab|
00001b70  6f 75 74 20 22 2b 73 75  62 6a 65 63 74 24 0d 08  |out "+subject$..|
00001b80  a2 31 20 20 e7 61 63 6b  20 d5 23 68 25 2c 22 41  |.1  .ack .#h%,"A|
00001b90  63 6b 6e 6f 77 6c 65 64  67 65 20 72 65 63 65 69  |cknowledge recei|
00001ba0  70 74 20 6f 66 20 73 75  62 6a 65 63 74 2e 22 0d  |pt of subject.".|
00001bb0  08 ac 4f 20 20 e7 c0 66  69 6c 65 6e 61 6d 24 2c  |..O  ..filenam$,|
00001bc0  31 29 3d 22 3c 22 20 d5  23 68 25 2c 22 54 65 78  |1)="<" .#h%,"Tex|
00001bd0  74 3a 22 3a f2 66 63 6f  70 79 28 66 25 2c 68 25  |t:":.fcopy(f%,h%|
00001be0  29 20 8b 20 d5 23 68 25  2c 22 46 72 6f 6d 20 66  |) . .#h%,"From f|
00001bf0  69 6c 65 20 22 2b 66 69  6c 65 6e 61 6d 24 0d 08  |ile "+filenam$..|
00001c00  b6 1c 20 20 d5 23 68 25  2c bd 31 30 2b c4 33 39  |..  .#h%,.10+.39|
00001c10  2c 22 2b 2d 22 29 2b 22  2b 22 0d 08 c0 0a 20 20  |,"+-")+"+"....  |
00001c20  d9 23 68 25 0d 08 ca 05  cd 0d 08 d4 08 d9 23 66  |.#h%..........#f|
00001c30  25 0d 08 de 05 e1 0d 08  e8 05 20 0d 08 f2 13 dd  |%......... .....|
00001c40  20 f2 66 63 6f 70 79 28  66 25 2c 74 25 29 0d 08  | .fcopy(f%,t%)..|
00001c50  fc 0d e7 a2 23 66 25 3d  30 20 e1 0d 09 06 0e 73  |....#f%=0 .....s|
00001c60  74 61 72 74 25 3d 30 3a  f5 0d 09 10 24 c8 99 67  |tart%=0:....$..g|
00001c70  70 25 2c 34 2c 66 25 2c  62 75 66 66 65 72 25 2c  |p%,4,f%,buffer%,|
00001c80  26 32 30 30 20 b8 20 2c  2c 2c 72 33 25 0d 09 1a  |&200 . ,,,r3%...|
00001c90  2a e7 72 33 25 3c 3e 26  32 30 30 20 c8 99 67 70  |*.r3%<>&200 ..gp|
00001ca0  25 2c 32 2c 68 25 2c 62  75 66 66 65 72 25 2c 26  |%,2,h%,buffer%,&|
00001cb0  32 30 30 2d 72 33 25 0d  09 24 14 73 74 61 72 74  |200-r3%..$.start|
00001cc0  25 2b 3d 26 32 30 30 2d  72 33 25 0d 09 2e 11 fd  |%+=&200-r3%.....|
00001cd0  73 74 61 72 74 25 3e 3d  a2 23 66 25 0d 09 38 05  |start%>=.#f%..8.|
00001ce0  e1 0d 09 42 05 20 0d 09  4c 37 dd 20 f2 63 68 65  |...B. ..L7. .che|
00001cf0  63 6b 6d 6f 75 73 65 28  6d 6f 75 73 65 78 25 2c  |ckmouse(mousex%,|
00001d00  6d 6f 75 73 65 79 25 2c  62 25 2c 68 61 6e 64 6c  |mousey%,b%,handl|
00001d10  65 25 2c 69 63 6f 6e 25  2c 6f 62 25 29 0d 09 56  |e%,icon%,ob%)..V|
00001d20  0c e7 28 62 25 80 32 29  8c 0d 09 60 12 20 20 f2  |..(b%.2)...`.  .|
00001d30  65 6e 64 44 69 61 6c 6f  67 75 65 0d 09 6a 12 20  |endDialogue..j. |
00001d40  20 c8 8e 20 68 61 6e 64  6c 65 25 20 ca 0d 09 74  | .. handle% ...t|
00001d50  50 20 20 c9 20 2d 32 3a  20 f2 64 6f 6d 65 6e 75  |P  . -2: .domenu|
00001d60  28 31 30 31 2c 22 3e 49  6e 66 6f 2c 46 65 74 63  |(101,">Info,Fetc|
00001d70  68 20 4d 61 69 6c 2c 3c  53 65 74 20 75 70 2c 53  |h Mail,<Set up,S|
00001d80  61 76 65 20 63 68 6f 69  63 65 73 2c 51 75 69 74  |ave choices,Quit|
00001d90  22 2c 22 4d 61 69 6c 20  4d 61 6e 22 29 0d 09 7e  |","Mail Man")..~|
00001da0  07 20 20 cb 0d 09 88 05  cd 0d 09 92 0c e7 28 62  |.  ...........(b|
00001db0  25 80 35 29 8c 0d 09 9c  12 20 20 c8 8e 20 68 61  |%.5).....  .. ha|
00001dc0  6e 64 6c 65 25 20 ca 0d  09 a6 24 20 20 c9 20 2d  |ndle% ....$  . -|
00001dd0  32 3a 20 f2 6d 65 6e 75  73 65 6c 67 6f 28 22 46  |2: .menuselgo("F|
00001de0  65 74 63 68 20 4d 61 69  6c 22 29 0d 09 b0 3b 20  |etch Mail")...; |
00001df0  20 c9 20 6d 61 69 6c 74  6f 25 3a 20 e7 69 63 6f  | . mailto%: .ico|
00001e00  6e 25 3d 31 31 20 61 63  6b 3d ac 61 63 6b 3a f2  |n%=11 ack=.ack:.|
00001e10  73 65 74 4f 70 74 28 6d  61 69 6c 74 6f 25 2c 31  |setOpt(mailto%,1|
00001e20  31 2c 61 63 6b 29 0d 09  ba 16 20 20 c9 20 63 68  |1,ack)....  . ch|
00001e30  6f 69 63 65 73 77 69 6e  64 6f 77 25 0d 09 c4 11  |oiceswindow%....|
00001e40  20 20 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 09 ce  |   .. icon% ....|
00001e50  2a 20 20 20 20 c9 20 30  3a 20 f2 72 65 67 69 73  |*    . 0: .regis|
00001e60  74 65 72 43 68 6f 69 63  65 73 28 b9 2c 20 28 62  |terChoices(., (b|
00001e70  25 80 31 29 3d 31 29 0d  09 d8 34 20 20 20 20 c9  |%.1)=1)...4    .|
00001e80  20 31 3a 20 e7 20 62 25  80 31 20 8c 20 f2 72 65  | 1: . b%.1 . .re|
00001e90  64 72 61 77 43 68 6f 69  63 65 73 20 8b 20 c8 99  |drawChoices . ..|
00001ea0  20 43 72 4d 65 6e 75 2c  2c 2d 31 0d 09 e2 3f 20  | CrMenu,,-1...? |
00001eb0  20 20 20 c9 20 36 3a 20  6e 65 77 42 6f 6e 67 3d  |   . 6: newBong=|
00001ec0  ac 6e 65 77 42 6f 6e 67  3a f2 73 65 74 4f 70 74  |.newBong:.setOpt|
00001ed0  28 63 68 6f 69 63 65 73  77 69 6e 64 6f 77 25 2c  |(choiceswindow%,|
00001ee0  36 2c 6e 65 77 42 6f 6e  67 29 0d 09 ec 08 20 20  |6,newBong)....  |
00001ef0  20 cb 0d 09 f6 07 20 20  cb 0d 0a 00 05 cd 0d 0a  | .....  ........|
00001f00  0a 05 e1 0d 0a 14 05 20  0d 0a 1e 0d dd 20 f2 66  |....... ..... .f|
00001f10  69 6e 69 73 68 0d 0a 28  17 c8 99 20 22 57 69 6d  |inish..(... "Wim|
00001f20  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 0a 32 05  |p_CloseDown"..2.|
00001f30  e1 0d 0a 3c 05 20 0d 0a  46 27 dd 20 f2 64 6f 6d  |...<. ..F'. .dom|
00001f40  65 6e 75 28 68 61 6e 64  6c 65 25 2c 6d 65 6e 75  |enu(handle%,menu|
00001f50  24 2c 6d 65 6e 75 74 69  74 6c 65 24 29 0d 0a 50  |$,menutitle$)..P|
00001f60  12 6d 65 6e 75 49 74 65  6d 73 25 20 3d 20 30 0d  |.menuItems% = 0.|
00001f70  0a 5a 17 6d 65 6e 75 68  61 6e 64 6c 65 25 3d 68  |.Z.menuhandle%=h|
00001f80  61 6e 64 6c 65 25 0d 0a  64 16 6d 65 6e 75 70 74  |andle%..d.menupt|
00001f90  72 25 3d 6d 65 6e 75 64  61 74 61 25 0d 0a 6e 08  |r%=menudata%..n.|
00001fa0  69 25 3d 30 0d 0a 78 12  6d 65 6e 75 70 74 72 25  |i%=0..x.menuptr%|
00001fb0  21 32 30 3d 34 34 0d 0a  82 18 24 6d 65 6e 75 70  |!20=44....$menup|
00001fc0  74 72 25 3d 6d 65 6e 75  74 69 74 6c 65 24 0d 0a  |tr%=menutitle$..|
00001fd0  8c 4a 6d 65 6e 75 70 74  72 25 3f 31 32 3d 60 74  |.Jmenuptr%?12=`t|
00001fe0  66 63 6f 6c 3a 6d 65 6e  75 70 74 72 25 3f 31 33  |fcol:menuptr%?13|
00001ff0  3d 32 3a 6d 65 6e 75 70  74 72 25 3f 31 34 3d 60  |=2:menuptr%?14=`|
00002000  77 66 63 6f 6c 3a 6d 65  6e 75 70 74 72 25 3f 31  |wfcol:menuptr%?1|
00002010  35 3d 60 77 62 63 6f 6c  0d 0a 96 24 6d 65 6e 75  |5=`wbcol...$menu|
00002020  70 74 72 25 21 31 36 3d  32 33 30 2d 32 34 3a 6d  |ptr%!16=230-24:m|
00002030  65 6e 75 70 74 72 25 21  32 34 3d 30 0d 0a a0 10  |enuptr%!24=0....|
00002040  6d 65 6e 75 70 74 72 25  2b 3d 32 38 0d 0a aa 3f  |menuptr%+=28...?|
00002050  f5 20 69 74 65 6d 24 3d  a4 70 61 72 28 22 2c 22  |. item$=.par(","|
00002060  29 3a f2 6d 65 6e 75 69  74 65 6d 28 69 74 65 6d  |):.menuitem(item|
00002070  24 29 3a 6d 65 6e 75 49  74 65 6d 73 25 2b 3d 31  |$):menuItems%+=1|
00002080  3a fd 20 69 74 65 6d 24  3d 22 22 0d 0a b4 23 6d  |:. item$=""...#m|
00002090  65 6e 75 70 74 72 25 21  2d 32 34 3d 28 6d 65 6e  |enuptr%!-24=(men|
000020a0  75 70 74 72 25 21 2d 32  34 29 84 26 38 30 0d 0a  |uptr%!-24).&80..|
000020b0  be 38 c8 99 20 43 72 4d  65 6e 75 2c 2c 6d 65 6e  |.8.. CrMenu,,men|
000020c0  75 64 61 74 61 25 2c 6d  6f 75 73 65 78 25 2d 36  |udata%,mousex%-6|
000020d0  34 2c 39 36 2b 28 6d 65  6e 75 49 74 65 6d 73 25  |4,96+(menuItems%|
000020e0  2d 31 29 2a 34 34 0d 0a  c8 05 e1 0d 0a d2 05 20  |-1)*44......... |
000020f0  0d 0a dc 50 dd 20 f2 6d  65 6e 75 69 74 65 6d 28  |...P. .menuitem(|
00002100  74 65 78 74 24 29 20 3a  f4 20 4c 65 61 64 69 6e  |text$) :. Leadin|
00002110  67 20 63 68 61 72 61 63  74 65 72 20 6f 66 20 3e  |g character of >|
00002120  20 6f 72 20 3c 20 68 61  73 20 73 70 65 63 69 61  | or < has specia|
00002130  6c 20 69 6e 74 65 72 70  72 65 74 61 74 69 6f 6e  |l interpretation|
00002140  0d 0a e6 0b ea 20 6c 65  66 74 24 0d 0a f0 10 e7  |..... left$.....|
00002150  20 74 65 78 74 24 3d 22  22 20 e1 0d 0a fa 0f 21  | text$="" .....!|
00002160  6d 65 6e 75 70 74 72 25  3d 30 0d 0b 04 23 6c 65  |menuptr%=0...#le|
00002170  66 74 24 20 3d 20 c0 74  65 78 74 24 2c 31 29 3a  |ft$ = .text$,1):|
00002180  6d 65 6e 75 70 74 72 25  21 34 3d 2d 31 0d 0b 0e  |menuptr%!4=-1...|
00002190  28 e7 20 6c 65 66 74 24  3d 22 3e 22 20 8c 20 6d  |(. left$=">" . m|
000021a0  65 6e 75 70 74 72 25 21  34 3d 69 6e 66 6f 77 69  |enuptr%!4=infowi|
000021b0  6e 64 6f 77 25 0d 0b 18  37 e7 20 6c 65 66 74 24  |ndow%...7. left$|
000021c0  3d 22 3c 22 20 8c 20 6d  65 6e 75 70 74 72 25 21  |="<" . menuptr%!|
000021d0  34 3d 63 68 6f 69 63 65  73 77 69 6e 64 6f 77 25  |4=choiceswindow%|
000021e0  3a 21 6d 65 6e 75 70 74  72 25 3d 38 0d 0b 22 18  |:!menuptr%=8..".|
000021f0  6d 65 6e 75 70 74 72 25  21 38 3d 26 30 37 30 30  |menuptr%!8=&0700|
00002200  30 30 32 31 0d 0b 2c 4d  e7 20 6c 65 66 74 24 3d  |0021..,M. left$=|
00002210  22 3e 22 20 84 20 6c 65  66 74 24 3d 22 3c 22 20  |">" . left$="<" |
00002220  8c 20 24 28 6d 65 6e 75  70 74 72 25 2b 31 32 29  |. $(menuptr%+12)|
00002230  3d c1 74 65 78 74 24 2c  32 29 20 8b 20 24 28 6d  |=.text$,2) . $(m|
00002240  65 6e 75 70 74 72 25 2b  31 32 29 3d 74 65 78 74  |enuptr%+12)=text|
00002250  24 0d 0b 36 10 6d 65 6e  75 70 74 72 25 2b 3d 32  |$..6.menuptr%+=2|
00002260  34 0d 0b 40 05 e1 0d 0b  4a 05 20 0d 0b 54 10 dd  |4..@....J. ..T..|
00002270  20 a4 70 61 72 28 73 65  70 24 29 0d 0b 5e 25 69  | .par(sep$)..^%i|
00002280  31 25 3d 69 25 2b 31 3a  69 25 3d a7 6d 65 6e 75  |1%=i%+1:i%=.menu|
00002290  24 2b 73 65 70 24 2c 73  65 70 24 2c 69 31 25 29  |$+sep$,sep$,i1%)|
000022a0  0d 0b 68 17 3d c1 6d 65  6e 75 24 2c 69 31 25 2c  |..h.=.menu$,i1%,|
000022b0  69 25 2d 69 31 25 29 0d  0b 72 05 20 0d 0b 7c 14  |i%-i1%)..r. ..|.|
000022c0  dd a4 63 68 65 63 6b 55  50 28 66 69 6c 65 25 29  |..checkUP(file%)|
000022d0  0d 0b 86 10 20 ea 20 78  25 2c 70 25 3a ea 20 85  |.... . x%,p%:. .|
000022e0  0d 0b 90 98 20 ee 85 20  ea 20 d9 23 66 69 6c 65  |.... .. . .#file|
000022f0  25 3a e7 9f 3d 31 30 34  33 20 8c 20 f2 72 65 70  |%:..=1043 . .rep|
00002300  6f 72 74 28 32 30 30 37  2c 20 22 4d 61 69 6c 20  |ort(2007, "Mail |
00002310  63 61 6e 6e 6f 74 20 62  65 20 66 65 74 63 68 65  |cannot be fetche|
00002320  64 20 62 65 63 61 75 73  65 20 79 6f 75 20 64 6f  |d because you do|
00002330  20 6e 6f 74 20 68 61 76  65 20 61 70 70 72 6f 70  | not have approp|
00002340  72 69 61 74 65 20 61 63  63 65 73 73 20 74 6f 20  |riate access to |
00002350  74 68 65 20 6d 61 69 6c  20 73 6f 75 72 63 65 20  |the mail source |
00002360  66 69 6c 65 22 29 3a 3d  a3 20 8b 20 f2 65 72 72  |file"):=. . .err|
00002370  6f 72 62 6f 78 3a 3d a3  0d 0b 9a 25 20 70 25 3d  |orbox:=....% p%=|
00002380  8f 23 66 69 6c 65 25 3a  78 25 3d 9a 23 66 69 6c  |.#file%:x%=.#fil|
00002390  65 25 3a cf 23 66 69 6c  65 25 3d 70 25 0d 0b a4  |e%:.#file%=p%...|
000023a0  06 3d b9 0d 0b ae 05 20  0d 0b b8 19 dd 20 f2 6d  |.=..... ..... .m|
000023b0  65 6e 75 73 65 6c 65 63  74 28 6d 65 6e 75 73 25  |enuselect(menus%|
000023c0  29 0d 0b c2 2f c8 99 20  44 63 4d 65 6e 75 2c 2c  |).../.. DcMenu,,|
000023d0  6d 65 6e 75 64 61 74 61  25 2c 6d 65 6e 75 73 25  |menudata%,menus%|
000023e0  2c c4 32 30 30 2c 22 20  22 29 b8 2c 2c 2c 61 24  |,.200," ").,,,a$|
000023f0  0d 0b cc 0f e7 20 61 24  3d 22 22 20 8c 20 e1 0d  |..... a$="" . ..|
00002400  0b d6 24 dd 20 f2 6d 65  6e 75 73 65 6c 67 6f 28  |..$. .menuselgo(|
00002410  61 24 29 20 6d 65 6e 75  68 61 6e 64 6c 65 25 3d  |a$) menuhandle%=|
00002420  31 30 31 0d 0b e0 14 c8  8e 20 6d 65 6e 75 68 61  |101...... menuha|
00002430  6e 64 6c 65 25 20 ca 0d  0b ea 20 c9 20 31 30 31  |ndle% .... . 101|
00002440  3a 20 e7 20 61 24 3d 22  51 75 69 74 22 3a f2 66  |: . a$="Quit":.f|
00002450  69 6e 69 73 68 3a e0 0d  0b f4 19 20 20 e7 20 61  |inish:.....  . a|
00002460  24 3d 22 46 65 74 63 68  20 4d 61 69 6c 22 20 8c  |$="Fetch Mail" .|
00002470  0d 0b fe 2b 20 20 20 20  41 25 3d 30 3a 42 25 3d  |...+    A%=0:B%=|
00002480  30 3a 43 25 3d a4 72 65  61 64 56 61 72 28 6c 6f  |0:C%=.readVar(lo|
00002490  67 66 69 6c 65 2c 30 2c  2d 31 29 0d 0c 08 0b 20  |gfile,0,-1).... |
000024a0  20 20 20 ea 20 85 0d 0c  12 1d 20 20 20 20 ee 85  |   . .....    ..|
000024b0  20 ea 20 d9 23 42 25 3a  f2 65 72 72 6f 72 62 6f  | . .#B%:.errorbo|
000024c0  78 3a e1 0d 0c 1c 85 20  20 20 20 e7 43 25 3e 3d  |x:.....    .C%>=|
000024d0  30 20 85 20 32 30 30 30  2c 22 53 79 73 74 65 6d  |0 . 2000,"System|
000024e0  20 76 61 72 69 61 62 6c  65 20 4d 61 69 6c 24 4c  | variable Mail$L|
000024f0  6f 67 46 69 6c 65 20 6e  65 65 64 73 20 74 6f 20  |ogFile needs to |
00002500  65 78 69 73 74 20 69 6e  20 6f 72 64 65 72 20 74  |exist in order t|
00002510  6f 20 46 65 74 63 68 20  4d 61 69 6c 2e 20 4d 61  |o Fetch Mail. Ma|
00002520  69 6c 24 43 75 72 72 65  6e 74 20 69 73 20 61 20  |il$Current is a |
00002530  63 6f 70 79 20 6f 66 20  74 68 65 20 6c 61 73 74  |copy of the last|
00002540  20 66 65 74 63 68 2e 22  0d 0c 26 21 20 20 20 20  | fetch."..&!    |
00002550  43 25 3d a4 72 65 61 64  56 61 72 28 63 75 72 72  |C%=.readVar(curr|
00002560  65 6e 74 2c 30 2c 2d 31  29 0d 0c 30 2d 20 20 20  |ent,0,-1)..0-   |
00002570  20 42 25 3d ad 6d 6e 61  6d 65 24 3a e7 42 25 3d  | B%=.mname$:.B%=|
00002580  30 20 8c e1 20 8b e7 20  ac a4 63 68 65 63 6b 55  |0 .. .. ..checkU|
00002590  50 28 42 25 29 e1 0d 0c  3a 32 20 20 20 20 e7 a2  |P(B%)...:2    ..|
000025a0  23 42 25 3d 30 20 d9 23  42 25 3a 73 70 6e 61 6d  |#B%=0 .#B%:spnam|
000025b0  65 24 3d 22 2d 6d 61 69  6c 6e 6f 6e 65 22 3a f2  |e$="-mailnone":.|
000025c0  63 68 61 6e 67 65 3a e1  0d 0c 44 10 20 20 20 20  |change:...D.    |
000025d0  e7 20 43 25 3c 30 20 8c  0d 0c 4e 1e 20 20 20 20  |. C%<0 ...N.    |
000025e0  20 20 43 25 3d ae 22 3c  4d 61 69 6c 24 43 75 72  |  C%=."<Mail$Cur|
000025f0  72 65 6e 74 3e 22 0d 0c  58 1e 20 20 20 20 20 20  |rent>"..X.      |
00002600  41 25 3d ad 22 3c 4d 61  69 6c 24 4c 6f 67 46 69  |A%=."<Mail$LogFi|
00002610  6c 65 3e 22 0d 0c 62 30  20 20 20 20 20 20 e7 41  |le>"..b0      .A|
00002620  25 3d 30 20 41 25 3d ae  22 3c 4d 61 69 6c 24 4c  |%=0 A%=."<Mail$L|
00002630  6f 67 46 69 6c 65 3e 22  20 8b 20 cf 23 41 25 3d  |ogFile>" . .#A%=|
00002640  a2 23 41 25 0d 0c 6c 29  20 20 20 20 20 20 ee 85  |.#A%..l)      ..|
00002650  20 ea 20 d9 23 41 25 3a  d9 23 42 25 3a d9 23 43  | . .#A%:.#B%:.#C|
00002660  25 3a f2 65 72 72 6f 72  62 6f 78 3a e1 0d 0c 76  |%:.errorbox:...v|
00002670  29 20 20 20 20 20 20 f5  20 58 24 3d be 23 42 25  |)      . X$=.#B%|
00002680  3a d5 23 41 25 2c 58 24  3a d5 23 43 25 2c 58 24  |:.#A%,X$:.#C%,X$|
00002690  3a fd c5 23 42 25 0d 0c  80 1d 20 20 20 20 20 20  |:..#B%....      |
000026a0  d9 23 41 25 3a d9 23 43  25 3a 41 25 3d 30 3a 43  |.#A%:.#C%:A%=0:C|
000026b0  25 3d 30 0d 0c 8a 1f 20  20 20 20 20 20 ee 85 20  |%=0....      .. |
000026c0  ea 20 d9 23 42 25 3a f2  65 72 72 6f 72 62 6f 78  |. .#B%:.errorbox|
000026d0  3a e1 0d 0c 94 36 20 20  20 20 20 20 a2 23 42 25  |:....6      .#B%|
000026e0  3d 30 3a d9 23 42 25 3a  42 25 3d 30 3a 73 70 6e  |=0:.#B%:B%=0:spn|
000026f0  61 6d 65 24 3d 22 2d 6d  61 69 6c 6e 6f 6e 65 22  |ame$="-mailnone"|
00002700  3a f2 63 68 61 6e 67 65  0d 0c 9e 28 20 20 20 20  |:.change...(    |
00002710  20 20 ff 22 53 65 74 74  79 70 65 20 3c 4d 61 69  |  ."Settype <Mai|
00002720  6c 24 43 75 72 72 65 6e  74 3e 20 54 65 78 74 22  |l$Current> Text"|
00002730  0d 0c a8 40 20 20 20 20  20 20 62 75 66 66 65 72  |...@      buffer|
00002740  25 21 31 32 3d 30 3a 62  75 66 66 65 72 25 21 31  |%!12=0:buffer%!1|
00002750  36 3d 35 3a 62 75 66 66  65 72 25 21 33 36 3d 30  |6=5:buffer%!36=0|
00002760  3a 62 75 66 66 65 72 25  21 34 30 3d 26 46 46 46  |:buffer%!40=&FFF|
00002770  0d 0c b2 42 20 20 20 20  20 20 43 25 3d a4 72 65  |...B      C%=.re|
00002780  61 64 56 61 72 28 63 75  72 72 65 6e 74 2c 62 75  |adVar(current,bu|
00002790  66 66 65 72 25 2b 34 34  2c 26 31 30 30 29 3a 21  |ffer%+44,&100):!|
000027a0  62 75 66 66 65 72 25 3d  34 37 2b 43 25 2b 31 80  |buffer%=47+C%+1.|
000027b0  ac 33 0d 0c bc 2c 20 20  20 20 20 20 c8 99 20 22  |.3...,      .. "|
000027c0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000027d0  22 2c 31 38 2c 62 75 66  66 65 72 25 2c 30 0d 0c  |",18,buffer%,0..|
000027e0  c6 09 20 20 20 20 cc 0d  0c d0 1e 20 20 20 20 20  |..    .....     |
000027f0  20 41 25 3d ad 22 3c 4d  61 69 6c 24 4c 6f 67 46  | A%=."<Mail$LogF|
00002800  69 6c 65 3e 22 0d 0c da  30 20 20 20 20 20 20 e7  |ile>"...0      .|
00002810  41 25 3d 30 20 41 25 3d  ae 22 3c 4d 61 69 6c 24  |A%=0 A%=."<Mail$|
00002820  4c 6f 67 46 69 6c 65 3e  22 20 8b 20 cf 23 41 25  |LogFile>" . .#A%|
00002830  3d a2 23 41 25 0d 0c e4  24 20 20 20 20 20 20 ee  |=.#A%...$      .|
00002840  85 20 ea 20 d9 23 41 25  3a d9 23 42 25 3a f2 65  |. . .#A%:.#B%:.e|
00002850  72 72 6f 72 62 6f 78 3a  e1 0d 0c ee 1b 20 20 20  |rrorbox:.....   |
00002860  20 20 20 f5 20 d5 23 41  25 2c be 23 42 25 3a fd  |   . .#A%,.#B%:.|
00002870  c5 23 42 25 0d 0c f8 13  20 20 20 20 20 20 d9 23  |.#B%....      .#|
00002880  41 25 3a 41 25 3d 30 0d  0d 02 1f 20 20 20 20 20  |A%:A%=0....     |
00002890  20 ee 85 20 ea 20 d9 23  42 25 3a f2 65 72 72 6f  | .. . .#B%:.erro|
000028a0  72 62 6f 78 3a e1 0d 0d  0c 36 20 20 20 20 20 20  |rbox:....6      |
000028b0  a2 23 42 25 3d 30 3a d9  23 42 25 3a 42 25 3d 30  |.#B%=0:.#B%:B%=0|
000028c0  3a 73 70 6e 61 6d 65 24  3d 22 2d 6d 61 69 6c 6e  |:spname$="-mailn|
000028d0  6f 6e 65 22 3a f2 63 68  61 6e 67 65 0d 0d 16 28  |one":.change...(|
000028e0  20 20 20 20 20 20 ff 22  53 65 74 74 79 70 65 20  |      ."Settype |
000028f0  3c 4d 61 69 6c 24 4c 6f  67 46 69 6c 65 3e 20 54  |<Mail$LogFile> T|
00002900  65 78 74 22 0d 0d 20 40  20 20 20 20 20 20 62 75  |ext".. @      bu|
00002910  66 66 65 72 25 21 31 32  3d 30 3a 62 75 66 66 65  |ffer%!12=0:buffe|
00002920  72 25 21 31 36 3d 35 3a  62 75 66 66 65 72 25 21  |r%!16=5:buffer%!|
00002930  33 36 3d 30 3a 62 75 66  66 65 72 25 21 34 30 3d  |36=0:buffer%!40=|
00002940  26 46 46 46 0d 0d 2a 42  20 20 20 20 20 20 43 25  |&FFF..*B      C%|
00002950  3d a4 72 65 61 64 56 61  72 28 6c 6f 67 66 69 6c  |=.readVar(logfil|
00002960  65 2c 62 75 66 66 65 72  25 2b 34 34 2c 26 31 30  |e,buffer%+44,&10|
00002970  30 29 3a 21 62 75 66 66  65 72 25 3d 34 37 2b 43  |0):!buffer%=47+C|
00002980  25 2b 31 80 ac 33 0d 0d  34 2c 20 20 20 20 20 20  |%+1..3..4,      |
00002990  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000029a0  73 61 67 65 22 2c 31 38  2c 62 75 66 66 65 72 25  |sage",18,buffer%|
000029b0  2c 30 0d 0d 3e 0b 20 20  20 20 cd 3a e1 0d 0d 48  |,0..>.    .:...H|
000029c0  07 20 20 cd 0d 0d 52 28  20 20 e7 20 61 24 3d 22  |.  ...R(  . a$="|
000029d0  53 61 76 65 20 63 68 6f  69 63 65 73 22 20 8c 20  |Save choices" . |
000029e0  f2 73 61 76 65 43 68 6f  69 63 65 73 0d 0d 5c 05  |.saveChoices..\.|
000029f0  cb 0d 0d 66 05 e1 0d 0d  70 05 20 0d 0d 7a 11 dd  |...f....p. ..z..|
00002a00  f2 72 65 74 61 69 6e 43  68 65 63 6b 0d 0d 84 41  |.retainCheck...A|
00002a10  20 e7 28 62 25 80 31 29  8c c8 99 20 43 72 4d 65  | .(b%.1)... CrMe|
00002a20  6e 75 2c 2c 6d 65 6e 75  64 61 74 61 25 2c 6d 6f  |nu,,menudata%,mo|
00002a30  75 73 65 78 25 2d 36 34  2c 39 36 2b 28 6d 65 6e  |usex%-64,96+(men|
00002a40  75 49 74 65 6d 73 25 2d  31 29 2a 34 34 0d 0d 8e  |uItems%-1)*44...|
00002a50  05 e1 0d 0d 98 05 20 0d  0d a2 0b dd 20 f2 76 61  |...... ..... .va|
00002a60  72 73 0d 0d ac 1e 57 69  6d 70 20 20 20 20 3d 20  |rs....Wimp    = |
00002a70  28 31 3c 3c 31 38 29 20  2b 20 28 33 3c 3c 36 29  |(1<<18) + (3<<6)|
00002a80  0d 0d b6 14 43 72 65 61  74 65 57 20 3d 20 57 69  |....CreateW = Wi|
00002a90  6d 70 2b 31 0d 0d c0 14  4f 70 65 6e 57 20 20 20  |mp+1....OpenW   |
00002aa0  3d 20 57 69 6d 70 2b 35  0d 0d ca 14 43 6c 6f 73  |= Wimp+5....Clos|
00002ab0  65 57 20 20 3d 20 57 69  6d 70 2b 36 0d 0d d4 14  |eW  = Wimp+6....|
00002ac0  52 65 64 72 61 77 57 20  3d 20 57 69 6d 70 2b 38  |RedrawW = Wimp+8|
00002ad0  0d 0d de 14 55 70 64 61  74 65 57 20 3d 20 57 69  |....UpdateW = Wi|
00002ae0  6d 70 2b 39 0d 0d e8 15  47 65 74 52 20 20 20 20  |mp+9....GetR    |
00002af0  3d 20 57 69 6d 70 2b 31  30 0d 0d f2 15 47 65 74  |= Wimp+10....Get|
00002b00  57 20 20 20 20 3d 20 57  69 6d 70 2b 31 31 0d 0d  |W    = Wimp+11..|
00002b10  fc 15 47 65 74 50 20 20  20 20 3d 20 57 69 6d 70  |..GetP    = Wimp|
00002b20  2b 31 35 0d 0e 06 15 44  72 61 67 20 20 20 20 3d  |+15....Drag    =|
00002b30  20 57 69 6d 70 2b 31 36  0d 0e 10 15 43 72 4d 65  | Wimp+16....CrMe|
00002b40  6e 75 20 20 3d 20 57 69  6d 70 2b 32 30 0d 0e 1a  |nu  = Wimp+20...|
00002b50  15 44 63 4d 65 6e 75 20  20 3d 20 57 69 6d 70 2b  |.DcMenu  = Wimp+|
00002b60  32 31 0d 0e 24 39 c8 99  20 22 4f 53 5f 53 57 49  |21..$9.. "OS_SWI|
00002b70  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
00002b80  22 2c 2c 22 58 57 69 6d  70 5f 50 6f 6c 6c 49 64  |",,"XWimp_PollId|
00002b90  6c 65 22 20 b8 20 50 6f  6c 6c 25 0d 0e 2e 3f c8  |le" . Poll%...?.|
00002ba0  99 20 22 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  |. "OS_SWINumberF|
00002bb0  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 22 4f 53 5f  |romString",,"OS_|
00002bc0  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
00002bd0  65 22 20 b8 20 54 69 6d  65 25 0d 0e 38 36 c8 99  |e" . Time%..86..|
00002be0  20 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  | "OS_SWINumberFr|
00002bf0  6f 6d 53 74 72 69 6e 67  22 2c 2c 22 4f 53 5f 53  |omString",,"OS_S|
00002c00  70 72 69 74 65 4f 70 22  20 b8 20 73 70 6f 70 25  |priteOp" . spop%|
00002c10  0d 0e 42 30 c8 99 20 22  4f 53 5f 53 57 49 4e 75  |..B0.. "OS_SWINu|
00002c20  6d 62 65 72 46 72 6f 6d  53 74 72 69 6e 67 22 2c  |mberFromString",|
00002c30  2c 22 4f 53 5f 47 42 50  42 22 20 b8 20 67 70 25  |,"OS_GBPB" . gp%|
00002c40  0d 0e 4c 05 e1 0d 0e 56  05 20 0d 0e 60 18 dd f2  |..L....V. ..`...|
00002c50  72 65 70 6f 72 74 28 65  72 72 25 2c 6d 65 73 73  |report(err%,mess|
00002c60  24 29 0d 0e 6a 5a c8 99  20 44 72 61 67 2c 2c 2d  |$)..jZ.. Drag,,-|
00002c70  31 3a 21 62 75 66 66 65  72 25 3d 65 72 72 25 3a  |1:!buffer%=err%:|
00002c80  24 28 62 75 66 66 65 72  25 2b 34 29 3d 6d 65 73  |$(buffer%+4)=mes|
00002c90  73 24 3a c8 99 22 57 69  6d 70 5f 52 65 70 6f 72  |s$:.."Wimp_Repor|
00002ca0  74 45 72 72 6f 72 22 2c  62 75 66 66 65 72 25 2c  |tError",buffer%,|
00002cb0  31 2c 22 4d 61 69 6c 20  4d 61 6e 22 0d 0e 74 05  |1,"Mail Man"..t.|
00002cc0  e1 0d 0e 7e 05 20 0d 0e  88 41 dd 20 f2 65 72 72  |...~. ...A. .err|
00002cd0  6f 72 62 6f 78 20 3a f4  20 52 65 70 6f 72 74 20  |orbox :. Report |
00002ce0  65 72 72 6f 72 2c 20 77  69 74 68 20 6c 69 6e 65  |error, with line|
00002cf0  20 6e 75 6d 62 65 72 20  69 66 20 65 72 72 6f 72  | number if error|
00002d00  20 3c 20 32 30 30 30 0d  0e 92 63 e7 20 28 9f 20  | < 2000...c. (. |
00002d10  3c 20 32 30 30 30 29 20  80 20 69 6e 74 65 72 6e  |< 2000) . intern|
00002d20  61 6c 25 20 8c 20 f2 72  65 70 6f 72 74 28 9f 2c  |al% . .report(.,|
00002d30  f6 24 2b 22 20 28 69 6e  74 65 72 6e 61 6c 20 65  |.$+" (internal e|
00002d40  72 72 6f 72 20 63 6f 64  65 20 22 2b c3 9e 2b 22  |rror code "+..+"|
00002d50  29 2e 22 2b bd 30 29 20  8b 20 f2 72 65 70 6f 72  |)."+.0) . .repor|
00002d60  74 28 9f 2c f6 24 2b bd  30 29 0d 0e 9c 05 e1 0d  |t(.,.$+.0)......|
00002d70  0e a6 05 20 0d 0e b0 0e  dd 20 a4 69 63 6f 6e 62  |... ..... .iconb|
00002d80  61 72 0d 0e ba 4e 21 69  63 6f 6e 73 25 3d 2d 31  |ar...N!icons%=-1|
00002d90  3a 69 63 6f 6e 73 25 21  34 3d 30 3a 69 63 6f 6e  |:icons%!4=0:icon|
00002da0  73 25 21 38 3d 30 3a 69  63 6f 6e 73 25 21 31 32  |s%!8=0:icons%!12|
00002db0  3d 34 37 3a 69 63 6f 6e  73 25 21 31 36 3d 36 38  |=47:icons%!16=68|
00002dc0  3a 69 63 6f 6e 73 25 21  32 30 3d 26 33 31 30 32  |:icons%!20=&3102|
00002dd0  0d 0e c4 17 73 70 6e 61  6d 65 24 3d 22 2d 6d 61  |....spname$="-ma|
00002de0  69 6c 68 6f 6c 65 22 0d  0e ce 27 de 20 69 63 6f  |ilhole"...'. ico|
00002df0  6e 73 25 21 32 34 20 31  32 3a 24 28 69 63 6f 6e  |ns%!24 12:$(icon|
00002e00  73 25 21 32 34 29 3d 73  70 6e 61 6d 65 24 0d 0e  |s%!24)=spname$..|
00002e10  d8 23 69 63 6f 6e 73 25  21 32 38 3d 73 70 72 69  |.#icons%!28=spri|
00002e20  74 65 73 25 3a 69 63 6f  6e 73 25 21 33 32 3d 31  |tes%:icons%!32=1|
00002e30  31 0d 0e e2 26 c8 99 20  22 57 69 6d 70 5f 43 72  |1...&.. "Wimp_Cr|
00002e40  65 61 74 65 49 63 6f 6e  22 2c 2c 69 63 6f 6e 73  |eateIcon",,icons|
00002e50  25 20 b8 20 69 63 25 0d  0e ec 08 3d 69 63 25 0d  |% . ic%....=ic%.|
00002e60  0e f6 05 20 0d 0f 00 16  dd 20 f2 6e 75 64 67 65  |... ..... .nudge|
00002e70  28 6e 6f 64 65 6c 61 79  25 29 0d 0f 0a 20 ea 20  |(nodelay%)... . |
00002e80  50 25 2c 66 30 25 2c 66  31 25 2c 66 32 25 2c 66  |P%,f0%,f1%,f2%,f|
00002e90  33 25 2c 66 34 25 2c 66  35 25 0d 0f 14 10 e7 20  |3%,f4%,f5%..... |
00002ea0  6e 6f 64 65 6c 61 79 25  20 8c 0d 0f 1e 39 20 20  |nodelay% ....9  |
00002eb0  c8 99 20 22 4e 65 74 46  53 5f 52 65 61 64 46 53  |.. "NetFS_ReadFS|
00002ec0  54 69 6d 65 6f 75 74 73  22 20 b8 20 66 30 25 2c  |Timeouts" . f0%,|
00002ed0  66 31 25 2c 66 32 25 2c  66 33 25 2c 66 34 25 2c  |f1%,f2%,f3%,f4%,|
00002ee0  66 35 25 0d 0f 28 2d 20  20 c8 99 20 22 4e 65 74  |f5%..(-  .. "Net|
00002ef0  46 53 5f 53 65 74 46 53  54 69 6d 65 6f 75 74 73  |FS_SetFSTimeouts|
00002f00  22 2c 35 2c 34 2c 35 2c  34 2c 31 30 30 2c 32 30  |",5,4,5,4,100,20|
00002f10  0d 0f 32 33 20 20 c8 99  20 22 58 4f 53 5f 46 69  |..23  .. "XOS_Fi|
00002f20  6c 65 22 2c 35 2c 6d 6e  61 6d 65 24 20 b8 20 72  |le",5,mname$ . r|
00002f30  30 2c 2c 72 32 2c 72 33  2c 72 34 2c 72 35 20 3b  |0,,r2,r3,r4,r5 ;|
00002f40  20 50 25 0d 0f 3c 36 20  20 c8 99 20 22 4e 65 74  | P%..<6  .. "Net|
00002f50  46 53 5f 53 65 74 46 53  54 69 6d 65 6f 75 74 73  |FS_SetFSTimeouts|
00002f60  22 2c 66 30 25 2c 66 31  25 2c 66 32 25 2c 66 33  |",f0%,f1%,f2%,f3|
00002f70  25 2c 66 34 25 2c 66 35  25 0d 0f 46 10 20 20 e7  |%,f4%,f5%..F.  .|
00002f80  20 50 25 20 80 20 31 20  8c 0d 0f 50 1a 20 20 20  | P% . 1 ...P.   |
00002f90  20 e7 20 64 65 6c 61 79  25 3c 3e 6c 6f 64 65 6c  | . delay%<>lodel|
00002fa0  25 20 8c 0d 0f 5a 22 20  20 20 20 20 20 64 65 6c  |% ...Z"      del|
00002fb0  61 79 25 3d 6c 6f 64 65  6c 25 3a 63 6f 75 6e 74  |ay%=lodel%:count|
00002fc0  25 3d 36 3a e1 0d 0f 64  09 20 20 20 20 cc 0d 0f  |%=6:...d.    ...|
00002fd0  6e 46 20 20 20 20 20 20  63 6f 75 6e 74 25 2d 3d  |nF      count%-=|
00002fe0  31 3a e7 63 6f 75 6e 74  25 3d 30 20 64 65 6c 61  |1:.count%=0 dela|
00002ff0  79 25 3d 68 69 64 65 6c  25 3a 73 70 6e 61 6d 65  |y%=hidel%:spname|
00003000  24 3d 22 2d 6d 61 69 6c  75 6e 6b 22 3a f2 63 68  |$="-mailunk":.ch|
00003010  61 6e 67 65 0d 0f 78 0f  20 20 20 20 20 20 f2 74  |ange..x.      .t|
00003020  69 63 6b 0d 0f 82 0b 20  20 20 20 20 20 e1 0d 0f  |ick....      ...|
00003030  8c 09 20 20 20 20 cd 0d  0f 96 07 20 20 cc 0d 0f  |..    .....  ...|
00003040  a0 15 20 20 20 20 64 65  6c 61 79 25 3d 68 69 64  |..    delay%=hid|
00003050  65 6c 25 0d 0f aa 07 20  20 cd 0d 0f b4 05 cc 0d  |el%....  .......|
00003060  0f be 33 20 20 c8 99 20  22 58 4f 53 5f 46 69 6c  |..3  .. "XOS_Fil|
00003070  65 22 2c 35 2c 6d 6e 61  6d 65 24 20 b8 20 72 30  |e",5,mname$ . r0|
00003080  2c 2c 72 32 2c 72 33 2c  72 34 2c 72 35 20 3b 20  |,,r2,r3,r4,r5 ; |
00003090  50 25 0d 0f c8 33 20 20  e7 20 50 25 20 80 20 31  |P%...3  . P% . 1|
000030a0  20 8c 20 73 70 6e 61 6d  65 24 3d 22 2d 6d 61 69  | . spname$="-mai|
000030b0  6c 75 6e 6b 22 3a f2 63  68 61 6e 67 65 3a f2 74  |lunk":.change:.t|
000030c0  69 63 6b 3a e1 0d 0f d2  05 cd 0d 0f dc 0b c8 8e  |ick:............|
000030d0  20 72 30 20 ca 0d 0f e6  2f c9 20 31 3a e7 20 72  | r0 ..../. 1:. r|
000030e0  34 20 80 20 73 70 6e 61  6d 65 24 3c 3e 22 2d 6d  |4 . spname$<>"-m|
000030f0  61 69 6c 66 75 6c 6c 22  20 80 20 62 6f 6e 67 20  |ailfull" . bong |
00003100  8c 20 ef 37 0d 0f f0 32  e7 20 72 34 20 73 70 6e  |. .7...2. r4 spn|
00003110  61 6d 65 24 3d 22 2d 6d  61 69 6c 66 75 6c 6c 22  |ame$="-mailfull"|
00003120  20 8b 20 73 70 6e 61 6d  65 24 3d 22 2d 6d 61 69  | . spname$="-mai|
00003130  6c 6e 6f 6e 65 22 0d 0f  fa 18 7f 20 73 70 6e 61  |lnone"..... spna|
00003140  6d 65 24 3d 22 2d 6d 61  69 6c 75 6e 6b 22 0d 10  |me$="-mailunk"..|
00003150  04 05 cb 0d 10 0e 0b f2  63 68 61 6e 67 65 0d 10  |........change..|
00003160  18 09 f2 74 69 63 6b 0d  10 22 05 e1 0d 10 2c 05  |...tick.."....,.|
00003170  20 0d 10 36 0b dd 20 f2  74 69 63 6b 0d 10 40 18  | ..6.. .tick..@.|
00003180  c8 99 20 54 69 6d 65 25  20 b8 20 74 69 6d 65 73  |.. Time% . times|
00003190  6c 69 70 25 0d 10 4a 2a  c8 95 74 69 6d 65 73 6c  |lip%..J*..timesl|
000031a0  69 70 25 2d 74 69 6d 65  78 25 3e 3d 30 3a 74 69  |ip%-timex%>=0:ti|
000031b0  6d 65 78 25 2b 3d 64 65  6c 61 79 25 3a ce 0d 10  |mex%+=delay%:...|
000031c0  54 05 e1 0d 10 5e 05 20  0d 10 68 0d dd 20 f2 63  |T....^. ..h.. .c|
000031d0  68 61 6e 67 65 0d 10 72  2a c8 99 20 73 70 6f 70  |hange..r*.. spop|
000031e0  25 2c 26 31 31 38 2c 73  70 72 69 74 65 73 25 2c  |%,&118,sprites%,|
000031f0  73 70 6e 61 6d 65 24 20  b8 2c 2c 73 72 63 25 0d  |spname$ .,,src%.|
00003200  10 7c 2f c8 99 20 73 70  6f 70 25 2c 26 31 31 38  |.|/.. spop%,&118|
00003210  2c 73 70 72 69 74 65 73  25 2c 22 2d 6d 61 69 6c  |,sprites%,"-mail|
00003220  68 6f 6c 65 22 20 b8 2c  2c 64 65 73 74 25 0d 10  |hole" .,,dest%..|
00003230  86 27 e3 7a 25 3d 34 34  b8 21 73 72 63 25 2d 31  |.'.z%=44.!src%-1|
00003240  88 34 3a 64 65 73 74 25  21 7a 25 3d 73 72 63 25  |.4:dest%!z%=src%|
00003250  21 7a 25 3a ed 0d 10 90  26 21 71 25 3d 2d 31 3a  |!z%:....&!q%=-1:|
00003260  71 25 21 34 3d 69 63 6d  61 69 6c 25 3a 71 25 21  |q%!4=icmail%:q%!|
00003270  38 3d 30 3a 71 25 21 31  32 3d 30 0d 10 9a 1e c8  |8=0:q%!12=0.....|
00003280  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00003290  74 61 74 65 22 2c 2c 71  25 0d 10 a4 05 e1 0d 10  |tate",,q%.......|
000032a0  ae 05 20 0d 10 b8 15 dd  20 f2 70 6f 70 75 70 28  |.. ..... .popup(|
000032b0  68 61 6e 64 6c 65 25 29  0d 10 c2 12 f2 67 65 74  |handle%).....get|
000032c0  77 28 68 61 6e 64 6c 65  25 29 0d 10 cc 26 78 6f  |w(handle%)...&xo|
000032d0  25 3d 6d 6f 75 73 65 78  25 2d 28 78 30 25 2b 78  |%=mousex%-(x0%+x|
000032e0  31 25 29 2f 32 3a 79 6f  25 3d 39 36 2d 79 30 25  |1%)/2:yo%=96-y0%|
000032f0  0d 10 d6 46 f2 6f 70 65  6e 5f 77 69 6e 64 6f 77  |...F.open_window|
00003300  28 68 61 6e 64 6c 65 25  2c 78 30 25 2b 78 6f 25  |(handle%,x0%+xo%|
00003310  2c 79 30 25 2b 79 6f 25  2c 78 31 25 2b 78 6f 25  |,y0%+yo%,x1%+xo%|
00003320  2c 79 31 25 2b 79 6f 25  2c 73 63 78 25 2c 73 63  |,y1%+yo%,scx%,sc|
00003330  79 25 2c 2d 31 29 0d 10  e0 05 e1 0d 10 ea 05 20  |y%,-1)......... |
00003340  0d 10 f4 16 dd 20 f2 72  65 6f 70 65 6e 28 68 61  |..... .reopen(ha|
00003350  6e 64 6c 65 25 29 0d 10  fe 12 f2 67 65 74 77 28  |ndle%).....getw(|
00003360  68 61 6e 64 6c 65 25 29  0d 11 08 46 f2 6f 70 65  |handle%)...F.ope|
00003370  6e 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |n_window(handle%|
00003380  2c 78 6f 25 2c 79 6f 25  2c 78 31 25 2d 78 30 25  |,xo%,yo%,x1%-x0%|
00003390  2b 78 6f 25 2c 79 31 25  2d 79 30 25 2b 79 6f 25  |+xo%,y1%-y0%+yo%|
000033a0  2c 73 63 78 25 2c 73 63  79 25 2c 2d 31 29 0d 11  |,scx%,scy%,-1)..|
000033b0  12 05 e1 0d 11 1c 05 20  0d 11 26 3e dd 20 f2 6f  |....... ..&>. .o|
000033c0  70 65 6e 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |pen_window(handl|
000033d0  65 25 2c 78 30 25 2c 79  30 25 2c 78 31 25 2c 79  |e%,x0%,y0%,x1%,y|
000033e0  31 25 2c 73 63 78 25 2c  73 63 79 25 2c 62 68 61  |1%,scx%,scy%,bha|
000033f0  6e 64 6c 65 25 29 0d 11  30 11 e7 68 61 6e 64 6c  |ndle%)..0..handl|
00003400  65 25 3d 2d 31 8c e1 0d  11 3a 1f 71 25 21 30 3d  |e%=-1....:.q%!0=|
00003410  68 61 6e 64 6c 65 25 3a  71 25 21 32 38 3d 62 68  |handle%:q%!28=bh|
00003420  61 6e 64 6c 65 25 0d 11  44 29 71 25 21 34 3d 78  |andle%..D)q%!4=x|
00003430  30 25 3a 71 25 21 38 3d  79 30 25 3a 71 25 21 31  |0%:q%!8=y0%:q%!1|
00003440  32 3d 78 31 25 3a 71 25  21 31 36 3d 79 31 25 0d  |2=x1%:q%!16=y1%.|
00003450  11 4e 19 71 25 21 32 30  3d 73 63 78 25 3a 71 25  |.N.q%!20=scx%:q%|
00003460  21 32 34 3d 73 63 79 25  0d 11 58 10 c8 99 20 4f  |!24=scy%..X... O|
00003470  70 65 6e 57 2c 2c 71 25  0d 11 62 05 e1 0d 11 6c  |penW,,q%..b....l|
00003480  05 20 0d 11 76 14 dd 20  f2 67 65 74 77 28 68 61  |. ..v.. .getw(ha|
00003490  6e 64 6c 65 25 29 0d 11  80 1b 21 71 25 3d 68 61  |ndle%)....!q%=ha|
000034a0  6e 64 6c 65 25 3a c8 99  20 47 65 74 57 2c 2c 71  |ndle%:.. GetW,,q|
000034b0  25 0d 11 8a 2b f2 69 6e  66 6f 28 71 25 2b 34 29  |%...+.info(q%+4)|
000034c0  3a 62 68 61 6e 64 6c 65  25 3d 71 25 21 32 38 3a  |:bhandle%=q%!28:|
000034d0  66 6c 61 67 73 25 3d 71  25 21 33 32 0d 11 94 05  |flags%=q%!32....|
000034e0  e1 0d 11 9e 05 20 0d 11  a8 0f dd 20 f2 69 6e 66  |..... ..... .inf|
000034f0  6f 28 71 25 29 0d 11 b2  3d 78 30 25 3d 21 71 25  |o(q%)...=x0%=!q%|
00003500  3a 79 30 25 3d 71 25 21  34 3a 78 31 25 3d 71 25  |:y0%=q%!4:x1%=q%|
00003510  21 38 3a 79 31 25 3d 71  25 21 31 32 3a 73 63 78  |!8:y1%=q%!12:scx|
00003520  25 3d 71 25 21 31 36 3a  73 63 79 25 3d 71 25 21  |%=q%!16:scy%=q%!|
00003530  32 30 0d 11 bc 1d 62 78  25 3d 78 30 25 2d 73 63  |20....bx%=x0%-sc|
00003540  78 25 3a 62 79 25 3d 79  31 25 2d 73 63 79 25 0d  |x%:by%=y1%-scy%.|
00003550  11 c6 05 e1 0d 11 d0 05  20 0d 11 da 2a dd 20 f2  |........ ...*. .|
00003560  75 70 64 61 74 65 28 68  61 6e 64 6c 65 25 2c 75  |update(handle%,u|
00003570  78 30 25 2c 75 79 30 25  2c 75 78 31 25 2c 75 79  |x0%,uy0%,ux1%,uy|
00003580  31 25 29 0d 11 e4 39 21  71 25 3d 68 61 6e 64 6c  |1%)...9!q%=handl|
00003590  65 25 3a 71 25 21 34 3d  75 78 30 25 3a 71 25 21  |e%:q%!4=ux0%:q%!|
000035a0  38 3d 75 79 30 25 3a 71  25 21 31 32 3d 75 78 31  |8=uy0%:q%!12=ux1|
000035b0  25 3a 71 25 21 31 36 3d  75 79 31 25 0d 11 ee 26  |%:q%!16=uy1%...&|
000035c0  c8 99 20 55 70 64 61 74  65 57 2c 2c 71 25 20 b8  |.. UpdateW,,q% .|
000035d0  20 6d 6f 72 65 25 3a f2  69 6e 66 6f 28 71 25 2b  | more%:.info(q%+|
000035e0  34 29 0d 11 f8 05 e1 0d  12 02 05 20 0d 12 0c 1d  |4)......... ....|
000035f0  dd 20 f2 72 65 64 72 61  77 5f 77 69 6e 64 6f 77  |. .redraw_window|
00003600  28 68 61 6e 64 6c 65 25  29 0d 12 16 16 e7 68 61  |(handle%).....ha|
00003610  6e 64 6c 65 25 3d 6d 61  69 6c 74 6f 25 20 8c 0d  |ndle%=mailto% ..|
00003620  12 20 0f 21 71 25 3d 68  61 6e 64 6c 65 25 0d 12  |. .!q%=handle%..|
00003630  2a 1a c8 99 20 52 65 64  72 61 77 57 2c 2c 71 25  |*... RedrawW,,q%|
00003640  20 b8 20 6d 6f 72 65 25  0d 12 34 0f f2 69 6e 66  | . more%..4..inf|
00003650  6f 28 71 25 2b 34 29 0d  12 3e 05 cd 0d 12 48 05  |o(q%+4)..>....H.|
00003660  e1 0d 12 52 05 20 0d 12  5c 11 dd 20 f2 67 65 74  |...R. ..\.. .get|
00003670  70 6f 69 6e 74 65 72 0d  12 66 14 c8 99 20 47 65  |pointer..f... Ge|
00003680  74 50 2c 2c 62 75 66 66  65 72 25 0d 12 70 66 6d  |tP,,buffer%..pfm|
00003690  6f 75 73 65 78 25 3d 21  62 75 66 66 65 72 25 3a  |ousex%=!buffer%:|
000036a0  6d 6f 75 73 65 79 25 3d  62 75 66 66 65 72 25 21  |mousey%=buffer%!|
000036b0  34 3a 62 25 3d 62 75 66  66 65 72 25 21 38 3a 68  |4:b%=buffer%!8:h|
000036c0  61 6e 64 6c 65 25 3d 62  75 66 66 65 72 25 21 31  |andle%=buffer%!1|
000036d0  32 3a 69 63 6f 6e 25 3d  62 75 66 66 65 72 25 21  |2:icon%=buffer%!|
000036e0  31 36 3a 6f 62 25 3d 62  75 66 66 65 72 25 21 32  |16:ob%=buffer%!2|
000036f0  30 0d 12 7a 05 e1 0d 12  84 05 20 0d 12 8e 38 dd  |0..z...... ...8.|
00003700  20 f2 63 6c 6f 73 65 5f  77 69 6e 64 6f 77 28 68  | .close_window(h|
00003710  61 6e 64 6c 65 25 29 3a  21 71 25 3d 68 61 6e 64  |andle%):!q%=hand|
00003720  6c 65 25 3a c8 99 20 43  6c 6f 73 65 57 2c 2c 71  |le%:.. CloseW,,q|
00003730  25 3a e1 0d 12 98 05 20  0d 12 a2 22 dd f2 73 65  |%:..... ..."..se|
00003740  74 4f 70 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |tOpt(window%,ico|
00003750  6e 25 2c 73 74 61 74 65  25 29 0d 12 ac 48 20 21  |n%,state%)...H !|
00003760  6f 70 74 62 75 66 66 25  3d 77 69 6e 64 6f 77 25  |optbuff%=window%|
00003770  3a 6f 70 74 62 75 66 66  25 21 34 3d 69 63 6f 6e  |:optbuff%!4=icon|
00003780  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |%:.. "Wimp_GetIc|
00003790  6f 6e 53 74 61 74 65 22  2c 2c 6f 70 74 62 75 66  |onState",,optbuf|
000037a0  66 25 0d 12 b6 3d 20 e7  73 74 61 74 65 25 20 24  |f%...= .state% $|
000037b0  28 6f 70 74 62 75 66 66  25 2b 32 38 29 3d 22 6f  |(optbuff%+28)="o|
000037c0  70 74 6f 6e 22 20 8b 20  24 28 6f 70 74 62 75 66  |pton" . $(optbuf|
000037d0  66 25 2b 32 38 29 3d 22  6f 70 74 6f 66 66 22 0d  |f%+28)="optoff".|
000037e0  12 c0 45 20 21 6f 70 74  62 75 66 66 25 3d 77 69  |..E !optbuff%=wi|
000037f0  6e 64 6f 77 25 3a 6f 70  74 62 75 66 66 25 21 34  |ndow%:optbuff%!4|
00003800  3d 69 63 6f 6e 25 3a c8  99 22 57 69 6d 70 5f 44  |=icon%:.."Wimp_D|
00003810  65 6c 65 74 65 49 63 6f  6e 22 2c 2c 6f 70 74 62  |eleteIcon",,optb|
00003820  75 66 66 25 0d 12 ca 37  20 6f 70 74 62 75 66 66  |uff%...7 optbuff|
00003830  25 21 34 3d 77 69 6e 64  6f 77 25 3a c8 99 22 57  |%!4=window%:.."W|
00003840  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00003850  2c 6f 70 74 62 75 66 66  25 2b 34 0d 12 d4 45 20  |,optbuff%+4...E |
00003860  21 71 25 3d 77 69 6e 64  6f 77 25 3a 71 25 21 34  |!q%=window%:q%!4|
00003870  3d 69 63 6f 6e 25 3a 71  25 21 38 3d 30 3a 71 25  |=icon%:q%!8=0:q%|
00003880  21 31 32 3d 30 3a c8 99  20 22 57 69 6d 70 5f 53  |!12=0:.. "Wimp_S|
00003890  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
000038a0  0d 12 de 05 e1 0d 12 e8  05 20 0d 12 f2 1d dd a4  |......... ......|
000038b0  68 65 6c 70 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |help(window%,ico|
000038c0  6e 25 2c 74 6f 25 29 0d  12 fc 0b 24 74 6f 25 3d  |n%,to%)....$to%=|
000038d0  22 22 0d 13 06 10 c8 8e  20 77 69 6e 64 6f 77 25  |""...... window%|
000038e0  20 ca 0d 13 10 09 20 c9  20 2d 32 0d 13 1a 28 20  | ..... . -2...( |
000038f0  20 24 74 6f 25 3d 22 54  68 69 73 20 69 73 20 74  | $to%="This is t|
00003900  68 65 20 4d 61 69 6c 4d  61 6e 20 69 63 6f 6e 2e  |he MailMan icon.|
00003910  7c 4d 22 0d 13 24 1e 20  20 e7 20 73 70 6e 61 6d  ||M"..$.  . spnam|
00003920  65 24 20 3d 20 22 2d 6d  61 69 6c 75 6e 6b 22 20  |e$ = "-mailunk" |
00003930  8c 0d 13 2e 51 20 20 20  24 74 6f 25 20 2b 3d 20  |....Q   $to% += |
00003940  22 54 68 65 20 4d 61 69  6c 4d 61 6e 20 63 61 6e  |"The MailMan can|
00003950  6e 6f 74 20 66 69 6e 64  20 74 68 65 20 6e 65 74  |not find the net|
00003960  77 6f 72 6b 20 6d 61 69  6c 69 6e 67 20 73 79 73  |work mailing sys|
00003970  74 65 6d 20 61 74 20 70  72 65 73 65 6e 74 2e 7c  |tem at present.||
00003980  4d 22 0d 13 38 07 20 20  cc 0d 13 42 5b 20 20 20  |M"..8.  ...B[   |
00003990  24 74 6f 25 20 2b 3d 20  22 44 72 61 67 20 74 65  |$to% += "Drag te|
000039a0  78 74 20 66 69 6c 65 73  20 74 6f 20 74 68 65 20  |xt files to the |
000039b0  69 63 6f 6e 20 74 6f 20  73 65 6e 64 20 74 68 65  |icon to send the|
000039c0  6d 20 76 69 61 20 74 68  65 20 65 6c 65 63 74 72  |m via the electr|
000039d0  6f 6e 69 63 20 6d 61 69  6c 20 73 79 73 74 65 6d  |onic mail system|
000039e0  2e 7c 4d 22 0d 13 4c 72  20 20 20 e7 20 73 70 6e  |.|M"..Lr   . spn|
000039f0  61 6d 65 24 20 3d 20 22  2d 6d 61 69 6c 66 75 6c  |ame$ = "-mailful|
00003a00  6c 22 20 8c 20 24 74 6f  25 20 2b 3d 20 22 54 68  |l" . $to% += "Th|
00003a10  65 72 65 20 69 73 20 6d  61 69 6c 20 77 61 69 74  |ere is mail wait|
00003a20  69 6e 67 20 74 6f 20 62  65 20 72 65 61 64 2e 20  |ing to be read. |
00003a30  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 6f 6e 20  |Click SELECT on |
00003a40  74 68 65 20 69 63 6f 6e  20 74 6f 20 66 65 74 63  |the icon to fetc|
00003a50  68 20 69 74 2e 22 0d 13  56 07 20 20 cd 0d 13 60  |h it."..V.  ...`|
00003a60  0f 20 c9 20 6d 61 69 6c  74 6f 25 3a 0d 13 6a 1a  |. . mailto%:..j.|
00003a70  20 20 24 74 6f 25 3d 22  43 6c 69 63 6b 20 53 45  |  $to%="Click SE|
00003a80  4c 45 43 54 20 22 0d 13  74 10 20 20 c8 8e 20 69  |LECT "..t.  .. i|
00003a90  63 6f 6e 25 20 ca 0d 13  7e 8a 20 20 20 c9 20 30  |con% ...~.   . 0|
00003aa0  3a 20 24 74 6f 25 2b 3d  22 61 6e 64 20 74 79 70  |: $to%+="and typ|
00003ab0  65 20 74 68 65 20 6d 61  69 6c 20 6e 61 6d 65 20  |e the mail name |
00003ac0  6f 66 20 74 68 65 20 72  65 63 69 70 69 65 6e 74  |of the recipient|
00003ad0  20 6f 66 20 74 68 65 20  6d 61 69 6c 2e 7c 4d 59  | of the mail.|MY|
00003ae0  6f 75 20 6d 61 79 20 65  6e 74 65 72 20 6d 6f 72  |ou may enter mor|
00003af0  65 20 74 68 61 6e 20 6f  6e 65 20 6e 61 6d 65 20  |e than one name |
00003b00  62 79 20 73 65 70 61 72  61 74 69 6e 67 20 74 68  |by separating th|
00003b10  65 6d 20 77 69 74 68 20  63 6f 6d 6d 61 73 2e 22  |em with commas."|
00003b20  0d 13 88 a1 20 20 20 c9  20 31 3a 20 24 74 6f 25  |....   . 1: $to%|
00003b30  2b 3d 22 61 6e 64 20 74  79 70 65 20 74 68 65 20  |+="and type the |
00003b40  6d 61 69 6c 20 6e 61 6d  65 20 6f 66 20 61 6e 79  |mail name of any|
00003b50  6f 6e 65 20 74 6f 20 77  68 6f 6d 20 63 6f 70 69  |one to whom copi|
00003b60  65 73 20 6f 66 20 74 68  65 20 6d 61 69 6c 20 73  |es of the mail s|
00003b70  68 6f 75 6c 64 20 62 65  20 73 65 6e 74 2e 7c 4d  |hould be sent.|M|
00003b80  59 6f 75 20 6d 61 79 20  65 6e 74 65 72 20 6d 6f  |You may enter mo|
00003b90  72 65 20 74 68 61 6e 20  6f 6e 65 20 6e 61 6d 65  |re than one name|
00003ba0  20 62 79 20 73 65 70 61  72 61 74 69 6e 67 20 74  | by separating t|
00003bb0  68 65 6d 20 77 69 74 68  20 63 6f 6d 6d 61 73 2e  |hem with commas.|
00003bc0  22 0d 13 92 60 20 20 20  c9 20 32 3a 20 24 74 6f  |"...`   . 2: $to|
00003bd0  25 2b 3d 22 61 6e 64 20  74 79 70 65 20 69 6e 20  |%+="and type in |
00003be0  74 68 65 20 73 75 62 6a  65 63 74 20 6f 66 20 74  |the subject of t|
00003bf0  68 65 20 6d 61 69 6c 2e  7c 4d 50 72 65 73 73 69  |he mail.|MPressi|
00003c00  6e 67 20 72 65 74 75 72  6e 20 68 65 72 65 20 73  |ng return here s|
00003c10  65 6e 64 73 20 74 68 65  20 6d 61 69 6c 2e 7c 4d  |ends the mail.|M|
00003c20  22 0d 13 9c 77 20 20 20  c9 20 33 3a 20 24 74 6f  |"...w   . 3: $to|
00003c30  25 2b 3d 22 61 6e 64 20  74 79 70 65 20 74 68 65  |%+="and type the|
00003c40  20 6e 61 6d 65 20 74 6f  20 62 65 20 75 73 65 64  | name to be used|
00003c50  20 66 6f 72 20 74 68 65  20 73 65 6e 64 65 72 20  | for the sender |
00003c60  6f 66 20 74 68 65 20 6d  61 69 6c 2e 7c 4d 59 6f  |of the mail.|MYo|
00003c70  75 20 77 69 6c 6c 20 6e  6f 74 20 75 73 75 61 6c  |u will not usual|
00003c80  6c 79 20 6e 65 65 64 20  74 6f 20 63 68 61 6e 67  |ly need to chang|
00003c90  65 20 74 68 69 73 2e 22  0d 13 a6 68 20 20 20 c9  |e this."...h   .|
00003ca0  20 34 3a 20 24 74 6f 25  2b 3d 22 61 6e 64 20 74  | 4: $to%+="and t|
00003cb0  79 70 65 20 69 6e 20 74  68 65 20 6e 61 6d 65 20  |ype in the name |
00003cc0  6f 66 20 74 68 65 20 66  69 6c 65 20 74 6f 20 73  |of the file to s|
00003cd0  65 6e 64 2e 7c 4d 59 6f  75 20 77 69 6c 6c 20 6e  |end.|MYou will n|
00003ce0  6f 74 20 75 73 75 61 6c  6c 79 20 6e 65 65 64 20  |ot usually need |
00003cf0  74 6f 20 63 68 61 6e 67  65 20 74 68 69 73 2e 22  |to change this."|
00003d00  0d 13 b0 82 20 20 20 c9  20 31 31 3a 20 24 74 6f  |....   . 11: $to|
00003d10  25 2b 3d 22 74 6f 20 73  65 74 20 77 68 65 74 68  |%+="to set wheth|
00003d20  65 72 20 61 6e 20 61 63  6b 6e 6f 77 6c 65 64 67  |er an acknowledg|
00003d30  65 6d 65 6e 74 20 6f 66  20 72 65 63 69 70 74 20  |ement of recipt |
00003d40  6f 66 20 74 68 65 20 6d  61 69 6c 20 69 73 20 74  |of the mail is t|
00003d50  6f 20 62 65 20 73 65 6e  74 20 62 61 63 6b 2e 7c  |o be sent back.||
00003d60  4d 54 68 65 20 63 75 72  72 65 6e 74 20 73 65 74  |MThe current set|
00003d70  74 69 6e 67 20 69 73 20  66 6f 72 20 6d 61 69 6c  |ting is for mail|
00003d80  20 22 0d 13 ba 4d 20 20  20 20 e7 20 61 63 6b 20  | "...M    . ack |
00003d90  8c 20 24 74 6f 25 2b 3d  22 74 6f 20 62 65 20 61  |. $to%+="to be a|
00003da0  63 6b 6e 6f 77 6c 65 64  67 65 64 2e 22 20 8b 20  |cknowledged." . |
00003db0  24 74 6f 25 2b 3d 22 6e  6f 74 20 74 6f 20 62 65  |$to%+="not to be|
00003dc0  20 61 63 6b 6e 6f 77 6c  65 64 67 65 64 2e 22 0d  | acknowledged.".|
00003dd0  13 c4 11 20 20 20 7f 3a  20 24 74 6f 25 3d 22 22  |...   .: $to%=""|
00003de0  0d 13 ce 07 20 20 cb 0d  13 d8 15 20 c9 20 63 68  |....  ..... . ch|
00003df0  6f 69 63 65 73 77 69 6e  64 6f 77 25 0d 13 e2 1a  |oiceswindow%....|
00003e00  20 20 24 74 6f 25 3d 22  43 6c 69 63 6b 20 53 45  |  $to%="Click SE|
00003e10  4c 45 43 54 20 22 0d 13  ec 10 20 20 c8 8e 20 69  |LECT "....  .. i|
00003e20  63 6f 6e 25 20 ca 0d 13  f6 33 20 20 20 c9 20 30  |con% ....3   . 0|
00003e30  3a 20 24 74 6f 25 2b 3d  22 74 6f 20 73 65 74 20  |: $to%+="to set |
00003e40  74 68 65 20 69 6e 64 69  63 61 74 65 64 20 63 68  |the indicated ch|
00003e50  6f 69 63 65 73 2e 7c 4d  22 0d 14 00 35 20 20 20  |oices.|M"...5   |
00003e60  c9 20 31 3a 20 24 74 6f  25 2b 3d 22 74 6f 20 6c  |. 1: $to%+="to l|
00003e70  65 61 76 65 20 74 68 65  20 63 68 6f 69 63 65 73  |eave the choices|
00003e80  20 75 6e 63 68 61 6e 67  65 64 2e 7c 4d 22 0d 14  | unchanged.|M"..|
00003e90  0a 5e 20 20 20 c9 20 32  3a 20 24 74 6f 25 2b 3d  |.^   . 2: $to%+=|
00003ea0  22 61 6e 64 20 74 79 70  65 20 69 6e 20 74 68 65  |"and type in the|
00003eb0  20 6e 61 6d 65 20 6f 66  20 74 68 65 20 66 69 6c  | name of the fil|
00003ec0  65 20 75 73 65 64 20 74  6f 20 73 74 6f 72 65 20  |e used to store |
00003ed0  74 68 65 20 63 75 72 72  65 6e 74 20 6d 61 69 6c  |the current mail|
00003ee0  20 6d 65 73 73 61 67 65  2e 7c 4d 22 0d 14 14 65  | message.|M"...e|
00003ef0  20 20 20 c9 20 33 3a 20  24 74 6f 25 2b 3d 22 61  |   . 3: $to%+="a|
00003f00  6e 64 20 74 79 70 65 20  69 6e 20 74 68 65 20 6e  |nd type in the n|
00003f10  61 6d 65 20 6f 66 20 74  68 65 20 66 69 6c 65 20  |ame of the file |
00003f20  75 73 65 64 20 74 6f 20  6b 65 65 70 20 61 20 70  |used to keep a p|
00003f30  65 72 6d 61 6e 65 6e 74  20 6c 6f 67 20 6f 66 20  |ermanent log of |
00003f40  6d 61 69 6c 20 6d 65 73  73 61 67 65 73 2e 7c 4d  |mail messages.|M|
00003f50  22 0d 14 1e 60 20 20 20  c9 20 34 3a 20 24 74 6f  |"...`   . 4: $to|
00003f60  25 2b 3d 22 61 6e 64 20  74 79 70 65 20 69 6e 20  |%+="and type in |
00003f70  74 68 65 20 6e 61 6d 65  20 74 6f 20 62 65 20 75  |the name to be u|
00003f80  73 65 64 20 61 73 20 74  68 65 20 73 65 6e 64 65  |sed as the sende|
00003f90  72 20 6f 66 20 6d 61 69  6c 20 6d 65 73 73 61 67  |r of mail messag|
00003fa0  65 73 20 62 79 20 64 65  66 61 75 6c 74 2e 7c 4d  |es by default.|M|
00003fb0  22 0d 14 28 52 20 20 20  c9 20 35 3a 20 24 74 6f  |"..(R   . 5: $to|
00003fc0  25 2b 3d 22 61 6e 64 20  74 79 70 65 20 69 6e 20  |%+="and type in |
00003fd0  74 68 65 20 6e 61 6d 65  20 6f 66 20 74 68 65 20  |the name of the |
00003fe0  6d 61 69 6c 20 69 6e 74  72 61 79 20 66 69 6c 65  |mail intray file|
00003ff0  20 6f 6e 20 74 68 65 20  6e 65 74 77 6f 72 6b 2e  | on the network.|
00004000  7c 4d 22 0d 14 32 75 20  20 20 c9 20 36 3a 20 24  ||M"..2u   . 6: $|
00004010  74 6f 25 2b 3d 22 74 6f  20 73 65 74 20 77 68 65  |to%+="to set whe|
00004020  74 68 65 72 20 74 68 65  20 4d 61 69 6c 4d 61 6e  |ther the MailMan|
00004030  20 77 69 6c 6c 20 62 6c  65 65 70 20 77 68 65 6e  | will bleep when|
00004040  20 6d 61 69 6c 20 61 72  72 69 76 65 73 2e 7c 4d  | mail arrives.|M|
00004050  54 68 65 20 63 75 72 72  65 6e 74 20 73 65 74 74  |The current sett|
00004060  69 6e 67 20 69 73 20 66  6f 72 20 74 68 65 20 4d  |ing is for the M|
00004070  61 69 6c 4d 61 6e 20 22  0d 14 3c 41 20 20 20 20  |ailMan "..<A    |
00004080  e7 20 6e 65 77 42 6f 6e  67 20 8c 20 24 74 6f 25  |. newBong . $to%|
00004090  20 2b 3d 20 22 74 6f 20  62 6c 65 65 70 2e 7c 4d  | += "to bleep.|M|
000040a0  22 20 8b 20 24 74 6f 25  2b 3d 22 6e 6f 74 20 74  |" . $to%+="not t|
000040b0  6f 20 62 6c 65 65 70 2e  22 0d 14 46 11 20 20 20  |o bleep."..F.   |
000040c0  7f 3a 20 24 74 6f 25 3d  22 22 0d 14 50 07 20 20  |.: $to%=""..P.  |
000040d0  cb 0d 14 5a 05 cb 0d 14  64 10 3d 74 6f 25 2b a9  |...Z....d.=to%+.|
000040e0  28 24 74 6f 25 29 0d 14  6e 05 20 0d 14 78 11 dd  |($to%)..n. ..x..|
000040f0  f2 6e 6f 74 65 42 75 66  66 65 72 73 0d 14 82 0c  |.noteBuffers....|
00004100  20 ea 20 69 63 6f 6e 25  0d 14 8c 21 20 69 63 6f  | . icon%...! ico|
00004110  6e 49 6e 66 6f 25 21 30  20 3d 20 63 68 6f 69 63  |nInfo%!0 = choic|
00004120  65 73 77 69 6e 64 6f 77  25 0d 14 96 69 20 e3 20  |eswindow%...i . |
00004130  69 63 6f 6e 25 20 3d 20  32 20 b8 20 35 3a 69 63  |icon% = 2 . 5:ic|
00004140  6f 6e 49 6e 66 6f 25 21  34 20 3d 20 69 63 6f 6e  |onInfo%!4 = icon|
00004150  25 3a c8 99 20 57 69 6d  70 5f 47 65 74 49 63 6f  |%:.. Wimp_GetIco|
00004160  6e 49 6e 66 6f 2c 2c 69  63 6f 6e 49 6e 66 6f 25  |nInfo,,iconInfo%|
00004170  3a 63 68 6f 69 63 65 25  28 69 63 6f 6e 25 2d 32  |:choice%(icon%-2|
00004180  29 20 3d 20 69 63 6f 6e  49 6e 66 6f 25 21 32 38  |) = iconInfo%!28|
00004190  3a ed 0d 14 a0 05 e1 0d  14 aa 05 20 0d 14 b4 19  |:.......... ....|
000041a0  dd a4 62 75 66 66 4c 65  6e 67 74 68 28 62 75 66  |..buffLength(buf|
000041b0  66 65 72 25 29 0d 14 be  09 20 ea 20 6c 25 0d 14  |fer%).... . l%..|
000041c0  c8 42 20 e3 20 6c 25 3d  30 b8 32 35 35 3a e7 62  |.B . l%=0.255:.b|
000041d0  75 66 66 65 72 25 3f 6c  25 3d 31 33 20 84 20 62  |uffer%?l%=13 . b|
000041e0  75 66 66 65 72 25 3f 6c  25 3d 31 30 20 84 20 62  |uffer%?l%=10 . b|
000041f0  75 66 66 65 72 25 3f 6c  25 3d 30 20 8c 3d 6c 25  |uffer%?l%=0 .=l%|
00004200  0d 14 d2 06 20 ed 0d 14  dc 08 3d 32 35 35 0d 14  |.... .....=255..|
00004210  e6 05 20 0d 14 f0 3c dd  a4 74 6f 43 74 72 6c 28  |.. ...<..toCtrl(|
00004220  66 72 6f 6d 25 2c 20 74  6f 25 29 20 3a f4 20 7c  |from%, to%) :. ||
00004230  4d 20 2d 3e 20 63 68 2e  63 6f 64 65 20 31 33 2c  |M -> ch.code 13,|
00004240  20 72 65 74 75 72 6e 73  20 6c 65 6e 67 74 68 0d  | returns length.|
00004250  14 fa 17 20 ea 20 66 25  2c 74 25 3a 66 25 3d 30  |... . f%,t%:f%=0|
00004260  3a 74 25 3d 2d 31 0d 15  04 06 20 f5 0d 15 0e 65  |:t%=-1.... ....e|
00004270  20 74 25 2b 3d 31 3a e7  66 72 6f 6d 25 3f 66 25  | t%+=1:.from%?f%|
00004280  3d 97 22 7c 22 80 28 66  72 6f 6d 25 3f 28 66 25  |=."|".(from%?(f%|
00004290  2b 31 29 3d 97 22 4d 22  84 66 72 6f 6d 25 3f 28  |+1)=."M".from%?(|
000042a0  66 25 2b 31 29 3d 97 22  6d 22 29 8c 74 6f 25 3f  |f%+1)=."m").to%?|
000042b0  74 25 3d 31 33 3a 66 25  2b 3d 32 8b 74 6f 25 3f  |t%=13:f%+=2.to%?|
000042c0  74 25 3d 66 72 6f 6d 25  3f 66 25 3a 66 25 2b 3d  |t%=from%?f%:f%+=|
000042d0  31 0d 15 18 0f 20 fd 20  74 6f 25 3f 74 25 3d 30  |1.... . to%?t%=0|
000042e0  0d 15 22 07 3d 74 25 0d  15 2c 05 20 0d 15 36 24  |..".=t%..,. ..6$|
000042f0  dd f2 72 65 67 69 73 74  65 72 43 68 6f 69 63 65  |..registerChoice|
00004300  73 28 63 68 65 63 6b 25  2c 20 6b 65 65 70 25 29  |s(check%, keep%)|
00004310  0d 15 40 12 20 ea 20 69  25 2c 20 6c 65 6e 67 74  |..@. . i%, lengt|
00004320  68 25 0d 15 4a 14 20 e3  20 69 25 3d 30 b8 6d 61  |h%..J. . i%=0.ma|
00004330  78 56 61 72 73 25 0d 15  54 26 20 20 6c 65 6e 67  |xVars%..T&  leng|
00004340  74 68 25 3d a4 62 75 66  66 4c 65 6e 67 74 68 28  |th%=.buffLength(|
00004350  63 68 6f 69 63 65 25 28  69 25 29 29 0d 15 5e 1e  |choice%(i%))..^.|
00004360  20 20 e7 20 6c 65 6e 67  74 68 25 3d 30 20 8c 20  |  . length%=0 . |
00004370  6c 65 6e 67 74 68 25 3d  2d 31 0d 15 68 3e 20 20  |length%=-1..h>  |
00004380  c8 99 20 22 58 4f 53 5f  53 65 74 56 61 72 56 61  |.. "XOS_SetVarVa|
00004390  6c 22 2c 76 61 72 6e 61  6d 65 73 24 28 69 25 29  |l",varnames$(i%)|
000043a0  2c 63 68 6f 69 63 65 25  28 69 25 29 2c 6c 65 6e  |,choice%(i%),len|
000043b0  67 74 68 25 2c 30 2c 30  0d 15 72 06 20 ed 0d 15  |gth%,0,0..r. ...|
000043c0  7c 3a 20 f2 73 65 74 4d  61 69 6c 53 6f 75 72 63  ||: .setMailSourc|
000043d0  65 3a e7 20 63 68 65 63  6b 25 20 f2 63 68 65 63  |e:. check% .chec|
000043e0  6b 4d 61 69 6c 53 6f 75  72 63 65 3a 62 6f 6e 67  |kMailSource:bong|
000043f0  3d 6e 65 77 42 6f 6e 67  0d 15 86 0f 20 f2 6e 6f  |=newBong.... .no|
00004400  74 65 53 63 72 61 70 0d  15 90 1d 20 e7 20 ac 6b  |teScrap.... . .k|
00004410  65 65 70 25 20 8c 20 c8  99 20 43 72 4d 65 6e 75  |eep% . .. CrMenu|
00004420  2c 2c 2d 31 0d 15 9a 05  e1 0d 15 a4 05 20 0d 15  |,,-1......... ..|
00004430  ae 11 dd f2 73 61 76 65  43 68 6f 69 63 65 73 0d  |....saveChoices.|
00004440  15 b8 4b 20 ea 20 69 25  2c 66 69 6c 65 25 2c 76  |..K . i%,file%,v|
00004450  61 6c 75 65 24 3a ea 20  85 3a ee 85 20 ea 20 69  |alue$:. .:.. . i|
00004460  6e 74 65 72 6e 61 6c 25  3d a3 3a d9 23 66 69 6c  |nternal%=.:.#fil|
00004470  65 25 3a f2 65 72 72 6f  72 62 6f 78 3a 69 6e 74  |e%:.errorbox:int|
00004480  65 72 6e 61 6c 25 3d b9  3a e1 0d 15 c2 2c 20 66  |ernal%=.:...., f|
00004490  69 6c 65 25 3d 30 3a 66  69 6c 65 25 3d ae 22 3c  |ile%=0:file%=."<|
000044a0  4d 61 69 6c 4d 61 6e 24  44 69 72 3e 2e 21 43 68  |MailMan$Dir>.!Ch|
000044b0  6f 69 63 65 73 22 0d 15  cc 14 20 e3 20 69 25 3d  |oices".... . i%=|
000044c0  30 b8 6d 61 78 56 61 72  73 25 0d 15 d6 60 20 20  |0.maxVars%...`  |
000044d0  6c 65 6e 67 74 68 25 3d  a4 72 65 61 64 56 61 72  |length%=.readVar|
000044e0  28 69 25 2c 62 75 66 66  65 72 25 2c 32 35 36 29  |(i%,buffer%,256)|
000044f0  3a f2 66 72 6f 6d 43 74  72 6c 28 62 75 66 66 65  |:.fromCtrl(buffe|
00004500  72 25 2c 20 63 68 6f 69  63 65 25 28 69 25 29 29  |r%, choice%(i%))|
00004510  3a 76 61 6c 75 65 24 3d  a4 72 74 6f 7a 28 63 68  |:value$=.rtoz(ch|
00004520  6f 69 63 65 25 28 69 25  29 29 0d 15 e0 35 20 20  |oice%(i%))...5  |
00004530  e7 20 76 61 6c 75 65 24  20 3c 3e 20 22 22 20 8c  |. value$ <> "" .|
00004540  20 d5 23 66 69 6c 65 25  2c 69 25 2b 97 22 30 22  | .#file%,i%+."0"|
00004550  3a d5 23 66 69 6c 65 25  2c 76 61 6c 75 65 24 0d  |:.#file%,value$.|
00004560  15 ea 06 20 ed 0d 15 f4  29 20 e7 20 62 6f 6e 67  |... ....) . bong|
00004570  20 8c 20 d5 23 66 69 6c  65 25 2c 97 22 39 22 3a  | . .#file%,."9":|
00004580  d5 23 66 69 6c 65 25 2c  22 42 6f 6e 67 22 0d 15  |.#file%,"Bong"..|
00004590  fe 0c 20 d9 23 66 69 6c  65 25 0d 16 08 2b 20 ff  |.. .#file%...+ .|
000045a0  22 53 65 74 74 79 70 65  20 3c 4d 61 69 6c 4d 61  |"Settype <MailMa|
000045b0  6e 24 44 69 72 3e 2e 21  43 68 6f 69 63 65 73 20  |n$Dir>.!Choices |
000045c0  44 61 74 61 22 0d 16 12  05 e1 0d 16 1c 05 20 0d  |Data"......... .|
000045d0  16 26 2e dd f2 66 72 6f  6d 43 74 72 6c 28 66 72  |.&...fromCtrl(fr|
000045e0  6f 6d 25 2c 20 74 6f 25  29 20 3a f4 20 63 68 2e  |om%, to%) :. ch.|
000045f0  63 6f 64 65 20 31 33 20  2d 3e 20 7c 4d 0d 16 30  |code 13 -> |M..0|
00004600  18 20 ea 20 66 25 2c 74  25 3a 66 25 3d 2d 31 3a  |. . f%,t%:f%=-1:|
00004610  74 25 3d 2d 31 0d 16 3a  4e 20 20 f5 3a 66 25 2b  |t%=-1..:N  .:f%+|
00004620  3d 31 3a 74 25 2b 3d 31  3a e7 66 72 6f 6d 25 3f  |=1:t%+=1:.from%?|
00004630  66 25 3d 31 33 8c 74 6f  25 3f 74 25 3d 97 22 7c  |f%=13.to%?t%=."||
00004640  22 3a 74 25 2b 3d 31 3a  74 6f 25 3f 74 25 3d 97  |":t%+=1:to%?t%=.|
00004650  22 4d 22 8b 74 6f 25 3f  74 25 3d 66 72 6f 6d 25  |"M".to%?t%=from%|
00004660  3f 66 25 0d 16 44 11 20  20 fd 66 72 6f 6d 25 3f  |?f%..D.  .from%?|
00004670  66 25 3d 30 0d 16 4e 05  e1 0d 16 58 05 20 0d 16  |f%=0..N....X. ..|
00004680  62 13 dd f2 66 69 6c 6c  49 6e 43 68 6f 69 63 65  |b...fillInChoice|
00004690  73 0d 16 6c 12 20 ea 20  6c 65 6e 67 74 68 25 2c  |s..l. . length%,|
000046a0  20 69 25 0d 16 76 14 20  e3 20 69 25 3d 30 b8 6d  | i%..v. . i%=0.m|
000046b0  61 78 56 61 72 73 25 0d  16 80 46 20 20 6c 65 6e  |axVars%...F  len|
000046c0  67 74 68 25 3d a4 72 65  61 64 56 61 72 28 69 25  |gth%=.readVar(i%|
000046d0  2c 62 75 66 66 65 72 25  2c 32 35 36 29 3a f2 66  |,buffer%,256):.f|
000046e0  72 6f 6d 43 74 72 6c 28  62 75 66 66 65 72 25 2c  |romCtrl(buffer%,|
000046f0  20 63 68 6f 69 63 65 25  28 69 25 29 29 0d 16 8a  | choice%(i%))...|
00004700  06 20 ed 0d 16 94 05 e1  0d 16 9e 05 20 0d 16 a8  |. .......... ...|
00004710  13 dd f2 73 65 74 4d 61  69 6c 53 6f 75 72 63 65  |...setMailSource|
00004720  0d 16 b2 26 20 43 25 3d  a4 72 65 61 64 56 61 72  |...& C%=.readVar|
00004730  28 73 6f 75 72 63 65 2c  20 62 75 66 66 65 72 25  |(source, buffer%|
00004740  2c 20 32 35 36 29 0d 16  bc 57 20 e7 20 43 25 3d  |, 256)...W . C%=|
00004750  30 20 8c 20 6d 6e 61 6d  65 24 3d 22 6e 65 74 3a  |0 . mname$="net:|
00004760  26 2e 6d 61 69 6c 2e 69  6e 74 72 61 79 22 3a f2  |&.mail.intray":.|
00004770  73 65 74 56 61 72 28 73  6f 75 72 63 65 2c 6d 6e  |setVar(source,mn|
00004780  61 6d 65 24 29 20 8b 20  6d 6e 61 6d 65 24 3d a4  |ame$) . mname$=.|
00004790  72 74 6f 7a 28 62 75 66  66 65 72 25 29 0d 16 c6  |rtoz(buffer%)...|
000047a0  39 20 43 25 3d a7 6d 6e  61 6d 65 24 2c 22 3a 22  |9 C%=.mname$,":"|
000047b0  29 3a e7 c1 6d 6e 61 6d  65 24 2c 43 25 2b 31 2c  |):..mname$,C%+1,|
000047c0  31 29 3d 22 3a 22 20 43  25 3d a7 6d 6e 61 6d 65  |1)=":" C%=.mname|
000047d0  24 2c 22 2e 22 29 0d 16  d0 17 20 66 6e 61 6d 65  |$,".").... fname|
000047e0  24 3d c0 6d 6e 61 6d 65  24 2c 43 25 29 0d 16 da  |$=.mname$,C%)...|
000047f0  05 e1 0d 16 e4 05 20 0d  16 ee 15 dd f2 63 68 65  |...... ......che|
00004800  63 6b 4d 61 69 6c 53 6f  75 72 63 65 0d 16 f8 1a  |ckMailSource....|
00004810  20 ea 20 66 6c 61 67 73  25 2c 20 65 78 69 73 74  | . flags%, exist|
00004820  73 25 3a ea 20 85 0d 17  02 2d 20 ee 85 20 ea 20  |s%:. ....- .. . |
00004830  69 6e 74 65 72 6e 61 6c  25 3d a3 3a f2 65 72 72  |internal%=.:.err|
00004840  6f 72 62 6f 78 3a 69 6e  74 65 72 6e 61 6c 25 3d  |orbox:internal%=|
00004850  b9 3a e1 0d 17 0c 24 20  c8 99 20 22 4f 53 5f 46  |.:....$ .. "OS_F|
00004860  69 6c 65 22 2c 35 2c 6d  6e 61 6d 65 24 20 b8 20  |ile",5,mname$ . |
00004870  65 78 69 73 74 73 25 0d  17 16 12 20 e7 20 65 78  |exists%.... . ex|
00004880  69 73 74 73 25 3d 30 20  8c 0d 17 20 62 20 20 21  |ists%=0 ... b  !|
00004890  62 75 66 66 65 72 25 3d  30 3a 24 28 62 75 66 66  |buffer%=0:$(buff|
000048a0  65 72 25 2b 34 29 3d 22  4d 61 69 6c 20 73 6f 75  |er%+4)="Mail sou|
000048b0  72 63 65 20 27 22 2b 6d  6e 61 6d 65 24 2b 22 27  |rce '"+mname$+"'|
000048c0  20 64 6f 65 73 20 6e 6f  74 20 65 78 69 73 74 2e  | does not exist.|
000048d0  20 44 6f 20 79 6f 75 20  77 61 6e 74 20 74 6f 20  | Do you want to |
000048e0  63 72 65 61 74 65 20 69  74 3f 22 0d 17 2a 11 20  |create it?"..*. |
000048f0  20 c8 99 20 44 72 61 67  2c 2c 2d 31 0d 17 34 3d  | .. Drag,,-1..4=|
00004900  20 20 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |  .. "Wimp_Repor|
00004910  74 45 72 72 6f 72 22 2c  62 75 66 66 65 72 25 2c  |tError",buffer%,|
00004920  26 31 33 2c 22 4d 61 69  6c 20 4d 61 6e 22 20 b8  |&13,"Mail Man" .|
00004930  20 2c 63 72 65 61 74 65  25 0d 17 3e 30 20 20 e7  | ,create%..>0  .|
00004940  20 63 72 65 61 74 65 25  3c 3e 31 20 8c 20 e1 20  | create%<>1 . . |
00004950  8b 20 e7 20 a4 63 72 65  61 74 65 54 72 65 65 28  |. . .createTree(|
00004960  6d 6e 61 6d 65 24 29 20  8c 0d 17 48 2e 20 20 20  |mname$) ...H.   |
00004970  c8 99 20 22 58 4f 53 5f  43 4c 49 22 2c 22 63 72  |.. "XOS_CLI","cr|
00004980  65 61 74 65 20 22 2b 6d  6e 61 6d 65 24 20 b8 20  |eate "+mname$ . |
00004990  3b 66 6c 61 67 73 25 0d  17 52 1d 20 20 20 e7 20  |;flags%..R.   . |
000049a0  28 66 6c 61 67 73 25 20  80 20 31 29 20 3d 20 30  |(flags% . 1) = 0|
000049b0  20 8c 20 e1 0d 17 5c 21  20 20 20 ff 22 53 65 74  | . ...\!   ."Set|
000049c0  54 79 70 65 20 22 2b 6d  6e 61 6d 65 24 2b 22 20  |Type "+mname$+" |
000049d0  54 65 78 74 22 0d 17 66  07 20 20 cd 0d 17 70 3b  |Text"..f.  ...p;|
000049e0  20 20 f2 72 65 70 6f 72  74 28 32 30 30 34 2c 22  |  .report(2004,"|
000049f0  54 68 65 20 6d 61 69 6c  20 73 6f 75 72 63 65 20  |The mail source |
00004a00  63 6f 75 6c 64 20 6e 6f  74 20 62 65 20 63 72 65  |could not be cre|
00004a10  61 74 65 64 2e 22 29 0d  17 7a 06 20 cd 0d 17 84  |ated.")..z. ....|
00004a20  05 e1 0d 17 8e 05 20 0d  17 98 17 dd a4 63 72 65  |...... ......cre|
00004a30  61 74 65 54 72 65 65 28  6e 61 6d 65 24 29 0d 17  |ateTree(name$)..|
00004a40  a2 47 20 f4 20 52 65 63  75 72 73 69 76 65 6c 79  |.G . Recursively|
00004a50  20 73 74 72 69 70 20 6c  65 61 66 20 6f 66 66 2c  | strip leaf off,|
00004a60  20 74 65 73 74 20 66 6f  72 20 65 78 69 73 74 65  | test for existe|
00004a70  6e 63 65 20 61 6e 64 20  74 72 79 20 74 6f 20 63  |nce and try to c|
00004a80  72 65 61 74 65 0d 17 ac  2b 20 ea 20 69 25 2c 20  |reate...+ . i%, |
00004a90  72 6f 6f 74 24 2c 20 65  78 69 73 74 73 25 2c 20  |root$, exists%, |
00004aa0  66 6c 61 67 73 25 2c 20  6d 69 64 24 3a ea 20 85  |flags%, mid$:. .|
00004ab0  0d 17 b6 16 20 ee 85 20  ea 20 f2 65 72 72 6f 72  |.... .. . .error|
00004ac0  62 6f 78 3a 3d a3 0d 17  c0 19 20 e3 20 69 25 3d  |box:=..... . i%=|
00004ad0  a9 6e 61 6d 65 24 20 b8  20 31 20 88 20 2d 31 0d  |.name$ . 1 . -1.|
00004ae0  17 ca 17 20 20 6d 69 64  24 3d c1 6e 61 6d 65 24  |...  mid$=.name$|
00004af0  2c 69 25 2c 31 29 0d 17  d4 12 20 20 e7 20 6d 69  |,i%,1)....  . mi|
00004b00  64 24 3d 22 2e 22 20 8c  0d 17 de 19 20 20 20 72  |d$="." .....   r|
00004b10  6f 6f 74 24 3d c0 6e 61  6d 65 24 2c 69 25 2d 31  |oot$=.name$,i%-1|
00004b20  29 0d 17 e8 33 20 20 20  c8 99 22 4f 53 5f 46 69  |)...3   .."OS_Fi|
00004b30  6c 65 22 2c 35 2c 72 6f  6f 74 24 20 b8 20 65 78  |le",5,root$ . ex|
00004b40  69 73 74 73 25 3a e7 20  65 78 69 73 74 73 25 20  |ists%:. exists% |
00004b50  8c 20 3d b9 0d 17 f2 56  20 20 20 c8 99 22 58 4f  |. =....V   .."XO|
00004b60  53 5f 43 4c 49 22 2c 22  63 64 69 72 20 22 2b 72  |S_CLI","cdir "+r|
00004b70  6f 6f 74 24 20 b8 20 3b  66 6c 61 67 73 25 3a e7  |oot$ . ;flags%:.|
00004b80  20 28 66 6c 61 67 73 25  20 80 20 31 29 3d 31 20  | (flags% . 1)=1 |
00004b90  8c 20 3d a4 63 72 65 61  74 65 54 72 65 65 28 72  |. =.createTree(r|
00004ba0  6f 6f 74 24 29 20 8b 20  3d b9 0d 17 fc 07 20 20  |oot$) . =.....  |
00004bb0  cc 0d 18 06 2c 20 20 20  e7 20 6d 69 64 24 3d 22  |....,   . mid$="|
00004bc0  26 22 20 84 20 6d 69 64  24 3d 22 24 22 20 84 20  |&" . mid$="$" . |
00004bd0  6d 69 64 24 3d 22 3a 22  20 8c 20 3d a3 0d 18 10  |mid$=":" . =....|
00004be0  07 20 20 cd 0d 18 1a 06  20 ed 0d 18 24 06 3d a3  |.  ..... ...$.=.|
00004bf0  0d 18 2e 05 20 0d 18 38  1f dd f2 73 65 74 46 69  |.... ..8...setFi|
00004c00  6c 65 28 62 75 66 66 65  72 25 2c 69 25 2c 6c 65  |le(buffer%,i%,le|
00004c10  61 66 24 29 0d 18 42 28  20 ea 20 6c 65 6e 67 74  |af$)..B( . lengt|
00004c20  68 25 2c 20 6e 61 6d 65  24 2c 20 74 65 6d 70 25  |h%, name$, temp%|
00004c30  3a de 20 74 65 6d 70 25  20 32 35 36 0d 18 4c 23  |:. temp% 256..L#|
00004c40  20 6c 65 6e 67 74 68 25  3d a4 72 65 61 64 56 61  | length%=.readVa|
00004c50  72 28 69 25 2c 74 65 6d  70 25 2c 32 35 36 29 0d  |r(i%,temp%,256).|
00004c60  18 56 6a 20 e7 20 6c 65  6e 67 74 68 25 3d 30 20  |.Vj . length%=0 |
00004c70  8c 20 6e 61 6d 65 24 3d  a4 72 74 6f 7a 28 62 75  |. name$=.rtoz(bu|
00004c80  66 66 65 72 25 29 2b 6c  65 61 66 24 2b bd 30 3a  |ffer%)+leaf$+.0:|
00004c90  f2 73 65 74 56 61 72 28  69 25 2c 6e 61 6d 65 24  |.setVar(i%,name$|
00004ca0  29 3a 24 63 68 6f 69 63  65 25 28 69 25 29 3d 6e  |):$choice%(i%)=n|
00004cb0  61 6d 65 24 3a 63 68 6f  69 63 65 25 28 69 25 29  |ame$:choice%(i%)|
00004cc0  3f a9 6e 61 6d 65 24 3d  30 0d 18 60 05 e1 0d 18  |?.name$=0..`....|
00004cd0  6a 05 20 0d 18 74 0f dd  f2 6e 6f 74 65 53 63 72  |j. ..t...noteScr|
00004ce0  61 70 0d 18 7e 53 20 c8  99 20 22 58 4f 53 5f 52  |ap..~S .. "XOS_R|
00004cf0  65 61 64 56 61 72 56 61  6c 22 2c 22 4d 61 69 6c  |eadVarVal","Mail|
00004d00  24 53 63 72 61 70 22 2c  62 75 66 66 65 72 25 2c  |$Scrap",buffer%,|
00004d10  32 35 36 2c 30 2c 33 20  b8 20 2c 2c 73 63 72 61  |256,0,3 . ,,scra|
00004d20  70 43 25 3a 62 75 66 66  65 72 25 3f 73 63 72 61  |pC%:buffer%?scra|
00004d30  70 43 25 3d 30 0d 18 88  38 20 e7 20 73 63 72 61  |pC%=0...8 . scra|
00004d40  70 43 25 3d 30 20 8c 20  73 63 72 61 70 43 25 3d  |pC%=0 . scrapC%=|
00004d50  a4 72 65 61 64 56 61 72  28 63 75 72 72 65 6e 74  |.readVar(current|
00004d60  2c 62 75 66 66 65 72 25  2c 32 35 36 29 0d 18 92  |,buffer%,256)...|
00004d70  34 20 e7 20 73 63 72 61  70 43 25 3d 30 20 8c 20  |4 . scrapC%=0 . |
00004d80  73 63 72 61 70 24 3d 22  22 20 8b 20 73 63 72 61  |scrap$="" . scra|
00004d90  70 24 3d a4 72 74 6f 7a  28 62 75 66 66 65 72 25  |p$=.rtoz(buffer%|
00004da0  29 0d 18 9c 05 e1 0d 18  a6 05 20 0d 18 b0 11 dd  |)......... .....|
00004db0  f2 72 65 61 64 43 68 6f  69 63 65 73 0d 18 ba 23  |.readChoices...#|
00004dc0  20 ea 20 69 25 2c 66 69  6c 65 25 2c 76 61 72 6e  | . i%,file%,varn|
00004dd0  61 6d 65 24 2c 76 61 6c  75 65 24 3a ea 20 85 0d  |ame$,value$:. ..|
00004de0  18 c4 35 20 ee 85 20 ea  20 69 6e 74 65 72 6e 61  |..5 .. . interna|
00004df0  6c 25 3d a3 3a f2 65 72  72 6f 72 62 6f 78 3a 69  |l%=.:.errorbox:i|
00004e00  6e 74 65 72 6e 61 6c 25  3d b9 3a d9 23 66 69 6c  |nternal%=.:.#fil|
00004e10  65 25 3a e1 0d 18 ce 2f  20 66 69 6c 65 25 3d 8e  |e%:..../ file%=.|
00004e20  22 3c 4d 61 69 6c 4d 61  6e 24 44 69 72 3e 2e 21  |"<MailMan$Dir>.!|
00004e30  43 68 6f 69 63 65 73 22  3a e7 66 69 6c 65 25 3d  |Choices":.file%=|
00004e40  30 8c e1 0d 18 d8 11 20  c8 95 20 ac 20 c5 23 66  |0...... .. . .#f|
00004e50  69 6c 65 25 0d 18 e2 24  20 20 69 25 3d 9a 23 66  |ile%...$  i%=.#f|
00004e60  69 6c 65 25 2d 97 22 30  22 3a 76 61 6c 75 65 24  |ile%-."0":value$|
00004e70  3d be 23 66 69 6c 65 25  0d 18 ec 1c 20 20 e7 20  |=.#file%....  . |
00004e80  69 25 3e 3d 30 80 69 25  3c 3d 6d 61 78 56 61 72  |i%>=0.i%<=maxVar|
00004e90  73 25 20 8c 0d 18 f6 36  20 20 20 43 25 3d a4 72  |s% ....6   C%=.r|
00004ea0  65 61 64 56 61 72 28 69  25 2c 30 2c 2d 31 29 3a  |eadVar(i%,0,-1):|
00004eb0  e7 43 25 3d 30 20 8c 20  f2 73 65 74 56 61 72 28  |.C%=0 . .setVar(|
00004ec0  69 25 2c 76 61 6c 75 65  24 29 0d 19 00 07 20 20  |i%,value$)....  |
00004ed0  cc 0d 19 0a 21 20 20 20  e7 69 25 3d 39 80 76 61  |....!   .i%=9.va|
00004ee0  6c 75 65 24 3d 22 42 6f  6e 67 22 8c 62 6f 6e 67  |lue$="Bong".bong|
00004ef0  3d b9 0d 19 14 07 20 20  cd 0d 19 1e 06 20 ce 0d  |=.....  ..... ..|
00004f00  19 28 0c 20 d9 23 66 69  6c 65 25 0d 19 32 05 e1  |.(. .#file%..2..|
00004f10  0d 19 3c 05 20 0d 19 46  21 dd a4 72 65 61 64 56  |..<. ..F!..readV|
00004f20  61 72 28 76 61 72 25 2c  20 74 6f 25 2c 20 6d 61  |ar(var%, to%, ma|
00004f30  78 42 75 66 25 29 0d 19  50 0e 20 ea 20 6c 65 6e  |xBuf%)..P. . len|
00004f40  67 74 68 25 0d 19 5a 44  20 c8 99 20 22 58 4f 53  |gth%..ZD .. "XOS|
00004f50  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 76 61 72  |_ReadVarVal",var|
00004f60  6e 61 6d 65 73 24 28 76  61 72 25 29 2c 74 6f 25  |names$(var%),to%|
00004f70  2c 6d 61 78 42 75 66 25  2c 30 2c 33 20 b8 20 2c  |,maxBuf%,0,3 . ,|
00004f80  2c 6c 65 6e 67 74 68 25  0d 19 64 22 20 e7 20 6d  |,length%..d" . m|
00004f90  61 78 42 75 66 25 3c 3e  2d 31 20 8c 20 74 6f 25  |axBuf%<>-1 . to%|
00004fa0  3f 6c 65 6e 67 74 68 25  3d 30 0d 19 6e 0c 3d 6c  |?length%=0..n.=l|
00004fb0  65 6e 67 74 68 25 0d 19  78 05 20 0d 19 82 19 dd  |ength%..x. .....|
00004fc0  f2 73 65 74 56 61 72 28  76 61 72 25 2c 20 66 72  |.setVar(var%, fr|
00004fd0  6f 6d 24 29 0d 19 8c 38  20 c8 99 20 22 58 4f 53  |om$)...8 .. "XOS|
00004fe0  5f 53 65 74 56 61 72 56  61 6c 22 2c 76 61 72 6e  |_SetVarVal",varn|
00004ff0  61 6d 65 73 24 28 76 61  72 25 29 2c 66 72 6f 6d  |ames$(var%),from|
00005000  24 2c a9 66 72 6f 6d 24  2c 30 2c 30 0d 19 96 05  |$,.from$,0,0....|
00005010  e1 0d 19 a0 05 20 0d 19  aa 13 dd f2 72 65 64 72  |..... ......redr|
00005020  61 77 43 68 6f 69 63 65  73 0d 19 b4 3f 20 f2 73  |awChoices...? .s|
00005030  74 61 72 74 43 68 6f 69  63 65 73 3a c8 99 20 22  |tartChoices:.. "|
00005040  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00005050  22 2c 68 61 6e 64 6c 65  25 2c 30 2c 2d 31 30 32  |",handle%,0,-102|
00005060  34 2c 31 32 38 30 2c 30  0d 19 be 23 20 c8 99 20  |4,1280,0...# .. |
00005070  22 57 69 6d 70 5f 47 65  74 43 61 72 65 74 50 6f  |"Wimp_GetCaretPo|
00005080  73 69 74 69 6f 6e 22 2c  2c 71 25 0d 19 c8 35 20  |sition",,q%...5 |
00005090  e7 20 21 71 25 3d 63 68  6f 69 63 65 73 77 69 6e  |. !q%=choiceswin|
000050a0  64 6f 77 25 20 8c 20 f2  73 65 74 43 61 72 65 74  |dow% . .setCaret|
000050b0  28 21 71 25 2c 71 25 21  34 2c 71 25 21 32 30 29  |(!q%,q%!4,q%!20)|
000050c0  0d 19 d2 05 e1 0d 19 dc  05 20 0d 19 e6 3d dc 20  |......... ...=. |
000050d0  22 4d 61 69 6c 24 43 75  72 72 65 6e 74 22 2c 22  |"Mail$Current","|
000050e0  4d 61 69 6c 24 4c 6f 67  46 69 6c 65 22 2c 22 4d  |Mail$LogFile","M|
000050f0  61 69 6c 24 4e 61 6d 65  22 2c 22 4d 61 69 6c 24  |ail$Name","Mail$|
00005100  53 6f 75 72 63 65 22 0d  ff                       |Source"..|
00005109
!MailMan/!RunImage.m0
!MailMan/!RunImage.m1
!MailMan/!RunImage.m2
!MailMan/!RunImage.m4
!MailMan/!RunImage.m5