Anonymous user
Colour bars/Display: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 1:
{{task}}
The task is to display a series of vertical color bars across the width of the display. The color bars should either use the system palette, or the sequence of colors: Black, Red, Green, Blue, Magenta, Cyan, Yellow, White.
=={{header|PicoLisp}}==
{{trans|UNIX Shell}}
<lang PicoLisp>(call 'clear)
(let Width (in '(tput cols) (read))
(do (in '(tput lines) (read))
(for B (range 0 7)
(call 'tput 'setab B)
(space (/ Width 8)) )
(prinl) ) )
(call 'tput 'sgr0) # reset</lang>
=={{header|Tcl}}==
| |||