; Le←Lisp version 15.2 : compilation du terminal virtuel : twh

(setq #:sys-package:tty '#:tty:twh)

(defvar #:tty:twh:xmax 79)
(defvar #:tty:xmax 79) ;  compatibilite' v15

(defvar #:tty:twh:ymax 23)
(defvar #:tty:ymax 23) ;  compatibilite' v15

(de #:tty:twh:tycursor (col line)
    (#:tty:tyo 27 91)
    (incr line)
    (incr col)
    (#:tty:tyod line 2)
    (#:tty:tyo 59)
    (#:tty:tyod col 2)
    (#:tty:tyo 72))

(de #:tty:twh:tybeep ()
    (#:tty:tyo 27 91 63 53 108 27 91 63 53 104))

(de #:tty:twh:tycls ()
    (#:tty:tyo 27 91 48 49 59 48 49 72 27 91 63 51 49 104 27 91 74))

(de #:tty:twh:tycleol ()
    (#:tty:tyo 27 91 75))

(de #:tty:twh:tycleos ()
    (#:tty:tyo 27 91 63 51 49 104 27 91 74))

(de #:tty:twh:tydelch ()
    (#:tty:tyo 27 91 80))

(de #:tty:twh:tyinsln ()
    (#:tty:tyo 27 91 76))

(de #:tty:twh:tydelln ()
    (#:tty:tyo 27 91 77))

(de #:tty:twh:tyattrib (x)
    (if x (#:tty:tyo 27 91 52 109) (#:tty:tyo 27 91 109)))

(de #:tty:twh:tyattrib (x)
    (if x (#:tty:tyo 27 91 55 109) (#:tty:tyo 27 91 109)))

(de #:tty:twh:tyinsch (arg)
    (#:tty:tyo 27 91 52 104 arg 27 91 52 108))

(de #:tty:twh:typrologue ()
    (#:tty:tyo 27 91 63 51 49 104 27 91 63 55 104 27 91 63 56 104 27 91 63 51 
        49 104)
    (#:tty:twh:tycls))

(de #:tty:twh:tyepilogue ()
    (tycursor 0 23))