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

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

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

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

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

(de #:tty:wyc:tycls ()
    (#:tty:tyo 27 43))

(de #:tty:wyc:tycleol ()
    (#:tty:tyo 27 84))

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

; ** #:tty:termcap : wyc : ne sait pas faire : tydelch

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

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

(de #:tty:wyc:tyattrib (x)
    (if x (#:tty:tyo 27 71 52) (#:tty:tyo 27 71 48)))

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

(de #:tty:wyc:tyattrib (x)
    (if x (#:tty:tyo 27 71 56) (#:tty:tyo 27 71 48)))

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

; ** #:tty:termcap : wyc : ne sait pas faire : tyinsch

(de #:tty:wyc:typrologue ()
    (#:tty:wyc:tycls))

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

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