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

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

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

(FILECREATED "17-JAN-82 00:03:56" ("compiled on " <LISPUSERS>COPYFILE.;1) (2 . 2) bcompl'd in 
"INTERLISP-MAXC " dated " 5-JAN-82 22:22:48")
(FILECREATED "11-Sep-81 13:11:15" <GOLDMAN>COPYFILE..3 4503 changes to: COPYFILECOMS RENFILE COPYFILE 
previous date: "10-Sep-81 17:44:09" <GOLDMAN>COPYFILE.FIX.3)

RENFILE BINARY
-.,<`,<`$,<ZpB[pZ+ (OLD . 1)
(NEW . 1)
COPYFILE
DELFILE
(URET1 ENTER2)h

COPYFILEA0003 BINARY
	-.,<`"Z3B+,<`",~Z,~P(FL . 1)
(VARIABLE-VALUE-CELL RESETSTATE . 5)
CLOSEF
DELFILE
(KNIL ENTER1)h

COPYFILE BINARY
)$-.(Z,<@ ,~Z,<,<

,<@ZZXB@(
+~,<,,Z,XB,Z,XBZwZ82B+ ,<,<$ZwXB8 B,1b2+(,< ,<,<,<(3B+(,<ZDXB`Z2B+([`[[Z-,ZXB`2B+1,< BZw~XB8,<,<,<8,<*,<,<$Zw,<8,<8",,~,< ,,Z,XB3Zw,<8"Z@,,<,<,Z4,XB9 ,<,<$,<ZB,,Z:,XB?[`[[[,<Zp-,+FZ+PZp,<,<wZw2B+L[pZ2B7Z+LZ/3B+OZp+P[pXBp+C/XB`[`[[[Z2B+Z[`[[[[[,<,<`$XB ,<ZY,<[`Z,<[`[Z,<[`[[ZJ   ,,>,> , ,^//,XB` @,< ,,,<,<`(  ,<,<`$ ,,@,<ZD,\B! ,<,<!$,<Z D,<,<`$",<,<ZvF" @D  @,,~Zw~XB8Z,~3B+Z+Z#XB`D#Z`3B+ $,~Z`,~

@:@43lH~i@(SOURCEFILE . 1)
(DESTFILE . 1)
(VARIABLE-VALUE-CELL LISPXHIST . 3)
(VARIABLE-VALUE-CELL RESETVARSLST . 129)
(VARIABLE-VALUE-CELL FILERDTBL . 243)
(VARIABLE-VALUE-CELL FILELINELENGTH . 123)
(VARIABLE-VALUE-CELL CHANGES . 182)
(VARIABLE-VALUE-CELL LISPXHIST . 0)
NIL
NIL
((DUMMY) . 0)
INTERNAL
(0 . 1)
(0 . 1)
(0 . 1)
ERRORSET
(NIL VARIABLE-VALUE-CELL MAPADR . 227)
NIL
NIL
NIL
NIL
INPUT
INFILE
CLOSEF?
NAMEFIELD
GETEOFPTR
"(FILECREATED "
0
40
FILEPOS
READ
FILECREATED
"COPY "
CLOSEF
" (TO) "
" 
"
CONCAT
TENEX
INFILEP
OUTPUT
OUTFILE
COPYFILEA0003
SETFILEPTR
LINELENGTH
previous
date:
changes
LDIFF
PRINTDATE1
SKREAD
COPYBYTES
PRIN1
-1
TRANSFORM
PRIN2
ERROR
RESETRESTORE
ERROR!
(MKNFGFPTR BHC SKNLST SKI IUNBOX KT LIST2 CONS CONSNL ALIST2 CF KNIL ENTER2)l

`dg
ME&	@.A05H@@

TRANSFORM BINARY
-.Z`-,+Z`,<,<`$,<[`,<,<`$,,~-,+ `,>,> `.Bx,^/,,~,~E(L . 1)
(DELTA . 1)
TRANSFORM
(MKN	BHCSKICONSS1SKLST ENTER2)
(PRETTYCOMPRINT COPYFILECOMS)
(RPAQQ COPYFILECOMS ((FNS RENFILE COPYFILE TRANSFORM) (LOCALVARS . T)))
NIL