19 lines
620 B
Plaintext
19 lines
620 B
Plaintext
(include "/usr/local/var/mlisp/terminal.lsp")
|
|
|
|
(print (term-red "red text"))
|
|
(print (term-green "green text"))
|
|
(print (term-yellow "yellow text"))
|
|
(print (term-blue "blue text"))
|
|
(print (term-magenta "magenta text"))
|
|
(print (term-cyan "cyan text"))
|
|
(print (term-white "white text"))
|
|
(print (term-bold "bold text"))
|
|
(print (term-underline "underline text"))
|
|
(print "normal text")
|
|
|
|
(print (+ (term-red (sprintf "%.2f" (list 1.11))) " "
|
|
(term-green (sprintf "%.2f" (list 1.11))) " "
|
|
(term-blue (sprintf "%.2f" (list 1.11))) " "
|
|
(term-yellow (sprintf "%.2f" (list 1.11))) " "
|
|
))
|