Okay, got an improvement for Howard's code:

code:
KiXtart Golf Score
Tournament          = KiXtart Golf: MOAN - Mother Of All Networks
Processing Start    = 2003/05/31 16:19:10.920
Processing End      = 2003/05/31 16:19:10.990
Duration            = 0000/00/00 00:00:00.069
# Loops             = 1
KiXGolf Result      = passed (9 out of 9 correct)
KiXGolf Score       = 771
with the following code:
code:
; begin MOAN
;
;!
Function moan($a,$b,$c)
    Dim $,$e,$f,$g,$m[32],$d

    ; Convert all input data to numeric array elements.
    ; The array is 12 elements each element is value (0-255).
    ;'$' hold the input data and later is the array version of the input data

    $d="."

    ;Build Subnet Mask ARARRY
    $f=0,128,192,224,240,248,252,254,255
    for $e=8 to 31
        $=$e
        for $g=1 to 4
            $m[$e]=$m[$e]+iif($/8,"255",$f[$ mod 8])+iif($g<4,$d,"")
            $=iif($>8,$-8,0)
        next
        if $e=$c $c=$m[$e] endif
    next
    ;End build mask array


    ;build array of input values by splitting a string. Then convert to integers
    ;IPaddr = $[0..3]   NetID = $[4..7]   Mask = $[8..11]
    $="..."
    $=split(IIF($a,$a,$)+$d+IIF($b,$b,$)+$d+iif($c,$c,$),$d)
    for $e=0 to 11
        $[$e]=0+$[$e]
    next
    ;End build array

    ;if $a and $c
    if $a & $c   ;Output: Network ID or empty string if no match

        ;Calculate NetworkID using $ array
        $e=""
        for $c=0 to 3
            $e=$e+$d+($[$c] & $[$c+8])
        next
        $=substr($e,2)

        if join(split($a),"")=$
            $=""
        endif


        ;Output: 1 if the IP is a member of a nework defined by network ID and subnet mask, otherwise 0
        ;Input NetworkID = Calculated NetworkID
        if $b
            $=IIF(join(split($b),"")=$,1,0)
        endif
    else

        ;Output: Array of all potential subnet masks or empty string if no match
        ; if $a and $b
        if $a & $b
            $a=""
            for $f=8 to 31
                $b=1
                for $e=0 to 3
                    $b=$b & $[$e+4]=($[$e] & 0+split($m[$f],$d)[$e])
                next
                if $b
                    $a=$a+" /"+$f
                endif
            next

        else
           ;Output: Array of all potential IP addresses or empty string if no match
            $a=""
            for $b=$[4] to $[4] + 255 - $[8]
                for $c=$[5] to $[5] + 255 - $[9]
                    for $e=$[6] to $[6] + 255 - $[10]
                        for $f=$[7]+1 to $[7] + 254 - $[11]
                            $a = $a+" "+$b+$d+$c+$d+$e+$d+$f
                        next
                    next
                next
            next
        endif
            $=IIF($a,split(substr($a,2)),"")
    endif
$moan=$
EndFunction
;!
;!
; end MOAN


[ 31. May 2003, 22:13: Message edited by: sealeopard ]
_________________________
There are two types of vessels, submarines and targets.