Home » Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.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 » IJJOBS21.ADF
Filename: !MailMan/!RunImage
Read OK:
File size: 5FF0 bytes
Load address: FFFFFB43
Exec address: 8BEBAA25
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM > !RunImage 2.00 (28-Apr-95)
   20*I AM MAIL NETMAIL
   30DIM taskid%4:$taskid%="TASK"
   40SYS "Wimp_Initialise",300,!taskid%,"Mail Man",-1 TO version%
   50`wbcol=&0:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
   60PROCvars
   70
   80PROCinit_messages
   90
  100DIM bootpath% 256
  110SYSs_readvar%,"MailMan$Dir",bootpath%,256,0,3 TO,,bootlen%
  120bootpath%?bootlen%=13
  130
  140maxbuf%=&200:DIM buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
  150DIM buffer2% &100, buffer3% &100
  160DIM menu_buffer% 40
  170SYS s_fsctrl%,13,"net"+CHR$0,1 TO ,,NetOK%
  180
  190DIM q% &240,icons% &100
  200DIM menudata% &200
  210maxVars%=3:DIM choice%(maxVars%):current=0:logfile=1:name=2:source=3
  220maxSend%=5:DIM send%(maxSend%):to=0:cc=1:subject=2:from=3:file=4
  230DIM varnames$(maxVars%):FORv%=0TOmaxVars%:READvarnames$(v%):NEXT:scrap$=""
  240
  250DIM iconInfo% 40
  260bong=FALSE:internal%=TRUE:ONERROR PROCerrorbox:PROCfinish:END
  270S%=OPENIN"<MailMan$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
  280DIM sprites% T%
  290!sprites%=T%:sprites%!8=0
  300SYS s_spop%,&109,sprites%
  310SYS s_spop%,&10A,sprites%,"<MailMan$Dir>.Sprites"
  320icmail%=FNiconbar
  330
  340SYS s_opent%,,"<MailMan$Dir>.Templates"
  350mailIconSize%=255:mailtoSize%=5*mailIconSize%+32+16:infoSize%=200:choicesSize%=1200
  360DIM mailIcons% mailtoSize%,infoIcons% infoSize%,choiceIcons% choicesSize%
  370SYS s_loadt%,,q%,mailIcons%,mailIcons%+mailtoSize%,-1,"MailTo",0
  380SYS s_createw%,,q% TO mailto%:PROCnoteBuffers(mailto%,0, 4,send%())
  390SYS s_loadt%,,q%,infoIcons%,infoIcons%+infoSize%,-1,"Info",0
  400SYS s_createw%,,q% TO infowindow%
  410SYS s_loadt%,,q%,choiceIcons%,choiceIcons%+choicesSize%,-1,"choices",0
  420SYS s_createw%,,q% TO choiceswindow%:PROCnoteBuffers(choiceswindow%, 2, 5, choice%())
  430SYS s_closet%
  440
  450DIM optbuff% 100
  460mailref%=0:mailmethod%=0:REM 0 none,1 file,2,3 scrap
  470ack=FALSE:PROCsetOpt(mailto%,11,ack)
  480dialogueStarted%=FALSE
  490
  500PROCreadChoices:PROCfillInChoices
  510SYS s_readvar%,"MailMan$Dir",buffer%,255,0,3 TO ,,length%:v%=length%-1
  520WHILE v%>=0 AND buffer%?v%<>ASC".":v%-=1:ENDWHILE:v%+=1:buffer%?v%=0
  530PROCsetFile(buffer%,current,"Current"):PROCsetFile(buffer%,logfile,"LogFile")
  540PROCsetMailSource:PROCnoteScrap
  550
  560ONERROR PROCerrorbox
  570lodel%=500
  580hidel%=6000
  590delay% = hidel%
  600SYS s_drag%,,-1
  610SYS s_time% TO timex%:PROCnudge(FALSE)
  620REPEAT
  630 SYS s_poll%,0,q%,timex% TO A%
  640  CASE A% OF
  650  WHEN 0 :IFmailmethod%=3 PROCStartDialogue:mailmethod%=1 ELSE PROCnudge(TRUE)
  660  WHEN 1 :PROCredraw_window(!q%)
  670  WHEN 2 :PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
  680  WHEN 3 :PROCclose_window(!q%)
  690  WHEN 6 :PROCcheckmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
  700  WHEN 8 :PROCkey(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
  710  WHEN 9 :PROCgetpointer:PROCmenuselect(q%):PROCretainCheck
  720  WHEN 17,18:PROCreceive(q%)
  730  ENDCASE
  740UNTIL FALSE
  750
  760DEFPROCreceive(q%)
  770PROCnoteScrap
  780CASE q%!16 OF
  790WHEN 0:PROCfinish:END
  800WHEN 3:REM data loaded from filer viewer
  810  IF mailmethod%<2 OR q%!12<>mailref% THEN
  820    IF q%!40=4096 OR q%!40=8192 THEN
  830      PROCreport(2003,"MailE2"):ENDPROC
  840    ELSE
  850      filenam$=FNrtoz(q%+44):mailmethod%=1
  860      q%!16=4:q%!12=q%!8:SYS s_sendm%,17,q%,q%!4
  870      PROCStartDialogue
  880    ENDIF
  890  ELSE
  900    q%!16=4:q%!12=q%!8:SYS s_sendm%,17,q%,mailsender%
  910    SYS s_time% TO timex%
  920    mailmethod%=3
  930  ENDIF
  940WHEN 1:REM a data save into me.
  950  filenam$=FNget_message("MailG1")+FNrtoz(q%+44)+">"
  960  mailmethod%=2:mailsender%=q%!4:mailref%=q%!8
  970  IF scrap$="" THEN ENDPROC
  980  $(q%+44)=scrap$:q%?(44+scrapC%)=0:!q%=47+scrapC%+1ANDNOT3:q%!16=2:q%!12=mailref%:q%!36=-1
  990  SYS s_sendm%,17,q%,mailsender%:mailref%=q%!8
 1000WHEN 10:REM desktop save
 1010  PROCdesksave(q%)
 1020WHEN &502:REM help request
 1030  q%!12=q%!8:q%!16=&503:help%=q%+20
 1040  help%=FNhelp(q%!32,q%!36,help%):?help%=0
 1050  !q%=(help%+4-q%)ANDNOT3
 1060  SYS s_sendm%,17,q%,q%!4
 1070WHEN &400C0:REM submenu request: can only apply to choices
 1080  PROCstartChoices:SYS s_crsubmenu%,,q%!20,q%!24,q%!28
 1090ENDCASE
 1100ENDPROC
 1110
 1120DEFPROCstartChoices
 1130 PROCfillInChoices:newBong=bong:PROCsetOpt(choiceswindow%,6,newBong)
 1140ENDPROC
 1150
 1160DEFPROCStartDialogue
 1170PROCendDialogue
 1180IF scrap$=""THENPROCreport(2005,"MailE3"):ENDPROC
 1190fromnam$=FNrtoz(choice%(name))
 1200$(send%(to))=CHR$0
 1210$(send%(cc))=CHR$0
 1220$(send%(subject))=CHR$0
 1230$(send%(from))=fromnam$+CHR$0
 1240$(send%(file))=filenam$+CHR$0
 1250PROCgetpointer:PROCpopup(mailto%):dialogueStarted%=TRUE
 1260SYSs_setcaret%,mailto%,0,0,-1,-1,-1
 1270ENDPROC
 1280
 1290DEFPROCendDialogue
 1300 IF dialogueStarted% THEN PROCclose_window(mailto%):mailmethod%=0:dialogueStarted%=FALSE
 1310ENDPROC
 1320
 1330DEFFNrtoz(s%)
 1340LOCAL n$
 1350WHILE?s%:n$+=CHR$?s%:s%+=1:ENDWHILE
 1360=n$
 1370
 1380DEFPROCkey(handle%,icon%,xcoff%,ycoff%,careth%,caretindx%,ch%)
 1390IF handle%=mailto% THEN
 1400 IF ch%=13 AND icon%>1 THEN
 1410  PROCmail:IF remove% PROCendDialogue
 1420 ELSE
 1430  PROCdoKey(ch%,mailto%,icon%,4,0)
 1440 ENDIF:ENDPROC
 1450ENDIF
 1460IF handle%=choiceswindow% THEN
 1470 IF ch%=13 AND icon%=5 PROCregisterChoices(TRUE,FALSE):ENDPROC
 1480 PROCdoKey(ch%,choiceswindow%,icon%,5,2)
 1490ENDIF
 1500ENDPROC
 1510
 1520DEFPROCdoKey(ch%,window%,icon%,maxicon%,minicon%)
 1530 CASE ch% OF
 1540   WHEN 13:
 1550     icon%=icon%+1:IFicon%>maxicon% icon%=minicon%
 1560     PROCsetCaret(window%,icon%,caretindx%)
 1570   WHEN 27: PROCendDialogue
 1580   WHEN &18E:icon%=icon%+1:IFicon%>maxicon% icon%=minicon%
 1590     PROCsetCaret(window%,icon%,caretindx%)
 1600   WHEN &18F:icon%=icon%-1:IFicon%<minicon% icon%=maxicon%
 1610     PROCsetCaret(window%,icon%,caretindx%)
 1620   OTHERWISE SYS s_key%,ch%
 1630 ENDCASE
 1640ENDPROC
 1650
 1660DEFPROCsetCaret(window%,icon%,caretindx%)
 1670 LOCAL length%
 1680 iconInfo%!0 = window%:iconInfo%!4 = icon%
 1690 SYS s_getiinfo%,,iconInfo%
 1700 length%=FNbuffLength(iconInfo%!28)
 1710 IF caretindx%>length% caretindx%=length%
 1720 SYSs_setcaret%,window%,icon%,0,-1,-1,caretindx%
 1730ENDPROC
 1740
 1750DEFPROCsetType(of$)
 1760 OSCLI"Stamp "+of$
 1770 OSCLI"Settype "+of$+" Data"
 1780ENDPROC
 1790
 1800DEFPROCmail
 1810LOCAL P%
 1820remove%=TRUE:PROCregisterChoices(FALSE,FALSE)
 1830toname$=FNrtoz(send%(to))
 1840cc$=FNrtoz(send%(cc))
 1850subject$=FNrtoz(send%(subject))
 1860dummy%=FNtoCtrl(send%(from),buffer%):fromnam$=FNrtoz(buffer%)
 1870filenam$=FNrtoz(send%(file))
 1880IFLEN(toname$)+LEN(cc$)<1 VDU7:remove%=FALSE:ENDPROC
 1890f%=0:h%=0:ONERROR LOCAL CLOSE#f%:PROCerrorbox:ENDPROC
 1900IFASCfilenam$=ASC"<"THEN f%=OPENINscrap$ ELSE f%=OPENINfilenam$
 1910IFf%=0 VDU7:remove%=FALSE:ENDPROC
 1920ENDIF
 1930LOCAL ERROR
 1940mail=0
 1950mail$=fname$+"$.Mail.PostBox"
 1960SYS s_file%,5,mail$ TO r0
 1970IF r0=2 THEN
 1980  box%=-1:REPEATbox%+=1
 1990    ONERROR LOCAL UNTIL box%>99:RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCreport(2001,"MailE4"):ENDPROC
 2000    bname$=mail$+"."+RIGHT$(STR$(box%+10000),2):SYS s_file%,5,bname$ TO r0
 2010    h%=0:IF r0=1 THEN h%=OPENUP(bname$):IFh%>0 IFEXT#h%<>0 CLOSE#h%:h%=0
 2020  UNTILh%<>0 OR box%>99 OR r0=0
 2030  IFh%=0 RESTORE ERROR:CLOSE#f%:PROCreport(2001,"MailE5"):ENDPROC
 2040  mail=3
 2050ENDIF
 2060IF mail<>3 THEN
 2070  IF (nfsflag%) THEN
 2080    mail$=nfsname$+"Pending"
 2090    SYS s_file%,5,mail$ TO r0
 2100    IF r0<>2 THEN RESTORE ERROR:CLOSE#f%:PROCreport(2002,"MailEE"):ENDPROC
 2110    SYS "Hourglass_On"
 2120    guardcount%=0
 2130    REPEAT
 2140      SYS s_xfile%,11,mailguard$,&FFF,0,0,2 TO r0,r1,r2,r3,r4,r5;P%
 2150      IF P% AND 1 THEN
 2160        PROCdelay(1):guardcount%+=1
 2170      ELSE
 2180        guardcount%=0
 2190      ENDIF
 2200    UNTIL guardcount%=0 OR guardcount%=5
 2210    IF guardcount%=5 THEN RESTORE ERROR:CLOSE#f%:SYS "Hourglass_Off":PROCreport(2001,"MailEG"):ENDPROC
 2220    h%=0
 2230    box%=-1:REPEATbox%+=1
 2240      ONERROR LOCAL UNTIL box%>9:RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCremoveGuard:PROCrep(2002, FNget_message("MailEC")+","+mailq$+","+mailt$):ENDPROC
 2250      mailq$=mail$+"."+RIGHT$(STR$(box%+10000),2)
 2260      SYS "OS_File",5,mailq$ TO r0
 2270      IF r0=0 THEN
 2280        h%=OPENOUT(mailt$)
 2290        IFh%>0 IFEXT#h%<>0 CLOSE#h%:h%=0
 2300      ENDIF
 2310    UNTILh%<>0 OR box%>9
 2320    IFh%=0 RESTORE ERROR:CLOSE#f%:PROCremoveGuard:PROCreport(2002,"MailED"):ENDPROC
 2330    PROCsetType(mailt$)
 2340    mail=1
 2350  ELSE
 2360    mail$=fname$+"&."+toname$+".Mail.Intray"
 2370    ONERROR LOCAL RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCrep(2002, FNget_message("MailE6")+mail$+FNget_message("MailE7")):ENDPROC
 2380    h%=OPENUPmail$
 2390    IFh%=0 THEN CLOSE#f%:PROCreport(2002,"MailE8"):ENDPROC
 2400    PTR#h%=EXT#h%
 2410    mail=0
 2420  ENDIF
 2430ENDIF
 2440ONERROR LOCAL RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCremoveGuard:PROCerrorbox:ENDPROC
 2450IF mail=1 THEN
 2460  IFLENtoname$ BPUT#h%,"To: "+toname$
 2470  IFLENcc$ BPUT#h%,"CC: "+cc$
 2480ENDIF
 2490IF mail=3 THEN
 2500  BPUT#h%,CHR$10+"SonOfEcomail 3"
 2510  IFLENtoname$ PROCputM2(h%,"MailS1",toname$)
 2520  IFLENcc$ PROCputM2(h%,"MailS2",cc$)
 2530ENDIF
 2540IFLENsubject$ PROCputM2(h%,"MailS3",subject$)
 2550mtime$=TIME$:PROCputM2(h%,"MailS4",mtime$)
 2560PROCputM2(h%,"MailS5",fromnam$)
 2570IFack THEN
 2580  a$=fromnam$:A%=INSTR(a$,CHR$13):IFA% a$=LEFT$(a$,A%-1)
 2590  PROCputM2(h%,"MailS6",a$)
 2600ENDIF
 2610BPUT#h%,""
 2620PROCfcopy(f%,h%)
 2630BPUT#h%,""
 2640CLOSE#h%:h%=0:PTR#f%=0
 2650IF mail=1 THEN
 2660  ONERROR LOCAL RESTORE ERROR:CLOSE#f%:PROCremoveGuard:PROCreport(2002,"MailEF"):ENDPROC
 2670  SYS "OS_FSControl",25,mailt$,mailq$
 2680  ONERROR LOCAL RESTORE ERROR:CLOSE#f%:CLOSE#h%:PROCremoveGuard:PROCerrorbox:ENDPROC
 2690ENDIF
 2700C%=FNreadVar(logfile,0,-1)
 2710IFC%<0 THEN
 2720  h%=OPENUP"<Mail$LogFile>"
 2730  IFh%=0 h%=OPENOUT"<Mail$LogFile>" ELSE PTR#h%=EXT#h%
 2740  BPUT#h%,STRING$(39,"-+")+"-"
 2750  PROCputM(h%,"MailS7"):BPUT#h%,mtime$;:PROCputM2(h%,"MailS8",toname$)
 2760  IFLENcc$ PROCputM2(h%,"MailS9",cc$)
 2770  IFLENsubject$ PROCputM2(h%,"MailSA",subject$)
 2780  IFack PROCputM1(h%,"MailSB")
 2790  IFLEFT$(filenam$,1)="<" PROCputM1(h%,"MailSC"):PROCfcopy(f%,h%) ELSE PROCputM2(h%,"MailSD",filenam$)
 2800  BPUT#h%,CHR$10+STRING$(39,"+-")+"+"
 2810  CLOSE#h%
 2820  PROCsetType("<Mail$Logfile>")
 2830ENDIF
 2840CLOSE#f%
 2850PROCremoveGuard
 2860ENDPROC
 2870
 2880DEFPROCremoveGuard
 2890IF (nfsflag%) THEN
 2900  SYS s_xfile%,6,mailguard$
 2910  SYS "Hourglass_Off"
 2920ENDIF
 2930ENDPROC
 2940
 2950DEFPROCdelay(n%)
 2960LOCAL x%
 2970x%=TIME+n%*100
 2980REPEAT UNTIL TIME>=x%
 2990ENDPROC
 3000
 3010DEFPROCfcopy(f%,t%)
 3020IFEXT#f%=0 ENDPROC
 3030start%=0:REPEAT
 3040SYSs_gp%,4,f%,buffer%,&80 TO ,,,r3%
 3050IFr3%<>&80 SYSs_gp%,2,t%,buffer%,&80-r3%
 3060start%+=&80-r3%
 3070UNTILstart%>=EXT#f%
 3080ENDPROC
 3090
 3100DEFPROCcheckmouse(mousex%,mousey%,b%,handle%,icon%,ob%)
 3110IF(b%AND2)THEN
 3120  PROCendDialogue
 3130  CASE handle% OF
 3140  WHEN -2: PROCdomenu(101,FNget_message("MailM1"),FNget_message("Mail01"))
 3150  ENDCASE
 3160ENDIF
 3170IF(b%AND5)THEN
 3180  CASE handle% OF
 3190  WHEN -2: PROCmenuselgo(FNget_message("MailM2"))
 3200  WHEN mailto%: IFicon%=11 ack=NOTack:PROCsetOpt(mailto%,11,ack)
 3210  WHEN choiceswindow%
 3220   CASE icon% OF
 3230    WHEN 0: PROCregisterChoices(TRUE, (b%AND1)=1)
 3240    WHEN 1: IF b%AND1 THEN PROCredrawChoices ELSE SYS s_crmenu%,,-1
 3250    WHEN 6: newBong=NOTnewBong:PROCsetOpt(choiceswindow%,6,newBong)
 3260   ENDCASE
 3270  ENDCASE
 3280ENDIF
 3290ENDPROC
 3300
 3310DEFPROCfinish
 3320SYS s_closedown%
 3330ENDPROC
 3340
 3350DEFPROCdomenu(handle%,menu$,menutitle$)
 3360menuItems% = 0
 3370menuhandle%=handle%
 3380menuptr%=menudata%
 3390i%=0
 3400menuptr%!20=44
 3410$menuptr%=menutitle$
 3420menuptr%?12=`tfcol:menuptr%?13=2:menuptr%?14=`wfcol:menuptr%?15=`wbcol
 3430menuptr%!16=230-24:menuptr%!24=0
 3440menuptr%+=28
 3450REPEAT item$=FNpar(","):PROCmenuitem(item$):menuItems%+=1:UNTIL item$=""
 3460menuptr%!-24=(menuptr%!-24)OR&80
 3470SYS s_crmenu%,,menudata%,mousex%-64,96+(menuItems%-1)*44
 3480ENDPROC
 3490
 3500DEFPROCmenuitem(text$) :REM Leading character of > or < has special interpretation
 3510LOCAL left$
 3520IF text$="" ENDPROC
 3530!menuptr%=0
 3540left$ = LEFT$(text$,1):menuptr%!4=-1
 3550IF left$=">" THEN menuptr%!4=infowindow%
 3560IF left$="<" THEN menuptr%!4=choiceswindow%:!menuptr%=8
 3570menuptr%!8=&07000021
 3580IF left$=">" OR left$="<" THEN $(menuptr%+12)=MID$(text$,2) ELSE $(menuptr%+12)=text$
 3590menuptr%+=24
 3600ENDPROC
 3610
 3620DEFFNpar(sep$)
 3630i1%=i%+1:i%=INSTR(menu$+sep$,sep$,i1%)
 3640=MID$(menu$,i1%,i%-i1%)
 3650
 3660DEFFNcheckUP(file%)
 3670 LOCAL x%,p%:LOCAL ERROR
 3680 ONERROR LOCAL CLOSE#file%:IFERR=1043 THEN PROCreport(2007, "MailE9"):=FALSE ELSE PROCerrorbox:=FALSE
 3690 p%=PTR#file%:x%=BGET#file%:PTR#file%=p%
 3700=TRUE
 3710
 3720DEFPROCmenuselect(menus%)
 3730LOCAL P%
 3740SYS s_dcmenu%,,menudata%,menus%,STRING$(200," ")TO,,,a$
 3750IF a$="" THEN ENDPROC
 3760DEFPROCmenuselgo(a$) menuhandle%=101
 3770CASE menuhandle% OF
 3780WHEN 101: IF a$=FNget_message("MailM3"):PROCfinish:END
 3790  IF a$=FNget_message("MailM2") THEN
 3800    IF (nfsflag%) THEN
 3810      SYS s_xfile%,5,mname$ TO r0
 3820      IF r0=0 ENDPROC
 3830      guardcount%=0
 3840      SYS "Hourglass_On"
 3850      REPEAT
 3860        SYS s_xfile%,11,mailguard$,&FFF,0,0,2 TO r0,r1,r2,r3,r4,r5;P%
 3870        IF P% AND 1 THEN
 3880          PROCdelay(1):guardcount%+=1
 3890        ELSE
 3900          guardcount%=0
 3910        ENDIF
 3920      UNTIL guardcount%=0 OR guardcount%=5
 3930      IF guardcount%=5 THEN SYS "Hourglass_Off":PROCreport(2001,"MailEH"):ENDPROC
 3940    ENDIF
 3950    A%=0:B%=0:C%=FNreadVar(logfile,0,-1)
 3960
 3970    REM Try & circumvent NFS caching problem
 3980    IF (nfsflag%) THEN
 3990        SYS "XOS_File", 5, mname$ TO type%,,,,,attr% ; flags%
 4000        IF type% = 0 THEN SYS "Hourglass_Off":PROCreport(2001,"MailEH"):ENDPROC
 4010        SYS "XOS_File", 4, mname$,,,,0 TO ; flags%
 4020        SYS "XOS_File", 4, mname$,,,,attr% TO ; flags%
 4030    ENDIF
 4040
 4050    LOCAL ERROR
 4060    ONERROR LOCAL CLOSE#B%:PROCremoveGuard:PROCerrorbox:ENDPROC
 4070    IFC%>=0 ERROR 2000,FNget_message("MailEB")
 4080    C%=FNreadVar(current,0,-1)
 4090    B%=OPENUPmname$:IFB%=0 THEN PROCremoveGuard:ENDPROC ELSEIF NOTFNcheckUP(B%) PROCremoveGuard:ENDPROC
 4100    IFEXT#B%=0 CLOSE#B%:PROCremoveGuard:spname$="-mailnone":PROCchange:ENDPROC
 4110    IF C%<0 THEN
 4120      C%=OPENOUT"<Mail$Current>"
 4130      A%=OPENUP"<Mail$LogFile>"
 4140      IFA%=0 A%=OPENOUT"<Mail$LogFile>" ELSE PTR#A%=EXT#A%
 4150      ONERROR LOCAL CLOSE#A%:CLOSE#B%:CLOSE#C%:PROCremoveGuard:PROCerrorbox:ENDPROC
 4160      REPEAT X$=GET$#B%:BPUT#A%,X$:BPUT#C%,X$:UNTILEOF#B%
 4170      CLOSE#A%:CLOSE#C%:A%=0:C%=0
 4180      ONERROR LOCAL CLOSE#B%:PROCremoveGuard:PROCerrorbox:ENDPROC
 4190      EXT#B%=0:CLOSE#B%:B%=0:spname$="-mailnone":PROCchange
 4200      PROCsetType("<Mail$Current>"):PROCsetType("<Mail$Logfile>")
 4210      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
 4220      C%=FNreadVar(current,buffer%+44,&100):!buffer%=47+C%+1ANDNOT3
 4230      SYS s_sendm%,18,buffer%,0
 4240    ELSE
 4250      A%=OPENUP"<Mail$LogFile>"
 4260      IFA%=0 A%=OPENOUT"<Mail$LogFile>" ELSE PTR#A%=EXT#A%
 4270      ONERROR LOCAL CLOSE#A%:CLOSE#B%:PROCremoveGuard:PROCerrorbox:ENDPROC
 4280      REPEAT BPUT#A%,GET$#B%:UNTILEOF#B%
 4290      CLOSE#A%:A%=0
 4300      ONERROR LOCAL CLOSE#B%:PROCremoveGuard:PROCerrorbox:ENDPROC
 4310      EXT#B%=0:CLOSE#B%:B%=0:spname$="-mailnone":PROCchange
 4320      PROCsetType("<Mail$Logfile>")
 4330      buffer%!12=0:buffer%!16=5:buffer%!36=0:buffer%!40=&FFF
 4340      C%=FNreadVar(logfile,buffer%+44,&100):!buffer%=47+C%+1ANDNOT3
 4350      SYS s_sendm%,18,buffer%,0
 4360    ENDIF:PROCremoveGuard:ENDPROC
 4370  ENDIF
 4380  IF a$=FNget_message("MailM4") THEN PROCsaveChoices
 4390ENDCASE
 4400ENDPROC
 4410
 4420DEFPROCretainCheck
 4430 IF(b%AND1)THENSYS s_crmenu%,,menudata%,mousex%-64,96+(menuItems%-1)*44
 4440ENDPROC
 4450
 4460DEFFNvar(s$)
 4470LOCAL n%:SYSswinum%,,s$TOn%:=n%
 4480
 4490DEFPROCvars
 4500SYS "OS_SWINumberFromString",,"OS_SWINumberFromString" TO swinum%
 4510s_createw%=FNvar("Wimp_CreateWindow")
 4520s_openw%=FNvar("Wimp_OpenWindow")
 4530s_closew%=FNvar("Wimp_CloseWindow")
 4540s_redraww%=FNvar("Wimp_RedrawWindow")
 4550s_getrect%=FNvar("Wimp_GetRectangle")
 4560s_getwstate%=FNvar("Wimp_GetWindowState")
 4570s_getpoint%=FNvar("Wimp_GetPointerInfo")
 4580s_drag%=FNvar("Wimp_DragBox")
 4590s_crmenu%=FNvar("Wimp_CreateMenu")
 4600s_dcmenu%=FNvar("Wimp_DecodeMenu")
 4610s_poll%=FNvar("XWimp_PollIdle")
 4620s_opent%=FNvar("Wimp_OpenTemplate")
 4630s_loadt%=FNvar("Wimp_LoadTemplate")
 4640s_closet%=FNvar("Wimp_CloseTemplate")
 4650s_sendm%=FNvar("Wimp_SendMessage")
 4660s_crsubmenu%=FNvar("Wimp_CreateSubMenu")
 4670s_setcaret%=FNvar("Wimp_SetCaretPosition")
 4680s_getcaret%=FNvar("Wimp_GetCaretPosition")
 4690s_key%=FNvar("Wimp_ProcessKey")
 4700s_getiinfo%=&400ce : REM Wimp_GetIconInfo
 4710s_closedown%=FNvar("Wimp_CloseDown")
 4720s_createi%=FNvar("Wimp_CreateIcon")
 4730s_getistate%=FNvar("Wimp_GetIconState")
 4740s_setistate%=FNvar("Wimp_SetIconState")
 4750s_deletei%=FNvar("Wimp_DeleteIcon")
 4760s_error%=FNvar("Wimp_ReportError")
 4770s_forcered%=FNvar("Wimp_ForceRedraw")
 4780s_time%=FNvar("OS_ReadMonotonicTime")
 4790s_spop%=FNvar("OS_SpriteOp")
 4800s_gp%=FNvar("OS_GBPB")
 4810s_cli%=FNvar("XOS_CLI")
 4820s_readvar%=FNvar("XOS_ReadVarVal")
 4830s_setvar%=FNvar("XOS_SetVarVal")
 4840s_file%=FNvar("OS_File")
 4850s_xfile%=FNvar("XOS_File")
 4860s_fsctrl%=FNvar("OS_FSControl")
 4870
 4880ENDPROC
 4890
 4900DEFPROCreport(err%,mess$)
 4910PROCrep(err%, FNget_message(mess$))
 4920ENDPROC
 4930
 4940DEFPROCrep(err%,mess$)
 4950SYS s_drag%,,-1:!buffer%=err%:$(buffer%+4)=mess$:SYSs_error%,buffer%,1,FNget_message("Mail00")
 4960ENDPROC
 4970
 4980DEFPROCerrorbox :REM Report error, with line number if error < 2000
 4990IF (ERR < 2000) AND internal% THEN PROCrep(ERR,REPORT$+FNget_message("MailE0")+STR$ERL+")."+CHR$0) ELSE PROCrep(ERR,REPORT$+CHR$0)
 5000ENDPROC
 5010
 5020DEFFNiconbar
 5030!icons%=-1:icons%!4=0:icons%!8=0:icons%!12=47:icons%!16=68:icons%!20=&3102
 5040spname$="-mailhole"
 5050DIM icons%!24 12:$(icons%!24)=spname$
 5060icons%!28=sprites%:icons%!32=11
 5070SYS s_createi%,,icons% TO ic%
 5080=ic%
 5090
 5100DEFPROCnudge(nodelay%)
 5110LOCAL P%,f0%,f1%,f2%,f3%,f4%,f5%
 5120IF nodelay% THEN
 5130  IF NetOK% THEN
 5140    SYS "NetFS_ReadFSTimeouts" TO f0%,f1%,f2%,f3%,f4%,f5%
 5150    SYS "NetFS_SetFSTimeouts",5,4,5,4,100,20
 5160  ENDIF
 5170  SYS s_xfile%,5,mname$ TO r0,,r2,r3,r4,r5 ; P%
 5180  IF NetOK% THEN
 5190    SYS "NetFS_SetFSTimeouts",f0%,f1%,f2%,f3%,f4%,f5%
 5200  ENDIF
 5210  IF P% AND 1 THEN
 5220    IF delay%<>lodel% THEN
 5230      delay%=lodel%:count%=6:ENDPROC
 5240    ELSE
 5250      count%-=1:IFcount%=0 delay%=hidel%:spname$="-mailunk":PROCchange
 5260      PROCtick
 5270      ENDPROC
 5280    ENDIF
 5290  ELSE
 5300    delay%=hidel%
 5310  ENDIF
 5320ELSE
 5330  SYS s_xfile%,5,mname$ TO r0,,r2,r3,r4,r5 ; P%
 5340  IF P% AND 1 THEN spname$="-mailunk":PROCchange:PROCtick:ENDPROC
 5350ENDIF
 5360CASE r0 OF
 5370WHEN 1:IF r4 AND spname$<>"-mailfull" AND bong THEN VDU7
 5380IF r4 spname$="-mailfull" ELSE spname$="-mailnone"
 5390OTHERWISE spname$="-mailunk"
 5400ENDCASE
 5410PROCchange
 5420PROCtick
 5430ENDPROC
 5440
 5450DEFPROCtick
 5460SYS s_time% TO timeslip%
 5470WHILEtimeslip%-timex%>=0:timex%+=delay%:ENDWHILE
 5480ENDPROC
 5490
 5500DEFPROCchange
 5510SYS s_spop%,&118,sprites%,spname$ TO,,src%
 5520SYS s_spop%,&118,sprites%,"-mailhole" TO,,dest%
 5530FORz%=44TO!src%-1STEP4:dest%!z%=src%!z%:NEXT
 5540!q%=-1:q%!4=icmail%:q%!8=0:q%!12=0
 5550SYS s_setistate%,,q%
 5560ENDPROC
 5570
 5580DEFPROCpopup(handle%)
 5590PROCgetw(handle%)
 5600xo%=mousex%-(x0%+x1%)/2:yo%=96-y0%
 5610PROCopen_window(handle%,x0%+xo%,y0%+yo%,x1%+xo%,y1%+yo%,scx%,scy%,-1)
 5620ENDPROC
 5630
 5640DEFPROCopen_window(handle%,x0%,y0%,x1%,y1%,scx%,scy%,bhandle%)
 5650IFhandle%=-1THENENDPROC
 5660q%!0=handle%:q%!28=bhandle%
 5670q%!4=x0%:q%!8=y0%:q%!12=x1%:q%!16=y1%
 5680q%!20=scx%:q%!24=scy%
 5690SYS s_openw%,,q%
 5700ENDPROC
 5710
 5720DEFPROCgetw(handle%)
 5730!q%=handle%:SYS s_getwstate%,,q%
 5740PROCinfo(q%+4):bhandle%=q%!28:flags%=q%!32
 5750ENDPROC
 5760
 5770DEFPROCinfo(q%)
 5780x0%=!q%:y0%=q%!4:x1%=q%!8:y1%=q%!12:scx%=q%!16:scy%=q%!20
 5790bx%=x0%-scx%:by%=y1%-scy%
 5800ENDPROC
 5810
 5820DEFPROCredraw_window(handle%)
 5830IFhandle%=mailto% THEN
 5840!q%=handle%
 5850SYS s_redraww%,,q% TO more%
 5860PROCinfo(q%+4)
 5870ENDIF
 5880ENDPROC
 5890
 5900DEFPROCgetpointer
 5910SYS s_getpoint%,,buffer%
 5920mousex%=!buffer%:mousey%=buffer%!4:b%=buffer%!8:handle%=buffer%!12:icon%=buffer%!16:ob%=buffer%!20
 5930ENDPROC
 5940
 5950DEFPROCclose_window(handle%):!q%=handle%:SYS s_closew%,,q%:ENDPROC
 5960
 5970DEFPROCsetOpt(window%,icon%,state%)
 5980 !optbuff%=window%:optbuff%!4=icon%:SYS s_getistate%,,optbuff%
 5990 IFstate% $(optbuff%+28)="opton" ELSE $(optbuff%+28)="optoff"
 6000 !optbuff%=window%:optbuff%!4=icon%:SYSs_deletei%,,optbuff%
 6010 optbuff%!4=window%:SYSs_createi%,,optbuff%+4
 6020 !q%=window%:q%!4=icon%:q%!8=0:q%!12=0:SYSs_setistate%,,q%
 6030ENDPROC
 6040
 6050DEFFNhelp(window%,icon%,to%)
 6060 LOCAL t$,t1$:t$="":t1$=""
 6070$to%=""
 6080CASE window% OF
 6090 WHEN -2
 6100  t$="MailH1"
 6110  IF spname$ = "-mailunk" THEN
 6120   t1$="MailH2"
 6130  ELSE
 6140   t1$="MailH3"
 6150   IF spname$ = "-mailfull" THEN t1$="MailH4"
 6160  ENDIF
 6170 WHEN mailto%:
 6180  t$="MailH5"
 6190  CASE icon% OF
 6200   WHEN 0: t1$="MailH6"
 6210   WHEN 1: t1$="MailH7"
 6220   WHEN 2: t1$="MailH8"
 6230   WHEN 3: t1$="MailH9"
 6240   WHEN 4: t1$="MailHA"
 6250   WHEN 11:
 6260    IF ack THEN t1$="MailHB" ELSE t1$="MailHC"
 6270   OTHERWISE: t$=""
 6280  ENDCASE
 6290 WHEN choiceswindow%
 6300  t$="MailH5"
 6310  CASE icon% OF
 6320   WHEN 0: t1$="MailHD"
 6330   WHEN 1: t1$="MailHE"
 6340   WHEN 2: t1$="MailHF"
 6350   WHEN 3: t1$="MailHG"
 6360   WHEN 4: t1$="MailHH"
 6370   WHEN 5: t1$="MailHI"
 6380   WHEN 6:
 6390    IF newBong THEN t1$="MailHJ" ELSE t1$="MailHK"
 6400   OTHERWISE: t$=""
 6410  ENDCASE
 6420  OTHERWISE
 6430   SYS "Wimp_GetMenuState", 1, menu_buffer%, window%, icon%
 6440   CASE menu_buffer%!0 OF
 6450    WHEN 0: t$="MailHL"
 6460    WHEN 1: t$="MailHM"
 6470    WHEN 2: t$="MailHN"
 6480    WHEN 3: t$="MailHO"
 6490    WHEN 4: t$="MailHP"
 6500   ENDCASE
 6510
 6520ENDCASE
 6530IF t$ <> "" AND t1$<>"" THEN $to%=FNget_message(t$)+FNget_message(t1$) ELSE IF t$ <> "" THEN $to%=FNget_message(t$)
 6540=to%+LEN($to%)
 6550
 6560DEFPROCnoteBuffers(window%, lo%, hi%, RETURN to%())
 6570 LOCAL icon%
 6580 iconInfo%!0=window%
 6590 FOR icon%=lo% TO hi%:iconInfo%!4=icon%:SYSs_getiinfo%,,iconInfo%:to%(icon%-lo%)=iconInfo%!28:NEXT
 6600ENDPROC
 6610
 6620DEFFNbuffLength(buffer%)
 6630 LOCAL l%
 6640 FOR l%=0TO255:IFbuffer%?l%=13 OR buffer%?l%=10 OR buffer%?l%=0 THEN=l%
 6650 NEXT
 6660=255
 6670
 6680DEFFNtoCtrl(from%, to%) :REM |M -> ch.code 13, returns length
 6690 LOCAL f%,t%:f%=0:t%=-1
 6700 REPEAT
 6710 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
 6720 UNTIL to%?t%=0
 6730=t%
 6740
 6750DEFPROCregisterChoices(check%, keep%)
 6760 LOCAL i%, length%
 6770 FOR i%=0TOmaxVars%
 6780  length%=FNfromCtrl2(choice%(i%),buffer%)
 6790  IF length%=0 THEN length%=-1
 6800  SYS s_setvar%,varnames$(i%),buffer%,length%,0,0
 6810 NEXT
 6820 PROCsetMailSource:IF check% PROCcheckMailSource:bong=newBong
 6830 PROCnoteScrap
 6840 IF NOTkeep% THEN SYS s_crmenu%,,-1
 6850ENDPROC
 6860
 6870DEFFNfromCtrl2(from%, to%) :REM make string suitable for *Set
 6880 LOCAL f%,t%,c%:f%=-1:t%=-1
 6890  REPEAT:f%+=1:t%+=1
 6900   CASE from%?f% OF
 6910    WHEN ASC"|":IF (from%?(f%+1) AND &DF)<>ASC"M" THEN to%?t%=ASC"|":t%+=1
 6920                to%?t%=from%?f%
 6930    WHEN ASC"<":to%?t%=ASC"|":t%+=1:to%?t%=from%?f%
 6940    OTHERWISE:to%?t%=from%?f%
 6950   ENDCASE
 6960  UNTILfrom%?f%=0
 6970= t%+1 : REM includes terminator
 6980
 6990DEFPROCsaveChoices
 7000 LOCAL i%,file%,value$:LOCAL ERROR:ONERROR LOCAL internal%=FALSE:CLOSE#file%:PROCerrorbox:internal%=TRUE:ENDPROC
 7010 file%=0:file%=OPENOUT"<MailMan$Dir>.!Choices"
 7020 FOR i%=0TOmaxVars%
 7030  length%=FNreadVar(i%,buffer%,256):PROCfromCtrl(buffer%, choice%(i%)):value$=FNrtoz(choice%(i%))
 7040  IF value$ <> "" THEN BPUT#file%,i%+ASC"0":BPUT#file%,value$
 7050 NEXT
 7060 IF bong THEN BPUT#file%,ASC"9":BPUT#file%,"Bong"
 7070 CLOSE#file%
 7080 OSCLI"Settype <MailMan$Dir>.!Choices Data"
 7090ENDPROC
 7100
 7110DEFPROCfromCtrl(from%, to%) :REM control codes stripped, except 13 => |M
 7120 LOCAL f%,t%:f%=-1:t%=-1
 7130  REPEAT:f%+=1:t%+=1:IFfrom%?f%=13THENto%?t%=ASC"|":t%+=1:to%?t%=ASC"M"ELSEto%?t%=from%?f%
 7140    IF to%?t%<32 THEN t%-=1 : REM strip control codes (t% ignored at end)
 7150  UNTILfrom%?f%=0
 7160ENDPROC
 7170
 7180DEFPROCfillInChoices
 7190 LOCAL length%, i%
 7200 FOR i%=0TOmaxVars%
 7210  length%=FNreadVar(i%,buffer%,256):PROCfromCtrl(buffer%, choice%(i%))
 7220 NEXT
 7230ENDPROC
 7240
 7250DEFPROCsetMailSource
 7260 C%=FNreadVar(source, buffer%, 256)
 7270 IF C%=0 THEN mname$="net:&.mail.Intray":PROCsetVar(source,mname$) ELSE mname$=FNrtoz(buffer%)
 7280 C%=INSTR(mname$,":"):IFMID$(mname$,C%+1,1)=":" C%=INSTR(mname$,".",C%+1)
 7290 fname$=LEFT$(mname$,C%)
 7300 C%=INSTR(mname$,".Intray")
 7310 IF C%=0 THEN nfsname$=fname$+"$.Mail." ELSE nfsname$=LEFT$(mname$,C%)
 7320 mailguard$=nfsname$+"M_ACTIVE"
 7330 mailt$=nfsname$+"M_CTMP"
 7340 nfsflag%=0
 7350 C%=INSTR(fname$,"nfs")
 7360 IF C%=1 THEN
 7370  nfsflag%=1
 7380  SYS s_file%,5,mailt$ TO r0
 7390  IF r0<>0 THEN SYS s_xfile%,6,mailt$
 7400 ENDIF
 7410 PROCcheck_access
 7420ENDPROC
 7430
 7440
 7450DEF PROCcheck_access
 7460 REM Fix MM-0001 - check for public write access on mail box
 7470
 7480 SYS "XOS_File", 5, mname$ TO type%,,,,,attr% ; f%
 7490
 7500 IF (f% AND 1) THEN
 7510     SYS "Wimp_ReportError", type%, 1, FNget_message ("Mail00")
 7520     ENDPROC
 7530 ENDIF
 7540
 7550 IF (type% = 0) THEN
 7560     PROCreport (2007, "MailEL")
 7570 ELSE
 7580  IF (type% <> 1) THEN
 7590      PROCreport (2005, "MailEK")
 7600  ELSE
 7610   IF ((attr% AND %100000) = 0) THEN
 7620      PROCreport (2006, "MailEJ")
 7630   ENDIF
 7640  ENDIF
 7650 ENDIF
 7660ENDPROC
 7670
 7680DEFPROCcheckMailSource
 7690 LOCAL flags%, exists%:LOCAL ERROR
 7700 ONERROR LOCAL internal%=FALSE:PROCerrorbox:internal%=TRUE:ENDPROC
 7710 SYS s_file%,5,mname$ TO exists%
 7720 IF exists%=0 THEN PROCreport(2004,"MailG2")
 7730ENDPROC
 7740
 7750DEFFNcreateTree(name$)
 7760 REM Recursively strip leaf off, test for existence and try to create
 7770 LOCAL i%, root$, exists%, flags%, mid$:LOCAL ERROR
 7780 ONERROR LOCAL PROCerrorbox:=FALSE
 7790 FOR i%=LENname$ TO 1 STEP -1
 7800  mid$=MID$(name$,i%,1)
 7810  IF mid$="." THEN
 7820   root$=LEFT$(name$,i%-1)
 7830   SYSs_file%,5,root$ TO exists%:IF exists% THEN =TRUE
 7840   SYSs_cli%,"cdir "+root$ TO ;flags%:IF (flags% AND 1)=1 THEN =FNcreateTree(root$) ELSE =TRUE
 7850  ELSE
 7860   IF mid$="&" OR mid$="$" OR mid$=":" THEN =FALSE
 7870  ENDIF
 7880 NEXT
 7890=FALSE
 7900
 7910DEFPROCsetFile(buffer%,i%,leaf$)
 7920 LOCAL length%, name$, temp%:DIM temp% 256
 7930 length%=FNreadVar(i%,temp%,256)
 7940 IF length%=0 THEN name$=FNrtoz(buffer%)+leaf$+CHR$0:PROCsetVar(i%,name$):$choice%(i%)=name$:choice%(i%)?LENname$=0
 7950ENDPROC
 7960
 7970DEFPROCnoteScrap
 7980 SYSs_readvar%,"Mail$Scrap",buffer%,256,0,3 TO ,,scrapC%:buffer%?scrapC%=0
 7990 IF scrapC%=0 THEN scrapC%=FNreadVar(current,buffer%,256)
 8000 IF scrapC%=0 THEN scrap$="" ELSE scrap$=FNrtoz(buffer%)
 8010ENDPROC
 8020
 8030DEFPROCreadChoices
 8040 LOCAL i%,file%,varname$,value$:LOCAL ERROR
 8050 ONERROR LOCAL internal%=FALSE:PROCerrorbox:internal%=TRUE:CLOSE#file%:ENDPROC
 8060 file%=OPENIN"<MailMan$Dir>.!Choices":IFfile%=0THENENDPROC
 8070 WHILE NOT EOF#file%
 8080  i%=BGET#file%-ASC"0":value$=GET$#file%
 8090  IF i%>=0ANDi%<=maxVars% THEN
 8100   C%=FNreadVar(i%,0,-1):IFC%=0 THEN PROCsetVar(i%,value$)
 8110  ELSE
 8120   IFi%=9ANDvalue$="Bong"THENbong=TRUE
 8130  ENDIF
 8140 ENDWHILE
 8150 CLOSE#file%
 8160ENDPROC
 8170
 8180DEFFNreadVar(var%, to%, maxBuf%)
 8190 LOCAL length%
 8200 SYSs_readvar%,varnames$(var%),to%,maxBuf%,0,3 TO ,,length%
 8210 IF maxBuf%<>-1 THEN to%?length%=0
 8220=length%
 8230
 8240DEFPROCsetVar(var%, from$)
 8250 LOCAL len%
 8260 $buffer2%=from$:buffer2%?(LENfrom$)=0:len%=FNfromCtrl2(buffer2%,buffer3%)
 8270 SYSs_setvar%,varnames$(var%),buffer3%,len%,0,0
 8280ENDPROC
 8290
 8300DEFPROCredrawChoices
 8310 PROCstartChoices:SYSs_forcered%,handle%,0,-1024,1280,0
 8320 SYSs_getcaret%,,q%
 8330 IF !q%=choiceswindow% THEN PROCsetCaret(!q%,q%!4,q%!20)
 8340ENDPROC
 8350
 8360DEFPROCputM(h%,m$)
 8370BPUT#h%,FNget_message(m$);
 8380ENDPROC
 8390DEFPROCputM1(h%,m$)
 8400BPUT#h%,FNget_message(m$)
 8410ENDPROC
 8420
 8430DEFPROCputM2(h%,m$,m1$)
 8440PROCputM(h%,m$):BPUT#h%,m1$
 8450ENDPROC
 8460
 8470DEFPROCinit_messages
 8480LOCAL C%,J%
 8490C%=OPENIN("<MailMan$Dir>.Messages")
 8500IFC%=0 ERROR 2011,"Cannot find messages file"
 8510DIM messages% EXT#C%
 8520J%=messages%
 8530WHILE NOTEOF#C%
 8540 $J%=GET$#C%
 8550 J%+=LEN($J%)+1
 8560ENDWHILE
 8570CLOSE#C%
 8580endofmessages%=J%
 8590ENDPROC
 8600
 8610DEFFNget_message(T$)
 8620LOCAL J%,C$,I%
 8630J%=messages%
 8640WHILE J%<endofmessages%
 8650 C$=$J%
 8660 J%+=LEN($J%)+1
 8670 IFLEFT$(C$,1)<>"#" THEN
 8680  I%=INSTR(C$,":")
 8690  IFI%<>0 THEN
 8700   IFLEFT$(C$,I%-1)=T$ :=MID$(C$,I%+1)
 8710  ENDIF
 8720 ENDIF
 8730ENDWHILE
 8740ERROR 2010,"Cannot find tag "+T$
 8750=""
 8760
 8770DEF PROCdesksave(message%)
 8780LOCAL myref%,sender%
 8790IF NOT FNdeskwrite(message%!20) THEN
 8800  sender%=message%!4
 8810  myref%=message%!8
 8820  message%!12=myref%
 8830  SYSs_sendm%,19,message%,sender%
 8840  PROCrep(ERR,REPORT$)
 8850ENDIF
 8860ENDPROC
 8870
 8880DEF FNdeskwrite(H%)
 8890LOCAL ERROR
 8900ON ERROR LOCAL = FALSE
 8910BPUT#H%,"Run "+$bootpath%
 8920= TRUE
 8930
 8940DATA "Mail$Current","Mail$LogFile","Mail$Name","Mail$Source"

