From ef520fea8d36f993da82081a3d313f3c94dd56e9 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 20 Mar 2013 11:14:43 -0400
Subject: [PATCH] test-modes.rkt, from Oct 29 2011.

---
 test-modes.rkt | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 test-modes.rkt

diff --git a/test-modes.rkt b/test-modes.rkt
new file mode 100644
index 0000000..a5cfa1f
--- /dev/null
+++ b/test-modes.rkt
@@ -0,0 +1,21 @@
+#lang racket/base
+
+(require "ansi.rkt")
+
+(define (display* . vs)
+  (for-each display vs)
+  (flush-output))
+
+(display* (dec-soft-terminal-reset)
+	  (select-graphic-rendition style-bold
+				    (style-text-color color-yellow)
+				    (style-background-color color-blue))
+	  (clear-screen/home))
+
+(display* (reset-mode send/receive-mode))
+
+(display (read-char))
+(display (read-char))
+(display (read-char))
+
+(display* (dec-soft-terminal-reset))