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