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

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

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

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

(de #:tty:m9050:tycursor (line col)
    (#:tty:tyo 27 102 (+ 32 line) (+ 32 col)))

(de #:tty:m9050:tycls ()
    (#:tty:tyo 25))

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

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

(de #:tty:m9050:tydelch ()
    (#:tty:tyo 27 80))

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

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

(de #:tty:m9050:tyattrib (x)
    (if x (#:tty:tyo 27 98) (#:tty:tyo 27 97)))

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

(de #:tty:m9050:tyattrib (x)
    (if x (#:tty:tyo 27 98) (#:tty:tyo 27 97)))

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

(de #:tty:m9050:tyinsch (arg)
    (#:tty:tyo 27 64 arg))

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

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

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