code:

---

 $drive="f"
 $share="\\darla\statements"

 IF InGroup (houbank)

       IF InGroup ("HOUBANK")
             ? "Mapping drive $Drive to $Share"
             USE "$Drive:" /delete
             USE "$Drive:" $share
             IF @error = 0
                   ? " Map Successful"
             ELSE
                   ? " Error mapping drive $Drive to $Share"
             ENDIF

             $drive="j"
             $share="\\darla\HOUBANK"

             IF InGroup ("HOUBANK")
                   ? "Mapping drive $Drive to $Share"
                   USE "$Drive:" /delete
                   USE "$Drive:" $share
                   IF @error = 0
                         ? " Map Successful"
                   ELSE
                         ? " Error mapping drive $Drive to $Share"
                   ENDIF

                   $drive="r"
                   $share="\\buckwheat\ri"

                   IF InGroup ("HOUBANK")
                         ? "Mapping drive $Drive to $Share"
                         USE "$Drive:" /delete
                         USE "$Drive:" $share
                         IF @error = 0
                               ? " Map Successful"
                         ELSE
                               ? " Error mapping drive $Drive to $Share"
                         ENDIF

                         $drive="f"
                         $share="\\darla\statements"

                         IF InGroup (accounting)

                               ; input time synchronization command
                               IF InGroup("accounting")
                                     ? "Mapping drive $Drive to $Share"
                                     USE "$Drive:" /delete
                                     USE "$Drive:" $share
                                     IF @error = 0
                                           ? " Map Successful"
                                     ELSE
                                           ? " Error mapping drive $Drive to $Share"
                                     ENDIF

                                     $drive="k"
                                     $share="\\darla\cos"

                                     IF InGroup("accounting")
                                           ? "Mapping drive $Drive to $Share"
                                           USE "$Drive:" /delete
                                           USE "$Drive:" $share
                                           IF @error = 0
                                                 ? " Map Successful"
                                           ELSE
                                                 ? " Error mapping drive $Drive to $Share"
                                           ENDIF

                                           $drive="l"
                                           $share="\\darla\data"

                                           IF InGroup("accounting")
                                                 ? "Mapping drive $Drive to $Share"
                                                 USE "$Drive:" /delete
                                                 USE "$Drive:" $share
                                                 IF @error = 0
                                                       ? " Map Successful"
                                                 ELSE
                                                       ? " Error mapping drive $Drive to $Share"
                                                 ENDIF

                                                 $drive="s"
                                                 $share="\\stymie\Program Files"

                                                 IF InGroup("accounting")
                                                       ? "Mapping drive $Drive to $Share"
                                                       USE "$Drive:" /delete
                                                       USE "$Drive:" $share
                                                       IF @error = 0
                                                             ? " Map Successful"
                                                       ELSE
                                                             ? " Error mapping drive $Drive to $Share"
                                                       ENDIF

;($begin)
;
;                       thu 05-dec-2002 01:17:51       (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP:      input=95 output=95 skip=0
;
;Warning     KIXSTRIP:    9 errors in block structure(s). missing statement(s).
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                   -ERROR- - if:else:endif            [16:7:7]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:   16 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:   14 USE
;
;($end)
;($begin)
;
;
;($end)

---