Barras de colores

[galil...@gmail.com]

Un programa que muestra un poquito de color. Este código es el primero que me gustó "estéticamente"..., y no me refiero sólo al resultado (que también).

^r4/lib/gui.txt

#colores 'negro 'rojo 'verde 'azul 'violeta 'cyan 'amarillo 'blanco

:dibuja 'colores 0 ( 8 <? )( swap @+ exec 160 emit swap 1+ ) cr 2drop ;

:repite 0 ( 8 <? )( dibuja 1+ ) drop ;

: cls fonti2 repite show 'exit >esc< ;

Tan poquitas líneas y la de cosas que aprendí escribiéndolas.