FasdUAS 1.101.10 k l PJ Reverse Phone Lookup, v060124 2006 Converge Networks  l  l   get input   l r n I 0trim_lt_whitespace n 1  ttxt l I .sysodlogaskrTEXT m Enter a phone number:  disp m  stic  btns J  !" !m# # Cancel"$ $m% %OK&'  dflt &m '(  dtxt (m ) ) f o 0 ph_num_orig*+ *l, ,s-. -o 0 ph_num_orig .o 0ph_num+/0 /l1 14.remove all dots or dashes, and any leading "1"023 2l74 4Z756 5E"78 7o 0ph_num 8m !9 9- 6r%3:; :n%1<= <I&1> 0 find_replace>?@ ?o&' 0ph_num@AB Am'*C C-BD Dm*-E E =f%& ;o 0ph_num3FG Fl8RH HZ8RIJ IE8=KL Ko89 0ph_num Lm9<M M. Jr@NNO Nn@LPQ PIALR 0 find_replaceRST SoAB 0ph_numTUV UmBEW W.VX XmEHY Y Qf@A Oo 0ph_numGZ[ ZlSn\ \ZSn]^ ]CSX_` _oST 0ph_num `mTWa a1 ^r[jbc bn[hde d7\hfg  ctxt fmbd gmeg eo[\ 0ph_num co 0ph_num[hi hlj j5/make sure it's a number, and the correct lengthikl klom mQonop nkrqqrs rcrwtu tors 0ph_num umsv  doubsv vZxwx w>xyz ynx}{| {1y}  leng |oxy 0ph_num zm} xR .ascrerr ******** oR .ascrerr ******** pk}}~ ~I .sysodlogaskrTEXT b b m Error: Did not understand  o 0 ph_num_orig m  as a phone number.  disp m  stic  btns J m OK  dflt m Ll l %split out parts of phone number l r n 7  ctxt m m o 0ph_num o 0 area_code l r n 7  ctxt m m o 0ph_num o 0 the_exchange l r n 7  ctxt m m o 0ph_num o 0 last_four l load web pages l I .GURLGURLnullTEXT b m +%http://www.google.com/search?hl=en&q= o 0ph_num l I .GURLGURLnullTEXT b b b b m ,&http://www.anywho.com/qry/wp_rl?c&npa= o 0 area_code m  &telephone= o 0 the_exchange o  0 last_four l. I. .GURLGURLnullTEXT b* b& b" b b m http://ypng.infospace.com/home/yellow-pages/redir.htm?searchtype=revphone&searchtype=all&fromform=psearch&QK=10&top=1&qcat=reverse&qsubcat=revphone&wqp=0&qpa= o 0 area_code m &qpx= o! 0 the_exchange m"% &qpp= o&) 0 last_four business l/J I/J .GURLGURLnullTEXT b/F b/B b/> b/: b/6 m/2 http://ypng.infospace.com/home/yellow-pages/redir.htm?searchtype=revphone&searchtype=all&fromform=psearch&QK=10&top=1&qcat=reverse&qsubcat=revphone&wqp=1&qpa= o25 0 area_code m69 &qpx= o:= 0 the_exchange m>A &qpp= oBE 0 last_four  residential l l l  -- HANDLERS l i I 0trim_lt_whitespace o~ ~0str l k r  J  m   o} } ret  I| { |.sysontocTEXTshor  mzz { y  1x x tab y ow w 0ws_chars   r    I vu v.sysoctonshorTEXT l t n  4s s cha mrr o q q0strtu op p 0ts_start  WQ k(L Z(3on E(+ o()m m 0ws_chars o)*l l0str S./on r4A!" !n4?#$ #75?k%& k ctxt %m9;jj &m<>ii $o45h h0str "og g0str 'f 'rBL() (IBJe*d e.sysoctonshorTEXT *lBF+c +nBF,- ,4CFb. b cha .mDEaa -oBC` `0strcd )o_ _ 0ts_startf F'/0 /l1^ 1?23 2o] ] 0ts_start 3m\\ ^ 0l"%4[ 4>"%56 5o"#Z Z 0ts_start 6m#$YY[78 7rR\9: 9IRZX;W X.sysoctonshorTEXT ;lRV =4SVU? U cha ?mTUTT >oRSS S0strVW :oR R 0ts_end8@A @W]BC BkmDDEF EZmxGHQP GEmpIJ IomnO O 0ws_chars JonoN N0str HSstQPFKL KryMN MnyOP O7zMQR M ctxt Qm~LL RmKK PoyzJ J0str NoI I0strLSH SrTU TIGVF G.sysoctonshorTEXT VlWE WnXY X4DZ D cha ZmCC YoB B0strEF UoA A 0ts_endH CFal[\ [lad]@ ]?ad^_ ^oab? ? 0ts_end _mbc>> @ \lgj`= `>gjab aogh< < 0ts_end bmhi;;=Acd cZef:9 eEgh go8 8 0ws_chars ho7 70str frij imk k jo6 60str:9dl5 lLm mo4 40str5 KE removes all leading and trailing whitespace from a string. --v060124no nl3232op1 piqr qI0s/ 00 find_replacestu to. . 0 orig_textuvw vo- - 0 word2findwx, xo+ +0 word2replace,/ rl-yz yk-{{|} |s~ ~n 1* * txdl 1) ) ascr o( (0 old_delims} r J ' o& & 0 word2find' n 1 % % txdl 1 $ $ ascr r n 2# # citm o" " 0 orig_text o! ! 0 temp_text r J o 0 word2replace n 1  txdl 1  ascr r$ c" n  2   citm o  0 temp_text m !  ctxt o  0new_text r%* o%& 0 old_delims n 1')  txdl 1&'  ascr L+- o+,  0new_text z>8v040529. usage: find_replace ("foo bar", "bar", "baz") 1 0trim_lt_whitespace 0 find_replace .aevtoappnull****  0trim_lt_whitespace   0str   0str  0ws_chars  0ts_start  0ts_endk  ret  .sysontocTEXTshor  tab   cha .sysoctonshorTEXT   bool  ctxt j vEOk/j EO8h &YhO[\[Zl\Zi2EOk/j E[OYOi/j EO8h &YhO[\[Zk\Z2EOi/j E[OYOEYhOr 0 find_replace 0 orig_text 0 word2find 0 word2replace 0 orig_text 0 word2find 0 word2replace 0 old_delims 0 temp_text 0new_text  ascr  txdl  citm  ctxt.,EQOkv,FO-EOkv,FO-&EO,FO .aevtoappnull**** kJ *2FZk1#%)9CEMWYa  disp  stic  btns  dflt  dtxt .sysodlogaskrTEXT  ttxt 0trim_lt_whitespace 0 ph_num_orig 0ph_num 0 find_replace  ctxt  doub  leng   stic 0 area_code 0 the_exchange 0 last_four .GURLGURLnullTEXTK)lvl ,k+ EOEQO)aam+EYhOa)aam+EYhOa[a\[Zl\Zi2EYhOa&Oa,a )jhYhW%Xa%a%aa kvka! OhO[a\[Zk\Zm2E`"O[a\[Za#\Za!2E`$O[a\[Za%\Za2E`&Oa'%j (Oa)_"%a*%_$%_&%j (Oa+_"%a,%_$%a-%_&%j (Oa._"%a/%_$%a0%_&%j (ascr ޭ