Function m($a)
 
     $l=0,5,2,1,0
     $v="|",":",".","-"
     $n = 1
     If AScan($v,Left($a,1))=-1
          Do $ = $a Mod ($n*20)
               $a = $a - $
               $ = $ / $n
               $n = $n * 20
               If $
                    For $q = 1 to 3
                         While $ / $l[$q]
                              $m=$v[$q-1]+$m
                              $=$-$l[$q]
                         Loop
                    Next
               Else
                    $m="-"+$m
               EndIf
               $m=" "+$m
          Until $a=0
          $m=Trim($m)
     Else
          $a = " "+$a
          While $a
               $c=Right($a,1)
               $=IIf($c=" ",-$,$+$l[AScan($v,$c)+1])
               $a=Left($a,~)
               If $<0 Or $c="-"
                    $m = $m - $n * $
                    $n = $n * 20
                    $=0
               ;EndIf
          ;Next
     ;EndIf
 
EndFunction