Result$=FnWindow_Class$("flag","First_Win,has a close box")
Result$=FnWindow_Class$("flag","First_Win,user sizeable")
Result$=FnWindow_Class$("flag","First_Win,stays on top")

Result$=FnWindow_Class$("event","First_Win,scrollbar position changed")

open (1)"X0"
print (1)'pixels'

Result=FnWindow_Class("parent"
:       ,"First_Win,20,20,400,200"
:       +",This is the first test window"
:       +","+hta(stbl("$Window_Flags_First_Win "))
:       +","+hta(stbl("$Window_Events_First_Win "))+",")

if Result then
:       First_Window$=stbl("$Window_First_Win ")
:   else
:       print "Oops.";
:       stop

Button1$=FnButton_Class$("create","First Button,Move,0,0,40,40,0000,")
Button2$=FnButton_Class$("create","Second Button,Hide,40,0,40,40,0000,")
Button3$=FnButton_Class$("create","Third Button,Show,80,0,40,40,0000,")
Tool_Button1$=FnTool_Button_Class$("create","First Tool Button"
:       +",BITMAP=./goto.bmp,40,40,40,40,0000,")
Tool_Button2$=FnTool_Button_Class$("create","Second Tool Button"
:       +",BITMAP=./floppy.bmp,80,40,40,40,0000,")

print (1)'image'(40,40,40,40,"./goto.bmp")
print (1)'image'(80,40,80,40,"./floppy.bmp")

Base_Date$="04,29,1997,"
Datebox1$=FnDatebox_Class$("create","First Datebox,"+Base_Date$+"0,80,,")