: bounce { win xincr yincr x y -- }
  x y win nxf_move
  100 nxf_usleep 
  x xincr + to x
  y yincr + to y
  win xincr yincr x y ' bounce ( bogus of course ) 6 nxf_idle_callback ;

subwin @ 4 4 0 0 bounce