; Le←Lisp version 15.2 : compilation du terminal virtuel : wy (setq #:sys-package:tty '#:tty:wy) (defvar #:tty:wy:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:wy:ymax 23) (defvar #:tty:ymax 23) ; compatibilite' v15 (de #:tty:wy:tycursor (col line) (tyo 27 61 (+ 32 line) (+ 32 col))) (de #:tty:wy:tycls () (tyo 26)) (de #:tty:wy:tycleol () (tyo 27 116)) (de #:tty:wy:tycleos () (tyo 27 89)) (de #:tty:wy:tydelch () (tyo 27 87)) (de #:tty:wy:tyinsln () (tyo 27 69)) (de #:tty:wy:tydelln () (tyo 27 82)) (de #:tty:wy:tyattrib (x) (if x (tyo 27 40) (tyo 27 41))) (defvar #:tty:wy:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:wy:tyinsch (arg) (tyo 27 113 arg 27 114)) (de #:tty:wy:typrologue () (tyo 27 41 27 96 55) (#:tty:wy:tycls)) (de #:tty:wy:tyepilogue () (tycursor 0 (sub1 #:tty:wy:ymax))) (defvar #:tty:wy:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15