Это?
SUB(set_coord) //== Задаём координаты ==========================================
$wait_time = 0
$set = 0
WHILE($set = 0)
IF($wait_time < $_time_t)
HINTPOPUP("Укажите координаты...", "Внимание!")
$wait_time = $_time_t + 10
WAITMS(50)
END_IF
IF(ISKEYDOWN(1) = 1)
$vx = $_xmouse
$vy = $_ymouse
GETSCREEN($vx,$vy, $vx,$vy)
$vc = PXL($vx,$vy)
WHILE(ISKEYDOWN(1) = 1)
WAITMS(50)
END_CYC
$set = 1
END_IF
WAITMS(50)
END_CYC
END_SUB
// так используем
set_coord()
LOGWRITE("Заданы координаты X/Y ", $vx, " / ", $vy, " цвет: ", $vc)
HINTPOPUP(STRCONCAT($vx, " / ", $vy, " цвет: ", $vc), "Заданы координаты:")
HALT