dim a1(4) as integer 'Объявляем первый массив с координатами первого окна.
dim a2(4) as integer 'Объявляем второй массив с координатами второго окна.
dim a3(4) as integer 'Объявляем третий массив с координатами третьего окна.
dim a4(4) as integer 'Объявляем четвёртый массив с координатами четвёртого окна.
dim asl(4) as integer 'Объявляем массив, содержащий последовательность окон.
dim ap(4) as integer 'Массив, необходимый для проверки "клика" по окну.
dim m as integer
dim i as integer
dim n as integer
dim x as integer 'Объявление вспомогательной переменной
dim y as integer
input a1(0), a1(1), a1(2), a1(3) 'Вводим координаты первого окна.
input a2(0), a2(1), a2(2), a2(3) 'Вводим координаты второго окна.
input a3(0), a3(1), a3(2), a3(3) 'Вводим координаты третьего окна.
input a4(0), a4(1), a4(2), a4(3) 'Вводим координаты четвёртого окна.
input asl(0), asl(1), asl(2), asl(3) 'Вводит последовательность слоёв.
input x, y 'Вводим координаты "клика" мыши.
if x>=a1(0) and x<=a1(1) and y>=a1(2) and y<=a1(3) then ap(0)=1 'Проверяем, если ли попадание мыши по первому окну.
if x>=a2(0) and x<=a2(1) and y>=a2(2) and y<=a2(3) then ap(1)=1 'Проверяем, если ли попадание мыши по второму окну.
if x>=a3(0) and x<=a3(1) and y>=a3(2) and y<=a3(3) then ap(2)=1 'Проверяем, если ли попадание мыши по третьему окну.
if x>=a4(0) and x<=a4(1) and y>=a4(2) and y<=a4(3) then ap(3)=1 'Проверяем, если ли попадание мыши по четвёртому окну.
if ap(0)=0 and ap(1)=0 and ap(2)=0 and ap(3)=0 then
    print("Координата вне окон") 'При отсутствии попадания по всем окнам - вывод сообщения "Координата вне окон".
else
    m=5
    for i=0 to 3
        if m>asl(i) and ap(i)=1 then n=i : m=asl(i)
    next
    for i=0 to 3
        if asl(i)<asl(n) then asl(i)=asl(i)+1
    next
    asl(n)=1
    print("1 2 3 4")
    for i=0 to 3
        print(asl(i));
    next
end if
sleep