diff options
Diffstat (limited to 'src/interp/i-output.boot')
-rw-r--r-- | src/interp/i-output.boot | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot index bff7f613..b9f6e3d4 100644 --- a/src/interp/i-output.boot +++ b/src/interp/i-output.boot @@ -210,6 +210,18 @@ $specialCharacterAlist == '( $collectOutput := nil +$algebraOutputStream := + DEFIOSTREAM([["DEVICE", :"CONSOLE"], ["MODE", :"OUTPUT"]], 255, 0) + +ERROROUTSTREAM := + DEFIOSTREAM([["DEVICE", :"CONSOLE"], ["MODE", :"OUTPUT"]], 80, 0) + +ERRORINSTREAM := + DEFIOSTREAM([["DEVICE", :"CONSOLE"], ["MODE", :"INPUT"], + ["QUAL", :"T"]], 133, 1) + + + specialChar(symbol) == -- looks up symbol in $specialCharacterAlist, gets the index -- into the EBCDIC table, and returns the appropriate character |