mirror of
https://github.com/PDP-10/its.git
synced 2026-02-23 07:42:10 +00:00
15 lines
571 B
Plaintext
15 lines
571 B
Plaintext
'<PCODE "2SDML">
|
|
<PACKAGE "CPYFIL">
|
|
|
|
<ENTRY COPY-FILE>
|
|
|
|
<SETG COPY-FILE %<RSUBR!- '[ %<PCODE!- "2SDML" 1784> COPY-FILE #DECL ("VALUE"
|
|
ATOM <OR STRING CHANNEL> <OR STRING CHANNEL> "OPTIONAL" UVECTOR) ![0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
|
|
0!] "READB" CANT-OPEN!-ERRORS ARG-WRONG-TYPE!-ERRORS "PRINTB"
|
|
CANT-READ-LENGTH!-ERRORS T]>>
|
|
|
|
<ENDPACKAGE>
|