Type window
Field x
Field y
Field w
Field h
Field pos
Field close
Field title$
Field active
End Type


Graphics 600,400,32,2

SetBuffer BackBuffer()


     w.window = New window
      w\x=0   
     w\y=0
     w\w=300
     w\h=200
     w\title$="Console"
     w\pos=1
     w\close=1


While Not KeyHit(1)
Cls


mx=MouseX()
my=MouseY()
mh=MouseHit(1)

      If KeyHit(57)
     w.window = New window
      w\x=mx
     w\y=my
     w\w=200
     w\h=100
     numb=numb+1
   w\pos=numb
     w\active=1
     w\title$="New Window "+numb+"#"
     EndIf



For w.window = Each window
del=0

Color 0,0,0
Rect w\x,w\y,w\w,w\h,1
Color 255,255,255
Rect w\x,w\y,w\w,w\h,0
Text w\x,w\y,w\title$
Line w\x,w\y+12,w\x+w\w-1,w\y+12
Text w\x+w\w-10,w\y,"X"

If mx>w\x And mx<w\x+w\w And my>w\y And my<w\y+w\h And mh=1


w\pos=1


Insert w Before First window
del=1
EndIf


If del=0
If mx>w\x+w\w-10 And mx<w\x+w\w+20 And my>w\y And my<w\y+10 And mh=1
Delete w.window
EndIf
EndIf



Next


Flip 60
Wend
End

Insert w After Last window

Insert w After Last window