begin
sysgui=unt
open (sysgui)"X0"
print (sysgui)'window'(100,100,300,170,"READONLY & READWRITE",$00090003$,$02000000$)
print (sysgui)'radiobutton'(101,10,10,140,30,"Enabled, ReadWrite",$0004$)
print (sysgui)'enable'(101),'readwrite'(101)
print (sysgui)'radiobutton'(102,10,50,140,30,"Enabled, ReadOnly",$$)
print (sysgui)'enable'(102),'readonly'(102)
print (sysgui)'radiobutton'(103,10,90,140,30,"Disabled, ReadWrite",$$)
print (sysgui)'disable'(103),'readwrite'(103)
print (sysgui)'radiobutton'(104,10,130,140,30,"Disabled, ReadOnly",$$)
print (sysgui)'disable'(104),'readonly'(103)
print (sysgui)'radiogroup'(101,102,103,104)
print (sysgui)'checkbox'(201,150,10,140,30,"Enabled, ReadWrite",$0004$)
print (sysgui)'enable'(201),'readwrite'(201)
print (sysgui)'checkbox'(202,150,50,140,30,"Enabled, ReadOnly",$$)
print (sysgui)'enable'(202),'readonly'(202)
print (sysgui)'checkbox'(203,150,90,140,30,"Disabled, ReadWrite",$$)
print (sysgui)'disable'(203),'readwrite'(203)
print (sysgui)'checkbox'(204,150,130,140,30,"Disabled, ReadOnly",$$)
print (sysgui)'disable'(204),'readonly'(203)
dim event$:tmpl(sysgui)
repeat
read record(sysgui,len=10)event$
print event.code$,event.id,event.flags,event.x,event.y
until event.code$="X"
release