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

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

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

(defvar #:tty:vs:ymax 64)
(defvar #:tty:ymax 64) ;  compatibilite' v15

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

(de #:tty:vs:tycls ()
    (tyo 27 91 72 27 91 50 74))

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

(de #:tty:vs:tycleos ()
    (tyo 27 91 74))

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

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

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

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

(defvar #:tty:vs:tyattrib ())
(defvar #:tty:tyattrib ()) ;  compatibilite' v15

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

(defvar #:tty:vs:tyattrib ())
(defvar #:tty:tyattrib ()) ;  compatibilite' v15

(de #:tty:vs:tyinsch (arg)
    (tyo 27 91 64 arg))

(de #:tty:vs:typrologue ()
    (tyo 27 91 114 27 27 91 109 27 91 50 74 27 91 72 27 91 63 55 104 27 91 63 
        49 59 51 59 52 59 54 108)
    (#:tty:vs:tycls))

(de #:tty:vs:tyepilogue ()
    (tycursor 0 (sub1 #:tty:vs:ymax)))

(defvar #:tty:vs:tyshowcursor t)
(defvar #:tty:tyshowcursor t) ;  compatibilite' v15