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