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

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

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

(de #:tty:twist:tycursor (col line)
    (tyo 27 91)
    (incr line)
    (incr col)
    (tyod line 2)
    (tyo 59)
    (tyod col 2)
    (tyo 72))

(de #:tty:twist:tybeep ()
    (tyo 27 91 63 53 108 27 91 63 53 104))

(de #:tty:twist:tycls ()
    (tyo 27 91 48 49 59 48 49 72 27 91 63 51 49 104 27 91 74))

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

(de #:tty:twist:tycleos ()
    (tyo 27 91 63 51 49 104 27 91 74))

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

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

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

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

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

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

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

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

(de #:tty:twist:typrologue ()
    (tyo 27 91 63 51 49 104 27 62 27 91 63 51 108 27 91 63 52 108 27 91 63 53 
        108 27 91 63 55 104 27 91 63 56 104 27 91 63 51 49 104)
    (#:tty:twist:tycls))

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

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