# ô > BLib.Phone 1.00 20-Apr-1995 : ,ô Display and store UK telephone numbers ,(ô ====================================== 2: O<ô FNPhone_ToStr - convert integer telephone number into fixed-length string OFô ------------------------------------------------------------------------- "9":A$=ÀA$,A%-1)+ÁA$,A%+1):A%=A%-1 *–A%=A%+1:ýA%>©A$:A$=Â"000000000"+A$,10) =»(Ã(2-»ÀA$,1))+ÁA$,2)) ª: R´ô FNPhone_ToStr - convert integer telephone number into formatted fixed string R¾ô ---------------------------------------------------------------------------- 4ÈÝ¤Phone_ToStrF(A%):êA$,B%,C%:A$=¤Phone_ToStr(A%) 2ÒB%=ÁA$,3,1)="1" „ ÁA$,4,1)="1":C%=ÁA$,2,1)="2" NÜ=ÀA$,5+(B%€¬C%)+2*C%)+" "+ÁA$,6+(B%€¬C%)+2*C%,3-C%)+"-"+ÁA$,9+(B%€¬C%)+C%) ÿÿ