'
 ' Fsellib  (C)1993 Bernd Schieferdecker
 '
 ' DATEIAUSWAHLBOX VERWALTEN
 '
 ' Pf$    Pfad
 ' Ex$    Extension
 ' Na$    Dateiname
 ' Info$  Infozeile
 ' Ret    =1 OK  =0 ABBRUCH
 '
 DEF PROC Fsel(R Pf$,R Ex$,R Na$,Info$,R Ret%L)
   LOCAL Pf2$=Pf$,Ex2$=Ex$,Na2$=Na$,P%L,D%,L%L,X%L=157,Y%L=53,B%L=330,H%L=353: IF Ex$="" THEN Ex$="*.*"
   IF Pf$="" THEN Pf$=FN Pfad$+Ext$ ELSE Pf$= LEFT$(Pf$,FN Backl%L(Pf$))+Ex$
   Form_Dial(0,X%L,Y%L,B%L,H%L): MOUSEON :Fsel_Exinput(Pf$,Na$,Info$,Ret%L): MOUSEOFF :Form_Dial(3,X%L,Y%L,B%L,H%L)
   IF Ret%L=1 THEN :L%L=FN Backl%L(Pf$):Ex$= RIGHT$(Pf$, LEN(Pf$)-L%L):Pf$= LEFT$(Pf$,L%L)
   ELSE :Pf$=Pf2$:Ex$=Ex2$:Na$=Na2$
   ENDIF : END_PROC
 ' aktuellen Pfad ermitteln
 DEF FN Pfad$
   Pf$=" "*64:P%L= LPEEK( VARPTR(Pf$))+ LPEEK( SEGPTR +28): GEMDOS (,71, HIGH(P%L), LOW(P%L),0)
   GEMDOS (D%,25): RETURN CHR$(65+D%)+":"+ LEFT$(Pf$, INSTR(Pf$+ CHR$(0), CHR$(0))-1)+"\"
 ' letzten \ suchen
 DEF FN Backl%L(Pf$)
   LOCAL L%L= LEN(Pf$): WHILE L%L>0 AND MID$(Pf$,L%L,1)<>"\":L%L=L%L-1: WEND : RETURN L%L
 '