| os out stdout accessor |

os := OSSystemSupport concreteClass new.

out := os getStdHandle: os STD_OUTPUT_HANDLE.
accessor := BlockableIOAccessor new handle: out.
stdout := ExternalWriteStream on: (ExternalConnection
ioAccessor: accessor).
stdout nextPutAll: 'Hello, world!'; flush.

But I can't get the reverse to work for stdin--even when
I try using:
    (Filename named: 'CONIN$') readStream.
Every attempt to call any derivation of #next or upTo:
returns
ERROR_BAD_COMMAND.