[b]=============
Inputs & Outputs
=============[/b]

Input: A packet containing 1 to 255 characters

break on
$=-1
($|) ?
($>)
get $

break on
$="-1"
($|) ?
($^)
get $

Break on
$=-1
($|) ?
($^)
Get $

-1
-1

function a($)
    if $
        $a = a(left($,~)) + ($^) * (asc(right($,1))-64) * (trim($)=$)
endfunction

* (trim($)=$)

        $a = a(left($,~)) + ($^) * (asc(right($,1))-64) * (rtrim($)=$)

function a($)
    if $
        $a=right($,1)
        $a = a(left($,~)) + ($^) * (asc($a)-64) * ($a>!)
endfunction