QB Pulldown 2/2

 BBS: Inland Empire Archive
Date: 12-29-92 (11:23)             Number: 287
From: MARK BUTLER                  Refer#: NONE
  To: JEFF JOHNSTON                 Recvd: NO  
Subj: QB Pulldown  2/2               Conf: (2) Quik_Bas
'Page 2 of PULDWN12.ARJ begins here.
G"fzuHZXEtqIFglpwN7gvBBZqFud43qPC14NiqQ)szjDzTEfa7h5qQE7ToS19dTB5y
G"tDvtArQSuSIzkiAyc)UJfRD1i73egKW9qsmKUxHAvSqp8KhKSPQXq7Lqj8b(axH2
G"HZPGS87P6K)HLwHw(Iu)UMHCKMIrh7dwb7NDOdF9DURczIxi(ArXq)2paCb97jBO
G"a5uDmj)NkwRKnyRaCTRvt395TNL8vDcLRCot7X72MlRViV7FWyDVgNRxQ3ANfGLe
G"y)GbKMmoCgw4UBRpJqXz6)VbG7EjDOv6pusMQnykGRBRV8hqA0ydks0(Z1Cjoh9o
G"dC6L0JonBgWwtt(DGdgqaYn2jKe8Ut39pCxudvN)G)dRdcEhAEFy7wOdu10fY7RE
G"78kO80sadgkSg7GXllxuilIhdqCHL7oJQ5MHp8OA4qizLwa0qMbk5RArj)UAGbA8
G"rAbCXCdbbd5oDfVVe29r4rGjRBnHioc8cdFBBoS5cxrZbz57XCU1xCR1xKxUDXDi
G"JWwqsEVP7bnzjthr7OqTZjAqO))dCZMVMCpAKRA7koljc1mvGHxa5EamV5tH8Q0e
G"Fht5lYmZVRsFgj)JtiEGFGCbyXZE2nqX8zmW3hyAGskoMHhGpida4GNPMg)LW6Ip
G"PalkqbKrXlLCN9dKfWhR2sX3)gni0H3dARCRDS8tR5)G2(B1QTOsrqLCHX0)5hUc
G"6zMWx6(phYIHu7de6(kHFRoSCs5s4wXYxcPkwUAd6tAsIuDidfFK5GMEizmOA0ef
G"dmzO0O1ibqaRoSoLv4P4wQPp(lDcevtHqm4Z5mTiUu17C(Q70rFla6chaCorpeOg
G"oLnYQPawF3U5oZifVDgx88hNS8iKQQ4xHMuE7fU4WvuR9hmTuGmDwWTyfmK7B)wm
G"REirpb9(dlYj9hvPuBBxjna(gd2uSWmnA7yF(SvWoO7defjlW5pH1ZfDviHEB2jj
G"4KVmbefwkMRA)vdkKJA(X0ueIxwaVZ3IUk938WBfPaSXqBmmL656Wgr9hFU3y6aB
G"EhMTyN8lWZeIsIM4IMcmWqvNMiqjVZphyT04PIhFU7sNRzW87LS8nWpIDQWELVWf
G"wR25ePbMHctEwl8dvnVCtruCSXg)ovr8d(fI1wOD6HUjtec6jo(Ki8mgPpCGD)ee
G"NK1XTHTPNaf9C5fpt65KYIGnclxbaUa)J21uRWWHBY8zEM0V)hLB4oJtMaM88CSZ
G"i8mMwNHXadmEMWzQl(j8In5Q)wUwFqzPfvg6PiZER)uU5wVvyoiRV69W7BHwZXf(
G"9Uf1iGVcdig8QPAsv42B1X1L7486Toyfkwgb9xzDCOWF4(uzV1apI9D26VMC5wRI
G"mOO3J4mgv37Egd2Lr)KzbmZQphv6OF61XNsZ9w9tV3TyTp9batE7)KxKD))SI8L3
G"GPz48Rv8PhYfoQ0pn2WloO4LJU)0GNRpZqJsponUb1Jbxjask4dTIf)tExVKM)t)
G"iLn0TuraLrxa1rcv(3pS)XN5(l)Q7Dpx68n1BgRJMEZC(Ul6CagH0N)HXNnoxlP4
G"yRpVxsiO3P(o9S)PjNP9r(ZcvPv7tP3A1P3Uuom6d5qRkNOmtsCsvGKRhI3IHMkc
G"QTzyxi2Ondv90jsJvvxK)c)KgpfFCTSrdujsNc1Pe0D196q4jynXRRok87cFFsix
G"EqHqrjGQUH2qPdBMH2W)931OqJPL17fK7Xz(YyQgB5kTRJbC0gLSv2rhrqAdwOTe
G"bsXrgvngtcYrMXkp9HoCsBz)I9KyfTO05YVuGzNlTjQ81rYX0RNuIrhiXH734lu1
G"jB)x9ScyyHbXuojfZ9KRmSDqY1h)CF7HtZVeXsKE9zeXfqkPduIgjNckKtQIo5eL
G"VEXPNJFP3bXbkD1FhHUsUlsIozIJu6Q4g(FcFnU6w6FkQIGM(H)aL2)GBd(BLD3P
G"FJsDyPipHpiw6ff6wFs6puk)K3adHiObOsa7b6kMCSl6RL7a36dkWewlFWYkKok6
G"S8d9SAnv1nmGGPoaaa"
N=4381:K=255:IF LEN(C$)<>5842 THEN ?"Bad script file!":BEEP:END
FOR A=1 TO N:LOCATE,1:?(100&*A)\N"% Done";:IF L=0 THEN GOSUB G:L=6
W=T\P(6-L):GOSUB G:W=W OR T*P(L):L=L-2:B$=CHR$(W AND K):PUT 1,,B$:NEXT
?:IF C<>234 THEN ?"Bad checksum!":BEEP:END ELSE ?"Success!":END
G:I=I+1:T=INSTR(T$,MID$(C$,I,1))-1:C=(C+T)*2:C=C\256+(C AND K):RETURN
SUB G(A$):SHARED C$:C$=C$+RTRIM$(A$):END SUB
==========================8< Cut Here 8<=============================

 Hope this is what you are looking for (and this gets to you ok)

תש [-M-H-B-] שת

--- timEd/B6 * Only those who attempt the absurd achieve the impossible
 * Origin:  Terminal Oasis, Portland OR  (1:105/330.5)
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