FUNCTION FileReq$(PATH$,TIT$,PATRN$)
 LOCAL f%,a$
 CALL Command("C:RequestFile "+PATH$+" TITLE "+CHR$(34)+TIT$+CHR$(34)+" ACCEPTPATTERN "+PATRN$+" >T:Rq")
 a$=""
 IF FEXISTS("T:Rq")
  f%=FREEFILE
  OPEN "T:Rq" FOR INPUT AS f%
  a$=INPUT$(LOF(f%),f%)
  CLOSE f%
  KILL "T:Rq"
  a$=MID$(a$,2)
  a$=Cut$(a$)
  a$=LEFT$(a$,LEN(a$)-1)
  IF FEXISTS(a$)=0 THEN a$=""
 END IF
 FileReq$=a$
END FUNCTION