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)
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