; Le←Lisp version 15.2 : compilation du terminal virtuel : grotty

(setq #:sys-package:tty '#:tty:grotty)

(defvar #:tty:grotty:xmax 77)
(defvar #:tty:xmax 77) ;  compatibilite' v15

(defvar #:tty:grotty:ymax 69)
(defvar #:tty:ymax 69) ;  compatibilite' v15

(de #:tty:grotty:tycursor (col line)
    (tyo 27 61 (+ 32 line) (+ 32 col)))

(de #:tty:grotty:tycls ()
    (tyo 12))

(de #:tty:grotty:tycleol ()
    (tyo 25))

; ** #:tty:termcap : grotty : ne sait pas faire : tycleos

; ** #:tty:termcap : grotty : ne sait pas faire : tydelch

(de #:tty:grotty:tyinsln ()
    (tyo 1))

(de #:tty:grotty:tydelln ()
    (tyo 2))

(de #:tty:grotty:tyattrib (x)
    (if x (tyo 5) (tyo 6)))

(defvar #:tty:grotty:tyattrib ())
(defvar #:tty:tyattrib ()) ;  compatibilite' v15

; ** #:tty:termcap : grotty : ne sait pas faire : tyinsch

(de #:tty:grotty:typrologue ()
    (#:tty:grotty:tycls))

(de #:tty:grotty:tyepilogue ()
    (tycursor 0 (sub1 #:tty:grotty:ymax)))

(defvar #:tty:grotty:tyshowcursor t)
(defvar #:tty:tyshowcursor t) ;  compatibilite' v15