hex

code exch ( >a >b --- )
  sp )+  a0  long move
  sp )+  a1  long move
  a0 )  d0  long move
  a1 )  d1  long move
  d0  a1 )  long move
  d1  a0 )  long move
c;

variable color
variable dx
variable dy
variable incr1
variable incr2
variable d
variable x
variable y
variable flag
variable x1
variable y1
variable x2
variable y2
variable xdir
variable ydir

variable image-width	\ d5
variable image-height
variable image-size
variable >image
variable >image-row	\ a3
variable >image-end
variable image-column	\ d6
variable image-color	\ d7

decimal

defer line

: foo [ hex ] 
  fb_width rnd fb_height rnd 
  fb_width rnd fb_height rnd 
  256 rnd color ! line
;

: bar 0 do foo loop ;