home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1879 / dirs.com < prev    next >
Text File  |  1990-12-28  |  211b  |  6 lines
  1. $! dirs.com - print directory stack (current directory bold)
  2. $
  3. $ if f$type(dir_stack) .eqs. "" then dir_stack :== ""
  4. $ esc[0,8] = %D27
  5. $ write sys$output esc,"[1m",f$environment("default"),esc,"[22m ",dir_stack
  6.