'=========================================================================== ' Subject: POWERBASIC EDITOR & PARSER Date: 03-20-97 (18:57) ' Author: Dave Sperbeck Code: PB ' Origin: dsperb@netnet.net Packet: PB.ABC '=========================================================================== ' Load/run under PowerBASIC to extract EDITOR.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"EDITOR.ZIP",4^6:Z&=15032:?STRING$(50,177); U"%up()%9%%%I-%>tSBGP,+Bw4+.%%h1%%%-%%%%ug%jiSiIthT%q<>TA+6wSeEx0 U"37/:DompsK23I7;qGhsF%($bi];bhH?scIA)(ru2p_q\o$nl=Gi5ai&x][ U"bl\3AEL1YJgQ64Mqiq^2K[qf-5lrB%,7+F7=8]#NY-gq;qd^[$z]e(qUMsM/x\u U"/r(Ky>pd&(qwRF4i^:_?&ter=2ofZCPb,mx1,/X8X&x/uaA9)%s(FWq);)kEe:; U"PYKVM0EpF5YXm2B=/5InXwTa]T]:8D_0^x6x?RXfrX*dp7F$jg5.i<2Sb.<.1c$ U"D2TYWtl&/)d21E0IVA'/*FQeSg*kw++mig,CugS'-movR^ksK*CVr?soGUnh(1Z U"Y94C>w;1$S_Tg)]vOaBAx16p7c:$'$e\k0,nIbI]1)Sto%Dq5rRX5A=u'S:g6)r U"DkJ)N*T*g6ah;%5PSo-i]hS_Iajob97fOT]S+x+<-BW:jRlmjmc&d4[F6/C%y%y U"[n7:.ag:O->RBPm&1Ibww80I/EH#9_P,m*s'(-''K(/pNSm*%d;8Rz$\*( U"-=lN1YP#QeldE_T^fNy'Yx[cY:ChTo.w.[p=y(e/GNcsdUPBS&2N2wtsDnFbUqJ U",GfOOtG2rhGZuJ:aTjvWqj].b-AIwEdZf^9aTvgib._\[KTMS)EVl[q*k,\*EZ77aC2gE&nJ8>p[476>pFG[ U"X>Bu^)%uitITjo''r=_=B7h-9E^-Li1,6x\,d_&3Ylr_?Oct_r[HvdNL9Uvz9BK U"'CZEdFUjr%EL.u+7)2%4isghs^OgFHcC4fC#o-4PGoDCNrf_$J[rit>Uv*^3k7? U"u=68>wFYPLBu)t\dnqOaLBg/2JU\#PfbP-[&bE#mU5-Z0-8v>&(2VnqjWuLP&rr U"nFAsw,sx[\YG/YWVi/T\Yh&p8Y?fwf.TW\m$/,tjOmW%ZkuVR^&+r)Rb+(oghY8 U"Q']$ZcGOAXYvd7(15dOXip;nO7?Yn:%KSr5GwuuqH$FZ,MiTj'wUCb*W3+L/iom U"3qTz&P82G+lXKx/giCDckB,2$Ysad_&-LV-tW/.Wu1K$+)mi=_EiC#UuOZ$#%Jb U"1n7mde'1B1O\VjtYw#T&b]i:EO4(b*CDcsUV,Y(2\3]7#x1he/PYnjfgS9;cH[L U"jh#kh32e05OVTxT>GsfMJOMe^b*fQw[$2K.Eb6[ZkYj+?^+GLgP?_\-g&wBqY=e U"<^Pme[Q-a#,1N(;#kc=z7jH2tp<^q8>%G08fIiD)(Ex5D+MCPx$gQ2SYj+;ML>n U"SgcR5o8qR7=fspKP),D_7Nid_5YJ[.Y+-Of:K#sfAtR.oKYwEFAxHVqfv/?/BON U"S;i0_p:#$>)UckQXN\+^)(UbP1Vhso0[ZwQqzHF)rzO,,4FW_-p2;N]Y:f9I-BA U"CPDHn));1=L\sBQg,MwhS'na_lJRs[_ap8tui8m\ns0)%1Q(GW7qMCQUrNTuj4r U"eP%s/RJzR&.c_,_BEdnb6ft>bcvHc$Dt715B0)vT9HHV8$n.LW3;lL U"Ot4]8bdV2KGe1Ot(Ngm')s,I[^)JYNuU+mBl>\rs%v8_rzD>JNOb-cTw#HCOHr& U"1dX3#,s+sjSYSW-C6iy(hzs%:ATm$E3vQCv[tmh(tyx/u>fcb,l33-vfu8DO7h< U"EE+1ILzbES-OVf$WS$QhQ48If1>mK5lR'hup(%)9%%[%-%aDtBGtXU[_O%R%%M' U"6%%-%%%%u%gjiS[gfxNhL8F\pmaQp>I(wh73lVGN4w9QJsmY,%zX9j+zj:je9my U"4oCX,lIE7a/%f%<%Vzsr*NdBELu&6o'lfn<(3f.2i2m$X)Lnx^,)z*JEt^AAA%P U"GWGQ)Pnk&l4l(FWqUGWw;(N\Mf_.1kvdbV^U#sd\?$B6Ce3?r7v3'3W3u#vJ>NBOcoWbfR*L.9N#0^+XlM-b)fVK$?:\GAt U"_hSt6rhfPj.-?kT(Pih3^ZP*$TERBbJn-a1icQAo#KWWJ9h5XFgK.u99P3Q6/rUVe*&bJ,NC,Ni.#i(s\-7k[ACLz9s0%>vs',ypsdHpGi U"8QEs1V>O?\G7F^siVDRmCYJ$7XeJe4^i._e\4/TGg6JhJLA7>$c?:la=Pm=pX;i U"QUT#Un1ZJe^yl0;6mdyFNWOu&,V[2%\-^Zju U"SB9q>0[>NatbeHVf-Yt/mmPOO\JlG&>(eejAK707Ae?0;fq96#TU-fmQD3-Q37' U"XR'2sMC7Y;O+9dzT/]ND40S9Vu<7FaeDx;E%i%-0-uhUtw&\#Le=XSxQ50]VCdI U"Y9.D)%I\/%x)()o.kNMNPp[?vMdls&I1?nWak=B5p;#&g:*eS4vfO_?7:k>QGR$ U">NB9^_Dg0,tF6bYqS+6&>aDe\>[[41_K+J**pXbQHOja)iBaZ454+&JmpTihKuY U"J1H\5l&QZi[sWWL3&PEAKQDIeZ,b0T'%;?A^,RCRAz9I?./?*weTW\7.S8d8qnb U"i)OB6skCBsSoC&VetSMfOU8.YoMP&Y(*M^mgvj?08o^DUw^m5Z]q\KseG$Lc$Hy U"kt:k^4k)L8$5/WI4)f$#T^nak*GJf6F<2[6IVP]8l*9%X1Tv9WoDJJ>o2ZM>[9Q U"PpLq666jrB-^r-,ZN>V]6l8Jh;xa-WqHN5LnZw>TEX2Q?Hn4'fA4+3$,Ac>Tf%Y U"5]A6dS'S+5X8[;aWoe)Z%w'KPk>Z.rR0<3&rca:qu]r,e[DWa^/*Gh2?W;'jI/M U"jG*bIj;7v5>.(E&cDj1Wf85KP;Z=O]N#Zk^4bD5TquPs%0,6ss;W)mcO-t:J^bW U"Y;k<3O6rImP(1),\(pSTb0T&*^X6kK-Ej#t(wrjl0vZbS;W&bO(K_7L,Mi5$vvL U"EmLdjZ)7XgWrcnIc2t8ClGo*/#.?WPw.F U"hCUei2YJ),J70_)0(7ADZ=K^M/y=F'Do6+25Es2ZKdfkNw[(90Qvwhu.4b6,wCU U"L=b)d#]z]Nf7#mE$X$sfZr,w3UYhCd*D7.r'mlXVLH6-Ioc,WQc6liKP3^T_[+J U"XEpK3DHWwldV1IW/0EA->_K:75IBo_#[F+v^PeXs=6qVM-m;7Ioh-LavHUw3n-V U"eG_Tb:6MVNrB46]gL4i7b&?&r^56eta,:R>H(xC=JHW2[kH]WNt3MEZw4r;V-a\ U"D30Q4hHPG_+\IVn6'4:.N,#k%smq%W630'vC#^dk+Cqe&ruEaiu*R7W^SvH9fFH U"uLIiTttbM5&z_EPsYmkkFI$[DoOVkpb3eVLeqoTU_DTp636I\A#QpiE\>6OJV,# U";=b^'.ZR_4_(='2Z6=EV_+)g\SrbWU.U]]uIRLfuo U"dM6bx]x-BFM<)Ej;;aHC/Et*:FHK:Oz/^jkPF2?Lu:,j'S_ U"ZeZ7)Nh+3_nXEd%djW U"_Frh6$?Z#]T3dnJ%>Q-qMFX/S^_R>2JVL9bDdW1a:[m&uD#fMg4fB-Q()lB\VoA U"j_v_vG33xF:YJBF;=&+(s)-/$=A8X)5Jx#vrs5j0tm.IrZmZ.uIFHJz%:Q)U'r\ U"F$?30qq5E/9)#Vc_]Vf%gdqM&(=IE\TI[Cwhspa%q$3A]ZiO.A7ug_3$J4(0';+ U"17aK/U.(o8Pg=[=q?MFGYJv:-/(-Z:H=jT1U\,U_J3JUXPXM6KU.RkR^K^Kv$WK U"u&s'\BqKTO1>)ZVPpgdhWZ*GIX/%&FK9HKPof7JX*:0oW%oWgk%4/7Yhk;n8dnN U"OXyi].L8k'V$upsffZqZvY\-.+:'TXk#9Bq2A27]3wl:ff(oj5ldvq2%4xy'c$, U"F_]ywC$^.GjD?Kgg[9i*L]vziHR;=#tbj37)lUwI,/M^:K9Lj:b(U:uA( U"7T=O1Ohm*oHm2d)nk4kA4]65d$uIA?8uiG(Ag4]_O8,<4Hwm*mvk#K:GBfs.3V; U"b,U]:'4yVJMA[Rj=n6uA%WLW$6)*+W)hy8UqJUWJ;B+b04NVgKF1nNRafH/ksoM U":u0hNO/BHx]UOjoS&&GfAWnj4GBtP?tEl7dllr,XO%ayj#Nq)YK\T:,B/Q[L[mh U"0vBw33&T+INT?O.O(9c)w+&HAgC=QUalp0MSXbsCI[gE7gxwfp<)aBPPd&Xn.*n U"cJz\sc'vln\0qUkh8z[e&Y$,WVXTC%iu'ejBf;2PL<1S,HdnmI\MUY5wV,uLd*5 U"Ut$\kJwu(11yIQ0#hA2RQvv5K$uUWmIP'?6Z1dP4\w-KR%Z(*:H*E5PIJx4WIqa U"AbV$)]X>X6455jT)cH.x6),FNUI1gwP7J/5\dS*/3l>,'h[q>/r'OM619[rufvD U"_+ua;R]#iIxm\B&[Vfqn+pNG:Nc-B'$Tq$%4c#I)'*uC>a\[% U"k]dO(&ez$R7lWsk;Dk3597WL7z=HlJghW5i(-z4%#q+Z6Vkdip>m9l%z0Q\eX:bB=K+:[',#xS39bR8)O&:EOmV9Jr;toclAg&qJ;LPG?tE7 U":E,=R3*no='s)Uks,*^?B)qQZ:V;yDlp\msA1h0RQ#S?v/&# U"-7h.nfI,7N)3*VZ%=]bove.qC=5e%cS99)p;_'?.u^CNR9NuZ(GA:;A2]atmK.S U"ST,2E/./QjGblUPQnqu4/r7'=GD=*QK682:)B#qS=GCb_uz>7elp4jIQTX: U"-b9RX%9*Q/uyQpvHCBV1RBVJ),y:f5Yih#Ygk4oRN3=0]=$2jdt0=\cd.N$wGpM U"b=7rT?sUZyWw0AVi?*&wnxha.nE/R)oN6WG_BWOa(uv]?]u[j(9+X5R+A=++<;7 U"K3Ux?J9I?9<.UTgmOO=XvW4V?u*GVce6GvnjY+C8DHaQ.*kZ]GF(mYrNsIWK6e- U"#$2ca70XGnjtW##Ao$l622bpU$GlRu)vqV'1geIKO;c]ohKBQ[G:dr4]-ER8F:l U"=FoTsJ_/drk7;xOaS(6WG5^[BSSN_ck0=SWlHoRVNHETUaBA04QOd U"Ol6P2s<&Kc8%V^[%5fnQ[?FbI/z\Hq7Ib, U"'%^h;xiPb.GX#Mo^k/XAd>*WqbVL#hCducY,cXZUT<1*[bu\nLqA&Lf(ug5b3MV':^#L+JJl5kdR$uAsi*u=p78e#BTp8)ZVY#?;y&fWmgwVg\]&4SI_OP+/PzOyJ7#kLtbP9;-fg943KKoRi,e]Lkw8OY U"-wdf>7$;c77YepbX.1/gf=4EA9ojPTabSb*_c'Yr U"L>dW/EAPq,RQLZW0#a^D[Sx$9-Pd_&xL\.%^O.kXsV[1_yF^?5:dKj\rmic7IC2 U")UfK9AeNiG)mG>v<,bcVkiXjFtrBt;9Vh*mMoLX7ONb6QvKATVp8DBCw64b->aK-:+GDQ0k U"Q#%-3_j,&bi9-[$r<$*3emM'ZV U"6%5sF0t#GQMjnE/i,zUj$62H*5:\5_W8SL)K1XbH7_bp1t92&7EWACD'q^/3KO^ U"/Jr.B(gKtA(JaQKnlsI&D)V:zAMki6rch%&WUdVDfK%I$PK3F;g(y?r;fk8d].h;ZZxz U"8s:eeIfL.?GenZV\>,AXnks'i$0k=B\bAz:E>n2WDWbh-<,<)v<(a?vedY:RaT) U"WR\JXh16REM4Q,XEduuG/\G$c:* U"JbSVxwWU^O05yCrxp6fG0M6'8yH;_Ugct7-0=fbDa5h:6c;Ko7F:nxC[:-:%2a0 U"2rn^<5TI=&E_gIC&?QB4'FtQ1V<\hy'+T#RZD8>r2N]Cmab>(IS-v/wm_XF5i?] U"9HT_5=Tf$WG-Gk.7:Z]-6bJ?aWY_1e&O;x;^xC-+%[xTSTlQC13*&50,T>09W<>Y=#HvfNn'q'L2Z#Nchk[N=gsl=fJcxJ3H()uv U"E&7a2k\)(sCKO\N2=v*Mik5Cz;(0-*uk1>7viu8## U"[M+OpOfLeqgc]HOQWp+NH*NIfC0*3-KHr&p.i:2vT93AAH)I6:io>ogk/0eq9ERWCB=^SfXuGm.n2BNgX/Z.'f[P[ U"'Z7tZDnrrhuT>swqto)+2=_&GiI^S'XIt#KxnZ[3gix^*U[tb$)Z4CLVWkVU=Kx U"[ueX9(0$WwJJL]$C=Q$_c-SRn&s3nEg=dse1/:YrQo7r+xo1jeATZE9.YqRJKaD. U"VHL4>p])Lj.6bu/-'-3>Ii'b>K1WD;f)E-,qMu#a>Whdj8>d^O\&7, U"t8JCW.jc>+\m#0B?3mqpr5R0\FW]7SGpG^3b.,]QO3;ef-=MwXU-.XO9T79:w^k U"/ZVfS;n0X-R.YJF::Oy^9KOGrqdHjk6Q8AZ(t8D$xKEUQI*Kpl=4APdfoaaN U"Gb3.HsBO?7D[W+g.PSV$u+nOONsD U"t5S%&I=s,$]TmqRcARPv%j5-ELQZTFBG52)%9H^?m$NR0bX76Zv,f6Eyrn5vZN) U";OwA;''QV*8]TQPb\SCgR(RT^y7q85T=,2Yx%yg=08p=HZIaGc:P10tI<_(UbfK U"6R:<=o4[O1iN=-_Wd9oiD;\24_$8C\=PGF=T;B=72(X%mc;+g2dU0ccB\OPKI;fz(R#\ U"=jT><#>i[/i]qm-\4Zjjww#H2QGdE)^Q2:[Q\P_+<*oT7p:kO[DSf9M5N.3K^MN^(30\n$OFCBJaF7ML=$ U"4ceazU5evk&4q$6&l^hY\H=cFiWAFLKi56lbaro4t7+)h9t0;TrKCc*IDq2>X.Hc$) U"&e(/I(9[5joieE,=Fl_iVu0tTL.3TFkpJHJ#\Gjl+N\,.X)EdGJ-YZJH$<f U"Od61Zyc-Li,5<%<7Yjn9EbV(P^Qe/5g>R+4Eq6N(jwArr-dh/cp=Fs)QEX=r,+,-V?&7c\J U"g^G3=HV;]Y>7\UH*Hh#Lci-Le$F8vpdOwcXc0AURiBW4cM1\h54u,ZXDT3Xf\'X U"3o*(:MfRONYzjHiVBUQ\0rPt;'l+5Ow^/l[B[_0k?u]J$h6D#kRr#8d\Ck:al+,,lwb[5Vl$b[Y+Eq66 U"#MUf#>yDV9;vUO$Rq?\iX1\'$'mHfC\KphhMOwfM;w*24vYl[]_Y*DLpzj+aQ$B U"gPz]P.Nh2mp0)QHf(3zq21y+mDr+\3vuMJ:.3rLr?XKcqQ,>:b'ccIy.E#Q*aFH%NlxUZQ(*CRh/c4muCEs:*YDg8m6qhK]*1'pg8,H U"/k_c0J>\g0sYsa5\i_s4f>K^),y,qCWeGm2*Hlr(87F%hLBJzs9]A.-M#]iejcK U"B*8E-xY(oT[lcYW&IgoDvlbNx2xrrBji(TkHlpeAwcZ(rHNd54Nc,CS#eI\]7v, U"LmLA.Fli=$wXiK?b-wEWjGq#sG6:$X/Xqx0G$qVs#^6ldsnF'L8m64xA-bM\sVTIVgO/n U")MEo9xp9,(C2sn^sxU5gw6ZjiHlqria8HlX*u]xjaugXvB-j&mb0G*e)amr8.jD60L U"'),DTQ2Op+;2eb-UTYq)R,argH6AF3^2a+$,I/rtkf\e'id\&Xb(=TXK*,[VYt$ U"+D>4-71sak#d#Mz+SlSJwsWD9q0Ya?]Bf-3e]fKHp8?iA^_gJn>U2c: U"*6#J2D12%u?u2#;aLJEf U"XHvIWFRugR69wW$KDg/F,771p?6Fg6X&81VzcUOOp_tf7Z4<5ho?%1&Zao(Y%CL U"s./VXqhWug1_Z14//k%TI$G$iqWrH2c?SYd]4#uEC?(B],qte#Dbf(fB[H0q;-vd/8D2/lfjA0I6c2D.%Ode>-IvC+>M&;qHFB;nrI&lx4y'sOH.G7 U"bsBPDA36=p==+n=PN3z9C6W$#VNFkH(+cDimiH(7HOhGka^_GhIAh,cY3%ns2q[ U"x#AYO(_r&Ube*>ODNUEvqi#(QDla:IeOL/C-N7Bb*;MWKJOF6jV[xRx3C'Y'98f U"9GQ)(Iz^\0OUsLzp7(noQ\jKk:1Wz?qT\U:g\l4+h?pC%C+iGuv+B:O20E?1Tud>B5(l U"K6AAS(;*erehj2lC0mh30hL9(mM[CFDcH+dQH'%.BjXemxa;9b.ARDpU*zWuIJw U">yuj:anrO:+6c[?R&X.quVZ1Q:NgR=A/t8jcX&-v^IF)<<7&d(GgcUOio,Qt9bS U"v]YLYVka3Gl6^c^INW'_hU*lFY-E$?q'7^nfp*H*.SZC6=E.3otIgXg'9)-zAw[ U"z)M:UKz5UJ#'4xB;c/qtg)qr%AAZ3N$xg$l]aA/7mYby%j8a%4dXfi40kJ97-ll U"P(E^4P:I#Z;(#[&;jrA'.&dgF60#e6pS-8Z/>1IE'EdksIlsCRDK)4vN)-),7w*VM9+p43Z'77? U"J;C)AaDR^6X_Ju^NDj?BM5#U#7bp4$t)>7Sf/KlnA$kYk4IG\REKO<>c8Fu30+g U"Q6A-N1*Q4[OD.o#:4.T5MORB[(gCSqFRHgRhgO/V9X3[>)_)i4o'f[.(*5Q:PzA U"%N>#a91VXt^>W<;j**OuilveRDgtCF$n%n[VErZMW4gC'ji?T?a\L;(=G&7mx0] U"m/VRkN+Q\E8HM(H9lcsOqrq(7='AN(o4xV+?:>^,:#m/+7s U"_rROmT'yN_IMU=f6.JI%H25yBWc\_0GzV^qgk;9[\S6.PMFfm5a6t(ntvA_9P5L U"/>%NtG87C#r?N*[IhW'#+AYP$CV0s93ceGbho'?L^',j7Vtni$Tsi30ahlKjef; U"aAxZljwGf_16Z&u#(+'t46^_MTq89Wbsoc#2]c5OJR&9_z=ht.r300YY)s-:.RT U"Dj:BUfLc2nzi)wUK9-(50=xE5n9>7LOICzw+RHh5R0HtCj-.K;eH,NgG9Do9q<: U"p_/AJ<,(X*4I=+^j56;sgB?jZ/(209RE$4UH4W6C/0Q2a&gaY*O^(=r[v>5(&b#\AWHoqn>'6Jc/UX/Fr+_,2(7TW U"^DhqUtsppOo7K&Xd&NGUGWb(PQ<.Re4g5<#O;u(i>b(pZP,Z>DzS0?A)vOFE$ZC U"NC5'lzjQN/wb(ErgOc1YrK4:+wKI9Wb;:i4=/Y6ZEAElSH[Z-KJ20Q\/# U"g<^_VKrlN3d\PQ*fLv]ix+skbhLw3G.u\R+AgZJNchdq:d'il0$M$r+aMl/3N:I U"ahA'3WQOU%r*S?-Z:A8UR\(VsmzPEHel:CJefT('u-tO7:qyU7bc:tZILldw4N- U"t&lk^uW3cqZyPgYaOOP<37b=qkpJtoaQQq?;8%fZyw/.;Soqy3v,rs\RfLwM/Bn U"5pubV&>Atmpde:HxSrzUC2EK;Hj%;r2bV.;M7N-\8Jv)PI.)(#P.?1I>;L9=xwa U"xfP=EnJtrk0,k)*Q6'u?Bh]Op2uji($=)kD^H-ug^mVuApdVh4Dpl[,Ggu;F+uk U">*?.\;;U,b/hrc9S4aI<^0?+1Rf3i;jQ(a/v=\8+Y?#688h0:H7t586frBZJXU^ U"iVuqq6i^=8sw0f+RtfT+;[\(]u^_[/:N>tWtwqYmD_]&06iDMm/qt-1;M80CbDB U"ScXk'8kb84Z8k<)J(XDX^QHwScR03T6Kuq4JrW-Dt0&NJPSRkb)LHomvl_L3t&l U";3LxaNi9rPP/D1Wxs%s8:&qDGFDR?Y>rJFH3[6MHEi;C-CcoH4lJ_pU:j1b)n\% U"H*H0P]TE8Ka8gB=r$),ah]u$UoLsHHQ[C0irwZ^43HLS*lGT/7PMDZb4N_Y==..qbofacwV8ue>MD*NfW* U"?g+)R.uB'Yz92q5AoH,LbQ>r+X$Xc9^aT''p1_p#)caRN.r83X8# U"G0\]%D-9FAMg;Pg,6;OhZ_,S_ME8Wf.Jh5Il8pg5K2]\_l)2F_nL[RqBsSUg6ZE U"=u'nYGBWE/$fdokTuUMW:F.'4nY_C]E_>/D>LWgKCN5eS&WmHH.J0z4F(O1:r-IQLnlCQ:[1pDD U"Y^2^1B:,2+D-KR)ur$w[d;QFCnx##g<<-2wUj]0?7:OhRNFWg(XR??ZrDD+J%4m U"Yu2z_j-%yuURBXjNHA^)#0t$ADk.[O7Z7vWZ=HIUcPI;Y[aR+O#I-bdKNSXg)10 U"o%n-(Q*T(s\5NF\G9ba/UyF_I:;oU0SJ#?J4N/>PBMyW,\D^WkR_7Gfs=4&?&%w U"b5=H8D^FJ%M)k9NPbp0IFVPSZGF3avLSvsMl0/&Ijn6qa*&P\9d_jIM%)H.P5&j U"'boV[h8cSg7Qd2nHfvIxD;df3J1\=+9C,AMdo>W5'0JH,Vt U"GWRwXV5TNX)9hhzIt$Sa_3RQWJ;kRUKg-YgA;,$2ZbbJxY_vnYW1%w*;]hg#gTa U"Z:aCOW)$D?#Q2&AtO$oI$i&5$(3HE.3'MnrTdXt,C-T1Q%jGn9KS/r/Ghh+J36A U"I/+V;]w8YjSaF=bqW[_YjQH(hoy\p+l_\H&A%)3t*YY.,e8zwP&^7p&?H.;0Sp# U"n%\v/l1#6F>m=&Sscnz4Y_ywq%$_i#%n U"\='11a7ATQI0KcS=H*vT#))?l[po\v-9X2L4+A%a;-#KdHNVN#xJrkzl:E6n?W< U"s&=tBp8?O&x/vECxXI+MD4Lwna8e-$F_qZ++g3s.9ds\D.y++5hn;Z*Q,By&g2V U"B3sI0ii9OU20L6Q0.cV9_.gYo(+vFzLp53N.Zg([sS U"VK18a2jOP[8[d7F;xN$JWUS/\Uj?5/*orYCOHFcEu U"_P7tmmT$Pxl4is],RCxh0qg6Y:X27h+7HDVXP>Xr5LlXX U"hxiVVNz#NtLrki?nbun)<4DDcght8_KQH_QwL2Vq=jw6MIvCn4M:dQ%o#H.QXG9 U"qFxS4_>rKDGpY2M#\Fr?-^tUwTCJ2R?n%_\$mF^S7BR8SYQcFoIn$jnOAF)B^1u U"hayEhQkL0KP)CpX0N'rB5a.CFtFv1fB4q,XC1b^OUbC6=;a(IOkJ7u,e-nH9:k1 U"o-=Qeh1v[nNa5r#1M?qvufuM_h?P-1Asq=3?B*cI48-B?*,O3Q&lNXg6V.Xu+>Y U"r%iLQON0x%:f']E+9 U"BC*iCQRTs?P4w2/M'AIVp/jTg#09-hMe&DWPs%Hh)4M0S)_WkL5j*]7$hEK56de U"3cp8SsFW%T?he6,h;,AcF(_fp)KVTmES^2UT_E+X=J^1W]YL53S:u%Bfc\lwI3\F*Y-4J*2B.P8)HQ*r336#T3ObXIlo,b:Xm58slpez438JcS_ U":)D?-5<;j-qvXkP+#9Nn:>LBvd%b(ftOVqTGnVl5w='s U"[64=0=,pqZ-q)QlswoZQ#oup'20->3m;Ln-:Djkf8AwI&SO/k_6;\T0^oeqWmIJ U"bW5Km4[ATW+PPJ#G*.RpTcoEZp\;T,#uPRx^qX0xSI\DALfFbN'T(3f<.[$)Jan U"Mvm=jC3rp6pC2kQi?nV9,8'Z#P+2FRtv1tBG$P,Bw U"%4+%%&h1%%%-%%%%%%%%%&%E%%%%%%%%%ug%jiSi%thup%&'9%%9%%%R-%at/BG U"tU6[_OR[%%M6%%%-%%%%%%%%%&%%E%%%%Z+%%%ugji%Sgfx%up&'%9%9%%%%-%( U"M,yGfGU4r'x*%%%04%%%-%%%%%%%%%&%E%7%%TX%%%ug%jiSn%shup%*+%%%%%( U"%.(%q%%%%%_%%%%% END SUB V2 CLOSE:IF S=169AND 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