Includes different ways to branch.
code:
$LaptopID='LTS'
$PCID='PCS'
select
case left(@WKSTA,len($LaptopID))=$LaptopID
  ;  it's a laptop
  call laptop.kix
  gosub laptopscript
  $laptop=1
  $pc=0
case left(@WKSTA,len($PCID))=$PCID
  ; it's a PC
  call pc.kix
  gosub pcscript
  $laptop=0
  $pc=1
case 1
  ; it's soemthing else
endselect
_________________________
There are two types of vessels, submarines and targets.