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))