"� > !RunImage 2.00 (28-Apr-95)
*I AM MAIL NETMAIL
� taskid%4:$taskid%="TASK"
(>ș "Wimp_Initialise",300,!taskid%,"Mail Man",-1 � version%
2M`wbcol=&0:`tbcol=12:`sco=4:`mbcol=2:`wfcol=&7:`tfcol=7:`sci=&D:`tbcol2=&C
<	�vars
F
P�init_messages
Z
d� bootpath% 256
n<șs_readvar%,"MailMan$Dir",bootpath%,256,0,3 �,,bootlen%
xbootpath%?bootlen%=13
�
�=maxbuf%=&200:� buffer% maxbuf%,endbuf% -1:curbuf%=buffer%
�"� buffer2% &100, buffer3% &100
�� menu_buffer% 40
�)ș s_fsctrl%,13,"net"+�0,1 � ,,NetOK%
�
�� q% &240,icons% &100
�� menudata% &200
�FmaxVars%=3:� choice%(maxVars%):current=0:logfile=1:name=2:source=3
�BmaxSend%=5:� send%(maxSend%):to=0:cc=1:subject=2:from=3:file=4
�C� varnames$(maxVars%):�v%=0�maxVars%:�varnames$(v%):�:scrap$=""
�
�� iconInfo% 40
-bong=�:internal%=�:� �errorbox:�finish:�
/S%=�"<MailMan$Dir>.Sprites":T%=�#S%+16:�#S%
� sprites% T%
"!sprites%=T%:sprites%!8=0
,ș s_spop%,&109,sprites%
64ș s_spop%,&10A,sprites%,"<MailMan$Dir>.Sprites"
@icmail%=�iconbar
J
T*ș s_opent%,,"<MailMan$Dir>.Templates"
^WmailIconSize%=255:mailtoSize%=5*mailIconSize%+32+16:infoSize%=200:choicesSize%=1200
hK� mailIcons% mailtoSize%,infoIcons% infoSize%,choiceIcons% choicesSize%
rCș s_loadt%,,q%,mailIcons%,mailIcons%+mailtoSize%,-1,"MailTo",0
|Bș s_createw%,,q% � mailto%:�noteBuffers(mailto%,0, 4,send%())
�?ș s_loadt%,,q%,infoIcons%,infoIcons%+infoSize%,-1,"Info",0
�#ș s_createw%,,q% � infowindow%
�Iș s_loadt%,,q%,choiceIcons%,choiceIcons%+choicesSize%,-1,"choices",0
�Tș s_createw%,,q% � choiceswindow%:�noteBuffers(choiceswindow%, 2, 5, choice%())
�ș s_closet%
�
�� optbuff% 100
�6mailref%=0:mailmethod%=0:� 0 none,1 file,2,3 scrap
�!ack=�:�setOpt(mailto%,11,ack)
�dialogueStarted%=�
�
��readChoices:�fillInChoices
�Hș s_readvar%,"MailMan$Dir",buffer%,255,0,3 � ,,length%:v%=length%-1
:ȕ v%>=0 � buffer%?v%<>�".":v%-=1:�:v%+=1:buffer%?v%=0
K�setFile(buffer%,current,"Current"):�setFile(buffer%,logfile,"LogFile")
�setMailSource:�noteScrap
&
0� �errorbox
:lodel%=500
Dhidel%=6000
Ndelay% = hidel%
Xș s_drag%,,-1
b!ș s_time% � timex%:�nudge(�)
l�
v  ș s_poll%,0,q%,timex% � A%
�
  Ȏ A% �
