Function a($)
 $array = '{', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', '}', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R'
 If $ < 0 $a = 10 EndIf
 $ = Abs($)
 ? Left($, Len($)  - 1) + $array[$a + Right($, 1)]
EndFunction