Blockmove 2/2

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