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

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

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

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

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

(de #:tty:tvi950:tybeep ()
    (#:tty:tyo 27 98 128 128 128 128 128 128 128 128 128 128 128 128 128 128 
        128 27 100))

(de #:tty:tvi950:tycls ()
    (#:tty:tyo 27 42))

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

(de #:tty:tvi950:tycleos ()
    (#:tty:tyo 27 121))

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

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

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

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

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

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

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

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

(de #:tty:tvi950:typrologue ()
    (#:tty:tyo 27 68 70 27 67 27 100 27 71 48 27 103 27 114 27 79 27 39 27 40 
        27 37 27 119 27 88 27 101 32 15 9 27 108 27 48 49 54 27 48 48 52 27 
        120 48 128 128 27 120 49 128 128 27 120 50 128 128 9 27 120 51 128 128
        27 120 52 13 128 27 102 13)
    (#:tty:tvi950:tycls))

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

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