window open 100,100 to 200,200, "A", "A"
//window set "A", "flags", "not-zoomable"
//window set "A", "flags", "not-h-resizable, not-v-resizable"
window set "A", "flags", "not-zoomable, not-h-resizable, not-v-resizable"
while(not instr(message$, "Quit"))
wend
window close "A"