Script Library: 1238 scripts


REBOL [ Title: "keyboard input sequencer" Date: 3-Aug-2002 Version: 1.0.0 File: %keyb.r Home: Author: "viktor pavlu" Purpose: {a replacement for the missing keyboard input sequences table in REBOL/Core User Guide Version 2.3, Appendix C-4} Email: %vpavlu--plain--at Web: library: [ level: 'intermediate platform: none type: [tool tutorial] domain: none tested-under: none support: none license: none see-also: none ] ] 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
halt ;; to terminate script if DO'ne from webpage
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (vpavlu:plain:at)