; Le←Lisp version 15.2 : compilation du terminal virtuel : cetia (setq #:sys-package:tty '#:tty:cetia) (defvar #:tty:cetia:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:cetia:ymax 23) (defvar #:tty:ymax 23) ; compatibilite' v15 (de #:tty:cetia:tycursor (col line) (tyo 27 91) (incr line) (incr col) (tyod line 0) (tyo 59) (tyod col 0) (tyo 72)) (de #:tty:cetia:tycls () (tyo 27 91 59 72 27 91 50 74)) (de #:tty:cetia:tycleol () (tyo 27 91 75)) (de #:tty:cetia:tycleos () (tyo 27 91 74)) ; ** #:tty:termcap : cetia : ne sait pas faire : tydelch ; ** #:tty:termcap : cetia : ne sait pas faire : tyinsln ; ** #:tty:termcap : cetia : ne sait pas faire : tydelln (de #:tty:cetia:tyattrib (x) (if x (tyo 27 91 55 109) (tyo 27 91 109))) (defvar #:tty:cetia:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:cetia:tyattrib (x) (if x (tyo 27 91 52 109) (tyo 27 91 109))) (defvar #:tty:cetia:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 ** #:tty:termcap : cetia : ne sait pas faire : tyinsch (de #:tty:cetia:typrologue () (tyo 27 91 49 59 50 52 114 27 91 50 52 59 49 72) (#:tty:cetia:tycls)) (de #:tty:cetia:tyepilogue () (tycursor 0 (sub1 #:tty:cetia:ymax))) (defvar #:tty:cetia:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15