! formtest cls 2 forminit formentry "TestForm", 90, 2, 156, 24, 0, 0: ! "Title" formsetstatus 0,4: ! doppelter Rahmen ! einige 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 ! Gruppe von RadioButtons formentry "",99,39, 156,85, 0,1: ! Rahmen um die RadioButtons formentry "alpha", 100,40,155,54,2,40 formsetstatus 40,3: ! Ausgewählt, kein Rahmen formentry "beta", 100,55,155,69,2,41 formsetstatus 41,2: ! kein Rahmen formentry "gamma", 100,70,155,84,2,42 formsetstatus 42,2: ! kein Rahmen ! Button mit interner Grafik formentry "#22", 7,132, 25,149,0,50 formsetstatus 50,2: ! kein Rahmen 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 : ! Formular anzeigen formtouch sel : ! auf Eingabe warten if sel=21 then : ! CheckBox 20 selektiert formsetstatus 60,8 : ! Button 60 inaktivieren endif if sel=20 then : ! CheckBox 20 deselektiert formresetstatus 60,8 : ! Button 60 aktivieren endif messagebox string(sel),3: ! anzeigen goto m2