; Le←Lisp version 15.2 : compilation du terminal virtuel : htw (setq #:sys-package:tty '#:tty:htw) (defvar #:tty:htw:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:htw:ymax 23) (defvar #:tty:ymax 23) ; compatibilite' v15 (de #:tty:htw:tycursor (col line) (#:tty:tyo 27 91) (incr line) (incr col) (#:tty:tyod line 2) (#:tty:tyo 59) (#:tty:tyod col 2) (#:tty:tyo 72)) (de #:tty:htw:tybeep () (#:tty:tyo 27 91 63 53 108 27 91 63 53 104)) (de #:tty:htw:tycls () (#:tty:tyo 27 91 48 49 59 48 49 72 27 91 63 51 49 104 27 91 74)) (de #:tty:htw:tycleol () (#:tty:tyo 27 91 75)) (de #:tty:htw:tycleos () (#:tty:tyo 27 91 63 51 49 104 27 91 74)) (de #:tty:htw:tydelch () (#:tty:tyo 27 91 80)) (de #:tty:htw:tyinsln () (#:tty:tyo 27 91 76)) (de #:tty:htw:tydelln () (#:tty:tyo 27 91 77)) (de #:tty:htw:tyattrib (x) (if x (#:tty:tyo 27 91 55 109) (#:tty:tyo 27 91 109))) (defvar #:tty:htw:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:htw:tyattrib (x) (if x (#:tty:tyo 27 91 52 109) (#:tty:tyo 27 91 109))) (defvar #:tty:htw:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:htw:tyinsch (arg) (#:tty:tyo 27 91 52 104 arg 27 91 52 108)) (de #:tty:htw:typrologue () (#:tty:tyo 27 91 63 51 49 104 27 91 63 55 104 27 91 63 56 104 27 91 63 51 49 104) (#:tty:htw:tycls)) (de #:tty:htw:tyepilogue () (tycursor 0 23)) (defvar #:tty:htw:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15