mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
17 lines
440 B
Plaintext
17 lines
440 B
Plaintext
'<PCODE "EVIL">
|
|
|
|
<PACKAGE "EVIL">
|
|
|
|
<ENTRY EVIL GET-TTY>
|
|
|
|
<SETG EVIL %<RSUBR!- '[ %<PCODE!- "EVIL" 0> EVIL #DECL ("VALUE" <OR FALSE
|
|
STRING> "ARGS" ANY) GET-TTY "PRINT" "JUNK >" OUTCHAN (CHANNEL) "DONE"]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,EVIL GLUE ![4379120709 68222721 30316445953
|
|
4294967296 4651495168 1141391360 0 15 262157!]>>
|
|
|
|
<SETG GET-TTY %<RSUBR!- '[ %<PCODE!- "EVIL" 116> GET-TTY #DECL ("VALUE" ANY) T
|
|
]>>
|
|
|
|
<ENDPACKAGE>
|