'===========================================================================
' Subject: HELP Engine for DOS programmers    Date: 03-16-20 (  :  )       
'  Author: Vinod Patrikar                     Code: PB                     
'  Origin: icrescent@bom4.vsnl.net.in       Packet: PB.ABC
'===========================================================================
'>>> Page 1 of VHED.ZIP begins here. TYPE:BINAA TLEN:21267
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
deflng A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"VHED.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%m-%,-.oQ[x'd[jXR%%6Q%%%-%.%%%m%jiSuRgz>K70eNjloxKh$6+
U"S(Bd#f\iapqqb%D:fRLOXom5-)SXCe/4?T<KRu%/%79CH1<Cm$7WXqDE+%XPPw%
U"PGwgLJe[W6n$^JPA8&xleb9aWpNGkEh2SwuTw0.>jUlbAn^XBY5_EhmXXXTDlZJ
U"eM5^UN8[RfPTN__sfGr/O_6\HRCVG+2\=8>>6KRHQ/gnkxEY>Z32G)uyF$u^ge\
U"rO]l>KS:CoS7$F#*GqFK+Ka$rL/qt61v7]t<xKNiOSJig(CHX,=mlmCRX7n?fmV
U"PZ+r>t,-]gb*o7Wh>IC_tq>0XA;JAsSSfLr7x%3NI_V0=*m<0;:S]7:EkNhXf/>
U"f2GUiL8Ukww?S(Dv0MKNI?t[8b_rjRE$PT\VilHp[8hOm<\J>Cx6*t,QbE)#_?o
U"v)vZ??Bm55?vQjQ0WGXS]kHsX,$nFrVCtV+\GGS#W_XM;ECSDf$TU($2FlHf7X2
U"jcFJ.p0WAlmp'pkfQpUjl>KtV0hqr6W^qg0RYX9xX9qEa77SVlFUB_h(W)/WQi4
U"q6_$dtIX&397b_BtuCjIYnJ4XF-idGX.M_PS,+Hh2NHc:VX0WbtE(,AHb0-g_wX
U"cXNp2?xo4<aG8tHpY6J;:JFV2W>Mcn:NB:(BRX$CjQvutAr6eDD]i2Trj-1a55E
U"Jo?hgej8phrxO-MH6QE6rqk>CmW)Fwc;(\llt:&2#c:UEe*%_aGV0?5']eUd,Ee
U"A=L[qW+EemPGqL&<KukCee.c18_8'.zA?VU8'DPdU0'H_P70Q3APp;*)h(fCK/M
U"%,uj4mh;t9t;g(/6,?2.y:8?8.]eIENC)9-'/1'D)(Ihebj&25.nJ.1C_c7GY7c
U"8Qt^eq.-I7u;e2#OOP1rXE'0gZPsO'_hO7oe/.JC6_5#'l.'>8OkbX,Ax?hXNA9
U"85&V68UTK&Q?VOrb6(,mC)kbPN9mOz4LIJME&9BM%c4%<R,YvB46,Vk2Y<01Go7
U"A9I/9oPM$ql#^MQh:RGY%V\V*M3.<9?V4fNs'bV?5-<NQex%]YwQh:)sQ/xAi6%
U"n4'Y%PwA0s3Fnd&K3JkVYlDpS33.Xdu?Vc.iMbhr(XI.LAI&SG=Yu\4-vmh;nXI
U"R4Asl-6V?p0Cj7FVf'<p>b$[Q$Iu[D0J.&IO(EV%RA\9RU.h/VG.iMfh\$Gy9'2
U"FGy.9NI;43&W9#A,f4M$M5[.u^V+&YwzAAiGg:1HT(mHIsm#NG?72/s]:]E-hQ)
U"*%#Pf7s&SkAIR;o)9QI&oS>bPSxQUd#VLb4*oK^B%G73tU=[vJJlZP'Ad9OTHI\
U"ezlp&XkEDM+g.?^g$n<Na*YE)&V+kHms7fHT^oL-ccHDtTq8vkdeXHV:k#l?nMa
U"S$<O$AhODd>.h:N%>.v^Bv<O6a+ZW7sh4IWJHuFgcLlbs.l[LK(iLQ^fZMWusnw
U"N+/s-B?pXJL%U^NX%Fbc>m:/.\aa#OV/MBCSL:YA4_uuJF-BAql/\+QCQvroS$t
U"8YedA3h'^v5KhAr-$==m)GF*8ik(pmr-MO1M7g[BLYOO>nzj8DMaXXBuWWi,hD[
U"c2-GM'aW,s6-,'v-[2AX3M7e(k6S(?KeA730RZ9Y%#Y/dMj,nZOcKlD:=bsS:*L
U"'$/M;6b<c+m5:S6BndN.wJ:5'I#T1k<SSOwap)Bpvm_AKk_]Nn>Y6-$qwpvoCmg
U"8'<m<(uM%*0o9=4]cDFk7,XdaZ;t(/B^K(8Qv(^?lLLxK(fl1(ebFdP0&rNVLl_
U"sCKrs2[e84Pt8U((^8'_c%Y&Y^i:Dim5zb3Q:MwHYlI[]g',QMV'$Usg2TuRgP<
U"V6X5bGPg0O/V?A,+?,,#kYP+A,Y_GFd.9[Y0YSbMkYdoB^MAD)BvrrRoJaLxv(B
U"EH4DTN[9ak/AJ&1N.1aRpzA&s4o8i(s4O.KDJyd7j7%0&4(vC_8vsB*ICWL=;K5
U"5#mYO+:t[\6-Q;_v$ofA'6SP]Ta#wSlT.of\PeG<drCNCSV\<Wxw-&HKjbHeV^m
U"nJ8%1]v'vX[]6e40a2t[PPpD66DB+X+]%BZ^2kAecA4igxRnc>*K0itHStmDyao
U"F#6-/^gC^aP2'.qq;5->(\t9PH?%f(a(>hx3BxO94kZ$RN$Ciz(,d%OND%%hU/d
U"PdZY:kj#c^CZ2TC8DeIRxAe*<N/7Nu%AAVABi>f2'Xr&65F>_,sAAb3/1Z>k^if
U"#yvoBiZrG6n:P6i^NQLqJ&*Ng1f8A<i&+h(V;%Cy95u_8YmCkAPFGUYZ#j2q&q'
U"nn<rin:#jAucg74Tkhqqc$E^H:4gz(X+N3yqoXiBDzlk_d])dG[sA5#\el((+l<
U"EeNuYok=BdjmYOo]e_5N5aOO+aql(suJqS,:(N#LoYcfA&MDJt.o5%LeYvyB1ov
U"A=bH^gS*DpeUf>7wkS^S^qcd3V,_X0WJ:'lHSjpGo3g35NA+/?f'%wOokYCdua:
U"CXIKZh%eq<)xs6Gl%cOzZPM+)nCTNC&id8f0OM3r*mSaSBx/G%(ymqM2qlE<Vdn
U".,N0^.o(M2VMA)fsYHHD.(RmQpSOwFXxk64_4Yljo'TFH>&5iZ5h&&9Wa/q&7+5
U"A;t/'9uQCNz+hH^J9GGWNRqeU5m:s4Ap8j:q/hM0*A.$F*h4[8tMX&iBZUOH3w%
U"7Wz26GlGOP0-BVpd.nCZ,InmIu\C8h/]62d'b(gHCj9HPc#cy39kyz9C+H_%JL4
U"QrjT:2YmNrYtv%%%,+B(R=:h\t:NpCp9Hy;L<Pd0WOL$t+:TgpX>Hi].#MNNJsX
U"1cB9uOa5f)ETD-6i7ml_]c<K8aszc62*>U*Hr^3$QhNa^2*i1z-)yq_b(]X<4kB
U"*Cpi*(*BLXq/BClW>+2%Gm#N^L,S-y4w/O210.-UHQU'wfr*4.X<eKwF63(D]&O
U"&*AP^IlM&i*_u$Fp]1M-y'A5ksH.VaOB&?2ePMssRa#0*&SI_5ajmpQx(j%d?^?
U"4k::s90xi\'SDg9#,$a\(/h/=&EXxfgv%$$^;uWOSpc?lZkiUIu4go_F<8i?2>C
U"[\4jn>._M8WhJ-xSOu+A<H>L]a'iyotD7fz^LbU%cJ*Cg&dy:'-rbtjHW(L&qGy
U"Ax-tXl%UH,_T/(/HzCe4xT0QCl+/5X+9h,T0y&Vsq;jmx'/apNx%m*'yMOqtXRT
U"(L]/q#qmsbr$43RMJY###au/O(xs7$kKQNw_ho$u:PO7]CJZD+8]/6apFb(bInN
U"A9LMJ>eeupV;'Rq1A4=Tr+Xi2x2[*S6OhipRXW_ZFw^5w$Z'Sq-s#8wgo'RkB8O
U"E-X/b'bTJ9g\mW%3%r>N)dBrb+b.jkB^s]hS/pB,f)5[a+dBI(<iBZfYdz5)*'k
U"4DSu^xuW-]qVscE:LXRS0H?,yVZi/9N$oHw(nF2IbK:4B=&cX2',OE^SGp.[wo,
U"TtHDVec2PSOIQOOAuRoKwL'Inohj/Irouf*=EuE$nS0'<WXUeTOEFarCm<]Z28c
U"pRB3Yu):f/$4N.<7_IM$aYk4uCs8y?6Su[it9*L(9>31(l>^mvL'nEp<_)$g_9#
U"U/#]FbL>-?^&,M,]%KgtMp>h=O-gZ>AQM;%.rWlA)47nk6h87/xG%b2xn>Gg#C,
U"DaRsk^8UsZSGWZlPE,JsTRPxC9m8,m8JL%*ZORF+F>KyWEMJYK8<m^[+KVDi5w5
U"b<8%lvlZ2+(kHco2EL>mj:bHc2P8bxf$X?Z5ISY=ESK+UMjoi.7)L\h'chBG2tb
U",4'Lsij_hi$?25#ZwiV'g=q-tK$&U;5dXN:#y$MFHSTL>HlQtkF=Un]^bB>57U-
U"E0ZTxoY*9JfnJz-*)/B#H#U&Kd&YS;#2E=Fl2i8MACEyfC=<mS]be9,d$&O\g_r
U"_w7K7I0d.8_R)xhgS$0X)m+g;)I5(GSr_u$PQ.i'IFE'-m'FT=RcDkmMeKeY$O2
U"-Wz<#7KExiBBH4Sw,p:X+[O$I_gG,PS-gWFF,0_hSCK03G_8Ze$%B)I1I'wVl_I
U"-1mg8,nEl_5aYRM0:rZ*f[]9GN.io/k2_c3IXBIePS&Ku%lM[o_d1mc(#sm\OYE
U"Fgg2fc1[<0bqi\Rd)u.Zn%&,yG#OV^/=VubbDn,C0Zyk]=sDHFk3:M=vkihi88I
U"J4G05u#=QY<.j23fWIv*1W_G,.y%RV%Veu=DHvcfRg>jEDNMwOTIE]luO5^55,Y
U"0EuFk*:oA#k:YI3Vn+\Ddq<k5rsjbV=F\DNc9,;4b5T($9^=]&u+F9Q#aE%%>_B
U"&,)MQ>RrG/O'Jh,aN'(<+hImmlkuNR.>.Pp.XPS.k+sLM33uup4P,6<=*ew>aVc
U"AmNNA+&?NNi26i$.-.?qoF/,KZ,c][0J?,s0=Ef+AeZBU<k4F:4qMb9XZnIeE^c
U"NrLp6QKqFYwCdN_Es#Z7(b*A$\aqe$C1GY5[VI6L:T+#'$$Dig>REE/gug+z,&>
U"+rR.8YkGHR+QP6%MVK&5()(rLaE=y?pCW9ekSDRE^>9g:,%#?uUm>A<._'Q7Fw_
U"+(PbTOQeJpTmkUUu$e?,tFat8aZkiMC,RY=>O=11.m41+uCd&Feg>7dbf*;+hcF
U"iI,H5p2y*qTgn1#^),N:fePUeo5pk0r>Bw(rhS(I-V:^W:,\Z/pZ$5mk+i)4_Q+
U"+bD9=Im,Z7=9FnB1+;UXFnUX7I1i[+jV/O[dSOccPPC(b/;CI.*d>w4I=ZBIIph
U"34G4#bdY.M.Q>EeSs_'$LL0-?u3=FTGCR?(Jr5UP7YK5gI8.--[5uj0NOJZCBj5
U"(ZD;9CGC*-$>':ZBskmW%5657P5RZ]u1&NEC6nV6\qvo6;5vg8P)R//c)*[)o6U
U"fLci^9Lo0]$EAnL-/)n2j'EM1f0Se^3[pbJ).7k+bhJ2raRdG=12RG==Hd.g5);
U"6JkA=XQcEj[=9&nCj)NHlK:pteP,<IgB;(O\+=Bsu:E_St.nCehmW.6%snek_lR
U"%6'rAKM>DW8s8aW\4xYmFK=ADF[e7sf^5B]V+&bGuh^UA&.uoR&PSnc?_*R)6Dj
U"cnUh21]],[-^F&%]?]d\F(%#.+%CC69'^a%3-9n0cUb('QFh.GAQIhsViOJ6EUM
U"IJUUA(7G1A0>u:1ORI_+U&Y\4]%M-vM:1U+INqE[o7x[$GhJ=FX.j,p;XUMwQFG
U">EgWab_gJhBZ(6L_0(BweH4Edkijx^+A%/+,FO#opPr_:oI>HjP?/>j3=&G&Y5j
U"z-=.Hiq'KAm2Q#87r]Yq?#lL\oUHfsnaQ2%N'u3RJeBh2Mb32'&v.8(2/RmHF77
U")mMOn%7SZB%6O\CpRr8t:[(e5x,ZIku8>%UXUj#nkSBWLb-$HZ7:\p8m\lHQp\j
U".6U'[;M8QoF1ht*:?=j+5ylG=:Y/30l8^_u<UY-auXW9\re2EF=pmCB5^;5*+((
U"Nq5*Ynx'%lK/)bR:>6DURp&x:'DYl-_kzRL8c)8O_h<*x*bQ(xN7IU(7xq3S*Ek
U"^Vj[Q$7S?Voc'T>dLRXNN;81Hm00qv0M(F_-kDhz8?7J4,Aet(u6C^c,W7\,fE%
U"y'lA182GJU&B==V<V-M3ijR.Jg;2Rg<(&d;^R9wFLK%QZvcPfCkw1EP1kVD<W<2
U"B3dsgAEOEYjVH8-24Uvd8Lk+W;ZINAxZl&isJPiSO%*A0G3Psjm48B+BY>gBiUV
U")=od+;:0W.?Qa]FaR)SKK<S)Cjv;UQnP5gsC*d7g-oTfsTpk\E&;MWgoUbcU_79
U"6rB=FLcPfz>^#NiUS0*G*-gmI5\Alid;(#[[tO]pd56T9.AGTi'WIwp)sPmX&$[
U"]B_5N,P)86xA^1-al+]QyL>J9B[^fSAAo?)+;=e/04DJqD:+?Ck4A2D32rvqQWF
U"0Qprb'fMoT<Moj*J;kQ04OeRhX4>=f+H2Qh<2(jF]OY]gz^6t??,*8cQe.el^B;
U"Z:9E$ybEZJes<v=[S^Vw^cSlRnphe=28diWIIwhs$'A&GcFGX707[sUi)qXqE/A
U">$9aGP5rW6\PFU,#DX.PG=:_$Di/jvS=[:?X-61vXKh'])n_Eek#5c$U-[0?7XH
U"/ag8\C6F#$S;GDX)GXafB]*G*bXM7R4t]B$uhA<=9ve]L(GE,L2RWkle3]$*13m
U">7J#XXjXjUhXTUn]-[G46B+FB'G7PB5NS>xS=aGfi3DWkEA&aIh(F]2MO5R\WqC
U"I?;$8:-u(A$*)5%8NEwLq8zW7al]:CozF=(<$KG0X70s7SW9nYU[]<8gqUzc=Vl
U"U6l=<ITk7^:bu-(=SLsUf^i]8a=-]=:6AlT+uk-:=V\u-HC)-h+:;#069BKivdG
U"^chFV[OR61A)G;jW5>H=L?X<tcA<(i]5^#sIEg_b?G8X2_rmFGk_PW4XtcHAPiU
U"2V?AXG$^imjG+\A#cGLX8[/^IP]AnXVcVkuRy8p2+M(TGD[bN0[AqEge9GLUIA1
U"FB<gK[SjHgA[/=J=6G#^i-FHkctnLj=N_VR8s]IYIg&9GJ)f7es/X4P,Pi1xL2]
U"Azig4L+Ym1*$,i'o7^s#iHWvRDT^m>M5Ez9v]q6A$;GLlsL)J&npcn$],G<O+iK
U"2U,?g%aGp6B=Lkm%,mvjGS>7rOKK_WKalYn[Jq,A=(_$QGR41]8FC[OX'5oiJCW
U"15\(6$QG0p8(f)sUm<A$xi5MSBAL+]27Gjl;H<%Yo#\VgRLWoECE:83G8JEi5GF
U"C6(k3(<XY80p8#w%)LV6jA5SA7A'(HBg;GFg8H_A',icK-B1ms9[HB4C7&i31J$
U"6NBfZG>F8Rj8.ri]6I=bSb'JiK8E2K-(1;#NEJAT$tDcets,gAOGTh8r_8Wo]P^
U"G0hB046hiJ3?$:GWU]cHPi=$&1GD3?^<Jm&+06DP$(X+gY[Z=L1rtd'AQGnFigG
U"AfXU-J=s[cMWX=[i2X+NC+L2igGr1mn4MG\I77D>pr2a1rc=fIK3$KAXai_52,$
U"AXi9WGkVJ$TXkX<FBt^ie8R4s=M&]r<G8CHA,$9k0AXJ+emP69hWiY-AB>DWc8H
U",jAvG/RSq>(e3$6Q#>3$+<L7n_k2]$o'#G2WTWt_91k[cgHAO9WHXtY]A\i3:N<
U"^-BGbZQMBjWJAlmZP9h7Pe\3D6#(mm;Vka?lA7-'#7(\\mAbPbiO#8]ZU/K&$bC
U"VsZ#-f=BK<gn=^1l$N>Cj$%$7N)GJ(Sdm_eP0X45nARi1/W;A?>#aTFIr_P/>8'
U"hoUv[7#H6[i\RFiUgiu[_LGf]ur9l9tkWuh9M6XJXEA%'j5Xt.G9f)wiJkXebIE
U"GRX8+?DP\iCp&dJUh9+y[;8/FTXML)IXc15HTi</$A<[)CJkCBPLW#0=hzCF$h2
U"AGcD#P2?ah/]JV$;evVoe/*PdbX5eY=;[WGW+bAW\#YA\;GEh]$k()gjF)$97T.
U"uL)$n-a8Na2opG2#L#1LST]Az)W+fU7G.45'g/+*$OjG(\$-N7fG7Z)O8$1Vet.
U")?MG<vW=q9YG*8-1Ay'A67]ZB1WoJPi1&W)JZmbGPxp+fiiY=4LKYle3KPb^ie6
U"q:6$9n[9P7r:R$HLEJIYhCG#G:.KxWo$U_N];pvi1Af5\^cA.x19]B=bamUH=BN
U"7.g6Cl,eJ39$sSxafunxa<f$=dwS6,=<Kfk[P4,X)pMlC4S$AZKSXiA\fIVEgAZ
U"1i9XA7JWow0SK,oU8^1v_X;K)YT1HW]uD6PsYkBLB1m?#T8H+_'A0ic7F7w#p?d
U"Xi^1F5p('$[G:hvL9+Jk)6YdAv#W]?\G(X,XY'wX+#?uOW&ch5]ZcPTSq$JGUu$
U"QJ=u5-p1[4A'(lW;<xG5G6;7E5QaTUr4L(:Aj:S52,'aGjD7gF1#+&u*TQfV?=)
U"_HV>CSr<P#R4//UbZ</)&9Q[oC3tOL-f#'JQ4L%TBJ/cEggB0,ic3?4e^lE1W%<
U"^3L<O$K5,81Yw)Y$knMrt'8J[Y%i.ErcK1nbtN9KqbWNbNs(Fw5Y*Uo_'bM=_=e
U"Wg_gc7;npm9poppd4mY-^q)S^^oHw7*mgyE8HI(y[JbR&h$m$OOods6kt$sn?Kl
U"K+Kb*8r0-nIn9SG6QM<d-$OYF&Xivv<P]?e8p;:ZxUlXTdL7:a2KH&$lZBC1Qc*
U"p:vVT'g2t1_[tzO,<n\\8vj'FB26)oMRGV?G^iXEtXZ>FnE8Mp^ji\dj2#nNRE.
U".f/T=Ur>$t[_qc-NYzr;_:Drl428D(h<M*R-HhruU221\;Xz^Kqoo,_Ngy:)/RY
U"P(5GXV\R3fe*J-/%$Rre-4Ses:6.VU6M4<n&#W7Lu0_kkL/ndaslcLEodjOUG^y
U"*/:v$afr[%Nasu&W]dTm1pcy:K/h)upjDd5#;ZHo4]dO;?.IbjDAZhZ;9DrH]N7
U"93-X>n1VcJ)I1IZb4[gh(QV$9XD:qfTvR8.2onO#eRmSuXGGKF[r_i8&tVu5.BU
U"?fNxTLhc,DvyTQ';_D.KQRF-i=o^\9]hAA(/5cM*Y)2#%\2?6bW&B(D\W0+G9p2
U"43A,o:(k,F:(^bJ9p?ojJt(Z=ge#w]wHcBx%s30sn#NPlNlnhvm^A:8R\SsQ\gH
U"cMQY<khm[?v=1L[XB=]n:bN6YP0OIOwMY-P_yD_VVc*Nn\EFM73205Ycd$<\3nv
U"-4hC+/^MI<XoQX:2[DQ)P52P&J0ygqJz$jh%uA/eD=^#_UT\;H0tFt4%10c4N;[
U"^SEc+E8EO.bDVa:_%SN]bvWR0(K[Msc%):E-jRdcbv;h*&bdN[MT[nxX,TvL258
U"VagI0KQeYHd(cEuKI%8-sInpZ,wc,aLnc4-^]-RY_p9D6iMv6#1+;kfg>7hufV3
U"mQxa)JQX<xVHR?/WQ=#CwMT/8puQ[-Cq)+73#$,e8,tV]6Z7h?X47'E&6^,x]2z
U"ZuyA*\rx3_=iwF2VYt29P%3P\=AuMo%&C5&GS<Y05kM8>oDoT)#4&t=^,nLw2q]
U"Be[L9<'-cwl6M;6rMTV;=iVJ4gm&Op&Z##GSgTKUiG8fOq#)#-]\(c6])2VVWt5
U"u.4E1wEgR9x6C]z(6mPKmZF.tSTfXkzv,NS\z<VFb]a,T\v:XDEt,9AtUV4V:;Z
U"fY,Df(c*F^'K09.t^6jViHwHXgvmSh.mR69kq=aHL%aD=LM$Ugtsh$MjmHwj7ET
U"vGB<t+l^bNXa\v#eN03lN44vS_fh)[45,g;QSc4jKiQdr1p-E_r:k56WrmrI(jf
U"tutqG#:cKB8%#qyIc1gE7fN#k$?J2pK'\K5dmOVXe_d+zq$)VNVB_8yBe^4KfE+
U"LpP;V:8Ue&ut+gR5gZa8C^,[7h&GU'bvpeGWt]i[?;9[QU:<e?/GktL.-Gr_L#F
U"oDrY+4)C<y(\(WhzKl0,]\QUGE;8A=/Vb_rCY]PBbfGq=^8'i3,PqyhQ%9+8I3=
U"Bi74?9P#0l^'4VZL)Eac\Q=(<Ud/seXm*0maG&+[a5Rt.Wq,12xp_?^1NSq)Buz
U"K,1%1zc49,xWDyl]Epw_*_wIeh_y^+ku;pq_jhJ.nmM_ccJ:ejah%>%)ipvk(LJ
U">ezN]L>ejX$Wme%x/GTtwG=V8S$^$%/&lA2__NqfD7'rkhCFm/RrT?RCnQ\/H/w
U"cAu=*EUh7-Ognilsu-$g[uto)f$cf$k9$%/uFr_[_LLFXN=imUPrBp\kieQ85/q
U"B[:g*6N6:Uly*0Pi&%)(P'8/Q5NOsi9/=YaTckz'R-(#QUr8Zwe%gD:<-mh^Ill
U"9QpM:g(nrO%psiH^6Kc:,w,LGy:1O(9'-Ckx$Iaa7h/r2+58Z#dp$m7hT$XmP,n
U"XO0uN)?NN,,NFhlI<EgR.Q#mh\:c0SVUbWjjHXaj7\alA,1KHf?0rH13'A8=LAF
U"b7Y*U^d'.,[XCB$UcJXx31]5'u6dPi>bu;LhhNs#WOfKK[7pP?LFedeV\(%_t?j
U"(96ZxHaMQS#s=xh6ZLMC+cf,Da.jr1prfUZI?g=AOF?j-*2TTQFTcCH]sHRI6-/
U"LXJHyw-EsRTf8(ze-ZNlO0SCKYLO)5L1I2+<PjmSpa(9r%T;3PJdQAfxl%aG]C>
U"fg&24N<>sO-Kjw6B&/a3&#A#di6NKq[EmPcd52STJ.WcH0\orf+BRm,3,=H50ah
U"7[S]x;1mpuh6Y(Hr9>=GeceD$C>F8Qp:HTWu72A6[1qQIcsaQa<_'TSdajg;7;E
U"hfWkf*nJ(V^QXDC\:Cff'.A2D\3bqbJ/*L]zXz.XbgTC*A8);vRr;BZkxJ2%*rR
U"TPCJ=GOP.CR0rmEg<L+klw]i0rG6VX9v*Ut($*<?h($m_HF3uZg?2.P]GE%TIRh
U"JFcDTJQr6/UiEbFaatz/]qPCR(fpZ)Vj%Bah1NhdF%A7v(lO$?#4YZ,WpVw2-)/
U"pp7vT8,1Ucm(VfSN+qTe(fuv*PIVLhE+\Ji2I(N38RXv5j6(<<IZSRZP:o,BW*p
U"U/$hnri;ms7TsgAZ\jT<C9;shF,XHX(8y(a[5xsIBT3v;530NZVaMn4k+rXgh3Y
U"H12hUj8Nr<s-c[i+nvW.w&E1p=24(^vF<KeTvk\xa\CV(L-22Q/i2,-qln?)*UV
U"nhL&=Z-Qp[;G4(SDOqUF<pab[FwH\1^/%Tb$NJvxaV)P5KF.2[=Nxq+-e;m1?/e
U";QPE(,=gU+Pco;QT7XV]V5n0I6\naF_78^$._q+m[]rc;U#Pq8xRSvni313/b08
U"jktjuW-1pCes4zT/Xmu5XXOS$7VF7WWD%X(td0ERyn#7N[Rr/%;5xrF4?-I]*Vh
U"qq+qg5Lu.C?.SZ$&pZr*h.l(9We%6?+YK#**>=<(($qD586Sjz(?<u_g0U=\uK0
U"DTelT^5a9psX$C[;kb#V_XV%-r%bK##DOK$XlYFS>$wU4.%*:?0H01R-7HP2:>>
U"sonCmqYaSd8%onjQhn:7La\L,Y7RP(K+m_Tg>(qw]vQhA4_nEY_rTZlENpx+dB3
U"b.4B/I9CBj\4FdeF0qd*OvU%]Po6(rG:t6NZPFSu_wlh6GQ_+h'(8::C,c5k&4?
U"UNar=^A,D;Sq9ibJ3I43,lPCR,e'2l^*#,mG#fnbKw;3jf1FL*ukCQty-gWN>o&
U"D<#G_q^kDa$gS=T\lxV[U6)5ABEHLcR&=;?:2tzus*t9if)o>)X8y>Oh_?WFQ[,
U"*Z2*3$#6M=Yiz/rrZpJ8+N-hYRr4Q>1)7IQil/B3lcTiRtt9'w)tIa3:cw<Kb5d
U"niD*t(+kiTQwjfo#]iePM+V>]Bh]59oed?9^n]BXYYS'd/9JilSj'(tTbPG;GB>
U">URP33Y[gQN([+OT[6jNnr_MxB06[0NNMSBTA5\7$t*xa3E_/XUPng_7u+>USdE
U"'mKFR(sQFU=.Bkk9Qf5lTp10iP14Vh,I4_[QiLTMW=x#gnW&'7&+]Z8MQpvMfH)
U"%hZ5.D-F7vYit,3oN47TyXL'7&F-P)Z_D^5'm.g1v4=;P$jw,^iX5'wCLF+zO/Z
U"F+#+OVoF_+jC;rNb/&_w<PPo/rMoMOonHi9Vm*JmGd5LUW5gC:I-&KXPSR;XGI1
U"QZcJT;?Mf<7h]8):VSlpR5h1EQ(U=U>?fYf8Glj56'wCFM+VP2F-PFU2?lMF5+$
U"8h<1nTVs=;NpX/ZE?:XenqQ/SWzJVx,Ikg%i(H'4Qzk&n[=W:HU0CcI5Z8uYin%
U"%feBh8&>>LnDsEVlnLT$&,RF:#'1fi&MKxqB'XxWQLXF(hkuMH8,H4g%T$h]a,s
U"tOIU]4'+XA]9Ji<>$uu4P,Jm7T<r[bYWG+Me-mTVp7<B&;Ebq<yEDLaW<eS^9W?
U"#'SqxFtE4.O0^afLBi.-G+WiU.V^Kw1vY2]1c4g_b3Ap8FmoK=ku'TC9%M](gKV
U"#,=JVotzWcK;]d*9CqLwQ)n>x0QIM%rR.V%Kc>oECAP]wm%_9c+P(oBNY%fxB5(
U"32Tnpa(<n\>B4_(L)-(V8]GPom0NuKBm2YVp=gjTQ8=[/$4EhP(;j2&+gGOA&5f
U"dPv1.csD=9/0#X5Ur-A/Y,W2>)&/.0/+Rsdrbh(EVpj8ll4fulm=XPq^NkH(D]2
U"_s[n#rmdQrwkXhQ.-P8B(e&aBRtD#rqsTdSYOY6HYjB5HjPid]V3<qo+J'6SNn'
U"7<KU1pFCWh_xohUrnt142s&$9j,Ok&8HQnl4()?LA2D5WMV3bI,U55R&*AL.j[t
U".f];h)P>yl$vrUxR62459KdmxoovxiO$D%[B<5*u?9kcEFCx:6Z^Kk_I4L8X2K?
U"yHae$mq.#'Nh]ZT?w4'qT3q\C1sfJF2e7c]=P10&FC0kD>y,/\FfO&hJ-m\K&Y%
U"J9D79G7IA8eCKt?YhNXQ>36p0O*1qh%?uAq>gJ>^2I<di2%W\&//rdD#5FB9)[v
U"A\pFdvm1FHH.6_p0EfebG/nzYf+Ft'Rf]4.94nui,CZ[)f0<<i6YKXJ\WX<qlLz
U"S^&tk=hf<uJmNCa,DqV]O5dR,gZ<^C/G8OU[ZvgGeDXSQZ%PC0YMw*#89Mg;TTa
U"g*5dY9P/uOVtapEW[xx/=OrVs>r]q-4AEf$3nZw26iIV3?2YAX;4HHxIU9-==-x
U"R9No5dgT$qkYjg2;00uIUT-^qzN-ZxhbCsM7k#fYbeH<\E[s+6&diC?5MU*w(N5
U"-2I'b2s2B_HlkIOy.*-ARvt(Pp5e6SM;M]a&9(<PQ<==cdP?Q_Xnq%]EP<Qc^.u
U"G&IwG#$(IKw_\V^U$sk>1XpAbAB<5(PM,2l\Btjws*eBx6cK:P([Z/P$kTb0W;l
U"nLa7Mqj8(aJzZs[S6';WbPc\YfRh4cA)?4L(.o.eNewjh.Tl&LL[G>cjk\YG^nT
END SUB
SUB V2
U"fkkz8-N4_OJBL1VD<Q&U&q\fLia<xhto/Q^Q+?'Hj(-8,Y&'=pHUKF+Sa:C*au3
U"7)4egO[j(-dh>L0[Bi_%XjFe6%E_J*fB)/R*N'VPg4ri$1g]1c7uDWt<93'C4b^
U"BTE=bf3grRzTuzZ#k.wkIiRTIM=HRmTWHYIR);+o2Zg1V(._%r94%5.'sv(/y,Q
U".r(FgqVbg+e)v+iN(4XN#,GC9o]B\xA+F<fRHEu?gF42&G5^w%?/rH2$5-O8vNB
U"KuOT0Un(1Ne,OQcl[gr+-M$IjV4r,wH[Xo^Q.T?&SX:#pO8:KXLu;T>9(kQHtBs
U"o2zTCsl%Z1S.m*n_Qeg29Kupx**woQ9cQC^aQ^_EhK6wcc%&1)./_9:;SujTo,_
U"&%&v)Bip(tDAI,'ES[3Z)w,T.?^V[-b:&5YsKq#egMqFE4^a?Bax[^-;f,Fwxp:
U"F#&:=7PbAcsFMw8y+XWBi&#P2*G>oCBFeU&oJZ\dmT_HQMf\IjDr<Hqy\O0AD06
U"+p[yG1lT:R(P$EgAOhQhJZPP#u9B$n8.ma/bNFq-H[/<u\j1#.A2+4RZO7[9&hj
U"9Z4-#f_-Sv/1(H%_C:Q4.(sba*cd')ui)krou59<bv$E)L[yeY:ySM4k3kDV6?E
U"B2+A/Qn<=g;;5GHqU^W.^)LYP\J<IM+Ar0D6gVAbrs5,qHwwLsZT\]U1lxf#SGr
U"Z[jT=IbEi[,gduA%JH)]2p5slU?jJj[8V0KLcuFHgGpYZj==z'\bB/<[7$THRTA
U"0HJE^GF(MP2:iGQemUM\S.X7Z3pEPn:P3B(,BM]EB^SMemtHnrmEaI1w-<Y]u83
U"9kz1?vTi\xT:0/io5-r(S2e8U.Oh%_/3,PHQ>;DbgR,QxXf8>ZYj;\_3>A0uQP]
U"Z5>BC;/d2?R-+G$YKk'4ZbsH%bBwBeh_Z[Tk:iN9k6*71::&X/ujfp#u/:Jxo(S
U"urS:5C[Dq*eE)O^7;]&r+BU+(TtW</Hi4[BBdnrgbM;Wms258>amB=5BFg/D;]$
U"+jXmjqt&c.NL\S9roUY%pPZi9l?g%^VFMLBciiRUiqXSt:&R#)FwW+ijvuHM-HP
U"GT%'KY2nxM#n0++/4it(H^^a,^Kz,5cdZ^c_Xo6Wb'J$-H)G=F#168QsWfX?.&.
U"/N/NuEu-kSOk*Y&&Qc7%w6fhG00=Ru(gO9U&_d#=0Mnq[lV?I.*\=&2/7g4--hb
U"PjC^&Yce[N,?H>3Y?;fvbM\LfeM_$X,cE]Xi^lL9Tryj()u;SP,WQ^DSlARVANO
U"&Bwh>Ld.uzifZO6&DpHd14<TsjqIKca41*hBq&$;YJd(=(]-yyL]0;F2h^Xf2w2
U"GP;yrXHRF5I9Ko2k67q;GXSqyXv=MUD=tL.Xs]]e=qt\O9xWIqg>rZvA7;#P7=O
U"qV5tkMSq7QJ;.Gc]4<7uRo6mi6^pUnMpg^a;.)^Se?4e^dMoW7MsW1S?+\PeL>N
U"4#qpN:=yxSwSHdf#Y/\,(ZXqe;'Z#D-fZZ\h7A[ibBD+Mt+9+_EKdkMA+7tbd3e
U"UA/exA.]opcwWgvltLoI;n=:LI^*3U#dfdfP/q[,H':[046C9M)61GLHv5b%FXZ
U"E_/H&,N\Hs=S)JL\0z,%Py/MqCc]zl[4ozK5+&K9EXm9IZfwhK%257_O$&;N9wi
U"6;N,pD%VQD7Ya;fI#?f4u$n.JCh6-]bc^v2u7%DH>Mg=uGMGF7dp)/fJ=ivXyb9
U"pE-Jk:vS/)3#N]^AB>XM%dPYhbp9a6?Rn--<*zDk]*na9<v'4B#k2I=(txTWX1x
U"2o?ECatzqOP]^%Jo\)oa.D.L5d>g#qMPebr7JCc.0uDMsvP%$fY;l>oaG736Jet
U"9JwOV%3zazBJtoNft2pX:0940oz1):Mq_]&XN?'PyF%N=ZdEi3'xe>D*+)E4hkA
U"O.82PnPb+preH+xOdkkpdC3_F*DUjfrjjAc;&LE$mrpRS$QBXs-,/OYXlXx'hkr
U"xsgALSem(Db+VFoVNheUNu;B5bfU#h6A?Mp*2;U6,ZjaDjNVjirgJx;G&W,iU[k
U"0n(#Fqhm)g3cNR$,G]+;kIoaSrHjGQh<52F_Y/1e2l-x.>(:;-^]jBHRD#7mBrK
U"CSC8FZ>>wClPWHNi8;u?%?+j&as;?,EFoXr.kJ^\]R>logVM*wI6SbfLlr?KfeJ
U"yQgYz*3>rU.N)W85\-f=uw-*Jgr#9.9A\C4BY(j^3jMo8Zb#[L#fMQPkd>F9Cy*
U"aW&rcnjruW5-m[cU#YN*G1(Yx1P[q[n/vW(SK,j%6%NaNA=w<qNE\3*p#o:BY3E
U"4ias,95*K3>>)yN?8l\C;Kb:=\&Z7kV]8dC.OD\7w^qLcFh-J1#&eV\b?9$O*w5
U"r#6YJ(b]L6&B%Rj#n)/VMXXjc7mrb/q8gq.U-Vc)Dkk\<ZOdcnzqVlTJCUa?/'T
U"kHnYSxK.UylXt;DioiqAdo'[GB<j?U0H#G_*6ag3joGhucVoNLB.OAqDf_TE=7_
U"$Z%Tv5Ue%$z[%09k>9nmwPZ&x'y[X0gEHpB=.fIHams<k1d0b0(c-kp)pj9$ycy
U"tnwa$azS<Aj94I)A#4dWP:^VAsR7XT>[9e3'8r1ig'5Y)66:*d\H(\YL;2j0UBt
U".k9oM&,e9Ct.Hutl85l]3_cvH1SP,OB1b_892XGl3?jdL#-jQ5p1*>KDrY%2=z9
U"E0PH0Urz:K#S:6d^Lgw4/L0-KJk?jFQ*I]PB(L;'Dw2sXO&phW&9m*1jK*/og=b
U"Y;0xVo8viNjipZqg<6C=MJ+*4=<II.Sgs-R_p2>W&HjCz7t\2tEp8ASosRd7S#2
U",]]MLI5Gb#S0pi'Zl>k((Ult&](S?$M('*qjFTIsV]Gc3as/,yJ_s/L]']%pj&1
U"QH>dPCg+FyGN[Il%;h(;;j=)/,El*]9JcR$o;$QW0I=&4dSd\bi(F.,^\v0'Q(r
U"XP0peG+_x*jcXc4Phqp.;&<Wzx+X&WwEZ<TXLoq$XWF(1_D=+]M^oMToe]RVYKD
U"GpGifraPqgdd8IQWJ-T-T3LsW6Mk(;Gdhf/<A:$YtX?\t_ET1p7I0;qx]VD8>Im
U"0ir?)uPEKwT<pIxNe+qOZ9%l64HhZTIPC2[fVXLfUM[MY2cRlwt\80WX+&I4vem
U"W]$Fke&(rZGG1szNXiuLXeLHXte4t=U<(Mx:/OZ'OXc2Wrc^,J%D+$9j8.M9KRp
U",tq+'S8KPq>4dby1NiBtT.Ti&H4QuJXv<8x*oU+xBfiausg%-:61QwZI9:.K-q0
U"9Blc(7%jVOMhh'WhaD6*bZj>b.Eme#v%i&]MO]/03Rt?x:X2oP2Lp2]E5GA6vd-
U"q+jb?GvsJ%&a,d>8TDHZm6us721xYPHmF;gg#IVopFXx(#AkSp]V%PP.*XDKGZ-
U")rZ>ffMWp(v>6)b>$mfaApWf39UUiNgGIv+A)eM(._vs2[(NxrdUJ<d#AcO/hl$
U"&&aplxiw:,F+2-_6\;Y/fB#NbKumB8?-fE3?S7;V.-Yh)(5n<G17xlP9b']I1l>
U"rtrj-$6'To#[D*?2/hvsj$AT_HYZU1sscIv;Q(alC.Q*hJ6]M=%)/CXTMOQKIJb
U"XXahKG75FLyDkk\3A9Tr4,U/45g)U:Kk+(8\Ou/W6]Z75F;r8GSWa+8E].:TbQH
U"NijDgYmEvh\v'dh\vRMqWlMO5ROzX,Id3?\FCbc:9^C4ci-(IT\B?P(zVNMH5k>
U"ZkR;.%;>.c[#LG_XeE](bHrD4B\7_unt]WhTkFsxW9RpnsshnW8.O^*,ukP>9G7
U"W:[:+:?zT8]d_M.tVIUzIAwPc81Jei*VgGRa9M4Z\>?FBWRza5%QKV.Djn+bU6Y
U"KdNMbVSvM&4X>jwu(x7'$2&Lk>K?U6t>8%Xo+9ogjD6P>t(T2>K8]T-PSS]Z_#N
U";>/gH/A,Kxdu%p()9%%%%-7%%3oCQ:IK+yi>%+%mr%%%-%%(%%mj%iSmqOyf+*S
U"^A0d\M<E9Kw,S_;/5+Z#b<neRRM;]AtvY('RVa8C#PV?TQze=M5yY<baNb6j4rD
U"tr4%Dh^AazN<VAeIR4[)IO=ntGhGGGqelPJ.J-;6bZL[R8q#Msii:F\Mif<#NhI
U":y'?mS-4%D-Fs23HAw7c^rkE0u_?Q[&yfl[+ldh%Xh*l[nn's0jFT6DPG-F4$vV
U"'XM$68gguvK/8#MhIIM=ptkMxLh^Lz-cKYoJGHs?<3(OodQUP[F.ugI4vC%qPda
U"ky$=CH71W:4dZ817Ibd_<XpdK)-h5=4LFMde<?Sb37Q+&S=6D3zGP(0#-sZZ,iD
U"W.M<;T(0GD^D8#'^f2xRoLOyu'lMZ>LYJ,Gi+[<gI'80c%^Kj4$,uFS]'B5KbLo
U"D-,Is]QR(<ur<ziRiKyt-MPA/uLw\8l-0KP7?_]Z(O7I&%#^LE)i0ct;I0VdPA<
U"pD-i/-(sfis<=hZha7r,yOG*8+MpGA.o%A/HQ&l=hlQ;g]>oJ1G#SV^;HnVjW(9
U"^Jl/\G6C/v[mHeaIjP&IsSjo^GfrJu./(;P#?8KeOxLH$;m;$g43Om<1CwD3ZX7
U"9fjQ<f<Z^8F2Z53p1:fJ)whEbc>PHTd'%x6>bD'gZG;(*fz8iZE(IG,1ycciZMe
U"uw-cR_Ql5(6XhK&PP7=qG9F3d5X(P1sC<:.mhQ5;s(cwkcZZ)%'cZ8\#nqn[pQr
U",--SNLWE[Bb[O$T&qFo+O\Mf9PW?%[/*.-C-rLU:OnHvlZny(,%Tlw1tsO.%>p0
U"iw^qWXhL?b^Nqsr.BLXkOb#/M-y<KN[[,%Typ?)V^(F?V'EBRc4u0p0t)cAVs*u
U"sE.A##Q5Hai49Ib4o23bXJ^lljJVGvhv:IqA)NF:26mZ<F0,cvq<Irjk*,MhiFJ
U"Ip5-7VA0Xh]DtXx^$+_Pd:b-8,#pDPXi2L8e#bz$0h2-MK&$6JT4u95vaiZRRX?
U"xtwbkKi,_?q/q['u,RFa26vp>m]i<oL.LO+#JOEXkKKZNd&&&f5DyK$W/hKONY^
U"(-1-4hM\lWZS$w.-lcOXSTEZoMdHA7A&8_Ex:x8^/OV0u*d+3Gpa(*oHk5CyOZl
U"72X<1c^g91Sun%H\e:C?hEFbtN_bOm$ga4Q6-nK(A8>H&T$V8#0\nVdl)yC3.8y
U"g6Hqa2auK0&)hU=/8Hr&T=uu2d2q6*[Es+StmGCan_A)o(D[KIQ5pZ]LyNy/2Zk
U"7zMxkbE\RJQ]7/Uk&7wR<KRR)?u7wsH.jJ.F-).y2T*;BI/4NOAxf=zaa+/?*Q3
U"91X]*/ZR$%fg,pPioH0.r\.-$fbm8lI&=3:K0-HPHb7'#oWP,m.^G3hem_n//'w
U"E8xQR-_zGFq4y3Wfog^TmukBB>76Bf\#)x),=+TB5)<oX124'#Hid)cK4N9a+h*
U"th0ls8dD*owD[pyMKu=a^$a[JHHhLhGM:7PK[zC7E':Zf[L0OW0_;QB0O^\m?.T
U"7QztHfi,)TR-=rKi>K--RKQfRpowEeKo%:=Gs68yZ&)^#':i/-LSv5tI'4_nCza
U"1(_R,3m?O?WfqLI'RH+I/b%$'<KQB<>IgI/5+3wi%50W,I80;SiWLQOE3*Cjx>l
U"K9E\g<gfE;Jg+:-'-KaV]\Eb&Dpc,q?zi;ahCp+^3;>A1vpbpSZ,;O9cmbLQ[&(
U"zbd+*_HpksXJ(<5aTNo/-0G:3;n^4&-p[sfc]W<grAAwItAYpUEgSpGj;ktL&N=
U"7s&j;tsTb3Y,seOjSJ>d+nKsaS/Y&XaOwA._BPlv$#h*'b\'F+0Z)&3JAB-%]/d
U"\QdCOceYq.&,X2xOZdq(tWXvg[6d6fupg8mj)idu:CEw7%Ok*V;,,f$:(*7&;(Z
U"qij6V6k6YS\=/Y?wtejUXUpVp,TOgU7.hBC?<Vn4o=5a*Z4Bx88krhhYudh8kxA
U"[.Kb#Y63xiq_kL;U,WTt:R+l5ZfuXbjvvKtMTNCm6\da#S1Q.dw?o?^>2,GQ7oy
U"#AS36U6;%$]Oe2X/F4krf;#8aYXi^H?$D#u8?dLFMu=9E$lvu;='x/9TDIs%TC)
U"-Y<2gOPjPb2Rv;9Pnub=0Ud\EG3?0Sqe\ML35K%_m[0%2TIh)#)+1aZRxaTZf,]
U"/+YZ(Aa)xD*JOGwCHYAHOepbwuAT'u)QUT9majEhUozoiSONYM9aGEM:[/ULri)
U"B3RxsMO:ZQ;U)lr5)p4H6c1L^^kYr:Kvi.STL:wUO.b#_%u\7b6'A+W&XpKeiqX
U"Nm2:M)YH<'PWw(>NZ#=.TI/kQIkh.gW\P\f#tVtox]g8'B;ikWd]I^6=>I&<4me
U"DCBt=E,0H7?^/DtJCSJ2^=sCt8H/?]AJJQ#o..wlBIp.]<DrKEM%476(MpqR>GG
U"pHiqUtmm_J)(1SL9PKuxtLia<C\&V4H0JoKtCLhb:]Ro:[W?MP6H/bvoe=(nH[C
U"DGe+m3#PBw]4b(Ho#(HLQ9##/i2$J?hTP^#I(DvPat[eY6VWPtK?(nsnPt\9akG
U"zdZ^g9v$\PtLK9ta?.QAOb(XMWC]qn?q.Q3+T>/7o1\K[Cq7Q2uYdpz=ou'jLjo
U"9tL9ZH[9i3i/6\stCH?%(dp(r^7YGM=mcAIauuPZLJ9lBVaNv<\PLY])A2UlRFb
U"+[A4QLE99Y?\6\tC89a)o[(zA1^vSD4Rwz\PdO2k>/P0\5d*spLqMb0n2sk\,'G
U"s+Mrmtjc&H[ixG(WFE2;z[Y72j89BKm/4sHZ<t'Xd$oqGEZ=?:7b4?iQe-7-tra
U"'C'V-*^?Qj]+U>9T4gAd'JNSJL92-sC8iXbMPj(o*#PE*oBx^PUuY]9c9T*m^v+
U"jl6]])#,%E5kg;U,-f9vx[:aPB+*G*)X-DJEp4JtFNA'.Y&QBHpCh05T6]NVN[I
U"L+1S6nBA(e_HS,Q\:8tKv1XA$Y(ww=mm7%Q[CphVHaF[B%6LRQJ2-PFfkx\LuiQ
U"vRwF*(s-D?SVUtFGkle=m9o_RPQ/i;[/EQ$pH7OHs;n>+VMq?63DZWT]Mk.,M;H
U"BrZ#+ao2]ftBtcnNDW?WYra6-wxhrX,72?:\By9v.*^8TdA/T;XU[BF#^O+=XE'
U"gHFtpTurUe:YP3TDdy]F1xEeWmgIE.;=z]NX9IfDlSMt>sf;D2)=*m:K?CX=0S9
U"Eegit53,\U1.dw574N/sk_*m#p#S8(.0lE4zbp$M_'Sb>nB_o1t,JYJN\e^A]_:
U"]7D_Tg[&fWpXAr.P4Wu9KvwLJd4-OBAp+X.yc/>L0#KK.QSh=?hpHLc:xeat:^3
U"Spl5'qZa+tncqF,oT(idofXOV,E'*V4[FX]ku2vwZ8RhbwA1Tb7n8WK%OHSy=;8
U"153[.j5Z\I(BBa97,Kq$b+,Y]9RHSV(6ucQLU\%NPM3C7zuL\lwwBTVtNmZWv]B
U">1.pm.b3A<FNh3IE0bM80VQ\rmKFI,&yv-3,UKt^o5=$p[-7Xj&PqP#[z-oX?%.
U"\g#1l4/-S23v8luO?7+ti'UV(LHoitHF,dHN6P:cpYh68Sj3DTTGe:cY+WsjJC?
U"//7L3Tojkgz)I>t(3]fGuuPa.Svj]Xn?T%LSsdtml2gD_;5af43O9]5f.<J&WE*
U"o,$Rcj+?$rNEDk#\.+XA1[hkLP.O[3Wr_W/1^?5j\]INL'oK8[u'bxiC8kbhd9o
U"md9CV;i<s25PsIsvAGIY.tD=$X#h]=W8]XMcjH+3i5y/AwMLsH>sAH_f0,t)\EE
U"MZh;C^rt;G-c4G<uOq)A.&L'1hqiC/O'*ZF1\Cm-#H\pKIopuWh((,Kf0p(nexY
U"zY7]IwGd&s*e*rfZ4hilADd1e$[gE*^+699eXrcyt9+bc1EaedtB49K#o-g7&]#
U"U[:Xj3$9Gh=8mhG=K#3/tMpnhmVC;W(#_2h<1W\Yne:#+c9d>iAhV\?,T[Rkfm]
U"H2q+-A^DBo3Xw'-I=oJn-Y.[I#V)XCAS6Mku<hF8cQXpDnb([TGJ>D4m*GNCp;L
U"udDhvzWa'nM4r7l<BJVfAHso\uh]b?e6rB9^z<;(j1(9uJb;-Gk4BNoF94qHv1A
U"I^Q0U0j;WTtroA6B2%'e242ODA?lwac7aP(-4WxoM7XzW6n&09V^(7gu]:w).Pp
U"]0WY>=A3h?3Ie<rJ5%2NK(\t?;.>173TR$u>2_u;Q=CEfq6l(YyY#K(IP^HB'1a
U"okhRr0lP6(ir#s_]DaCQCtpv,Sq-:r;cS>m>#fK%3p1+3*uc7Y6UR/'C3CJKH/+
U"]TgGLzMtr)Z*PDdKNS#voc6*3;A^#Sn(llp>-7]Yg4bodpOm,Vw$i[vZXTB?whW
U"1*O,+w-^0OI;8=NK)1;b^;i5+-*c;WkryUz1.\.z7=bCfDs$ZVglUa(/df3RU#%
U"eQ6'9jlI<#p^3[]dukF#5d?yH&;voBk^;mAb4Y(?)o%V]R='%C('<OmYeF&+OSs
U"2Ad80m6J:^bt''6N$<2YfFl]Zv2b:<6+>YbO^N[Y\8)zcjr(^%oikAK$U&.=k37
U"nPOs?NC/yY(Sv1X+[s;u)Da&M8uyqh]Y)rT-wVYiCCwhHuI>y.k4kl)32NPLr^u
U"%VW+L*FSdrYnb^ei7y&4m?N%WlkP2UKl,b^g=/fVC*iY';d,W%VR3K[lL3CoWCy
U"fm1S]zVd3MDyv%2gaOf#g1IgV=\S?C:C&&gjV)JIIX7E1NWea2OYUtR,L*iG%%'
U"ehl]-ShxGZ:19kbq8E_qDP,x,;iu:/3R3vq>#vpAC+$R+#wP?h1gaHH.P*><p$y
U"di?sihlm(dpJ*W+wwXH$49EL&O2]RzA%1;yiQ;9N9BV-x7Y')IWpH>5fDDaR3QM
U"<o9.5SV9FeqLrVbsw'C9pyuQ#&Y+_ddHv]Bd6MBd(C/Mh9%.Sm[\aLUo'9)PtZG
U"$N_#r)cq]cuFDD)%#as)eNCYjZNHJ$$=<FCXgmTt1R9L;hn#3%X*C$LdS9EDD\w
U"e(.o.lP./C0#g^_LV+,8[*=_K(eo;K;Bh=tiVMqXwA^H&f#\A_C9L1x+/%DoS42
U">>UngZHujj6,mDgO,9_'oC^MvuYqXplhZRhj+vF0W>jQ;ef#RAZWIkIjF_]5Sk5
U"a0+6Cf2DIJOTMfSX;N62);sYQn&5b2qxg&ZxtPRI[$h^Y#&DW,bPAtGGQM226)%
U"z1W<kbfaZ_DC:bUYo==D5waIZRG4)\)VZpC*6Yz,le%a%UWDjOq^eZ5Px$88J1,
U"mLU',Im9(RA5FW/&sJ#E)Ce%SbmiLT.Q&P$-JxQ+s2Wt+&b]oIpCm#^9W+l0Km2
U"1]#>BA5[E6TJAQLScFZRa=/JhW?:E2#GK.ksZ>VQ8+UJkXj;OL,-#gO0gK=#MiF
U"a0]p&H%08utR=XXj_$PIQ5\iBW(r]xDj;,.TTGtHW_CT8cTL\S/FX<NLT2\=>z9
U".Jjh;\0f/oui(s<+1%l,PZIdi3C96S<8joa[[DcZBm<BQ.YKBsn-5EirDpY;HCL
U"Bx[*#T;XKWkaXt>B6TE9rp=R556VQ;#gT?t^seNEA.h]NQxI%<=SmCG[s[tlh+W
U"laKg8m:=&/+QhjfJP&<hgsLdL'iU0Sg#GW_gk3):*0<^I+MT'sY^$F2h3jEPSBU
U"1s-CTpBJi7#JI)xXFj:O0%lR0Eo25&Om:X=Dr<4W)c,BXxHorwBoog6D38;MWv^
U",\h<1>Z9=BRQq;tf#u%,qF#6U7to33/7#E#\BH0U%G-][V=0RVd,lXAJ/taJ+A*
U"dWlB'7%(>?Im1lc5T0ks=l;cFfE'jm,1#,^Wj%Va[d4uh<1rHE;*G.ofs<%Ej3V
U"5l1L60T-PM26&AG$qxaD[+SdH-4>=<'hfN(/?ykrnsS=m/r+J8$oXe3/XMYs,6R
U">84;:zA>dNEc=a;Ch+^j';W?WlnGM6p6BVThiXs>$?b,$hnF*b#9]q>1moOs^aS
U":nU0n4cXBA8DdOVEY11HqeE:d>9uX8/1T,]>g5QHuK3oncg(.pu2$4D'^Nj$Clg
U"0vRWUcl#%ZrpKN_hr.Ts3KQ=0h)_ZB4i].EgEo&7&hUwQpOy0&#O^[1SVeod5W&
U"migie*q$YG4tFuo3RgwvI.DlFD.;vX[w)rzYAF;fOT#kuI)Z.gl$.y<\AZE/sqO
U".o0b6Y'&1&RwQJmSCFoFIvM1lurx.pb<=8n;jb(b;U;(Nk:1kighX(>s0ssLwO9
U"7aX>P6QKn#9i*dD5&S;#>>;P[FimUC.Vf<Bt1W<jgu5+C:FhGH+?e>qEInOMiMh
U".2N/gmokUq,QAL&^kvDP^^dV]FoZE'ho,qWz/K9+EXU/H&k]J[9BvC/,xpN$1ur
U"hY_;hs9mO:dP.;v(MnuD3[/jaRW'H8YV8:n)GN4TrXa;PXp7*R4dvLcW5r4KIKQ
U"<T3c0gEY,[d?mP'pqoKAQ5r(8lK.B&HW?W:U%MD#KE2I%WdN9:IZ\Z;*XD-_-<D
U"eI>BYqOAYQ827zpj'[ZK^vKaf=P]>GbLx#?sm,gq+Lrs<cQ6#GDUm,7dl8a6fnN
U"sjrl3+DA<b8qdnao_&#Sql[K<:AiVuaZW6wNcrw0kWf\j<KJ#2eC+aXI37o-^c=
U"NNPl3#>+jO^TpiUNq=Ws%g4H#&F:&$2y_Fr6PRiiECjNNjCjLw<,e.=)-<#;jX[
U"Z^M$nel7N_R#>(x/*KNtd\u_rF,&N%[fNb/>FAT3Ng#sj._8qlAX*g+F7DCa:?<
U"#K1l<K.NOA5#LU:k;+]Lw_enOZmQbMG>biQR]nq<TG/,Q,hdxMZ?h-=]q*%aj9i
U"jA(dm7^o:djB>dB\M;IXr+btioT(>$T<V=4#W=fJX,^RSd2rW\LKc440Uv=9\=C
U"6:T\LVNP%>INxvpxcq_:2Cb$iI<56sk[sV\j^pOPkS542]i\$-[(mz4V4NQ9N/B
U"h<B:\%'ysrTO_ckn_XEPPRq_ifz+V+s-?b.9p^*9']mcv=]LfxV3oXBm^6ukS4V
U"2Pdd[>lT^^bN<vp&^VCpD,L(*4IwPJg1rSD[9JU\.<$fD%0wHY,r2frja.KcV()
U"^)O34r%]j_V28y(mM1i'l?YDbAAK%-K\PYRHvDw+l'%e2nVXvAP=b,c/S9cxS_U
U".>GgTQD457nh[zPoa,=&,mQi3PU8w=O2W1sScBkD]T<%\Cv(S5JBLb85NhC?H+K
U"s[(,F1aT]bVVAgbhk&5xu27KWh=z3amBWYYZnZSUmC:lM;s&->Kel/ysW##52mC
U"m3&542AtNq=&#mM$b5jD1]*eaZT2l?'$Ff;N=1IYs]-pTa(]G+6sFuZi_H$Dwm1
U"3CUa1&x.F/D20)d/WacH6_L_e;7:pkaX]tKdYbcn/VR0O\IQeS*_]0gYOjRw(\R
U"19[XZ6Pb*)m0b#1.%5+AEsI+Rx:HDT&^n3T?oh[4K*'4lZ;>Bb]98Rw:E+gT7qq
U"igWehhL:khlXrM[lr4<+gnTa)rjX.T0*VXDv7EVX*[i..-0]-42A;FgLSqwVkM1
U"1B$L[wsIQx3gk]U;o+,8[A#-YK^aH?agBtnm=ebJP5ZdDPpz>s??3m43bK4]LQg
U"D,yGd*A]sF1u2py+fQr3]2ln*BP*7>VL)T2yI[0=O\O6M-rcm)yorB'DngA%#B]
U"h+40PM>KTC'M8_-ug<l1=[GOUNVcrm+B3ReXsY+j4+sqW#uCs0O,g_f2j(T+gvc
U"b.WH&LVoKl/0Q8U-)WCY#R*#$,&XUsrE1A%+)ld_B^U=Hbv#-oT-6i1f9,b5tVZ
U"B(][cihoU:;>rLsh;dM1%fI1tV4<p(:pYI-Q(cdk]Cb]nJmJk]\.Z&YU(8NBqEa
U"#ayY+n?Wd;LGL&IDc'Z^g^m's4hRP24<6hL23Swdrf&fR3qK;&Q:X[&r8ZIj-b0
U"t0pTj+T>XwPmrQ=DrK5bfsTQK]yEE5s-fp<yc>6\xiwYUD$LL<VPuDt*Ti%AHcy
U"jhg)3eie4=0GwUPQN%b4LbiWZny?MHX^:OAcTp32GN5s5uijb,?lJsw3F'dZV4O
U"kKN'ju=<h-7S9uNNS'nO34MRweY,KgFyR/twu^EjgxY(,w<dVZmw<(67Y*n>0Io
U"R<mk57=*Qjk8q76cwo1kMJ0d&F#G\9i'x.g[EGYJMlzYPmqbbgq]GDZ6m\E<Ztm
U"06e5;\3>]2^5_Ub8T_NJqXK]7Vj^0s'*.*1jP?QFp13Ayl>hkNQne-T'u'#pWtF
U"42/crrVZA?L)J[j-c29*VxomhSdx%/e6R)aPMshhkA,rS/[Ms.9pR)KMD02IV-s
U";v0RmRMBU[_MQFnX2#kLenSXV(Px,\/&%B<\AEZgqNb'(4*>j(h?hBR44Y,S$e>
U"3H/nct3:o=,ZCXqil:u_TZMMZXzK<VLmJJ<?\VnMdQWD,Jx>4i#^p%FZxhFV9_A
U"^)7Dp,GxndF'BoP0A)ST#u2[WwyZ)1%4Lu(L]:aeG\Lr-;Lt.WJ,r+i8,q$_TMI
U"%cMqJ,Oe*pqVx9$MZ:8kQ0-yNb+4vR0*b$c+l*eEu%Dup(%)9%%%%-%['3oQ&V[
U"ijh%&%%A%(%%1#%%%%%mjij&'ruS[gfx&kaJ:TRU5?nY<ix?eg9>Yd=\(RRM=?e
U"4eRoRqc4H+_CXj]nbLBB-kXtwtk/m.o4,b^otcVv=s>sTfd,T)bdw5Q>:+GUCL8
U",rjjI*QlU&&YU_r#,p,^X_2zVv7g37eNIr.%^/UH?RZ)CK1dHnZ;0;By&lO-b]k
U"b.PaiRoPd8ySZ,2r$h84QcIv^gJO6LXX%G>3GAb[XFQ:kHHs3U*=IAsIp.NWvvc
U"/dnzS'ba]jl3x&(O/_P55?eQ;ofSF[jGpllo.XPlCgI^fJr#z+NjSW9dN1%&t?b
U"[vVOp,Cu+IfFdJCMypOBl3yi[fVc1_S_/'qgMuoohH%_2K4DHslGH-'[\'7F/aJ
END SUB
SUB V3
U"WBMe0Hr,2jp^:f9MGOnt6$wiaqN46PM-O+=IJ,RNak-S7K#Eyz0a/2Y?P0LeuF[
U"_[;MYO8,'8'INi;'C6#gTL,sQNp#L%c0OgIKxIT.?csImJ8?lE*^k2bcDcX7h%_
U"^NS_=,*pJr(zqGVci7s<7Ci'>C+iEGIH'$:iew(%up()%9%%%m-%E6moQx;8Vb,
U"'.%%;*%%%/%%%%wj%firj.Sy'yATyr>]TU16j,ANY8<ZI?b,4COP*S57AU;0eK%
U"MEr%RK;K^pUI#<iMvmR^DGEAg%(eu:pqqFms$p;Q'b%C#<-q&RRjeC0=lM2vxjs
U"Q'wFu,bb)%<Wm$tTYa586dMV%EH3?g?T&/)s#wwme<*\:HAhZ?ggSod2Ub%7dmh
U"/%#UsLUmG8m'C*<H<mbk[i79<s5;xehs['aYW/#e,x>OGd=]Bg#-uV;kZnYx_Lc
U"B3G7'u=O1)d=?w(Gokj>6*9Za,fQU$_F^E.qI>VfcBhwVadJChAsx*8VgIg24te
U"?/\^Xn&TeNkF[%-<Odqb9U5Ub3E\,bg];TrE50Ne:(Xl]_iFc*Gbn%eQX_#FAKG
U"mncX3Jdqe\qt&GgCw(r4wZ%)-$\bQd-eK6c_((Rgcg)_VJ\3bY>SqQG/zN:QV3,
U"uPR*^\kDoPX?>n7,z9_-aw?jLI;kfoh+\)]Z)jax'\L#z8W$M+I0[cd)*Y,zp0w
U"Q0K:i$,So=6CjBrVRP9jGq<i0)N,4$Cfs#.J*PfO;)/BE+$1USmp;?mL;h]DvKJ
U"dpw\jX?DSb=hxqB#1C,6L,b/5)t*\mN]x28'3ft<\VU(gt4C7*H0FcZQA>Up8([
U"[LHg?NZ1j:;LEcHaGbo-3su#DI&)B8[.DfZb6mr4bGQGE/;)ulN7#(D&L]NN,r_
U";[XH9v/[RK]F',2)dK4ALx167H6tl(lKvf7Cd)Exd1p7\>%GisG/8L=<'E..F1T
U"Ndv<9I'Pp$;vXZ[JR<V9H)vqNQc:mfVc5AOrqc:Kmx-i^Z,MY*p$K8D?Y:4SjuC
U"D-d-S32RgJd*iA7so)euzIddM<I+4vp.[4+-_0-+(?Z,m\RRJk(NVpWrYo/jX<?
U"Fnn2,.x%u%p&'9%%9%%[%-%,B-oQ[+xd[j[X%%6&Q%%-%%%%%%%%%%%%E%%%%%%
U"%(%%mj%iSug%zup&%'9%9%%%%-7%%3oCQ:IK+yi>%+%mr%%%-%%%%%%%%%&%E#%
U"%%:#X%%%%mjiS%mqyu%p&'9%%9%%%%-%['3oQ&V[ijh%&%%A%(%%1%%%%%%%%%&
U"%%E%%(%Pr%(%%mj.ij'r%uSgf%xup&%'9%9%%%%-=%E6oXQx;V+b,'%(%;*%%%/
U"%%%%%%%%%&%E%%%%i%t%%w%jfir#jSy'%yup*%+%%%%%)%)+%W%%%%Dw%%%%%
END SUB
V2
V3
CLOSE:IF S=59AND B&=21267THEN?" :) 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\21267,219);:END SUB
'>>> Page 1 of VHED.ZIP ends here. Last page. TCHK:59
