'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Rt Lib Open
'  -Rt Multifile Req 
'  -Rt Get Flist$
'  -Rt Get Dir$
'  -Rt Free Flist  
'  -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 
'Sauvegarde du 'PathAmos'
_DIR$=Dir$
'Appel au FileRequester
RR=Rt Multifile Req("Selectionnez des fichiers SVP...",_DIR$,2)
'
'Ok=1 / Cancel/Erreur/CloseGadget=0
If RR>=1
   Print "Bouton 'Ok' selectionné"
   Print RR;" Fichier selectionné..."
   For T=1 To RR
      Print "Fichier";T;":";Rt Get Flist$(T)
   Next T
Else 
   Print "Bouton 'Cancel' selectionné"
End If 
'Replacer le 'PathAmos'
Dir$=Rt Get Dir$
Print 
Print "Directory '";Dir$;"'"
'Liberer la FList
Rt Free Flist 
'Refermer la librairie 
Rt Lib Close 
Amos To Front 
Wait Key