This should be enough to get you going.

$DRIVE="N:" $PATH="\\APPSERV\APPS" gosub MapDrive
$DRIVE="P:" $PATH="\\PERSONAL\@USERID$$" gosub MapDrive
$DRIVE="S:" $PATH="\\SOFTWARE\SOFTWARE" gosub MapDrive
quit

:MapDrive
? "Mapping $DRIVE to $PATH"
use $DRIVE /delete
use $DRIVE $PATH
if @ERROR=0
" - Success"
else
color r+/n " - Failed @ERROR" color w+/n $ERR=@ERROR
if open(1,"c:\loginerr.log",5)=0
$RC=writeline(1,"@TIME @DATE Mapping $DRIVE to $PATH failed $ERR. @WKSTA @IPADDRESS0 WIN@INWIN @USERID"+$CRLF)
$RC=close(1)
endif
endif
return