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

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

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

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

(de #:tty:hp:tycursor (line col)
    (#:tty:tyo 27 38 97)
    (#:tty:tyod line 0)
    (#:tty:tyo 99)
    (#:tty:tyod col 0)
    (#:tty:tyo 89))

(de #:tty:hp:tycls ()
    (#:tty:tyo 27 72 27 74))

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

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

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

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

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

(de #:tty:hp:tyattrib (x)
    (if x (#:tty:tyo 27 38 100 74) (#:tty:tyo 27 38 100 64)))

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

(de #:tty:hp:tyattrib (x)
    (if x (#:tty:tyo 27 38 100 68) (#:tty:tyo 27 38 100 64)))

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

(de #:tty:hp:tyinsch (arg)
    (#:tty:tyo 27 81 arg 27 82))

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

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

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