BBS: Inland Empire Archive Date: 07-31-92 (05:53) Number: 191 From: MARK BUTLER Refer#: NONE To: BRYAN HOOVER Recvd: NO Subj: Blockmove 2/2 Conf: (2) Quik_Bas
>>> continued from previous message --------------------------8< CUT HERE 8<---------------------------- DEFINT A-Z ' Created by BIN2QB 3.2 freeware 7/92 f$="NEWDEMO.ARJ":LSBs=3 CLS : PRINT "Creating ";f$ OPEN f$ FOR BINARY AS #1 :FSize&= 2341 ON ERROR GOTO Done:LOCATE 2,1:PRINT STRING$(50,176) DO READ Lyne$:LynLen=LEN(Lyne$) FOR i=1 TO LynLen Power=((i-1)MOD 4)*6 B&=(ASC(MID$(Lyne$,i,1))-59)*2^Power:C&=C&+B& IF i MOD 4=0 THEN Stored&=Stored&+3:ChkSum&=ChkSum& AND C& ChkSum&=ChkSum&+(C& XOR &H1D1E):LOCATE 2,1 PRINT STRING$(CINT(Stored&/FSize&*50),219):LOCATE 2,53 PRINT USING "###";CINT(Stored&/FSize&*50)*2; PRINT "%":IF Stored&>FSize& THEN LSBs=3+(FSize&-Stored&) Bin$=LEFT$(MKL$(C&),LSBs) PUT #1,,Bin$:C&=0 END IF NEXT i:LOOP DATA [dyE;s<<<;;?;C[IuCPyS;;;;;;;;;;;;;;;;;;;;;;;;sOLRLOLHx_F<D`M;;kC DATA ;TiJ;;;Seb=;YKK;;;<;;c>[U\HAg=;;;kE;;;k]Lbrt;;;C;;;;=loN>h_FJD_M DATA ;;kGgpuO;;;[F;K==loN>h_F<HPNmVDD;;[<?X_OJP@O?KOKO@?<>x?L@d[KGxoK DATA Fx@P@\@P@w@L<LPKV]t<;[_H;O;<<_HaB;;M;;[<>?k>UM;;=wj;Z<D?;;K;DC?N DATA JHoMHx_P@<;;;KF]?;;;]AKo[e>;<;;;PhCvQX`BFu`<FYKzF;WX<kz]Y\k]JGi@ DATA Fu`=Fyn]Yl[^BgcRIgsHFu@?Iylw_mzBZtPREn;;Bcc;;;;X[dIF;s<<<;;?<;[I DATA VCPySWx<;;;zQ;;;yxxOM>;;[;;;;GPKQP?L@poNiCOKN<;;uuNlL=;;Ak;XuuY_ DATA qoxfGVETrzz^^[C@<CSMooUYi;q<L[\l?=SVFlr>nsCHIgS^MVBwAmpbVwzZXvhv DATA Agd_?jUmmlxm_TvhaOAwRHtpwW<s@Urxu]oomhpNV`Vn?iuoyzl><bqurgqrs<VY DATA gP<eZRX]YDSc`BhApEpEm=?eBaINfmbuLnImZF?t<NKUeGkw=xcerJKzchzvgL?e DATA ukf]fB?OfZcALZtjCPS<_\GE^Dpq]\]H@^NhCRSbGA^cDgNsVcvOxZy`ijWSrVHF DATA rXvhFu;UQDpKXQKeV?FLUT`[wHePTA]MFK]UI^pLzRDx@fkXQPPvtluP;BpKEYns DATA RB@mX`Pc>INGUwTQpD?b_LseIlPl]cCH?XckSDPobM<O;ZKqZRcGbv=M;Tk?X^_l DATA KPueGTOkejm@Mz?\aprEKAFCoUO\\E^@@T_O<gG_s?XbAtDpcejeg\QKg_;yFV<g DATA RAT?`]jcQRBTGFcRWiOaPb>?e`Fbs^?KhelkIkP?\u;>B[L\Q;RgJa@sZaoJWwAn DATA =vETcKZdkWuE?S=OpwQL;MgY\rSMI^;@FiNzAdhIi[hXZLXXEA\ZpM@e_jFgieZv DATA FR;txUIgZpm]rmEywvpiYzqB>AEaEGs?DLfKeQtE>Gzk@FiEO[GHigsB;tEO_vmY DATA S\>uGRSX;WNM?XukP=dq=wV_aKekTCjvvFul=mym]AwRGRzdwYdeCsNqKQvWCVoq DATA f<XsfUPfUkOe^pqMvcaQVB`tOnQVHr\RzpoNzgZew;TZxDtNyfeINhGdEl^CLDT[ DATA I?Ga^D\gPEgd;@]mLBgODrWEkxJ@MCFB\CZPozQwpW[CxClMIKpzl`<^TmNp?Sx] DATA x[?TMNc<nL?F@lBicNlCTENFi]_fN_Zme[Krl;ejNMDNENXChfNlKit@>;E;<g=i DATA L>tNaenKj[TDNgvCK\wu?XaA?MN@lCBxzCk=UL=;tHebXl[`\utm`iKQ<vUddhsA DATA KXuH>j?ylLO]AtX;tCHEAgu;K[CwcaoTvokK?P]UVLAPU?Q^cA?_KNntBuePP=Pf DATA n=?gWIHAJ@eT\;QLUe[uw;?VDI<wQ;?ROV?MaTqgsWYwfCqREkTqV]^aPVeGQLU^ DATA [Oh`rGzhBHfhUWQ@k_XUhvrgctMne;HyhtCXb@ToN_Y`=Q^>pYaLg]g;b]AS`R^K DATA xJiBi<szivbwvQrASq>FIJCOjRYJQL?@ycbeM^QqC>fzp[tgDqCgVjDwDPEyWa<W DATA ^Gq`TDq>AJLUcVx=auem[EZXcq=DGFNdKOF]VFAHU?FeAx^SYVnuwUiEGJa\hzT= DATA bEv]pXBTpBX=Sz\<tdhx>JwJa[SU_rGVfXiAEWLwEbXJ_S`c]mBV=;mCgnQBhCCF DATA e]nm\FaUbKJU>__SPOCmW\wD@QfgRWebyZm@dN[FBL?fcI=GQniZBlBe\jg=a<RP DATA E[Y`LlvTMLooA=zTn^dhSsRceCV>MSHPFbwm[xVVqgITXJpjJXUnP[vSTtgxB<R= DATA H;E;Z><<LYl\eWCdzuqUf?jsz\]?GGFBFN>rlP?bS[PmykIoKR`_l]XkT^m[FavX DATA MMuoi?Y\w?q\BPeaAWJ]lDUIvb_ZAwvYa[jZHgwHiuhjWLb]lMhiqOGrqmMCj[TJ DATA WY^]r=Kg`<TTzB>WkDnoJEgXvmtxJFTtYipzX[kGL@ZBZInrA@\]O_dLNC`ZjI=a DATA v_aSXpC?ojPaJifNymIpmfRrp<XWJuTYQXTTmjzW<t=dnmqottibAaavIj?iLAda DATA f>Ex;mYnvpwTwR_iGHymwSnMAf`VPSbvZ@W\[=WqaIighzLt=hDGne\<>mim[dRn DATA ijQL[IYLLryGxrElb;RPR=EchyfPNq=isqVcR\mI=ThAQkXkpXYiFvBPQ=gxYgp` DATA z^DX=[bHBKKPj<Slj\x;PqRcAZui>TrZsuQrjr=zwwvYuwHqXkEVYjUQzz;iwOy> DATA ctrpsz;rrmy>;w]BKvIydlB;=dlDZWLtHSZz<YgjKZizY]W_[gyGYNoSfyMYwQcn DATA ]XcNrtrinq?rsXYcwY=[rmLdA=jiqrMZ^VkAWzYJRhl_p_TypXn^AZHqHvgxrA@a DATA VifLRfJUYZtlbsf;UT[`SSxmHpUrlYgv>kQ_j[f=@`y;TnJkxZnj[g=OY=YHJei< DATA URKjGZjt_ZUpB<j;RlD=wLELMxd;gcs]dyr@?ZbJZjK;[HwRHgWCPCxIzqspcD>r DATA l\[iVfJVYNpXGwU\]fH]QgvHvxxeUxC]^Ok^JBJoooPEi\>eFUtOhaglH^YTZRB] DATA ]bzQzi];IZ`MjUSXYPXTixO=fanuTbbetMhBQ[MDZvHPvsSR^erjCyH_MzW>QIwP DATA PyeYwBpgo_Uiah_pdvd?^>hJzd;>y=lGNFRVzbLp=u``vNrFKejIZ]s<>hyQuPC= DATA sLGzXWoMjLct^==Qslh\\zDIgxpDdkY<syseGdnI]zvIJ^BuwlTheAxavu[vADBc DATA >E^;v?`eTDyT;Sgd[sBJ`d>OL`FVcanCW@^JYcOCnGGmbo^v^PbNlZUGx<qsYQaP DATA pP=OIwPy<ZTWf^fBvB>rVARkRfmG?RSFFFq[wIrsOOqPsDZ<ZPnY[NnlLK@zzh^^ DATA lriHfzT>xZdNlrIACVknedrxitgtzYI_slJDy]u@pbZCz^p@iHrp^FMqtYCx=yry DATA =w@^CWJKBMr<IbyzGZ[ylxhq>WIZPjp;y]w>YukJwZ;[[dI;;;;; Done: CLOSE #1: PRINT IF ChkSum&<> 7454 THEN PRINT "DATA corrupt! File deleted." KILL f$ ELSE PRINT f$;" created." END IF: END --------------------------8< CUT HERE 8<---------------------------- Well that's it. I hope ya get it this time. -----------> MHB :-) ... OFFLINE 1.40 * This is abuse, arguments are down the hall. --- DB 1.35/<`µF²&0012 * Origin: * Bare Bones BBS * (1:105/360)
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