' ***************************************    
' * Beispiel-Listing Nr.1 (PushButtons) *    
' * ----------------------------------- *    
' * 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]
_SCREENBAR["AMOSPro Screen"]
_WINCLONE[30,60,316,430,"Please Select!"]
_MAKE_MASK[100,231,252,320,1,2,0]
Limit Mouse 
Wait 5
'
'
' ************************************** 
'       Und nun den Text aufbauen. 
' ************************************** 
'
'
Ink 2,0
Text 53,140,"Dies ist Beispiel-Listing Nr.1"
Text 53,148,"------------------------------"
Text 53,160,"    Eine Demonstration für"
Text 53,170,"         PushButtons!"
Text 53,190,"Zum beenden auf EXIT klicken!!"
'
'
' ************************************** 
'            Ein PushButton.     
' ************************************** 
'
'
_PUSHBUTTON[1,150,280,2,1,0,1," EXIT "]
'
'
' ************************************** 
'    Warten bis Push-Button geklickt.
' ************************************** 
'
'
Repeat 
_PUSHBUTTON_HIT
Until Param=1
Direct 
'
'
' ************************************** 
'     Das GadTools.Include beiladen. 
' ************************************** 
'
'
Include "dh2:GadTools/GadTools.inc"