mirror of
https://github.com/PDP-10/its.git
synced 2026-01-30 21:41:56 +00:00
20 lines
417 B
Plaintext
20 lines
417 B
Plaintext
'<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>
|