'=========================================================================== ' Subject: NOTEPAD-LIKE TEXT EDITOR Date: 04-04-99 (18:59) ' Author: Jernej Simoncic Code: VBDOS ' Origin: jernej.simoncic@guest.arnes.si Packet: VB.ABC '=========================================================================== ' Notepad-like text editor for VB-DOS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TEXT.ZIP",4^6:Z&=18830:?STRING$(50,177); U"%up()%9%'%#-%i\SSKFl:.--67%%cO%%%-%%%%yj&'ySk7wr.__<;A#VD>oRu5\ U"j\^M(oelKGi*#NwDv/bQz'M2Zq]/sqj;dNvabmI[.5t,V&-r0JWVNL$$l$17E#) U"Ul=M5/NX(<=YL47P2IK4fYsZB%Dn:0tttG>xLMjFFml1rmVd-RkdUwuhFeg*V$p U"vG=V(HX$lWjp\>W5<(h64mw13ZP^Q4e7+KBoVjicG/%&g'SOXkbm7cs87Z)m^S[ U"426'V-e4H9hnWQc2jD=(uccraOaL&L\l(%W8%N12?:NGua+Ed\Usq4_[4?Wv3d7 U"1n[e*aeB%5HqFKY3%GKp7w.l<*i3YwKB'REDO>p<>SrT=/T0WC2%'oF+dE8a_7BEm85Uo/w(9C5_f_SJm/ZIV+/f,_Y[^gp2M U"JeS.tWaIp7_iXi3TdOCFA9d-LH]vGALO;BEf*5mUh4V?2Is#gI60k2SNdm2=y2(%[^CS>IxBdV+oOtA%$.dk2%C?gf]80z2SktYW2#=A[D/r25( U":bwrOd1q'/MhPPR/5b,-paJD:dC=g'AisSf:8Obs:=gNt_jq\T=(MJ+LkLqglQ* U"b:7[:?,a;&%2J\#%Oom*03aIa0A'4u0i,6'0+)5Cd-SHBSeVeALX^L=Q9q10wr2I]MKIf[3k^XCL'5B=h-P,[KUU?3YO'=)u'1=/&mPhAF9 U"8NbjU4u4HDb=[*_d>_4L6kC#nC5hoYx^$Poqh$k8<7KO[Ld'm)1pIi-]_N_Xbo) U"^cxRw5HiEN.0YV#+x>9;KcEMt?KpH3-S;NNQ*cIq/*+d&hYYh:%Fe+7F,u%&HF9 U"Uz?(7QKC^UiFRZ:i5/%/AzL*_%yu8r?X%g)0Yx?jFedLNuacNTZYcN]g[_IRb0b U",isG4;7m(4D#bO*Fo^xG2WPbWS6>sLkxamx14Gb64b%w.Snl$Y(raVqLA^p>nX_ U"OdD]a.L13:gtForOuOla#n(3w:-u?<[Iu0M9AmIc\,2QPij.6IP%IlqY8pB_.NykVT4y),EX U"KyTG=Jb;\eQy11\Y]]&*P;r6Xxi1;lKC>fV[R9E5hfY9p4OONxT<,CTRaB*'T0uB)E:3ijQFLQJr;K=NWEv& U"g-83c#J&9$+R$_['RRVt(Bj*F'>5o_h\Cn?()CIXUT6+H^R3Q+r9-EBwl.IuyMf U"Dp7$sjV*HQC9QFq?QA%hX_g4a7X8+ar*Lv77Uv/uchYv\rxxL\Tdk&$Z=y_p4j7 U"n:^b?v*p<:_iahJ9:WQk$nYECVM2)tA;/wIK))]'O&v]T.SIVB^FJAaOrDBd]5? U"_FJca5DFcW,*s7'7H;sbP/p3dmNsj'+7=h-ep6Iu[Zv^qrl?jbPI#M>&_TonuI_uIc6A^^Vu9aPXE/-i9=&19E=QGoNNft0&7(HFZB_5A: U"0M^LUTr]V\)sy-;$EXU:roqp+wp+4/+*2'wA*O6s_(*Fw1i+AW$[0ZrNx%Q=-g88uya.tj2ISR+z*v$^a=n4D1]GCs?o_qYOX)a_c0V7&$j#d U"znT3*=AtnkTCsK=t'qJ2KCTv<3ptH9'$^_eSx?aD]NjT?[lNKYLEX6US\2DhV%Z U"FVQ:I;HR7vEtX=Q U"HGf#3fv0VoZ[_bd2Y870 U"XpS6u$$gL.;(z[_1jz76*NlYhcRkZu/zQ8LaQH4-Y2t#u56.y=T5zl,3F?lrj]B U"1NdQ+)YN3KUEgO:9>PAG9mhf9'kG?6='IsnzgT<)V[[urX0:zCDC0OsAn_AMMBo U"7wFm2Rk]e^DPi8bmolJ.K0Vcs^%fUr6Bpgk,4NTaLE;=bcV/'E833:0^Ew3k>X- U"(rPF?\W0NWFezLXrME7e;p\MH35m0sR\gjBvn,P[oQZC8;Np;91?f+ U"C;kl.+*P^K8QN<1DH/]EmR7U['l:E3Pk+$t=cj U"n+v;?$2iNGwp'%a#%B7R8wx/8dv(R4#v508f[qN\_ki(+#d=Q>GYv;Ai&'p,+6q U"etfHICS#')3A/N=1^gm$( U"*T\=-4*sM2y>;VFsr6S'hl<)'#kb;OjYV0oz4H-/PhEK7a1O.$8t1w,lQ3O$fY9%)c[,.O^v_B>0:R4L8RaOh/??v$c?0BigEF(Oc2B U"zQhIo'&m:j/E889Fl\khIb)nUFbA/,=p9K)c U",ZMu8d1R>ni(>GGoQ:uc;_A?Q[w%].+X=[J'kHlHf:jo3r3xBRUBSW^L]YMfv]i U":,6tDflWhQYLkL/l/s5cCSBYu[E&RP#BHvi^&wn+esc(L+1Zb45yU7J1.,[:_v_Jmsl*A6$XcRNTEqr[8HJ[2NQ U"mXrYbYq;3*IlG4]=.c#Vfs][w:r5YVo/#^pCga#Bl U"/k8fK&tkN0f6$QS3Vm.^f'xcEfvBKJ_x-0\s6*oNB'I5QHlJj#7?d(aX2i1GbQ$ U"R_BnhAL*X%?XIWd?5N,bu#K0hKQ5HK=?SpI_Q+]7';N62b9\[\aA'?y'bni;EK> U"?5R,aBXfpI?GYTOcgH0'_pVFN?&8)zldLrANVF',z U"VI:19.L5bMjn'COBHK]ztRGs>suf-ikZeD3G.DCSamUM+;sxOGS#XICd[g0XU4T U"FWF-?>,(f*^SF>cH3XbaNs)8QroFK4>Y+]jbeOR*rbCwSD$A[#.*F+\kP^#pQSr U"9EN<.bA$?1a\C)Y&KU7C+X\B)Lt>8ZJ#af8lp2Usu:;Y(#(B8q\_$&VV U"MEF%KCNl,pjgQ(L]L&lLGtaCK/?>/7HGfH5c>XhGc1a311JLlxo6''(uKol2%e] U"AOdaQv7?/Eh::&giX-3p+6n]Qa3\lw&U3I,BycM79+rV8WHv,wETPpghh>;U5+C U"mUy+T.#5SL2GC(HQ6%NBDBnkg,wk;?WN3R%iA_XT]X16Z%J/9Gq;k:WI^nS[4Ui U"oq(B[w5+>w%K\U3CGOls>2^+jlQ?Xl9=Bt>KW;**/D]:UvnhRhE3KguAZjJu*UqU-1o>o7b4nL,VYIc=#j5eS2YuS/psB U"V&8\xvGgtizfe.axj=PZ*R)0rM[*+$Q:<$<&[:+Xq=Bbb;&T]CuK<9l>XnJre19 U"l>o6Jru9Gl8kYoGdHi2Gj>s*JZ7t$JHqJ0tca9N6>(Y3WFLN8)IXl4JAF-E6?b; U"P2f9v/Q,/S[DfWQFXM$_=+2fH_mq)[Lv,mT%%J5Y\DKkkjCeaKD2=*sjj U"M=FBQsSM0xcnJSDUc8qdLy,A%Q3A=w?z?6w[%8H3G%XtrS)rbm;'R'8CkkI&cXk U"iWbLBq4:$c?JCwDf8A4>WiI?dNIUZ-dAqasI<+3*DLzmM U")U0d<+;jp)yIa/>#/:G]:r/PT)B)K U"<2:.UE8V%_d>K/H[U6Z3.-b&Wjp5,-=:fq2vMN7V-jZF&5s<9bJp]kF[GE/o^21 U"5)ue8(M)x1yb\pIu+Jm42nFV9KDsUPicJ=9\&m?M;\ U"&p-wjuATIVAN U"W3f2v0d3%1rxaDKk8i-u\7_?,[s;F:SM&KM#Ru,d+8Qd*2=;rbi^aKK6?hPSvMN8=R=VpvTtEpJN18J#P/w7'Ls:'/ZsC?-3BKBAG8o(:bP1D:#]keEPxWe8N$[ U"RAKO7hND:WLYk_x.j'w,up%()9%('O-%,/88>t$^ U"\b'>#%%'_r%%%0%%%%hrsi%qlkS#kwr[2'H;AK^:NB\M$X4'dX,F'#IIK+3=),[ U"'IYY3%l/^;X,(.^Oy-\QV*Fj-jEW$-d=Yg%.j)zLu))W))PO34>qrf%z*:y*-s5 U"uL4)7S.]o*&#jyzzIgNqFusWpf=VdFDnDYoplWhJpHtW\b&NLImr<2K(#I(I(Cv U"DR07g7Y6L*/f#Jg&OLf-b.:QRXmr4t<&i(&(?3VVR+TaM=TNRQ21hiPQ:I7P\tFqlTAE((yV>Z U"TXNRS2Fyhq/-1*#EFfe8ubpk5S U"le(x]J_B*\dRrD^j*cAc[>_SNy&qi&;[bUSI.Z$.CAB>m-z/X0/.?kw>wGgMTlF U"w/NlYWYBa-iARJ/TmA12/jASPm#*gFiQ^WtD#*...>]UPh)4Wi&w1HO8Ofo(s%- U"$j<*m=ehX8EElBDo96rU8fRw%9ikyrvPkNUpXAJNf+;Rk3CE*#I=G4IF(o)/*ZCOUsLkoU_YLN(Pg,\Q)_KNnhlCzfPH U")$mcJ^*z64a6BS;ogfE$8goQ?i=u_e(K.sE8EX#7eL7Rl[5PF2[-(br1/1V*T/j U"K/SS.4FoLIAxslnFjez]**4o\o-Hh>]=oOFsLS2UJP>E%6TQ#AKQPBQ*mmq^2t]SN64c_ U"2Irfo#];.R8fGfMTLA%OnFIpLsfAtdneB5fCea0kVraK^S^q#44s2ueQq[U U"X8qro/Jj2Q8mF#=Bf^=F\q^-PM5Ar6k6JBdOKT/GECmg]BfCOe5rk%OBne U"txl]sHeG;a>FLpmbB,*IFju>9#JR-bPelArm:EYothH\sBKYIo20h#9]]/z+I U"+7aTgDdf9yVQ,Phx+*5U-Q+*p>X(vB;9vaJ8[+=xZ:q5?DNmuv\(y*N+me&0Iv*VvxIN%5K^bj_kF*8jg\z.\rek(#KR?P/2H6%_MjV3GT5_%>B U"7AO7U=uiKwRLX(5O2Du$kj4VG3q5ZYcqTg,$[k]U9k'I^z2^buh-6?5hscPe/Gq U"b5C[6WtH/9fjLmSpmODN;+Pg<(jb9#oY=NpY\/sm3vcxtgb/sFC:o*.wO&]Lu40 U"2E&YXwT.S+'+7LI=NQ2&(\FKV5._b5NIN1v0,GCw_0d10*:$;Gw0S?+C0oB%ZaI U"HB>7YB01.0BuJu*_&-tTGOANh(YPKki]]05E;7dFyl/[YPDGC72\m$?FRV6;,(H U"1d97C)Bq's.UP.1q:7tQehX:ZNEhVC7z+bV88C7O#bRbOjR6,s(5eoT998ih9r> U"1n;*tEfMVK')+P64^/HDKlK6B-e[a]2XqaDvgN,[lVVCOvG(5H0ClO9wpB_C.[n U"lfak-'7l+22Vb$$9XTCYofmk?bkn7/gGNICUwGj4;XdeZDI[DO>Q7X:sKrfL2C$ U"Xe\/'[U155O0_)s*F^gs2<)=1np'e&];A=2a#EhWM(ib7I=]60W0,qRi0&WHnE% U"8C[1FnamM:izR$gcxj_qphJ187(1ihX1]]2J/)5EOMSVrN5^iXdT'9%XdcQCPqp U":4wIc[=_,dbV273Rlza];d#xES],(g4$)cW+Y)$$Aczflj=8Ea72.S#^,LdXpif U"J7b12]b]2DoIfVa;=O;u-9h>[s3V'2Q+&TDk86Gm[bXn0%7dzuX?fHURwj3tHpLuW%1k8r' U"?4Ii:2BEvT^h1'48J.*%,%wKW3D>cdzM9y9McU>9t,e;x8##kGaKt9miccA75n: U"9N]71Sx0%2;1pqILQ$SG:eZ%)##D'W$VYFs0n;IpjVunHofR7aPX;$2]^m/k'Z; U"mq3ZH/A:ilqmu;K-OBH[fxzP,1qtJz/']ds>75-2u&n7ae[:78muvIM+YGefci- U"u9lF,u4qHRAtIHOy:j1%y3&fy:4Uf#O\NfN*T3q7rIflR.JcM>0ps/Vm_[>d[Ui U"xN9I#aW\:T)]7ZK5:ym-OM[O[sxycnq*%3E&B;7_pe8tO5e==s6ZD4U?75b6XMO U"2]r3CJ^aDglBFoT(Cx'E9S>]Ob4s=BE3-[AXgC)P?dV'dRB:sC5'KK6rP4'Ob0:Bv[^B;> U"u447n.3BeSW1G\up<-Cms6PMQunFpZOL?#KO2<^cBMZ#8<6XO]K$O]6rh?C>Akb U":Srome?u:J%VKmo\>MaPFog=$cqV^q\?%*nt9uU,h-rP6oeXBU6zG>#eeB8a/At U"6XGjXb6UIjDBf;P//gFH#;BGAJ=C>w<+L)mGVu]++sk=YhMlcjk9-Lu.zkU8ZR2ID1Gf6I(HC U"fzQnY$ki;>$,k*aBd:Co_^R$DQMF5R3-o:370'R^L1W$;sGq9\9ZRDA;RLRsp+H U":%^4s$9CKF+W+'gfCJIe\A+^M<;d+&'9TS8EU.E>J*U_=FRlvTEl*qM.D/5l?>> U"/tQd]V<)+d9ETh15q,-.7lO3eU=A_S37V/Mz2useg0P0karoGLd%vTtwf>L[]Kt U"nMLie\y0Kg*mfh9N/8QEiuh\sc0dlnq.l\%<#PpvT$'BPsFuqDkw1Yp9>sVX,O: U"E#8g)AdYnbB-;n#Pa/wdX534JQP73Fl(,FP)]p4yRg-jO#5w#YKM,syNmtSy77w U"t%7jO[l&pgae/ZOSGBj+7Qa<=prBG^XBQ$g.;:Lq]FudV6$HEE\6HGH\6_&O$7: U"GNdtA$kQR#cmEgeoa+p&z&2oYEKIRMUdYd3$6v>hVoe=9O-&69Q*JH[Vh?MG'w& U"aq.]P;Czw4aMMb-ZA9Zd7l0[IItYC5X,5^4?hjcHB_P7j)G?34$4J$9qJ U">%&/LUc[QUV5+$Hrj8^bsq2g&U]bj^2\_u90YE_fj[\)Kf^I't/AyzYo<+Ess]B U"XD^=)H?pNeEOaT><&>j-IbZ/U_\OGBL5?x,LWPy)g[^SAhe9Hc]f.-DcUXR]OP2.L*KwH'.PpGdgD%g$TLY\t,GbQ<[2& U"D%96%(uZor#Wn8u%tRAP_74lb/\dRxfI'8--e<0I.q2,wjl-4Z,s?z=aZt1x[iJ U"GhB:FiK*Yh[Wc''VGAk_[<'vObkLsRpEG\G_#Ug(4YHMMnmUS,Q$7YgqXU<.G78 U"_u&\hrt4CUfuvLKpBinWRFXLZlwbwiU[b1-S;8rQ=cotq&djp7tghWKk-'#CX-4 U"9Q&nh9UXS43n\RW4+'ul*^q'&ws)L&-WD[i#K,SgDnz>:bbS?r%3MG$mIi(X,2; U"3aO%^.gKOHafh.rfE;q>R?3K-\B#U+IJ/2PQDoy7XhVx&T'.g_C7D/s_ U"_'qZKHTAG$6[.[ENIWpz'R1?R[Q$SN8qJ67*Es;*_tw;.3O8i[r0rZ\_9.)aCY: U"%YZREM)rdQQ7V?tsGG#k8eic-Wa=#TU:?MM9R2&>=YQ,C:7J+?j5)*V340>O:4X%oBrRf U"a[AdfPtA^Om,Yhq'w+P>ajp%v9.B(R'5(<,c_vK)YVkhkd?L9u7M=psFcCxB'8w U"[L3Y^KI56A3x/6nUP'p9_aPMwBc?o-[k0Jomkr7cQiQRIp^qkiGe5D9stD;dXt] U"dYbGJc;.R.tm_I+[A,vTk\fG][zEid_Ho?k76rYC_d_bn(Tf:uth\sWb%NZk/zgTO4'h;98PVNn:J1njb^-BQ?EcLRC4;;M.S U"iON.0Q4OB6]y2PhEQA:Ayp(VV&x8'KW=J\6wIj>#G;[,YKdYRo:h5ru$HfR%twc U"uwt$Wr(#wN\'B\NsaXBfA9G\]jLsrs;0Rcs3NR5**)Nx[-Re4QHBF7nq/?b-CQ, U"O;H?)1(/*e>Ri7O?fBmH-g)CwMfHM*(9&u;nF[2G3LEvGS),X/I_18u9e5f' U"MaEInHu,6tf#:dIm+6<[OFZC=7ow:7]Fi>\*aFgxdAbLN0:=JWPT$)GUGUl71Iu U"fC%SXh\h*ia0c;99r1MVZuV9%H])aV=>6it^GIV.7Q8DN\Vz>^3(2VnPOS)l4EKE78VT0;SI>Ex]oqOQ%' U"Gai_13$];*PYMGne?'++z3+Ui#tvm(&aKH>PljF&&Vkl0YVW%5xTO'YaVG'J9pY U"7T.d=9%La_gF$MtA4<5O1rDfH(o]khs)8]GdJ(&hMt+,/B+ngJZSRh_n];qWlXZ U"#7:8=FB94n?hIcw-=KeS8^W#YJ1CgZZLl$l0bE(Ih1p^B=85[k;vmW>]-W(pbqC5r?W&zT17ak[&$k77r=oqY; U".Be'8q=E2CHj\_GY2_sundo#_>8r?0#=:d.2#ryvBa+X_cDQJKF>Jgt,Nj-HdZZ U"+P_T.AR]^m*l7>Mga8ULED6,Z=7FT4b+O_?q;dkWM;qGEM/C9wVp0dtR=#iR$L5 U"_ara[Y_kHU1nZw\d_khlPaiTTGB-;lMoE3$9jNKo%<,F/Ynu^E-KK$l[W8ILO', U">g3'CW^G-:6BWK85#dEfnQ,$$;Nr^680\^a,HWR)&\h7tDfW-21']cW79e*IFI) U"Gz2KX)3)OsL_rr=?h*jH3Iz&H0Z;KWe#sU>r_VAeDNmFVa>a[nJkRB[aI5VW?Me U"hTvFO94/+ir+;:_VAdpF'IPLxo0.tDiFf$e/9JG%(80Z3-Jf*>*q&&*hf\IJ[51 U"]s8gjbk5K5rab8VW.e*P\WW5cXx2S3MK$0N\0$i-dSF0WDogHD%$j>df0ZE9YaS#(=ZgleivmpjJJ2;44wSpjzw8%k0r*1_jjDYkFBAaU% U"YK'bI3^OA.6a]usH(>n]^zCqlVRH_D,VFIOxDVP%6LWpr3GM37+l%#GK6O6x#kq U"3pXa;:/0?*J<1ZR5[%&+KSbo1MBy1_vitllRNi$g,:m8H/_4Dk:Gb_spJ U"]Oz4.z#RE-R2AvjA7)<3x,yb)Ao',R-foXfM+SGUAW-WveV3l\+\8mG,V[7,Rp* U"b*S.UZx#.=L0W91K9*:5G9n32inI:^nlDE7BO/YeA\CmTIh'/[L7[kHF.]'Gg>D END SUB SUB V2 U"o51r;Kma4yH<(4#2Dw+DL^tHjUsJbEDbeh-\''uQX%op^jG-l]eOO1EYi?^A-4B U"zsu3B1ZZ#J?8;unZ2kTH)aV9Rn58p- U"k[\cY4u?<2y6Z0Yk#8HMWbRlGV25npr>:tH4I8jMFpql(g+_eijI+=SBh?pS-CS U"?fN$psGDp%vSRq.KBo?yZ%IA+?AHl\TjS^A9W3*$P+1fgb>6V%0fB;S/+DEr^/l U"/*l-iFC-7w'14+,ab^^ehhnWHp:ccDo1^?KRw)\OtV9:4.T5b6,MTtUD?/pR(gn$9]C,Ym)H,XTe\yH4619\z^?x:Mrg;PJPoDQ31S1lTkO;&,m U"peUKN$a;b#%wCs+HXL.Bn:ehWu>sr5uAV^iXONG8S U"(s\*'3?Vq&UtwKixtyDsQ;-8e3I^$E#$\Z3]-6a7OSebDI6BbU=U:xRTEtJ44fv U"7Gp?-ZIbAp7hCfcc&]t92Q)_\5rj\dGo[8C[HH^,6ujXl=^CF^o6QNn-kJu\\J5 U"\2^HEO>*OqhH,G*ehuet+xETv2Trl-B4>rD5eZ/hSJMF1-,2ZHH;m,.Ex4V+PdAN%c#$cCf:W9lgXbPnI U"JM>zRlB2yz>9G*wwIF*,.1cRnQ>MZs0%Skbf3S1#opr U"B0E3HR^kbS+YB,aET4.Pd87\9I_u#Do6in#HrK U"mMDk#uLDq]2T)?AVb]h]C9eU[y?AWLRdM/a_azY>Pi%RB._#Bhubg'n6A#MrEiFwG0PV,9Bbb>W?C9LYH(?GH%tBELr^bl,\vsJOLZjP.U'QLhZ)alkD+]d[QwiD42_+LMug]Mf&D U">YjsL*Qmh6brHxWXu8_L8lPsMxXKD8zK8LB-b6nXOtmiqLICJN6,LXMnfFr\9R$?2]C[b] U"b=$C7>>NF&2k_PUdc6#7,Z,(Ib39^]hX,.6#p,,6.#M3LawGMTifv3niLq/8o][e.f^be+Fp U"g'(*L_%nY.Nh$0ce\by+9wIeY+Hm0mt3.5v*jB]n,$f/Z]/n2Af:r?#4cEvBvJ4 U"yo>5=4_c2F?j,R'?\BYpS*t1ueQ#^YPoj.%up()#9%'O#-%<\&SKPx.MI1?[%%^ U"&%%%/%%%%hr%siql%SgfxK->:>m?$otGdsD]2q%P2h0j%6/^o(N3Z$opRE6sP&p_/H1gH$1d-$UD U"6,aukf=D+RSZ%gOhAe\JfA1Yd^G'Xeq9Bnl)Fbn*mrl5YHt$Babi3obJJPALKco U"#Pw&Wj3)4-,[ai^QS\I.fa&os14PQZ^Wr#t+S7b/, U"jgyzh_;o(?FW0N-LB91iYaXVj.91&.kZq0S>LhPBK=7A8JOju3)xt9VDtEE$0v8PR U"D__^#jxB1aO1+Kg/=;KH6-Zyp.kMBa. U"hyNapmt_VVYrER/z8xWckx?<#ivIB/Tt(C,#aEB[PRcI%;lw=UTClw/.nWLqK?l$u'9oHX\5iiw70_O?'4M[G'\ U"=sEok,rNQCKu6kt2F?X8r?JTcM#[GLVd3Fv=ZHQCT0,m?,%q08p0ZoDIwZQo8,? U"EZdb=>$jje#.8hq/3kAu7k6ts6,;SEDUkHB)uE9o:ousnoo7V&Um2>B:DZ%/Ia* U"TW^q8fOEk*zrsO<%/CJHEGB,RjoM14>$..jP:2TaT7e'()[K.2g1bs?SGXn*H*^ U"PxJBAc6vhE+L)pdPhp(nL=k1q&Jh1bEEYAn3Q_iOE-'vVs2#oi;[k\<^d2hJ9w) U"BdPuTQm2f$C-4Cme;]4Apkw>Ne%\HRd8R&b18IuC5.EPXZiD&\6Im6HzO_cmL17 U"t4qUy^pt/La_Oii?D&dMw0^Oq>)0(iT;\;l+pa8lPu&N$?dip$5/i*9d;WcpZ&p U"IoK+:^o2=>I'8iyB-PhNncGssbSuDLQdCQgWA3?5'ayZ8jRaB1\]wi>H]G^^bRj U"++oQN*Rq1jg;r>>87s$8qf30F?L7GJ.qD[TuTayE]ZO6$neE?eb/eHuA#+w,$ts U"9$Ya(=Al4IW>Z3oP(>&^y#>j^EHQ-gv1,sMEv(%)sskO=G_s%)TW#D%?2ZIZD*j U"sY2Jw=kN+K$i1rZ56VB=Gbv,l/%H$I'?pP=RvQ]&jOE134Bo'heKlkd>+l]3wsxBhK^s:[#js8L\]6'F:ao U",hkGu_t0NoZ\3fqaU(L,Z:mL?'m6sh'/qsBlZ:b3t^i\rB[37dQ2_X_kRr;2YQj U"NCC^QpG7#C%;Ynip;lgHWaJ.#&fNGwt5[#C1VK'(L't<*KA2gRw,4Gw\lFJOk$L U"YZP?B&y#uiEH(1e$*$g)h1>\#YDvrtv%&3^mZL;*turjM=NK#J2pg1)CW:ark7v U"8&75W.I\](LFZ+%5,K3^dH#U/xq\B6^'*AQkhr(NYbyqbDtHS2qf20fi?ZiZ,+a U"4ecb]P9#[,\e3=ncImc)_./fow2eQJKOT=g'JMhMQIjuq]eMqgouqBM,=&<\V[> U"Gao%lUZ\g'^8LL+0Ak/*=:3^LJf*;RBAkG]gD_Sjt,7$4&-xlUGJh]$*21;GTB,74;-^\7o9U&8M?/Y5/2n$B7(9RdzM U"(+^;/l>JSEgu7g:64jk.tssU804bqt,i\cvNSf:CD$0BAV5yt1NJ8#$*$)iG/?4YGV2G6X..tSK\5Fp*7xmYV_6bgC+K U")ixIpUGn;L&[14yqJ]m7;tqBIh?QQgqD7.s0YYG*'CTjc U"73/PzuM$b>O$S$\l3Gi+kfX U"MZi9pmAf'2jaSl_\:^u#A=mKVu)C%<[\oqr((mn==L.bHt8Ut\9hM$bGkS_dxf)\++I$PS^v:gDTlSEq&p'f';bROr(04]t5#CWF7J:qg U"prM$B(dbc7s.2EH6Ul44'uU8)Q_0r1h(_,]^mN*E0,z=rpv&Ar_0f/?g/L/dC=' U"/ta\AdudotQZMHQW%WO:j8'D2?%nS,nyz4%-NU,OdGhq6_[3*vFh-V6DM[c0$5W U"l3dsP>8\[l0\.jaqQpK[rhl#YR$Myg=U?-WCWq\*NC^$CWo)$E.MZ8 U"lc&_KI-oT=DCVbVcTM\JK-/WWq(=5?t?k])16_LSa\UOrtTNqAexDc].Kn)7rEf U"eVmpf88kgeRDRr]e/HI*:#fI\q%B\5d=gGpRnCTfDKW9FGed?S%,JTfHK5buPRd U"=FU#U>\ag6TtZ2'9F0bd+ZNL\tG3)Oql=P'TzB^%H>GrD[$XXqr4;8(\\r2mZV3Ap;?cI1l,LJiH,I?HB U"/TgbR)^?k=v.2zz_RAQ?c(?l(WIRHeAt6:lN:4C7AHYZp$VpHBA5+a6< U"g;%N34vQJJ7#=d5cunn-:9=2>t4$l.pqaNeWe-LfJK_P,#^Dmt2R-/-LOzr_yZU U"mH'eS2RF\k0bl0d$_3W?$p=tM>-WGdZ4VCpZV[d(tKPY/Q%i)ynM^dXH.qpEhDy U"zpE7PiVV7W=\<[jQIK:usgV^)>-v U"D5JtY[\,K%^Y&V^2Spdi]m;1s2>Y?uyLzWjKOX8WabqAs_C_xEwG',;c,oq*ed% U"%ec'Tw#[k-jeJBQabj^Jr9FpKS5:Zq./choAs&._::]5PbRlKNT U"#\]kzjr*DCVp_r.;rrQs5=8.SZ;'Li0KuGhlB,xrR;[9Ld,%a6$,VrgIT$LRG.%F-IfRQPD=eCo'e=RP^D$TXi)urxY*co8JO/C.jVf$GdLQy:Bk,(#^)fXU=.G'G8G:oxL U"V0\=d2SZS4=Pcl(d<tAAU3.R+Nom(0f9_.9dwwc..B(2 U"34JsK57M7+i7?\>TImOiAm==QSD8I_IgKrJ7/+W?UU$h$i=#=KgDMSiPPZk27#% U"vbLH$jN,'MyS(7#8&:'Cqmz(]5\/8QQb.\+7B_-%fK_6GT=HiCr9BkYrj0tuWiZ U"rBut0WiGy_8RU:%n$BZf[EF/USKjqYSe2N&D4 U"S8m(]0YK)qR%EChd)F]4scCTc1SP2qq7LRJF5PKAnaL%kofQ(8#%J5/DdKLGhgt U"wGKO^fnap?>SFU9k;sU*:C)&bxb+],F;c501W87j<=(Xj$a>[mBTs+OR9,50GMQ U"SE(/I9[2Bo*)L*Sc;IAcJ/UTc3f+dY5#,OrKI(B[vPj2_>gQP5BZ$ue%Q+M6hL,g+qDHRo$R4P.6ii87t.?Y(%7I7Zg[zMZ U"MMHNNqbSinT>LQ)W?ql)wSMe37HNGsVN-EN79]:_EXDmi>c<;qrpg63K(RTGoBy U"Jnb\,L27pCdY)O5JyJ=x5Aa1[-h5=-$6;U->g3#zt); U"q+f3Sv.KiEGlg(=0a4%_C#2>VC?TVcx6GnuxHDA3')71_.dKK9E=ZGdf$,NiluMg\=Ow0Yqrlz)rdziLZmq-,GrTu4lC_lHgbzU]O0vXsP^L6 U"=Y_np$P5Ur6a\Zc9U&^nDh-Zo#:d>q4FTFn/F[QyxYHb#RXi>m3d#JPjldvDi>J U"kQ8bai6]I,Yod8[]FbR0_0.Y%nUS,$Qgr(cq9fR9A]b0u4?k;dLRoYLVA)af[V U"Qe;fk9#;Szc.:]:Ux>2e U"[-qD>j29-10?\vF.Le-lXiN+6)D5frVilMR\,a1l4Z'\hRe7OCELall=c$8+#7; U"]ttUCZGmxdL6ZjXEnRX1%kDGE?IY,V3r-=%PgqSSCWR+gTB$#;2D*A^:zz#Oo0( U".3Ghu=72u%+\xqnN[CoxcOQP:FKmu?XXyHID3E+qs:eqBo:fRoELnC[?SL8i^S\ U"MY-t6P]Z-J:8^Y7*-g9Ht^+r\Z#G.pw&Q&^4py2mpWG^$'K#:*KH')23j%Xpmg[ U">Ixv'VnNnC3uXDx*1S*Xov24te*TO]lXQ]x$m=hDPTEL[PS*o*00^h#FR'Tgzn].Z'bYtgVG1P*d> U"F8DM=[YZ\bS-nVeffU.&Lj<&\2m[H4i5#&3c5R%(iTtaPEA9q<:xIN>pM U"M7T:T[*^wzjB0n$fDO>X>=XZf.1sl3=b#b[q-_Duz6a#--W#JIHN&LQWscvF#Y/[+lefauA'3Ct8^, U"#U1w,4(if_5P:[Y]Fp;Ig(7cJ):aLH(iKvi%szmZqMJG(mL#Z\L\K<4\B.jUM+CH=jm2?br2OXU(qCNT;9#%Zo U"(hVhBQw*fr(p=x9i8naYfxh.GN(c.65D&9'[L-a4GZTaB)H1;\UvE#;(#S'4F&Q,#64R3#em=fSw4(.KY/$YG1gNynR U"2QV-3<6))'qewQ,t_[MU3T_O1%9p,id*F)X/nkE$o$y)Bq:VP^*x282\cEP%]^^ U"QB_IDgsKgx1,*&e2aO&lU[]?H)Ep'rL2q\,BIQFLH8eII8FNc6RCd%1MSXae>AX[_bt=s?E_TC*fCH1X)RW9^+AJe[/ U"XCJKtU=&xO>B+6F+TaM9pr=U:a)ALq=5>JJalFW-ZYCm[5Pf2HIdn+P-MoBl:=0 U"/,;GlHvF'C)UA:8__u%m)1lK?C5M#^8yYHCY$znT)DtK+T^,*[,HtaPkBRjVm*+ U")S=Nie_B&/dMpHU.dADaRD8[%ELSjZ$G:]-KNV6>b&dJ5Q4&>':'0\[2EVMu\tn U"*FD>I*KRYAAGtwHqr8z?&KF1Y3JJrPA7RQAYR8n^T2Qf9ED_qh?Huk/'IT4y.*O U"S7u%_Bsu4cx]=%C:&jhMMa#q7,KV[_IpQkdPV)u0w)SlM%ZmJ-kKv1QIc1C>m\: U"02C;n-^lX0qJ)=Zc2HEA'-JQM(LK0mnk\j#2_\L5f7ubSJ&bnlkODn#e9Lv#%aL U"5(s>wdh0iSKvHHMe=6L:Ga4V9lnxh:ItuPp8;d\:..[[I3HpAYRdf.u$c;%3ZD% U"(UGGtZ,Q67##=]&f-JqJc.n>90Xll&9^g.>aelR?L1<#:M0VofB8/TIcxwO5>14 U"8/jTigugzGfv9vz=i\JO:]-GizPdm'.X,])?M[fmDi9i/b(F7qNETA6ZvBSF)-U U"Z[lZB)?MP8.2]/3jzP5iqySq#f%y$>B;NgW0?.dfCRYafeD\JLBr)o^/D\wbOrZkBt*_(Fj8,qI(dq=q>\7 U"+OmKrOzYIi#fo[Kw6F2R?2?,,V.A7HSD/&vj.3s3atW(5Vb;*R95&Q/?0.5HIhj U"AU\F69,dvFYCbFjQQ9.:Yo)eDdR3^B*LO:B6A%7H^e-+I56<4ze+Z:3wi=[P67h'G>JZZQw?6?S(v?jmf2t U"J&H^.+W=4p..>0ove?cqK-A%D,Pt3>#]0ak^*g$Ntgd,f?(hN$eIF,U7^dXcEsA U"ksk_,flr9st6:p\nh8KnC-:n=Yafn)6fB:T(#RI6F'52GNV\F)T'hQF8X-,Y?R0 U"K&>99*8Uj5ALlKeQl^-(PWg%#C/g9%r?I/;bB?9X<7]rQRC02V7'7IQe*FV2+9d U",LBD#-QTZ1[q#ShF]sVIQl?71Vssp\/9OF;s.rJn$RdSKN;kRK4Z U"N=n3MCMm_U_k9a+-S6*L0koA=&X,>Jjmq;ZmwZgW*,0RJl>*6E?E\5M;G3$^\-b>#%+%_r%%%0%%%%%%%%%%%E[%%%S%6%%h%rsiq%lkSk%wrup%&' U"9%%9%'%#-%<\&SKPx.MI1?[%%^&%%%/%%%%%%%%%&%%E%%%'AR%%%hrsi%qlSg% U"fxup%&';%%9%'%#-%i\JSK#s-N%#%%%%H%%%%1%%%%%%%%%&%%E%%%%wm%%.yj' U"y%wjfi%Srfp%up*+%%%%%%)%)%'Z%%%&fm%%%%% END SUB V2 CLOSE:IF S=201AND 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