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 /arc/charterm/test-charterm.rkt | |
parent | 8846a7f85cc04b77b2fe8a67b6d317723437b00c (diff) | |
download | mu-6e1eeeebfb453fa7c871869c19375ce60fbd7413.tar.gz |
5485 - promote SubX to top-level
Diffstat (limited to 'arc/charterm/test-charterm.rkt')
-rw-r--r-- | arc/charterm/test-charterm.rkt | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/arc/charterm/test-charterm.rkt b/arc/charterm/test-charterm.rkt deleted file mode 100644 index 04eb376f..00000000 --- a/arc/charterm/test-charterm.rkt +++ /dev/null @@ -1,20 +0,0 @@ -#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))) |