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

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

(defvar #:tty:vt52:xmax 79)
(defvar #:tty:xmax 79) ;  compatibilite' v15

(defvar #:tty:vt52:ymax 23)
(defvar #:tty:ymax 23) ;  compatibilite' v15

(de #:tty:vt52:tycursor (col line)
    (tyo 27 89 (+ 32 line) (+ 32 col)))

(de #:tty:vt52:tycls ()
    (tyo 27 72 27 74))

(de #:tty:vt52:tycleol ()
    (tyo 27 75))

(de #:tty:vt52:tycleos ()
    (tyo 27 74))

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

; ** #:tty:termcap : vt52 : ne sait pas faire : tyinsln

; ** #:tty:termcap : vt52 : ne sait pas faire : tydelln

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

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

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

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