'次の編集ウィンドウへ / ver. 0.51 / by Kabuneko 2000/05/16

proc main
    if @hwnd = 0 then exit proc
    dim hwnd[40] as HWND
    dim i, n, x
    i = 1 : n = 1
    hwnd[i] = @@GetHwnd(2)
    do while 1
        i = i + 1
        hwnd[i] = @@GetHwnd(0)
        if hwnd[i] = 0 then exit do
        x = i
        if @hwnd = hwnd[i] then n = i
    loop
    i = 1 : hwnd[0] = hwnd[x]
    if iskeydown(KEY_SHIFT) then i = -1
    @@Activehwnd hwnd[(n + i) mod x]
end proc