; Le←Lisp version 15.2 : compilation du terminal virtuel : hp (setq #:sys-package:tty '#:tty:hp) (defvar #:tty:hp:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:hp:ymax 23) (defvar #:tty:ymax 23) ; compatibilite' v15 (de #:tty:hp:tycursor (line col) (#:tty:tyo 27 38 97) (#:tty:tyod line 0) (#:tty:tyo 99) (#:tty:tyod col 0) (#:tty:tyo 89)) (de #:tty:hp:tycls () (#:tty:tyo 27 72 27 74)) (de #:tty:hp:tycleol () (#:tty:tyo 27 75)) (de #:tty:hp:tycleos () (#:tty:tyo 27 74)) (de #:tty:hp:tydelch () (#:tty:tyo 27 80)) (de #:tty:hp:tyinsln () (#:tty:tyo 27 76)) (de #:tty:hp:tydelln () (#:tty:tyo 27 77)) (de #:tty:hp:tyattrib (x) (if x (#:tty:tyo 27 38 100 74) (#:tty:tyo 27 38 100 64))) (defvar #:tty:hp:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:hp:tyattrib (x) (if x (#:tty:tyo 27 38 100 68) (#:tty:tyo 27 38 100 64))) (defvar #:tty:hp:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:hp:tyinsch (arg) (#:tty:tyo 27 81 arg 27 82)) (de #:tty:hp:typrologue () (#:tty:hp:tycls)) (de #:tty:hp:tyepilogue () (tycursor 0 (sub1 #:tty:hp:ymax))) (defvar #:tty:hp:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15