(defun stringtst (suspstr /)
  (setq suspstr "1\" W")
  (if (wcmatch suspstr "*\"*")
    (progn
      (setq dstepcnt 1)
      (while (and (wcmatch suspstr "*\"*")
		  (<= dstepcnt (strlen suspstr))
	     )
	(if (eq (substr suspstr dstepcnt 1) "\"")
	  (if (eq dstepcnt 1)
	    (setq suspstr (strcat "\\" suspstr))
	    (if	(eq dstepcnt (strlen suspstr))
	      (setq suspstr (strcat suspstr "\\"))
	      (setq suspstr  (strcat
			       (substr suspstr 1 (1- dstepcnt))
			       "\\"
			       (substr suspstr dstepcnt)
			     )
		    dstepcnt (1+ dstepcnt)
	      )
	    )
	  )
	)
	(setq dstepcnt (1+ dstepcnt))
      )
      (setq resultstr suspstr)
    )
  )
)