' **************************************** 
' * 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,1]
_SCREENBAR["AMOSPro Screen"]
_WINCLONE[90,25,540,220,"Please Select!"]
_MAKE_MASK[200,105,420,200,1,2,0]
Limit Mouse 
Wait 5
'
'
' ************************************** 
'       Und nun den Text aufbauen. 
' ************************************** 
'
'
Ink 2,0
Text 105,60,"     ***** Dies ist Beispiel-Listing Nr.4 *****"
Text 105,68,"     ------------------------------------------"
Text 105,80,"       Eine Demonstration für Cycle-Buttons!"
Text 105,90,"  Zum beenden des programms bitte auf EXIT klicken."
Ink 1,0
Text 266,122,"CycleButton"
'
'
' ************************************** 
'   Ein CycleButton & ein PushButton.  
' ************************************** 
'
'
_CYCLEBUTTON[1,284,130,2,1,0,1,"EINS|ZWEI|DREI|VIER|FÜNF"]
_PUSHBUTTON[1,280,180,2,1,0,1," EXIT "]
'
'
' ************************************** 
'    Warten bis Push-Button geklickt.
' ************************************** 
'
'
Repeat 
_CYCLEBUTTON_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct 
'
'
' ************************************** 
'     Das GadTools.Include beiladen. 
' ************************************** 
'
'
Include "dh2:GadTools/GadTools.inc"