
$400004 constant port-leds
$400020 constant port-in
$400040 constant port-out
$400080 constant port-dir

: random ( -- x ) 0 32 0 do 2* port-in @ 24 rshift or loop ;

: leds ( x -- ) port-leds ! ;

: init ( -- ) welcome ;
