$ô > BLib.PhoneG 1.00 20-Apr-1995 : ,ô Display and store UK telephone numbers (,ô ====================================== 2: "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)) ª: ´Sô FNPhone_ToStrF - convert integer telephone number into formatted fixed string ¾Sô ----------------------------------------------------------------------------- È4Ý¤Phone_ToStrF(A%):êA$,B%,C%:A$=¤Phone_ToStr(A%) Ò2B%=Á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%) ÿ