This is better for the SELECT part:
code:
If $SBNM
  Select 
  Case $SBNM='255.255.255.0' 
    $NDG=$IPSUBN + '252' 
    $NDG1=$IPSUBN + '251'
  Case $SBNM='255.255.255.128'
    Select
    Case $Octet<=126
      $NDG=$IPSUBN + '124' 
      $NDG1=$IPSUBN + '123'
    Case $Octet<=254
      $NDG=$IPSUBN + '251' 
      $NDG1=$IPSUBN + '252' 
    EndSelect
  Case $SBNM='255.255.255.192'
    Select
    Case $Octet<=62
      $NDG=$IPSUBN + '60'
      $NDG1=$IPSUBN + '59'
    Case $Octet<=126 
      $NDG=$IPSUBN + '124' 
      $NDG1=$IPSUBN + '123'
    Case $Octet<=190 
      $NDG=$IPSUBN + '188'
      $NDG1=$IPSUBN + '187'
    Case $Octet<=254
      $NDG=$IPSUBN + '251'
      $NDG1=$IPSUBN + '252'
    EndSelect
  Case $SBNM='255.255.255.224'
    ; nothing
  EndSelect
Endif
_________________________
There are two types of vessels, submarines and targets.