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

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

(defvar #:tty:lbh19:xmax 124)
(defvar #:tty:xmax 124) ;  compatibilite' v15

(defvar #:tty:lbh19:ymax 51)
(defvar #:tty:ymax 51) ;  compatibilite' v15

(de #:tty:lbh19:tycursor (col line)
    (tyo 27 89 (add 32 line))
    (tyod col 3))

(de #:tty:lbh19:tycls ()
    (tyo 27 69))

(de #:tty:lbh19:tycleol ()
    (tyo 27 75))

(de #:tty:lbh19:tycleos ()
    (tyo 27 74))

(de #:tty:lbh19:tydelch ()
    (tyo 27 78))

(de #:tty:lbh19:tyinsln ()
    (tyo 27 76))

(de #:tty:lbh19:tydelln ()
    (tyo 27 77))

(de #:tty:lbh19:tyattrib (x)
    (if x (tyo 27 112) (tyo 27 113)))

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

(de #:tty:lbh19:tyinsch (arg)
    (tyo 27 64 arg 27 79))

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

(de #:tty:lbh19:tyepilogue ()
    (tycursor 0 (1- #:tty:lbh19:ymax)))

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