SYSGUI = UNT OPEN (SYSGUI)"X0" PRINT (SYSGUI)'SCALE'(1,1) PRINT (SYSGUI)'WINDOW'(50,50,200,200,"Edit Modify",$00010003$,$00400400$) TEXT$ = "The quick brown fox jumps over the lazy dog." PRINT (SYSGUI)'INPUTE'(101,10,10,180,25,$$,255,"",TEXT$) PRINT (SYSGUI)'CUE'(101,"INPUTE","INPUTE") PRINT (SYSGUI)'EDIT'(102,10,40,180,25,TEXT$,$$) PRINT (SYSGUI)'CUE'(102,"EDIT","EDIT") PRINT (SYSGUI)'LISTEDIT'(103,10,70,180,80,TEXT$,$$) PRINT (SYSGUI)'CUE'(103,"LISTEDIT","LISTEDIT") PRINT (SYSGUI)'CEDIT'(104,10,100,180,90,TEXT$,$0106$) PRINT (SYSGUI)'CUE'(104,"CEDIT","CEDIT") PRINT (SYSGUI)'FOCUS'(101) DIM EVENT$:TMPL(SYSGUI) REPEAT READ RECORD(SYSGUI,SIZ=10)EVENT$ PRINT EVENT.CODE$,EVENT.ID,EVENT.FLAGS,EVENT.X,EVENT.Y UNTIL EVENT.CODE$="X" RELEASE