'===========================================================================
' Subject: EVENT USER-INPUT SYSTEM            Date: 10-19-99 (10:42)       
'  Author: Nigel Traves                       Code: QB, PDS                
'  Origin: 998053280@99.humber.ac.uk        Packet: MISC.ABC
'===========================================================================
' An Events Input System
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"EVENTS.ZIP",4^6:Z&=9620:?STRING$(50,177);
U"%up()%9%'%#-%qI%wLjI*xZ]..%%VU%%%/%#%%j%%jsyx%SgfxTf?TAu[AnVOzw
U"PL4_R)aD12xE)5:wn.2xTf6QM/EXmW:HC8wV)_Z=oVtgipb_Z=R.paO*,hjSxkY
U"oL$M6dL\ccuM#-ctpBtuhi:w9NC1su\3pZ?m]<t_lVfd-'Pcb.^b#Ddk[[JPr4,
U"pBL85nTOiwDeo\?fC#JARu(FY/O>Ux/IWWQl2mhX>ZUf0=.A2;4%_EQNn)Yr\;i
U"s)B4H/,'o$BI*uTvOQX+$w)pG[#p[H<QaM0Uq7i61Rn2AYqAfv^.\%C0MxlYQJ$
U"(U+X(+Ac:gCKVmh1yXh-g^hsgrvofo8U(1H):Y_v3i[qvnSM;%l?^-(d>HgOs)J
U"Q7hRn^lhXhP4m-MEPGG?'QnPFCq1HXOR45%s;.X)33ICQR(.iMhXqg$^C,2:Yi1
U"W9_W\*/09&fKY%)IBE=7&<YH_U51rE$kTN5[Ai*)KTGS'F0hN72/E'WZ?eTHiej
U"PE#Tv/(i/+6o$\pOUFr$aL7zW?URvC(%Eq6Q^0i.JGW&H[GKGcBN&VLXGnsf0pv
U"?#pJEr(aM2UX5b8WeaQ/s],oDp[]k=W7wjZH;?lf$CL.R1&-cTHae$GeW-%a,oE
U"G/Y8=%^K1U<[GU*(xc5*tB'/#LW5X[&Tl^??;9.9s/elrQrAHuHPM21aWHB_'*Z
U"*0)eqWy9cH_*:FLDistu<5+Lgy4OMo%C$:Lp_.W&5)WtPEOp=o[E5,%v8^0em2A
U"m:gzdGH2G5njkiIptdeH9GL/#;Y9IOQF=(\D9Mp74o-M;sD%ykk-INfE-Xu.%pU
U"VrnYIM7Kj3G-+1)d^_Z5;V\FCO6-PLjt*J\aL\^zUgD:/6;.JTQ^5F001ca4JZ7
U"DIH4=OG:S$>PZ<#v]3eGg*COGkcCIkKiWKiU.gR7TkHko_BN<sgWh1yxAFM(Jrq
U"]7j5\/efSGhjOq?$hoyLaeVE?>2^EaBusVYk_$ZKEEkb^fAwF,Wi)[-[z'N,Br_
U"1PhAD6=4tdV8ty+C3&#OT5_laWR[Njan>1;8J2GjOR5askFOd9^9&Bx>U(L0m[=
U"'1mU\eNuEMm2K[WEIVAs^20ofYE5[tB0^u6SUNZD79.?a-,+x+A>qVC/Ax^?\,P
U"+BY2P=5SIb#rEmaTU;++6D(jM/g10$B1Ct7^420A'esPSuqIpGCn-2B_AQicY>/
U"<xp1O]Y64+DLW<3/U?qg$.QnB?h\TN\j)?7E6-f:k;bFbJJ7IEAo5Q,(\-?<Zx[
U"('4:**H1HTSIRoMgW:ZF\/N+ZCUgk-]-r[pjE[0jYR$9.qJ0S,2wcmV)*_:7DL>
U"030sA_ZCr*Kvc#W7Jc?hF*?T[Q5Pp4/U6=:uzsAuGZo31s?,Le7<(v%PCNH+$+s
U"hEF/*Y=PL\6fT8J[6,V9%mjZ9WeoG,asAIRkO1n&k(m7\8$xV=EO;Th*BIK%C3A
U"<$wXGKa26l*:6Ksj4k.F,fGR6N/P#qkYHf9M&IGi9S]WcGZXd;/iai]2_eSJ#u*
U"3U6][P&wan^Y\[vnRR*uz6nC3+V]9UXMZF'Ppw;fu\\GCdbrhesYJpZ_Qt21uYf
U"^gh=BrvwupeaL2<ORDY#s?k(5h=7XD.26?.i[ENw1'fD.:s_^k0IlB+knZyaqgE
U"XB.Ck2CX(qJ].GGikbuV*uY';CsDQRgD&A:R,U8D-p5Wvxq3NiamA[<a[ZXkD]m
U"$Abw+s&[#1Rl)[))3l?=lVMW&nKyU<x:6g5fvcNb2PI5,T0?jmx5aCX_f*<=4Yk
U"=P$C3d%HJQm$HCm[0I:i*9l%rlU.nR0fU(hjTbh*71zbX^e3:*F0/9V'<#9Cw#2
U":M4:'4VzZLbtISLjT,hGv<Q-AWeEE0cWAmS)(JrdDWK,F)BQo[)PbQGs,r3+d;4
U"TPX^T37L[V:gY_4A17;\Fc8QKVCET\5zP,EcNE*S)4%?>-.9<B]3B+,+L,pZjK2
U"VZ4=%%hp5^Mb#9KAC)lVyY:X,u])G+AS8.wd/B]f$8fIk11(d'*jl'do:AEwgUS
U"K9XE:Bq?I(F]zmbndV;#h&FLj[av^V8bdiUnb4[VHwQ<qwd+)aQHXGc4VDUt'R2
U"*L3N%oBK96bqEU2&A8Bjq7by)wYWvZ?a)p(0uPPj8%YxZ9M1H=$gzbz\u6_i5B+
U"^BYTPB3;D#&F=XTmDZna74Func0&I$=UMs_ec&_4O[?d:j*1ThsQc'\ueqc1_'.
U"ciiHk7jS^wBDo]5MYkfv#Jh=2Y=3daL6)f=j?7A4hD4G8;Ngr4H_*zduA+OFs>O
U"dce1c6CYj#NymyQ[^<DtV#r1%CpLgb'N&HGslO'L%*^viTjED\/d-tkClTP\&tU
U"HtJJtcZjLOz(5$huXe_o5YPrg#3sO+KWdLbF3#rV><jt7D*WIdv3WoW',jt$O53
U"sg3&*xS>gSt4>p:ru2P)X4BKw7Pm23bi<B4x<s2mQi'.1Rlxe%8*#jonGdB\rj1
U"(-^:e#u*_1rZB5l+b<u'Yeo?\#qJ)zScr4?nw-rH=4uCxWtymzX:6Pm]+09)i8f
U"0OB:iNP=tBe=Pmfnk*R=n6yrwZ>dUC3.bj/a2k[icJjyq]DFOeTo+I:ZMs1B.'R
U"Bl]wYdSVb3jp-5Qn<-lP[rl)=rCCZD>$(K*bF6Ig(]MTKMhai8<Z%Y/ujXyi-Rn
U"'A_M[30K._BG])Ok4k)-mgpNTrFw-r1GE[]ip6Sa;In&a-g-iSR+w=']O+%b=kr
U"]T&;:[*?u$0q>T1V*0S^PK;igUBl^j[ftFU2h3dQkdyZzw)anK+sl>Rjn^CoJf8
U"i>a8.4h,IBp2jM<H4tKYX++AL7$54n2GnbF0bbH2C&U]tV(tRTu>,u'e:U\7>IB
U"q#.*sWjyq2MX'A_ruXjPZOQ*>\CGPoP46-o<ZI#YUHFuLhi+-w9&-6;ZI+,[Nb*
U"A+46DE]2%9dV9Pxv27NdRPT$rh8Q6'HmNV-,-X?/Yzdtklk](,Z,?V15&t%7spq
U"9D(o4u0CKh9Q4>Y)#hyYB6LnZ6NHJ)42sttMqZX%up()%9%'%m-%],RkL7-8c&\
U"%%%%t&%%%1%%%%uj%jpyn%hpSfIxr,^7vp<U79kX0fr(Js.C:9z8_ffxd?Ge&(w
U"e3/6[<7SG)/Zans3x6t8>2fm7-2XB2ns%4n2w09*m1Oh#RFkKiDSE3)eI4cpfaf
U"lZ4Ed,?.X,AAC,2fnZZ+6)i*TLnl/M2JnuNMZ'cc+kL3Jrb=Q#TA\':gh&Sg^=&
U"iTtI3*+Suj>d]Ypaj4:O]A8s/A_8.;[T7_3)-FMF<_[\VCgMm^6xT;XF(7a<xV2
U">1xCY.l_<Ns=588rLHv:*,hr.ekI:]uTPI,M)b'DcBzWmx&Rd]HvNeUQiFM%%up
U"(%)9%'%%-%T\CwLS49VEM#*%%1%6%%.%%%%j&%jsy%xSgnE6'v>BT]1MaTId)UL
U"11=Ef_*8?(<nC$o_Kg4wUi9UnY&^>Y<=gk<B_]Z]kh^>c^=s$gOBI0?TxNAiGdM
U"gItMuc&xae=cUps#tstu*H^6a6a;1D2l_xbdb&I7-\;b?o-;$mrOl9vJ??LZZ?^
U"c'pSbVkEw94d[hxRhl(wKM/%_x:98A%c6x$9Y]e($D1s^r,-qmOt9)*Li2)?jA#
U"&zQAV*s;pL*$uo+<Y7)Sx;S36;tuUkuYSRF%BE2om%//./Pe-D%REbI?Wx3dKnR
U"&JwGjp;0j2U#Gh'Ync7ZA^KPjcmXW.,\d04[+1V?vPPJTb^/<#A22STY?OJ$+G$
U"f^*1_*TG=q<OqKd9TQ>BR?[aq#tJU>_tFlVhba*eQ')LJ+07C2MI75_Vvr115Qg
U"=uD3RZ0O)cezWw53C(OO$Pa>ifJgqV26j:lnJOA^rXg;olRSY.1[Bx='i0EP>;;
U"?9;b9<TLcn-fC8pQq%:O\kV*s'3&v<q><SLWsM1pIIM]V[mZCq>A7^B%aGc5NHT
U"WQ:22$lM09HTf7mKDL&3:Ca.^ZVJ3hUGf5kTJhH0Q\CCMmYrc346,uacL2Y#/rn
U"?L&%y4,Y)7k;Y(SE;7R5wh$A=mWKWef>HisiNa\Ub_8w6q1/l%M,k(UAazkodFN
U"h?rZP5q0D?L8$;A.(zjrqt<o;V3;5w8?xI/TJl_M4G+l*A#0qCHTkl61=q?OTY;
U"V+forLs43o7X1Kd\'\wl?&>d$/eaYJac^fkJ6J062Rnf$Y:pCqe#fM^GR;9,uQZ
U"DhaQ2:jBDI<#I5kljrc:HdE+U'MjAG<ZPkoJ,JUuEa2z%gEj$JD<Div>ZD>)e#;
U"<.(N[\Wh,g:_t'QS&.M>xE)096y?T,t4\:SmZRD2vArK-5cYA_x5zAjz#>PtCj<
U"Yc'<Ycsl6hVJ#)bvS*=^wQ5;32LB5?MBj;jMZh13FPbC8W;Hkr/#0Z/)T>-$+-Z
U"wTSfO0gZ%g\Ll':j0g8<e4)EFE1#2$IJaK\cvAh57voS#/,]Za/pkK<hh>q=x.o
U"d2<>O#lPM4dZRTN$Cn0q=ZOC_sx=4j:mIx'KDcQcdbL-q[)wZE<fH:\53\*-4J9
U"Pm:nWl[cMuGnu;]S[YEH3jMi;5H%O<#oD/-]'Hl1TVtOQpD74NWwK90=5))g^I8
U"QL8d_z_J;\&MI68Chcos_fVZ:=i/i89Zf=2:brNWH&Y3??UCU1sSa[VRhYP=y]N
U"f5o%$(-5W$>i8oHxWdrZG5c5J?Woupr=Fu9&=FNnRlZe<CkK=D4BXv70IN\wKu>
U"\5NPs9)u&8Eu8rLA+BC*tJb6*J%TaA=_DDTbayIpS_t<Uo^Gh2)SJ$1nDXsMOKk
U"C^ol-D?a#-nSS,hU_8i/k<k57,aOD;eGh5>Cos*U1=?-k(Y2o_*S9(>j/^z?cSo
U"6SoHIJdmU5u:rPFm3o;eGjaeZRs^6t*'YEfRaS2C,SXAi9d[N1,mI;F7BM[l+0Y
U")of&*#84NeC&QfFbhAMtm.YrBe-Ri>(deFg3K&lSFUb92&eyvWP)Zy<5q*&+V,_
U"Rt+fk<jmCT]cLmK=9Mcc9:I?8>\$LW/+&]nG/AIS,'SrMI4co[;d0'P5j0+xGW0
U"qs&b6$<#p>iww-:P1Cq24DpV-V43mXv^x:*E0uLw'U_lxhdjK&WAI?kgVd%up()
U"%9%'%I-%;%#lLFS<vG#%7%%U%%%%1%%%%uj%jpyn%hpStdgo:Y,2YNmarFSBXqG
U"OBj1o4hLu///&_.NROoC&?[QSsF+rCnR%wu-pmROGE]HxUO:XiRFu;YikEB5\D1
U"9l6_;gP;c*Lg==RWeET1xuXUoi+132IVG_kJ#V1:kS)]Zt41iiF/6iNY2/1h53l
U"?c<9?ho[=[A#'G3P#I=='S'>rvn#U)2T1,rVU+CH1q0/tH#9bfO2PP$8_5)UID\
U"j$'%=A;V^s+E=u9A99Q/TPp?higAO+.=EQoL-,1e&c%%%up(%)9%'[%-%AAHwLA
U"J^w7l%5%%.%Q%%/%%%%j&%jsy#xSy'Lyd)*GbT[e_M6:xK9a0v%OXwju&QWen%a
U"4R<&=4B2:2F$,e5>d#gII0%i7Y%r/qrn&JS%-ooJj3gW2Z=l^Y+7Ell(Y4Lx;3U
U"o+XxoG$*cls:ZnWRHNe1j(+2i3xD0^<MAlps>&-26K\X,FS_4ihHcmE[;+#D_Fo
U"G^H9H-E<NyuEfD(:uuhnFt5653b+\x,3vVyaH5%z(.1S=)qR*RN:<\gyqk8>NpP
U"#KwmeH74*v^]o]IM,(Gy<wWEH5MZhKJaFDXbaZr&y]Yhc_lI2l&JPa#Jpd>TRjE
U"QPCuP4*bOMB2Q0M^Klxff/^b%r;i:<o'pM:h<&xjHE.&0/7RK)MqE1Zd_Ix\-;b
U"=r%yJAilgZ[hM%&?ULzF6]\YjDU$X?<jL,N/q1u3nI%8c_m#L?H:4z\9L72Lj/N
U"w^TbJMG%<ec8ljjgvu:qsoT+G_gmR<n]w_D8FEB&)JboQ19.vbR'3mEWyCC;C-+
U"eT5DaoCQI0553XO.%I(/i1G_lu1L.Bu]LPP6m[Bd^:Wg0\e/v-wiUR/VUD7f*t%
U"O06Rwl(zl\0./+pI(spgnc&\A3s\+,TR^UgE3bsrg$bSSEv%*f[zg2%M_rm(+V_
U"ePhJ^\=*l7hv'z7I1?&OV0otlS=9eJs.O=0?.bw/>yw#%f(Kq>XEeM>S-](It+v
U"o<M5DJBBr3RWr8:^mB7xZ=&:zbyhYsAs)nYbd>B=f>>U-_31jfqWXhXIoHOMhrq
U"kgJJ%Jm?(3$fzJ_71SK5ZGGu/1jY%':9_D^Qj9ZJSHK(%kdljZC6MlJgv3[K7a6
U":V_T6=/d]0eSpkoY/L\B,(6K1B$Y^abLg=l8F+(SCW$NqFHLMt'9who8F9[y4(u
U"oI06Bg]S(*W)puD+A&/gAtX^L$*;*G'_h(L*gPVSuq;<a:bzJ\0$4oI.J*AR+D$
U"5C+Zzf5M9ATcb3=/(yudPr>/>##;gnu#&<(K&aUt422X)*tlKhQ:A4$eO'cZrJ=
U"1H,Z]HN:0GIPMpg0v>19UIQq98.(+,BXg-qVq38l8?YBKVMs)=t2=&.LBGdv_gt
U"K03r;(Kpp/EAkfItn>^,'?3B7>v)<eyn?w6Hv7Q:0k0Zow5;CQZ)dNQKqK9r&+)
U"g6PYn5oTTFoitNJES.<abn%26b#UPCHe2Ual;EwuhJLlJo<$4j^TBx8+>tPXZ?L
U"MEn>f-xZqqNR;g/2aso]KqanSKkZ=7rQu1oun-q2g+4qi0Ebr/>mg(A+GA=u<2f
U"KldL)DT8s;iH4p3Ooo=7&st)h*ooT'd[]j6EQz30F)O3qHEm7;0P?50_D(ANhH:
U"s&0$MUfUIO.i/$.O&a25g#F3C?kcUcktDB3<4[6+T=GYB'[A>+a$[iifZ>E+[^-
U",=635yb#.9E1W\g/BAGjjI$s?:o?NkV\+(Iyb6P2ERTJKey,w[l0#:.oqIK.L6-
U"C_#p3OUtvetPd&Q8\c0VV0?,7=793b#4M+%$^rh+*)yar(oxKSq(vP&au>a_l>V
U"duF%$3bEPW4+ZuNF_skvd^uq5,Bgp:mm:Vj\']rglSrU,>Wbc^i45SpD(d,f3&H
U">+X5;XM;A.4V(zk3.gs.-EYq4^tRCaMl9E;)[K%MdW$>7WVGYx(5SlEC]t<g6li
U";DcnwU7Z7xodmgH?PupXwvMR#iqmfa+ko$LX_YyrnOu1#MR#1rRkdwRUWa;L'3-
U"2bI_S0Hf-=bMPG01u()jDKllL7HxEt$fM]H5+$Z96+lHXag&;i>[WGE:kiZgT*,
U"VnZg#jdhiOL^uvOHoIeR&,dN&i-rh^FoU:,,_dwnx[Fa8rfrnHk'7V)USPF^o-i
U"D/)7]1Z/%kUxddJ#UBF<;uw\TZ5K/>$d7CfIS?d:Y*$aZErr1cYrlEq\nVU<=^(
U"+=w0x9h;#x*MThT_$t_EE<8P3t2,*%\yz*?G1/IE6O-x?k*FnGYm((.Z64uGjRO
U"n'<=<(_Iw:&WS1[xR^n>cV'5gWOeMz>:)1f9*-XYY3c7t0[gKoPdBn?)*b,7ps'
U"bRWbS#WoWB#n**Im;wy<pnO#[yp-<ZRfFzq:A;2Q13MBj0Ko8ko;q:T:k8a8xbP
U"c?=EDgJF?<r203tQC6k$8c.UG24Fmsoc9]G)0*1<Ce6j>B;L1^j,ZGR#e6W0hC.
U"WL]JyPZX-gQ#sSi7LhoD6Gw2$5RqW4p\;7ms3zb4JOR%vA_l/D*1>[8t\e6pCH\
U"3RC9TN:O'b;E9^z9Y7Ab(9UYFD1zP:5kRHOWRtPodTspDaVVlNpdC0U]HwiGc=t
U"XxidAl$%1Vt)NZ0ku7sj%X$=y8?BOm9hWd7_/0]VWIn4FlaJ'-6)(j+/8['F/_'
U"S*Kw(2rm6dt7mP5zpcJID8k9h%eGE5pj[v]FiFBolzL=3aLOwXL[[+pbrp>CuH-
U"6[K;U=\8n3C0S?0)BOT0Ef<):'G>-43#FvPfVPdU^8?:0F51mqQf)UC[=GN=EGi
U"UFF%EMKlBHe>FfGB2K(ca3PD&#Lj(f##N$=2mP\]UUpMZkxK_UdSXWvIrHdrb_1
U"j1Bh5DSzO-2]?36[p^iHm6a*][0zxOIX/ZSk]RQ_6.k+;k'pq9?,fY.N(4Ba/6y
U"Zx%oY7I>k#\n\eq)*C7zNZ^E&Ol.Dmkj%K\zCAD%ov3MsPJs(PoMR#ghpeG+DF_
U"==\P1E/is0'e(aW=K[RCFSNV,s+-9%7;t*\/4L=jb-^=#V%7&,GM^Y>'#Jo:96-
U"9LR/y9$)=fSKdytk_b%\$HbM9nC]>^viYiAP39=Ar**')CZVGQeeQC.=SrTC1ez
U"bPe*Q/-3_p9]Dq:;A9:_l'Ct2lVI_=dJ$Gs[iA/HXQ5F6kBrpZ(pNlfFI<^I$Iq
U"FkuMMh'WnNX^vuMRF[aSQb:ZTu1e?pEHxK+Bf;9vBc\.*tw>Q/ppE>?3d2%JR7#
U"&'1;=w3sg;*>pvl2E5s.W2F+Pj*Q)l]arW^']Z?1oWJZX'1h72GB'&&:G;AQ/a1
U"2nRr\^o]lW0Wnkc-#EqP#Ud]nmNqb&/mStH=L)]MEQvIK0xe]XCuqsdw[]gk?t#
U"mDWt5:_R7&\4u<(=)]83f3doyH&R_S:Un;[FAd>_N(vjx<7u+PH.RXYA.Ue1\t3
U"MHPnw*^FJk+6S[M4m>diIqN#D%w%CJd*z(_u);pAJ:?IC(*:9G^UR]R$DpCl%6A
U"_vNBfa5I;VBK.)ST'/w[Kg$1;__i?UOf#2+?=qt/J6ob?NA*BQHf2_p_E.'.BM(
U"LhDxQ.l1'eF;q_TI9Sd*lWpL5;c:Y:7e'2Rzl6+'xc/br]t,'&pt;uA*3hB22p6
U"JmOCeYvk<FAODdMPr\<?RJ27M)4oSqeNNa$cWEl,f0daM*?#iFbtCm/#nib5Kj;
U"'t:*c]5fHn6\Gr&h:T>Xa<<LPKKr:V9G7eI<O6p#UL1ca_<b1h6\P_A*.QmzHu=
U")GA\ZxIZN>_8dot/P9qOiCF'pRoA]i'']D[cF6Rkf'pJ:GYqJWLzxCHTZAV4dck
U"o=(F)_p2eEpRt*S%oWrMb]$iK%5BU(#*I(<,d>bR'\WxnH$j';YP)7b=;xCaAfW
U"A40%o0^N*gmQH5O*Vo(3+TdP6I8YsBAW&GjY093QRJ=yMA^89ffn6QGmHZ9]P8D
U":b>:o-5\Z5%:NCmNXcG\z3sindkD5:=M^3d1dBXu>nmgd.:4wT1\C\J7i\NP]=g
U",:eb%IP;C$QY1=lQQT:J'S6[m'TPHuBB0G%CV/p.ybCFuE./p($d<0PHY/l-VcZ
U"4Xs(0ac)4D5ih:-l2^P.]s(?:7UIDuZv1Fw*0R-A3Z[qoyeC1g(ZBL-31JDd=xL
U"bw;Ia*D2P2FlJn--,+e=0CfpQN4F#[EQY,tWCH]m3MM15#r0):^ofXiQ+Y3d;bZ
U"J24;aDEJ+I_s1gvK[JEq>'rN$l.Mg$8LMc=u251?jg?]i+,FJvKm3xOzbDNhSU<
U"_KNbDCCnA<cw:5]JDh7.s?82<:ae]UcAcTOG0C,t\N/L#;$41+kprKEncC_V<+X
U"*?+vaK&3<7c])?7*.vy/JWke'QUDus?H>\];BLj,QG=OkHD^vVpYFCbm\JP)J;K
U"T2%XHY(XODllX2kc&N&Zl>k\x3WU.qKj8_qqCDp'Dl4#s>Sy2nEGUu8+&gge=AY
U"]D\#eVZe>vcjiVZk3AgD[_'u5AKn\3IIXWhDh^ZNJaSwRqYZ%nqYh<cF$e9]1YQ
U"y2Jue*tE3VkN,kJTkB87:u/mO.ZeMY0nF)>WMRq>Ry$aGEa>j*G-D?T3ZJGz6C7
U"N&\n89DKl/yMg(V2AQX%3\$FGq<EN&w1z,9M$9HYP]HneTeBpYe?w#rer[Yr</f
U"rt1a*j*>7j5.hns[uMWZO+>*gysZj;XZhUuN62o25ilrGw0kj(Iekp2Cb1nkEV5
U"^f#VX<r#uZ2qHox7H_t1los)UJuD4c'=[l[H>jrI1a,rT0K-'1-JO^WUbn[G?vD
U"ul8u2sQ'X&i(H$^,AB\%ez\[VH6c-I=Ni#aaW;ygi/Z[/AB(M+7YtTXr*^C:.fC
U"FL##2k$e-STqDw)jtolFIhnOqRf5(Oe-g&XB2Q_6VWfjXbt<BBB.YW_>-PNcpqT
U"kgd^J-]>_dOHe1r9c<.#3f;M(q_&yNe>/YYPvwxK%NZn52>FVM-5\xrp/;$gf&z
U"TE.?UO-gn'q,ovGm.q_]bP.w/FWl-xPL=('U]()rD4<$/mV'>3]6g?:%a5i99F,
U"(7wneh>/t6jb$N*?,X8%Cjhb^Bgt(f)1mo^GJR,isQyQ\M.,,i51i/d:fFnv#RB
U"Aw;N+1LJFU,MCS^8,r/D>Z-=sT<9k)Km,6_pB8mOa.]sO=.mdC;]b8Jpp#oBAZ<
U"1a'BWtK;ZZmJm;[/qPcVHA-5BgAV:=Q-S?F%eWt4?52fK(<LcZhAs1?SMe[onXi
U"aE75oe9eN]iZ8<+a+DXe%(p,1sxHF$KV]j(EKg<faFqp:je><(qtC7VYxH^H;^1
U"Z1B-0Z&1zPZq-,ip([^meOV)pWQ>\jyVa]sD^NY.pLV(1I]Q22S>g4[9Gu1I(2C
U"PkafW6?(^aO'6B?u0(BGB]dpIAG9LUYfWtv%h-sHA<?]\e\ECWC%_\?uI2E:5I[
U"l6doi$\hSL)ouSmqrsl[<r1umkTg1j>=KlL+1K[_$m*[bcs)D/>\'KzZMmoJJVY
U"7Ae<m._E&wDo#hpRC;<*)kO$-S?(V18]m$GD*YP:nl_#9QDSx*T*/L,q[3$C0jL
U"D(u^5l_C[mk'k&ijZ]9^_Wb$S,2[mVW(Q>^G7e5*\q;dpRBwZL:7]KP+(3&4udR
U"^hTYi'?ua'XaDi;mck4(OiCV&b$;LKwHwFgK'wkaAisbdv(f&Sqe(D3(k/u*\ZP
U"6j7?xTV3nC3l<r,\bL;rKO\K,^.^oVQ>?]C$UC<l6Xb>NrkJXcuLn'w4up%()9%
U"%'%-%*=JwL2:;-+'2%%%'<%%%%0%%%%knqj&.niSIin)B7RpFP:N%Iz[myMG=rE
U"Bv[MMrC0Bq%mcBHrEoExAB%qOoQ>y]^o'DTw-aQFqG&EoQ+UojahROI_t7M)1)]
U"dNM1Js;6u3$tuMYc]lA(JtOIJeMc3JsO3s.K;dM$]vN1)VIO9J&;fs9_;d%/4WZ
U":1WZP/L8ZP):7Zkp\P+&&cHERA[nzMF9DqD);Y6_:VceiA=f-bN)St;:>6_$N+=
U"c>%LB:7oM>788uBD>D%JJ*%%up()%9%'%#-%uLmwLwA3,xE&.%%F'%%%/%%%%wj
U"%firj%SVxyDD$rZBUU1UWhPuPsbbQ;VCo#P=wa;g,JRphHbNnc:i*#Wke5xxhL4
U"6/RbZqsuAh#\&0H&$1V^mK2gHF9peGJ<+J5'aF;Ag0F*V5+FM9.kHp9pj^ifysL
U"sA[mA?+L<,[(=y^eYMgd<Mk:?]9&.fj9BS/uXj>]QWJmU*kol8\8i6:E$uWZDrU
U"EYr)H)'0'(,jXjQ)Vhr]8)RS7^:-\]nd0QksZGkc%$vAu/ggFxV+:4<H[+pj&UB
U"6&d\iw;0u[.hs'g6r+6Hq9rqqQ+vFlLV7q>gS;Ifk4B3('&7K3>mM[ab4Xu(<H:
U"H=We^=]28'JEAWveDxz.k&(Xp?ajpBG,F#O?%6;g[n1tFrfaQL>K^<]VvZ:gBG1
U"P9.r\nNn:TKDjbdxP.w/h,pRthce*BX-:F'YD,I\f&O*WLRS\H;vlnlJ,Tu7C0T
U"iU5?q8SY86XlDm7khY(Eisa1qQ^0TN&-IG'q(up%&'9%%9%'%#-%qI%wLjI*xZ]
U"..%%VU%%%/%%%%%%%%%&%%E%%%%%%%%(j%js%yxSg%fxup%&'9%%9%'%m-%],Rk
U"L7-8c&\%%%%t&%%%1%%%%%%%%%&%%E%%%&/.%%%ujjp%ynhp%Sfxr%up&'%9%9%
U"%'%-%(TCwLTS9VE%M*%%&16%%%.%%%%%%%%%&%E%.%%</#%%j%%jsyx%Sgnu%p&
U"'9%%9%'#%-%;&%lLFkSvG#[%%%U%%%%1%%%%%%%%%&%%E%%+%54%%%ujj%pynh%
U"pStg%oup&%'9%9%%'%-4%AHw1LA^w)7l5%%%.Q%%%/%%%%%%%%%&%E[%%%&%5%%
U"j&%jsy#xSy'%yup&%'9%9%%'%-4%=JwLL:;-++2%%+%<%%%%0%%%%%%%%%&%E#%
U"%%A%F%%k#nqj.%niSi(n)up%&'9%%9%'%#-%uLmwLwA3,xE&.%%F'%%%/%%%%%%
U"%%%&%%E%%%%yG%%%wjfi%rjSV%xyup%*+%%%%%,%.,%[&7%%kH%%%%%
END SUB
CLOSE:IF S=101AND 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
