; Le←Lisp version 15.2 : compilation du terminal virtuel : sun-nic

(setq #:sys-package:tty '#:tty:sun-nic)

(defvar #:tty:sun-nic:xmax 79)
(defvar #:tty:xmax 79) ;  compatibilite' v15

(defvar #:tty:sun-nic:ymax 33)
(defvar #:tty:ymax 33) ;  compatibilite' v15

(de #:tty:sun-nic:tycursor (col line)
    (tyo 27 91)
    (incr line)
    (incr col)
    (tyod line 0)
    (tyo 59)
    (tyod col 0)
    (tyo 72))

(de #:tty:sun-nic:tycls ()
    (tyo 12))

(de #:tty:sun-nic:tycleol ()
    (tyo 27 91 75))

(de #:tty:sun-nic:tycleos ()
    (tyo 27 91 74))

(de #:tty:sun-nic:tydelch ()
    (tyo 27 91 80))

(de #:tty:sun-nic:tyinsln ()
    (tyo 27 91 76))

(de #:tty:sun-nic:tydelln ()
    (tyo 27 91 77))

(de #:tty:sun-nic:tyattrib (x)
    (if x (tyo 27 91 55 109) (tyo 27 91 109)))

(defvar #:tty:sun-nic:tyattrib ())
(defvar #:tty:tyattrib ()) ;  compatibilite' v15

; ** #:tty:termcap : sun-nic : ne sait pas faire : tyinsch

(de #:tty:sun-nic:typrologue ()
    (#:tty:sun-nic:tycls))

(de #:tty:sun-nic:tyepilogue ()
    (tycursor 0 (sub1 #:tty:sun-nic:ymax)))

(defvar #:tty:sun-nic:tyshowcursor t)
(defvar #:tty:tyshowcursor t) ;  compatibilite' v15