include "mapbasic.def"

declare sub main

sub main
	dim i,winnum as integer
	winnum= numwindows()
	note "there is :" & winnum &" windows"
	for i= 1 to winnum
		note windowinfo(i,WIN_INFO_NAME)
	next
end sub