application/octet-stream
•
748 B
•
33 lines
(require :core/term)
(core/term/start)
(core/term/clear-screen)
(core/term/move-cursor 4 4)
(core/term/set-fg-color :red)
(core/term/put-string "Test")
(core/term/set-fg-color :default)
(core/term/put-string "!@#")
(def size (core/term/get-size))
(core/term/draw-box :red
2
2
(- (ref size :width) 4)
(- (ref size :height) 4))
(core/term/draw-box :blue
4
4
(- (ref size :width) 8)
(- (ref size :height) 8))
(core/term/move-cursor 6 6)
(def i 8)
(while #t
(def c (core/term/poll-input))
(when (= c #x11)
(core/term/stop)
(exit 0))
(core/term/put-string (fmt "{c:X} ")))
