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

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

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

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

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

(de #:tty:tvi925:tycls ()
    (tyo 26))

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

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

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

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

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

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

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

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

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

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

(de #:tty:tvi925:typrologue ()
    (tyo 27 108 27 34 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:tvi925:tycls))

(de #:tty:tvi925:tyepilogue ()
    (tycursor 0 (sub1 #:tty:tvi925:ymax)))

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