home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / LASTDRIV.PRG < prev    next >
Text File  |  1990-10-22  |  427b  |  18 lines
  1. ***********
  2. * LASTDRIV.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 LASTDRIV 
  7. * RETURN: <expC> letter of drive specified on LASTDRIVE= line in config.sys
  8. ***********
  9. CALL Trexe WITH "LASTDRIVE"
  10. CALL Trexe   WITH "TRRETCLEN"
  11. IF fox
  12.    PRIVATE tr_temp
  13.    tr_temp = SUBSTR(tr_retc,1,tr_retn)
  14.    RETURN (tr_temp)
  15. ENDIF
  16. * eof lastdriv *
  17.  
  18.