Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/msg.com
There are no other files named msg.com in the archive.
(FILECREATED "24-JAN-82 11:20:37" ("compiled on " <LISPUSERS>MSG.;39) (2 . 2) brecompiled exprs: MSG 
CHECKMSG# CONFIRM DELCHECK DOMSGS GETFILENAME MSGOPEN MSGSETUP NEWMAIL PARSEMSGRANGE PRINTCURRENT 
PRINTFIELD PRINTHEADER PRINTMESSAGE PUTMESSAGE READMESSAGES READMESSAGETEST READSTRING REWRITEMSGS 
MYASKUSER MYTAB MYCOPYBYTES MYGTJFN COPYLAURELMSG in WORK dated "26-DEC-81 12:35:21")
(FILECREATED "24-JAN-82 11:19:39" <LISPUSERS>MSG.;39 51228 changes to: MSGCOMS MYASKUSER REWRITEMSGS 
FINDTO READMESSAGETEST FINDFROM FLDID GETFIELD MSG MSGSETUP PRINTHEADER PRINTMESSAGE PUTMESSAGE 
COPYLAURELMSG previous date: "24-JAN-79 02:34:40" <LISPUSERS>MSG.;37)

MSGBLOCKA0031 BINARY
-.Z`3B+Z`B,~Z,~@(X . 1)
RLJFN
(KNIL ENTER1)X

MSGBLOCKA0032 BINARY

	-.,<`,<$3B+,<`,<$	,~Z,~X(MSG . 1)
" to file: "
PUTMESSAGE
2
MARKMESSAGE
(KNIL ENTER1)@

MSGBLOCKA0033 BINARY
-.,<`,<$,~(X . 1)
2
MARKMESSAGE
(ENTER1)

MSGBLOCKA0034 BINARY
-.,<`,<$,~(X . 1)
2
UNMARKMESSAGE
(ENTER1)

MSGBLOCKA0035 BINARY

	-.Z` ,>,>Z`  ,^/2"7Z,~(X . 1)
(Y . 1)
(KT KNIL BHC ENTER2)xh

MSGBLOCK BINARY




-.

X

('_Z,<@

* +KZ,<,<

,,<

,,<@

-`+DZZ

.XB,,<

/ZB

/XB,,<,<,Z,XB,<

/,<"

/,,Z,XB,<

0ZB

0XB,,<,<,Z,XB,<

0,<

1"

0,,Z,XB Z,@

1,/",,<@

2@P+BZwZ83B+.,<

8,<

8$

9,<

9"

9,<

8"

:,<

:"

;Zw,<8"

; 

< 

1XB,<

<"

=ZB

= 

= 

>XBB

>XBZwZ?2B+>,<

?Z4,<,<

?,<

@,<

@,<

A,<

A,<

B0

BZwXB?3B+L+C2B+AZXB?3B+L+C2B

C+C+L,<

C,<,<@

-`+KZZ

.XBZw,<?,<,<,!Z,~2B+NZXB?,<

D"

=+ZZ

D,<Z,<,,<,<,Z!,XBRZ"

,XBZ2B+XZTXBVZUB

=,<

E"

=Z3B+]B

0ZXBZ 

E1B+_ 

=ZL3B+pB

F3B+cZ_B

FZW2B+jZ3B+jZb,<,<,<,!,<,^,UZ3B+p,<

G"

=Zf,<,<,<,!,<,^ZXB,<

G,<,<@

-`+=ZZ

.XB,<

H,<

H,<,<,	eZw}XB82B

I+{Z+<2B

I+Z

(,<,<,T+<2B

J+,<,}3B+
ZX"

0b+,<,^+<Z"

/",,<,o,<,_+<Z+<2B

J+,<,}3B+Z"

,>

,> X ,^/3"+,<,^+<Z"

.",,<,o,<,_+<Z+<2B+Z

),<,<,T+<2B

K+&ZXBqZ

),<,<,TZ3B+$B

F+<,<

K"

= 

L+<2B

L+.ZXB!Z

),<,<,TZ'3B+,B

F+<,<

M"

= 

L+<2B

M+7ZXB*Z

N,<,<,TZ03B+5B

F+<,<

N"

= 

L+<2B

O+:Z

O,<,<,T+<2B

P+>Z

P,<,<,T+<2B

Q+D,	?ZwZ83B+B 

Q+<ZZw}XB8+<2B

R+NZm3B+<B

=,	?,<,2ZwZ83B+L 

Q+<ZZw}XB8+<3B

R+P2B

S+ZZE3B+<B

=,	?Zw}Z82B

S7Z,<,2ZP,<,<,<,!,<,^+<2B

S+k,	?,<

T,<,<@

-`+eZZ

.XBZ,<,<,<,<,<,<,<,
5XB`+2B+<,<,<,<,<,<,<,<,
5XBd+<2B

T+w,	?,<

U,<,<@

-`+vZZ

.XB,<

U,<,<,<,<,<,<,
5B

V++<2B

V+~,<

W,<,<

W,Z,<,<,<,!ZcXB,<,^+<2B

X+.,<,<$

XB

>,<,<

YZ7,<,<

Y&

ZD

ZZwXB?,<

[,<$

=Zw,<?,<$

=,<

[,<$

=,<"

=Zw,<?,<,<

\,!,<,}2B+ 

\Ze,<,<,<,<Zw~-,+++ZXBw,<Z

],<,<&

]XBp3B+)ZpB

^XBp3B+)Zw,< w ,\ DZ,>

,>Zw  ,^/+ Z ,>

,> p ,^/ 

