' **************************************   
' * 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,0]
_SCREENBAR["AMOSPro Screen"]
_WINCLONE[20,25,300,230,"Please Select!"]
_MAKE_MASK[80,120,240,211,1,2,0]
Limit Mouse 
Wait 5
'
'
' ************************************** 
'       Und nun den Text aufbauen. 
' ************************************** 
'
'
Ink 2,0
Text 38,60,"Dies ist Beispiel-Listing Nr.2"
Text 38,68,"------------------------------"
Text 38,80,"    Eine Demonstration für"
Text 38,90,"         CheckBoxen!"
Text 38,110,"Zum beenden auf EXIT klicken!!"
Ink 1,0
Text 129,135,"CheckBox"
'
'
' ************************************** 
'    Eine CheckBox & ein PushButton.     
' ************************************** 
'
'
_CHECKBOX[1,151,145,2,1,0,1,1]
_PUSHBUTTON[1,135,190,2,1,0,1," EXIT "]
'
'
' ************************************** 
'    Warten bis Push-Button geklickt.
' ************************************** 
'
'
Repeat 
_CHECKBOX_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct 
'
'
' ************************************** 
'     Das GadTools.Include beiladen. 
' ************************************** 
'
'
Include "dh2:GadTools/GadTools.inc"