4.3BSD/usr/contrib/icon/libtest/t-ttyctl.icn

procedure main()
  write(keyin() | "no input waiting")
end