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

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

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

(FILECREATED " 3-JAN-82 19:34:04" ("compiled on " <LISPUSERS>COPYRIGHT.;12) (2 . 2) bcompl'd in WORK 
dated "26-DEC-81 12:35:21")
(FILECREATED " 3-JAN-82 19:33:38" <LISPUSERS>COPYRIGHT.;12 1941 previous date: "28-DEC-81 21:30:24" 
<LISPUSERS>COPYRIGHT.;11)

PRINTCOPYRIGHT1 BINARY
F9D-.9Z3B+%;,<@;+%,<<,<$<Z,<,<$<@/",,<,<=Z,<,<=[B>H>,<,<?,<,<,<,?,<"@Z	,<,<@,<?,<,<,<,?,<"@Z,<Z<,<D,<$<,<"@,<"@,<"@,~-%QL("

M(VARIABLE-VALUE-CELL OWNER . 100)
(VARIABLE-VALUE-CELL COPYRIGHTPRETTYFLG . 3)
(VARIABLE-VALUE-CELL COMMENTFLG . 78)
(VARIABLE-VALUE-CELL COPYRIGHTSYMBOL . 85)
LINELENGTH
(VARIABLE-VALUE-CELL LL . 56)
"("
PRIN1
"Copyright "
" "
YEARSTOSTRING
CONCAT
0
FLUSHRIGHT
TERPRI
"by"
")"
"("
" Copyright "
1
SPACES
" by "
")"
(KT MKN KNIL ENTERF)807h5@2.H*'P$0"!@xX0

YEARSTOSTRING BINARY
-.Z-,+@,~ZBXB@+,<Z,< .",FXB	2B+
`L8p(VARIABLE-VALUE-CELL YEARS . 9)
(NIL VARIABLE-VALUE-CELL STR . 34)
MKSTRING
NIL
(0 VARIABLE-VALUE-CELL POS . 22)
" "
STRPOS
","
RPLSTRING
2
-2
SUBSTRING
(KNIL MKN SKNI ENTERF)


(PRETTYCOMPRINT COPYRIGHTCOMS)
(RPAQQ COPYRIGHTCOMS ((FNS PRINTCOPYRIGHT1 YEARSTOSTRING) (VARS (COPYRIGHTSYMBOL "(c)") (
COPYRIGHTPRETTYFLG))))
(RPAQ COPYRIGHTSYMBOL "(c)")
(RPAQQ COPYRIGHTPRETTYFLG NIL)
NIL