: CAPS 4 ;
: NUM  2 ;
: SCR  1 ;
: ALL  7 ; ( все три )
: -ALL 0 ; ( ни одного )

( слово turn включает заданный огонёк)
: turn ( огонёк --> )
	$ED $60 out
	    $60 out
;

: delay 100 delay ; ( чтобы видно было )

( бегущие огни )
: main
	10 0 do
	   NUM  turn delay ( включаем и любуемся)
	   CAPS turn delay ( - // - )
	   SCR  turn delay ( - // - )
	loop
	-ALL turn ( потом гасим все )
;
noerrors
Compress on
debug off
build .\lights.exe