diff options
| author | Kartik Agaram <vc@akkartik.com> | 2019-07-27 16:01:55 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2019-07-27 17:47:59 -0700 |
| commit | 6e1eeeebfb453fa7c871869c19375ce60fbd7413 (patch) | |
| tree | 539c4a3fdf1756ae79770d5c4aaf6366f1d1525e /archive/1.vm.arc/charterm/test-charterm.rkt | |
| parent | 8846a7f85cc04b77b2fe8a67b6d317723437b00c (diff) | |
| download | mu-6e1eeeebfb453fa7c871869c19375ce60fbd7413.tar.gz | |
5485 - promote SubX to top-level
Diffstat (limited to 'archive/1.vm.arc/charterm/test-charterm.rkt')
| -rw-r--r-- | archive/1.vm.arc/charterm/test-charterm.rkt | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/archive/1.vm.arc/charterm/test-charterm.rkt b/archive/1.vm.arc/charterm/test-charterm.rkt new file mode 100644 index 00000000..04eb376f --- /dev/null +++ b/archive/1.vm.arc/charterm/test-charterm.rkt @@ -0,0 +1,20 @@ +#lang racket/base +;; For legal info, see file "charterm.rkt". + +;; (require (planet neil/charterm:1)) +(require "charterm.rkt") + +(with-charterm + (charterm-clear-screen) + (charterm-cursor 10 5) + (charterm-display "Hello, ") + (charterm-bold) + (charterm-display "you") + (charterm-normal) + (charterm-display ".") + (charterm-cursor 1 1) + (charterm-display "Press a key...") + (let ((key (charterm-read-key))) + (charterm-cursor 1 1) + (charterm-clear-line) + (printf "You pressed: ~S\r\n" key))) |