IF LEN(COMMAND$) THEN
   IF RIGHT$(COMMAND$, 1) = "\" OR RIGHT$(COMMAND$, 1) = ":" THEN
      TempDir$ = COMMAND$
   ELSE
      TempDir$ = COMMAND$ + "\"
   END IF
END IF
OPEN TempDir$ + "TempDir.Bat" FOR OUTPUT AS #1
   PRINT #1, "@Echo Off"
   PRINT #1, "Set CURRDIR=" + CURDIR$
CLOSE #1