PDP-10 Archive: decus/20-0004/whois.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/whois.com

There are no other files named whois.com in the archive.

(FILECREATED "23-SEP-81 22:59:04" ("compiled on " <LISPUSERS>WHOIS.;14) 
(2 . 2) bcompl'd in WORK dated NOBIND)
(FILECREATED " 3-JUL-78 03:01:50" <LISPUSERS>WHOIS.;14 3311 changes to: 
WHOIS previous date: " 3-APR-78 01:27:45" <LISPUSERS>WHOIS.;13)

WHOIS BINARY
|-.|-. ~ Z,<@ +xZ,<,<,<,<@`+qZZXBZwZ?2B+Z,<,<,<Zw2B++n-,+XBpZXBw+ZwXBp[wXBw,<p"B,<,<,<,<,<,<,<Z,<,<w|,,<,<,Z,XB,<w},<$Zw},,XBpZwz,<?,<w|,<,<,<,<ZNXBw}2B+*+mXBw~Zw~XBw~ w~/"z,XBw~ w~,>|,> p ,^/2"+3ZpXBw~Zw~XBwZXBw,<,<,<w|,<w~,<w|,<,<,XBw2B+<Zp+@,<w|"	Z	,2B+@ZwXBw~+6/,<w}Zw~2B+I w},>|,> w ,^/2b+HZw+I/++D,<"
1B+M,<"
ZwzZ83B+P,<,<$ZwzZ8Zw}3B+Y,<

,<$,<w},<,<&

,<$Zw}ZwzXB8@Zw}XB?3B+3B+2B+a+2B+i,<?}"	3B+f3B+f2B+Zw},<?,<$+j,<,<$+[Zp+,<"
+"/+Zw/ZwXB8Z,~3B+sZ+tZXB`DZ`3B+w ,~Z`,~Zp3B+{Z+Z+jBD

&@@AIZQPhh"7pf4iA(STR . 1)
(FILES . 1)
(VAL . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 7)
(VARIABLE-VALUE-CELL RESETVARSLST . 64)
(VARIABLE-VALUE-CELL WHOISFILES . 27)
(VARIABLE-VALUE-CELL UPLOW . 79)
SETUPLOW
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
INFILE
INPUT
0
CLOSEF?
SETFILEPTR
FFILEPOS
"
"
FILEPOS
PEEKC
((%  %	 %
) . 0)
POSITION
TERPRI
"------------
"
PRIN1
"{from "
PRIN2
"}
"
(((16 (RETFROM ERRORPOS NIL T))) VARIABLE-VALUE-CELL ERRORTYPELST . 0)
READC
%
%

%

% 
%	
ERROR
RESETRESTORE
ERROR!
(URET3 URET1 ASZ FMEMB KT BHC MKN FGFPTR CONS LIST2 SKNLST CF KNIL 
BLKENT ENTER3)H{l

pb

hL>{m
`T
M	09p`$# `(0@zhs(@O0?09h5 (x'h8(x

SETUPLOW BINARY
1+0-.+Z+Z7@7Z-,+Z,~Z,<,,<,$,,<@- ,~@-+( ,>*,> ` ,^/3b+Z`,~Z,< .",,< ,>*,>^"  ,^/3"+! ,>*,>^"- ,^/2b+! ,>*,>^".Bx,^/,+%ZZ/,3B+%Z"+%Z!F/ %.",XB&+ZXBZ,~i(@P( (VARIABLE-VALUE-CELL UPLOW . 82)
UPLOW
128
ARRAY
(VARIABLE-VALUE-CELL ARR . 81)
127
NIL
(0 VARIABLE-VALUE-CELL I . 79)
((0 9 10 13 31 32 33 44 45 46 59 63) . 0)
SETA
(ASZ FMEMB MKN BHC KT KNIL SKAR KNOB ENTER0)P8!@*@
(PRETTYCOMPRINT WHOISCOMS)
(RPAQQ WHOISCOMS ((FNS WHOIS SETUPLOW) (BLOCKS (WHOIS WHOIS (NOLINKFNS .
 T) (GLOBALVARS UPLOW WHOISFILES))) (VARS (WHOISFILES (UNION (LISTP (
GETATOMVAL (QUOTE WHOISFILES))) (QUOTE (<SECRETARY>PARCPHONEADDRESS.TTY)
))))))
(RPAQ WHOISFILES (UNION (LISTP (GETATOMVAL (QUOTE WHOISFILES))) (QUOTE (
<SECRETARY>PARCPHONEADDRESS.TTY))))
NIL