code:

---

 BREAK ON 
 CLS
 SETTIME "\\amt-fs1"

 USE "*" /delete

 IF INGROUP("AMT Phone Router")
       ? "Mapping AMT Phone Router Drive"
       USE G: "\\amt_phone\c"
 ENDIF

 IF INGROUP("AMT Design")
       ? "Mapping AMT Design Drive"
       USE H: "\\amt-irix-srv\design$$"
 ENDIF

 IF INGROUP("AMT Payables")
       ? "Mapping AMT Payables Drive"
       USE L: "\\Amt-fs1\payables6$$"
 ENDIF

 IF INGROUP("AMT Project Database")
       ? "Mapping AMT Project Database Drive"
       USE M: "\\Amt-fs1\PROJDB2$$"
 ENDIF

 IF INGROUP("AMT Executive Staff")
       ? "Mapping AMT Executive Staff Drive"
       USE N: "\\Amt-fs1\MANAGE$$"
 ENDIF

 IF INGROUP("AMT Paint")
       ? "Mapping AMT Paint Drive"
       USE R: "\\amt-irix-srv\amtpaint"
 ENDIF

 IF INGROUP("AMT Special")
       ? "Mapping AMT Special Drive"
       USE S: "\\amt-irix-srv\amtsim"
 ENDIF

 IF INGROUP("AMT SALES")
       ? "Mapping AMT Sales Drive"
       USE T: "\\Amt-fs1\SALE4$$"
 ENDIF

 IF INGROUP("AMT Systems")
       ? "Mapping AMT Systems Drive"
       USE X: "\\amt-irix-srv\systems$$"
 ENDIF

 IF INGROUP("Track IT")
       ? "Mapping AMT Track IT Drive"
       USE Y: "\\Amt-fs1\tiw4std"
 ENDIF

 IF INGROUP("AMT General Admin","AMT SALES")
       ? "Mapping AMT General Admin Drives"
       USE J: "\\Amt-fs1\PADMIN3$$"
       USE K: "\\Amt-fs1\ADMIN1$$"
 ENDIF

 IF INGROUP("AMT Group Leaders")
       ? "Mapping AMT Group Leaders Drives"
       USE M: "\\Amt-fs1\PROJDB2$$"
       USE N: "\\Amt-fs1\MANAGE$$"
 ENDIF

 IF INGROUP("AMT Human Resources")
       ? "Mapping AMT Human Resources Drives"
       USE I: "\\Amt-fs1\HR5$$"
       USE R: "\\Amt-fs1\RECRUITING$$"
 ENDIF

 ? "Mapping General Drives"
 USE P: "\\AMT-FS1\PUB"
 USE Q: "\\INTRANET\QUALITY"
 IF @homeshr <> ""
       USE U: @homeshr
 ENDIF

 EXIT

---