Plaster

text
(ql:quickload "croatoan") (defun main () (crt:with-screen (scr :input-echoing nil :input-blocking t :enable-colors t) (crt:with-windows ((win1 :height 3 :width (crt:width scr) :position (list (- (crt:height scr) 3) 0) :input-blocking t :draw-border t :input-blocking t :enable-function-keys t)) (crt:refresh scr) (crt:refresh win1) (crt:event-case (scr event) (#\Escape (return-from crt:event-case))))))