alias 1 { window -p @hi | drawrect -f @hi $r(1,15) 50 $r(1,500) $r(1,500) 50 50 
  set %x1 0
  set %y1 0
  while (!$getdot(@hi,$calc(0+ %x1),$calc(0+ %y2))) { 
    set %x1 $calc(%x1 + 49)
    if (%x1 => 500) {
      set %x1 0
      set %y1 $calc(%y1 +49)
    }
  }
  return $v1
}