'===========================================================================
' Subject: TWO TEXT UTILITIES                 Date: 03-28-95 (22:00)       
'  Author: John A. Kiernan                    Code: ASIC                   
'  Origin: kiernan@uwo.ca                   Packet: ASIC.ABC
'===========================================================================
'>>> Page 1 of UPSI_ETC.ZIP begins here. TYPE:BINAA TLEN:10406
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1
SUB V1:OPEN "O",1,"UPSI_ETC.ZIP",4^6:Z&=10406:?STRING$(50,177);
U"%up()%9%%%[-%%)SKCeP4=^_%7%%s(%%%)%%%%fgIhilb.n3RUR1jp$MAVNd(3C
U"+_.tlt</O*FgUvzPy;1WjKl/xJWT>$6zYy8n1&*m8rdZ0Lr',T(:kirNkkh<b-h
U"4sZoVcKRd=h%3.)gDD(l.bvY]/hA]2=gSr;2'aQV]UH2hH[L5;PB)]J'ljTPF+I
U"gP64XJO>\1.?#Rq\<wlr'j\gIaRN:WH'P%up%()9%%%%-%4%)KCqGrqD'&%%%''
U"(%%%+%%%%hfxydqjtI7$3<E71%IbmwSIBd##6cL6,]_]CXp4JcokR%q299Bl:z<
U"qPt]B.=epgJOyGogo:,371:H%8^u0'-_%0p.;FHmRL18Y>79Q(<J,^C&f8:1XIm
U"T:>GGA32TS]T[:a>d6O3D-rbs\##[F,1#%h/$-PO$3\A77vfOVn*Pd?%_YWPh=*
U"%Lse;2.T;&6IdHTnEUXrwO^,M3?K:m(4&nU1Kt',fD,u%p()9%%%%-R%%)K%C+D
U"8*mL)%+%?4%%%1%%%%hmj%pxuj%hSfxOn.&*,:\]98MTm4ZeL:S:J0UWZb;)jDt
U"TY#KSUx,IA<Ep:T=%YJ18x'po6shS&<d5Q4,T0Zl]aKcsGz$OmdV:qW50B6PnLW
U"MZ/G,b%,BSKu8vcJ6TWoUoK&^bjVAP$jaQijC&.IS55H:luSKWhfKv8&s]R4UmM
U"N[?dH]$1lS0oU+rLb%?BEl*u'8+dk<+;==/-+[k4-q0T01e*0O4TncVu-pl/Mc6
U"v_6rIy)G:&0uvf[fM,mdBXMWZWOq2]/6oG%9563X:'JUcLsRU--_ZKlHi)O'19;
U"VD4>J2j5<Zi:dU&upsS<iYzISGMKIq(8U7F63\Q2)/-=T.Z,eg=,iG,+10oQGN.
U"dY)I5o=_$]vLYtVf,uNhVp(J?3yTjuZyAMfFRpT0]cQ3k^OCk5LDkFHI/$k6ZOI
U"DhsBgZH]BKav)dU1brJoTgN<+E=(WsKdGFg(]ii/OLE(Ci9np1%rwR+)?tQiLv3
U"e>0+GRN;Hb^b*JZn_S.SW4o6u%)23Y?7WismUoKo%r9KejO\(9(H)PZEmR[7&T+
U"X1]b3j\cD.fGf\00&>m?IB=lfi*,hXp/dZEsr<Dm,0\6,3Kmx/k[y*Y1U3#YbBG
U"s3c+$q:QzVbd3mL80X4eifbd5XU4LhaG]Ec4GZ8^Y5Cst#SAbENWY+YA_Rdlxd?
U"b2;]Y#;/M%7ZX/;'y*CUp)>Wju]ySzYwU/t83cMEm9bq<:o;OWI9<<8$k=EGpId
U"-X<e.bs&f?hDF^Gi6[*URzP^pZM]Gl8YcM:6uJZW93$Ffd>YA)J5'(kJ4cR#[,:
U"C:fO5:^TWs-oKIa,62%&6p5zG)Hu+(ASuS'Y0GF[gyC^D^AaO6IRQ;N'bDv_P;q
U"B-S;)sMU6TF^j_>&it$pCGB)+i6FY,<3Vz\lVz#mQ$ke'disxY^V89c1owM2>AA
U"[%2lUIJsOEgGxVF*>Fe/NRstU=FZ#<=Q_tFX3tKh;6Z9:0rV+aCZe2hY35WDjOK
U"+,hMZ:&5bkoJ+LIQjfo'.x/uMjjHgcHs'A7y6ldlcqB-c4_dExSsD3L2pcXR,pu
U"7Cxu7ZB/,Ao8lNsTqyLrfATi1WD**z.6'5jQEOaj&2d$dT6FQ=u,'f4Tr/&#HZ'
U"]P4tf(#Km&>9e.)R&>N(Xfue5Ox7(06d;n[876O#iLf>hmC>?s$[B4twW\evaoA
U"nL[ULnm6H\6A*nlT+G/lCOXXCJc>Bk+0[i8ez_0tLMN<DoHr;V_K#wG&;i\ljZc
U"l<sAu*MCaTLd[Tf_fwEzi3Bw:f^CJV[jhD,X?q]..kVI$7qc<Se28m3UlEJP7Fo
U"t^yL4gcJ)GS/n9;//Z%b]Xkpbc:8N,#7eUCz_>gA/\w$^DcFZxoG\Dqgr&%Puty
U"+^)y8S*i*4L?NXb<3mJ/1ZXd.fP0&&qR0Ho8t>vKEZ0Q,YMx\o,JVBod+JPlc](
U"i8TMI0qsm$Kqcxvvv-D8up%()9%%%%-%4%)KC;kk%f&.*%%&z4%%%1%%%%hmjp%
U"xujh%StgoWf%x:(x&9dlpVj5huu8uOwPxCQJ2o,rfi?25w*'$oL:0.K,zv7GR1D
U"u3Y/8'nRVfOLgiC<d\+pfROI&NIe[Q7T4JNWIyk?EAW:>Crt0mjZu+Kpp]tR20h
U"ZicC/eG2p1>ZouWl2$$5Bc$WUJK;U'2N*p$FNPcf%O&-%(N-..%*hnZFPVV_$,y
U"fS\F7TJR;V'T2'FL2p4/V?69k-E[%CV?K&2/SYTq;oFP\py%fK+N,CFLTOm_,dZ
U"jeF%G'C_]D3$Qnb0SmUfqq_zK%k9Q9Y-*Xui)-tF=rnh(DVji8vvk%4z1YB16#5
U"l.,Am-670lkv)7Wh%o:uqW;pT6IJvVWY17uN2p9R?9TC]NzZ7;JXT/E+QHTE,$/
U"PaHD^+S;[Kt#Ep]12m\[P_WXH?NRW\A(IfH^E,_h1/36/1kKg%_n-7h\dS,hL$[
U"rSXfvE:Li2ylY-4p-z:z?cY4sojfnl85%qy)7p]rh%()xE<oRQc6L]1rLXqI;$)
U"slhu-mnM*E4=3tv]oL,7no>\&:9\0wg2M\?)*8G4g'bJpog0cuKBE:Ma-W<iWA1
U"#gP^2y4uBVaS'4TUNb^TT4-v$##$0pp3Z9]s$9f(PN>UO\tXk'Lm3F2-Or^Rk6,
U"K99qVleWPAW>9G3lg^op9shad5vS$fj)MT.[?3$Ei:**GNj=*#C5t=C2^ke,+kD
U"a&+a?]aD2kP;^o(?9xv5^$b(yhat'DTTgtgfGDw#7gb#RGH<ia<?.G#;<$?Bg.^
U"Q5X#A;XdRhbiICN08v,SAW*(Nhfc\Pm>DoIvC-UFc+TbV9t^4hidE;B+m>eiDpF
U"M9fK&^ri\F;b%?U\8:gu0?x\NLZOkCd.xv\/,g1^:)MtW14A,lXds9DZML]D8PL
U"uRUJNKTLv%mpE%k8B&aoT883oRP2DESi7/XT8^y9Ea;Xui\+WMeO]D>w2>Xjq[?
U"jq?*5Cqxjt(G,)D$z_g<?E=VJF;;CLcU&?f0ByTJvE=rPk4T$N-TbSlO/wO/9Fj
U"X:Qu&UdLPz1BGkz62tIjVkR\gBuEF/Z%pG>&Hr<,=&qDI(;w^Vi.-IhaZTDi)??
U"fEB#Muc%9?WWy;o6KOWwsYdD$eO=ndUM#(1dVW/Qlbv'adk+9tmq-<:6+EB/R/x
U"oNC\9\07JvUlW%ZOs\Ph#4BH9+rb:xBViv%jY6ZTJZ3b'a*c?e3<yq#':.'nnMV
U"_7pd2U#$qa^*RDEZ3QjT3wRg-u9j#..?n&B5?Ye8di,eguOf\3%B,6[^'nP$kh0
U"CjDWFrK_'c=;p2SRlTp)cA,TY4-e3:tz1G3vob:9fCU%U]DZynf\$vZQ1(K/2Js
U"IBuHFM6*^qvbKbn(Mm0yZ84XNpGasb$:5x\Rr*S0=?[p&&=VK&o3O#XzP$myaW.
U"++U4p[is:C3O[ZJ>t7t+LB,[5rLH.gYlaj0JCkmQiLBenEV=tnG;TGxNmITJFK]
U"*J2W93w.\>rotELF<;,X6\$b*ZX<mt-_b<bi?7-EAcWlBFx_XTIVF4E5&D&],:B
U"F6M1u7-cC%SiDOyxG#g]xwbk1_Ub33_+tP9dbgYu30o%D-9*gzH.4(*.CTC*T7l
U"fvx_104<*hdU0XN]P)+]-a56G1fJl8twwP[fn7+SVcEW09<(d-6/%-J?5Nu)dQ&
U"MB]e2s$L(t,4>wFh#/(8O1mlCkRu,HIrMX,p$:kyG9VA4fHvDk]N8JxafxtvZEr
U"GcmM^N4[DUJeG?=Y8]<sRqk+Dx,u%p()9%%%%-R%%)K4Cw(%*SG)%(%Y.%%%0%%
U"%%rjx%xflj.Sy'yDl%v^BSk5Mal[dEG*hI9gwtHa%nv0ANN$+icd:ZFc\SC\j2d
U",-*4UH4Qrflh.Z3?z(D9.0l\V>7Wr5_*JmCeZP;++O9+JuZ>(G^&,OgXM)+Xu^:
U"4#hE3[BS[h9rr?:UQu%KhWg3ii-r0rC5<:W0N4UC(]&o0f3L1C5:)r7R+s*pyQ&
U"-T:1Yb>].5DmdeQd5'MoHGwf;<C>U(_,ZXLQ#Qf\9e\5luQc5-:GzEma7vK1cEa
U"3^*pQ/fN-/Oj4XzMCzLGqvCp-2dV7sx?7E:g[7G6:zSR+SxQ^jSA.q,R#C0I8el
U"IAnsuNi.l\fCer6)Fm)>(3'w]/uez1b%jl[>(#=r;1CuPffhSPW8_guh<;_Q+GI
U"V5fdY1SbEFiGB,_nVp(I0nA)jYVL6rJsYQ&n]EolNHSiL)'c3aXYE=Gvr-DKETE
U"ZvuGmiPRFZg_hfj4l(o,#s3Yo$<SUB4[wL]ZoO)]p_k-[1Jbn1KJDr#UO7,dQ[P
U"tfdmw45C,DF6aUoI^1%ZUS?)4<Fx(u#:byk%Hq%(d>fdf]fB0sI#;ZEv.7WOj\S
U"[EB+o]Mn1(dF2fUN:-TvF91fs]Hu+q-Tet[G6kd,sn/k&&P^0LYC^[M0^;M;AN^
U"gJ^S]+mSxvMi?llOm=BtXxtDqiY).Y]p>$L$k9v:H:.uz+Bo1TnGJ7R*v1OpSho
U"ZiFRD8:5]]ov%#a(KC:%Z-X%J'U=:MZk>wFsRh_^,wJT:GJd7r&9-c><eA+?OUW
U"#2\c;'xOi=M.#Gp_NA'$2<KLZR&M;p[('g6$+RR4KnBgL6H^H,$gWII=GWjim=D
U":hOlZ:=NvY?C)RV\_FAAjF*4KKs7[^O/]s&J#CzOOkxK;]f&[t/Kd1mW,\EZvh)
U"2c>4T:sD;4NkH5I-XaJ<0W;k<6bmGb_ycQB3BJY-p6oF-Kf,KPI\W$Pt?XcwHje
U"V&L%$2w=$m(nnCr'cr+0S=Q40W_JPi5agM(qJEf\MynVRN5\x>f&H<5l_e1?NL&
U"o^Lo*Bosb?Atnf-(:SHe^\sk/IH.ik[iC=l2X^ybP4gFp4MpzyUvr[^pR6uhH?6
U"iT^pjoiy<g4_2^Oa;j:s3=DxV;D*hMyoZM&6+U.Vp<Q48t8>St'mZYQ8sJC-O+W
U"qOg]scf;n5$U]FUj4H_-^b2UcUi5;ulC3f>dWCvrsHHTX4i1R%ep&q,1nOAmmV=
U"c7LJgaWMEk_7-]nl5H51$;Jg?['+q$Dut.d.l+#fZ-JeDES2&\y.FF[w:']WYLu
U"4uB#g'pkjO(heMGBYX;<Ryl,f'leEke8Tb5MLkKilW<d+Jljc-Hf2YlBJ[]q3+k
U"m[n<m$\\1K%BZ5'>70Ms8Hcjk(6tCoI1X[9hz;VbKQ,D,ghidZ)hWiUBER;<0ck
U"gS3mIV)l0ZRKH8Hv1.t40\CeM]h3=MMIdL*N*+]-t0YAk;KfX?S6D/7ZAu(%up(
U")%9%%%[-%%)nKC>%:qE>/%%%/I%%%-%%%%zu%xnSfRxn&()*>#\^;M\YFd)t6&v
U"kEF48RA[E4\0>P/DAq(ye)n]W)m6d%Zq%G(Hjgs>RJw9*;aJoTc.B7hTTS__oex
U"ECmhAI]AX%^OokYtGA<hM+HGGbgi5GhJR%fb7I'q%,twdh]o-4-86jxF%<==R7d
U"\_#r^)M0=xWL<9/[,+Au-72M\Z]6=BgLNrqr7C1-a*JWjY1:QfEHSs8\#<[.s6U
U"0o;Qs92qRs9_,V_#K8^1]pnI.m;,7:t>C7N_4WTMA+#Gm21R58zo[K*lugcCG<j
U"v+g59nOuA[.OGH:eiq;S<$floT>^M3XcoK4$[F)a3di&?*a5l5c_JJwX:?C[IS3
U"f)O.^NYQ7wTZakiERf$&+y-9RC+o'vYhz*JUv1<u4?Hb0IQ?H2RabBY60H72<M&
U"Fv\#siPcx?GZJk3OMMoU7C7C/^hHxg_,$^\R)f(($Y^rTciEH8U5^-uZIc.L8aB
U"F&8xDG'#);M3*RCcoE[Hke/zYmYRdCmiq\)pq,8.+l:I,3OjA;^va)g9Sp5vf&,
U"bO>>I<R&trH-8NU>Q\;n>Z3fS=DcDJFt^YDo:c>[']D^j)p\rUFAFR*eiL>)XYw
U"+5M/w:/W4[:DoN+Z(M2T4cY>]j?(r:L.<T5Q2jMAfCa&+.m58KZp'-eo[SAxg=:
U"]ul+Efc7Rc-\SDSku_237t?#eHpQGJ#.6_&O)xq;_xr%pdPI$xjF1jHFI;CLMi9
U"DI#=a]0jY,$]ACkmMpJU:WSg%*3z9p'a<uVr8BQaDmlBDpsEE*?o)X_iTxwHny^
U"N8YLc5#LY7evPmi/E8cwmB(gzX=lol(P<RL]-L7+N9cIvBok/qsR[6hR-EKP/qG
U"mHFmk$:OFA5a?vQCLHu%5.f,AEC+#_caZlc]ZO-M_X/57]\TBE>(;VS_S;_q6Xh
U"*^%5c(V$CAD?ALEGJMtY^L)VJ)_^kaP#gsmyPIw#s,+M;Nu])VeMc;%UO_%fOg/
U":n.ss-&V$t=>-f3o>jq8h9[t(rl1s$e;\X]d>8Ec^'M&_tZ$+L&xhmjF(sNxm%&
U"+0IaB[;7P+0cWdz4/>7zO+-bq#i4^]q[k#w=Zh)uuKAbl_(Y);#tg#1]&m5O/sT
U"3VoO-vmK_PLr_?$10fK;RCeKk#php$9VHN.Wo$>(F;,&]?<=MLA)gC8aNo>*,[*
U"YWLuhF0nKNALRDfn%3[Iy/EIZ$<UAmDR493+^NlFE6L[O/l<>F>Od50\+lQ6KKl
U"]6dGGI0K*MoP[:[Ji]-T1*6Dgk]CljSgjBhXmilq>\FG>_X(FU-Tre\wrVU:rRV
U"]r$B_eJflFN12/Ui=FDUz*?UZ:0/Tc;ey02wTgh1lWM=xIOMW$^#,+7&j6.kPiy
U"9]A]x9-\F%$Oj7j:/Jw6>O$,yD:q81Dpjp6f-qYA]3iqU=Re>Sfd2%=O[p.Le4t
U"Zu(r9v'/vb_C0]*+]%tX_]'j\076G?Z?MCt]?]\,&=]Pa6^q8-b]W,1^W.s=0Sf
U"*>l'Ch*]3A&AGM:HG2y8YkY*.VzwQ[?PA.q]tYm(BwI]p8VIS*fYzzM#eCJVwWL
U"AQU3z2S(J*5u8Xf(ek?:UM3Bc0(ir5>Tc_U^[y/u>rI.U6,QOq++kBveO.tpTrA
U"KaP;d)7KU7c+6f7#\&8I<mS0*5ecThg*HrErn)n;C.?6+Up/WQ(+XIkNnwfduI&
U"K_WYCk1P#p3VKtUG(4$7$;MfJh.uG(5n4qou4>JFS7aA'l?bW8l>R]>ljl(c4tu
U"qg8aS5b#/oO(>q9BTLfqI9QmTv3]0kDg+etyyE0qUZRLjA\k(?CI;3#Gg>?ahAU
U"[mmF=OntGe<EisWWzCHsVKX2bZxpG)^HKoEt7C]/Gw1Y:vw+'.wlFHSml-odryH
U"J:evX,ACsc.EuJl?;(AIF^aKMlpsn,*fU?9*gk&NU,T3^f'_=1vg*,VBWdh-n\q
U"VWfN+KQiMgaaF9Y>S29xw\:f*R3k6:BSx3OP%ikiPo<1bmuQ/(%ju(jaM9H-2l+
U"-Mf9j))%o+u(M\/gIDJm]'txOga4;C[xii^;4uhOa0^Q.brM:UliNa4-w3yJ4p/
U"3cT'''_nwy/Snbgg*U4/8/lWbEGET<PX'U.p)^Knslrr_mU?W+BIP4IvlCk7q(D
U"afM987]nxm/;*hM7I4uPWI5vDq3TyPH+Frc1vP,,fP?Of_7WTJU'BZrn=V1FLae
U"oDZ&fBe/ugKZd8he9nu?Oa%mqg:-2foja&DT:?VB=tsXpMdsevACfDFL^?^s[=m
U"rE;e-*PQi&6B6&&lV_Xim)3JhEyeuSCWLtVAoOaw7lvckO6V,ZZk9sF_6XhZr[r
U"dv/C*mkY\s71_Pd,_BA>I2/JgN6dD,>cuwu._<A-Ar8-rm*a&:[v2co8H7*-^O-
U":c#4Dc?Y;+upoV=unNa1lkZ)klqZ%P++r4^Oc%rbh_iou7g^?+]_b+b(3tm#Kul
U"+0W$a5+*U0)Mr);l?RYsr\Ia;i5]2MJlt0?.h?V^Sq=te&aq?;1UI&PI&dP\Vc5
U"&7evC/08w^hnEphraF49u-C9Gkhxng^T*JI^1+\%0Rkfe,nP37DkSFu7\f?\Gi+
U"g4aG63fk*bG8:C\b(K3e67xEuvk6^n[Q;/_pHiUtaciE-[pWGq^_(g;?k)+#JOP
U"gW.4q;sHKdYI_;#ipH:a^'LA0JxD)z;)S8J\;jy_+f1cyQAsxu/,#Dj$vIpM1j?
U"R+Jn?,Ete%oPfP^PCQ<pSMG>&cdPmHz_)qZu3f.23IDwGFRf(0f+maka9dXo>A]
U"W<b7NqY^,\<\OCJ4JZ;DwLSEbYjc)F??Mi3cj^;FjLuS2iWvNLhh#_51U[5<j;i
U"ocAv?CLVPEmO*Eb_-0m5j6N>b>#pW)RT0S5$KJJ;n*iCCuYQ.AZqI.sPY+g1qH2
U",c3oASduFZ[Cr6VZ65<sfL1A=]?$;rAl>()#Qo8Iw2QL5r-wLPFqhIVm:0U?trc
U"j*PKfo/L&<lurS[Oe6pwWEqXFeA8K1S6[HWfPRxHA2v9b^#rV'[9t]3U>6=q575
U"Z,>a[&k<mr9]h-0oXF\]HTZ.).4tUv+2&*kh5_TbLxTsh-AIg^kwRj4<tR1M-$\
U"^[G<cU)9Ks>p=.js>387^ahx<N76g0w3(*$nnf&e.:I&-M6ICT*v)_nQlju&A/n
U"A5VmwZloLzSqa_^7&^Zy1WT8X-pT4Pui[9uEW.AcL9]g7:7oq,N2tjc[mKt'NMR
U"(5-8q2lMJtolyqaiMa2*xRj/OZ'5gEgKQgQd_YLtYfQ$O8vwN8B[JSPCv^>rtRR
U"PdM%)88+*2-[VK5$X'F7TW)[:FP=\jOeu3TEq08W+D%5dn<'jC4/jE8PW0%W_&j
U"euV1TqHg8Wn&458;']jdP=eN\PqoG/jfRK5X)=F7T)$[\:[]nK5(0&5>[>PqJ/-
U"jvK5EX*FMTU)[BFP=<jLeK0TEqK8WFt&5.S='jt=:[Lr7Ec,gbK..=h&%WHp[Pq
U"N=/jTK458(F)ML4i\8UdX6wmNu%p()9%%%%-R%%)K^C&)U,$%0%+%-L%%%-%%(%
U"%fx%jSfxOn&(*&>#\;8M\Yd0)t6zqr_Y*Y1^+,B4n;YIQ\9<1P_c0D_3&9^i((H
U"F1.A]X:0a.29.IjK(eP->O7n'9-etHcSv&D1hA5]RH_foS:)j_sauGZ<2b_Y:'G
U"IBupTVjp%oLgB9V^r[.i&$,[h)6(^tE=0E(m-2'_?3e;3cqI0-RgN[O;=#M=fn[
U".n<K#[1x#%MdEmS/5\&G*kU3R4(*O(,cL&SZ:<S7j9u*HZ=<A^?ic\Z*ui/UOvG
U"w)_.\b]qTuZN0O?9/OmgUdHLl.%\\[\*g\+L(87Y[U\I<r'Z-_B/>\nzbvedcd(
U"Y-Gj-'(d'#/N&<*oHbW&DGQ'J20-<knjjXQA,LnGa\:j^VNkQmjaW3>bvMZCS]2
U")S[niSn[eb3%P5ds/]C8,/G]i[w*5='kXGgcc.2Im8aU2'<N^(=nihC(?$c07iF
U"mpbeE2&'L(_4'[Ec*Anj6XY6sMSDnu6\%j'ToaKDyA]XQ:q&PW(/Ml;=Ou*nO&u
U"Wiq1VJA)4'HBrkYR\&uX>/etZJsK,m?S4B:>l:R1=k[LVr;N:)+8M/?2vIG9424
U"U-2TdvIx(xXrvkAeJcm\U)uHjOBwi/l0JMQ,^I$I4kIcdZA3-8id-h%R-ZU(u+M
U",Y+Qa#QAPr4+4KIqf7hdN)GZh&h4+p-M.K<0'0oaM0j^%l+I7iIGn]O\<EBaXf2
U"1:B;3RB4'qV*+,'H0ofVnU^YB66tbqJFTf^W6DdMT($gf(r5T$)[<T$g1-%Xi_U
U"ttU$3O*Fuxq:isSXZ>a?CXK]u2[,fMl(X#=F\%(yw[Gz;my'DCHBf[<2'^>58v:
U"q.Ri3(JC)Q\tFoZJ4TNq<K(XA:eXbuFD>k:QX5g[1T<93D(J*jx(/P'C3zA+mfx
U"68B-2[:W^HA#;j#o5VZ]cl_+LD\fp3U%d^=AF?5gn9x49,FIBta2V=#[X4,)]>.
U"B3ib[UBegzcD#q:1TjNP(Z9RzDi',gDU+;aL,(AqY6g=-^xI<]cES;YA./9;5Q^
U"'^PC-lSG?EGyS^t?9-3y.U[U2O1ZWk:vWboZjk)S6=YVQ/p=mX;R2on/$#r+OY2
U"+0761'16N'%#7t[5L+4K=Yi5]ftf+n2vEJ7]yX=b258A>Cweqz'3r^AH_dK4g[>
U"EVTRa[Q>:AyH*m(wqyx1i5ygo_/E;WHYF<?A<;f/'?=h[6R;&kR'PFpkrI_l)Z,
U"n^WAJoWJ?UVSz*>w4ojV/UDykFtX?tjJ;QWo\'XTJMIr1PPPII*)_B/F)lZBC&k
U"S)I%<vi*-8iE1<Gwcrhekx%N'I$BAa=J*A/8nt72?5sG63+3t%2U)%J2^1M:)S2
U"_AUfN##BBqEgJHG(6]3zR<g\(hQ10L\_e5<&[-'=:pQ?=gKUT[sUS3NT4$S9PE'
U"xCXEJEGr0tPNNE7:*QwOk.\pgEdL]\uc8f=F20c6\tl>;c]dCp2UD?Sy(kx#yo=
U"'O8l4<(>NdS:JXGQ6bldtkcEl-0jFs^3rQVU]6O]c=t]X6m)44JDyM%ODEcGm$j
U"G[MzI8*EKx^H3GDA&$xqALUWD:JLgLi1IS.%_h2x:^2Yy(;^+-w3SaJzYMfo)u]
U"DkEr^Mxu+q\qZYTP<pRiA=GVKl(V^k6>PfEQi?7[qG>/di\,A4Oa3#A)rch*'M%
U"XUEobNwrX0?62jO8jC)]iXMk_DImW8#u1TbStzJ7-(bRtCBj#dgMf6>;(zviI;]
U"Sd.O,ElQf,'_IEso#_tpXK9Q/D#bt1PgpRbe[Yps78ZAu,lIxseZf9T,Q.u#x-f
U";e+%W^U8I+V2Y\>cLRAgS'yD1GP(e)sg6[AkXs%CMmOm3V#>UN)j./bBE91+:lz
U">8Dj[a%D+c.[F6anOjCxv6ZII_2:yZ#J(P9aJo1XXT/2FyUAG#c8:gD98v6^I;c
U".DY>euM*(p(%>Sq^Do$2<Q=u/CBs4W^'+Pn=gk(x;=)Cx)ORiK_m[<rve>Rr9?k
U"?\&DxQXm+90fd8E1MuRUmmiY<7WuCnQS&yDRCW'A:]Z,$tT2MKJ(Es$]]db*hbh
U":B5h+/XCnLnlAc6LFft,rgOhUF6Eq7U8PHCSyPeZ8g/S0he[8Ip[TLBXsIh4aC#
U"Ou.AH)'j#f*YhfSc/&<S8U.3Dy2UrGy[mEUA%k'%J,Fx_eYW%Lut#U2e76tm6K7
U"-9IVNKri(-=N5oCcT,k#):0x*_JvraZ)cHcnfMZ\H\Q=X0GE1Qnap>p<Q(Dh4p1
U"LLHSQ5kMkba+IrE%)fh88J_dT;4Mg^$ZlO9(ak9Ghc0*V^+O.[]T:*wf*3L;%nT
U"n89<nJ,4%ZCeQ+'8>B+w,D<zbL.vv8Xm1oo,WFMI^cv9HA>Cus,,JcpaC=M:Mak
U"%j[=1<t2XpAmd8TP-#6l)X3<sUT,OZ^WqF,,M,/'xa.4stF1g7ysm0ROK&;;w>*
U"3xuT^O1fiNeEsUl%cxCj_BQ&2s\0j613Bi_'rtb%c/J;3?ZZ)4JN/Y)J<4zO?,Y
U"nF+*Du(XDWRMApZf:r96ebL[T2\(LlB$A3?^.MM'*CZP^6C6I3XM'iwV+(-i5VU
U"x3T0B8Zq<41>I)l^6Km2<Ln55,q-odr(RuRT4J:'G.29V[5;[uCpIW_\G-s0wjK
U"?WGNs,vL+]be[tJ$Lf&OJ+s87CoeNveyq^L(Nf/u&L2s_qj_KTJZNs&qD$CO=+O
U"t0\uHzb6TRjlPx'4*/i,[OHlaPr2vA2Q$&As;q/un5%G.IpKc,BHL-l;0<MnUDt
U"0h]5FMu.(s:nX:$e.<so2wX\J;oup\E2?,EmC&kan<pdrEQ]%S,6+KfFSZ0f'$n
U"=VWzKJ:nYecY$f:'kL'kr)jc,xEcbY$,Oo__#Y_Rvs.^$a=FQhR:MsDiP8T%^R^
U"yb0qoCEF[2l0R1H0WnsunKND](\mKqE=i%opdTbO3WcPEn3GYAxaw35w>m'OoFl
U"m>vr1J$H\6Iw3&zSZ)s#8IiHNUtwg8Qp*Si'aUBTIs<&d9wnLY-Nr$#a[r;JA<q
U"gt)%.vasIU5+[z<X>#9=4DZST0W>YWX?\(<mNd1.UZ\^;1[WeEQUl'()%:>,c#5
U"4%XhN>y,+%yo,ZM6Oat_y3\PJ]_-yp1voh)'s:'tD04PZfn0iGI;wuu2+UC?8/,
U"r-^TvjCW*fN23_QlilG?)hd,b5h]FL0Wn61cP5Fo2WB;H.*F-aRgxfLG&u[4U:+
U"?4%5xqK:u:osb7jNAO4SV*5LSh+&Ax(Ta/bEqnqE^5/&v*ZyHcPsE+V#6/nWoD;
U"c9<n(%xaoDr_3rX(,g5Y6S0.GNn.VI/HH/;_<d:X]T?v$#5#p,:kdq]USc\Y>sn
U"-u]KvUP/T-RlPT#<rqpqXB*)oPnIMnSyE[Y]WHxC8.botECDDVy8B,y,[YXC-L)
U"z/K;k<a-Kd.zEp*+]xdh(0t:XsHcVZ-Yd^q%ERChb&v%_7V>Pun5ger/^uUE)1X
U"n9vq*zg6G;wXI2o5el8NZ2SGv3E=fsWGFdeKWgSqx+3=4s8W4ceQuaSG983=\gs
U"W^cUeKdScq)3=e&sWpfceKf>Sq13H=psWFtdeKW$Sqs43=6s;Wndel5\Sqnq3=4
U"^sWTdXeu]Scq53=.,sWDoce5h>Sq*3B=lsWG>ceKraSq/43=Js>W(cekKeSqT33
U"=vpsWhdUeK[S-q'3iTL.Jy=(jQ.cj-3=.#sW\Tde-k+5F_5Ctl5^ode5b2SGr3]
U"=:L=&b_5\nl50d.ea#gD+x(#fT.#,43=*s>W0deQ5fSG8z3=TgsW.dXeucS$qt3
U"=e>sWXodeug>Sqf4IEob(s8t0x%&up&%'9%9%%%%-R%%)K4CeP=*^_%%+%s(%%%
U")%%%%%%%%%&%E%%%%%%%%%f%ghiu%p&'9%%9%%%%-%%E)KCGtrqD&[%%%'%(%%+
END SUB
SUB V2
U"%%%%%%%%%&%%E%%+%+%%%%hfx%yqju%p&'9%%9%%%%-%%*)KC+RD8mL[)%%?%4%
U"%1%%%%%%%%%&%%E%%(%R&%%%hmj%pxuj%hSfx%nup&%'9%9%%%%-R%%)KgCkk%(
U"f.*%(%z4%%%1%%%%%%%%%%%E%%%%O%+%%h%mjpx%ujhS%tgou%p&'9%%9%%%%-%
U"%$)KCwS(%SG#)%%Y%.%%0%%%%%%%%%&%%E%%+%,0%%%rjx%xflj.Sy'y%up&'%9
U"%9%%%%-%4%)KCH>%qE'>/%%%/I%%%-%%%%%%%%%&%E%%%%y5%%%zu%xnSf%xnup
U"%&'9%%9%%%[-%%)/KC&)<U$%07%%-L%%%-%%%%%%%%%&%%E%%%%d#%%&%fxj%Sf
U"xn%up*+%%%%%%,%,%&N&%%%6L%%%%%
END SUB
V2
CLOSE:IF S=91AND 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
'>>> Page 1 of UPSI_ETC.ZIP ends here. Last page. TCHK:91
