'===========================================================================
' Subject: FRG-100 CONTROL SOFTWARE           Date: 08-16-00 (05:01)       
'  Author: John Medica                        Code: QB                     
'  Origin: Jmedica@sdf.lonestar.org         Packet: MISC.ABC
'===========================================================================
' Frg-100 Control Software
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"TUNER.ZIP",4^6:Z&=9089:?STRING$(50,177);
U"%up()%9%%%%-%v+#gJD);f_=AR%%W-%%%1%%%%yz%sjwq%ngSvmqg6U\Je9nuwx
U"jH'W.2rcFE1&La79Y'eS<rmlvi'IM/GR?i'[Jt')EKYq5&1Mhx$v224ksh8(ECi
U"+>GD^qkWfV5E8QMgdd,;].rb_6'tG6rEkTZlHHKie6EprnMHgWEV>$[t3#phr2_
U"qBQJAD?uSY8>1oapf>yF%+5;F_SY27G(Ir4+[G(^1%.XUDE0/.ei\-;=e5aPf<Q
U"XV]8WHq%)np?d]Y\-#C+.9i\q87I((RV/]\U.,guWT170P*;E^G>J\#-lj7Fs[1
U"bkG276OaS)'meO+S29?0175p5C0#<%B[vaVGf*<V\?9D[:0k=>Ku&v:\RT?FTI?
U"Pq.87?H*s2MkJ2'uo[%FQ;NV'TD$QSRQ>Y$j/co\UW9:lq/bviXGu:fWYD:[;7Y
U"RoaQC%=iNL1TZ2LCRu72Ue7(Z(1PfH;RDSsqE<&eG%N<jS5UH.v0nh5WD?(Ma_X
U"Xf1:tqj#wPPfi;9j;Z%\9B[OIp.TK1_ao*?xT935TH\q*DD)\pWE8oTUe/_=?;9
U";93fu4]\=pMZ7R\ZaUIF=Rj\##[YF6u4-<#fq3MfGS7_]=m:==]Z[$URlip9-#T
U"Tq389^Z-F'7k/sF.4X#4cOYNu:8>\)hMTR(<4zJ&'vU1XCvSZG+5xiJ4sY:]MqS
U"7SO3a]0BAk6=3#RG1DdG(.r\J&_%7FSl,Fmi[Ek#$efZV;<d#]Uh6j4%8dRi*m7
U"i?kV4#D?D-/ZjA?<#qBo'kMY2Is0)_5r=pTZF5Wabq=XQ;N'W^p#bu:=P*ME?1a
U"S-#*,zBq;d9CZf/#X*uaTi*g[>q'P#j:1yiStM=8-\i=F'[fT19>3E:/iU^6iX7
U"W>v'q<ar,S17BV_S7gbWbM>,9u($fi;]\X<MZybuEjm]>5q#3F'\2\G/TZm2A<p
U"KqBf.-?*it\sFD,T*1p0:#-=VqK[XZ\9k2'[lT1:8Gq>gWU\FG17dG(k.\J1Aj0
U"6R.s-/5[WV40\q1#j:a->VqK[XZ&9FiP;+ZW=MWXg]Xw%?r3QYR];Y>jHOS6kB\
U"QSm=mMq9F]12#iU--9=hKS>iLTG)AFSJ>L7U=LU4Dp/2Gm;d#=-hY,EuPK&A?s6
U"StQJA>4gU\,]j=Oj%+cfZ-U&]sB13\/%5WV(8TM<k5;<Z]2U^#+?$Icoe]8aI%<
U"8VBGZ)9^S1Poo=/X[l_G*0JL9,_WIF=Rj8##gjU^-9=$5Ztj:TG'7SqZSr%4+H4
U"^X#4Oe/0m?4F5R?EuSK<R]saY)3[kS)Y?$CW=2QXc6q)Nrq.q'9_]Z+Ds1M5So5
U"D?=D/Zj4A?J]VRB1[Lda+T+Imj;,=;GQ0>hGAeJuTHn?7W/7ALu*BVU)2[U0FUD
U"ZAaR,fiScH>H]^-Of]s[mfd]n0Kg9qA;:L'Q,:Z]q.vPF-J1,h$[0Adk6=#;);;
U"sue>tqaAx0X9.g-f%AwV9Nrg\4]14:Q5]<G4H.q*f5,##g(aIE0C\p=Z]j5C#lD
U"Q^He?7D18sb#.cVID<[V0F%69vG+FTZrK2On#CuFx;p1UsoDAAU.FS/^wY*82Dy
U"DKPxWGY\]p4(32=0+vO7-%>Ka2Z,GD,n\Qi^,]8[fI88A$#;Q:.oy/$P-<*wf>T
U"Wg[Mi0=Ar,k/:QY*=HdiU-$?MA#;fw<JBP06Zk]a^ZDg[^'>Ptj)km<jqX%XZ&X
U"Yh=#.g'=i.3K0&lg=.j5F5Q(fq'vYZaEp=JCeFs%H(*M[f=4Y>(e;6;KW,5Y,qw
U"P6/aXY,[<9Q9:ou2Qx9:G:0.ZY;q>Y]<ZIqV(%2U.F*1,:fi)m<j&5R(S??J,Ax
U"laI#E0\0:6e[v,;>fAW>8uu<NC\=8r,sHF,LuQ4JQS/6e>0yf\11['rqj%'6V3x
U"'))PvGPf][$p?78^Fy$lL5,$[?JA>gWU\FG.7,?)Mv?%z(n/3Gp>xA>71Q;oDc2
U"0Eo\57::47e<AqJ7?(HAU._F/^/$Y8A;F$q&NmEK9w0I*X=8T.1*5FZ0a5PvG8F
U"LjXi++rQh4Gs/'buZS%E;5a\D&#5.0ZYq8.^<Wl:43ZK+Q;waGY&]Wer]\X$-iI
U"G7D7I,.>=V7+Q:KyA/T3rC?65b-Erh%'6V3x'))PvYPfQ^Grq'v+5>jp(XCjW%k
U"H<0\#\[\7nA96kk;(&8u,#8'Bmj;SA6<D7uX-isuqU6#V5H#S-y1)d^P+f9I6jm
U"IkDkA?qUH]GLgh;P.$y?+29-q.e>MfhUj<ua:8FF+xZ?1P^0Qztdx88+KF>bV5G
U"Sw)pRw^km:EwsSws#TTj?GPNmn0'$7vxF#lw2:vmHFnwPjg&[7>$elGru[f3p?3
U"GGNkHr4AO;_z?L];JvS1*dkoAcw3b$M\wCD8aoddwSbM7eN^[.n2fwUCbM7+N^Z
U"n)\bwc,bMrw+OCIZIro,1/aO_w0JKxg=NNAIMDZc9;;a3hLo,9a$3*o>2gs%oAx
U"KKx)Jtyp5bMINDDTn9Mbc94)aIyoM,8aI7go.[#nbRt''WnbUTtSg2s-ewM&jsE
U"Lpx'b]M&NNKOID'Oo>hs/]ox3CKx4sdylbMRLwcI5bM&w_ybncVscc;,asfoADV
U"nlAdw\gGsGnxB'KN6]YdxV%qwvw+OJI:1Htaq.wRsyf+ny.&coVn*.bwb.qw#wD
U"yvnyqZc3JCIdEtMIhsaJty>bCy>Nt;gssphxCbM\/NZ9CIdFtg+is+GsMEb'M)N
U"Z'QIZn%o2Vn*F_whIrwBtHM)+LK(B=a7/n6k)gs;oexQbMI7Nd<Da)OtAAqwzPs
U"M'b*M)NZ9GI.v(o\\n.bQtK;gs/mDxXKx^Lty'Un94c]CXn6LEtuh2s-$wBLrwJ
U"GtM1b'MfNZTLInuMci4a\IloF.[nLM&t/qw/nnx^LKx>siM+bM[NNZH(IDkoMdg
U"sM&bw0qjw$tM#RKNF]idx0Misqt0MgbyIxNDjLnytcM)3a91Ht=\Cn,PtBgUnD/
U"cwZrgw,tM(wbye%oRXn$n_wDIrwLs0M/byN3c)8Aa?Ot0;Kxv1w9dn[Olo&7[n^
U"oexWbMm9N.?%IZpo]&\nF&fw#q#wJw9Jrn9$DcIuSWLN_>J<O+VNUq5\Q\[z,Ut
U"R'EJ\Nzzq,2Cck9Pg+H3SZuWgaWbKTI4DE.:q(,,f?xq%&4?tcNN'gV4E.HTIX1
U"/D2;q)(,(#px%P9<?cNZK)V4DC2;q(&,(#xt%P9?bcNZ)1V4D2J;qh,1(.KkMK&
U",KpkwTbrqFfkjd$1vr^qTcP8<f_0&K4w:8VvK*dsKsTtrCt7KStrg[*Kr*S9wFX
U"ZjQ>f+z9[?.X]^VxXHMDblwbFMtr-Mdi+1lK]qR-M)>#5<8Xan2T,Xpim*FKe\$
U"6;;Btro]>T;eM8H?V-=8Xga2*Sn>GHQFPe\$_6;PtFr]>JJtnbZRKg<5;;:trK]
U">JdTvKk[V<28Xpa2(/fXim*l*ojAsX/&vOKk[\H,Xim9*Be\2$6;l9tr]>GJ6nb
U"kZG0<_5;Ltar]>TERM8Hr?E*X:im*\$Q>GHZQ'ojTAX/jTvKk[=r-Xibm*no,jA
U"X[ERM8H3?ugY?2ai\t;?o)fXim*Fbf\$k6e\objAX/bfvKkk[f<8/Xa2:9tr]>V
U"j=8X^a2,Qn>GHQkPojA1XE_nMbZ]+W<5e/9tr]>4$=M8bH?3.fXim*H<e\$k6e?
U"t+r]>$E;M8HW?5R>XGHQ;9tr]>Vj28XUa2#i=Y2arU\;?]H,Xim?*\f\;$6e)9t
U"r]>4$JM8tH?_Sn>GHQaatr]R>$FM:8H?sH0Xim9*Xe\;$6eq\bK<6rWUFQk(ojA
U"pXE/v4Kk[RH)Xim<*Be\V$6e+9tr]>4$HM8kH?eQn>GHQj*ojAaXo;tFr]>JJzn
U"bZ>EN)>64IM8YH?W5E8Xa24<R>GuHQTfg\$6ejBojApXE*vOKk[,598XaV2fR>s
U"GHQ^<ojAXDETnbAZw2j9*Pf\h$6;QeM8H??'+Xikm*zfL\$6;bhvKkh[,28eXa2
U"P$T>GHTQ2ojKAXErTvKk[XZw-G>$1qLY0Mv.:dq3MG1n(w/ZG5dV-9a^Ok&ew.?
U"x%pCy\NzUJy?cBN7z2NC9Xy:V4.iWNg+)Dq9q(#RvZu3%ew?(x5py^#Ik%+;'?x
U"J%0&\LNzTzr?cN;Uz2C9EZyV4W.?NgW+)19Cq(R+LZu)'CQ+Zu9E;'[rm[-,5'G
U"9q/(R6Zku%e,d?x%DD(\NzZ^%?cNNA%2Yy8>AV%2C9C^zVdk0*kNegW*GHSIX1Z
U".ANgW+)]9Cq(RA:Zu%;B2?x%MZ+\xG_>G&P2C9$nzV.=21$zVt4.ANegW*]HSIX
U"1Z.mNgW+)s9Cq(RLUZu/'CQLZu<%e7?FxTReB7?x%1p.\Nqzt(?YcNK&k2C;bS:
U"hHWNNQ'20cBZ*l*?cNhQ'2c^XZ**W?cNQV'2C9Ff%V4T.EOgE+)5:Cq(RW:ZuE;
U"T=[m[/'RbZku%eBd?x%DD3\NzY4+?cKNW(2iC9h%:V4.qWOg+)CK:q(CRbZu<Ee
U"B[3m['RemZu%+;H?xM%Z6\pNz>,r?cN[V(2C9Hj%V4W.GOgE+)a:Cq(RmUZuw^u
U">,^Pb$c>pJQM;&c$vfMVtn&yDZ0AM<oeDpTp$PGm$J'jnEq%d0SV#q'qyrlqVET
U"E/pbubMv62i^$%ttIHTF\Qp-gw=J<t$BhNaAah-M%lcbtnn:<[w<VcPJem;(R#H
U"X_NW7qd8tphNT]U6c$Y\n6,u\XvL7xc&lY%q\?jz1<HlQLqqt;q1xM\?mJu\sQ+
U"s8TS_lglefS\0#+UPKsma7-bVkohx<g?>&os9xXoXyP.z*w-K-n=t/_Tx&GYHFQ
U"C,r6y'eW=IxXui**Ta?f3.Qe2vwOnHLTY\gX%ueg20MsE<<un/S(]T[_*g[FnQs
U"JON5^MEIooS6a.8rv(BDm-$+W6EqITf=M:eV\p'o_F*DVF>f>GF7CAtC&45-cGb
U"Jt]ij'SDBc1WpY5L2D,.:fdi\dM2&t6nsLNbe#RCVugScEf'9qoGreov_wLT4KK
U"R9^23&IjrfpeC7Mv4df4W)Mi7i,Rt'MgE$'[6.3H4&[j:.*,gPjXS>YeC;MqEBE
U"A4pv*;m,RouM'D'e;R9DT+PTWZS^Rdr*qo'QeCEqu_/3e*C:jrVWp6w,h<5LD9u
U"VC.9ZH1&lirsTVSwv6mr]/KPSF3M[Y[\pH2LAiQqM]OmsF&m4cx3QPd?YF:*v](
U"lqBp,I#]iujYa(GYL4Ge2ADZM+>GOUXkfMlEb'J-Kf=ztLHr#m?$?>DeL=]/\6<
U"^l<Dy7t;&>3VT.dkrw*$mu,u_e&Ud#Zl+_al[84^.bB_JJTaiA*H3QNYOb(vJ/r
U"8FY55_fTZ_xT=u-4QVra7asP$NNWfj>4WM2qC.=yUw&KgzJzYz>SkBGloqYJ>rZ
U"nroxiUS?rFUdG8No0TK1Emc$krgt3\$,HH<=D6]5/h1h><^bq'=OVh2/N5=7*GB
U"Sv93;43ZqksLujDcUGB(4?WkNG6ke$$R^6dvxCG];.fBxh^s02\N;-Sxi>+He=q
U".$lwL,HqIu;riP0SsFiZpSJg1b64Xn:W.pfi-<?Y6%$Tq84Z?*Z_XS?U/-[CoJ#
U"t/Y-,>:<-eA,hnxjugQ[S$13tj=\nhSn+Z73NJH.-l'OFN6jG>dTdcoTY:h76&,
U"$t*ez\Wc]pjz/?p%0k[]hv^XDl;yn:i%hJtcXdg.XlXlkhM4N_vvYdAt94S\00;
U"f#r;%nWPl/F6w_]gnbf=Manm)W.6B:=rDo1FSwV+7:NQ>W$N2ZgdKwlu:KX6L0)
U"eF2A96Fc]4d5rPD%OY*xm2:TZ#?AZ:R.g6Lf=Ki7EmU4%4S+T(OPs$Z4nL$,13/
U"%+V_Q,uE-?QqK&Ls&D^Z3nnF>z\d[-muZ9=xs6$ie8c_g1lx463oCsl'dV*n.AE
U"\rLORQLXEQ'QI1;OclrfcpZttUi.v.pds5\>-dWPAXgqo#qO2<6fX<t6[t-6C?i
U"hGM?XCd1-#5P?GlQ9AkFwCRBjls?aaCci5n^\bt-]QkoPu-dP[d^?Fz$\N6S[<#
U"m^U&.+(Lo$#URj(iefq3G+Mkfg\r(rImtTzLR6/.=k_AvBSCDpctguxoifxJG,#
U"nmN\-1h'p)lYtkq7atzfaH</^-7FbpWJVFVSVX4gs+FyHG.(Atzs:d&TY\KaAlO
U"Jt\4i8JyT^0<t\W?]HxDyNt-1RvkPQfvtMPVkSBszw,sN2:xlc4#H$P=N#<m]c1
U"q_sM/.tF3(5s,(8CccXDQKb=y-YBJ,y\Aoz7Uxd3=nWlpkjI7\)S$uWfn\O/u<^
U"RdDg/c6OA>)Ty6$0&zMKyAXAyYvd<_yKg[z7y>'(O&zC.yoq/yIxoN+ysw[oDzb
U"JzOxy_auOb&yWez:+yCE7z>%Odhy41hy3wC#mz>tLOhyaStORyDarO2Lz4ky2[&
U"dn/yW(z;uwCy1zhuOIXy4uGyEwdERywoCOBz4r7yU%1OTyw&sOFz1N%d71z(oO<
U"0yCw1z(uOezy4.Gy%vd8Jz^c4z2.z<OxC(5y+-z:[wCk(zHqzr/wC\/ywpOMN&d
U"<Yyk-y^azOH,xC3z_H-zwAxOTwBCSzHRjzow$C-zR8vOtz'^Zz^\oOA(N<yqyiC
U"jyk*/yAzhd2ykqmy5(dODwC8#zrudzswCplyk*2yKqOVnyC6Yyk2y_KpOXYwC0y
U"AAwz9Xz^-yJkvd.4y^Fz$rRH'(BD4]$GDvYb/Pj\Xw=YySb.s8-(x%O06H)9=Ll
U"fJnk:>#QY91.Wn'7r'O34L%s5(hGfjJGY818BCjIq%JDD$*hc'I9>L$r.qqWHTt
U"1hG3f3,:(g0N'3?(BTLbm^0x<rPcZ\TZbrTsPrHTf/pYcJG:m-Z<[TYfH7yliig
U"iB(Nhl5p?$[i>6M(of7wI*NuUS5K%;tNH.Zr1w1.6OjF:*ocbX'QNwJMCU,b:Yf
U"2<>lh\40h;JA)+hs,^l'i*F,3Z9&;NK5xZmi#F_FYcw0q)vmZp#tl)1wd=_?Yvw
U"$qox]Hq\8lFGPDn]]9xu-jBsVfDDn[s9lvVSxRjFhvE$8j$.Fro4x4U<XlSWhNF
U"9PHr4x*cghsfM5NF9XPuVxHVcto0o^N'9.$v.?M7ct;oE8dbPShwg)9^qg8wLH8
U"neflfw)98BiLu*HfpxJlShvok68nSOduM9SHXMI1(M9#=,uM[O0qx<+:ix#a#ix
U"Tdc5o/#xEe<AKEe<\1Eef_\P%._xP%.#((&9\V,'MA]3)w%B<-u&JxEmHf-e_ES
U"Qe_HS;e_*S*'f,yg-),x3$52s94EXmN6P7Ezd(/Xy</RIwn71E$yL('XybIBm3^
U"BH,7x/L^_m-fgeGB.,'X'MC3ICwJY_Fif,P(I9d.7IvtzUEXSbJPI9N#-IvJ^[_
U"if]2e7.$G/7.Fv:I9q2QBM'/-Kx0T_gq5<4/WW.#:3G94)b&xr-K(xjAq5u/FUt
U"hSw:)39,,:xwF-/uuj:1qpEg:UTSnK:996I)xwl.#qp[I9qpEe0UTSFJ:998f+\
U"(+3*O=FDh5:5RVThA;1K?rt?IHNfe/O0TLRf,=0,8E2LFgc=fP:;3=p+mx1l,u'
U"GjhifK5o\'aP-j>W+]8[mF>M$eb$Mib$eBLTZvV.)GoEMkf8'vk1#U[11&uip/x
U"ljdAvu8xodA3xckbl>*P/Y;]iQo[F>ciV>^qF:HN?Xk,2Tp4upf=FAUhNF9\arg
U"?vTwY0%Be5*$W#ZV8-sv$HP^(AvsZLcPo2tdrsru^2R[cG.<=8\X\$cTitf,S1A
U"fD*7W\00.cXh6pmZr-jOBp]uQSqpJo=2SqGttrLr%#XMRr#8FqnXP?5.UFLt7\8
U"UmR(Sa]ia6M1knvlea[-cU^k%\]Fb.sPMSGk0W/fh3=HyBoS=hbHC\gGi=\mp?W
U"L?&YmsH[EJmcX;MMOX]OxJ-D#qcIr=sAlABasVioGX$)ro[SooYOhjTpGnBjctQ
U">-8J8l&XN=nBqh,TNHm#PV$0L>K>,eODpHkGIxHmtSlSdbGXHsG7\Lmqa\Sw\9a
U"8miU^m?csql]Q7Tjz8^VWLcmsP5..V)clOtswSGlh%cvj)(HQ&bmr[\Oh)vH8KP
U"7vVIL8)9^k6kx&7bc:pkatb6?,ns^ZWsPJPzPz^hFHFcW\9h5VLK9Jefc=oXSO#
U"vu6fmpHv+\%:D.pcSrdweNp=LKpdaxM04yNBQNW-^Y9(\Ji('qf-p%\oYN5G*MN
U"krK4pmKpKXaL;r\:(pl6W&8pdN]rb-7$nmVbkqsMXLsX]:0,pDvs'uNd_t4C&Nd
U"Z7Tn#H*h[L>+g4zXDhpdcd\h7:[Iw.TXKvzo;J/t<-&]7f(W%1D+1Drn^Dn6QZL
U"]_IpA\[7Dk?tJLv1YoHJ7^]wyKRWp$j;n3ahlEcr\y(VrpY2X[fld.V\j4O?J>i
U"(XAdt2#AQ)dk[+hq1G.jSJRt0d=Jl6?7$V#RW3YA[hH2(k3ABa>,H\-qA]N[Ooa
U"9d]bYHYD?R$2#=3Qi]D8xaujRsRMiWs6;Rbhd*G>c#RxLfXqN?h(F$\LPN_+$A&
U"YdNr:+f:-5u^j]LHt^'^<<9,Tk0hY1A9#uV\\\hH7A]GxBX5L<T5:R#X$UTs4C1
U"aPkqsH)E&H5rLAkK,b<MQZMqxaFJd&knOr7iHT=sgkQMd$P>(s8<u8riM>bm<T3
U"v[1J->=4OEnTgWvU?DsdqlGzfTDGcoT?M\1:=n#f:]#>xL:RTP8N3ccHjs0_PPT
U"]<FmnaDC$4bHlG?SpfL?Sp$khJy7_?m2r*n1wWM?;;uN2T;[>Mid.'+yxm&T#kX
U"g^X>/>nI4vwHU[^I=YlO^JhxvZ-EJh+e]Ax.1Th(]5^\xj*_8THT8E=#)i&wM9K
U",nBdjKL)sciM]f;u#J9MNSKMv5M3m1rsp)UM_KCtj^FkiW9kAkN*B>8Lhg*vkNj
U"EejRE2z<t4Q7icE+Ok/ht)387KLf8$b6A:Ei\M5]gc6>C0E7<p($IjXF<c$4nkw
U"=?ksrxvTkWtuKcLK55Po)^8y<WA&jJx0Z$]Hib&AbfJ_<UGsS+F:M6a?Vt,aj2E
U"L5;7cVn+s/wd_csM4w1D+GnpkHlZclHTku$I[dppXB'7Vn8rbLHJgkA.uU8u/Wb
U";)Z/P7V2:WcHsVv+%Yx$P,Hlo/8u:]tH(XOhDIpv36_GncPVbt<Zat$%Jj6HH3>
U"Bgd+JE7Re,]LkMn>?)Z:mAR=J[;dU)fP>FixYp6XMN>GspBduP8haH7sk9)5u=c
U"G5au$1?H_V>BAQq+vxl*?:jODmCc%h$IpHs,X-0#Ca$c)64f&D0C9$xer4q7hyn
U"MDnnb9h+Y:Dn$9>[tl*R^XM8qNy5mL.1_NC&8WLg>LBt26hM2Vt]a=Cla'x(up%
U"()9%%%%-%%*B6NsW,(9&l)%%%70%%%0%%%%yzsj%wRWS[gfx^/et;#dj9VX;[l=
U"n+A[mNRJEM8#)-u1qE<#*A*y^c)Uyo#.o/Q(kW.FeYgSd5)FbwM(7_h6%,9.g(t
U"duvKHy+xc1mw1IzA_I(gy]v&#eOLuMiWEe=aXDB8X#8T_\hLZhFEj0BIN%eRYK9
U"pc3v9SGGRfrCkUSnI1//\MraGlO:RdaEQK%9ihu7bK;Fs<71HWeZ&K?c'9Ve_.P
U"TJeF29Cc4?d;6o$<_<wMZT#v\=SS]DOL32QR&cb2IXk\f0,#R\%aq<vb.I=U6X.
U"fWw^BW)3y1=$[Gtb:b_)hzu>X]6u];<(O2DwsG8,L<O.oMm*S:rwmNBtRRA$O<R
U"k'OBR/EO,R53%J)9f&&u=W%dJqM3PEd]&ZqglCSj1gCFb<W9X\BI00ZVb#+y5)P
U"v^1cZ?_nbo/QVR01sc;GnZKsnI_WEY_wRni<w9Mo.8JAmlOV]r7sOo7A#Q/g5<h
U"DP[lk+l'A3A=Um02vuvG>rO7J$'Yqo5n[+y-;X=aSo+_#)sdJ_bb6A?/E7I./rK
U"srkht/BkE#dXf\?t*_K)/RH8_U)<XhuaC,%lSEtZ<?]FiFu(RV)oPy?$&Ut,[d/
U"s8Sch0]RfG?Y]#-Nb)y*CU1nQ8)G98$OvHWPFD^\oFbI4HWBrrxfXhBv%<0ddO#
U"1N\TMv(JQsb=adqwK5Kl/XzEt\>8s^GT'gUbW.veA02alhhrg:.5SX;QVVPi4aE
U"vZbMY2l4ItAf=Q,_W8-*I1gobZ6?3mZlE/sQ^u>e0S//w)=bQTcGaoGKTj[#c6s
U"8;S;C%GtcLMm8X?NNbMzt(F'-_y/W<f=AHTh8n8BL(b3:3\z%S3KJ_C9Xy==HE\
U"j*;d-fANg2GK=BK\#aO#=9Kl<pO<67Oj(buipMI\?(p9S\32Pol[LbC2X?3IXkl
U"G=$[B8k;rOmj&$ftzsE2YA#I280XRdR3pA?[7,]4NN0=nFdFs<7?#7reDAi[[p%
U"gq3ae9iK'TwJw;jwQSqmb<FWThb#l=#4Vg.lRruMHV[1i^nBJB(Z6S/xt;dYo32
U"RHkj^+b9;c4=BuB\T4'<[f9Q^X[ASLCVYYLQ[T_-bcW.q<n/mQx.b+^w^v6hq<L
U"QE[Ybp#9N,SG4'/0EhGXhT42rdy.x'J$KELbj6?,l/N4lke:-Xk5(<$^JnB^UJ,
U"g0V>g%<VD(4f<68+^tRFn+B0q[>l)r-o-/B;1u/IDWFVR>Rklb4hVi;J/>Z6eb_
U"blZQNR-EOU>;B/jp6;?G3D+*V](:18E'R1'+H(gk#MfD?)\^>$#E.x=ybt:,E=^
U"lC+z%fTJspHg99l/_Lou+K%N>y^Y4t3SRD<FA_idxQpM[R$qN;&+wp#v?8's+R#
U"wvvEJ[.I<dcSpKC_wN?eU:LY]GJ*I#yFJuf'p^noOAtk/Pjd/I4nJQX<,.6WmX8
U"b]8P/uInH.YF>Gg?7t=;u4wroXSXe=tn'0'qgzc.MrLc)-BKb:idmcg0\<55jwq
U"n'fwo7X:,kv.%up()%9%%%7-%GA#6No&76-]%%%%'&%%%/%%%%wj%firj.Sy'y^
U"xO&02qC,hd((T]Qu5aqfuAT[lu-akE=qy-FS17\&3rhp.pp,H^(o_#JkATqQEm[
U"ah1TqMl[Mq+]M9*(Eu[aTlUMcEB]i*nlE[aMZ5E5CrVOu[C7-S-[SR*8EuayTHC
U"uwot];KE&qy*\Rt\Vo//H2HM_K?M/8vAOBI&Nx#/*jx.JJd/<2tB>+/>Jj/XEZ9
U"QKkZOmSoJ\'^/QrmRSBE9HP/w+-Anr%Qszm-BHxT+vAmR'GQn)/)wa4Kom1AF.I
U"b%(/(5lI^9vsub^]$%&ZL;Hb^<t,R%*%%up&'%9%9%%%%-%%v+gJLD)f_'=A%%*
U"W-%%%1%%%%%%%%%%%E%%%%%%%%%yz%sjwq%ngSv%qgup%&'9%%9%%%%-%*B[6NW
U",6(9l)%%%70%%%0%%%%%%%%%%%%E%%%'gA%%%yzsj%wRWS%gfxu%p&'9%%9%%[%
U"-%G%A6No\&6-]%%%%'%&%%/%%%%%%%%%&%%E%%+%-F%%%wjf%irjS(y'yu%p*+%
U"%%%%(#%(%z[%%%9%G%%%%%
END SUB
CLOSE:IF S=178AND 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
