@echo off
if exist %1:ws.exe goto defpth
echo Usage: DEFPTH d
echo Where: 'd' is the current drive letter (where WS.EXE is located)
goto end
:defpth
echo UDATE=0C,1F,5B>defpth.pat
echo 0*23+1+DEFPTH='%1'>>defpth.pat
echo 1*23+1+DEFPTH='%1'>>defpth.pat
echo 2*23+1+DEFPTH='%1'>>defpth.pat
echo 3*23+1+DEFPTH='%1'>>defpth.pat
echo 4*23+1+DEFPTH='%1'>>defpth.pat
echo 5*23+1+DEFPTH='%1'>>defpth.pat
echo 6*23+1+DEFPTH='%1'>>defpth.pat
echo 7*23+1+DEFPTH='%1'>>defpth.pat
echo 8*23+1+DEFPTH='%1'>>defpth.pat
echo 9*23+1+DEFPTH='%1'>>defpth.pat
echo A*23+1+DEFPTH='%1'>>defpth.pat
echo B*23+1+DEFPTH='%1'>>defpth.pat
echo C*23+1+DEFPTH='%1'>>defpth.pat
echo D*23+1+DEFPTH='%1'>>defpth.pat
echo E*23+1+DEFPTH='%1'>>defpth.pat
echo F*23+1+DEFPTH='%1'>>defpth.pat
wschange ws /gdefpth.pat
del defpth.pat
echo Finished! WordStar paths now use drive %1.
:end