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

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

(setq #:tty:xmax 79)

(setq #:tty:ymax 23)

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

(de #:tty:ts4:tycls ()
    (#:tty:tyo 27 42))

(de #:tty:ts4:tycleol ()
    (#:tty:tyo 27 116))

(de #:tty:ts4:tycleos ()
    (#:tty:tyo 27 89))

(de #:tty:ts4:tydelch ()
    (#:tty:tyo 27 87))

(de #:tty:ts4:tyinsln ()
    (#:tty:tyo 27 69))

(de #:tty:ts4:tydelln ()
    (#:tty:tyo 27 82))

(de #:tty:ts4:tyinsch (arg)
    (#:tty:tyo 27 81 arg))

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

(de #:tty:ts4:tyepilogue ()
    (tycursor 0 23))