([0 +8+fq(+4)[1 0fo10f"g+q1' +fq()+4u1 fq1"l 0' ,q1:m(q1+4(]1]0))Yh9 D[isz & Setup XHOST LibraryCanonicalize Hosts~DIRECTORY~~DOC~ & Setup XHOST Library~DOC~ Canonicalize Hosts~DOC~ ~FILENAME~~FILENAME~~INVERT~XHOST.[0[1[9 [..d 0fo..qHost Name ..Df"Nu..d' "#w :g..du..d q..dm.vHost Name ..D -1u1 128<%1*5:f..d > A-1u1 26<%1*5:f..dA q1*5+160:f..dA> 0-1u1 10<%1*5:f..dA> 0m(m.m& Alter ..D)-A.A' bj :s"E :ftRun :XHOST m(m.m& Yes or No):"L q0j 0u..h ' fsmodif"N ftSave buffer first m(m.m& Yes or No)"L m(m.m^R Save File)'' qBuffer Filenamesu1 ftThis might take a while, go make yourself a cup of tea while you wait...  :XHOST 1 $P q1f[dfile er XHOST hk @y f]dfile 0u..h @v' 10f[%center [..j :i..j Replace host name?  -1[4[5 bj !nxt! :s"E 0' !cmd! 0@v @fi:fcu9 q9-32"E -fwfx5 .u4 0f onxt' q9-E r fwfx5 .u4 0f onxt' q9-f.L"E f+ ocmd' q9-N"E onxt' q9-U"E q4"L @ft Nothing to undo?  ocmd' "# q4j g5 q4,.f q4j -1u4 onxt'' q9-f.R"E -1u4  0l onxt' q9-Q"E 0' q9-?"E m(m.mDescribe)Canonicalize Hosts ft--Type space to flush-- :fi-32"E fi' 0u..h @v ocmd' q9fsrereadw 00fo..qXHOST Setup Hookf"n[0m0w'Teco half of XHOST: Canonicalize HoststC Canonicalize the host names in a mailing list file. Offers to run :XHOST first if necessary, and then read the XHOST file into the current buffer. Then enters a Query Replace type loop. Commands are: Space - Replace old host name with new. Rubout - Leave old host name as it is. N - Nothing. Leave both host names in buffer. U - Undo last change. C-L - Redisplay. C-R - Enter recursive ^R mode. Q - Quits. ? - Self documentation. Other characters exit and are re-read.S IVORY-Generated Setup -- Calls hook. This object file was compressed on 9:43pm Tuesday, 17 February 1987 by ALAN on AI from the following source libraries: DSK: ALAN; XHOSTM 17, 02/17/87 21:43:30Canonicalize Hosts & Setup XHOST Library +8+fq(+4)[2 0[3 < %3,-q2f2u3 q3&1@; q3"l 0' > f[BBind q3-1*5,q3*5g2 q:..o(0)+q2