! formtest cls 2 forminit formentry "TestForm", 90, 2, 156, 24, 0, 0: ! "Title" formsetstatus 0,4: ! double frame ! Set of checkbuttons formentry "One", 5,30, 65,44,1,10 formentry "Two", 5,50, 65,64,1,20 formentry "Three", 5,70, 65,84,1,30 ! Group of radiobuttons formentry "",99,39, 156,85, 0,1: ! Frame around radiobuttons formentry "alpha", 100,40,155,54,2,40 formsetstatus 40,3: ! Selected, no frame formentry "beta", 100,55,155,69,2,41 formsetstatus 41,2: ! No frame formentry "gamma", 100,70,155,84,2,42 formsetstatus 42,2: ! No frame ! buttons with internal graphics formentry "#22", 7,132, 25,149,0,50 formsetstatus 50,2: ! No frame formentry "#24", 35,130, 63,159, 0,60 formentry "#25", 65,130, 93,159, 0,70 formentry "#257", 140,110,152,123,0,80 formentry "#184", 140,130,152,143,0,90 $m2 formdisplay : ! display form formtouch sel : ! wait for input if sel=21 then : ! checkbox 20 checked formsetstatus 60,8 : ! "gray" button 60 endif if sel=20 then : ! checkbox 20 unchecked formresetstatus 60,8 : ! activate button 60 endif messagebox string(sel),3: ! Display selector goto m2