From 6e1eeeebfb453fa7c871869c19375ce60fbd7413 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sat, 27 Jul 2019 16:01:55 -0700
Subject: 5485 - promote SubX to top-level

---
 archive/1.vm.arc/charterm/test-charterm.rkt | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 archive/1.vm.arc/charterm/test-charterm.rkt

(limited to 'archive/1.vm.arc/charterm/test-charterm.rkt')

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)))
-- 
cgit 1.4.1-2-gfad0