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

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

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

(defvar #:tty:twist72:ymax 71)
(defvar #:tty:ymax 71) ;  compatibilite' v15

(de #:tty:twist72:tycursor (col line)
    (#:tty:tyo 27 91)
    (#:tty:tyod (add1 line) 0)
    (#:tty:tyo 59)
    (#:tty:tyod (add1 col) 0)
    (#:tty:tyo 72))

(de #:tty:twist72:tycls ()
    (#:tty:tyo 27 91 72 27 91 50 74))

(de #:tty:twist72:tycleol ()
    (#:tty:tyo 27 91 75))

(de #:tty:twist72:tycleos ()
    (#:tty:tyo 27 91 74))

(de #:tty:twist72:tydelch ()
    (#:tty:tyo 27 91 80))

(de #:tty:twist72:tyinsln ()
    (#:tty:tyo 27 91 76))

(de #:tty:twist72:tydelln ()
    (#:tty:tyo 27 91 77))

(de #:tty:twist72:tyattrib (x)
    (if x (#:tty:tyo 27 91 55 109) (#:tty:tyo 27 91 109)))

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

(de #:tty:twist72:tyattrib (x)
    (if x (#:tty:tyo 27 91 52 109) (#:tty:tyo 27 91 109)))

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

(de #:tty:twist72:tyinsch (arg)
    (#:tty:tyo 27 91 52 104 arg 27 91 52 108))

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

(de #:tty:twist72:tyepilogue ()
    (tycursor 0 (1- #:tty:twist72:ymax)))

(de #:tty:twist72:tyshowcursor (x)
    (if x (#:tty:tyo 27 91 63 51 53 108) (#:tty:tyo 27 91 63 51 53 104)))

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