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

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

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

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

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

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

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

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

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

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

; ** #:tty:termcap : ec80 : ne sait pas faire : tyinsln

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

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

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

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

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

(de #:tty:ec80:tyinsch (arg)
    (#:tty:tyo 27 81 arg))

(de #:tty:ec80: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 107 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 51 27 102 13 13 27 51 13 32 32 32 32 32 32 32 32 
        27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 
        32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 
        32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 
        32 27 49 32 32 32 32 32 32 32 32 27 49 13)
    (#:tty:ec80:tycls))

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

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