home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASUTIL1.ZIP / DSNAME.P < prev    next >
Encoding:
Text File  |  1985-12-28  |  681 b   |  33 lines
  1. PROCEDURE GET_DSNAME (VAR S: STRING; VAR L: LSTRING) ;
  2.  
  3. VAR 
  4.     IEF,
  5.     IEC,
  6.     IED,
  7.     IFB,
  8.     IRA,
  9.     I,
  10.     K,
  11.     J    : INTEGER ;
  12. BEGIN
  13.    J := UPPER(L);
  14.    K := ORD(L.LEN) ;
  15.    I := UPPER(S) ;
  16.  
  17.    IF K < 2 THEN
  18.      BEGIN
  19.        IEF := INDEX(L,' ');
  20.        {STRING LENGTH GT 0 AND INDEX := 0 MEANS LAST WORD}
  21.        IF IEF = 0 THEN 
  22.           MOVEL(ADR L[1],ADR S[1],WRD(K)
  23.        ELSE 
  24.           BEGIN
  25.           IEF := ief - 1 ;
  26.           MOVEL(ADR L[1],ADR S[1],WRD(IEF)) ;
  27.           IEC := K - IEF ;
  28.           IEC := IEC - 1;
  29.           {TRUNCATE STRING HERE }
  30.           END; {BEGIN IEF<> 0 }
  31.      END; {BEGIN K<2}
  32. END; {GET_DSNAME}
  33.