'=========================================================================== ' Subject: SWAP SHELL Date: 04-25-93 (00:00) ' Author: Cornel Huth Code: QB, PDS ' Origin: Marty Del Vecchio Packet: MEMORY.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SWAPBAS.ZIP",4^6:Z&=20879:?STRING$(50,177); U"%up()%/%%%%+%F=/h?du%gbl.7%%Q4%%%0%#%%x&%fugf%xStg%o4%7%(I:[#L] U"^9JJql=%D.+&m8Y^o,ep&\j)1?glV)?>;UldWQaMu7gRjgW4EJrwhn%TCY?cNo^ U"uTux_d9v%%y.72[oZM:/ptX;FRqj(*\2c-R5NJT%(0+18eQms^UohF[)&/uaTiP U"]&g&&+fadwN2q.pEHVK,<'SCFe/UwZsktsS1Ewbs,HC0EO5>378i(n)m]ap*X]M U"XCZ=##kq9\rirgabSI0we&I8?(C8_LQdO8qh>MNXomXjR_9H9c#QXq7+SNRH5SV U"LG0N8)txkUs9wdd%8=$2b;W0T/ZodGf.Lt3'M%^vTh.AL/7uuhe_cxO8qFAtf)[ U")L'Rd%o/zwXX7?)w/\p+fwF0un^p_TNuJQd26$tA'GO-%lV-l:62d4uC9$aoR]# U"NX%n7y9/pR)-ZZYL,[[ij]ooLcocA;Aoa-iE2hu61F*.VSLIt#$j$gnE&LQ*iAf U"VeDe;sfwL*.>4<<,hlpG&[(s4Q*mkp'=I?0,'ES5^+&NdECVqboI7a[=;oZtpfN4SkF2mP_ U"Z^)I+)dH9j=NX681O3pZZ/q[I>SN85d*P?i#QH[Phn37W[(tsNOx$WLPmKf,VJF U"Y1P]'XDdoY7D/vqLcM)_[P^43(G.%o(bw70')##J)(?8/O6]BlxsOr^4MA_[9%a U"fmGqdM3_6g'+fb6N.rMT[,%0,EJZ_Y+t[6]xaDGCTuZmn*[*s<85?S$.i+/Qe01 U"&-FqJT]dg3OZmVw:STEo;CA?'9n_Vkuw1hD8X35OEoSFsTlLUj.9'ElN5Amm$&J U"G72EjY$oAG?1\fSGmoCc32+aSO(4wRpHsvLE^qEJQ'SHuZ-l%6_[tsSpwkQY*pWacD[F6>QNZXT?QZp>>?Q U"n^>8?$Qb>hg+mu\Otl8uX&rLS)Wq66*>Xt',Z?);ufBQFmvTCQ3JPDNY2<>XK(' U"ZUR*;FZ)i=k9ZvFQxo:dGQf&>nGcQ8>X?GQ:>sDHQ>p>>HQoB>(HcQ*>h*hm<4_ U"O:_)U]P0He#)>lh136u+[\b=8J\\hP7FZf*Iifd?1;%Ta'#(_z% U"-56'76S3a(4KA6*b,;Syv,U,kx>HVrK\:<;a7P$dg7rDLY/5C\b,^Wici]qMj\h U"OL_f\Crq/];+^XZn;]C#Zc2i>WS^RVzR^uN2P8IB*r%4jPfc)OmDgphS1;n$%/g U"LJ;pQF(FzwaPr=AfAXr9tBsBhZo6&g(^GjaC'IcqM:laNK:hlrBieu&rQ+uIufa U"AdHMH59MRb4V[mUU:i:5Q:l%-+Pz2vl3UtWX]f5MlS,A[K09m_o4c5Fb7Me,Ych U"1pZ1S7nk*Wmy.-8PIfy;\F\eML(qs[5f\aI%L]BbWIPQG(n&5GGpgPVc U"-^LKSw)cbCE>)Y7fd.U]_L\Js4(?9Dx$9pfV3BjSjoeX0GlB=r*'e]zVO3d\do/ U"$TcrX/(=nzgiHD)lVn>3 U"=+hSk]0ZaPyuuW:q#n#1$X6d9KSfY7<[BKJ7Z9oST&6^*?lTYCn(g8L=E2G6P.t U"e+5OfM$n'I)EDKI)KL)R^rJLR;N/RqY7Z:09[gL^+Y3U(c3_k2gw*X:AUV/WAtb U"+i\OB,GHl[,[[rZTw9Y5K9qMhv;Z96r\/40$<%,G[TJ-i;-saCV5iqdonn[Sj[V; U"[Fb:SM#8WIJ%u*x'r0^7v4FL'-+$r*\O>+B&rx^ovTBOrTqunD>LE3K8DEJjb#:\SV(M= U"Atu;]?rdIq=a1Q00\b-Ai2q#)?o#H[3;q5A\=\5K\'h U";4?\*GCK\Icr6Au\Oub/;%l#B$+tZh2i%PXq4lv]^njT)bYd,.eRu]m(Jl\g:[L U"R$?N)L-u1.JHl\PcWE^#o5(uG2bi>4\aU/0kf\ccE&^4vWOduSiHo[tj#>Wd]D5 U"9JGousB]-#p)1&Ma5ec$#0^^1MaJ?CY#BK&1M+m7s$##R:r6?sbu]5v78uYLl\w U"#??d=qzpj\Q2-uJ&8r,phvZtLQA/8=P\F^rMji-VA4?CeWrpL$s*u\rGcExQD5C U"a>/TJ)2JW0G;^+fG^dJM21PUA#IYtYBQ'*((2H]9e^%]UuR0H1['mVUY8_?i$_K U"e)Rq)'a$]nZ8x9_a7:?#Y1WA)1uH[li=L5IyskXCV,jkasLq\,8_V:&<5s<%up( U")%/%%%%+%F=nh?qI5O_B&7%%T&%%%0%#%%x&%fugf%xSit%h2'&%7H9:I[\7X,i U"Ta*%+78il>oep>$760Pag*_5D$e*4^n9u/wgRs-NRufiim)_N2u)C[Oz3+EJ]Hf*[lsZ+Ai)WO2 U"Je4B4eJ9AIU4W0;AcFS7Jd9jborf*s2%f)\h^(BES-P5bU+T02De83(ae$S=ocW\U1m,V#n%SV->2d+VV-3p*FX]1MqHHW;bJbzBOogQJQZ U"4<(W0Cc*;vUg.%%WH%&%0%#%%x&%fugf%xSfxCr0/J% U",+#+'41p(%.,0.%0.,;%,-+*%+,+*%[,;<%0/+-%/0*+%:)+<%*/-*%+:+/%J+- U",%=/,/%-0,0%)J)J%)/+)%*9*.%Y,+<[.?Puuuutt't10Q%0Q0a[0QP%%1&GH%9 U":[\h7XiT%a*+7mH9^obepj>]:M=vTbyYO1WJAW>v\K[;\mv#tdCxfh%6_mjhwV( U"l=hUoltV%teFxM(U$78pC9JG&Pm^]?;>/x^Yyps^ut'Xn?8ex_hMWu_Vv]TR.vk U"M=exVVV+[R8GD>v$<<6l]fP>UIV^d45sp$koX5-M%9$kv<.Wv*Vnusw=od$YJSZ U"htT$0#nidaTOtbhEMA0-lwfTYtdlsleTNcrn:2o0\^N2/0\nkjgw>eH#kYeA7ot U"ztAx%UbtkxGOBevuZ/lxsLU6a*#5Hb:)im#Hkbb#ru8+HTO?f6eiCc:mDvkLGc6 U"Oti?DZw_nfot/87bj08vN$]wNJJrMNUw3\-7*Qo$%7=n(G>c\r' U"P?Q$3?q.>8$N0f6H^hNl+WhoPIbr7B8e:0w8--pz0X,or9fm U"2#(55x9U3u<=Q0lKHr1GzJt3reKf;qN%doBnx*txtK,L?%:J)m6K$abd\cg5:6sJf$3.AL;sWt#CFa^G4t2^qCgLvg*o2C+v*6b#;=7BAu=Qb#: U"JMiFV.K13f'3B-vTDm)MG6lUR9PpL%cr0vS/o'NtOe^hEvZp/BG=\osB%RsU'r4 U"g.tofLlxfEFj4JZWj6)6:jH?cW1txCdeUZHW$-zYgYD&F6 U"4A:afGY=*tW1BPgf6U5%uXeUUG.X#BKrcs2Zp\PsAkCyH<6]^=Qgj[0T,%+wO=C U"6PM:-AFZqo8Q,FM\dG8UC\0tmV?UFL6&ivBK%:Z>Usl_2S:j<$),ol)0#fh[e6t U"84,=Eerlv?G3VHt.4P*('F)hCulOgk3n[xHk7S)tmw?5Sa>pRjA4Bq0K(AqQ((.:dgUarhF2-AWX,n>/k\NTyQG?Tv6>7g\>StZeloO U"=Fv'WOYvZG>PE+o2tNge)'F88iLZ:7YovN.d%9#Y^o'Bc(cPupT0H;S\x^aJE[p U".W8:HKISd4cp?JvjcT.=]9qtncNg1BxJ3U[pG=wjxm:OP3nUG[QVlL'3s5VInUUN44rglfJHu_7f8T\8CE\ U"wyTxuvAxB&2Btz%*d$8%wcbHcTfSE]ErTqk(bh U"LKa>bCQ2*]$N\-qL:NL=BU1jd$V&=UJ5-Vu'2D5do$\CP\j^_\M>sDR#nwoSP>W U"ElB<]PCtYRjLHMVb&5JYo7%?RF)$o+T,R3;wdnj=#_T]sX5Orubq;1G:6MVREgaC#R=:^]8AYv;V$hQq%le4>;\edUM U"r-Q,.lh.ZYTu&ZTb91J6h#[$ai&X,Hp*brSEdM?>3pW35G'ijDHURA4SK0kL*46 U"ak+<^XtoYFi6# U"Tk#J$X$VjCQNZL6Twu5HY:=0Mdl%#xunfk\6m9aT#OsCV4CJ9l%AJ4*/UrAWI=t U"bn3i&HSETCAzXWvm3;cJscgC4*h;GFb0_T*'6K/>[^ioajwlFLZ00'ZTsu\N6+) U"LHV42+?Xh*1t#7/>i#3(DqQ\<8p0_,24kqA1%Y$lT?I0qV0ZQSJhku2gI8O?1Op U"ZPqC2FjJ[VBRjU^=_KDnD2mPV:%:$a6ZP4cEc&#$U<2e#8#2^XTGd7vWn^a.29( U"<7lTjQH*\]nwn$jis7^/S U"/>u;F8cUvt+T3]C$SiGQ/d8mVw]1.BeyFIL1S-(X^6D%c8'N(J2+^t;iY^Rq>FN U"DBvIp\Z0J[y&FTv]nM%QNDa=UydNOEZ+BJq=TB)TP6\J.-78CBO>n$6:q_jecf# U"iNj/,ADmr%Or7_8_aj^__8(#dDo,[>d:Qa_:\Y8Oc^a/_^kl591Kt0:X+7Cu/Y+R U"L0S'L+M+hiKHQ>+^\6RI=SR<:h6P,U2tGS)xZ]mfMr,TiC+hdcsr-1\^4X1Kx#W U"iQ=$tLk:.3hd+POCJSKT#9lrp5*kb=O83<%#,U3>(.Sf:?Z(c%AX^N]mDt8iVSb U"w9+TH>P$j,tI4orpFyvw*U/6UCX04fAi1Wt.M39R9[>[6+dsGi/\tQrSu=N:1v/lVKZ_d9VA'U'$J04r's4VMrDF-%hZ8Y#^_SD=we]5-Z'+OpgEL,7hQ-L U"(CEaV+T,W:_0_F]]f$R1d&S#qQOr[Cud^d#<*I4PC:a%E>4+kzPGV9[.Qr3ed/\ U"DT8rAc4uy;-Qby(j:'->nwu'O'.3D6'-Jkr=mNq6gf)Q$F8vWwka$^3pnpJ(P3i U"DmZpSCHUqbo9?AT-ZC=D^=1'^?4+L5j+EpG.j[:bm;pH:)gJhHW(J0-in=^s:M? U"^RavNMsfth/HYm&eBtZU;YZW.\s&F.OO4V83Fm_%>>j.bBQ3LL2FAPB[Bh2h/17 U"e^E2uE)dtI4#d U"gK1_z]=<%jJZ]OJ0df)D=X/;d'1Bt&cU]v%Be0'F>QZKq1j^WFtEyV U"jj%Bj=+i+]Y-JrA[P-1e98\[&Ts>OWEgIwWO)ZD[HPqA-\[?6s>['?,S&wCO$pyE4jlYS,z$zT2Y&REJlhv/o.qKqFc[>x U"8ZW)h/um_?rBF3l#BYszeFyl?\#?+r)&K29ou1M/4a^8U2FH\-'cMg)%L$AxZNb U"m8'Sf1g$'M1YBN>I;A;&V573GXI1bf\t*7C5*Gg)#dMuTk'1Q)eb.KL+:LJDoT? U"<3/5Z+:vT\kX)hdr%ulBZ*B56&*1.#Ar%LB61..2Uw]<3pF(^(rR=+0_-cDS7P[ U"OCmHmL-r&k(nk1T75OT1S]##hLo<]j7h,R+CpcP78E6#X U"WuGxW4xrj]S,JvhOwgPDzL>o_QdoU\'+SgMC U"Vq56PZinxi=Iw9a;aW?maAZ#IR>cWircr_EO(bC-nRp/t1qpIgkq_?VP3f6D<5VRB-CbK3_v0_?Us\9.YUp$M?]sIqTKP1KKD3B6Z[p U"F+7(nGYMi&Onlc9TZ+*n??7MkXx8U-X&C$Rb:IUO+JAM'VbIX+^ U"'e$URml[n2,C_q;sY7q.G?/VD31.iIdOBbLFT/QprwrNA%iJK4BU%);1,S+STGC U"W-9(kn/2TT82;m^+\W=KqNg7EQ8$Y0L*)&p%4z-TQ*qP%[\Um]^(sAP;j%YCE8' U"xNRU*hfJY*-r-Ki(3HgK#cH,OKbB\UC2q=fq*5-OutgIjod<1I/<&gRt2]HGYFm U"d,U5BuniW/$IDU,&]'m>[#&U^8r>?+:o(=IL,B[Wl$-'<^^&UK=tVG\[Y&'n+et05,w(*:GpD(%W2J(S%.;AwaMj-N^(:Y1tFrj'QMpWmX U"RJE]$()GN(fh9rXU\f7\JOvB;_;[#cDU:UHW(x/s,k+8 U"P'SKAA9Csa5s6MKqFRv#YY5>JNG9#Bt8v^NTnWm7u3%d46&PDNKnWY#HlMNOGsQ U"gPovX7^-(gr#8&3?N=nWUI].id4.=S[7/#Ek(w.i/API%;$4C\'G)1D.'2?:R%[ U"=J'oApOl;^$:pGO-Fo+P02&HYvZ0JdiUOG)Q,e[F%C.\?>'scmC5)6qf)EG-1h* U"Tb)hc;Vzi_IX6g'G3Ahr5Z[Ooc'[,ws=A.Sao%vhe4%)Tas* U"O[f%Ri8mQOfAXr0+(<7Av5%L=9Ct5=Pomu3/SFc_; U"'q>zQOtkH:=i)RB24NB+;OBY7sO'UYXd[w0SAK5vrW9)e[hS_HM<0%%up%)B=V8 U"$9Bq$#W=LY_9y'*+71.S7rGHlnUY2v%(F#]A5hIzu9A6ArH3TuA/piqq U"W)'suCA*6A9+8AVoh'ED#C#Y&YMtb;,^O66Lpaal.;42H3Cp^.6_$T/1E8Ea4JJ]c:L]7VXUtv7\gv] U"fv#)uT09Rz/)&^ZG U"QxPVI;<(2]14%Rq3Hdq&KoBJUSPAT2iYJ,:OrL#,W8,gP<7+mE&7VRV;?0BzPPS U"itR%;&25z(%a%e#',L)8cI7o;h^*g[O(Ic;oM>zbduekmGV^>1#q57MD%FeUh/rRe&-mD<_/lGPF)#pv& U"N%SSt:0V.];nlFwe-B4;(D8Y%;7'o0%%2^7DJH1?/]Ko^1ysx5%MtFe1#i?eY)W U"iI7Um&wK[%arl:5u+AyYHK1SB2B&4uW6fUY>$k1e'9m%mMUy%hlg0?1:cw#u_7Q9aXCbBh*EO'^'( U"/.E&)8O1.?=>/J9UO\7oP/pCa[_rP&W)'z+#%=$Uyu?gev-O%jGd/S[YFO:'7JD U"[)Ttpi\^yOIMd-1/I*V0BL8H/[FK:m1n[B>P[%c*9p+ea$T,*^F# U"Em7v_hG,^N5uaWaJiFM'rEj\>J;i:iUpZgZZdTIl\S0 U"nd7(h8E,J*?][sDz9Ki&Qn=*S*/U:X U"]XZGiWo*;u8m&>uZSW]G7eX7Mmd.TEHuy+#,r('<=7mRQ;Q%'^[/dgwSi^]TCsr U"+\<&zKRJ__R-Uk)ZXIX$[W^%)A7-wT9*zT%;1fix4e>k:U*BfIlMwTAY^oDK:z< U"n(.%JQ,MobC*T-MgYP\ONGyp7#1H#WSm* U"#[kSP*VQb.HN>*9#IUAS*]g#k*9DV[vfY(xz;>Ipm'?]aD6nqT$$<(HD.[Vrf9^ END SUB SUB V2 U"dUp=\y,Dr_C,H*[SX$dYI5w:Hq1_,Ls_Uaf.Dqvx0)zzk1HjRJA^ U"CY+7lpIL/#Ds,yj)gkh35AwCfv2fw-^dT2$(:c[u:(PJpEJ;*U>(\n^wXkh*5'\ U"O4FV?Os26)/*iU1>DGD8K2aoP5J&qopF7+,Z<$1_9%Ma<_,M4;*h=;w9r-*<0'L U"&ba4WYT*Wirw;hDQo75+4O%5\9k8S?FeMK>akYn0zNX.WM]3s=J45)%P]YP\joP U"k;;a9)4\wqA'=Mr\fGue&SYLXZLI7#2d4k0dxwM^.34zg)x'Eze>$[_rx2p67G] U"J-#-)l_h,Cq7,*x#6I?D$J]:&U0\1PtlOvWRmaJKSYVo,iT2Ed/-Ic U"e#9qbJs0ocuWtw'8;L]'IjJAR#sae[*-Y U"%(#gub%[Yr+n_rZQ/[SQ3VpRvE)Oh+]n13qW]GF_xkF8Ydt^+=*K)W=GXc3.P)psE.7Wp#.:-SRO*/nDZQZsS&^+osk9WKE*rB^b U"fdOO:)AOD$[g%hmZLA+g8VumU[^/M5%4Ggpb1>>O)8.GPdvCsmqU>Ch\Dx_\SwY U"*R.?u=%3LVz/fnZ?6B>CsOngR^4N5BMFV=%N]G0CCNfAo4*5POKGkQPu#+=h U"YA5*fPc47'N,>cDs-IP=%(:oSTfMMOmhEww%o$abHN9(ul1C;P=%*5AL5NK U"3hK;KmeZ$^iPkcZ?Ok7gIEG=]g,&*_9AcF8AcE9/dzIcX/\l/01 U"6XgPc:$+IiDG7c5'GVd^GgkNo:xV>WY;&.Z&9tY*gZ2+U)=%)qqPjj7),&I5tJ/ U"1&?-/wEHx0fW+Q%vpu:-iM-q#mM/iYB-oJjiRRE;7k]Y:::i&O+muX0Ed9%50$4 U"r%AA4bfFbo]8a:_Q.8^AxxJ-:*Xh>v;6J+>p,v)JN7hV$ULV%2F96Hf^Sz]I01F U"?7o,5'856O%=Nb)*WUDk?gZQ.]<*#9PB?Vu-y&5jf4Z#'VnA&?kKp**e.\Qkb:P1:mak[_pk$IY4/:5caH+K].Z U"Ub\PM&r U"QNThJZd>t(qe;KKot+gxS\*69%oflFra8,YZrLw- U"4^Tf&k4NArXqQ=OiFE.]YOo-q(Izu:RZMg:5f[31g(k;&S>05%t&S$Gb&'5,.Nl U"_Grkcn7^KsY;)o?H-IW%&0:m>/)[7jmJW'Pe+hVd(i1W:&4V6*N*Q9)<,kYIVQMhLT; U"vJhMn3Q4GJ6Ah9Ft,cI<$]X\2H,[(nkiV\LNKj\>Wi$7k,].XmX^GB/l)GgyadH U"+;+2QYh) U"S>-MeqZ%*()]#o#49'fc/V3n1%Jf^3he6?Unb9*c\RY:jMvM3R1*xdxw U"B85iPHR0Zg8ZZ^.JUbq[[tgsq6-HVcI]>onPw)JH;7ZQM\N6'AbIW8Jcz,]wILA U",k1wn5uZd1n.s<_R9Q/NM&&$dWJ3C96U20Kih7&Y4I=nH U"i90Vm/C]g?DN$i%,84]-Q\LL9pHr3rnuB)/5=ekic1'8;nVC7 U"/6h-aZ9&./KZiB0x)No2HN3^Fpu=3D\D# U"#)CoXqy5N]b#a6*'QlAJ[42t?%#H\Ycs^LupzmDa>z$N$GQ;Q0CB3nnAN'_TBbp U"AJ7o)%n+fB?2YVIunS*<>Xc5.)tgvV4>.Oz(S_TnkFHADOTDBS0Vq(%G<>V[x U"\WhVQL(I+,Q:.QU%%a%U#R'(-uiqE0,Az4,YgT]FAUD[;#4eoxc*P0Kz436ma#% U"5op(YqNu1Nctj;>c[p]u3J*h)T*ib;:41:0_:mj9#y#b/dvTSyeRTY. U",%05Y,)H\:Mh-(%Lc:(M6G&5[aHdW=0q=Qsb-\uFjnMO[pIO=;^R2?PG9''=T=P#0P'T>n.Hc9Y'Q;Qe$,vE*UA%k9bz[SdzX#\5D^V U")j76wd'.4;&o^DjQU'.MODq19uE',llTFL7OVWpujRSm]K$U#pSW0Y0p0ovB6(4G%GGR'g?l':;6cY)uKE&gm: U"/1W5hXYgHZ8I/YCuwL>^e.1h$aX$bZ U":.&9QYi*aIOp9+F.QMgPUrRA'8G1?'c?s-#L'3[Ub2ZJ#:g2FM4'.i8C&O%)L1H U"Oy/H8P)4g7n6GW?%Tf>e:iGI94I?&0L#Wp0ZwCQON.\jGM8JU%X$%[exUf+'Wn; U"TH2VNh60ltvLqTF8\p*=EaA5>at%=g=OU-An\MCW8/-50F./:c9Y$.p)AVoR%bI U"RT.uLJ*TE$e:tv[.KBZoL#%*B5,AIA-A/[)Fp2vV57Nbl0u(iA;;XsLND;^*JAD U",s_$j'yV^I?*GgbHqElg.+H8X.)dOqQ0rX*CcK(u:YkoIk=s^[+AmUm7IO%CvyQ U"]5]h?.*38YlRHI=pzjocIn(4D<%3np-+(v='o]d:Qa'9Whd%MA+CCF]tCA?B<&P U"\u'A/35PMi;BG8J#wENa7nJRO#GPW\]6QWX]3)[>[P0YEh+k+$mW4,M/M)tj:YD U"zO+P)8&7eU:%g?U7[qOlm]A(eVp:%MpSeo8Kn95[66o9.FGpFUGldw$fg.#GDG) U"FDp?Bj7_qmFKY2W^8k()HL1OYM0u+pNKO5]Ltit:t+*%AS_1X_D*WSmy+&47^kv U"2m65:-iMRG'IaFII9Jm_FRB/ry0H[0[uD,Fr\zgd2S[%*l/Yp-ka_-__sO>p+KV U"Zq/Y3^_,Pt)K)_*SESXpLyvOMg]xqL8uh[EYD;7IYYA<.fmEJSp([5Z\4z8F/7?J(]?9Op3,L&Ll U"HRW1X'S.W--jfCAwUZq0rq5U*X40HkSzlR\k2V/,wBcWir6r6 U"=o/6AdyNbO'8tRQf?q4-TgX#0D)_zQ2*bW0_2q(\%9sjR\Be0e/:FU_(mcHuXFX U"+:ngKDr>#X'sQv?C0oE6WI.DiKJBk]?&$/+Ca$45yUKE-dt?veFOm U"*Z_#'Nu;jI;Q$q-27_y6,g&tXGj0Q\ajbDR=-B?R_oi5F\SMG'FF:W+]7MFX[A- U"TxSEj:Wr<>zwlM0P_Ti;Q/LFV#PKb0a(VK9Vp;4SnZE/O-FM/-uT$bsF*u\_=&? U"RFE;Bu[:=eI>s[v+]k:/.>w^J1a(*d4]BEC\[6DpSM0#Ge7L/J:mS#m;g)9qSpr U"^+'&M)::-/rL?AR0\pAs9Q]9u*N0))uB+rl-UL:km7?DYl+4v[:j_,guCLwCKSk U"2/(VZ%8t]pH)I3OKVRKPxWd4/#ZcyRLL/*L39\#?E9W;.GgN:$o=5,aZnrb2E-< U"sA+ivF^w=YrZw2#VEKE=v[+]>#>87_EQC;zo,rM6AB1.qj;%#v;55==VM0e6#UM U"]?r=Fd4qJMhaoA\)$Cfr)#qZqWUOsD=erPoSGw.qM3KQIQL\QXRRG5Bp2OEeT:+ U"(6yI82SFE&FwX7+*k3TK?FwEMJ'[miQ-K#4'p(<)p37C#[knBoP&(da[vyCiOkY U"*R^,d,?Gb0cx&uzZ'Q,k/tif]O=3=4(hK*e/04EJ'E0)U_cRQ-eE]MP'^X_(pup U"iVCt,N)%j0\znd8XV>26FGh[sTUb6/#Zs7I&ef6K:L&j^*q*gGui9naKEI;1rR_ U"zE9?=(f(u8\^L&iC$)E\MP4X\z/EF_#s3R,sCEk2gLYTG?LzR'gVPWl8WXE]#sw U"c1FGA/*'SOC-9*%''lI8e.7dcwhX0rY#K:3-oj5uPH/;Lk>n.J4fO2:P[?7Nn>Q U"..kMuciqh&+Rh=rcOK^\9WtRhX3]PGITWah1SiV;71=ahUZ^ez66( U"WvnDctK[f/DwJ)BV,Ab&y^YEK8npddv:&2;fIQcP]:5Tv1DYqO$BGhV;75tr+'3 U"G6v=# U"\6ExWYD(&u$$ga_l+9ovCm_%u1=ELnaE>F%Kaxb>-=zo9(:_gfR\J:Xf'O]^B>y0#08#RH8Xn,-JB6h[Zq%\)(Le>Q^:w>4 U"_j1N?r2Twc05Mr(?I:k2;9lgvubcPy2\B>hp=% U"QS;aSrM6naDb0gq>9aEF./5Qv.(d>aneole=r:P*sN&lFp>DoS_5PN?Ed;Im+Iv U"1xPr*ek\w,^P'w;/yf&E,eP$AmFma U"FuPvii4e:af0PToU8ke*hCMP5-n#9k%Emi_\3?P/L\0M2FW&SC(g+n&+#[gM:%v U"?)M:'dV)ggRo,9*=vp#3D]cd:BaV+<1w0%auK?Rwe1WSZpc=aY:QIUO5a,1M;Zo U"28/t;smNIkN2[Z(eb1l-NL-t=W?KEi=Q_bWI\i/n]Y/TF3&an7( U"0Ib\RuNt+$uTIeW&EN7;0>mCiIksgN]h1%iN#2CCV92qOb^;o>=[>ReH;f8&69f U"$=4]jU\K\w+&.,V&UV3bU>Pmu^rn>VFpXa>m2L?qmWztMb8R[s%%BYKtS9TTep] U"EMI'7u5N/x[4jy?=]6C,o*9W.;5Ei&Lr1Oi0?&\MO;AlMqa=_VJtL>FM1k*DH6- U"qF7Okr*PBcCoz&ubL]r>+'KnqkJ*[2pfFY:DFZq+#;V$Caw9Nd]mDAVchHQ4VT+ U"w3ko[%iRhJ30LU1PaL*ZDP*7n2djMKI]OT;/f:_qO$F8+P*.'t&F U",jm:T9BZja?,G-,1,CIp0JNfE%-RS]3/Wium_PU'$ML;qZA#UqE,2CTD1'b'zyA U"+jkN,fD6H]U20vP7Qo'-M0:Vq[FMceEUKqqjk%eNJ>FzIHfW$+&$g_07tR4koM_ U"^b3ceIYndTRSQmdRg#pq>:GfVW#(;k:'gHXmW2jGn;lf\NQDLO>)gAfga-91T6J U"S-%tPaOh:-&imnC(H[LZ0W>;.Z589 U"Ki]P$Ac6)d$f]NY_=&'[2_1KfBsH6s4OIbI94)Br>),AC?fUPCf>Q.['oKUH99o U"g2c;eUMP7M9V/1g63=XU.=NY9Z(qC(%B16F?Z;v-;oMNEke00aTa=#9RXVdPi&O U"12CI??'1nZ_c]*06]LXG8j;N_n_'CFN2g2xh#rLX/>iMPM8eBKhXO\P>?Y#8/X?M U"oIHmWSDshCu)2OFzS#;iYD8Yq9/pr9%D*hhV)R]?P_S^b_z-x U"r5B\cd>'MQ_EXs[nS6]nB7\qCXnThIbPcDS-*FxF/=Ej'1s&;_;d)_qChPXp)CFRrz,oW6dFb?_x2yn&+S*Upg*4Dh'/5*PVfFs4fls0'#M/; U"/(Wg+RqBG,>ZO6iKfbTI_[iraUo&32D2HLt^TBk72G'0$SU.pTm-DR.rw)+#MKj U"l#9u+qH9+*Y:3q/u=Ji;(7-6CYj'3_LR&LX1Bb12W^nmVbR5E(PX-( U"*TFiCT^R%_i_?'96Dd1JHpHI6JA_]m]7*X5Rf;UTi:My6JH.CUO7h'0R72)d,e1 U"kQ\b/](adg'7%a%>4[b?f.iGpn^1%.yrQZ);R4;^w27)OXz?M)u=/-ojlWMf6%\>nNIo8cJb%Q-\xY)('IiP8b2NdZ%9fnqWHgK U"B87J$N]E-'-/'mF3GRbSTxNOh5n/1:#JDC5F7C21y.-D;/f2TxrI9C]xa&quLN+vvoBp3GS^Yr($Ok#/r6baO: U"5B_rho0*ZZ;psNVE,&l,1Q0Oc\r65T,D<#PU=%^P&1aqP:sd-U+$#/]F*3G7RhK U"-Ggwo-bsTjtHEGh_MXzU$;]egcn%+F8ygBTpE)uLXQ*3T:%pwu0C?hN&e8jnYJD U"y=7+K-A\-+/D6KJA2Go%Z?7.R;I&['J#gP8rE-5'E147L>q(Hc2I5IlMi7[Ip2^ U"qD?Q79SG9AL;6(h:G7A0pU]&0>M^B*v U"ZXa-5b14&uj147&fS&1v0G5sK2;i;Ol=-QLp&T]Zf?&&\x5C*-y-[F=vy^6'gr, U"$(=(Vlm>ScS\]\pDVbd8av17(pLVxo&Dcd6qsaO%h;>GA#\^>U(tXc]CatBs#x_ U"kU/X&T8>hinuhpwt<\s&9]0I5vqLMb7c1=7S5.C>i9;p:;zsGwkCI?6oJ\JcsA) U"LWuHL7fW1704A3#Pa?#Q,;rYc)i%A,qDJYg<^RJ1t5qtOjhNiWdMGWic+k+R/:m U"O)rT59:(3gTRlE(-]G7EU U"c)Kh9Wy[O?h;0,KbF+4Fm7BfxofNZ>4GPc;>SJ\>n?cBO-BK\3^a?AS=B#CZU4J U"q=q?0]:T(*q*930s;Th(<.v]9M&mG1/VbZC:T(3+8mG/)vU_'*+eYO7/,o0;uLXci,uZ-JlU8_qau7,UrgJiESmu:qm\e\NU-%%Y+?:GR8YzZo/Q U"e'9&D,2d+C:I'%0/0IBv2zTtYiKVr19Zu><;bf.+H1#(Qgx7XTPC+Dmr'DUVNAh-SLdN+MA,XSK.a%5;Gac2']S9)US(s1 U">yA2B%NF(Re)Yop?;kgI0xims-?+/-N8(b[Sl74dE6%%DQ)PvY=*:O$(+d=..+4 U"r=Cj.b#9Yv;_.3aadFW-wtP#)8,J2NT[3/BY_7s';ROt;_=o1jEnqkJ-&g<7gT_ U"vX)B*g&7#?8.e$&BRf)KNDlj7cd/&RaB>+3UsFqCABua U",M+3Tus>7Y5:&\'.<^?/eXOY9/J*SgNT1qCD54Gv'Z#,hT[gT_;1[^=9N&X^=_] U":SE_\/Mmvn)8E:;OT::Bcf8KLpRpZ&y0Z=n)gVE'B&a>O,n7;-p,iYf&kr-G0wS U"%m$CjPiW\g2o6$St(z-w7+-RHqjMA$tGJ#IBIc)pyMi9vRgF&j\kGI]Chdz-844 U"#R8J#I6qf?+zZB=]s[s(W(C9_GY6Z=>gKrO^QD>>1EA(XB0cjvJo9ikjg'R7:'= U"8OuK186YLfU&_Z1R,jao'I]3I6i;Z,(7x3(gILPn_Kw]/%Tq<*'C#+E>HLYU.yI U"OE(%\k%CQcE?L&7CU\q6)I6a0H)#'&YYAP9%U#%?:?#om'7.E6o&0F7cfF[mUIm U"%ATeDZ3gk3t90>WZzRbKJf_q/OM87Ip;c_G'G&-A(y=d/+h/5<5p_KoA9 U"pm)*i3AYMfpP%g\B)9GYK:MSLJ%?JD)ISc4d%-wOFgtuiabphQplZaP9 U"J[&(.qTXY2YG>OYhiSm;f5(De+w?lzfTk3$Bq]\'8Lz9I)la'BG[Ml7f[PDoU^_ U"JV+>[kCAc#k:WP#&dPWOvgl$IkMnaPN/Gp_KD-L??r34#gZs=vA0L'BAB3Kj/(s U"hd*#GjYfS-0HWG%f*Hs(da5]&(5*09ioT$aMaZN1mxR4(+.)N-5f#OQ+m_S/V+P U"9h.%x)C='7.h%lcGi.is3.+)7z%[UAXF3f,xXft+p)8Wmp3?9AzuS.#iWPvLJe< U"atTmLGqmi1WGV77/C7Vtk0\/pe1VEj/r3tHETK/RN6g)7-B%<4bwn5ggoEGOr)W U"d2I;=8Kf-vB2#.Y0WtB<9^fA#L=o^CJV6%2-;1,_e)^3PW9VbBgfqbH]K,+B7(q U"U;9=)f4(T^daW1/mb_wP&Vs-hS96Ts/y'WYvD>DZi&;nuZPRR*no14?)/X6P\Q0 U"QwOM1ub$k4M^DE36tdIf9_oY%_HS6d/tQRhoO0_)OCh&#lF'6/sOTMV'V4B<$o5epX;FBCYwEMqE\D%D_c59Kvs1f1<_nDQS+52Pe) U"/XW4h4*Wpv(Y^TGxFF/.-E5Y2 U"R-#St7LX0Kf*T3E7Dk'06DhQs2'FfGrzQ0e+_b>FUH$24zm-(ur\OQVq'eE*AESeQb$m41O>UL(0FlQfeOvO4*HuVRe2]yi1azGKCXVNeF4>aNhUzU.* END SUB SUB V3 U"3O7)[[rhCtTOrXF:pfFyXjnLmkXO?XM'zt*j3Jz+L)HvH2tH)Zn)9'UJe^6[U$i$z0wI\E.jIUjyN&QEHhU0N3Ge U"2HRGV=1q9aEtJUh0ti4IqB6w<>hmsS99=K\iO7:/xJ:N\qt6 U":U)1.k3%*];;%*&xr]]oetDG]M6CxU1dx1U34RhvlSt+2kb9fGmr4(?m]\n=%up&'%0%/%%%%+%.F=h?&dugb%l.%%'Q4%%%0%%%%%%%% U"%%%E%%%%%%#%%x&%fugf%xStg%oup&%'0%/%%%%+#%F=hX?qIO*_B&%+%T&%%%0 U"%%%%%%%%%&%E#%%%?%.%%x&&fug%fxSi%thup%&'0%%/%+%%+%F=&h?>c*;vUg. U"%%WH%&%0%%%%%%%%%&%%E%%%%10%%(x&fu%gfxS%fxru%p&'0%%/%%%%+%F(=h? U"7+H+5*[(%%k%)%%1%%%%%%%%%&%%E%%(%4r%.%x&f%uyjx%ySgf%xup*%+%%%%% U")%)+%^%%(%cu%%%%% END SUB V2 V3 CLOSE:IF S=250AND 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