' **************************************
' * Beispiel-Listing Nr.2 (CheckBoxen) *
' * ---------------------------------- *
' * evtl. muss noch der pfad in der    *
' * letzten zeile geändert werden,     *
' * damit das programm die GadTools    *
' * finden und beiladen kann.          *
' **************************************
'
'
' ************************************** 
'      Eine Arbeitsmaske erstellen.  
' ************************************** 
'
'
_SCREEN_OPEN[0,1]
_MAKE_MASK[70,30,560,220,2,1,0]
'
'
' ************************************** 
'       Und nun den Text aufbauen. 
' ************************************** 
'
'
Ink 2,0
Text 105,60,"     ***** Dies ist Beispiel-Listing Nr.2 *****"
Text 105,68,"     ------------------------------------------"
Text 105,80,"        Eine Demonstration für Check-Boxen!"
Text 105,90,"  Zum beenden des programms bitte auf EXIT klicken."
Text 275,122,"CheckBox"
'
'
' ************************************** 
'    Eine CheckBox & ein PushButton. 
' ************************************** 
'
'
_CHECKBOX[1,296,130,2,1,0,2,1]
_PUSHBUTTON[1,280,180,2,1,0,2," EXIT "]
'
'
' ************************************** 
'    Warten bis Push-Button geklickt.
' ************************************** 
'
'
Repeat 
_CHECKBOX_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct 
'
'
' ************************************** 
'     Das GadTools.Include beiladen. 
' ************************************** 
'
'
Include "df0:GadTools.Inc"