'=========================================================================== ' Subject: QCOPY (LIKE DOS COPY) Date: 05-07-97 (01:40) ' Author: Jesse Dorland Code: QB, QBasic, PDS ' Origin: jessedorland@hotmail.com Packet: DOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"QCOPY20.ZIP",4^6:Z&=19020:?STRING$(50,177); U"%up()%9%%%I-%]7#Y%Zg4VA39R%%'#%%%.%%%%vh.tu(S[gfxf2,bZEnULFT]kjgJz2(W2cKFk%J4. U"rjGk,?u;QP2S=\]N2gc[1[i?hbuJ8YHuAunp\tuPCE\=M%:TDfNSZ>NtIi U".qeh[+60**u_593wKFW6DC2>AkF\5NNDf4?F'RVTu75G1&JJS+/+shY$cJ.-i[i U"Pg&'q,w[g8[upSB+'s5/'vFtI8pI_w2811fDs'Vq9x,O0.kzeW(nGgu^*,gW\X1 U"M#WjUAtcA[-rZQ[:s#41iEQ0e7A93,3Te8ge[O63b8(NDpl*W7Z:Gh[.bP,LnhZ U"^8JKM%CrxtVI=MFbbCFBA/^v9czED\'iuD0'h79Lr4lYr4c'-B5dQp8SPkm(JWO U"jpg>.i#0O:ifcvspbiEHLD+C:i&76:pC8yYHWLXR4.U?POB&nueju%%3eL,7L\' U"/GhGAR[a.j3L;x$SgLihI4yL+M[h.>%,2'q:j.Sp*pKCdU+vDg:L.8qhe_Zd9B9 U"H%HWr0O+CQu$3j'U,*dC8tY5,*RO0WPo36xE[0;:;mw U"qJnd5*91IeB,5lQf8HlUqb**]++SMq2Q+o0Q.efPiW&fQ0&,S*G?A08oC0\=2A'-90xeMMB U"D87&$54;:ys9i:=q,_\[xCEDIg#q3z(I0[wPQmG#?-UWWGgZ0,'M80OSCOtm;]> U"Z+K05P#Cdh0d]2$zt0_iz227C9<07dCco$pi30dC0a*J&Up_R:hLp09Pg=k;*)k U"4)vOPb2U$w$9o+=&ME:V]F=lLIoXJ/REXa7kQGvROIAzR-M9XGpfM1eWFRhR^NM U"+\[A+dATGFA+);gBK&02: U"=A>aW[\VK)+ak%yDLI77.lGTVEa^PILOkrX[tlNZ3[/$\OAF1i U"eU1-Y#D$_3oJ.B8sC'4/CApQHNV^GlbpNO&u%CV.RpW(1vZ8_oSV'Cd<0e+ U"(I3=3P?k*)DR471dSO]T/pp&g8F0E=7vjB6[tUWB\fex\P$3Kk?VCU]=7>$tUG1:z1y4^p[1d+Vr.'BZIn?,=9Ej*nm-*b0F:&U'X%CI,&w U"33r89:hGLw,8/=T+FE9CF=^Wi3b#2G05LimDLZ\7T/5YO:A,KiGB%1G#jzKZFs3 U"c('m%'9#e*R74+pacpU>o$^%5rnR'x]:U(RPwLf^-b3Op\g*vXAr(vi&zEmohi< U"=nl:&z04qn(qP17Y'UF/H7i.=EEKy=p$-O[:r&'Ph)4sTce=e%Q9nI]TI)7;N7J U"MLea5h7Me#$Y5mqt\5v/f#Mh3Sm-z&cd&3nN*2RuH'/uR/;$Y(MGC/UwEft&4*0 U";Fwb+?y$(#.$r7g^?r(?X>rE+DT]36OcWbW';+\bJ[*&M*8Z#tE106UM3Gd;X4d U")2cRO7Kg.r5W,jX+wiKlLzP[kLZhY/6YD5]C?'2a6:mci0=nUf**Q+--pOj7UJ, U"iSED4nRDmckoo3'H.S/RS:Lv+f_Y-+jCF*[[7SZa;y$be>djxrYtKg3q(rWmoYV U"b5N4rdaoe./&9gQ=mdpt8rcaH-at=Dfzf.;nN=DP'slbDFb#AmX0A$u6j4H1RGk U"sY=_<#7UH_l$B7Yr80]7EcvBe0l53hFPPS(oRP+,/aa U"([uQe\Z]_wF&?e$pi+&weHU%nRjAQ^o/8[OwyigYj_3K?YlnNI88ioKrg)(-l5=U]+Z+d=H,VJP,b#_ U"?Cg_g8AAu6+eztBkf59R'vEaF$.Q$IdD]QBgM=.'ETp1%k8=L%twT%mYG^+$]f\ U"\t>4,ZixMwa<&7F,J-Je6uh_:%3Tn+4PR:VCI,6ehVR[?=oRB_;a/Iu_^<+1#ZV U"riyZU>R?AKV/mrY&Ct9Mq'N;C6Pf8t#HGD[QLC^z#I-6m1F:9EAB3E:.s.q/SVEU'owU?m7h2=l6,vci+IE_4>aIi[/8,DFktu23GoNuQK U"v6pwjZ:mpMTXR#,xgWdY8id5zXbgd&WSuXtiN/HDA+==&e_YXvAt5Q%X0q6MI*/ U"_V0F2bau#GADgiUnVGVl\djr4DJzU3\5oA--9)/E]o2^FIk<0\,gS>7HI)&N;A> U"D_5QA)#bkae8)6e[VW($27O;kVZ$$Y2H$LEO?j*8\o23?=%x(&dIa#]JWLFYmtN U"In:l5n=_0Toi8ji>]>HM1vqD46dA*^6qZ-hZ^>4rG^YXni^2q?^jwaC*dv*J3;5 U"c]$cs\E]?r3;Hd0kglU5Jgr=u]v%l5RS>HJ]6f:dUlnKZ U"-8C<[,35G'Ja5(T;g4:VQ/It#CgJJt,RDvm/:V/h?/S,L0X,&T?]+\m*X;=i)DC:p4co#%/vXJ]wm2,wOkni U"'niT5AX/4bnxD#JFE19B,:OlqHE\SkL;<2E>l[QSF7Fs\Alrhi U"RIg2C)W#CtEUY&ZNIV,81[)>YLWJnu[xX$8.Z2sdIdb_u^q)2\(K%->23e9f=pQ U">RL*\+-\rAZY4Q%j:Zq)K5;uSVN6irZi/Q/MkM5lT8 U"N;\x4:9iv,3hsuyF_Dvahf+rCf'*U0zmGgEYOj1DeB_;[TTrOPh:]F#<9s(p,>? U"h#gj;C$3KMjr]g2[Vv)K^+\/$PjYjSD:+*tXEPfI[iV\tzAmIbQE#aU+gwM,Ih( U"l\$TP1\o[4^p[H]OE16\H*6MTXsZ7T4,6\EEE'$d+^T>q*RC_\u63T_$hH-c8=8'0=NYSjW/j2Z6Nd1qh?Fgr?j)7CRmaarmKAZ# U"g8q/HNco?/p7V^KaVg=jr#8ark1iTS=U,\8j&cT=l?1RQ#NRj.-[5;5'IOJjG]4,ssVG3Tkqb+J]?8BRoeA)ndlFwU&O1>9-%$JqO? U"qG,Y+*kKvD\3Z-IMxq$P)PPROsPFHF>ik_37Ad),Jj,h1l#HPjJy(E<-4-7^B0) U"sW=R&j7d/bQw4I/L3aPSyKQt^kMe:PkJHjQ>VUhXFBUjTJbW,%2MJ8Lw4J]YpM< U"FwCzV]r>Zt)Vv6YA5qj]>\jmgTG%[0u80CM+0EB/%.w2Q4]EkC9pu3AG?Tt]BBP U"I\=.E6RKL=Z<,>BnANRaObS?cN<)OV-,Z]r\oUBk-AAbI;^+uMGXYvI U"VsGbxtyBkauG20vPqYP.5wY>p=/M-t(6J80Q;s<((35-b U"CIXgNs)Z5m*>aPbh;?Y05XS,f9m-2fH/*f6;a<1Z?kUdbtE/&LpsmI45/HuA/qm U"oZ1i'l4oGDigGaQ:0xr&(g^tcU9QY*\SmBXN#ytv6F>\8%grUXOf-,w%Ot7Za&) U"9pU()_\Wp304QSEJt5z-#a2<38g#B_d-l[.&/s_TU-9Le#^:tD^Nf,5_qjGllTN U"lgaeY-8nJHIeQHQMC2H7h9U7m2&d9+.CR&]*;=x$S-,ZWH/KO\ZO6Mivgh1_#yV U"L8,I95qEmjMC.n[9i,Hz,Rvd.L3G1d4QaE-4,8UZ>Me^pR/L08_eEFvnVg.i$hoUdR4Tr+uu\*gurm>lt(ddlx'UpeISN,A/:k:0\V U"djgTj>0*vJxLdEFci.LVo#BR'QBVQdr[E*h%Lw:At(azGpOP:,T[%ajg=A92AuN U"xPMbp=ot+jiXFAsZ_-MCA-6bza'Z.WhuU%Av*/e[]-eL=CI9z[;>JFM0VbB/)l0 U"oSuAbAZm-TrL^m^coIL+Cgz33bVpfqDYu,rYY1WR)Z4=<,/S_V*K,2,phZ1eVBCdgPipC\[l'Uk,8LU97NaQBe>1[j:0.r4Q%])HSl47Yq U"c.x^uH##]JZ7\U8mSYvP-1SaE>EcAg)m5W>K^l]xJYn]X\ZYXW#Zf/$C$DJ%)12PlNrX]mkg8gKpYXR6S:B7t.FeTtN-, U"_b]2NiZZTPa5VUu371_ri\1L&b($*H=34e.e;lQlS*yZ^v'+(9VrU$xcj< U"Y7(g[k=DJhuh:skobI00_N(KSr+$R&Ee3;+jY&j[/:nm<=zTm)c4%*^qf4KN$YZ U"$-tn.(]Bt^MFF%VPS_TQJis?O[)^^1#5sSO_&s&W.v9K[kk3O[d[ed?mrSU2?Aj U"lB:xkwFe6LtbTEUnNoN:>\Zg3uYxJ#_UCpmn*7w>+THaBn\Y*TpXD$QqL<7cs4# U"'aLF.esLLbnWBr7r]^b1ZCCoyQ*9Z5R+b%c;9Jin/6/v9TLFGgw*S10key6>?Oc U"N9*6*IBOGn/z=T>oNY>*)L;qidZUD3R[;3.T9*G:Ni<<<-T)6n)'rfC[;oAcZB% U",:-uHbETg*>U^/4$R<(mbHtv1s6NviT#X3SD[T.(pQe>TQsq/Umb?a8GeXNLevj U"vmNmIvGj;7RXd&vMMn-xD8&i/G2;k^:MEUig;PM9NV%kdF?Z>TOo-Iu90q1$sMh U"Hl6XX4e==+x=lL/t2k7OfEqB'q;Y]Vu0HO-'f6F>/-8,R[4EfG3-FU:oMW7ZN== U"LXsj]oJCoDN)>aUP#WKfL^S.7(IXk3BhC:d>,YNsn]ENwWC6Q_5VuNu%p()9%%%%-4%;M\j%t$T&M3&%(%j&%%%0%%%%knq U"(j.ni#Sin);,_FsB?Ug4M>G7%Tq\J9Y\F3LQW[lQ\VpHr.1c*kD$#qhC0]#*TA>&]X U"gg+wL2-xWg2&>C6Qf*(d#$7nZK[):d#aHD)aL&j:m1Y45tnIX9skuKCc;uqyw=S,8)qNJq U"'hqpT^q>n8Z_MWP1>+\nukhd$(u:^T5(H6'Jyr>aVuVu.w5V34SOSd^>K]LJ.zj U"Ft[X'p]4+Zlo3=P%%,^*kAQt:Ow%#)&L(up%()9%%%%-%)\M\%#BcVH&uX%%-D6 U"%%%.%%%%vhtu&(SitOhfL+nWr[6oVBS4RJ:Kl+]WK) U"=k_z<0U9u%g)'1p+_Eu6Nl6SN3J-I]igv4%szciZpOR'L'5I5tIsnb_U/dxh:NE U"sYnm??p5]YwZ,\xKVISO>>*]-lHqXB7D?^\.WX8^LZ(\hio8/xv6Lm9c-455Lo\ U"H*^u$ekmu_Dv;u5$:ZA/cbTZ:=*G U"dNKZ54O>.sdTdMkeN]xxBiSnd+;,Qoqz'>[RVNhi5^6yDj$6bRPUg9*c$>?uxnFKg,3u#SHr](3::6#(HqhX# U"501L5zP1ZG/sQ=Hi=)+io6B%meW\7nw+U1HT-C,m:6):XbLf(c]A1]OKM9lwG.) U"tfj>mO8?#3/z%iq1h\Z,_mWGMl4pLczwQ:#P(K&(zTZ3DZdq$dTyn&>w_y9Hl_: U"BQ7h4<6qsr345o)o1P(XRPiv^gm#9#u1tP)Zgsx&J)RzcElembEtInh(S:7IFw_ U"307ICdVYdQ]dY'BF?9iM,7Ve&&2/(OkhClTwh7]erFh8't.5'A1IWOy1bM:L'^7 U"(#0iJ$HZI\L0*#+rT][9m>ONKuvSJWd(8Pn=O:T?^>OAt?OR,GDI0_W( U"N1]5o(5^rPI^:;+g9T-P&(aQ(zn:=lq)Ww?3kC+yK^w5O(5C3xlrsoc2([?s_&X U"zFnk]BQOe,Mxdc:FR%N#HXs,sBON?#<:LngO(KAg=OH2_ZCh=8#rd%zbur,eR4p U"BvmQyIwItG]=burFRmaqua4bMXNqBS?+(=oJuZ9/UdB(Xi#C(A-] U"o3IErrQ1:aMMD&4SwJ;Z;=]U'dJ?uiVJJ'D9Jh+z_jGOx#m-U7YO;.MkCz<%tOM U"[n[ZZMoXtWfNOFd1HEev>cPDs-mVxQd[AWL3pbZDt$>=nZtRUiLi*.1BS'9]k_d U"D6V+_#h'qxzTQgq^NQuv'Wkh1b)fwGNElYKcrB&g6'ddLPQMDyURnKNgk>yI18( U"_.Nug;^F2aMMd9U[x#dmkJLfSck?6;%2;v'_z^AUy7]kt,Gp.OekqK3.a(qg7E% U"Oc<9V=#O':7AE2.,'$]vrOIK54I$1fx[l2,,,ULA3P=^Rq]>%FcFv%z-i(2[\3< U"I0.(G.aI8Hz(N)d^?9q0-VWKJXx[]gzbI[_To2aEd)n_6xe[Qb+O(En)k5WIia; U"68m5jFblgP)mO2,':\A=$F1IjC#otzK[fp%=+,_X\,)HJUAVNZjjf=^iS?ohYbN U"3Md4Sc._BO_Q=^1YUDv)SbIMv(hh=76$'cf:W(:zaP-h-e[V\Xt6(GaPJ83y]?F U"nBx1_?z&R[N1,-RtJ5TT%A$1dzjFn,IDw:pHpls4t*Y7:E3/D&Zgb;%n.,wO4il U"W0^kZy?;,<&%5j<*Dx.K(bqh9VXx<6/?q)J*Vwt^rSTY/2,<-,u63prZhhiZUCW)P-;EI4Jg=j(\A]$Y]_uzZiCO)&vBwtneDcX U"qbkNKek1N1(oq>R:_J7Un9Vqye-kRBa:?Zil,IXOynfJrA(5c'%/u_.kId?Hlog U",(;O\W(>b2V9g]jG)?qG-U)U:,=dgQRNS%fAm_IpfeW8hb(+8l*H6&.lgZ<.:s/ U"#C.:?p8d+P)%RIs.$jxbPCwtNi:mFndlK5mO5(5FwfPYyEOCWwHaKi/W(Jg(3mL U"zDKZT,G=)]PUX[m,Np=o&.M%0>F*[5o't3d90Bg+2lJ2t#5=i&9aKCntn(Suo=y8 U"MW>fpa,T%U-/rnpLn9+QX]3gC-,d42Sh.SlBRLIPBO)a$W/^IpoX2RGgh4V\RWl U"lC,Ux(Te+,uCB-%hQW\XRmVuVWG$eQcH-4H:5ySs$'xQ...9.9ikdJ'2'1zJ3K( U"pXQs/pd&2Y3tf4\e:vImy$xXF,qC/,/'_qOzP539:> U"Y'jDy4U/[SSZO[if[_V\0.3:+Bh9';.EPykBWMi41'Yd-DyCnq+IBE'-ZWI8eJ1 U"ZK(=z]U7;k3^bCT:kR7oKdb%b(cDvI.5:a5'\O.Rz.DLhT.rG>WgI6z7I.cK8o% U"cDSB1M*o&FK,2bQ8iw*p]l:4E57aO0j%G/8wj*S6,qF=gh)>_D]*R4caEbO.8k/ U"wZP('3V#.L_9[/lJIvNftdvL6LuLlBNd9]p=3Q\h;bFO0jKZ%Fsc*8]QN1b;o;G U"AjnV_t^x4).%xg&uZS_Pe(3=vo-I%]>=4ZDZGnHI+3VSR+2mq'sIiKRQ:+*TTof U"FpM(6>A^^p%E&u_O.nHlcCE]E_7RdWR>j]m>]l*5=8s^g0VK(+P3Lg)b#XpL&D' U"[>O3Yq_f5;Jh4S(udV-,W+kkfP)*WJ$^TvXvJE56i;Dpe=X_rWq2LF#3(bio:[# U"$nytZKf5XMc/[[U9^:Sm U"SXHFa4C1+)q'[^tS?O/Ar-?3s]9F#2$[]k37O,O,y%>3.)XPRKOSC3A7FV:)'D] U"-e%hCsiRQ6J)t<>#$qArNI)Q%?lwo5hoeqx$l8=$1nMd6QChXhri&ZK&Xe=?ydy U"vX;XB[1Ud32FJhS?$mjswMWR4i1=%SMx%6kxT]DgrIU-M#\HM#uC8Zw$^RXOIPJ U"(VQ1l?+U5]ZunLJ.&*X9j/MqpT+Qkdu0J:R,viRStIwb[kIk&_K^r-W^D7&Htsx U"$p*LzN#SW[ZtZ1;tpl>D21#Dm(HEYw3q'5Myy\Q>8U_nE'E=kOgM:U7^Di^Bp,HYB4K)e'Iz)xgRzCe7(V1suKp+w-l3yVt2+_H U"RvrK(k]Lj2*V8[]$(N1qq#;RxF=]$NP9E0;.T5?tS>UX6Ylu,-f]oeJ>,xLL[BX U"[X1;bZX?pPf8iDwS-(#+=YQakt'-]^B2]r)N($/bGJm7V\[CurL7B:Bh2Pu:l]F U"4&CNqS+S/<*yEXNK??#/Hbl83#oXcVjZs&uYTos\f=A+Sx[]t+k/2lr,$cf_#Vv U"vKpy8uKJv]8T3q$_]?9L=&zni0P-BJtf6F&x#0(I7PXPrsKrHINO5nO,F1:7e'=# U"1EDB20LT5f+D*;vk1Qfyu:>sJy0r-h(?K2K%-D_TA=uA:pS?e#R^cvkkEQSl[(q U"D$S:3O%b*E1FL0fB1StZ[hG;)i8=FhS/QLe4=7PPqY[*\sII2%ef+bviPmYzPt_ U"Z4TRLKwZ)M+]i6aTjwE+d/uFT;UNH<8lovbc_Be,O$KFrr5x#vHC6Of/14>/=J\ U"oA&&AHlIADpMe1tClRMima%z'VlFqn#ogBy05qicm*e#mbV'Lbg-e[(OQ:[gFG\MJu.&#T/1al9_3kbSkB)gDVm-=_99JLLl*9d=AZ$pp-.HA U"]U+V]V/OT7kFm\A-]ut'7VqfFbw2DQNl30=z\?#o$p_zPT%4,7kGiqaiYgpyQxN U"aQNFY,IdAXYEYRmIHX\aUUb=rNpqdAh1m:ZUOoa&9qPUR)09vAX=B8RUg9ai1x&T&0bn^=+/%'(TuFj:,fJDt_3cV; U"hi9TL$X[9[^sb*JR>TeZ7&A2U82H_2q0x&KWKyGf,pS7wU#+i1]\rO9W;*oIS2w U"a<>1%K/o-uLYAA;8fqi+Uep7M;e3H_D[W],t?CJA)'X6kic U"JokioVKd.btUe1-sI+87%]*fVxWZ1(O3v5Nu+jJc;;b_j9#WsJ)KON[(IZimLh& U"9(ciLlugSs[+0=PiE/5)]f]Z4d.R.]nT>4[g=7p\V*f^L8Fh:3'BZz0p-$;hrma U"Csr^;:P^suC+KB86,C4jG3Nq.[=gpubibjj;<&AH[=x=L:('gxMP8cR5gZ06q6._OC#z3E3PRIROiO^RNm;vq7&Fw'#WY5>B U",J*sn\?967qHUo%]F_:IrfElu%MP4AjObqCOsrzOMH1dqQt&tbAB-9;#.;E28Sr?PIB%B03ovb)iH4qh1lRQWpu*Ddh2w(PM:ftB U"mfUnEK5us-rNX10OR;EIFnGzJWfNv.z)d8DhUU*I&Gq8i#Ent2&%JF\4tA5IFds U"Rd/t(-QG3E?B42\KWjbv3\aR%GN$j0>4dgVJ/WMS_pME>B.qo=&>5?5&MthI:;2)iT':YF\sp>z(xmg$3/hkzv6q^YoNn5InUE$voMB71x+*x6)iz)2mWc2'H'Tno<7'51[Ry,[MnO69Zf U"_T/TO7pUkoF?%Ax2^mWz[3[oprO7XI_rrcSCOM&jAdh2s3?YAnhT#;<)w96O:uQ1.EggNW#z>f$Ce\_ra'nNQC-5> U"e1twA+greYH^(=5ejau^s\LLu2u\.v+ZN(E>NWYFTaw=Zw_ap[T3r]LemY;[/P. U"SLF;K6tr)C-K[W0h3L,^71li,hK8[+a_;(nbtN^q>6n*I=EwB]PAX4o^kH;5rgUjFA3n9.Jt%W*:=\5tXmhVZmd?9V5.st7uu5j9ONu&;Rw7eY.fpUkI2bPZ/wH>pNk$EVg**fXd>Iw<'TT/,> U"/[>I_oiUyH?B=Ilw/Z1p^C'O3*]7xG]G.-[[,o%WMq(6GaSw8&58.RMOkNa^)YS U"eKFpTMjN?YEj))278HKSE_M.=uBu)g_I U"u5ckMQF\#$PR?qpOj;XYXY U"Whbc,LNYIC,G.B5jrJnt#VP;)FiLtJh(*1Ku'Gl$.zGrS6\D4cxs6+/+VgGA4aF U"ep7/*neOPWhjEGq+L-aEG)z+gG9'/Tpl;21wY;vDG:lG&C.3gg#B+\JzDl7YQ+e U"jt[_/&32\RLeX2gaVkjMOt+S\m>*oeXcf,rM/h\ulHCH;3f*AY\s1%Q^&(ticUT U">RZeuSF7_;l;e^pL?(\3(lpAPAi9T.hYISs?xGd<:Rg5C0$)g-,Z%$]bL/9lUat U"G#/.DZ]5&Qsel$bR[M1NSHaMs*&3&:jGcPL/*%5v>K.cUH+_,(aN>>)JfeJQrXV U"o>Kql[wLXPDj(/t=+*M(#>v8SGI8WNTlCaVuV;fk/s.9B>3:]B98-Dj$7=hV(RJ U"F?_domS3SW1-i_w(qIDUPDd U"):1,0i#-m-Y?JVo\E_d6hiLsoc-IShX0vY/Ll1VnPZUCQnLT.1a190#KONnljt> U"Ko<0xqUMjNg+kn76hT803a9Rq2zi>C(4rWsG+(Q_;&$fRTXJXP7L7=[-Y[%q:T[u+[CN;'iK U"+GnBKN-:Y=kp8$F'PCD6+J84N=&BH\&5#Jp78ugN=vdVCO1<_26OUfdQi48it%0 U"'$?O42$OJ5_ZY8Y/D63^vBr0ote-'b8B:zFq&ZXKpzZwijK#/v*74>?1UZ9QizW U"RTqC_HB*/NL^&bp4*MKW'b0J)^0Hlb\?rQmZYZFl-6&dFf5BL(p<\O?O0S[:CeF U"CY(AqH*o5]m,+Y(lkoG2/on6G3?(0.C#Hh/L)tIUBh1rC.9q$-#4&xPA*jI-z]a U"wgGFkXLWG5?+^g8i$[BS4/zPsi$L=gk_*l,8wdUMPmLm,KJ0r44CoR'Oe=l0I9LxTS=$'pxM.RWl%ytlG9WJRE$-8s.b)hiT U"0jvofVTsMCT#;rL#UZ+hdWS9KLmp\x^,E\YUVCy6/f.8FrZ\LM/##u0.U,xMX[FiqtC3j)gp1%YNBwS%.P U",LyD-p4vt0[VN1Yv0L%ch*Je%Zpv=FNfoQcX2POuLpPO4O\zprWh;$)PQ<]B;?m U"xOYUXxez:?63GE$]**)K-/22ue9\*;VInqhPsaV:?Wt1c0U#UH<>] U"Sj*v*s7N.)Nl64jQo^t8u6rm-;_-E0L,Q1BHl(eS5)fPc1Qa3VZmOBZ\ov\5Off U")nkc6y9iWCtMrp>U0D8;w\rkui0>lq%&)aB6L.K>i#l1&geMXaU%&pt8k^A-M/A U"H>USASBWn>Sip%+wZ8MOB=3*-j)(Ps(W*Es0LTQ0kVs2L87vmmTpuam034BhJhm]9 U"9FV2aa]f07\:8WH)6?e-H'a5e'dO5*TBTG0I)3?P>=0ES]P4j,UBfBh%Y2UE\D7 U"*/xkOurV[nYkFpoI080#'5DP5Mru+-Iap'nP=M40,CV(%,JFZk2c^)R&Yp^g2J# U"tPp:/ndE$OVeINRV?KYcDIErpC',66Of6wF*+CqyycJQ0O(zi]<4q&uXP28kbeu U"QLL5?olDsfnoV>to1qH7?v.&Hc^\Nos9ZUsAw0-RL1sE(Vf=Ymr)9QfVSlH70/X/7 U"S1$ORKgCV\XEDg8/QngsT)se9E[4&JlZEqS?[aM2kV'*IQofVWja3 U"CH;1q0:OC8GW#,w*Zia%:0w*0:gCMMS7A5MgQ[9FScUV:-=ug9v03t*Zf9^02Pv U"j2]HTi%a_CS\nDo#0e$O+]_l0dTe+2MPu(gO;nvu92$:SOk7DM+rs?)Ek?EL^e^ U"#<]vU48jesc;2atwh-]MX#I0.M'b?wcm,34Q\kLJR+lLEsTNK9)?Kaq\e-es_Y?3?pY7f)FbSN4C-tL,pNQQ7D3 U"3_Sk]Pe1kBh,IMooXI8xc4Y5VFw5Rs%BB6 U"VSV(_J$t0R2<->\V-0N%+)2/&-1,y:P/CqV-ZB04pES>;30::-)gQl4fj5]qGJ1 U"DEvBznL;Mv1e5Sa1nwnSCrX>=b.FO^58C1b<9QDqML=kNtR:NC=ue8b\d U"Xg^?H2gzR0],z%H_V]2$d^?pYv0xq(z[+uN=^Y5JuaX:k1u\[14#jCDB5 U"bF<c=#i8Q U"o5J:6kE(C*F'efuFnukO8YV_hXf:W%\vZd[,Ej.m/3Z*wMN^8&bC^2Oe9%oMrcu+UK?B U"#)Ex-;+:?5E^$H-dg)oB-uv-i=gr0cC,V3C8<]NTL<,=qmlO&0GWQx3,%fb;yLP U"#1(QV[Zp66HUuwc+I8FMtJ,Hp-3.34]t3F8cWICviBAL8Pp&[[bPbKr]0WuC9Lk U"C_-6,jMc>Qb8+:X8S:8RhYAiM?q40,#OX.[$M/ZTrn#9$h'n>)J(qpf2D[a-YR%aW6Y(DyN]gZOMC^xx/Z/TZlkO=>2s7 U"V\8uw&11.Z\%ZT/2LGc$mk(b,8(bA)u0Yw&96IQC3yCNQk1s+P?Igk'%)d'*7c5 U"o:wx*D47J1=UT?N2k(9X=Gnueibw54U\FQ[)9HqFx<&D',&7aseB,Y1cm+b=cSj U"V7JtHSEjHIZ?(VnGb3h\kO$qm0_-n;SkD-n'\HQ'B U"vX[27u1EGLn0z4)sj)>Rq]QPst/NolQAR29$1O0:K%rN1a4GstH$FXPTP;]?raD U"oO&]3m8n&6S\+Y1s[^e[u\F.Qtjtdp5)e\q5nH>_SvY(ksZ_9p(p*sqlH9l)^0L[9/nEt7ErizjFB?7#o-o U"?&U[#Md=*O.y2)2tggb+i$9p1^UU/kfs[YN)C'4w0Lt7O7(Crq0S&^NP4B602kI U"m+Q6,6%*V6HDo]_ZR994ONo1+bofxVPF3uF:J-XjpAK-Yp3Kv+u)YcWEtToIW1E U"nN^^oT?hcxQhp?kSHRjpfPg3xoU2rDHFvE3j\,CD[[UP--j6)TeaPOwgU29+bW< U"moQ=Sr+DdY33rgYn=[BM)fT_ERnYW4o:sX>FCMbj9>N:(\9A1EB.(.*ywdJ9^#% U"Ba1,+ic;8SYYim%H+XT\5$SfvPQ%B6GvB3g?Cl3nHo/JN03JstVgD.JFi-ic=Ebw(rhb&X0 U",q/)Kc4S$/MWL'.KXRN)(J(I,??0_f5IA_eiET0(IyG910nQnM2-ZDox U"_>GUZYIheFweb0mU5q?i_J?vd6\f:U>=Vm(]GlH#Z*o3^TSHnGD'k.\zJt?)j'F U"Xno#YlIe82(GkRSt-:#2MX,bQs;bj.UGfW%OF,->BD^7DYmqz'3I+U8s(Xe5[Km U"F.?7s=PP8Cw4xFFuPC<'SuYi??)wK*N^WF'*FseESC^#8N:(7kM2?$,1PfK#/%T U"9[[&OFaQ$37HG)Q,GRDcHlxBg=Su+0:UJdZ*9Jv^De8g7Y*5jHMlz/^a:M U"\F_TDpVfv,,tr:I^'.rvCLi,*EOc<:Ci[c+JmMG^STjruO2l^Yw_OE<=N79e[,- U"8=KO-9_JHPcX2=Sq[oSMs;8RuNgy>*^Q9kqc?:Eu6%;Uzb6J/M3ON02xB2Y:ba?/ U"2biR[]lr9h1NcW1z*zGNBLcjohV;Spr)9>1%w4\rirb#N:7YnrWG0W9Tg?:rV5X U"E.*w9MK&Ra?%KGihAg1AV/Ulq+dDlulZ_7yU?q(M0a49QG)FcK]SHN\$8D3B U"is?&-P[ks\1NREOz9TnP#xR5EXtr=Yt+SQk1YKq.&5'CyuHs9bS&p3=xOFUmQoX U"uDjter\o*b]^N'sI'DnJZ6]R;Q-GYi5M U"e0qA7_1D^&_a>%/msEB(Vf&3^#E*GG[HpfMt-<$+B59'oa:(Gt8:[VUL5(?z:=o0IYh4ubSLs*:6A7I-5RD<3Z^jQQZ+1m4E U"D41:1/uERx'obqF(udxuq6F:Flrn.xi^b^QxtwC$?jtQs8REM*N0cIE5-T,\cHY U"^+4kX_#qFg&9k2^?e'<.^ixWbO6B-v\ U"J/+dd$=%-nabg_&?w<[i&[)IF_KJw+\AqcLsG0ALWi.n90]XZO^0F/Ki;T26;4Q U"Od7_KQ##CAT?TelE8i/5CL6iQqD2:aRt\]5lacw#rY\sO)R54'fJIh20>14;tf1 U"w[9Q8wgQb,]YmMl1;o>$S0vTQ&1B^-6[36#KyqcL)QNW,LL=1(LP1(JgQ)S./,H;CreUtQIASiRdm-Q/55>]2cmGo?4f U"D7(doZziG?_;GPg9gi1om(,/4'j]a4Xl=6u'H]L[mO$Q/iPsbs9c_1[i\,(&V=X U"P>;39E4icS_Ti9#H:;Bm U"W1m%Fc3XRV>ebW_\qWJXBoQef5F#iveIew( U"F6vmdiEyDx;47U)3lK?>0;VWk?vM;E)Bml.F_(c^gn&Wr*,?2K(<6ML:m[3I$ug U"ztpLiq9k;I?9Y3OHbR^;hGP_?gb%bVzss$)uAMO17Pd7=ND:/DP7,&g3YG$x,O> U"126hMmC<^(4\HqC_iv;#sAWl0/>d4I2PWmR#nZy61-r+Vu8)0;' U";f/r7;9>1Jrp+$+0PRF3)n%.vL%8N92Ty2\[H-A5_bn#dkqcf:nwKsW U"8r&s/-p5\4':--KsF&Q'pjRT\%uBPUV7?1/GVf<]phgd6#:BE'LDqNjIl6bit+,PFZSJ5noIe7 U"ZY#4+ar_b8nttDOaSQfZb#/#OmX]_^ZkUiEB;Z$ThSt;U])\3o81q%;,.ppSomt U"bVM7M=A?J5y%jLuQH1L[FG89qN$3KP_WPbdjeH$LWY=gQK]_nd,o^sw*=PLHH_b U";/d&PCbXV/Of,bohQ9).LX48eod5tUevWL1;[$Dx,fL,?('3*gw:/aT?NuV8F5, U"m%j0rJAN]k+bOED9&iEUokk)t*73H4o3Cl4'^M$ggPuF:AL\T/r:NN6_23d\<[P U"NPAi5J>pD<*xm_+l^?LZk(rDafRYetUPQZe3&8Bp727S;TMRD^m,&b_6q>lY_d' U"h3)7KxH]^js76_\yKll$0jYK0$1]fdj79\ U"3M%&8Pld,JTD[hv)*U3vRI*pzjf%0^Nq7TM?48H?iCiF);HH$FjRLf&$=-ruOoe?#/\,uv\f]rHJFSJcqzqA;%O$ U"?'_qLjB\nifjtMVuq(eq8$Dx:XDxNBQ#$k=.ylf9.F$'<#tb*HjrX&/6QcRKrw U"&h4wmrp1g_g)ZOvTU\'PqR6(<=%A=)8o6V0Z-Yx(u%p&'9%%9%%#%-%]&7Y%ZSg U"VA3[9%%'&#%%.%%%%%%%%%&%%E%%%%%%%%%vht(u(Sg%fxup%&'9%%9%%%R-%;M U"R\%t$*TM3&.%%j&%%%0%%%%%%%%%&%%E%%%&Z9%%%knqj&.niS.in)u%p&'9%%9 U"%%#%-%\&M\%BIcVHu[X%%D'6%%.%%%%%%%%%&%%E%%+%;:%%%vht(u(Si%thup% U"*+%%%%%(%.(%v%.%%^n%%%%% END SUB V2 CLOSE:IF S=53AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB