; Le←Lisp version 15.2 : compilation du terminal virtuel : h19 (setq #:sys-package:tty '#:tty:h19) (defvar #:tty:h19:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:h19:ymax 23) (defvar #:tty:ymax 23) ; compatibilite' v15 (de #:tty:h19:tycursor (col line) (#:tty:tyo 27 89 (+ 32 line) (+ 32 col))) (de #:tty:h19:tycls () (#:tty:tyo 27 69)) (de #:tty:h19:tycleol () (#:tty:tyo 27 75)) (de #:tty:h19:tycleos () (#:tty:tyo 27 74)) (de #:tty:h19:tydelch () (#:tty:tyo 27 78)) (de #:tty:h19:tyinsln () (#:tty:tyo 27 76)) (de #:tty:h19:tydelln () (#:tty:tyo 27 77)) (de #:tty:h19:tyattrib (x) (if x (#:tty:tyo 27 112) (#:tty:tyo 27 113))) (defvar #:tty:h19:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:h19:tyinsch (arg) (#:tty:tyo 27 64 arg 27 79)) (de #:tty:h19:typrologue () (#:tty:h19:tycls)) (de #:tty:h19:tyepilogue () (tycursor 0 (sub1 #:tty:h19:ymax))) (defvar #:tty:h19:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15