(*---------------------------------------------------------------------------
    :Program.     ARPFileReq.def
    :Contents.	  Simple Benutzung des ARP Filerequesters
    :Author.      Bernd Preusing
    :Address.	  Gerhardstr. 16  D-2200 Elmshorn
    :Phone.	  04121/22486
    :Copyright.	  Public Domain
    :Language.	  Modula-2
    :Translator.  M2Amiga V4.0d
    :History.	  V1.0 09-Oct-89 Bernd Preusing
    :History.	  V1.0.1 [Frank Lömker] 13-Aug-91 M2A 4.0, Arp 1.3,
    :History.	                                  Parameter x,y
---------------------------------------------------------------------------*)
DEFINITION MODULE ARPFileReq;

FROM SYSTEM	IMPORT	ADDRESS;

PROCEDURE FileReq(VAR FName:ARRAY OF CHAR; Window:ADDRESS; Title:ARRAY OF CHAR;
		 x,y:INTEGER; flag:BOOLEAN):	BOOLEAN;
(* :Input.	FName: Vorgabe des kompletten Namens mit Pfad
   :Input.	Window: Das Fenster, in dem der Requester erscheinen soll
   :Input.	Title: Meldung für Fensterkopf, z.B. 'Laden'
   :Input.	x,y: Koordinaten des Requesters, bei <0 default
   :Input.	flag: TRUE oder FALSE ergeben verschiedene Farben des Requesters
   :Result.	TRUE: FName ist gültig und wurde angewählt.
   :Result.	FALSE: Es wurde CANCEL oder Window-Close angewählt
   :Semantic.	Es wird ein ARP-FileRequester geöffnet.
*)
END ARPFileReq.def