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