N

 BBS: Inland Empire Archive
Date: 07-30-92 (00:42)             Number: 128
From: RICH GELDREICH               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: N                              Conf: (2) Quik_Bas
Here are some fast, modifed LZW routines which I have been working on
for months now on & off. They aren't as quick as my Huffman routines,
but they aren't that slow either.
DEFINT A-Z:S=243:FOR A=0 TO 6:P(A)=2^A:NEXT:OPEN "B",1,"c1.lzh"
T$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()"
B$=" ":Ln=CSRLIN:I=1:FOR A=1 TO 6482:LOCATE Ln,1:PRINT (100&*A)\6482;
? "% done";:IF L=0 THEN GOSUB G:L=6:W=T\P(6-L) ELSE W=T\P(6-L)
DO WHILE L<8:GOSUB G:W=W OR T*P(L):L=L+6:LOOP:L=L-8:B$=CHR$(W AND 255)
PUT #1,,B$:NEXT:?:IF C<>S THEN ? "Bad checksum!":BEEP:END ELSE END
G:IF I>LEN(W$) THEN READ W$:I=1
T=INSTR(T$,MID$(W$,I,1))-1:C=(C+T)*2:C=C\256+(C AND 255):I=I+1:RETURN
DATA FaylSHwnTSVdaaaPRaaayCl)yasagmumUiuqtDYtnbaakqkF7wRPCBTx8WmN(l8ZGhb
DATA JrZqaoIL5mmgCWcMrtq2TUugXd38IAiHkir6DJ)4EFNxEKa52XLmBzFNmM7w5DdUBWF
DATA 7G)cW9G)q)EBVSgTTB99TFuYJ1eMZaTu4)7Q9fDeDPK7Z(VEao)3VEAU80b)whRhOwD
DATA (3dc(3bqjxTxItCHY7ZGWlw1QgQKtMZthEPNRNhNb0dt6ebzaTg1nNnwdfZUBOwZHxn
DATA (ayzWR(DqTwA87FiCdv9W)anz9Yp86rWq7JHE5Xyi)WilXw5abe6L58YDoWUTb7DCMF
DATA MyhF3JZ5dapVt05dpaL(z)TdFYkgPfGigNseD4V5qNinO9WNa5mDe8zCZoWBGy)OLgc
DATA wAxdWFetK8OMOLqiVh(QGFFaa83NlZh58ZKdYUzoy8uF4YSH)dw0ZHZGg09dI1Zd1i5
DATA xgeNJNDd6pMF6ybMPYbJ8cDIcWXam)C4V9Dwf14qapxQ5GQbni7kSzT3OseUeRuv3XU
DATA 1OA7UN9RvXZJcWXYFce8Ia1d27XwCFhSB5BaPBFCXj3wbtLXaHRW(5)6yVyBY1VLUaE
DATA 5N639b0UQyZ9QALl(XkwTQc(RmRLynV6q37f0OVWC79i8Jbp3NQ455QZg1OkmF2XYvX
DATA Ma)x1S465pYLCB57Y4h)MJURtE9K9eFAvXTU9rrFTynR3ISJf3PAgYg0UAvUyCsEFjA
DATA ZhM4DfZX4LVLR6XJlvRQzDyh39SAfmC2UwSrryKu))GfcDCydGZivwGMBFUEoupH86o
DATA njkvLqIVzn)CJsCgfSHKkwcXPv3Pe0SpAKH6sTK0UqHtPcMJxpfCsqHmGhY5DUhXi11
DATA W3PO9me4BV5(l7Cz7Y3nd(5mafRQdoGkeu0s0SJmUU7g7os1CQLgVulVmOimfWmsx74
DATA kc6C44uh3EWWvY75qagv4C7JZxl9Y5kGHNhTJx6h0JxLt)EpNmhSEID7KzIguTmJtmK
DATA ZWJQbuEd3wGkx2Tl7COkEzUd8bP55cepnHqfVNnOm8XdRUq6Wx5zRq9MhQwLUkf2f3D
DATA CcEh67r8igYB2igmJpEDmhTE(4yI2HfrJo0Sd7ObEfOE8gdEjhCy(OGxqiiFT5NyZ5Q
DATA A5foANoaup4PDEj)sNECNUIhkXyfIky6xdpiJ4(3ddU4dOSLi0KbmdwXDdAz74wNLO)
DATA Ubl4l7do82jZggLAvLQTfTyg7sY16kvKAmxzxLAzFkxjwRI0KgvPMvDtkrYz56eyTa(
DATA )RHLZ7Lcb5)k0M3IZawXbDQe5tVWdMm65g4mWLOmMO1SikcJ8iiJhp(eBlvPI0bIfqp
DATA NsJ6aMZJhfo8e90(1pD3vtGMI7)TK3sv(6Hgr8gkRIHF2imWT2bGYRiy5pW6EGHEr5s
DATA z0Ar0jtBdJgD)GxSIMG7SXpkODIstRJLqJk3oYB9edeY1lPVEnITmTIhRoz2NPViIjg
DATA Wrl(vl0sWnjrSdDYhibgbCsic)CEbwsOxEeety23bkNisKmDUf8OGgpM8flHzEfulh(
DATA mZoqiUtCo5R(z)cHUNbVygqDsmBVwhBIspbVlJDBS82FpXGjpEOk)5Ofp6r)M5Udsyr
DATA CmK4CkjtofqCF)I2jLB9WaPG6Zb6dMthBIpEOcZtgXBjMjaFlHm9VK5Ipbv(V)aGiw6
DATA Y4hx3(WsV9D1RFZyBSmYsLfE(cgNTRYzMlKJotKWHG)sCcfffsMekMcIZovHn)3ZC6s
DATA SIRYqMST17BQkqOxOsMIQ8gmD)nrrdrtNX(FgKPZjkLyH6g3cYdCYg7pWQxqXL33TYk
DATA LyPxRDGqXdYgkDA8boBG8PC4OImlkZ3EZtqYbsSOrhQqGVu1Wdb5yXrHCQm8cNIwq9h
DATA weyrFQBoVxIZbfqokZYQc9WIOSQJf(zYwU5nirrkRyiuutq9(o312NYft80pceAzm)K
DATA HMjWEYJ)7pmOa9ep8NmHsf0Uh2tRAr7X0O07TzwqeqIkMrsOzImgA5OjGa5Nr9Po4fZ
DATA 6abxQz1vRb0HoPEecCOSElen2JlfcJ3SqcaGcTio3uRBTzfDCA5rd9QJuvieXOl9Qm3
DATA lfMLyUbYvE1JofBaFO0SnCNNtxagXfUJuChhAifsXNKttumTI8KUKBLgeSfq)c7MRUl
DATA 4iEMMlehDe(gXVefbQuFV7Heakc4gZH9f1rGaslEYltrbtIcU43Gq9ei93pkkdnYvrj
DATA uWIfcxQ)dEGAglvPsL7C2IC2fKL4KxQkvkYwVAMtf(2StketoAgjYbBHSKdfZT4j8M)
DATA gb)k2jLEXMPnCAlAEF1LgZX8Ud43hOOnMSkJsq2pjyXj)IzrC6Urrvebgjpw(TDj9l9
DATA kCLrFi7vq)pfIO8Syk)TcrIkcR)g2b9u(JJy16ThlIP071uOvMFfTpVzXdDLqOBxuv7
DATA nNqnzGBvanT9C2GeacXMIy0co)wccYiDZxGbQqL8lW)4el6lyZyHlC3F6th3HgVOsiC
DATA 56FkapcFfkHWJiaKK57q)wDKsUHT2yTvinCmQHIGF(sWGztGWpmi99VtZZc7fx3FvkP
DATA b(mYH2teh9yBK7LQ)xR78MvhdTibRmZllUs(uxUoBS)ODG7zATnXjPv69v8OKDzwEbD
DATA sJ9U9Ij4HpDcSDGnsxMWGLQH9WASyhCew)Lr7sZF4yO0mC3wKbm5XzP4OyzPPmY1(Tn
DATA odrTf8T65DqpuK5HN8N0oLETfBqEILOn58ZowXVZ8ZY)5GZtno62L6jBXb0zs0BOxAW
DATA brkQ46BMCmPCWSIMI2Pyb4xojp9er6LyF76ajWec)98E4dJyp(U51URmlcN056oEFrb
DATA eeL58fjM4CyWJxtaY0qtiF4uLXOe475l8fYYaoRvjkJHVySceHmH9SwqYtCE4Xkhb7J
DATA ZNE8BjpqQQFQK4iJvffTiUugHBJWDzeF2akZYjKGbo2sXMkSrjNr3ojTjGPx7Lw9vne
DATA mHKb5SIGyFcVnIq0mNsDzeVNxApXqKAsFxdH5FI0GIojOGW0SARuhk3ajyW4fgHFlHY
DATA CAFotHb4Yel)DsrjStpuGNeFua8iB0SzxmxudrDqklDnZVrPqwUdvldoGBhAp0ZHAXs
DATA SWOwxNmGSY4cbPDLaQbEerg0cfJQ48ethxsTu1kZ)lCxKdy3ePn)4Tk(cYybrunfKfi
DATA (4a66KPdI8rQT9DO2XRcYjhAflzUmfo4Nw7PUAZOjnm7rPwfvfZ6e2BRoj4mOpHRRM0
DATA uOtKhOiJOyQkxbhwKLubNVj2r1GijxvtKyKfSbjRMI3JCrRhzpmcILjOIK2mIFSSkoR
DATA 9coX)bfW)GXN)GG36k(T)aX9oja9SSFCf55inOGjwqNpLOprqzaRVuLjcsqDs5NenFI
DATA D0bbzZPnnVDslT5QSN02zo06E3tG6wwOJMVLTJTnZLvqtY54g52lh45uBogPxWI6V4J
DATA ijstRHoxrVJ5fzGzr7HjxmjqMtlrlQdHM2bLffp51c59gxAdPNk6ef1SHnWESZOomzb
DATA oiz6WwuMvetjMhv2BkVPYylqhZKHU4GsKfH67NoIh)zlUS40sHEMa0K(3GhG7jw1De1
DATA OBqLsf1NRDxpu9kJGE)(5y1ed4UuACUeCu8Dj1SVOPXjZtvs6mX0tMAcj5sBtVKFR5m
DATA Hon4oHbr17VNIsXr(dWvQorjEIrgSsRgcpXM0no6lBNuoxfuKmkT3tR2qVzPNEf6TlQ
DATA JUZbbo0ILk6igByNFUjONF4Ozdnv4Z8d3byHEJmnu)5D3o1ZFP0lYCSS)YHW8yB9CEC
DATA IkCmMKZanziTzCKemAJQgdt8DU3mIYDgM6OLj0HTJSwGmKYFyoDAIyHcMUXiYgoIDwd
DATA )LV4sRALMrnfPztXl6AVqWE8fy4jT(vGMdp07zf0JTka8I35vKUB0r(v004PPJ)cHXC
DATA Ie)BmgoEU1l7XlWDy)dl)ajFpPEW0xuxctKezJic9C2SCN7mc2Es2iK5Osiru)TNkb7
DATA tILoD31ku1Z70Azecf3Zjlsp06ZhXwItm32kb10GWxYmseQnYrp)6Ere9ACso)P6mVU
DATA jFxJ1UAJwU1bMR906(I3A7EFnzRPeCeB31ATXI9ddRVT3Q)ZbCsbJKVpnUHW22O4dR(
DATA UDu6YQTA1FhwAokpsorTg)bxn2QlKtjH4CkQit0aWPJKsTMKkGuAKBl3sGGwupgIgLM
DATA evQcyY7RDhVvPvPkEQ4zkSlpLn)0uPbNGSGHp97fUzyXFZjNe7jdN6x)khbiJGFXh1(
DATA (lqtW2n(LMdkbdLFX5J(rjprRvuLLBWLAvzlLsvyLQHf5fakZyXQi5gRnKtvKvunLtj
DATA n00bMl10d6PZASXKk1cV4P3NPixf4LK3Xj(86Oxjd07a7K2qL0HrkwMyGUQGuex(DQX
DATA WP26MToGyWmMLN6eME9jOEbMvNuNUXhl1RMeWKQs)VcHgM1iZSMKUYtJqHdV9Ni8gAs
DATA 3Gtaz5Czy70St0k2MKUgHh8Kkh56tQcbjLL25hg06cwMuCh5x8UWTHl2KUZSdNSYTWT
DATA N()t2sTyw9nrJ90dlAFYH4BTEAXfvEPCyOsqpUFpwjglrPykukPiCltD6nxRrhBHkt9
DATA 0oIhnRDK4s1Lmd0WPXQLlas7zY5YN91fpIRoTVo)NAtYV8RD(kUr4LVJDZHX2)0x1Ru
DATA rXupj8ZpeA50yULbGLhK7WtPuytEu3ET0MA2rEXe4jdQ028vN5TIAQZ1(SivYClxnBc
DATA wh3pSsbAxa)dknHao89K6fajSKirC(jazh4aoFQzZy2VnXrcN1Q1XD2n6w6Kw828SqP
DATA hVDEeKOQYIW(od)jEc(deF691cdFTuks7xI(gxC73V6hbs5wiBiU7ZQ1)H(iZdF9as2
DATA bZ)9ZQqKW9NVftIS)8uK1G)11YEI(reo6NcHunuftn65G9YR1jdFhJe2tJJVwHz0wZb
DATA l9L)ML4FfL7wfsX2DSObAYyIdXCA3LyWF)dATqaABUnKi8NUPk6oR1GHohZoqj(xYNH
DATA XODhfECp1kf2uXD6MZeRuIvmeYJA(kqlq4ZwMBXQlx3rMtZ1NJZwClh1nQmwSYyq4Yu
DATA 6NVOLE0NA5qFBX0OuXXARa71wX8Tht0JoV5NVEoHo)onezom(2qXUyIZQimA5cGSXgB
DATA fE(X28RyCuKmViwhflJle7Jxa95xfogKS307OkkwcTP7OAOioj0Rt1qEn83rHEKfi9H
DATA cTWgA10cfkaaaR8baauZT8JbibyarX4Iqbn1RJ2eaaCqA05E9TLcjFYjZ)8xZNlz3O0
DATA MPIw61hfcBJEtALj9qvY9CZgYBaIPuljnsj(TZ)0376PNEj3IQIOO9V52z3T376A82T
DATA 1UH9LFJt0VrcEKSg(W4uFrJo6bRrRboHJyoh(FX5bm)dDFL83hpmGt1qhF7UV(6SbND
DATA hSb(6paHzlhrIf)T92lU94a9)GHzk6bEEQEaY7hatcAWA6fxVoodqwpp8FHayX8dg1b
DATA Kk3XBhhn4rO4))cGLlAkkUFaiaA0zIkXXikInS96yWKecJHUEoe3gltziMNJzZ64mdJ
'continued on next message!

--- RBBSMAIL 17.2A
 * Origin: Computer Co-Op RBBS HST, 609-784-9404 Voorhees
NJ (RBBS-PC 1:266/29)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET