;;; fichero que contiene una pequena portada para las gramaticas
(in-package :dypar)

(proclaim '(special *gram-output* *gram2-output*))

(setq *gram-output* (make-window-stream :top 8
                                        :left 18
                                        :width 45
                                        :height 8
                                        :attribute 79))

(setq *gram2-output* (make-window-stream :top 15
                                        :left 18
                                        :width 45
                                        :height 1
                                        :attribute 56))
(enmarca *gram-output* :alto 7)

(send *gram-output* :set-cursorpos  11 3)

(send *gram-output* :write-string "Cargando las gramaticas")

(send *gram2-output* :set-cursorpos 0 0)
(send *gram2-output* :clear-screen)