HSP | 複数のウィンドウが一度に消えないようにする

HSP | 複数のウィンドウが一度に消えないようにする

screen 0,500,500
title "ウィンドウ0"
button gosub "ウィンドウ1を表示",*window
screen 1,500,500
title "ウィンドウ1"
button gosub "ウィンドウ0を表示",*window
window_flag=3
onexit gosub *exit
stop

*exit
if ginfo(2)=0 : window_flag-1
if ginfo(2)=1 : window_flag-2
gosub *new
return

*window
if ginfo(2)=0 & (window_flag&2)=0 : window_flag+2
if ginfo(2)=1 & (window_flag&1)=0 : window_flag+1
gosub *new
return

*new
if window_flag=0 {
end
} else {
if window_flag&1 : gsel 0,1 : else : gsel 0,-1
if window_flag&2 : gsel 1,1 : else : gsel 1,-1
}
return

window_flagで複数のウィンドウを管理しています。
もうちょっと改良できそうだな…。