�B  � 0 :�mailmethod%=3 �StartDialogue:mailmethod%=1 � �nudge(�)
�  � 1 :�redraw_window(!q%)
�D  � 2 :�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
�  � 3 :�close_window(!q%)
�7  � 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16,q%!20)
�6  � 8 :�key(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24)
�3  � 9 :�getpointer:�menuselect(q%):�retainCheck
�  � 17,18:�receive(q%)
�  �
�� �
�
���receive(q%)
�noteScrap
Ȏ q%!16 �
� 0:�finish:�
 '� 3:� data loaded from filer viewer
*)  � mailmethod%<2 � q%!12<>mailref% �
4#    � q%!40=4096 � q%!40=8192 �
>"      �report(2003,"MailE2"):�
H	    �
R-      filenam$=�rtoz(q%+44):mailmethod%=1
\3      q%!16=4:q%!12=q%!8:ș s_sendm%,17,q%,q%!4
f      �StartDialogue
p	    �
z  �
�8    q%!16=4:q%!12=q%!8:ș s_sendm%,17,q%,mailsender%
�    ș s_time% � timex%
�    mailmethod%=3
�  �
�� 1:� a data save into me.
�6  filenam$=�get_message("MailG1")+�rtoz(q%+44)+">"
�2  mailmethod%=2:mailsender%=q%!4:mailref%=q%!8
�  � scrap$="" � �
�[  $(q%+44)=scrap$:q%?(44+scrapC%)=0:!q%=47+scrapC%+1��3:q%!16=2:q%!12=mailref%:q%!36=-1
�1  ș s_sendm%,17,q%,mailsender%:mailref%=q%!8
�� 10:� desktop save
�  �desksave(q%)
�� &502:� help request
'  q%!12=q%!8:q%!16=&503:help%=q%+20
-  help%=�help(q%!32,q%!36,help%):?help%=0
  !q%=(help%+4-q%)��3
$  ș s_sendm%,17,q%,q%!4
.9� &400C0:� submenu request: can only apply to choices
86  �startChoices:ș s_crsubmenu%,,q%!20,q%!24,q%!28
B�
L�
V
`��startChoices
jB �fillInChoices:newBong=bong:�setOpt(choiceswindow%,6,newBong)
t�
~
���StartDialogue
��endDialogue
�(� scrap$=""��report(2005,"MailE3"):�
�!fromnam$=�rtoz(choice%(name))
�$(send%(to))=�0
�$(send%(cc))=�0
�$(send%(subject))=�0
�$(send%(from))=fromnam$+�0
�$(send%(file))=filenam$+�0
�2�getpointer:�popup(mailto%):dialogueStarted%=�
�&șs_setcaret%,mailto%,0,0,-1,-1,-1
��


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

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


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

�



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

 menuItems% = 0

*menuhandle%=handle%

4menuptr%=menudata%

>i%=0

Hmenuptr%!20=44

R$menuptr%=menutitle$

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

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

pmenuptr%+=28

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

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

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

��

�

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

�� left$

�� text$="" �

�!menuptr%=0

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

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

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

�menuptr%!8=&07000021

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

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

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

�

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

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

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

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

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

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


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

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

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