'===========================================================================
' Subject: SMOOTH MOUSE CURSOR                Date: 07-20-92 (00:00)       
'  Author: Rich Geldreich                     Code: QB, PDS                
'  Origin: 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]K<HP>EooNPt]K<HP>EGMAhkAUpoMY<;;;qA;;;?gaw^<C<ckK
DATA NDPKNp_FJD_M^`QN;;K;UDqaPNfsZbWJ`LCghI<I<>tTPd]cn>^pXBRhlqMxE];p
DATA e<@OIBrSjQMH^FtzsU=@=I=kj=GAwMnAsLTOC=JClZV]@<]VRCdyYXmdKT\G_zVh
DATA <o^TfdygnQ]UNhjAC>[;yjUpUR`TTpugRxiQueUgUhvIVwP\mLem_jA@nkfX`zbj
DATA YShrH=]SxpDJ>s@AsYVRKD]UQSQ]DDjRWXwX]Msu;er<RcKDgQP]Ik<o[=K_IKWX
DATA [SoRIfCxnZGZ;us;ond^;KbQN\unUXDpWbpTN;>?\dR<;[ZiSCX?@UYnw>CRnL\o
DATA AfJOgcGHdXy`nW=y<[Vo>g>^jzY>K^^;SaZg[InSFE\<]ysryxzfxhUi\Esyyzox
DATA zpzAccHw;rksVhyAdgdFLFv_sdX`o_JpB_nV[?Jt<EYL>YTeB[CZJK?=YK?_o`>\
DATA Bc<MaN=]kOHCeLE>s]BQSNOZ>BQCKlaDsGYS<X]NTdCr`sa?rakQ\SFh>Ig[[spx
DATA OaiPHVZNk=mHhkAUpomE@;;;wD<;;ohYo^<C<WKNJP`F=@oOXnQN;;;<jgqiLVUr
DATA fyg?YyZpk>`H<K[hTPaMs\[lUp=S?X^@V^BqZ^^WhYZJXvGmjZwBvzD;>O]_DpqP
DATA @FdrH;zGgSdMsVmqsDZQjt\rVkU^aQiVjghxiRYSsJkyNylGIjxsw=jQIG_nMIko
DATA HB>o[]WYOJP?\_<oEkGKab??Sk_c][NC[snWDNTz[GPHOwHr@Qs<DHIOEWp=<AgV
DATA h>Tt<HiCMH`aDCKyxKE_nfoKcsLceKMh[WowBeD\RwdG=if`=wy>ZESpYvlAQQrD
DATA WdN<bAcKNiQbFi\vub\jz@^ODCSQ_==Dn>eQczO?<_pqogCV]e\C?\NSLOMIMAeL
DATA joPEeGq^Vw\soXVSGGLKOEV@@<<WnhnBHwSZCpxV]^`zESR<EKPkSEDNquNKLFe>
DATA m@nVr_W@P[]c]CVK@LT[d;XFw?b_PK\WcUV;qVIE;MbBk<cW^B_@=;;bqfQLE^r]
DATA XS<KI\f][?`WIfuPczG;`>nyCEbIdQgDy;hA;]i[@YeeATwO?PFDn`GTEw]L^xGD
DATA <LD[^`uSUyX?IlkHhStDFdKcNoOD=Od]_iqX^efQ@K;_]Ecb^hC;K=S<DP]@OMOf
DATA nCi[coEBY>=_tA`;cWfbu_VYmErss<QZqr=huguR[yD^`>ovRp\OmA_OTRkScROi
DATA c`E`i_C=gdMQ<kk`g=UDKwoEq?d>YE=Ns]^GQqIdu_;DHQqLbziIviv`XBw\N?iY
DATA RByisUIJJtn>]Er<KcPA@AG<DyPbHrxlyvzP>@MIZFUSIUiIrcVQx^R<;wYdWrcl
DATA ^zilnxfAzvbHThVgMu@vchVw^Ed>olilrP<wVDtha>V`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<?SOq?JbmToiGSNTatNhJ]EvLduGFKIc;Fko?kgHtKE=TiIFsYIOmv^^A`M>`Pu
DATA <NaFbd[pMOJuwlIoMb=fHdP@ldrCqAwx\^kiBh@ytT[`O]gTDNwYOZMtqBgUAod<
DATA QpbbWKlst[D_vVk_Wo?cntzdlT>QQ_tX;knvaed?dTGV`GBfs@j^aTzzVUwBKDbi
DATA jbxRuXY<;ezwtbJfhdxsIMn_naqjfaQtlqUQ`ICqqYhcRCnjNX=WjCqjOJVi[@>t
DATA `qofaCGqfntAZpW>VI?f\z\TB]_]uyUp[iqZbAlTAl<@vZywcMdqkEHtOZeqRjvx
DATA \tBa<hINxVMS<NdishdGd=KHDtL=`W>hyFgHaHEbKzE^uHBrVBdtmN`dpoEyno_?
DATA pX`\dm>yCF;lxEo@ojLFUtw=DsDABtCKkvEUW@pf<<A_yUiw?>ZdkGG>o]Gmnvlu
DATA ;SNna\t\eQ^hAPDOLFJ_ifJWiwxbSbHZKAe`WkAPjGEVn?eCywU[b>ZGfpejnj=n
DATA zitU<ZhZjoDVw?[iaD]DoOz_qylGnzkziXpWKPochkDJsrfxr]P[WaNqCwv`Kwtw
DATA @E>q?SVWdN<viudD?wU\w>hCOxC;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`O<HPN
DATA i?oOHLh]H<;;?oxWVBhhYUEYlbmtxbj_q=h`yhh_MVTC]`PD`AnMDt=?Keu@Blxs
DATA `j@ZRZrI_KZtrJb^t[A<@vM?<i<Fh;y=\gMj;wy<qp<hhTvrUpyzYRPeeTy=q>JW
DATA Rz<oSj[ULHukQ;`Ma_@tmCC<_Kk=qtH;KoGr\mrv=j\tCauGysNE]iGQXwyXYu<v
DATA >VGE^dNsISO@tshf^JcpzkD_TU?doM?aJ;]FNKkg\\sv<APAJO]XA=J@?fSfIL<@
DATA LV;=D>LzsWi<<f;YCteU<VILGMj[E?Wk]kG`Hf]xXheOhi_[gGeSfEpxtKe?y\kN
DATA =KGtQs<>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<RMBE
DATA i>=L@YhfhGT^ckr<GrGIhGnpKd\miEMUUgd]z;bRKfBzouIovSqZVyuHP>wWgl\q
DATA _y]^`DonwDnoBFg^kxd^kMeY=LHWd_itM>>NPICo`uQSR]VvYq@=AA=VtvDt]HUu
DATA TsM[Xqu;gCsvep>chsy[i[ZazTKAOWgHaE^eB<rKQ?rp>x_`sUQ]bLTTvt;OnUxF
DATA JX>_SJvWBW``?=k]pC]@En@tl@dL>xw[<BgY@XEF]vLE^QT]tMIqCUA=Z_LD_iBl
DATA xwtCx@XAZH_F_tu<BjGRMkAYoftFUQpgZjfph;hlNpTrcJqHZv?YG?XnuDolQPu=
DATA Q=IZwRF[MbdCKj<DkolCnS`;`?Qp_hYfZKECZm^=tAH=qkSL`HqP?Uaq^?PLDfYY
DATA `rHocN]Fp`>m[WSMF=XPiL<zpMs=OVtVZmTke]aycxlyD@_Sgm[eBOGLptGOv>]R
DATA ?Hq?ejpuHD>KFEqFvBEOwfhZZzMqDsHJ>=QwnmfLd<zQBb^ie`Sv`iCCYTzKjIRr
DATA ykHURE>CE>OSRiX<RlWiNImBNCIYmcrCh;rNK@ogWPs`@LpDrQuocISW`O^BTDV>
DATA bSsKA[<oMxzwm;@=LdfQOaRGJxPVv>AUa^s]uc\WNcSGDYmpW@SuM_?sEFxmkBDD
DATA wta<Ev_LDL`E]l_ySbWW=jGpajFXlELK^ThbiY<]wsXk;adKQENe]?H`FJswWUEK
DATA ZXfkqcrK>KYlvkAP_mBnqQ=DqO=k_MOWk@XCyrqHVgLRyiH^\HN>@HE;hWfGxCFD
DATA qANrdHh@\I]TD=h`Mo[oSiivI\HjWnojPgxq<FcxzzrO>ral[JYj@nRFrnYJV>vq
DATA _YNsWZBTXt;fwrDwO_pE]TWpck@dgnkLVC;rZPDsr]PHwgnqO>gTc]VygF[\Xkv`
DATA wmZ^;<i[oP>ioD\Na\h\fF]S]><HdHq\U?\Ad[AlxleGL<OQBuchg`lw<>lJmKpE
DATA T=pE_^cTD_itN[dhA_KblFCDGu\?P@UF<NXLOmGE]xNGAmw^Ke@;Y[RY<m;\QH_A
DATA lJeJkGA[ykVuRUKe?DHzL^tViN=i;>jNYyg\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\ubKxZGhc<WO>AzASBUVaedREJqpYUKewGH<GHtZlVvikraf
DATA ujDUftbIzVBZjheJpBurRhOq\S^<=db`pHK^gtIz^WhuW]pyCzAPP?NsuZuuA@Vs
DATA etHKX^w@mO;rUMbMZMotzqH?o[DXjeMuBZmf=@VkpZOttvsYkUvZun<BZdFxttzL
DATA YOyuOFR[EjR\@ZVrFVLCrVpGcJwWO_D^zGQ>I^^zITwAWIb>ITwAWIrrTKlScnHZ
DATA oTgzXBnjNnj@BFTf;H]ShkAUpomu<;;;KH;;;cxYo^<C<cKOGD?NDD_FO\@PsiON
DATA ;;K;hJq`lMgcSVzMZ=Jk@DTnKG?;ktWYGMYsY`Nk^lk=qyZfMryrYrhqnlbWzVJ\
DATA ^?=\Czh>LNVbuFIr>ytrV[a>iteftTYyhtyonryyfY_RU>[yZwXkuWKguOZvhBpz
DATA BycGIuUYqEamiaNPlAJmS[YLsRh@N;E<[vvaSii;q[sEapV;tqC?`Qh[peyngIKW
DATA w[YA;sDVYS`JVMXd=o[zD<[>;RLjfQTX<kc<<dZxxhv;S?FfnsB>HEv]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_aJza<HZKTkhGQDrTj
DATA wpEnLTkuV_gCVAHH>W^<@hSksQhXOHkCCVx\=oBr<LUbDN\mQ_[cCDMV>S>eKZg_
DATA fDUMUBFZDGZntYuscsv<VeLO?dNNR[Rg_jYnOtdH<PEk\KdCr?gRFXC]_@MSlTKf
DATA B>i`Fd]wF_Q[RUlEzGm>cHoAg[lMQ;X@w=v=NfarkOcHbPIXnfQLEnWEbASnX\qh
DATA DClXmguKcrMf]nrTSMMchkAUpo=??;;;Dd;;;OOZo^<C<gkKND@L@poNiCOKN\nL
DATA H<;;>ssUVBfdXZntMsnz\P_;_HIKHt=humi]H[hxASyADi`jyg<sUocjNkBtalzs
DATA jv>S=>`_hSVQjHWYh[VXHUosfzrVxRzaQGw?tAVgPQgzso@FZrL[UYLxB[Ww<`mm
DATA HwyXu]Ze`[tnUKMam_tDSQnC?F<[YIa[plLHEZsn?Cj]SMQFOPb;PZ<eYrJbuCoG
DATA C[Oo??JBL;ECXCAcPUL;CGDoM];Wy`bT?@E<k]jBM@L`IRY<=?\ADOSfc\IqXdGi
DATA yFTrb;dwU=M`NSUA@wDouO`QDMu[LyhzkGYSQiDYkKjzQna>vitUDOY=CS>FSIBG
DATA IWJZ=ppEz]eoddNxoWFDzsCYN`LhnnHuSX;FahDjlLjYSKe]kvLA\[?RYB[baBJJ
DATA NrsvFSi>hE<HsXPjCavN]WPc[hx]]@gboPe?jgbXVgI<u>iBGwec^_AxOBxc=TI`
DATA aj;`jC<JQp[]pF_y\IHenYlj_vfpfOHVK<rQa<Wkpq;kgsk@kYsJ`dhjVxTgQa@l
DATA zkUfEhPx`Uj_YLKZPiuiTTlH`CqvMWneRdcgxOPdqFzCrVhfhNQQ_ZTYQwb[zsyl
DATA Pzb]pAliyB\xQtU`EH]tRez]pAtwEDpXV_pKo@uttirfBInLdGKvGrpFomIU=Pr;
DATA @>?J`=?JE<iDipLlhVWvxCWzbPczlfyISHcvZtephJ\oTyFblzkFEddXdmiZOKUw
DATA fboO_cvADCu\rR@HP?O<Cj=N>uQJFZu>q<NrVQ;MUSfpLRILl]qTMy[gMBCgYj^H
DATA B;GHIVyYkMrOB_bx;_VWZC_UysUeNSMY[kpIAdu_?GUoj>_=\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_RlxVeElZiU<AHPeIU<LxIsV_[r
DATA CJYb\mxqHNa<VqJAuJB@XQFU`AOefVkGzNri`nJ=N^_CA=?DPq=VcPNFaD;;;__<
DATA ;;;JuLJA[?k=H@oM@HoOMt]K<HPAXo?;;CKIeptXOhXuZfn>z@HggetmJcrbqVnp
DATA gtK_ZMYHfU;Hd[FqyAFNfY;nmyx\jsxQo[;Ss<liRi<W^VBR^aq?IThYUfzHJi?q
DATA p=O_IfFnzmL]V_mcX<>NdKO?_O`AASobcT=eeK?mYMU^CTT^=b[sDGSjD;<<HN[g
DATA IaYD<@?UiBlc=^O_GOCfbghH_EP_uaNCGI?<_nBNEQbc\KMxK`k;njAM]AThp_y^
DATA US^ocUOurJuODQbgrWtIJUSiyjEfg]fyUaRgRAFnjXYX<fUMuR]cxlbcvZ@gLgyv
DATA MuIUNSJMaKFhfDd?M\j\W]Gn>LR`BhPXOIgMLg>IPTTWIchOCDeCfnGlKdAlilsb
DATA x]yfYLpXO\=FSQTDjsSOMpNsdea^HeFvEQ?NEi<L`zmLAMgKO\xbywx;vbKOO<HV
DATA =ZUFod>=edHd<F_M;QLNr>b=JTqLRA>qTIinmyQ@FO@crGIaFL?ztlVKh>lU?uLo
DATA A[VKh>lU?uLoA[VKh>lU?uLoA[VKh>lV<xLhToCzKwAu>AbYj^`yCGiTIhbixoJ=
DATA XXAXq;yS_PjOji;^GsEjXkyZB@qXzLeWKO>Uou>C<ZZKxjAfiIfbhlU[fUHTe@zV
DATA lgGaA>qWBGvztzTjxHSQVINZryuvjbWRs>akzkY<k=?Akuz\P=yiK]jMNCHA=ZgM
DATA Nu^Wg`vZMFQBtJDIZjquhySeXr]fnuATOHyn@F?cKEj_KSzSZV_YVABKfGusFpIu
DATA WsJKPlWyBt@ZR]S=Id[k[xl>Ly>AJSYVIBkekdEIZlTla?igDDa[kxgQCwVJ>DUn
DATA F\\]>BgScqNVZwv`pP@G_KUFg\QHhKw?;;KHy;;;idDzS;M;FGoOMDOKNH^F=@oO
DATA JtLN;;K>rkRbqpuhVGvuqNqrrr]<DuI=MfOMqMXUwa_CVY`aDDzDXqdWc\z_]^C]
DATA Ko;;O[obIy^zvvHw;;[MdS=pJevlnk]aQow=mTYNFWdPdnxmptQtir<fLUvqTjzJ
DATA jZJuuVVOrL=?Bps@PEEHn@O\CDYnG;`KI]tGAhiuDq\`gi`L\Gsv^fF\zQsBzdkH
DATA gsa`jVCLohv[Uo^]vl[EjwLvGNj^]WxcLnqgfrBz^C@^Lf=ArAdmGaAvNhZG]QNL
DATA U;fcwcQ]CPSjAXBKI_NmPg<]<YJdiSWkk\i]?g>]pEzCGO;kbFcBoe>yR^N][kg^
DATA r=inG]JtlmpUFRqYU?d\RgR@ECmlAWAgjQq;cBw;;n?yv\^H]@nIg?<LhBjpWn^E
DATA MNSl>>NEqD>r`EZoKy^R=bnSj<n`;m>o<x=mq;Sd_RKF=>Yg>T[KI;CB_AIBaPYb
DATA QWzNwsabwkUuLa\g]]N?ftarHqwmQkkX`bHvQ<T=RsErbVjC`rymqkAayLtJ?_^?
DATA oFwkFYWY]>isMDFLG=?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 XFMFTNVH<C[ylySJ?V]@lPGq=k@wKkKaTMfFZWzVwWug^;l?[hKdp=v]KVLlyRu^
DATA iSlEsMuGABKzGuokOOQmgD[^wBPdmN\R>qN]LE?\g=w`crlGzKSXwWbFxzz<Pldy
DATA WfM^SHm`HCGpT;t[];C<FkaN_RBt=Z?q<q^tp\=;ZFq=mNBIFUnvTRf^gmR<JaVi
DATA tivdZ_kSirivru@uLgKxq=ISDRDZ>JWOFU<HjWZu`bCBzDKCKgepxy?vMDZiu^^z
DATA F?gAHKjRBI^GVgJxG=r\tBA<sPrqGd@;qCMDlaAUOlPClpSAtDOaMoLKCM;qYoG\
DATA S>=IQU\COHwxFnKBKXuCCyFaf;Tpcuqn_u=AQueOAvHO;I;m_KKDVD]kP[LpNKnU
DATA PDhr>RXSc`MSDyTQpZajgbr?RagQv]cBtIl@SHzfousCORgIzlQfBDNtK\?cG[PL
DATA P^mw;bQ[SHB<?Nm]D>;wCsl`Ydc^c^zMSCOjuK_tq^qRCA<>NLZP>qNrGEnRlEXT
DATA egUfr@KVGER_pw=s@uxdZl;<S\BRhg?^GeKYeJ;g?<Y>Jg;zgdatHB\di<Kj;Lwr
DATA QD=>>VPcd<cKZEG@WvQNPHviMSgci\YVWnUVo;ILLDgUTJLjSHY>VVgccdhp<lV[
DATA Ykgl<f?]<=duPBW?`v\F`YyZhP=qkCB@VyK`>uUDpnJJxYLOSRdguUbONcldgDcC
DATA Com@KrCHHHc<G_xLLh=]^uIHcCHUQ\QBSaNU^aW;cCeq`JAtWTMTiQe<alX[iPDF
DATA BKYMpKsXDZua@k@`<ChTdGRSPNqsEe<]hHiFdgd?W?\AuLhN@mXbfiOrMNxdD?PU
DATA SbrTH<^LgVKr`Q<hSpKJmHOyLJAA;@BuZL_Xi_EsLBWref]\Xfd]t=_FfnL^P]PB
DATA ?bYIOMBTIWK^_]H]RECx?lRSpsQ>W`AdD;OPVu=?gbTreCiyfdI^K=>Gc=yYi;=q
DATA Y@kXl<<Fu<@<\L=q?evA^fbU@ut@A@JxZ<Da_h<puNF;cuDSu;G@YH=\i>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_MwL<G;D<Uex_GxsTBckQooHsmKUeERxWh[MzVYCWra>XO@NfT[e[TLBDs
DATA oDnLFlONQxNnryFr>X]EuKDAs]ySm>Rsl[SsA=<vo_AA_rYY[p;RSlEYHb[IUPZl
DATA >`[KUQAU^cIsa@RTKDUFaW<LSn;Qohk\yG[xlcSYNLlMhjCf_H?pl]JVzEJLZAXx
DATA llHt`ZIjIqkfjzMRYEO\?HmIEbO;;yZYqqeVhnl[w;OL`OE?Kd=BDPKgkXgi@f;q
DATA XasIC[wCqomtXirn@B@fDBvOmVKw?\_JFdFLwHnb[?ncZAAnrS^[UooCn^Yh`Bqw
DATA W[p^Etb@vereqX?P[p=GJkANIc_^Vh;Jq\kW]^ytvaR?OMmYcfHh]BnAcXRo_\w^
DATA lKGtnIBFG@tmO[f^Wdo[wcPoHV=AIo_B=fkmPsozNiXlc>boDep?NaMIfZiAFE<M
DATA By?Anr@p]JrAyn>a\jzSe<fWvyofsSWtO]DpATbtWMkCBqKM=O`_\spNjxLC;VgW
DATA YO=;vpCoo@XgOntiF;\ptMaqwNyppZM;<GtJvG@OUQQtb;;mLcnGbk=r;jbtcnJF
DATA k<ZR@<a[ge]G\iI>]FBF<`nkIo`bb<rK?;`SIaFEJWli>UesisJB]KBgg\zKL<sC
DATA U\lG?q[?KzK_bnAzhzWg_nZIszeWoJrfhdGi;hNi=sQclZGksYCiHDvcPyp\ytGu
DATA M<zs__oRoAbsvEx<=o\EVzJd]dzxOOweVlFThZserMSdXnw\U;G?VRyCCQDsCODs
DATA ocnGZX]eDKeFDKfGDKgGDwX>wuuaRjtGZi=YQsk=wUx<xjp^BIOzwYqk[=OpfE\v
DATA s_R[dP_VZWWs<vYKRK@<]YJXnhJB=<jv^ZB@w<`TGkOA\;vPxWdI<d]gz_WBh`It
DATA ta_fKUymYoIdQ<Y<NLsZlz[zxS;ClDzw]wIhf\rkir?hpoeVRjTh[s;^USBDfAjP
DATA X^[LCGGDGquULbATf<Z]OTvNVIcvsaK?faEjK]?RuNYX>i>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=<f];iVKZYMKLmd@<c
DATA mQ[GIqral=;G^JqRgXGzd@b?fK\pNNuQ]lpt=QnVig^hFr<JGMHn_L`tlJlbEh\L
DATA KC?__TmhjlbsOc=GioOw=`bWxtES<_FT]xHvSFqcTgoERPSmLFH=CFS=RcV?fPBY
DATA @azeqetsqGBDUizmYT=tgoWDXYLJJRhYYDf\NRMmzUVfyxcebzNAl[FoVpcNdzTD
DATA nIcZkSaEWqDOi;L`P>\ILqJh[W[>O<=fGT?undOkqCN@G]R>Zf]ffcWqtKBMp=>G
DATA sggKi;QMIdcOi>oz<U_TwfUMW?E>]MgjnTHjYvPNxCuFvtqWrUrYtJNTl<VxgjeC
DATA jWu<TXWgALDI]xQKUccFWVJBPkZ;[TYm^GEHTwjSqoYnQY_lwZulLfAVMqzvcjjf
DATA LCUbnYxuPFeFl\myLt^t^dyRoqsIfjcb<I\@acC\;mHjG]=OfeATCoiccORy^I]z
DATA sJEfTjx_pgLsaSPXlNmFFbKPCXxmmV_bWhOLWapb;JbL>r?@eTxUqUPUb<NVLKXb
DATA PkKKgnOQJNTAoKeAcv]?BNgPow=mN\tmPg=WES^fx>v\rTnL>jNaiB]wEqdJ?\IE
DATA ?h;u=`<B=wSQlBtZP[kb;YaMNZ@r>VyAFQeIXamyeIU<hoK<Veu;QE;<cWembl[O
DATA Q?Ya<aqCJCQP;TlDyeM]zfYIEdC<]XJrtYjMJzDyLDIaBD`^eB`hMs\_`qtMJnOs
DATA @THjyjt`jLB=ltZV\vhAItKIVnvsVpTjss_nv]HDVOHPzB@RWJvE;xeKebxTaIu[
DATA fBECzbpBwcYq@QTFOzCEpiXibFvOuE<snYcQoR>SmgVcJHPMHbXefzgPUqq;KoWF
DATA o;?DoB;YTVfRixkaQPYNEL=V`UcyAfEY?<hMdnPyvjS`=RkhNFDiAhzYyypCTo_O
DATA urOhnvypdLPewX]tsc;a@dEX?=WQsrOms`?aS]^=UbBCPUo=jK@VsojyZl^qTX]o
DATA ZERnQ?dPO=PvgMhidIu>@HffKn=nXg=wI=re\wo`AeEnIQNv>RahxUdLMXx`\DaT
DATA UgAF<d\e\LFvdnMumYMUc]wqaponphhbvggZvoGKkGQeVKHVhJeKnB<`NuKR?oye
DATA f@[ageST\fPPIe`DACu_d]PEfL`\Lc>Ew_;[gAFl_T;i>bjEfg?Kx\rzhUlqhqJT
DATA p;<GRRrAQNjpNtdcjlBx[hcMGR`cp?Klidxn@trvWdJcawXRND?fcZxIV]Y]^iUf
DATA ecvSOTp]ICcZBSzje@U[JZiQtORy\Y@yaTR@PllFx>`^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_<FNkdo>x^QhJATsmWkOb<ysj_jiXgfRj]Ep\[WkXF^cB[uSaDuVzHK=]k
DATA r^j@HD>oxF=`\X]wokSBzrmXqDczaqnPr`tXhlrMsoSyKaJYmBp^[ZsUNzZewmAC
DATA hyPlwyOAUvmJqHn_kWBTvwoEOcRLa;OEiwzZGHljehmGjizDZDj[^IOWhew;ctAp
DATA cQGMZVOou<nQ\KXR;guGI[vUroGZ[nrmIrWUQ^ufmBxRZfOjgvuyvzaEomGHHjo=
DATA =mWsewOaaeBbtQ;ZIw^nDkgN<MSOCB[yEPQoicBem=kkUQOI`aAYSXpTJSfHUbPv
DATA eOYBKl]GCzb[zuaQ\b_VsPzhAlcbi<^trg\l;S\pXNLSdS<y[iwDkVt[KlXsZI\h
DATA lJ]PB[LcksYFmOY`g[CsE^GAqSr`bdDRfN@X=]J@y^IfQhxuHbFssCc>wIn?L=D>
DATA PU^H>pffOjn\?ijKOt]CQe`cs_szBBTg<dmplGWIiX^SDxP;>ukBgf=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<<PfOQ\R@HTel;MPYXi@Pqdkah[zBQHGMs=CN>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>DYylBd<ermFhPxVuYdJU@
DATA m;UHCgMu^AYdNPILqpo`fQ`InwgeZa?PQS?MXX^R<TXMXbd`sQrItveyFgZOb__K
DATA zemSNYfOJ]O[V[VbgLgPuZPV<KrXQ@T\klODqQNtzgTDnvv=b]R?;eDCtY>UJsGJ
DATA al`ThH=RpkX`jN@RE\ZvIDTzVlM\n_FN\ZETQ;rHta<l;BhGfPBe^\^hThl^WcwW
DATA mK__fNsZCaDdQFbflHHcCfJ`tg_XegXU\^;gW]G<W_b=icpBzrHRgetq=ahUfs=c
DATA kpQOk`TFRzipLUMhySvopSvey>ogZxFLvD]IlJ=j?sEw>@tFlWgR<GKKZ=dCKj]w
DATA G`Q`YRh=d^^Cedh`cp?PNZeKsu]haic^Ce=EkimK[^JZhjEYAZpwAm]fDSp^b;A<
DATA UmZNV\^l]hM<EJASaTVhfsM]`d[_QYKbFNdeEDd>LTQhLMcYpHpZ^[@mIrjIdxRV
DATA LxKZxh=KdW@v]D<vgj_=?EZ`LWcby`eRBJica_nNa]egPh`cHuTeu^ugZZOAjT`X
DATA yyfV;mj?ebm[uLCJu_hIUFYr[Z=]L_vr]Uh<i\ZdxM`u<ES]d>pv_bodJd;ChfUk
DATA DSusKK<Je``Vv^uWKlxe;pCOAM;\fsD\mPtUIMWJdUuFXs]^dZzdbVohNzVefOBa
DATA hP_iynfugg^OrFtRqsmuISa`YRxSZiPGVUVfx[Qz_uqPjFvOcg;HJqO_IdzcsogM
DATA PCvhbRzf@P`@dX@d=Llcr@TOSTo\_SE\D?_WmRQ[PMtSTF^Vn^almKa@mel]DYJP
DATA mRskIOw<ksUlt<Pc]E@>F`fPD^fK=PaP=[sYD_gEPD<<G@Q_tFF`?C]xLugLOd>u
DATA WcGwdhX>`X_GrE\WeTHohKmteGs<pFelksjgqz]iei=zeBmzFdcyN`CZdQJpK>io
DATA ORFuxoPu@Xe[dA>E]UXrJOGRTXXMZZHNiElXpjQAd^VpU<sOMFGnIlffJtfSAfz]
DATA WKZFCFTfgMTv_XtU_gXRId]v`IuGp[uLfMxcmhYimSXRPWUXlxdpnMmm_XIz\Uqh
DATA gVZpa_P>`iwru^jrrffhqxsmEXVJqYrf^e^jJiRckiItwFmGHp\fZZiqzZ=lzJts
DATA pHsQPmJXoGkquMbiWYtO_vrVxhAbggIYzEzYjJBmzHurzrHwzPHwujWLuzZBJhSt
DATA dmrpBj>tuzy]gzvaeR^vpJkwyg^?YdsPBnGneaTaMbmL<jkCleUWcvsW]eTZoy`]
DATA meQ\@WCwc_TpJN[ScAMoRNSPz=MhjWANLA^wnoFB;DaiHtUbn@oSxRrFBF?IE]Mw
DATA mG_DGDyV@V?XhquxO>mHKxXPktl<kEhpKemDJ;ScvnURonh@zcfVN``lU=^xrYb\
DATA NIc^TDyoXPgn=ftyNbTFrO]__zxqQ`uF;<;;
Done:CLOSE #1: PRINT
IF XCk&<> 7796697  THEN 
  PRINT "DATA corrupt!  File deleted."
  KILL f$
ELSE
  PRINT f$;" created."
END IF:END
