'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Rt Lib Open
'  -Rt Text Req
'  -Rt Lib Close 
'  
Screen Open 0,640,256,2,$8000
Curs Off : Flash Off : Cls 0
Colour 1,$FFF : Print 
'
Amos To Back 
'Ouverture de la reqTools.library
E=Rt Lib Open
'Ouverture impossible
If E=0 Then End 
'
B=Rt Text Req("Bonjour, comment pensez-vous"+Chr$(10)+"que je m'appele ?."," Lucien | Bernadette | Emilie | Etienne | ??? ","La question du mois...",4,2)
'
If B=1 Then T$="e Lucien..."
If B=2 Then T$="e Bernadette..."
If B=3 Then T$="'Emilie..."
If B=4 Then T$="'Etienne..."
If B=0 Then Print "Vous ne savez pas ?..." : Goto PPP
Print "Vous pensez que j'ai une tete d";T$
'
PPP:
'Refermer la librairie 
Rt Lib Close 
Amos To Front 
Wait Key