'=========================================================================== ' 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]Ux/IWWQl2mhX>ZUf0=.A2;4%_EQNn)Yr\;i U"s)B4H/,'o$BI*uTvOQX+$w)pG[#p[HHgOs)J U"Q7hRn^lhXhP4m-MEPGG?'QnPFCq1HXOR45%s;.X)33ICQR(.iMhXqg$^C,2:Yi1 U"W9_W\*/09&fKY%)IBE=7&PZ<#v]3eGg*COGkcCIkKiWKiU.gR7TkHko_BN2^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" 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-.9O U"dce1c6CYj#NymyQ[^gSt4>p:ru2P)X4BKw7Pm23bidUC3.bj/a2k[icJjyq]DFOeTo+I:ZMs1B.'R U"Bl]wYdSVb3jp-5Qn<-lP[rl)=rCCZD>$(K*bF6Ig(]MTKMhai8IB U"q#.*sWjyq2MX'A_ruXjPZOQ*>\CGPoP46-oY)#hyYB6LnZ6NHJ)42sttMqZX%up()%9%'%m-%],RkL7-8c&\ U"%%%%t&%%%1%%%%uj%jpyn%hpSfIxr,^7vp2fm7-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(7a1xCY.l_BT]1MaTId)UL U"11=Ef_*8?(Y<=gkc^=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+BR?[aq#tJU>_tFlVhba*eQ')LJ+07C2MI75_Vvr115Qg U"=uD3RZ0O)cezWw53C(OO$Pa>ifJgqV26j:lnJOA^rXg;olRSY.1[Bx='i0EP>;; U"?9;b9A7^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.(zjrqtd$/eaYJac^fkJ6J062Rnf$Y:pCqe#fM^GR;9,uQZ U"DhaQ2:jBDI<#I5kljrc:HdE+U'MjAGZD>)e#; U"<.(N[\Wh,g:_t'QS&.M>xE)096y?T,t4\:SmZRD2vArK-5cYA_x5zAjz#>PtCj< U"Yc'-$+-Z U"wTSfO0gZ%g\Ll':j0g8q=x.o U"d2<>O#lPM4dZRTN$Cn0q=ZOC_sx=4j:mIx'KDcQcdbL-q[)wZEi8oHxWdrZG5c5J?Woupr=Fu9&=FNnRlZe U"\5NPs9)u&8Eu8rLA+BC*tJb6*J%TaA=_DDTbayIpS_tCos*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\$LW/+&]nG/AIS,'SrMI4co[;d0'P5j0+xGW0 U"qs&b6$<#p>iww-:P1Cq24DpV-V43mXv^x:*E0uLw'U_lxhdjK&WAI?kgVd%up() U"%9%'%I-%;%#lLFSrvn#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^&-26K\X,FS_4ihHcmE[;+#D_Fo U"G^H9H-ENpP U"#KwmeH74*v^]o]IM,(GyTRjE U"QPCuP4*bOMB2Q0M^Klxff/^b%r;i:yw#%f(Kq>XEeM>S-](It+v U"oB=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;/>##;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)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[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;wyB;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"JmOCeYvkXa<_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\];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%nqYhWMRq>Ry$aGEa>j*G-D?T3ZJGz6C7 U"N&\n89DKl/yMg(V2AQX%3\$FGq7j5.hns[uMWZO+>*gysZj;XZhUuN62o25ilrGw0kj(Iekp2Cb1nkEV5 U"^f#VXjrI1a,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-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(<(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=KlL+1K[_$m*[bcs)D/>\'KzZMmoJJVY U"7Ae^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?]C$UCNrkJXcuLn'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]QWJmU*kol8\8i6:E$uWZDrU U"EYr)H)'0'(,jXjQ)Vhr]8)RS7^:-\]nd0QksZGkc%$vAu/ggFxV+:4gS;Ifk4B3('&7K3>mM[ab4Xu(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%.%%