home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / CURDIR.PRG < prev    next >
Text File  |  1990-10-22  |  648b  |  27 lines
  1. ***********
  2. * CURDIR.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO CURDIR WITH <drive letter>/<null> 
  7. * RETURN: <expC> current directory of specified drive, 
  8. *         or of default drive if optional <drive letter> is ommited
  9. ***********
  10. PARAMETERS par1 
  11. * Optional parameter
  12. IF [] = par1
  13.    CALL Trexe  WITH "CURDRIVE"
  14.    CALL Trpass WITH tr_retc
  15. ELSE
  16.    CALL Trpass WITH par1
  17. ENDIF
  18. CALL Trexe WITH "CURDIR"
  19. CALL Trexe   WITH "TRRETCLEN"
  20. IF fox
  21.    PRIVATE tr_temp
  22.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  23.    RETURN (tr_temp)
  24. ENDIF
  25. * eof curdir *
  26.  
  27.