256

Code:

Function m($)
dim $y,$r,$c
$y=split("- . : .: :: | .| :| .:| ::| || .|| :|| .:|| ::|| ||| .||| :||| .:||| ::|||")
if $+0=$
do
$r=$ mod 20
$m=" "+$y[$r]+$m
$=$/20
until $=0
$m=trim($m)
else
$c=split($)
$=ubound($c)
$r=1
while $>=0
$m=$m+ascan($y,$c[$])*$r
$=$-1
$r=$r*20
; loop
; endif
EndFunction