H[w~XBw~+Zw/Z|XB|,<,^+<3B

^+02B

_+3,<

_,<$

= 

`+<2B

`+9,<,<,<

a&

a,<,<,<&

=,<"

=+<,<,<,<

b,<

b(

cZ,~2B+? 

L,Z`2B+A+ZZ,~ZwXB8Z,~3B+FZ+FZ

cXB`D

dZ`3B+J 

`,~Z`,~+,<p"

d3B+ 

E1B+O 

=Zp"

,B

=,<

e"

= 

LZ+-.

e@

f,~ZV2B+\ZwZ82B+[,<

g,<$

=Z,~,XXBZXB`[]XB^,<,}Z3B+cZ,+cZ,<Zp-,+f+nZp,<,<`,<w ",3B+lZw~,<8,<w ",/[pXBp+d/+[Zc,<,<,<Zw-,+s+|ZXBpZp"

,Zw~2B+zZp2B+yZXBw+|[wXBw+qZw+ZV3B+,UZp2B+,<

h,<,<@

-`+ZZ

.XBZ},<,<

h$

iXBZ,~3B+ZB

i,XB% 

 

,XB+ZXB	Z,<,<

j$

iB

i,XBZ+,<

j"

=Z+Z2B+Z,~ZZ

kZ7@7ZB

k2B+),<

l"

lXB,<D

m,<ZD

m,<

n,<

nZ F

o,<

o,<

nZ"F

o,<

p,<

nZ$F

o,<

p,<

nZ&F

oZ

qZ7@7ZB

q2B+2,<

l"

rXB,<

r,<F

s,<,<Z.F

sZ

tZ7@7Z-,+K 

tXBZ"-,<Z" ,<,< w,>

,> w ,^/3b+?Zp+KZ6,<,<w w~,>

,>^"0,>

,>^"  ,^//.Bx,^/,F

u w.",XBw+9/Z

c."Z2B+O,<

u,<

v$

vZ

w."Z2B+S,<

w,<

v$

vZXB,~Zj2B+^ 

,>ZO, 

 

 ,^/2"7ZXBU,~Zp2B+a,<

x"

=Z,"

,B

=,<

x"

=ZB

=,<

y"

=+,<w,<w~$

]2B+iZ

y,< /,>

,> w~ ,^//,,<,<,<,<,<w|Zw}2B+sZ",<,<,<,	MZw~XBp,<,<w,<

B$

z3B

z+zZp+},<w,<

{,<,<

{(

|XBw+v/,<p"

|,,>

,> w~ ,^/2"+,<p"

=[w~XBw~3B+	,<w|,<

B,<,<,	M+uZ/,~Z"XBw,<

},<w w~.",F

}XBw3B+ w,>

,> w~ ,^/2"+ZwXBw+

Zw0B+Zw3B+XBw+,<p"

=+	,<p,<

B w~/",,<,<

~(

|B

=,<p w~.",,<,<

~,<

(

|XBp 

=,<w|"

+~,< 

E1B+* 

=,<w"-Z

=,<w"1Z

=,<w"

d3B+5Z

=Zw"

,B

=,<

B"

,<wZ

],<,<&

]ZXBp3B+@,<,<

B,<

|+@Z

=,<

B"

,<wZ

]ZZ3,3B+J,<

=,<,<w~,<,f+M,<+] 

E,,>

,> j/" ,^/3b+Y 

=,<

,<

=Zw[,B

=,<

= 

=Z+ZpXBa,<p,K3B+cZ+ZZ22B+i,<
,<
,<,<,ZB

/XBc2B+q 

E1B+l 

=,<
Zp"

,B
,<

"
+uZp"

,,<ZiD
,<

ZsD
Z,<Zt,<Zw ,>

,>Zw"

.Bx,^/,,<Zw~[,>

,>Zw~ .BxZw~"

.Bx,^/,,<,n,<p,<

B$,<w,K3B+
Z+ZZv2B+Zp2B+Z

=,<

W,<

W,Z,<,<
Z,,<Zu,<Z,<Zw~ ,,<Zw}[,>

,>Zw} .BxZw}"

.Bx,^/,,<,n,\,Z+-.

\,<,<,<,<,<

0XB],<`"

 

,XBwZp,B

FXBw~3B+5XB`,<,<

\$;,<`,<

iXB`,<,<,<,ZS,XB:,<`"

i,XBw+  ,XBw|Z`Z2B+kZb3B+kZw,>

,>ZBXBw~  ,^/+ Zw 

H+  ,>

,>Zw~  ,^/2B+kZEXBw|,<Zp-,+S+fZp,<Zp"

1B+dZw~,>

,>Zp"

,>

,>Zp .Bx,^/ ,^/+ Zp,<Zw~ 

