(defun c:server ()
  (setq svrnm (getenv "SVR"))
  (if dos_win
    nil
    (arxload "doslib14")
  ) ;_ end of if
  (if (eq (dos_win) "WINNT")
    (progn
      (command ".sh"
	       (strcat "NET USE "
		       (substr (getvar "dwgprefix") 1 2)
		       " > c:\fserv.dat"
	       ) ;_ end of strcat
      ) ;_ end of command
      (setq fs_fil (open "c:\fserv.dat" "r"))
      (read-line fs_fil)		;Local name
      (if (eq (read-char fs_fil) 82)	;"R"emote name
	(progn
	  (read-char fs_fil)		;e
	  (read-char fs_fil)		;m
	  (read-char fs_fil)		;o
	  (read-char fs_fil)		;t
	  (read-char fs_fil)		;e
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;n
	  (read-char fs_fil)		;a
	  (read-char fs_fil)		;m
	  (read-char fs_fil)		;e
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (setq fs_chr (chr (read-char fs_fil)))
	  (setq fs_str nil)
	  (while (and (/= fs_chr " ")
		      (/= fs_chr "%")
		      (/= fs_chr "\r")
		      (/= fs_chr "\n")
		      (/= fs_chr "\t")
		 ) ;_ end of and
	    (if	fs_str
	      (setq fs_str (strcat fs_str fs_chr))
	      (setq fs_str fs_chr)
	    ) ;_ end of if
	    (setq fs_chr (chr (read-char fs_fil)))
	  ) ;_ end of while
	) ;_ end of progn
	(setq fs_str (strcat mach "-LOCAL"))
      ) ;_ end of if
    ) ;_ end of progn
    (progn
      (command ".sh"
	       (strcat "USE "
		       (substr (getvar "dwgprefix") 1 2)
		       " /save fserv.dat"
	       ) ;_ end of strcat
      ) ;_ end of command
      (setq fs_fil (open "fserv.dat" "r"))
      (read-line fs_fil)		;U
      (if (read-char fs_fil)		;S
	(progn
	  (read-char fs_fil)		;E
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;n
	  (read-char fs_fil)		;:
	  (read-char fs_fil)		;
	  (read-char fs_fil)		;
	  (setq fs_chr (chr (read-char fs_fil)))
	  (setq fs_str nil)
	  (while (and (/= fs_chr " ")
		      (/= fs_chr "%")
		      (/= fs_chr "\r")
		      (/= fs_chr "\n")
		      (/= fs_chr "\t")
		 ) ;_ end of and
	    (if	fs_str
	      (setq fs_str (strcat fs_str fs_chr))
	      (setq fs_str fs_chr)
	    ) ;_ end of if
	    (setq fs_chr (chr (read-char fs_fil)))
	  ) ;_ end of while
	) ;_ end of progn
	(setq fs_str (strcat mach "-LOCAL"))
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
  (close fs_fil)
)