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