J+   ,\ D/[pXBp+Q/Zw~"

,XBw~Z`3B+LZw~XB_+LZw 

+ Z"XBw} w},>

,> w| ,^/3"+	Zw 

 

,XBw},<`"

FZ,,<ZX3B+{ZxB~XBZw}XBdZ`XB@,<w|"

n$ w}.",XBw}, ,\d

,<Zw 

H+   ,\ D,< w| ,\ D,<Zw 

J+   ,\QDXBw~Zw|,XBw|Zw+ Zw ,0B+0Zw~,<Zw+  ,>

,> w| ,^// ,\d

Zw~,<Zw 

J+<Z,\ DZw+30B+2Zw+3 

,> w| ,^// ,\d

 w,>

,>Zw~Z,,^/3b+CZ`3B+LZw~XBj+LZ2B+J,<`,<w~,<w~@

=XBCZw,>

,>Zw~[,>

,>Zw~ .BxZw~"

.Bx,^/,XBw}, ,^/+ +n,<,<,<,<

^+(ZB"

,XBwB

=Z(2B,*XBwZ*XBwZ

+n,<,*XBwZ

T+p2B

T+rZ

+tZ,*,XBwZ

R+ 

EXBp,X,< w/",,<,<,<,<,	M,<

=,X,XBwZ

J+ 

EXBp,X,< w/",,<,<,<,<,	M,<

=,X,XBwZ

J+,XXBwZ

O+Z

d+(2B

L+Z

V+Z,<,*XBw~,<,<

^2B+$,<

=,<w~"

= 

`,XBwZ%XBwZZ1D

XXBp,<"

|0B+1,<w"

=+*Zp+,<,<

\ZXB,<,}Z{3B+8,<

=<

? 

>,<,<

?,<

@,<

W,<,<

A,<

~4

B,<,<

/,<
&Zw3B+rZ,<Z,>

,>[pZ  ,^/2B+pZp[,>

,>[pZ[ ,^/2B+pZp"

,>

,>[pZ"

,^/2B+pZp,<Z

],<[wZ,<Z

],\,3B+pZp,<Z

],<[wZ,<Z

],\,3B+pZp,<Z

]D

],<[wZ,<Z

]D

],\,3B+pZp[p[QD+E[pXBp+E/ZD,<,<,<,<Zw~-,+wZw+Zw~,<,<p"

d3B+{Z+	ZZp,<Z@,,>

,>,<w,<,,^/ ,\ DZp,< w}.",XBw}, ,\d

 ,,/XBp-,+Zw3B+ZpQD+ZpXBw  [2D+XBw[w~XBw~+t/XBrZ|B

FZ,,<ZB

FZ,<ZD

i,XB,<w"9+,XB,\,Z+Z

,>[w[Z, ,^/3b+G[wZB

=,<

=[w[ZB

= 

`+Zw+,<w,I+,<p"

=,<

= 

`+ p1b+T p,>

,> # ,^/3b+Y,<p"

=,<

=ZQB

=,<

= 

`+Zp+,<,<,<,<w~,<w~Zw|2B

W+dZ
+cZ	 2B+f 

+<1B+j,	?,<w"

,><w ,^/+ Zw~+x,<w~,<w$

i,,<Zw~0"+{Zw~+},<w~,<

/$

i,,<,>

,>Zw &&,>

,>(D

G

,>

,>\"7	@ w,>

,> w~ ,^//,>

,>4"	7Bx+	3b~+	/~ Bx"~+	"x@@x F}Zw 5F	Zp }0B 1B +	 5F	+	 0 ,8&	+	XBw,<

c,,<,<

c/Z+,>

,>

,>

,>

,>,>

,>

,>

,>

Zp2B+	(^" $+	(,QB|Zw~3BZ &(F{Z1F[ ,	;Zw3B+	3 D~ &(F{Z1F[,	;Zw3B+	8 D &(F{Z1F[,	; "| $7."+	>,B=h	;H,~Z/+,<

=,<"

=,~3B

J+	G2B

= 

`,~2B

I+	KZ,~,<

= 

`,~,<,<w"

EXBp,,>

,>Zw~-,+	S^"+	S,.Bx,^/,>

,> w~ ,^/2b+	_ w~,>

,> p ,^//,,<,<w~$

+	dZw~2B+	a+	d,<w"

=,<w~,<w~$

Z+,<,<,<Zw}-,+	iB

=+	q,<Zp-,+	k+	pZp,<,<p"

=,<

B"

/[pXBp+	i/Zp3B+	xB

=[pXBp+	s/,<"

C+
,<w}Zp-,+	}+

Zp,< 

E1B+
 

=Z[,[ZXBw~3B+
B

=+
ZpB

=[pZB

=/[pXBp+	{/Zw~3B+
,<

= 

E1B+
2 

=+
22B
Zp2B+
XBp+	x2B
Zp2B+
XBp+	x2B

I+
Zw~3B+
Zp3B+
BB+
-ZwZw}7[ZZ1H+
%2D+
!XBw3B+
-[wZB

=Z[,[Z2B+Zw+ZwZw~,3B+
2ZwZp,XBp+	x<,<,<,<,<,<,<,<,<,<,<,<
?ZXBwwZ
;-,+
a ww1b+
a ww0"+
aZwwZ,3B+
aZwwXBwzB
JZw~0B+
L,<wz"

V,<z$

cZwx3B+
O2B
Q[w~[Z+
`2B
S,<wz"
`2B
W,<wz",+
`-,+
^ wx,>

,>,<ww"/,+
`,<

p,<,Bw3B+
c2B
jZZ
gZ
gZ,<,<,<
nZ
oZ,<,<
w,<v,<
y,<v,<,<,<wZw{3B+Zw{XBww+
;,<v$

cXBw{z,,>

,>Zw{,,^/QD@Zwx2B+^"+,,>

,>,<wz"/,XBw~Zww2B+Zwx3B+BZww2B+ 

/XBw|,<wwD

=,<w|"

FB}B

i+-,<,<

F3B+&ZwwXBw}B

i+-,<ww"w"

i+-,<

cXBw|Zwx2B+0 

/$

F3B+5ZwxXBw}B

i+<,<wx"x"

/ZwxXBw}B

i+<,<

cXBw|Zw|,,>

,>Zw|,QBxZwz,,^/CZwy3B+P,<Zp-,+F+NZp,< w,<Zw,,\ B w.",XBw/[pXBp+D/ wz 

8Zwy3B+a,<Zp-,+T+`Zp,<[pZ(B{Q",>

,>Zp,,>

,> wyQBx,^/,^/ 

/[pXBp+R/ 

#,,XBw{,<

-`+xZZ

.XBZw~Z?z3B+k,<

c"lZ $/$ [8`B+p0B0*nmZw~Z?z,,>

,>Zw~Z?~, ,^/79Z,~2B+|Zwz,99ZXBwZw{,  " $,,Zw}3B+

B

FZww-,+

,<w}"+

B

F,< 

$ A",D

EZw3B+

 

`+

,<wz$

0: , H~ ~ xS*h@?ymhgxh~*OLYTH,a$UI^zUQ7+hZgI?r'~$ggcG:>9_J@@_ 7X9#(VDJ  A~yEN`-kci@bH3

DInw0]F! 


;!ji(S@I!`uK//WkR{ccDPc`(<s==
LH%B@p@I%9 _'k+kdyzstsw]M@JXD~{\&	Hb	C
A	E\!
5 qBOE;`k!R
d*!5L=d@ $?Yb"BRc#
&

 R!$Z8wQR)wqWs7VQ*"5RIWK6M,t5&V:



@!!J4P(MSGBLOCK#0 . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 12)
(VARIABLE-VALUE-CELL RESETVARSLST . 1398)
(VARIABLE-VALUE-CELL MSGTTBL . 849)
(VARIABLE-VALUE-CELL OLDTTBL . 32)
(VARIABLE-VALUE-CELL MSGINTERRUPTS . 49)
(VARIABLE-VALUE-CELL OLDINT . 51)
(VARIABLE-VALUE-CELL MSGDATE . 98)
(VARIABLE-VALUE-CELL USERNAMESTRING . 1160)
(VARIABLE-VALUE-CELL USERNAME . 2388)
(VARIABLE-VALUE-CELL MSGFILE . 2103)
(VARIABLE-VALUE-CELL REVMSGS . 2111)
(VARIABLE-VALUE-CELL MSGS . 2088)
(VARIABLE-VALUE-CELL LASTEXEC . 469)
(VARIABLE-VALUE-CELL MSGOPEN . 798)
(VARIABLE-VALUE-CELL MSGJFN . 2108)
(VARIABLE-VALUE-CELL LASTMSGWRITE . 1529)
(VARIABLE-VALUE-CELL MSGSETUP . 936)
(VARIABLE-VALUE-CELL MSGRDTBL . 1878)
(VARIABLE-VALUE-CELL UPLOW . 894)
(VARIABLE-VALUE-CELL NEWMAIL . 1898)
(VARIABLE-VALUE-CELL KEEPJFN . 1544)
(VARIABLE-VALUE-CELL CURRENTMESSAGE . 1728)
(VARIABLE-VALUE-CELL #MSGS . 2221)
(VARIABLE-VALUE-CELL LL . 1192)
(VARIABLE-VALUE-CELL MSGLENGTHFLG . 1185)
(VARIABLE-VALUE-CELL LSTFIL . 2096)
(VARIABLE-VALUE-CELL INTS . 1361)
(VARIABLE-VALUE-CELL LASTMSGREAD . 1534)
(VARIABLE-VALUE-CELL INVERTED . 1783)
(VARIABLE-VALUE-CELL LASTSUBSYS . 2681)
(VARIABLE-VALUE-CELL USERFORKS . 2695)
(VARIABLE-VALUE-CELL SUBSYSSPELLINGS . 2812)
MSG
PRINTHEADER
PRINTMESSAGE
PUTMESSAGE
MSGSETUP
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
SETTERMTABLE
OUTPUT
INTCHAR
RADIX
10
LINELENGTH
(VARIABLE-VALUE-CELL KEEPJFN . 0)
(VARIABLE-VALUE-CELL LL . 0)
(NIL VARIABLE-VALUE-CELL #MSGS . 0)
(NIL VARIABLE-VALUE-CELL CURRENTMESSAGE . 0)
(NIL VARIABLE-VALUE-CELL LSTFIL . 0)
(NIL VARIABLE-VALUE-CELL MSGJFN . 0)
(NIL VARIABLE-VALUE-CELL NEWMAIL . 0)
NIL
NIL
(NIL VARIABLE-VALUE-CELL MSGOPEN . 0)
(((INTCHAR OLDINT) (SETTERMTABLE OLDTTBL)) . 0)
(NIL VARIABLE-VALUE-CELL INTS . 0)
10000
30
MINFS
8000
RECLAIM
WORLD
RELINK
SYSOUT
SETLINELENGTH
"
Lisp MSG -- version of "
PRIN1
TERPRI
USERNAME
MKATOM
DIRECTORY
NAME
MESSAGE
EXTENSION
TXT
VERSION
1
PACKFILENAME
?
((DUMMY) . 0)
"No active message file
"
MSGBLOCKA0031
" messages.
"
POSITION
OPENP
CLOSEF
" -- there are new messages 
"
((DUMMY) . 0)
"-> "
(((H eaders) (T ype) (L ist) (P ut) (M ove) (D elete) (U ndelete) (B "ackup
") (^ "
" RETURN B EXPLAINSTRING "^ - same as Backup") (% "
" RETURN B EXPLAINSTRING "^H - same as Backup") (N "ext
") (%
""RETURN N EXPLAINSTRING "<lf> -- same as Next") (R "ead file: ") (G "et Laurel File: ") (% Exec 
RETURN Exec EXPLAINSTRING "^E  - call an Exec as a lower fork") (A "nswer (not implemented)") (F 
"orward (not implemented)") (S ndmsg) (E "xit & update ") (O "verwrite ") (W "rite sorted ") (Q uit) (
%
 "") (%

 Lisp%
 EXPLAINSTRING "^L -- enter lisp, for debugging purposes.") (: "" EXPLAINSTRING ": - Date & Time ")) .
 0)
%

H
B
N
L
"No messages.
"
CLEARBUF
P
"No messages.
"
M
MSGBLOCKA0032
"No messages.
"
D
MSGBLOCKA0033
U
MSGBLOCKA0034
Q
LOGOUT
E
O
W
Exec
((DUMMY) . 0)
S
((DUMMY) . 0)
<SUBSYS>SNDMSG.SAV
KFORK
R
OLD
MESSAGES
G
RSTRING
"<"
">LAUREL.MAIL;-1;T"
PACK*
COPYLAURELMSG
" {copied to "
";T}"
0
SHOULDNT
%
DATE:% 
GETFIELD
IDATE
A
F
"
Sorry, that command not implemented!
"
ERROR!
:
""
GDATE
LISP
((TRACE) . 0)
BREAK1
ERROR
RESETRESTORE
DELETED?
" is a deleted message
"
DOMSGS
NIL
(NIL VARIABLE-VALUE-CELL ARG . 702)
(NIL VARIABLE-VALUE-CELL INVERTED . 0)
"
No active message file.
"
((DUMMY) . 0)
7516291584
OPENF
OPNJFN
7516258816
"No message file
"
MSGTTBL
TERMTABLEP
ORIG
COPYTERMTABLE
CONTROL
RAISE
5
IGNORE
ECHOCONTROL
8
12
27
MSGRDTBL
READTABLEP
COPYREADTABLE
((31) . 0)
SETSEPR
SETBRK
UPLOW
CASEARRAY
SETCASEARRAY
<LISP>BREAK.COM
SYSLOAD
LOAD
INTERRUPTCHAR
<LISP>HELPDL.COM
"Currently at "
"; "
" messages
"
((--) . 0)
NTHCHAR
% 
2
"adding to kernel"
SUBSTRING
NCHARS
" "
MYSTRPOS
"LCSR Comp Facility): Re: Interlisp-VAX"
-1
"report]"
SPACES
RECENT?
"+"
" "
EXAMINED?
" "
"-"
"*"
" "
6
---
%
FROM:% 
"To: "
14
%
TO:% 
36
%
SUBJECT:% 
15
" ("
" chars)"
" on file: "
PRIN3
NEW
OUTFILE
"msg. "
" -- "
" - *******************************************
"
MARKMESSAGE
" on file: "
OLD/NEW
APPEND
OPENFILE
*READMESSAGES*
((UNBOXED-NUM . 3) VARIABLE-VALUE-CELL NOPRINTFLG . 1688)
NOPRINTFLG
MSGTJFN
JFNS
INPUT
SETFILEPTR
7516258816
CLOSEF?
RLJFN
REVERSE
ARRAY
HELP
(VARIABLE-VALUE-CELL MSGFILE . 0)
(VARIABLE-VALUE-CELL LASTMSGREAD . 0)
(VARIABLE-VALUE-CELL MSGJFN . 0)
"^O"
" "
(((A ll) (I nverse) (F "rom string: ") (T "o string: ") (S "ubject string: ") (K "eywords string: ") (
C "ontaining string: ") (D eleted) (P rinted EXPLAINSTRING "Printed -- same as MSG's examined") (R 
ecent) ( "" EXPLAINSTRING "<esc> -- current message") (B oth EXPLAINSTRING 
"Both <message spec> and <message spec>") (E ither EXPLAINSTRING 
"Either <message spec> or <message spec>") (N ot EXPLAINSTRING "Not <message spec>") (> " since date: "
) (< " before date: ")) . 0)
"

message spec:  "
((0 1 2 3 4 5 6 7 8 9 - , >) . 0)
TRUE

TESTMSG#
C
MSGSEARCH
FINDTO
FINDFROM
K
%
KEYWORDS:% 
FINDKEY
I
"or "
ORPRED
"and "
ANDPRED
NOTPRED
>
<
" 00:00"
CONCAT
"can't parse date: "
CHECKMSGDATE
READC
"
 new mail recieved -- will not rewrite 
"
MSGXXX
SCRATCH
TEMPORARY
MSGBLOCKA0035
SORT
RENAMEFILE
INFILE
,
LDIFF
-
" greater than "
PACK
"? "
" out of range; "
" messages
"
57344
24576
155648
"IO ERROR IN COPYBYTES"
"NEG. # BYTES TO COPY??"
" [confirm] "
Y
y
"es."
n
"o"
" XXX "
EXPLAINSTRING
"
sequence of numbers"
%
%
RETURN
261632
CONTINUE
RFSTS
"ILLEGAL FORK:"
START
GEVEC
REENTER
ERRORX
EXEC
TENEX
TOPS20
<SYSTEM>EXEC.EXE
<SYSTEM>EXEC.SAV
32768
GTJFN
EXE
SAV
32768
SYS:
.EXE
<SUBSYS>
.SAV
32768
60
FIXSPELL
"SUBSYS - BAD FILE/FORK"
CFORK
GPJFN
SUBSYS.INCOMFILE;T
INFILEP
"SUBSYS - BAD INCOMFILE:"
OUTFILEP
"SUBSYS - BAD OUTCOMFILE:"
((DUMMY) . 0)
GETINTERRUPT
DELFILE
LASTSUBSYS
/SETATOMVAL
(SETINT CTCTP LIST3 KL20FLG GETHSH SKI URET7 SKSTP UPATM ATOMT TYPTAB FIXT XXXMHC URET6 FOUT URET5 
SKNNM ALIST3 FMEMB SKLST FGFPTR URET3 CONSS1 INTERRUPTABLE EQUAL SKNAR KNOB GUNBOX URET4 EVCC BINDB 
URET1 URET2 SETMOD SKNLST BHC ASZ MKN IUNBOX CONSNL KT CONS LIST2 ALIST2 CF KNIL BLKENT ENTER1)?x=`/
w
s-H
e
E
X(%X
,#h@0@x	2Pp	2H`	#	!		e
* 04'~&u(tXphy%p_!R@}Pf{pE655@}?(u>(J8@7`
1	)`yh=U018}m-T(U[ OPpc<p2HT)`	 Hx0v("Q(_)@@?T8`	}P	k~`S.0e"PAhv<_;`]9xM8(18
]!8
		qx	]	Ux	  s
@AH
r{Ry@WjH?g(ar\pe[h]YxHShOHWBH@0~=`\9@H8`=-xm%H)$Hm) 
 	;ux1dnM@)C

>897OpAc9H+`
W`	H#qHlUdK@8D0Apo<0J9.hQp
`%Z2 +@
V@	Px<hVahS@Y@w`#

?@x'H	y	A|wP-u8|mKTM(dIXJG8^:H!431z+8T(@='09'7&  XXXM82 0q	0IH?X&*cP;
@!X@,:WS
0hg0Hqxup

@X

?l= e<PR8@760/5$32X
}/8
{. 
p-
i,(
N)
E'0
:' 
9'
8'
7&p
6&`
4%x
,$h
%$
#8
"p
!H
(	gh	fP	N0	?(	4x	*hfH\85 )X"0

{ u~Ht}Xf{xFx 6vP4v0+t qhqXp8olmek(ZkDh~_@z_jX8:V('Tp&T`%TH$T8QX

Ql	MgLPcL ^J PH`=F@0E@(CA(	A?@w>Pt>(q>p=`;XV: N7 2605X31x	0(0~/r.j, `+HZ+M)F(PB(>'(5&P.#P"@"0!x!@!`|8yPt@s0ohj ihghd@c0b ]PYUKG= 4+#P@PP~8xso

Pb

]@W
(M	@JPAX6"@8(

MSG BINARY
-.,<,~(FILE . 1)
(SUBSYSTEM . 1)
MSG
(NIL)
(LINKED-FN-CALL . MSGBLOCK)
(ENTER2)

PRINTHEADER BINARY
-.,<,~(MSG . 1)
PRINTHEADER
(NIL)
(LINKED-FN-CALL . MSGBLOCK)
(ENTER1)

PRINTMESSAGE BINARY
-.,<,~(MSG . 1)
PRINTMESSAGE
(NIL)
(LINKED-FN-CALL . MSGBLOCK)
(ENTER1)

PUTMESSAGE BINARY
-.,<,~(MSG . 1)
(STR . 1)
PUTMESSAGE
(NIL)
(LINKED-FN-CALL . MSGBLOCK)
(ENTER2)

MSGSETUP BINARY
-.,<,~MSGSETUP
(NIL)
(LINKED-FN-CALL . MSGBLOCK)
(ENTER0)

COPYLAURELMSG BINARY
*%-.Z,<@ ,~Z,<,<,<,<@`+ZZXB,<Zw~,<8",Z,XB

,<Zw~,<8",ZB,@,<,<,<,<,<,<,<,<Z"XBw~Zw{1D+:w~ ",XBw0B+ Zw|+

0B+KZw{1D+!:w~ ",,<Z"9,\2B+KZw{1D+':w~ ",,<Z":,\2B+KZw{1D+-:w~ ",,<Z"0,\2B+KZw{1D+3:w~ ",,<Z"9,\2B+KZw{1D+9:w~ ",,<Z":,\2B+KZw{1D+?:w~ ",,<Z",\2B+KZw{1D+E:w~ ",,<Z",\3B+L,<  D Z"XBw},<Zw{1D+N:w} ",XBw1B+\1B+\1B+\1B+\1B+\1B+\1B+\1B+\1B+\0B+e w|$",>,> w.Bx,^/,>,>^" ,^//,XBw|+NZp/,<Zw{1D+g:w} ",<^",\2B+mZp+m+f/,<!"!Zw|,,XBw~,<""!Z"XBw} w},>,> w~ ,^//,XBw,4b,>,>Zw{1D+zZw|0D+ $:w} ">`x5z/Zw|,,XBp,<w|,<w~$",<# w~,>,> w}.Bx,^/,D#,<w|,<w$"+/Zw~XB8Z,~3B+Z+Z XB`D$Z`3B+ $,~Z`,~

 Pi@(LAURELFILE . 1)
(TENXFILE . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 34)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
((PROGN (CLOSEF (INPUT))) . 0)
INFILE
((COND (RESETSTATE (DELFILE (CLOSEF (OUTPUT)))) (T (CLOSEF (OUTPUT)))) . 0)
OUTFILE
INPUT
OPNJFN
OUTPUT
"Bad Laurel File Format"
ERROR
"01-JAN-01 00:00:01,"
PRIN3
"0000000;000000000000
"
SETFILEPTR
((FIX . 15034220554) . 0)
PRINTNUM
RESETRESTORE
ERROR!
(KTIUNBOXFGFPTR BHC MKN ASZ GUNBOX CONS ALIST2 CF KNIL ENTER2)h0p

hc

 q

HR	CP7+Ps@[ YW
`U
@S	XJ@>2@& PX

	

pNxh
CHECKMSGDATE BINARY
-.Z2B+	Z` ,>,>[, ,^/3b7Z,~Z` ,>,>[, ,^/2"7Z,~ @(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 23)
>
(KTKNILBHC IUNBOX ENTER1)	h
MSGXXX BINARY
-.,<" ,~" XXX
"
PRIN1
ERROR!
(ENTER0)
MSGTJFN BINARY


-.,<`,<,<,<(2B+,<	,<`,B	,~Y(FILE . 1)
32769
GTJFN
23
ERRORX
(LIST2 KNIL ENTER1)8
TESTRANGE BINARY
!D-.Z`-,+Z`Z`2B7Z,~Z`2B+ ` ,^/2b+ `,>,>[`[Z, ,^/2b+7Z,~Z,~  ,~EA(N . 1)
(RANGE . 1)
,
TESTRANGE
>
SHOULDNT
(BHC IUNBOX KT KNIL SKNLST ENTER2)(0
X0
ORPRED BINARY
-.Z,<[,<@@,~[`XBZ`,<Zw~,<8 ",2B+[`XBZ`,<Zw~,<8 ",,~@(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 21)
(0 . 1)
(0 . 1)
(NIL VARIABLE-VALUE-CELL ARG . 0)
(KNIL EVCC ENTER1) h	
ANDPRED BINARY
-.Z,<[,<@@,~[`XBZ`,<Zw~,<8 ",3B+[`XBZ`,<Zw~,<8 ",,~Z,~@(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 21)
(0 . 1)
(0 . 1)
(NIL VARIABLE-VALUE-CELL ARG . 0)
(KNIL EVCC ENTER1)x

NOTPRED BINARY





-.
Z,<[,<@@,~,<`Zw~,<8 ",2B+	7Z,~@(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 5)
(0 . 1)
(VARIABLE-VALUE-CELL ARG . 0)
(KT KNIL EVCC ENTER1) 
TESTMSG# BINARY
-.Z2B+,<",~Z`",Z2B+	ZXB,~Z-,+Z,~Z`",,<Z	D,~

0HA@(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 27)
DOMSGS
RETFROM
TESTRANGE
(KNIL SKNLST MKN KT ENTER1)8(X0
MSGSEARCH BINARY
-.Z,<Z,<Z` ,>,>Z`".Bx,^/,,<Z`[,>,>Z` .BxZ`".Bx,^/,,<,<,<ZN,~:(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 3)
(VARIABLE-VALUE-CELL MSGFILE . 5)
(VARIABLE-VALUE-CELL UPLOW . 34)
FFILEPOS
(KNIL MKN BHC ENTER1)	
FINDTO BINARY


	-.	Z
,<Z,<,<`&
2B+Z,<Z,<,<`&
,~,(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 13)
%
TO:% 
FINDMSGKEY
%
CC:% 
(KNIL ENTER1)X
FINDFROM BINARY


	-.	Z
,<Z,<,<`&
2B+Z,<Z,<,<`&
,~,(MSG . 1)
(VARIABLE-VALUE-CELL ARG . 13)
%
FROM:% 
FINDMSGKEY
%
SENDER:% 
(KNIL ENTER1)X
FINDKEY BINARY
-.Z,<[,<,<`&,~ (MSG . 1)
(VARIABLE-VALUE-CELL ARG . 5)
FINDMSGKEY
(ENTER1)
FINDMSGKEY BINARY
Zp-,+Z+Zp,<,<w/,<`,<w$/3B+

Zp+[pXBp+B(KEYTYPE . 1)
(KEY . 1)
(MSG . 1)
GETFIELD
MYSTRPOS
(BHC URET1 KNIL SKNLST ENTER3)
H`P
DELETED? BINARY
-.Z` A"1B+7Z,~@(MSG . 1)
(KNIL KT ENTER1)
EXAMINED? BINARY
-.Z` A"1B+7Z,~@(MSG . 1)
(KNIL KT ENTER1)
RECENT? BINARY

	-. ,>,>Z`  ,^/2b+7Z,~(MSG . 1)
(VARIABLE-VALUE-CELL LASTMSGREAD . 3)
(KNIL KT BHC ENTER1)x`
GETFIELD BINARY
OGM-. G,<`Z`[ ,\7[ZZ1H+2D+2B+EZ`,<,<`Z`Z2B+#Z`,<,<KZ,<Z` ,>F,>Z`"G.Bx,^/,,<Z`[,>F,>Z` .BxZ`"G.Bx,^/,HK2B+!Z` ,>F,>Z`"G.Bx,^/, ,\XD ,<,<,<,<Z,>F,>Z` ,>F,>Z`"G.Bx,^//" ,^/+ ,<`Z,<,<,<w},<,<ZNL2B+4+?Z/,<ZDLXBpZw3B+<,<Zw,XBw,\QB+>Zp,XBwXBwZ`3B+.Zw/,,<Z`[, ,\QD Z[,~:(	A$,D(MSG . 1)
(ID . 1)
(FLG . 1)
(VARIABLE-VALUE-CELL MSGFILE . 105)
(VARIABLE-VALUE-CELL MSGJFN . 75)
(VARIABLE-VALUE-CELL UPLOW . 100)
(VARIABLE-VALUE-CELL MSGRDTBL . 107)
"

"
FILEPOS
FFILEPOS
RSTRING
(CONSS1 CONSNL KT MKN BHC KNIL ENTER3)CX:2"8A`,@x8@2&X%H


MARKMESSAGE BINARY
($&-.$Z` ,>#,>Z`,<Z` ,>#,> `GBx,^/ ,\ D  ,^/3B77+"Z3B+Z`"#0B+Z,~Z+Z,~Z,>#,>Z` ,>#,>Z`"#.Bx,^/ ,^/+ Z,>#,>Z`  ,^/ $J+ ,~,`	(MSG . 1)
(MASK . 1)
(VARIABLE-VALUE-CELL MSGOPEN . 28)
(VARIABLE-VALUE-CELL MSGJFN . 58)
(KNIL KT BHC ENTER2)HxX0


UNMARKMESSAGE BINARY
+')-.'Z` ,>&,>Z`,<Z` ,>&,>^",>&,> `FBx,^/ABx,^/ ,\ D  ,^/3B77+%Z3B+Z`"&0B+Z,~Z+Z,~Z,>&,>Z` ,>&,>Z`"&.Bx,^/ ,^/+ Z,>&,>Z`  ,^/ 'J+ ,~,`@T" @(MSG . 1)
(MASK . 1)
(VARIABLE-VALUE-CELL MSGOPEN . 34)
(VARIABLE-VALUE-CELL MSGJFN . 64)
(KNIL KT BHC ENTER2)x(H`@

TRUE BINARY
-.Z,~(KT ENTER0)
MYSTRPOS BINARY
.+--.+Z`-,+."[XB`+-,+B,XB`Z`-,+

-,+."[XB`+

B,XB`O,>*,>Z`,,>*,>,>*,>Z`3B7*, Z`,,>*,>,>*,>7`.. 4n(/(?4((/.&..N7`=0@  
} 

~1(0+(<,&0$00d=.$/$0B3B|+5N(<h(`+ x/"',+( /,~,~2BEh@(X . 1)
(Y . 1)
(START . 1)
MKSTRING
(BHC MKN IUNBOX KNIL UPATM SKNSTP SKLA ENTER3))()(P`
MSGABORT BINARY
-.  ,<" ,~ @"
** aborting **
"
PRIN1
ERROR!
(ENTER0)
(PRETTYCOMPRINT MSGCOMS)
(RPAQQ MSGCOMS ((VARS (MSGDATE "24 Jan 79")) (VARS MSGINTERRUPTS (MSGFILE) (MSGS) (REVMSGS) (
LASTMSGWRITE 0) (MSGRDTBL) (MSGTTBL) MSGLENGTHFLG (MSGSETUP)) (FNS MSG CHECKMSG# CHECKMSGDATE CONFIRM 
DELCHECK DOMSGS FINDMESSAGE# GETFILENAME MSGOPEN MSGSETUP NEWMAIL PARSEMSGRANGE PRINTCURRENT 
PRINTFIELD PRINTHEADER PRINTMESSAGE PUTMESSAGE READMESSAGES READMESSAGETEST READSTRING REWRITEMSGS 
MSGXXX MSGTJFN TESTRANGE) (FNS ORPRED ANDPRED NOTPRED TESTMSG# MSGSEARCH FINDTO FINDFROM FINDKEY 
FINDMSGKEY DELETED? EXAMINED? RECENT? GETFIELD MARKMESSAGE UNMARKMESSAGE TRUE) (FNS MYSTRPOS MYASKUSER
 MYTAB MYSUBSYS MYCOPYBYTES MYGTJFN) (FNS MSGABORT) (DECLARE: EVAL@COMPILE DONTCOPY (P (CLISPDEC (
QUOTE FAST)))) (MACROS FLDID) (BLOCKS (MSGBLOCK MSG DELCHECK DOMSGS FINDMESSAGE# MSGOPEN MSGSETUP 
NEWMAIL PRINTCURRENT PRINTFIELD PRINTHEADER PRINTMESSAGE PUTMESSAGE READMESSAGES READMESSAGETEST 
READSTRING REWRITEMSGS (ENTRIES MSG PRINTHEADER PRINTMESSAGE PUTMESSAGE MSGSETUP) (NOLINKFNS . T) (
RETFNS DOMSGS) (SPECVARS MSGOPEN MSGJFN KEEPJFN NEWMAIL LSTFIL LL #MSGS CURRENTMESSAGE INTS INVERTED 
LASTMSGREAD MSGFILE OLDINT) (GLOBALVARS MSGDATE MSGINTERRUPTS OLDTTBL USERNAMESTRING MSGTTBL REVMSGS 
MSGS UPLOW MSGSETUP MSGRDTBL MSGLENGTHFLG LASTMSGWRITE USERNAME LASTEXEC) PARSEMSGRANGE CHECKMSG# 
GETFILENAME MYCOPYBYTES MYGTJFN CONFIRM MYTAB MYASKUSER MYSUBSYS)) (COMS * LAURELMSGCOMS) (LOCALVARS .
 T) (SPECVARS ARG) (GLOBALVARS USERFORKS LASTSUBSYS SUBSYSSPELLINGS) (DECLARE: EVAL@COMPILE DONTCOPY (
RECORDS MSG) (FILES (SYSLOAD) CJSYS))))
(RPAQ MSGDATE "24 Jan 79")
(RPAQQ MSGINTERRUPTS (14 ERROR 15 (MSGABORT) T 28 NIL 8 NIL))
(RPAQQ MSGFILE NIL)
(RPAQQ MSGS NIL)
(RPAQQ REVMSGS NIL)
(RPAQQ LASTMSGWRITE 0)
(RPAQQ MSGRDTBL NIL)
(RPAQQ MSGTTBL NIL)
(RPAQQ MSGLENGTHFLG T)
(RPAQQ MSGSETUP NIL)
(PUTPROPS FLDID MACRO (X (KWOTE (PACK* "
" (CAR X) ": "))))
(RPAQQ LAURELMSGCOMS ((FNS COPYLAURELMSG) (DECLARE: DONTCOPY (MACROS MSGBIN)) (BLOCKS (NIL 
COPYLAURELMSG (LOCALVARS . T)))))
NIL