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

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

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

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

(de #:tty:wy:tycursor (col line)
    (tyo 27 61 (+ 32 line) (+ 32 col)))

(de #:tty:wy:tycls ()
    (tyo 26))

(de #:tty:wy:tycleol ()
    (tyo 27 116))

(de #:tty:wy:tycleos ()
    (tyo 27 89))

(de #:tty:wy:tydelch ()
    (tyo 27 87))

(de #:tty:wy:tyinsln ()
    (tyo 27 69))

(de #:tty:wy:tydelln ()
    (tyo 27 82))

(de #:tty:wy:tyattrib (x)
    (if x (tyo 27 40) (tyo 27 41)))

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

(de #:tty:wy:tyinsch (arg)
    (tyo 27 113 arg 27 114))

(de #:tty:wy:typrologue ()
    (tyo 27 41 27 96 55)
    (#:tty:wy:tycls))

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

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