' ****************************************   
' * Beispiel-Listing Nr.4 (CycleButtons) *   
' * ------------------------------------ *   
' * 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,2]
_MAKE_MASK[45,130,301,320,2,1,0]
'
'
' ************************************** 
'       Und nun den Text aufbauen. 
' ************************************** 
'
'
Ink 2,0
Text 53,160,"Dies ist Beispiel-Listing Nr.4"
Text 53,168,"------------------------------"
Text 53,180,"    Eine Demonstration für"
Text 53,190,"        CycleButtons!"
Text 53,210,"Zum beenden auf EXIT klicken!!"
Text 132,235,"CycleButton"
'
'
' ************************************** 
'   Ein CycleButton & ein PushButton.    
' ************************************** 
'
'
_CYCLEBUTTON[1,148,245,2,1,0,2,"EINS|ZWEI|DREI|VIER|FÜNF"]
_PUSHBUTTON[1,150,290,2,1,0,2," EXIT "]
'
'
' ************************************** 
'    Warten bis Push-Button geklickt.
' ************************************** 
'
'
Repeat 
_CYCLEBUTTON_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct 
'
'
' ************************************** 
'     Das GadTools.Include beiladen. 
' ************************************** 
'
'
Include "df0:GadTools.Inc"