Here is an example of how to clean this up, and make it much easier to read.

 Code:
select
  ;library
  case instr(@wksta,"lib-") or instr(@wksta,"mmc-") or instr(@wksta,"tsc-") or instr(@wksta,"libLoft-")
    $Printername="LIBRARY-PHOTOCOPIER"
    $SharedPrinter="\\ALPHA\LIBRARY"
  ;E5
  case instr(@wksta,"E5-")
    $Printername="E5"
    $SharedPrinter="\\ALPHA\E5"    
  ;next case
  case
  

endselect
$RC=ADDPRINTERCONNECTION($sharedPrinter)
$RC=SETDEFAULTPRINTER ($sharedprinter)
$RC=MESSAGEBOX ("Your Default Printer it set to " + $printername + " - Please save your work regularly","DEFAULT PRINTER",0,5)


Just copy/paste a case and make the appropriate changes.