'=========================================================================== ' Subject: SMOOTH MOUSE CURSOR Date: 07-20-92 (00:00) ' Author: Rich Geldreich Code: QB, PDS ' Keys: SMOOTH,MOUSE,CURSOR Packet: MOUSE.ABC '=========================================================================== DEFINT A-Z ' Created by BIN2QB 3.3 freeware 7/92 f$="csrdemo.lzh":LSBs=3 CLS : PRINT "Creating ";f$ OPEN f$ FOR BINARY AS #1 :FSize&= 10730 ON ERROR GOTO Done:LOCATE 2,1:PRINT STRING$(78,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:XCk&=XCk& XOR C&:LOCATE 2,1 PRINT STRING$(CINT(Stored&/FSize&*78),219); IF Stored&>FSize& THEN LSBs=3+(FSize&-Stored&) Bin$=LEFT$(MKL$(C&),LSBs):PUT #1,,Bin$:C&=0 ENDIF NEXT i:LOOP DATA _[TFg\AGhG=;;;kC;;;;@pBxS;M;FGoOMLOLHx_FH@oMs@MN;;kKND@L@poNiCOK DATA Np[=>H`O=@oOns]KEooNPt]KEGMAhkAUpoMY<;;;qA;;;?gaw^tTPd]cn>^pXBRhlqMxE];p DATA e<@OIBrSjQMH^FtzsU=@=I=kj=GAwMnAsLTOC=JClZV]@<]VRCdyYXmdKT\G_zVh DATA [;yjUpUR`TTpugRxiQueUgUhvIVwP\mLem_jA@nkfX`zbj DATA YShrH=]SxpDJ>s@AsYVRKD]UQSQ]DDjRWXwX]Msu;er?\dR<;[ZiSCX?@UYnw>CRnL\o DATA AfJOgcGHdXy`nW=y<[Vo>g>^jzY>K^^;SaZg[InSFE\<]ysryxzfxhUi\Esyyzox DATA zpzAccHw;rksVhyAdgdFLFv_sdX`o_JpB_nV[?JtYTeB[CZJK?=YK?_o`>\ DATA Bcs]BQSNOZ>BQCKlaDsGYSIg[[spx DATA OaiPHVZNk=mHhkAUpomE@;;;wD<;;ohYo^`HO]_DpqP DATA @FdrH;zGgSdMsVmqsDZQjt\rVkU^aQiVjghxiRYSsJkyNylGIjxsw=jQIG_nMIko DATA HB>o[]WYOJP?\_TtZESpYvlAQQrD DATA WdNeQczO?<_pqogCV]e\C?\NSLOMIMAeL DATA joPEeGq^Vw\soXVSGGLKOEV@@< DATA m@nVr_W@P[]c]CVK@LT[d;XFw?b_PK\WcUV;qVIE;MbBknyCEbIdQgDy;hA;]i[@YeeATwO?PFDn`GTEw]L^xGD DATA =_tA`;cWfbu_VYmErssovRp\OmA_OTRkScROi DATA c`E`i_C=gdMQYE=Ns]^GQqIdu_;DHQqLbziIviv`XBw\N?iY DATA RByisUIJJtn>]Er@MIZFUSIUiIrcVQx^R<;wYdWrcl DATA ^zilnxfAzvbHThVgMu@vchVw^Ed>olilrPV`Ip^_nnh`BzYc[H`bvaXB DATA B_FidRegb_tQrFOj\f=yBjy[qzZNEIOVuSFPVkCuCaQrXX;uKCy?CzNonvxTYQj^ DATA HrCxG_f^ABPdgGUfOQbWtjNXyCU^]geuDBWnDYGw^RgNqH<>SYXvWFbbD\LmlOcg DATA Mk;IcUi@bpcbXgvHC]Mku\]vGngZAemhrxnL_v\Zn^JRY`GTX=Qz]DJ`kPvsA\]I DATA R`Pu DATA QQ_tX;knvaed?dTGV`GBfs@j^aTzzVUwBKDbi DATA jbxRuXY<;ezwtbJfhdxsIMn_naqjfaQtlqUQ`ICqqYhcRCnjNX=WjCqjOJVi[@>t DATA `qofaCGqfntAZpW>VI?f\z\TB]_]uyUp[iqZbAlTAl<@vZywcMdqkEHtOZeqRjvx DATA \tBahyFgHaHEbKzE^uHBrVBdtmN`dpoEyno_? DATA pX`\dm>yCF;lxEo@ojLFUtw=DsDABtCKkvEUW@pf<ZdkGG>o]Gmnvlu DATA ;SNna\t\eQ^hAPDOLFJ_ifJWiwxbSbHZKAe`WkAPjGEVn?eCywU[b>ZGfpejnj=n DATA zitUq?SVWdNhCOxC;O=]Y@zBr[kB^cnJkD;C[>Q`QNHZz]UCH]atK DATA VhFUG@xd_LzifbbrXvkeYiRvhbULxQFLNz[t]IXciB`XLzxRksBcnfGmMupT>ZRa DATA ]xqwD[NN]UDV?eyrxv]x;WhZokvClo=VcPNFOR;;;[S?;;;XkCJA[?[=>H`OJW DATA RzVGE^dNsISO@tshf^JcpzkD_TU?doM?aJ;]FNKkg\\svLzsWi<b[PbQnaLCL=y\]pweG`JstKEGJtL?eR?;kMwTQpk=U;dNlS=e?Cf_Hp? DATA fvfYHNq\Li?DJetg>KQ;lGILLN<@`Psl<[QUPOHFkOYQpqEypjYGcmhXIYEdisqf DATA I[F?yXdB^eeknPRRljypI[_N[]suWT_;aTb;DPDE?FdLK[dQsaetc_ugEDx=L@YhfhGT^ckrwWgl\q DATA _y]^`DonwDnoBFg^kxd^kMeY=LHWd_itM>>NPICo`uQSR]VvYq@=AA=VtvDt]HUu DATA TsM[Xqu;gCsvep>chsy[i[ZazTKAOWgHaE^eBx_`sUQ]bLTTvt;OnUxF DATA JX>_SJvWBW``?=k]pC]@En@tl@dL>xw[m[WSMF=XPiL]R DATA ?Hq?ejpuHD>KFEqFvBEOwfhZZzMqDsHJ>=QwnmfLdCE>OSRiX DATA bSsKA[AUa^s]uc\WNcSGDYmpW@SuM_?sEFxmkBDD DATA wtaKYlvkAP_mBnqQ=DqO=k_MOWk@XCyrqHVgLRyiH^\HN>@HE;hWfGxCFD DATA qANrdHh@\I]TD=h`Mo[oSiivI\HjWnojPgxqral[JYj@nRFrnYJV>vq DATA _YNsWZBTXt;fwrDwO_pE]TWpck@dgnkLVC;rZPDsr]PHwgnqO>gTc]VygF[\Xkv` DATA wmZ^;ioD\Na\h\fF]S]>lJmKpE DATA T=pE_^cTD_itN[dhA_KblFCDGu\?P@UFjNYyg\mkwEgUq>DDV?KiUuPKN^Dggek;FP DATA DgqzLhSXSkMyS]gYi=gq;]hZGvnykbVTBNVXll?j]NUmLZP]bOdhA>UJyO@jz\tS DATA DTG>uiWZRn=zFwbE^tOaVQJNYFljL^LMCQpZBsg_vuCV>Zj?mUypqBVOGXPEaIMR DATA SRxdacQRqdCMD^Sr\ubKxZGhcAzASBUVaedREJqpYUKewGHI^^zITwAWIb>ITwAWIrrTKlScnHZ DATA oTgzXBnjNnj@BFTf;H]ShkAUpomu<;;;KH;;;cxYo^LNVbuFIr>ytrV[a>iteftTYyhtyonryyfY_RU>[yZwXkuWKguOZvhBpz DATA BycGIuUYqEamiaNPlAJmS[YLsRh@N;E<[vvaSii;q[sEapV;tqC?`Qh[peyngIKW DATA w[YA;sDVYS`JVMXd=o[zD<[>;RLjfQTXHEv]Fnv=?sN_ DATA f[pubid^cu>aYDuRBe<_XHMDI@Bu]QCarZ_MUQW[yVjcBdbyPGXaiPzzIkbd_ydl DATA XuvvOlYduXEXtXU>Ve=vky\^bheHjvIaE>eyyYDtAczjC;X?Etqz_CH>uP@MpIwk DATA zZayofEF@Kzt\yrkZGHy@Pn@XY^\k[cQC>ci]sZyioq@>c_aJzaW^<@hSksQhXOHkCCVx\=oBrS>eKZg_ DATA fDUMUBFZDGZntYuscsvi`Fd]wF_Q[RUlEzGm>cHoAg[lMQ;X@w=v=NfarkOcHbPIXnfQLEnWEbASnX\qh DATA DClXmguKcrMf]nrTSMMchkAUpo=??;;;Dd;;;OOZo^ssUVBfdXZntMsnz\P_;_HIKHt=humi]H[hxASyADi`jygS=>`_hSVQjHWYh[VXHUosfzrVxRzaQGw?tAVgPQgzso@FZrL[UYLxB[Ww<`mm DATA HwyXu]Ze`[tnUKMam_tDSQnC?F<[YIa[plLHEZsn?Cj]SMQFOPb;PZvitUDOY=CS>FSIBG DATA IWJZ=ppEz]eoddNxoWFDzsCYN`LhnnHuSX;FahDjlLjYSKe]kvLA\[?RYB[baBJJ DATA NrsvFSi>hEiBGwec^_AxOBxc=TI` DATA aj;`jC?J`=?JEuQJFZu>q_=\QoVDY^EFUht>gap DATA ndOUZc^sBG^>w=IxfNB[nAq`ngK;kj;cnBsYj=[T^t[JMKCr`?[ikG;VwtXrdkAq DATA ^e`DNojfvCBuh]Hf>r?^HUNHupFN^dWPgbC=QBnGVcS[QNZboSgUX@[Ucj@SyKsM DATA ?CnO`DiaPnno__gb`LxSHY]\MIuGGN^\SdnVPpUdUKBldisu=CWBOcUxE=LnQHCf DATA ^ADsQ@pbTJG=F^U^mOp=rx_ctBjLWx\ZoEOMyB]UjtNhTzhAwiUgTTaGuWgbDqPJ DATA r]seFmRgOfxTdOlMrM;G?K=zsx\wW>JOZWcsOC@FsX=gmmydjOHlqITlQsz^B_sk DATA ABLLWeyfoFNU`MrnEJRm;Vgw_@oGF>mrfVOyED`SOkseQSAP^]`f^>uO_L[umoa^ DATA =]u_pUxqASRqSqaGWpCQjohPUGGTnTl@SaUXYc_eezmn;cpxAUPgnnPXgnxpc_LI DATA zHerQGSu>agLENd>AhTynlpuSdn\zKU\ramsw_RlxVeElZiUz@HggetmJcrbqVnp DATA gtK_ZMYHfU;Hd[FqyAFNfY;nmyx\jsxQo[;SsNdKO?_O`AASobcT=eeK?mYMU^CTT^=b[sDGSjD;<LR`BhPXOIgMLg>IPTTWIchOCDeCfnGlKdAlilsb DATA x]yfYLpXO\=FSQTDjsSOMpNsdea^HeFvEQ?NEi=edHdb=JTqLRA>qTIinmyQ@FO@crGIaFL?ztlVKh>lU?uLo DATA A[VKh>lU?uLoA[VKh>lU?uLoA[VKh>lVAbYj^`yCGiTIhbixoJ= DATA XXAXq;yS_PjOji;^GsEjXkyZB@qXzLeWKO>Uou>CqWBGvztzTjxHSQVINZryuvjbWRs>akzkYLy>AJSYVIBkekdEIZlTla?igDDa[kxgQCwVJ>DUn DATA F\\]>BgScqNVZwv`pP@G_KUFg\QHhKw?;;KHy;;;idDzS;M;FGoOMDOKNH^F=@oO DATA JtLN;;K>rkRbqpuhVGvuqNqrrr]]pEzCGO;kbFcBoe>yR^N][kg^ DATA r=inG]JtlmpUFRqYU?d\RgR@ECmlAWAgjQq;cBw;;n?yv\^H]@nIg?>NEqD>r`EZoKy^R=bnSjoYg>T[KI;CB_AIBaPYb DATA QWzNwsabwkUuLa\g]]N?ftarHqwmQkkX`bHvQisMDFLG=?gSZoJ@hya;JdIkRYgvILMC?jjby`u^GP\>N;W^lOE<^lH DATA @Cg>ikK=[[<_[Gjp?mECJ@GA[z?Z?X[JpC?dd;yX;TaQc>fK`yNxRUL?yPlJT?=J DATA XFMFTNVHqN]LE?\g=w`crlGzKSXwWbFxzzJWOFU=IQU\COHwxFnKBKXuCCyFaf;Tpcuqn_u=AQueOAvHO;I;m_KKDVD]kP[LpNKnU DATA PDhr>RXSc`MSDyTQpZajgbr?RagQv]cBtIl@SHzfousCORgIzlQfBDNtK\?cG[PL DATA P^mw;bQ[SHB;wCsl`Ydc^c^zMSCOjuK_tq^qRCA<>NLZP>qNrGEnRlEXT DATA egUfr@KVGER_pw=s@uxdZl;Jg;zgdatHB\di>VPcdVVgccdhpuUDpnJJxYLOSRdguUbONcldgDcC DATA Com@KrCHHHcW`AdD;OPVu=?gbTreCiyfdI^K=>Gc=yYi;=q DATA Y@kXl<OeXhSK DATA FKYoQe[Lnn?EsThK?e@bfUSwGdWNI[?sclAWzCqowp=ilEalbGDp@hsr>G@PKFrW DATA UVFCggvYu]>ijk`>nbW`lCtR[Gr[U^;WAY]lrYvBEsfb^K[;gkCcZ@jCyPhBZE@F DATA QqeyUT_MwLXO@NfT[e[TLBDs DATA oDnLFlONQxNnryFr>X]EuKDAs]ySm>Rsl[SsA=`[KUQAU^cIsa@RTKDUFaWboDep?NaMIfZiAFEa\jzSe]FBF<`nkIo`bbUesisJB]KBgg\zKLwuuaRjtGZi=YQsk=wUxi>vpHD?V[WZ;nPxvbS_ DATA s^zFkPKmmygntp>jWiDZ@ajk@nxaQ?hsJBfwHZdThxcawx`HXysaJV^RWjhBd?VV DATA e\HrVu=nVvLMlnbqqd^gzzsLtiEFujnJxcsl^IYYaOkYltRDrDdSRhh]bHcjmdnT DATA [W=?KLwgnl;nIlpi@`\>=HCFwKdKgfz;gFcy=fI\KVkpVD=\ILqJh[W[>O<=fGT?undOkqCN@G]R>Zf]ffcWqtKBMp=>G DATA sggKi;QMIdcOi>oz]MgjnTHjYvPNxCuFvtqWrUrYtJNTlr?@eTxUqUPUbv\rTnL>jNaiB]wEqdJ?\IE DATA ?h;u=`VyAFQeIXamyeIUSmgVcJHPMHbXefzgPUqq;KoWF DATA o;?DoB;YTVfRixkaQPYNEL=V`UcyAfEY?@HffKn=nXg=wI=re\wo`AeEnIQNv>RahxUdLMXx`\DaT DATA UgAFEw_;[gAFl_T;i>bjEfg?Kx\rzhUlqhqJT DATA p;`^XyISR<=_zSBkcerEQLGP DATA \_cIENSGxHhft@nBWxbWpckJuVkZZFKXKcNZ[k_aP]R_G_S=x\QIBwUgQmSJ_LZz DATA dzcZtZamvMZBnWRBfOVEFQ=qGwdJGQmtZeB`AuQOawv[joOSzYPF`Nw]WFFaX@ew DATA @rRlNX_w>ntloJE[dCFkHUzAd=BdiLlbl?=UMoOVcQ__WxB?NVqd]q]\Y_VagEKh DATA >u<_ML_x^QhJATsmWkOboxF=`\X]wokSBzrmXqDczaqnPr`tXhlrMsoSyKaJYmBp^[ZsUNzZewmAC DATA hyPlwyOAUvmJqHn_kWBTvwoEOcRLa;OEiwzZGHljehmGjizDZDj[^IOWhew;ctAp DATA cQGMZVOouwIn?L=D> DATA PU^H>pffOjn\?ijKOt]CQe`cs_szBBTgukBgf=XfSWIXi<@ DATA SQsHCNcqdY_P@i^GRImckgsWKUPamOUl?_GiVM]YHM;fRvdU?ex`YOHAgBkVSikZ DATA s>[cuMQTF_OKMvWzJUrgmndZxvEr;uSPr\TH@ZhMLM>`hSCCjhSfWneeoS`upxMs DATA bbKABQPhf]tfzcBy_U[lAJn<tfq DATA EEsLmYaRR`@Mq]KReNKpaVddVGCfd>Zu[VYbGPYqXstgbN=DBe=QJVQkR>]uRMRd DATA ePV;oKTquq_DzYmYDlUNeO^G]uAOgQOopUnPrljeVeL]?xCFubduW\BEHlmmayLI DATA ej`LcVDeuJOf@qMqL?LNnwWlfjDU[WQkXrkVa^c?Lr>DYylBdUJsGJ DATA al`ThH=RpkX`jN@RE\ZvIDTzVlM\n_FN\ZETQ;rHtaogZxFLvD]IlJ=j?sEw>@tFlWgRLTQhLMcYpHpZ^[@mIrjIdxRV DATA LxKZxh=KdW@v]Dpv_bodJd;ChfUk DATA DSusKKF`fPD^fK=PaP=[sYD_gEPD<u DATA WcGwdhX>`X_GrE\WeTHohKmteGsio DATA ORFuxoPu@Xe[dA>E]UXrJOGRTXXMZZHNiElXpjQAd^VpU`iwru^jrrffhqxsmEXVJqYrf^e^jJiRckiItwFmGHp\fZZiqzZ=lzJts DATA pHsQPmJXoGkquMbiWYtO_vrVxhAbggIYzEzYjJBmzHurzrHwzPHwujWLuzZBJhSt DATA dmrpBj>tuzy]gzvaeR^vpJkwyg^?YdsPBnGneaTaMbmLmHKxXPktl 7796697 THEN PRINT "DATA corrupt! File deleted." KILL f$ ELSE PRINT f$;" created." END IF:END