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

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

(defvar #:tty:minitel:xmax 39)
(defvar #:tty:xmax 39) ;  compatibilite' v15

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

(de #:tty:minitel:tycursor (col line)
    (tyo 31 (+ 65 line) (+ 65 col)))

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

(de #:tty:minitel:tycleol ()
    (tyo 24))

(de #:tty:minitel:tycleos ()
    (tyo 31))

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

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

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

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

(de #:tty:minitel:typrologue ()
    (tyo 27 58 105 67 27 58 105 69 17 13)
    (#:tty:minitel:tycls))

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

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