( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF )

variable delay
20 delay !

: sleep ( -- )
  delay @ ms
;

: numlines ( -- numlines )
  screen-height 2 * 3 / 
;


: size ( -- size )
  screen-width numlines *
;

: offset ( -- offset ) 
  screen-height 6 / screen-width * 
  frame-buffer-adr +
;


: pixeladr ( y x -- pixeladr )
	swap screen-width *
	+ 
	offset +
;