_DRAWTITLEBAR[""]
'
_ADDBUTTON[50,50,150,100,"Open|Window",1]
'
_TICK=1
_ADDTICKBOX[50,120,_TICK,2]
'
_CTEXT$="'This|Is|^An|Example"
_POS=4
_ADDCYCLEBUTTON[50,150,150,166,_CTEXT$,_POS,3]
'
_TEXT$="This is "
_ADDINPUTBUTTON[16,16,_TEXT$,10,20,-4]
'
_DRAWUSEROBJECT[192,45,225,93,"GBX"]
'
_GROUP1=5
_ADDRADIOBUTTON[200,50,1,1,0,-5]
_ADDRADIOBUTTON[200,60,1,2,0,-6]
_ADDRADIOBUTTON[200,70,1,3,0,-7]
_ADDRADIOBUTTON[200,80,1,4,0,-8]
_SETRADIO[_GROUP1]
'
_DRAWUSEROBJECT[242,45,275,93,"GBX"]
'
_GROUP2=11
_ADDRADIOBUTTON[250,50,2,1,0,-9]
_ADDRADIOBUTTON[250,60,2,2,0,-10]
_ADDRADIOBUTTON[250,70,2,3,0,-11]
_ADDRADIOBUTTON[250,80,2,4,0,-12]
_SETRADIO[_GROUP2]
'
_HTOTAL=300
_HPOS=10
_HORIZONTALSLIDER[20,175,580,11,_HTOTAL,_HPOS,""]
'
_VTOTAL=100
_VPOS=50
_VERTICALSLIDER[600,15,25,155,_VTOTAL,_VPOS,""]
'
_SETFONT["Topaz",9]
_ADDBUTTON[360,50,530,130,"'PRESS|ME|TO|^QUIT",13]
_SETFONT["Topaz",8]
'
_ADDBUTTON[120,20,260,30,"Change Palette",16]
'
_NOTE$="Enter Details"
_ADDBUTTON[180,110,320,160,_NOTE$,18]
'
_TICK2=0
_ADDTICKBUTTON[380,140,520,160,"Tick Button",_TICK2,17]
'
_FILE1$=""
_ADDINPUTBUTTON[284,24,_FILE1$,30,255,-19]
_ADDBUTTON[66*8+5,3*8-3,66*8+25,3*8+10,"(S)FIL",20]
'
Do 
   '
   _CHECKBUTTONS
   _BUTTONZONE=Param
   '
   If _BUTTONZONE>0
      Print At(0,4)+"Button Pressed ="+Str$(_BUTTONZONE)+"  "
   End If 
   '
   If _BUTTONZONE=1
      Gosub _WINDOWPART
   End If 
   '
   If _BUTTONZONE=2
      _ADDTICKBOX[50,120,_TICK,0]
      _TICK=Param
   End If 
   '
   If _BUTTONZONE=3
      _ADDCYCLEBUTTON[50,150,150,166,_CTEXT$,_POS,0]
      _POS=Param
   End If 
   '
   If _BUTTONZONE=4
      _ADDINPUTBUTTON[16,16,_TEXT$,10,20,0]
      _TEXT$=Param$
   End If 
   '
   If _BUTTONZONE>=5 and _BUTTONZONE<=8
      _GROUP1=_BUTTONZONE
      _SETRADIO[_GROUP1]
   End If 
   '
   If _BUTTONZONE>=9 and _BUTTONZONE<=12
      _GROUP2=_BUTTONZONE
      _SETRADIO[_GROUP2]
   End If 
   '
   _GRABHORIZONTALSLIDER[20,175,580,11,_HTOTAL,_HPOS,""]
   If Param<>_HPOS
      _HPOS=Param
   End If 
   '
   _GRABVERTICALSLIDER[600,15,25,155,_VTOTAL,_VPOS,""]
   If Param<>_VPOS
      _VPOS=Param
   End If 
   '
   If _BUTTONZONE=13
      _ALERTREQUESTER["Do You Really Wish To Quit?","NO|YES"]
      If Param=2
         Screen Close 0
         _DIALOGBUTTON$=""
         End 
      End If 
   End If 
   '
   If _BUTTONZONE=16
      _PALETTEREQUESTER[0]
   End If 
   '
   If _BUTTONZONE=17
      _ADDTICKBUTTON[380,140,520,160,"Tick Button",_TICK2,0]
      _TICK2=Param
   End If 
   '
   If _BUTTONZONE=18
      _INPUTREQUESTER["Please Enter Something",_NOTE$,15,15]
      _NOTE$=Param$
      _ADDBUTTON[180,110,320,160,_NOTE$,0]
   End If 
   '
   If _BUTTONZONE=19
      _ADDINPUTBUTTON[284,24,_FILE1$,30,255,0]
      _FILE1$=Param$
   End If 
   '
   If _BUTTONZONE=20
      _FILEREQUESTER["Please Select A File"]
      _FILE1$=Param$
      _ADDINPUTBUTTON[284,24,_FILE1$,30,255,999]
   End If 
   '
Loop 
'
_WINDOWPART:
'
TEMP1$=_DIALOGBUTTON$
TEMP2$=_FONTNAME$
TEMP3=_FONTSIZE
_DIALOGBUTTON$=""
_SETFONT["Topaz",8]
'
_ADDWINDOW[50,50,20,10,"Example Window",-1]
_ADDBUTTON[_WINX1+10,_WINY2-20,_WINX2-10,_WINY2-5,"Exit",3]
_TTXT$="This i"
_ADDINPUTBUTTON[_WINX1+10,_WINY1+15,_TTXT$,15,15,-2]
'
Repeat 
   '
   _CHECKWINBUTTONS
   _BUTTONZONE=Param
   '
   If _BUTTONZONE=1
      _MOVEWINDOW["Example Window",1]
   End If 
   '
   If _BUTTONZONE=2
      _ADDINPUTBUTTON[_WINX1+10,_WINY1+15,_TTXT$,15,20,0]
      _TTXT$=Param$
   End If 
   '
Until _BUTTONZONE=3
'
_CLOSEWINDOW[1]
'
_DIALOGBUTTON$=TEMP1$
_SETFONT[TEMP2$,TEMP3]
TEMP1$=""
TEMP2$=""
_BUTTONZONE=0
'
Return