rebol [
  title:   "keyboard input sequencer"
  file:    %keyb.r
  author:  "viktor pavlu"
  email:   vpavlu@plain.at
  home:    http://plain.at/vpavlu
  date:    3-Aug-2002
  purpose: {a replacement for the missing keyboard input sequences
            table in REBOL/Core User Guide Version 2.3, Appendix C-4}
]

port: open/binary/no-wait [ scheme: 'console ]
system/console/break: no
seq: make string! 2
print "Keyboard Input Sequences"
until [
  wait port
  buf: copy port
  clear seq
  foreach char buf [ append seq rejoin [ "^^(" to-integer char ")" ] ]
  print rejoin [{(#"q" quits)>> escape-sequence: #"} seq {"} ]
  (buf = #{71})
]
close port