22 lines
441 B
Racket
22 lines
441 B
Racket
|
#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))
|