'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Rt Lib Open
'  -Rt Number Req
'  -Rt Lib Close 
'
Screen Open 0,640,256,2,$8000
Curs Off : Flash Off : Cls 0
Palette $0,$FFF : Print 
Amos To Back 
'
'Ouverture de la reqTools.library
E=Rt Lib Open
'Ouverture impossible
If E=0 Then End 
'
'Nombre par default
NUMBER=1993
'Appel au Number Requester 
_VAL=Rt Number Req("Entrez une valeur...",Varptr(NUMBER))
'
'Ok/Return=1 / Cancel/Annuler=0  
If _VAL=1
   Print "Bouton 'Ok' sélectionné avec la valeur:";NUMBER
Else 
   Print "Bouton 'Cancel' sélectionné"
End If 
Print : Print "Pressez une touche..."
Amos To Front 
Wait Key 
'
'Refermer la librairie 
Rt Lib Close 
Amos To Front