Task

Display a word in various colours on the terminal.

The system palette, or colours such as Red, Green, Blue, Magenta, Cyan, and Yellow can be used.



Optionally demonstrate:

 How the system should determine if the terminal supports colour
 Setting of the background colour
 How to cause blinking or flashing (if supported by the terminal)


(defun coloured-text ()
  (with-screen (scr :input-blocking t :input-echoing nil :cursor-visible nil)
    (dolist (i '(:red :green :yellow :blue :magenta :cyan :white))
      (add-string scr (format nil "~A~%" i) :fgcolor i))
      (refresh scr)
      ;; wait for keypress
      (get-char scr)))