; Le←Lisp version 15.2 : compilation du terminal virtuel : wyse925 (setq #:sys-package:tty '#:tty:wyse925) (defvar #:tty:wyse925:xmax 79) (defvar #:tty:xmax 79) ; compatibilite' v15 (defvar #:tty:wyse925:ymax 23) (defvar #:tty:ymax 23) ; compatibilite' v15 (de #:tty:wyse925:tycursor (col line) (tyo 27 61 (+ 32 line) (+ 32 col))) (de #:tty:wyse925:tycls () (tyo 27 42)) (de #:tty:wyse925:tycleol () (tyo 27 116)) (de #:tty:wyse925:tycleos () (tyo 27 121)) (de #:tty:wyse925:tydelch () (tyo 27 87)) (de #:tty:wyse925:tyinsln () (tyo 27 69)) (de #:tty:wyse925:tydelln () (tyo 27 82)) (de #:tty:wyse925:tyattrib (x) (if x (tyo 27 71 52) (tyo 27 71 48))) (defvar #:tty:wyse925:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:wyse925:tyattrib (x) (if x (tyo 27 71 56) (tyo 27 71 48))) (defvar #:tty:wyse925:tyattrib ()) (defvar #:tty:tyattrib ()) ; compatibilite' v15 (de #:tty:wyse925:tyinsch (arg) (tyo 27 81 arg)) (de #:tty:wyse925:typrologue () (tyo 27 108 27 34 13 27 51 13 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 32 32 32 32 32 32 32 32 27 49 13) (#:tty:wyse925:tycls)) (de #:tty:wyse925:tyepilogue () (tycursor 0 (sub1 #:tty:wyse925:ymax))) (defvar #:tty:wyse925:tyshowcursor t) (defvar #:tty:tyshowcursor t) ; compatibilite' v15