;!
Function m($)

 dim $a

 if $=0+$
  do
   $a = $ mod 20
   $m = trim(iif($a,left('.',$ mod 5 mod 2)+left('::',$ mod 5/2)+left('|||',$a/5),'-')+' '+$m)
   $  = $ / 20
  until $ = 0
 else
  $m=-1
  do
   $m=$m+1 
  until $=m($m)
EndFunction
;!