Anonymous

variable ticks
: pixel  32 and  32 +  emit ;
: field  ticks @  dup 64 -  do  i pixel  loop ;
: bar  ." [" field ." ]" ;
: blip  13 emit  bar  1 ticks +! ;
: demo  begin  blip  100 ms  again ;