'<PCODE "CHARAP">
<PACKAGE "CHARAP"> 

<ENTRY CHARAPPEND CR FF> 

<USE-DEFER "FP"> 

<SETG CR <SET CR "
">> 

<SETG FF <SET FF <ASCII 12>>> 

<MANIFEST CR FF> 

<SETG CHARAPPEND  %<RSUBR!- '[ %<PCODE!- "CHARAP" 0> CHARAPPEND #DECL ("VALUE" <
OR CHANNEL FALSE> <OR STRING CHANNEL> FIX ANY "TUPLE" TUPLE) FPRINT "NUL" "NUL:" 
"TTY:" OUTCHAN #FALSE () ["PRINT" "PRINTO"] "READ" "PRINTO" "PRINT" CR FF]>> 

<ENDPACKAGE>