# > BLib.Phone 1.13 15-Mar-2014 : , Display and store UK telephone numbers (, ====================================== 2: &FFFFF:B%7 Z9A%=A:A$="000000000"+A,10):="0"+(2-A$,1))+A$,2) d+|B%=A:="0"+~(B%?4)+"0000000"+~!B%,8) n: xF FNPhone_FromStr - convert string into five-byte telephone number F ---------------------------------------------------------------- 9ݤPhone_FromStr(A$):A%,B%:A%=1:B%-1:>&FFFFF:B%7 A:A$,A%,1)<"0"A$,A%,1)>"9":A$=A$,A%-1)+A$,A%+1):A%=A%-1 *A%=A%+1:A%>A$:A$="000000000"+A$,10) #A$<"3":=((2-A$,1))+A$,2)) -!B%=("&"+A$,3)):B%?4=("&"+A$,2)):=|B% : U FNPhone_ToStrF - convert five-byte telephone number into formatted fixed string U ------------------------------------------------------------------------------- 2ݤPhone_ToStrF(A):A$,B%,C%:A$=Phone_ToStr(A) ;B%=A$,3,1)="1"A$,4,1)="1"A$,2)>"2":C%=A$,2,1)="2" V=A$,5+(B%C%)+2*C%)+" "+A$,6+(B%C%)+2*C%,3-C%)+"-",B%C%)+A$,9+(B%C%)+C%)