• "let $hl = $hl + 1" is the right way of assigning. correct will be "$hl = $hl + 1".
  LET is an undefined element which will abort your script.
• specify InGroup("Accounting") <> 0 instead of InGroup("Accounting").
  our version will work for kixtart releases.
• specifies 'line style' in your BOX function call as string.
  BOX (0,0,24,79,"GRID") ; 'background grid'
  BOX (3,7,6,76,"�") ; 'shadow' of the box
  BOX (2,6,5,75,"FULL")
  BOX (8,23,18,61,"�") ; 'shadow' of the box
  BOX (7,22,17,60,FULL)
• keep your SLEEP time low. everybody can read information with 3-5 seconds.
• we replace USE L: \\PDC\PUBLIC with USE L: "\\PDC\PUBLIC"

code:

---

 ; Login Script for [customer]
 ; Written by [me]
 ; April 2002
 ;
 ; This script contains portions of public domain scripts (Thanks!)

 ; Banners
 ; This informs the user about the use of workstations
 ;
 CLS
 SMALL
 COLOR b+/n
 BOX (0,0,24,79,"GRID") ; 'background grid'
 COLOR b/n
 BOX (3,7,6,76,"�") ; 'shadow' of the box
 COLOR g+/n
 BOX (2,6,5,75,"FULL")
 COLOR b/n
 BOX (8,23,18,61,"�") ; 'shadow' of the box
 COLOR g+/n
 BOX (7,22,17,60,"FULL")

 COLOR w+/n
 AT (3, 13) "This machine is for [company] business use ONLY!"
 AT (4, 10) "Do not Load, Install or Open files unless specifically needed!"

 COLOR c+/n
 AT ( 9,25) "You're Login Credentials are: "
 COLOR w+/n
 AT (11,25) "Userid : " ; display some text strings
 AT (12,25) "Full name : "
 AT (13,25) "Privilege : "
 AT (14,25) "Workstation : "
 AT (15,25) "Domain : "
 AT (16,25) "Logon Server : "

 COLOR y+/n
 AT (11,40) @userid ; ...and some macro's
 AT (12,40) @fullname
 AT (13,40) @priv
 AT (14,40) @wksta
 AT (15,40) @domain
 AT (16,40) @lserver
 SLEEP 5

 ; Mappings
 ; This maps server shares based on user credentials

 CLS
 COLOR b+/n
 AT (1, 5) "*************************************************************"
 AT (2, 5) "** **"
 AT (3, 5) "*************************************************************"
 COLOR w+/n
 AT (2, 8) "Never save an important file to the local drive!! (C:\)"
 COLOR w/n
 AT (4, 5) "Only files saved to the network are backed up! (K: or higher)"
 COLOR c+/n
 AT (24, 5)
 AT (6, 10) "You're drive mappings are being established..."

 COLOR w/n
 AT (8, 10) "Clearing old maps ... "
 USE "*" /delete
 COLOR w+/n
 AT (8, 32) "Done!"
 COLOR w/n
 AT (9, 10) "Private share:"
 USE K: @homeshr
 COLOR w+/n
 AT (9, 40) "K:\"
 COLOR w/n
 AT (10, 10) "Public share:"
 USE L: "\\PDC\PUBLIC"
 COLOR w+/n
 AT (10, 40) "L:\"

 ; Mapping Department Shares
 $hl = 10
 IF InGroup("Accounting") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Accounting Department share:"
       USE M: "\\PDC\ACCOUNTING"
       COLOR w+/n
       AT ($hl, 40) "M:\"
 ENDIF
 IF InGroup("Administrators") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Administrators share:"
       USE N: "\\PDC\ADMINS"
       COLOR w+/n
       AT ($hl, 40) "N:\"
 ENDIF
 IF InGroup("Management") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Management share:"
       USE O: "\\PDC\MANAGEMENT"
       COLOR w+/n
       AT ($hl, 40) "O:\"
 ENDIF
 IF InGroup("Parts") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Parts Department share:"
       USE P: "\\PDC\PARTS"
       COLOR w+/n
       AT ($hl, 40) "P:\"
 ENDIF
 IF InGroup("Payroll") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Payroll Department share:"
       USE Q: "\\PDC\PAYROLL"
       COLOR w+/n
       AT ($hl, 40) "Q:\"
 ENDIF
 IF InGroup("Sales") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Sales Department share:"
       USE R: "\\PDC\SALES"
       COLOR w+/n
       AT ($hl, 40) "R:\"
 ENDIF
 IF InGroup("Services") <> 0
       $hl = $hl + 1
       COLOR w/n
       AT ($hl, 10) "Service Department share:"
       USE S: "\\PDC\SERVICE"
       COLOR w+/n
       AT ($hl, 40) "S:\"
 ENDIF
 SLEEP 5
 CLS

 ; Misc
 ; Various little things I want to do
 ; Not used yet
 ;
 ; Set a common time. See MS Q131715 for info.
 ;AT (2, 10) "Synch'ing Time with the server ...
 ; SETTIME \\PDC
 ;AT (2, 45) "Done!"
 SLEEP 5

 EXIT

---

code:

---

   Warnings about unknown keywords

   b                                ?       12     14     18     50
   c                                ?       27     58
   full                             ?       17     21
   g                                ?       16     20
   grid                             ?       13
   k:                               ?       69
   l:                               ?       74
   let                              ?       81     89     97    105    113    121    129
   m:                               ?       84
   n                                ?       12     14     16     18     20     23     27     29     37     50     54     56     58     62     65
                                            67     70     72     75     82     85     90     93     98    101    106    109    114    117    122
                                           125    130    133
   n:                               ?       92
   o:                               ?      100
   p:                               ?      108
   pdc\public                       ?       74
   q:                               ?      116
   r:                               ?      124
   s:                               ?      132
   w                                ?       23     29     54     56     62     65     67     70     72     75     82     85     90     93     98
                                           101    106    109    114    117    122    125    130    133
   y                                ?       37



   Summary - kixtart 4.10/3.04e

   boldsymbols                      0
   commands                         9
   functions                        3
   labels                           0
   macros                           7
   variables                        1

   env                              0
   udf                              0
   ?                               19

   gosub                            0
   goto                             0

                                   39


   Block Structure

   do:until                          [0:0]
   for|each:in|to:step|next          [0|0:0|0:0|0]
   function:endfunction              [0:0]
   if:else:endif                     [7:0:7]
   select:case:endselect             [0:0:0]
   while:loop                        [0:0]

                                     7 blocks

---

most warnings has to deal the color settings, but LET, FULL, GRID and PDC\PUBLIC
should be modified or removed.
greetings.

btw: symbol on our homepage has been linked to related http://kixtart.org topic.