'===========================================================================
' Subject: ANIMATED SPRITE DEMONSTRATION      Date: 12-11-97 (05:42)       
'  Author: Tom & Alyce Watson                 Code: LB                     
'  Origin: awatson@wctc.net                 Packet: LIBERTY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SDEMO.ZIP",4^6:Z&=9243:?STRING$(50,177);
U"%up()%9%'%R-%D#JBHbx1MPe(.%%9.%%%/%I%%A7)0CXULS1<?EfcF;^G(=#lx]
U"-4rL,oCV;vecpqo)6[e-FF)U+5-AAfE7W;;WS)h3WF=&*RE%5-)'#vV'P#eE5W%
U"/i*'7vv*'IvvP'jv*q[T=/=Yd::WtOC)Ffc4dST<SJ]\q^HXxkLhJXZtWuE$k=,
U"DBoP(1lM8-\APi%x=RuNah:w\OY^Js^WqPLbR+]$'(5Kfbl:rQWs<m79cffRb^r
U"qqM/WK#oqCX:S3lSGt\+8\=Qh=61MP;H[M+DQ+of'rs=JkFN+/&P9cSPM3%X9$D
U"$9J\Y*v^U,90UHcT:CF0/^draBr'Ab/j1$LZqX;776SJHGU=^#(n+6DR-6oKm>'
U"+MX:O4w47nNqmdH?p#tl_lIkSf*3_x+SVr-(riN9pLrboXhCTB]h.qUlsUVjFep
U"^jH$,cD*?'\$YLhF7,WSpb6R&JRa;iPjYZ+M:6pSh]Gc>$G6jB/ulmm\v-T^UzS
U"CfnSyF:c9fFa?g-&fg=vvg0CUhKJ#,0LUhP8:K'%/INzVcP<:*ClZ.Jio6B;PLa
U"VAIC&t$T(_kfbox-f[m83(7^E#inVa/As65A6:a9l?EK[6yE4'.9/_\)+fe53=4
U">O'DV-aR]#[yVCN]94:Qm.:Nm:F9r=.?aP[<F#d>hC*(m^$H1t1jk^qhG^YipCf
U"ZFa[YP1ciR(q)92My10YJ(o.d#x$f#rMWSLv:m,#,^=eKnwlB+CvPfxGvX&#JD$
U")alp]ac,T'+A/jmGddq8XQqV:*giPF^TWs#uM?\'#H6TTxvVegH%qnUQ^>CuK5Q
U"X5f^7YGh%yqKJmSB-DS[C)re1Mu+epDukw7X_N?Em[G+k:1>U4vVS^LB(KR.RL$
U"OsypG2+ERAaLD/pTdCVqM[;Edsy%1V7iuUKbjG#Y?3b8IlPDquLg9NpD6.Gd%'H
U"At;l%RO>?R0-&$Z^z,N\ij?']f&wX#5.6136t,Q[,&g_Ei4yY,eWi;T^Y&o*0sX
U"6HE4Fz#3Bsw3+;V3d?xo1?:/T<Gqe?Q/s2\XdtLX7SdtM3T[LLP&s=R=7Fhpze-
U"po9_4n_6&Y^_Js%EIr0.)ildoRu,4l5p>W)?==yN&a4XM'DLFp(jivEktKKf+%l
U"LtF?bteoMi?)QG?-)7)UM$G1(T)ZdR=+97iT-Dk\R'=xvZa/Vr#>0kWbb2mBm'u
U"&up%()9%%'%-%1H#BHEn,-<&e(%%&9.%%%.%%%MA70CIXS1<5?fcF/;G(=Z#x]-
U"HRbSJG4/xE[oKuQJ-ES_&5hS-+)2E5CY0[>B;qWQ;sWF+&PeE5)WY6-.)'Pe%yE
U"O52WYY:_WY/=)YY::CL%E%E%wEbTtC)F>f4dSlTSJ]g\^HXWxLhJuXtWu5Eu=#-
U"DoP(Z[M8-*\Pi%obRuNLa:w\rO^Jsk^qPL\b+]$/'5KfXb:rQoW<m7?9ffR0brq
U"gEMWK#goCX:QSlSG(t+8\Z=h=6M1P+4M[KDQGKf'T]sJ/F:NY&P=9TPM.^Xc_4D
U"9J\6Yv^Ua,0UHac:CFD0^dr+Wr'A)$jQvsEqX;\763J:HU=^/#n+6[D-6oAK>'A
U"oM:P4Sw7nN[qdH?'ptlKAbfcn5._xwhxo-(PrN9plLboX0hTB]AhqUldsVjFee^
U"jH<$cD*+?\$YLLF7,$Wpb6)RBRaPeOjY9\UB6^tj]Cq%_B84j''l\P\v+0TUz3F
U"OnSyfFc9f7F?G-H&g=vKv0CUHhJ#,J0UhPe8K'5I/N,VVc::&YAY,Jci8B;KXaV
U"A/I&t$/T_kfabx-f][83'07EHmina3A_uLM](9c/?HEKFySE7.91?\);*f5Csr4
U"W'<=VaR]%#yVC-N949]Qn:NKE&9T#]?aXj[F#c2(C*^'m$*1KtJk^+qq3p]iBzY
U"9DZYT=_iT(3q:2MIy0YBa(.d#6xf#rlMSLv\:<#,o^gKnYAR+CWvfxGnv&PN>D)
U"+l6paM<D-(3VPrJnD]ui;u\g'qq;d+(1dNA]>g7X7M$#Ny0N^Yd74bD2V\lYTo*
U"o3^;(ptssP1*7c>BDk?&^vp+(9(3)23H>T=5QX<AI6(roY1<+sM;#bU^b:S,efh
U"wCz$V(e5Smbl3IfD#4vd#B6_Nd.z1iK)cxyG(6ZjGtsWOnhV8n4riNVRA&J$P05
U"wZH^Pf2\jfSoAViy'c&XiIGNkEAajm5I>5+o6*Y<'U#(fEz:e66\SW/8'ck1n6g
U"UkEXy'[wNvRBQ_\saxo1%?3lG^Gem=o/2\XrdLX7BSt];?T##Po&=R=97rpz2eF
U"F:#_n;/pf^_J&s5Ir#0+jladRu,Z,5p>3W?==Oy&a4MX'DLe6(ji6vktKGK+Elr
U"LF?bEtoMi0?gG?119)M4IG1(3TZdR7977i=TDk\+R=xv7Z/VrrP4kg:b2mB-mu&
U"u%p()9%%'%-O%>#BsHGQY)7T(%%%C.%%%/%%L%A70&CWUSh1<?f/cT;Gn(A#8bb
U"5q_m-F5g2ct3'2T_cq^-8[]/Qe_0#'f85=X,EI#8g'1#*'vP%eEOk%E5-)I'vPw
U"%eEOO&%EOO#5PO%4y%weE%'vPcQX(glooAVK+^J^bK_V8uhpvW6hvPdWGq803LM
U"6e,Ys\$[IM)i?Ai6nC$wrFY^bgZ6q9sLm*qL=niUPMU8u2uopZ6(?jiie2Mjw8C
U"Rqh+d5(15'DaLc:5F=b<jhqgf%vwH:u;Gvh;,rMf7fx,Oe2JZ,Ah3:_>Xox=HEZ
U"bcEJLQT\,Qf2^?vPH1,TwHH8'vAcKtcO-l>4/C.^=R78[YK1F=XD^SMJ'.N&*?c
U"C4z:YXod_U.7,E$VHf3Dp'QP=ox-W(rV=YrTfq6Xh2YU?<o?gcn2*V'/2+k=o;.
U"k)J-'/#cJgk6wSgKF8IZ1LGFGV240w19a88kx%\LnKB2[SJ9C<,cE3Oe=4EL+h6
U"beB,Xgz=\:2\^jFU<c>a?vBB,1vT0=HfD/i2en9gB/np93in&aqV:FQhLU-E'o)
U"-+hB.Q5mQ=67s)cfs6#30.$s+'RYhFcdlx_oqwKM/&a7W38-iq(k0kiaDYi)I41
U"aO8\pZ$D#8,n80_*%/\BkLXF[%1NTBXe\C\j$SH13:*[sJ#qk:+Ur<qba:qtd9i
U"<G6^QJ-3/2)*X)wC<yohCZJs/x0xQO=,J$'Nx<r8qM9s1<+]UO3#x\%2hWIiqb(
U"\aF>7Rbbk.4CB$AG5u^Uaz:QDO5hJH1-nWzVz],h%lnIs[s7.DCwESH8><NJD>,
U"WVmT;Ln7qkP8F._mee3V6dt38]mBP5W[,FhgF0G*hqVrpd1k=ROH'+Al]>:8]1'
U"M=lU%9__7jcZX>L]&9;+X\pOO[r^]%G6r8m3v6iC)-yxQ;Y^yc',+]u&<8(=H9r
U"4fs.cfq)bBvgAPi=+JGg]KYa$?G,T;vNrL]f5Dq2Vj6B3=-w+8^4CqHapAZ>\l3
U"W7=Q\':(Hjq[.XagX*EPD6\r>+peG;d:$qLC36X/$(->xcZFO0*WsCni7Thq8$A
U"$Zp]TBvaY^e1=>X>i__\Js]]wKNUQJn7GpdrPiABRG6G.PWDkz;yu*MGK[ArLv#
U"aJ/7,*R7?:2i?Hr:t7:?$8%\sz^Z(JF&_nXbl/NKL(%up()%9%'%#-%B#&BH$i5
U"AMT(%%%C.%%%.%I%%A7)0CWSh1<?f/cT;Gn(A#8bb5q_m-F5g2ct3'2T_cq^-8[
U"]/Qe_0#'f85=X,EI[Hme%%eEO57-i>-.)'Pe%EO5:[-ij>%/ij*S1j>YAY::W%:
U"PO-cRX(glooAVK+^J^bK_V8uhpvW6hvPdWGq803LM6e,Ys\$[IM)i?Ai6nC$wrE
U"Y^BgZ6q9sLm*qL=eYU&MU8u2qop:6(?iiie2Mjw6Crqr+g5L1-'DaHc:5F=b<jh
U"qg0%uwr:v;Euh;-rM03fxbOl2BZ,Ap3:_>Poh=HE:bcEZLQSr,Qf)^?LpH1LTwH
U"F7'vAcKtcO-l>4/C-^=U52[YK1F=XD^SMJ'2N&*?cC4z:YWOd_U.7LE$VHf3Dp'
U"QP=ox%VzpN9YpLbo6Pd0]UA=o?1[j0cVn2*'k;o;2k+K-'/?cLgkJoSGoF83l1L
U"GFGV240w19a88kx%\LnK22[8J9CR,cE[Oe=<E<=h&Nl\rbi,=$?2\^fvd>c>i?6
U"'j,1K90=F;D/i2en9eB/\o9_in&aqVp&Qh#X-/(o_-+hf'H6CT=57s)cfs6#30.
U"$s+'RYhFcdlx_oqwKM/&a7*18Y#_(k\lla/Zi<34mbL8rPZ]Dv(Lmn8_*%/\BkL
U"HF[51NTBXe\S\j;)Hm$.*1JJD[V:+Ur;qbF:qt:9i<G6^QJ-3.H)jx)wC<yohCZ
U"Zs7x0xQO=,Jr'N,?r8q%:s1<+]UO3#x\%2hWIiqb(\aF>7Rbbk.4CB$AG5u^Uaz
U":QDO5hJH1-nWzVz],h%lnIs[s7.DCwESH8><NJD>,WVmT;Ln7qkP8F._mee3V6d
U"t38]mB(6W[,FhgF0G*hqZ6'd1k=ROH'+Al]?P8]1'%>lU%9__7jcZX>U]&O;+X\
U"pOO[r^]%G6r8m3v6iC)-yxQ;Y^yc',_]u&<8(=H9r4fs.cfq)bBvpAP.=+JGg]K
U"Ya$?G,T;vNrL]f5Dq2Vj6B3=-w+8^4CqHapAZ>\r3-(#Q\':(Hjq[.XagX*EPD6
U"\r>+peG;d:$qLC36X/$(->xcZFO0*WsCni7Thq8$A$Zp]TBvaY^e1=>X>i__\Js
U"]]wKNUQJn7GpdrPiABRG6G.PWDkz;yu*MGK[ArLv#aJ/7,*R7?:2i?Hr:t7:?$8
U"%\sz^Y.LF&_nXbl/NKL(%up()%9%'%R-%5#\BH%M3W#<(7%%3-%%%/%I%%A7)0C
U"VULS1<?EfcF[[?p=#oxItApc]P+NV,]_g2Jj4F)+f++?KE5\sfE1hS<U7Q6DU__
U"Owe%#eE5W%8P5-.)'P]/P]Pe)+-sy.Eske1ykw]IvvPwJw]PGcX)Y()8JAnof#k
U"T>^rwX$XKXlcf7crsl=36^7O9R&f#'5j.Y+9SNR)PWS3lg>;wiDm=bB:O=<Y/FP
U"+)2XPc(wu8;vvUb\0Xa?JIS/K:qtJ[[$6W=J[e'1Hc6_.W:kB.N/\7>/FP49V:9
U"3TBc_I\MD>+vo;M0pcO26g9UDV0^g02.KUXP(;hM:f<o:(]uU^nqm)h-Ka5CmVE
U"?=^J#rU#5D-m3oAl'Ek3oj\,Y-pbVb<=umjbA,5,M9O/dByNN9?,(<ls,$6-4<N
U"Z?LUc,R1lfrAZ>h1L5DW^aGA>TOm&-fR(_oP4aGsDYVkYW^Fu%w]oXAsW[]/BZ3
U"0$h_T2aM+[Cds<E<XhFfrfJCqR:Br^rHIbt#Fc5g>fuCRB72k,*O)FU_n9eE1F5
U"lBSoDC;GL%$F24iSfulG(om3$W\<MW,MS,En>,1\.$c.'W8&]2q=>35QAv)R,cg
U"f<nrRrAoNEbpTS9rdeIp%=k(,C<r+uSbKQP%'LBhLHJO5(VT;p/rpBa1\VMLV^0
U"(Wlj)[D;X\iv=>Z\?-;r;G#J466/SmB/_T9fj'g5#SrjNt6<?:fVQt+Y.[Gz6-s
U"Q?W7+2S5B?$e%wZ*%8mRw)Dy%y)#FQXHg4jbXye^zR_;k+,<#<Z$Mli6N%j4gPb
U"nBLqKDMl:66Ye.xcYqa38QOduxZd+%yMiuy3bnMgK'01st8H+k;pTmjR6j1uJ47
U"+;=6:<O6UUEIQu+58(J8gQ^Z[rl+San<_kELnrAIG6^6D+8+od-ssQlVCPKd9,W
U"1k4(Us5s/?6ZZ=HioyWB8AQ?z$<?AT7[1xCfuZEIu<wFNZdugSq3?60jRwg'm#+
U"plqGdCHTdb&jsKpc3i\kkq5226<*v^Oi1na4j%vzFO0=()e%885Z.RC&zXnST#d
U"1F)Oej\[Jb*j\=oLx8G'^BYCbjXO>j9[#c,<p,J7nvOZ49kzUF?VnJWZ:5E1IX*
U"naw0Om%2-nwCYyMaay&/K9wH7DK7ZPN%&up(%)9%'%%-%;D#BHuTVk;<[(%%3%-
U"%%.#%%%A270CVLS1<?EfcF[[?p=#oxItApc]P+NV,]_g2Jj4F)+f++?KE5\sfE1
U"hS<U7-6D/7%5:-)F'*'#A1*'P%eE5L#5L5W6DDX/E=X8W&Y8:L%OO5:#:L-HcX)
U"Y()8JAnof#kT>^rwX$XKXlcf7crsl=36^7O9R&f#'5j.Y+9SNR)P<SGl=>>wiDm
U"=bB:O=<a/Fp+)2FpcTxu8=vvUb\0XaOJES/K:qlI1\$vW=J[e'1Hc6_.WJk]N./
U"n.N/\P:9jPM$/6M2I\MD==vo_MeFdOn-h9+DS04h02.KUXP-9hK:fDs:(]uU^nq
U"m)hEK?.^]a8H[Ga1K=&W4)t,J*s&eHWtFaScilbVb<=u]jbA,5,M9O/dBy2%z7[
U"2j?,<EV=<RN:/LUcLb9,oR1lrMKL5ZW>QGA>XO]&cfb(UKd,C5O4i=H6=k5x.NA
U"t>[w>##T2O+TPFAfiaM+[Cds,EV=h.RhB6ber7XgD#H<fr?Fc1gFomCvj:2UL^O
U")FU_8yhEYOF_,S9DC;s1D$FH4iSfulG(omh5W\_MW,MS,En>,1\.$c.'W8&]2q=
U">35QAv)R,cg0VnrvrHoNAbpLS9rdcIl1=UL,+<<_KT\+QP%'LBh1bJOk(VT;per
U"hB5&53b\S^f0WiJo[D<*\iv=>Z\O-;r;G#J466/Wm2'_T9fj'g5#QriNt6<?:fV
U"NtAT.aG&5-sQ?W7+2S5B?$e%wZ*%8mRw)Dy%y)#FQXHg4jbXye$&Q_;k+,<#<Z$
U"Mlr6N'i4gPbnBLqKDMl:66Ye.xcYqa38NO9uxZd+%yMiuy3bnMgK'01st8H+k;p
U"TmjR6j1uJ47+;=6:<O6UUEIQu+58(J8gQ^Z[rl+San<_kELnrAIG6^6D+8+n:-s
U"sQlVCPKd9,W1k4(Us5s/?6ZZ=Hio%WB8AQ?z$<?AT7[1xCfuZEIu<wFNY9ugSq3
U"?60jRwg'm#+plqGdCHTdb&jsKpc3i\kkq5226<*v^:i1na4j%vzFO0=()e%885Z
U".RC&zXnST#d1F)Oej\[Jb*j\=oLx8G'^BYCbjXO>j9[#c,<p,J7nvOZ49kzUF?V
U"nJWZ:5E1IX*naw0Om%2-nwCYyMa$-).K9wH7DK7ZPN%&up(%)9%'#%-%'(QZH>L
U"FA6(%1%%5%\%%0#%%%BM34<>#VVS1;0Bf#;:>T]ikJOuj,')9=RcqI*48\r,BQY
U"NnI*Sg,0Th4BaS/)2q<,I[vlv*Z.8w5Imoq-N*ls7]*](j)Ri>3,VlKXNkH)Wk?
U"2a]#b:cH*#GgS5hA(9K*VX0LQQp.DKHb0uRZ:a&a<6Hhn&0?(7im%50wYKbpxp?
U"[8KLi7,u$vBZ(9d#U]KCu&7u+3ot^%P2kP.<,GG)Mhm[X;FAkA,?WSm<:B+-DbO
U"mo(tKCU.7KSKU*(LQRms_[f]>*]]J=5K5WJ[&8'A,iW[2YO0i*/X+g$U*#n>,wI
U".FnO3#z;'>'(Gd,9CPk6(<wM3j(O9#WK%\S5i_aDZ_kOl*YQ%H21/bsJ+lgL:(V
U"A4j;gS)(UHV,Z2M3%4347FCLU(c<Qm_.G&5;%)l%Hs.qsi-9Hj+*]%a<3DW5>69
U":sPK7+ux.I>^>]%BLC3AYuN+pY,wjKii$=w;oa0iKCqbkl^H8tXwgljl^jl8W\6
U"_2Fat$R<(HO&qrs:gal))geFt.%rYgRFrt$eKeI6g.#Qxi_puxBM+*hB^%-/6hZ
U"jX/EY#+YJ4wxksX5+mfwLZo)k[5#0f#3gf/FWM-_^x:-PKL],,3:CR'/i]'gdt?
U"3A7K]RA\bAPleOH)Tfg/t6wm(N5I1#YePO#hl'u:D#I:+b*x/C9./Ni:rW(G\UN
U"$RQs2oeqIw_&^]29Xi2ha8*y-3\O+k>o=;I-a;Id.N7Mup#i&jk\vr>uqIMroW<
U"jB3EKOA+lu-+?<c;.sAQl4u2^$bJ,bC'ei\Rw+=,]7FYmNM/DH^,$ES1zg)i(Uh
U"Dp(0q4m*RH+;9W-PjH0o53QvvGS<?X)[l\q_--]\i()eA[1J&4C3LY>6)F\aX_3
U"5wH>6gY2/bPfVx.C)nJ<%i1'.\#Ee)4=E[7<M&uh1zQumxwh0xKMB[/^l0#N#WA
U"43Cw&_%L&I+Bv]qpMewctQJDQ5I9xFbLaqfw:h<9TwiaU.)]1_i,z=2+j)kb2OK
U"/)-pN3=7L5r4228jD<cV_^y?0O:O)'jle/[F41*(rj0uz1C2.:xl6r9qCHC-o+%
U"BNi%_u]Z$j8;wuBAM*0u.wF?rfFP/ArrA'52i.A?&fWnPsZ.syu>Z]:A%BU>hG+
U"831vbAIPZy&WAC-DW#%?*%(TF,?M%Qm*(LN(Y9%bA9eE/8m6PUG(avCC<Zu3&ai
U"Fi,/YZ54y2ZT-A[)>/mMFlgk:378)f_P0So=PQinNQG#Jm$rBI]_ol-%B.^*etF
U"Bqykhx>B>J+0+#Z\;Lwg%o6#9sPKZ6+;^H0H]?CVSZ;a2fA-.Pg31v8cC5d9jQq
U"o;I<iwteclAi<(detq[B-0o3g$GP[9L(Yc98#i1<OLk-avEH+9*CgeAS'U6S>(&
U"o6NQ=*SR-']vY%K&LFH1)J3%G(W2Gw1gx>qSOH\Mf8&2jmJ/mS/UXrMDjHlbIhl
U"a2+'[eOYPEfU/0c/qcD6VM>?KSnKAvX[TX8qhxuMCj+iHi/A/*Cne0uI8L<N8h1
U"vPe4QD=9;)'y*0u4K/;hL./Qzi-PeuqtYAWvh;9B_DrN)h>=u6v16Ntp1JdA$>h
U"1yF*jwhm%?MTPoQ6T)xQ00dMq$0EW9N>j*disH_3SXcw3Ag-f)H%spRi3^p0MMn
U"ChmLIt?wn<l&^P9MSo)XwH+=WB*YmV8oZdx\?f4P2KM6_Tn35D;CYfq3-?KZlQc
U"vX6h_.N1Y;)T5MsN],+-s]1RO-[K8sew[DJ;NpDy^fO6NH9vcYg-ad;;1f_cda3
U"r5G%m^;yt,U<%n9kv:g%)^l0j'$')&*KmlqOJ=uIS7KK4Q_'+l$Xw^M%a:7qY%[
U"MU,tR*a-]F9wp+<$^UI;vl\e)X05&.<nWNY_pM[8yC4rlrbTeu6?3l)-NP1oI)2
U"TT-we:jLlSo,gz,69+(&/4UR%6aB'S-VN&89gHF7P3SOkOID;,;oV&(x<m0Fa^/
U"9c,hE,c/A=10)iHEY\_2J$A:51M&-o,cl1P(P$>RtftBhR/1WQPs0K&NlH7aTrJ
U"IeFQjsDvD&=(o<v)OLsXI*Oa_hK.9w'm$.o2PPoBzEWmMbNlnxIQ;b(pp*?6g/9
U"\X9YB1;7y;7q'Zo+$;HMknt3nS$jEf?8Gx(6h/SQEh9agnerL&)EkpNaq]0:0T1
U":9Q:T<fRKx)0i(q<eG'/-#Q2D&n]el#Q)'.HzbZ2&5m=)06#ZV=r%wtf#YUV-P]
U"K/U%)$r1GIQ)-'A*l<Fq'i?W_H8[1(\jb$/hbNkm5R[B+7Ik5rxpS:0c/;W#8cC
U"0,gFiURm$2_PlgPR#N_[B#q\2'_#lxQ%a=K(A]&wX3GQV-ssJ=gGd[qTDYJGxVi
U"MCB0M)\FltC9o%J[zjB?b6j1flJL>13S]P<rn]Yv;2C<d-r_u\TPE*]gf$>HU>h
U"QntSu=0h3)uT2OokW)t84wW+Rj%2=YeMXv.Sjr0SQ-Fu*iY-^4Rw6xUImZ)PPV3
U"lR0c2edVYV+2t4T3.p8w-xZ7;$?HieM3#B_:>I[hNhZYR(\YlaRzpiNfa(^q0.;
U"IX65GB]nT1z,^.C8GmxJI45TC?;FGJ;?+V=,sUzenzi<NhSZg.kMg:5.\[qkvOx
U"Y.pf29U9G\o#uAw.;f(cQDp94T(nipGOCc.4^\+b?_-aMY4pRZwQ$Xnx*m&ugO+
U"^p99Nn:sC'WsnJK(^T+D*Xtf.2dgX#&(I#sll'ATWJ[g>$+KHaJ9H)UD)i0'hnb
U"mcaQ=$3Hzp\4\I^M('<b2qIGu$=6=r4Q1q<C3%z#gUx%3*](cLe.WIFsK.$q_rI
U"UH0<MgeAH]v*%xdUjb=\6eK1123O&b2F^N1e1R9%i22ieB+s#<MobzD.17rN>S9
U"q>jyA&/#%.TyByq\j7aCKM^B^r&9]N,XnG'g05e%6DbjkHPB^,xSO8;tT/TXjZh
U"6.(Ii)/IU.c7(i4J*TaL>e,Ve;LXcO\Xt+I7nQvbfMA&e0I)0JzI2JqhjQrZQ+g
U"O7jea2<6T%$:oVyR3Y]lZZX<Uz)3RLE0XDBg]OBa%8.S-MBA%:JWPfl>:JpMB.I
U"3:f6/h2J:^awFu?_n5NO/?R*v9&e-<3[IFimR3ewW.QK-.8[iXSJrR;O?WOYrW#
U"eu6?M\5_T+F.MR\/(+CBbM^r<wf-7P%ZlfGz4jC^O3rU0vo.34gcKs[&Nii=c=6
U"g&2S<pOBm#abg>7FID/=Y*7$57N,VcHU:d/+pj50[aPA'<^4']^^F3i%'ccsmM2
U"*D%.cJS-6e+h1z776#\r5e+$):fT=QMZ.rjIbb;,ung<]L.i2lteyp>NRQX0k_t
U"L4Gfb??PMt[?WFea9GYoQaw5w?nn5giAA>It3>'1blIe.,iQ._t;K55n+b,\BWD
U"nxW?3:JXje<2gVw'?f3$AhH>#HiHF=^[i&g^hz:PoP33xJMu&CORZxW_gyRStpI
U"S8HOSw=B2b.=rR16*IHb94H/oO$UwhQeQ&P9pQCeytpCD+W=rU#v,2R[Nn\y=v>
U",l[K)s=+qACocg0p/U<C\dRE',LmIMCMG;)qts;K&,mM;_=iU0)?l7pm$mPnv:9
U"*I2VzU80Xcpg0GB-3(V#0p0>daiA%anaef,r9:7VtmT8XEn/?W?k-cCY3]sx]0s
U"iJ,l-[5-520.r30cT$n'3*C3;MrVZv&F%7h>m4l]d=wHZ$8>*_maJe<88PnX=WG
U"ii/3'tq/'n]s0l%<FUS>b\\ON'umNkZ/4>Q8UW0#O>Xo\$jN:w8$yQ$dccHwWUl
U"SLD]]/*r35-hF1N_TR?poyr*EEcOBh6'VPp(I.Cz\a7a$=q(d7Kfh4xF0;s;#1u
U"%mT?k+hgZfmCX0?-6(cuU=0KHnVGL=,fw7qleUBKP#C,$<=zW8JzpOtxR[+E0v]
U"E/r'C=e9cX&XB^/b.eBBhqh%3E/rHD,ap0XCcGMBGk#TM41T,>NsY_I3g\ZF2-'
U"4L[WprVF-Kh&2=,Z[dU<DDc_1_q*^4h&vHXB'EQlp\-Q/WU5gBt[;3W\PqfxkRQ
U".nARKlJ)Wv5<[Nu%p&'W%09%'[%-%DD#BHbJxMPe#(%%9%.%%/%%%%%%%%%%[%E
U"%/&P%%%L%A70&CXUS21<?u%p&'W%09%'%%-%H_#BHnJ,-<e#(%%9%.%%.%%%%%%
U"%%%%[%E%/,P7(%L%A70ACXS1)<?up%&'W0%9%'%R-%>#nBHGQ3Y7T(%%%C.%%%/
U"%%%%%%%%%%%RE%/P&J,%%MA70C#WUS1)<?up%&'W0%9%'%#-%B#&BH$i5AMT(%%
U"%C.%%%.%%%%%%%%%%%RE%/P%M0%%MA70CIWS1<&?up&%'W09%%'%-O%5#BmH%MW
U")#<(%+%3-%%%/%%%%%%%%%%%Ej%/PM#3%%A270CVIUS1<&?up&%'W09%%'%-I%;
U"#B:HuVk*;<(%+%3-%%%.%%%%%%%%%%%EO%/P8#7%%A270CVLS1<?%up&'%W09%%
U"'%-%/'QZHI>FA6&(1%%%5\%%%0%%%%%%%%%&%E%</Pv:I%%B324<>VIVS10&Bup
U"*%+%%%%%,%,(%U&%(%NG%%%%%
END SUB
CLOSE:IF S=55AND 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
