begin opts$ = opts,opts$(3,1)=ior(opts$(3,1),$02$),opts$(5,1)=".",opts$(6,1)="," setopts opts$ sysgui = unt open (sysgui)"X0" print (sysgui)'scale'(1,1) n = -123456789 mask$ = "###,###,##0.00-" text$ = str(n:mask$) title$=cvs(sys,3)+" "+cvs(rev,3)+": "+info(0,0)+" "+info(0,1) if info(1,0)="Java" then title$=title$+" "+info(1,0)+" "+info(1,1) print (sysgui)'window'(50,50,300,240,title$,$000f0003$,$$) print (sysgui)'statbar'(99,0,0,0,0,$$,$$) nada$ = sendmsg(sysgui,99,27,0,bin(240,2)) print (sysgui)'text'(100,10,15,100,25,"INPUTN:",$8000$) print (sysgui)'inputn'(101,120,10,170,30,$0000$,mask$,$04$,n,n) print (sysgui)'button'(102,10,55,100,25,"getText",$$) print (sysgui)'text'(103,120,55,170,30,"",$$) print (sysgui)'button'(104,10,95,100,25,"setText",$$) print (sysgui)'edit'(105,120,90,170,30,str(n),$$) print (sysgui)'button'(106,10,135,100,25,"getMask",$$) print (sysgui)'text'(107,120,135,170,30,"",$$) print (sysgui)'button'(108,10,175,100,25,"setMask",$$) print (sysgui)'edit'(109,120,170,170,30,mask$,$$) print (sysgui)'focus'(0) dim event$:tmpl(sysgui) repeat readrecord(sysgui,siz=10)event$ print event.code$,event.id,event.flags,event.x,event.y if event.code$="B" then gosub click until event.code$="X" release click: switch event.id case 102; rem ' getText text$ = sendmsg(sysgui,101,20,0,$$) print (sysgui)'title'(103,text$) nada$ = sendmsg(sysgui,99,20,0,"getText returns """+text$+"""") print "getText returns """+text$+"""" break case 104; rem ' setText text$ = ctrl(sysgui,105,1) nada$ = sendmsg(sysgui,101,21,0,text$) nada$ = sendmsg(sysgui,99,20,0,"setText """+text$+"""") print "setText """+text$+"""" break case 106; rem ' getMask mask$ = sendmsg(sysgui,101,22,0,$$) print (sysgui)'title'(107,mask$) nada$ = sendmsg(sysgui,99,20,0,"getMask returns """+mask$+"""") print "getMask returns """+mask$+"""" break case 108; rem ' setMask mask$ = ctrl(sysgui,109,1) nada$ = sendmsg(sysgui,101,23,0,mask$) nada$ = sendmsg(sysgui,99,20,0,"setMask """+mask$+"""") print "setMask """+mask$+"""" break swend return