test-modes.rkt, from Oct 29 2011.

2013-03-20 11:14:43 -04:00 · 2013-03-20 11:14:43 -04:00 · ef520fea8d
parent 80b2f1c70b
commit ef520fea8d
1 changed files with 21 additions and 0 deletions
--- a/test-modes.rkt
+++ 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))