begin sysgui=unt open (sysgui)"X0" print (sysgui)'window'(100,100,200,170,"Text Left Samples",$00090003$,$02000000$) print (sysgui)'radiobutton'(101,10,10,80,30,"One",$$) print (sysgui)'radiobutton'(102,10,50,80,30,"Two",$$) print (sysgui)'radiobutton'(103,10,90,80,30,"Three",$0006$) print (sysgui)'radiobutton'(104,10,130,80,30,"Four",$0002$) print (sysgui)'radiogroup'(101,102,103,104) print (sysgui)'checkbox'(201,110,10,80,30,"One",$$) print (sysgui)'checkbox'(202,110,50,80,30,"Two",$$) print (sysgui)'checkbox'(203,110,90,80,30,"Three",$0006$) print (sysgui)'checkbox'(204,110,130,80,30,"Four",$0002$) 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