Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/mail.com
There are no other files named mail.com in the archive.
(FILECREATED "18-NOV-81 22:36:43" ("compiled on " <LISPUSERS>MAIL.;21) (2 . 2) brecompiled explicitly:
 MSGSTUB in "INTERLISP-MAXC " dated "18-NOV-81 22:01:03")
(FILECREATED "15-MAY-79 16:57:59" <LISPUSERS>MAIL.;21 6057 changes to: SETMAILFILE1 previous date: 
"12-JUL-78 18:16:23" <LISPUSERS>MAIL.;18)
(ADDTOVAR NOSWAPFNS MAILWATCHER)
MAILWATCHER BINARY
-.bZ3B+

 .x,XB,<,<$/Z,~(VARIABLE-VALUE-CELL MAILFILESTR . 3)
(VARIABLE-VALUE-CELL MAILEVENTCOUNT . 11)
(VARIABLE-VALUE-CELL MAILTIME . 21)
(VARIABLE-VALUE-CELL MAILINTERVAL . 18)
MAILCHECK
(BHC KT MKN ASZ KNIL ENTER0)XH0`@
MAILCHECK BINARY
=3;-.3,<,<,<Z`3B+,<5,<,<5&6+Z, S"+-XBw 1 &3d+- ,XBw,,>1,>  ,^/2b77+Z`2B+Z+Z`3B++,<6,<$7,<w,<7Z8F8,<,<$7Zw,+^"+ , 2 2+ + +  (Bw,XBp1B+)1B+),<9,<$7,<p"9,<:,<$7Z`2B+-ZwXBZw3B+0,B:Zp+7D	&\J`-P(USER . 1)
(FLG . 1)
(VARIABLE-VALUE-CELL MAILFILESTR . 14)
(VARIABLE-VALUE-CELL LASTKNOWNMAIL . 90)
"<"
">MESSAGE.TXT;1 "
CONCAT
"[Mail waiting - "
PRIN1
-34309144576
""
GDATE
" from "
PRINTUSERNAME
"]
"
RLJFN
(URET3 ASZ KT BHC IUNBOX MKN UPATM KNIL ENTER2)p&+8(0Php,@8(
PRINTUSERNAME BINARY
/$5 ( 04B

1H9
1b-1" g.",5,<,<$,~ h(N . 1)
(VARIABLE-VALUE-CELL MACSCRATCHSTRING . 3)
"unknown"
PRIN1
(KT FOUT ASZ UPATM ENTER1)



MSGSTUB BINARY
8*6-.*Z3B+,<+,<,<@,`+	ZZ-XBZB.Z,~3B+Z,~,<".,</"/ZB/,<0"/,<"0,<@1 +),<0Z,<,,Z,XBXB`,<3,<3,<@,`+ ZZ-XB,<"4,<4".XB
Zw~XB8Z,~2B+"Z5XB[`XB,<0Z`Z[D5Z!3B+( 6,~Z`,~Z,~u`
(VARIABLE-VALUE-CELL MAILFILE . 27)
(VARIABLE-VALUE-CELL RESETVARSLST . 69)
((DUMMY) . 0)
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
SUBSYS
CLEARBUF
" "
BKSYSBUF
"

"
CONTROL
(VARIABLE-VALUE-CELL OLDVALUE . 38)
NIL
NIL
(NIL VARIABLE-VALUE-CELL RESETSTATE . 75)
((DUMMY) . 0)
INTERNAL
READC
<SUBSYS>MSG.SAV
ERROR
APPLY
ERROR!
(CONS CONSNL LIST2 KT CF KNIL ENTER0)hXP

0'(H
SETMAILFILE1 BINARY
-.Z,<Z6@Z2B+	,<,<,<$,<,<&+2B+,<,<,<$,<,<&+ XB,\3B+Z+Z`3B+Z,<,<$XBZ"XB,~y?E&(FLG . 1)
(VARIABLE-VALUE-CELL MAILFILE . 38)
(VARIABLE-VALUE-CELL MAILFILESTR . 42)
(VARIABLE-VALUE-CELL LASTKNOWNMAIL . 44)
TENEX
TOPS20
"<"
DIRECTORYNAME
">MESSAGE.TXT;1"
PACK*
"<"
">MAIL.TXT.1"
SHOULDNT
" "
CONCAT
(ASZ KT KNIL KL20FLG ENTER1)@8
(PRETTYCOMPRINT MAILCOMS)
(RPAQQ MAILCOMS ((* check periodically if you have new mail) (DECLARE: FIRST (ADDVARS (NOSWAPFNS 
MAILWATCHER))) (FNS MAILWATCHER MAILCHECK PRINTUSERNAME MSGSTUB) (FNS SETMAILFILE1) (VARS MAILINTERVAL
 (MAILTIME -1) (LASTKNOWNMAIL -1) (MAILEVENTCOUNT -20) (MAILFILE) (MAILFILESTR) (MSGFORK)) (P (MOVD? (
QUOTE SETMAILFILE1) (QUOTE SETMAILFILE)) (SETMAILFILE T) (MOVD? (QUOTE MSGSTUB) (QUOTE MSG))) (ADDVARS
 (AFTERSYSOUTFORMS (SETMAILFILE))) (DECLARE: EVAL@LOADWHEN (CCODEP (QUOTE MAILWATCHER)) (ADDVARS (
PROMPTCHARFORMS (MAILWATCHER)))) (LOCALVARS . T) (GLOBALVARS MAILTIME MAILINTERVAL MAILFILESTR 
LASTKNOWNMAIL MAILEVENTCOUNT) (DECLARE: EVAL@COMPILE DONTCOPY (P (OR (GETD (QUOTE CJSYS)) (LOAD (QUOTE
 <LISPUSERS>CJSYS.COM)))))))
(RPAQQ MAILINTERVAL 300)
(RPAQ MAILTIME -1)
(RPAQ LASTKNOWNMAIL -1)
(RPAQ MAILEVENTCOUNT -20)
(RPAQ MAILFILE NIL)
(RPAQ MAILFILESTR NIL)
(RPAQ MSGFORK NIL)
(MOVD? (QUOTE SETMAILFILE1) (QUOTE SETMAILFILE))
(SETMAILFILE T)
(MOVD? (QUOTE MSGSTUB) (QUOTE MSG))
(ADDTOVAR AFTERSYSOUTFORMS (SETMAILFILE))
(ADDTOVAR PROMPTCHARFORMS (MAILWATCHER))
NIL