'===========================================================================
' Subject: RPG GAME ENGINE                    Date: 06/23/95 (10:00)       
'  Author: tlipschultz@delphi.com             Code: QB, QBasic, PDS        
'  Origin: alt.games.final-fantasy          Packet: GAMES.ABC
'===========================================================================
'>>> Page 1 of RPG.ZIP begins here. TYPE:BINAA TLEN:16712
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1
SUB V1:OPEN "O",1,"RPG.ZIP",4^6:Z&=16712:?STRING$(50,177);
U"%up()%9%%%7-%&u7VD[b9v#Qe%%%ed%&%,%%%%wu%lSgfOxeL:n*##KNYFmVlxI
U"56\:-(J,[g_nKG'e<G]2*?sA84tD0_?8/QYrXL?Pc.i8,L&>mbJ*TeI$HR([KCJ
U"&z&&NXzz9HW5pbUVX\;;AgJ6JlI8EoQp?(+KLf?Okjzg#cr4vebYY,%v9dA0?YJ
U"ZCqmk0]UdqbmYp[<UUmk3m%2Q0OUN^V/L_i1.Hs#[etQhUoGMrPA;im\cqns6NO
U"x&XrX=P0Q0W+T?R)l,Qk;YS*SF-HU\hoUo,vot'x[uQ<tQZ2EK3[h\Em]CR3,Zg
U"Rs4hrI]A$RotUG;ibQPVQEgMrH6%hM070vvQhtn6svhZqZa_mS;+.6L/Oj7a_W1
U"owt^x6xox=CTCUrBA^85CjT2aSD*[&_fT.x&$8Ro6we0efbgE[rX]<Qo[:3HD^F
U"H4vK&nE[.pBVJAaH&o^>oJ'D0MOd_/HqqC$V2IGh'p[r]94?eEbksvEZOCk67f_
U"DmKD$t8&t,hPFfNQWc.U-M$Rz3SijjO^A_4e;*VUJLxNOs?26>eY.8vAM#CMIu+
U"6n/utgm[\eABu(<Kd^X$3ga)FnSs&=tTT-AFQrVb(U6cmwLRuF+JvBdb(EQlbgC
U"+LJM>oEMRFk4U3Z*[EmT,q:UPh3mS\$BJsRVTfFuj\6cKr1_RvKpQik)5CaR_3l
U"LLjUc$VYjapK&0h?sn=C;%EA3\mlGa#ApO%Et+A>J^%\Yx^_F0;Hf?Cpe8>3c_G
U"[t[g9h6jJNAP-\o;Cf?SCAJ1$>]wsUJh6t/0v%LB<Ub6UjbV8DGfK]*UrQ0nJ4g
U"u)^ZQy]rY0LmfSxv5W?rM8-+kVI>Wo4+5#YA,zu$F\yQ,kQ(RG1Fm]W>YbbmUEJ
U"4z_-Q>WeAA0rpBQ7Dr<JW<]'ahC-<C$>vfWL=ZBVW[7T?fud+5:W-=v34&)b3of
U"MQ]eV6%l?%5,WhLDS%=F6Le5gdlH%Y,32aVk'76L9t6f:j-^oW.jNdE>CGk<p3g
U"LWCo_Xg+e[MCK%'Kj7KtjOPoTc]DbCJxA?A3w;7g%dLCcQwA-Z?J[i&;^hH$3VC
U"]h2U3$&T;<2m>lOtZq_AM?l(g9]qXNbJ']lkR>L'inqS'hG_O]G1KxLIKCrDnV8
U"g_gI4623cs35Op8]R>gxi$paInfAawq,duAfIX.%kc1'kZK[a[1J6*MX1kr?elL
U"T?m(eEDl)R1\$,\\,o%L/Kdd.4bBtae\Ra'O.#'Ub?^1XMmv#?$nL5[[PXf\[tZ
U"VCeKbLFl537\pre'1D1XS^iRg4dvJ;??rZZDm30Xdx=(\3]$eo]-tlI+zQl;b\b
U"PA%bbL\UD'w*pclt4tM&+$ljhPugSv#X8M92[I&ch:+7un6^^ZWXDKDEN,oZmf0
U"u7]L1vyh^m3ZgF(Ulj48M6v]S[,w=UxO#R6*qy_ZBdVu(lyQFSb7X<+9dc[nDD$
U"cac/C#_tDD\$3^vV6#sz0a>cc/Bdc[D1D*DDj<JJ,ACAs-'h+%Z>h,x0Ta\((7J
U"bk566W<h*FbQAr:7nAp]M6d#,[2idRKC0]g6D=4i\?qt.hORKPMMsZj'XQayQaf
U"e%ba<Tf2<CDiT>3]N=A\t6AY=]0fWc9lT\.2r_]CRl;gG:WjKc6)\$6hLsrRV3&
U"KoeBrS^Hi(6?HW+pnE;+aLMWbv'e_>V)>oUJ99cf#00?=v=N?#atZ,Q;MbqZ((B
U"$Yp2*w4A3.kY34=&26ICWtD5gFr-%JI=:xfigUB>c?i)0esaLGig[Ob]XQY*K0I
U"]T\r<9FP8.X:2oLe'gx]?oJct3r64HbNT*GQuUW+#uwoOFWBD0J[fOBkurmffj,
U"K1X4sG=mkVUK2Q2fmZ[xnmghbcKuqAJ=T4Ve4Y_4;C*l$2&u<nLl4StT<w)xN[w
U"IN/O)k'dpYtNdYE$6e)0jwPxBeI-Pw\,2RY:?HqJoI2H(:mSx]liF9cP_\&$<ru
U"I#2FO\64?kFBca?kInN4V8u=IndKd2fu<u4i2O1fU>nIRrDRf6miHmPB0>avn,Z
U"]X<Fl\Z:Ol]p6VYZ,LZrne^3ur0bQ3/$e3cM9gTVK?(RIHKy>fRs9-OYPO=_p.)
U"8=932;r-PF:9xnIR:b^%,2,_Y(d_4ZYn.1v#V]9Xi_3%3d=Z:x$X4V_5,\JiB2C
U"lpPfY0,3Yct_Ush0b[c_>(_o((vp$IDQB#DTdkPDP*$aB8ppu,i4g?kNoOQePQ.
U":',R%t)9(DiBuK(iHXQFK:TT=e<%<wZxRIj?j67qU[<r>9Vt7zr(yBX;D8xbsSx
U"3\<+T?sG:>o%i*7:sgP7&OYov5)0wL]pUJ8j*M*25j2:(ehf4k3&N1emlQ7x?JV
U"#Ij-57i.]S3BTQFJi7Cg.aT9SP1G5s-2K%.W6aoE#'=EmNw7=9[sBk*+YPLXw9+
U":3\cX0gJ&5ZB*i3e=me/7,.lWT6CG9RU\a,XJB:BDVn1D'KBjcQ6=eyS-hP[hRJ
U"'H<Pdl_zrZZIDptW>=Z(0mMnbvhaCozl#Mx7e2n;cilNizU#p6MV[<Ur%u=vp%v
U"E?5NiMzig^h\vPU0QPh,nAj%?dPj)?fb7p7L9BRxep]6&aVOVa2.AAU$4T4Vtr,
U"(+:v_ezrMnNiR/[IN-O9-A8No$JX\q,#g1qT-jAWX-F7Z*'f:DWn:zSjqT*d(LP
U"nJ\m*P&\B42X=V_.JSqu^aucHmsm'ipc9lDA9a68pu^[Bh22MW)(>1JTxU>6N.o
U"PMafH$SI33]RE#k_%z+2ATtzqv8w+k>KZ999P2E&/i-3<>Nf9o^GL&7];)mcc=&
U"(:WA7]m%^^K0Nf/AI'U4m7&&,&bl=lS??EIqRj2wdefNtQPy67/<f9KwqJQxC*:
U"''RS??aBc8I^1_v/z)SvfShT%Y%nIy2;0O3?Oav'_6-[+?k<2pM]^=fF3bd4HOr
U"8oBNeRRE$h-QYL&,.m$ju:m]AEY-/Rx#:bzeaD),Lj3Hac'k-VQ>-XcJ]T_twF&
U"8V=2kN1__#;#3si38PuD?EVU^J.A?]2?HSQDe;yWrNXqPnvx:lqFVd^tvD4m<IC
U"a6q>T[lnh9a.KwH;<Yl-\qPm4'Yk>paY)_(kZ>>nI6Is8NSCpCuN^O=q<Xe\<Fh
U"$FY4]DoV=L3&/'I^sp3]\tu61+FgR<I/sXRf/'s*65^\&h<YS&e(2'uu_Gemd/X
U"9:7F4fYI[tB]Vqr\3[Jmrwmo+2xs:9?xsLqWOPn^A:9'Z)r)3%G4Pq5:rh,-IM2
U"/40P1k25Pe5YF><(UXf^MA#%*k9u2s$d>Y+$m7aZAVgGMcW.Ooi$-#mNqONBUcm
U"aijYM_Ko3#=snk\3$/_O3U+V*JGolEp395bC-]U6jA]+.%Lr>GrK(VApN&QbOHe
U";TJx1geafamS(>%O'bF6j,9]ChTG=oc(&S>>-FK,7u>9Jq[u(BH[;IILSvIfJ]i
U"J0h9hbWpK;B>67ap<N_G?V?\vn7<K$GhhXG;q_oU3b[EF7iUJCYP+Uhk^_O.MZO
U"0TXv?4lj>FCy/_Z^W-F?&4d?V[SC>EbP?2hOkm_KjCKc7_hAV7DntXARWo;VDNq
U"7qgNXujMj[[6]6FngS(J9VrT2UX0FW]McV2>,6]GW,DK&meFUOC'cvATVKdTsfd
U"IHa=19&P:VOl;nT;NZaVtLL](0A$q9?Q$q346bMVU9w:W??96EW_aL%XKtnnik%
U"u0iS$qTks;g6_'76dJx7WFFMBIJXkMWEs#]hHI7loMIvsnXe^:Tc_i5C(U,wwCw
U"gdN*cET_W]AqY1mx$FD?#\q\_G]If^e&^'Vx<m\'RD2eR8l7FGh8%o:QJiCuTCG
U"X#WJ0a9p.mX>o:/AJX/L$ud+64?J?o5TU(VR>O7n/[nnsP7Un90iIUs#*JKL:Wi
U"nCR1JiKWb_0+R'EJTClmMCT>&Fo%q'cxT/u9n-HAi5kO-&YA92*$k_ZvYhF9IRl
U"#LZp1BAHtGIBQ4N%na?ruYvv/<[4*8VVg0*LSzB+am=FezLX+D]61R*+NU\(Irc
U"9iru.Kr?eAlTU1BQ[sbc/OjDZ+;8HUv*G7+t_y-_]Vep5h\Yo?R]8VG8aps0agD
U"fn'h>-([K\C4(MayBmS.&Vb$HMP^W8Y%?_Q2:n/ES/?U%Fxc^b+2<(NTT\kbiFw
U"W^BMviUJ+,&C(X9bO9)>scH^E?=772.,(P:0?%AC*oUYX4(v3=%kV^4nr6D5Xsg
U"ac>LWGwt?Gx9[/'3qaI>f-OAn;2*Qlj>PoKgL?-rsE.yX/]+Nj?W\r3;s%G<9OZ
U"K/+X_4xRJY/OF5k9^wP%?ru-gyi-40gz:Rak)wjocr(R51x)2PeR=J;<ZO8[2Ln
U"uhLg]Rg(F,t)Makb?NJv;ZiSoQCod85*=OiBFm/>r$Nu<MV00nDf4g$ePN,-08'
U":Gg.u<nKkXvx<k.o':<e[:\P,DNe;Q[:vMaLO6a]t]fr:.fXp21^WlRImYuD&TZ
U"AB]?#WAJC6Q#iPy%S(mv.dAL3gDD:tP-w&CZ;3Wn?sKD'#AGO-j2wpG9ehdfm[,
U"Za<i+^Im=QtXDc%PD%tn0kIe2m[^)w-aVo9J\J8_'+VuF5NR3MqUWC)6TnGN5x\
U"Y6PkEmo:rMGVd%HnYY)22NL4\k^ybJPTisKGP9yreZ_Ju\(GT41QeEN[>o)J%np
U"<5)Qq<ewSPaaZdu'X7-q*Q&D=2TpJ:^'n0ucM6zT4*#Ln4D5bN5=AwMO?+T*Onl
U"iR[LakCcto_duXAF$)$+Bww#XdZ.R6'tD'xe_,,U([ge(.n>H#HjSpa0dRK:7hz
U"sggq\gHV$>8cF]orY_F+Coj7?j2]Vq<B&SNMtAe;9s+KUn6HQmJ4'h*&w=Ftn.g
U"G$915UZlkm<KIjN$H22-6>actD]M3/911FW5E>Y7>G9H4f79kZA02Fm6nBvyzdK
U"lR7&.?C:_?DVPR\Sxqe_B8t#sJ%n<.5E?*sCV8'rrrDs2dd[XHskx#OJ80S&.^'
U"^.^6n/^fN5w\$lu]Ak-DZ1-WPG^g$J$+t'O=A0xNdqc/vmSYwSwqS>9KU?d/bAZ
U"-*Y+-Z<\8QjSg%E^)G?4Q3-1/W_r#oU=yC0):ATMfPR;'LONLJZc1\8n$]2N]NR
U"q:8q6igmbPa\0l0(5VQ<]coJ8H45KRG_umKa-<uf5_LFWae>EU.Hd$/u2vI64EV
U".t\>FiCcoOjp-PT3^K2a2WbM6hGRsT33l0[$ClW:=Nh>JscHh*L^sA8TW-K2Q6b
U"6t&<]5a^30f7nbM<>,,Uhc-l8Zp?zB0HsXdNJL?LP&Nw6VW]+ZfL#3/e'3o0YYD
U"m=c9Z]-Ub5.%6lbkpF+9r#o;+#[MO/Yu]<ndiVo-TA2.Lf_&.m<)R?5\t6VgNNo
U"%NK<pium#sTcEu85g]+g#UM+lq-:g]qJj\%-p/AP3+&a?*p0R,)9oSBCRQ(SGy0
U"?o]hV:kyn3sIjh70Ho2>hPH'a(,]wj4MuJh,/MUkLr3;>6bc&z\R+fVUHDW5^Z^
U")n_Kb_ksFw#*;=%oueTbsg7Mg_5/q)9rKon_br4W7\,z=Oppyk*he\3P7K3mmuZ
U"34OG&FzvqCe[dy[3pXoYlvRV]G*eie+lH7ccCEjb-kmLWRS#]oJrT]1z=A[NWF>
U"(ql*e2F&va7$0(3=2\$g^qsUYvR8gKosC23bi+AB24a%]l8]SW;:5H-FP^uIHJ\
U")%4pjEH3sL0]]*aupekuT*ubzX6<5IWRS-YPfwGC7PI5(pYA?Mnq2G_)#yD8zfT
U"\FceQRLcMF-W,x9DP).]t.9jp<Uofa>3Tc:NT*q&^A%=L3I-tzoTLnn8yLY\E'0
U"6<\(J0IV]ICE:SOOz8_KU#UopuKc#IHbK)w&L(A^GXK3_%cB./12_7iqoqro,63
U"NRpwd6h>l<wCs3,_7LztUA7u5.oT47es.Lj,$&dSC:ov&f:6jSANKPC#XLN?,'1
U"o%W,kWt.&8'[LD<WdW6doUt$6%P&?oqgdfRgB(t:PW'os[(6V;raa[iPdM##TG*
U"26&R:HGmHPngW][I[d;Kj=,;5Dv.?7oE.>MfB?,ev2;7&&7yGAOg)BZgXduJN_d
U"OdeD3uJ),-ut_5#WCFp5eezY1;.]1Tm5J#7D1'cfn[a.fENS'.WfdW8_)ID6C3=
U"R^k)QIQ8bag%62g&xm8cX*6kfS3_[%IPZ]6R;BLuy,akZ?38u/rNTp_O%g=V\M)
U"vaQq6,]mJmh)KR8,,h=\Zl08*FJA-\/n[A5E&rl39VjagR+MmcALUecp<jAV>kY
U"Acc30T#h-[h?eOp_Tk#XRa\M8X8F\N8rX;0/l0=bQG=P$i%)a[jIdCSF/yHr&Dz
U"^O_T6tSQ50,H;qS'_W/m^U:V$yscZ,lw9]$DWOnmfoqEo*Q2)qD(4p?D5as2rqc
U"P_0fy$ZL+f7Mq9/LCBVy)U-_(1cQr-qnti?Yd^A8M\2%o5jl>r1-%gtkzhD/f09
U"^[0l%GbDLv^fR,%n':TpWQCw>zYlMpBM.#[DDdx4iI^hGrr<,.VXU'<QRueekkq
U"YK31RbbD0ci6f'RYV/G<\DIv8+ANFmCGr:h9/]GVjg\>Y>bY])q4jp2qofBF9=#
U"fd%An7KL2=\SfTB[Fe%uMq%Vj;a=uLRuvkv>9W3cxj:J$eg3_zvI4d#R11%ntsE
U"FP4[Q6kC*GfBz:&(HD)D\4o>956JUgA[C,o^ozAVh\Uh.$,BklV=4r^A<1SJjCM
U"MAq$blbo%preu46unwko>a]$i0L1wDC9d1'rJR[85z]d?[#9&n1^ijT?BeFH4JL
U";[97#JcShr9e,Tm=Ls(GBZp3a.X1W6DrK[xKnbsRQ_\%_Cht&Um;NaKU+'<hW?D
U"6V$i=4'Mv.U*ts)/c_B9KDXJ\uHO*Opcnb,h);EGra&;X,YOGO&p4UR(U;WH2b'
U"9XyJbfWj2HVSgBE\d>%_*S9)ebSIjnERFtll:tYq:(&u8.4[cKo&f1heuUBUSmY
U"?Wvi6NwW\R_.cPcDc,84&Jp*n,C>;XvJX*..alb98=s59f&,/Y7C#IBMlN6(j3f
U"?-*6ZUwtNHp_vR_BIz(,gXxAVU<b2[&^P*5MWmNCfj[n<+/wfsNr1R>4P4SCmpP
U"41U=$7Z1bBd<SK?&f=m&Tejwp4S,_#D;2,ZLC>w)<_4]v5ON+%,xHAuo<J<B(z5
U"mP$:JAzK88Mq<?(Yc#,?r\R\$P8g9J7Fy\19i9&7DtA4&y>vM]t3v&T;mjT9ZGZ
U"hs.?Moa;Whj<;$ot(2c+?.?Rs0K_o1MMcal5>psL&&zEdsfc9MkZZ#Ck+/<mD5w
U"eHGLqFp8+u_X4iGqraSJ.BfE7ieVT](8%,xAN++N*[:3#P_fFn6&_tupaC]=y;=
U"keWRI7/W:')BQNjOCWb>CMra:_'9uWptI>>Lg:AhGtpgh6GINu9SM,$k$lSY[rO
U"FIm#Mq*[zyjp+A4Be4zX*#^?ENoeJN%\mY_OT(L%HY4$ql;PzZ*lrk-16jJ\_db
U"HR\d6NCM\Qqf0s/D?Db#BZPWs<+H:?qEcmC<9#^tN0.7htB$V]&z8l>y/P#+Z[A
U"#$WT(>hL_rC/DZv<?04P<V>PUF3%MJBE+?Jj+6;ZR\EB<6>aJ-1kEBS\o(wM^q*
U")(-K2y.gjojx0o;Z_([eBuhD_.L^^NK,&WXt1'M4HIy^<Ol#s\4eT>mIqoMgn;g
U"s(o*65tAXtrI<7cG_HlvQ0]NLbw7bk(mzhSLdXvislucoVeI%JF'D_G+.S:(E>$
U"1\$3mwsO('e%q&=vjeo<6rj+%&=n)v*/1NOYls.D[(=9)kf,[sJ'+:747cI3IrS
U"4dP6^OuqN_L(&u7z*d92/9AE'7:pa'YJC+MD%kG^,SjQaHNbQ5s;z/.izNI6aZO
U"MB3E7bNwbjec'0rHL29y+:ug[p4,2B>RR9_7OS7#mJ3RDnqcGsia'6x9tok=1LN
U"C[KgJN/bQ)BDF=*mKM6A)e;k.V/Wun;7Q36-aerWxMf.FP.pp+_GD7?bG6$6OTh
U"$a]+HA'J)Z18VK3-coJZ&mh[A#afu.:_G7z3$K=,(7Liv?r\3,-ebAa^h$tZ&Co
U"xV5(<9IE0?Zs'H5Eo/vFna9QQ^eq/9*:hGY6'0_U7uR%*v40T*)R>O;TukK8?<k
U"wccjsONqo,oV;z\9RvM(#B.R74f]dIvK4J\hZSTd[ANNd<T-:i?Z&)cR[:uW6Gv
U"Dm<T%Xpl6nu>;nEPH.JAck1gz.nq'1iS=o&#DJYkCbP%_;K-D0Z(OdTc-p.-)Go
U"7YQ$:oM^\<)RVL)c]C=8)>:V>PkHGvZ*BVhiP4.?%HD,a<-)4++sXg%PHF7yN7a
U"6WCF(.GrP&p2;_e)FD?=hjM/l26cnKOD*&YWg3(9r*&FB+38L9W83DTaH2h(1*,
U"TF=>Kh/4ZRw_YtQ.+bDiUBS,4$.N19xXhv(aKZW)p)H5eplKHIsh>u^b>?'/v_-
U"8\%*tVXKsFc&4CYQAd2\#Xu5m/XC8546+;&o2+^$v%*V.sp\Gk+)g4_rF5mMDvR
U"y]CJMLL2e>0gBF^GIRIM%+<B+L<)?'d_,'MuamHxJn?e.YC_,Ftp/aKPu%?rJ-t
U"L8lmbis,7Pw.Pl[tu65zXwfuwnbuBCv6mh+%^TO4Pfn[BZ6bp+z3-BoZyJFaGQ4
U"$1,xR5plD;s<ZiW_;22ih'EXxH1jBMubYjM1i[Z\GfgWtgo/K[49vdP4wi]u<V%
U"/>%,//0]Jmt^lgRBgdws9XSi8U[Dj(W;OI\9ph5MHFQo8t[):NaLe=>BtO22g#-
U"rB*rOFC:h>gG,VV\6JLm=Tko4ET*3^'d3'ap>r#(^KPgYT064F&,wuaF0K[htCs
U":5W'9naT72L=&Fqc*O&B)S]Ei\+hj$o8R;A*io3g)=O:gPc02/I+;RjA2nB3F,P
U"45G'C],L0$3u:15wxjDq)g1Fjn/7gzzI)ZJBf5QO&m7W&)gIgkn*d2]<^WK7VU#
U"Hq=5oPj<6,$UN$,n^4US44qn'?x(A<G4.fU3;6+':wM&n<W.6GJ>8=3%&VzCU-S
U"cO#E4+A5_=#m++JHJ.v+%=#%1ldtFPVgjdPE_2(57vt_8cIk)wA#=u&dBaGU.t>
U"K+.\\$s52nxUK$9Pa<uGC,p1>[aqi[*^,uMI('j#.h3e2YIkVU&SmQn-I0)rte^
U"2#kz;8A9G5&s8O3'kZ(r;SN0FqcD8,o?k+r+t/N3CpoHj;Qc\yrmJHQTnCN.2P4
U"5LRCJ9b=<jq]p8:7,EbhloB^WsuU.pueS<+s#l#h]-r<Q..1[:5_^'LDrln^HJb
U"5k\^t-or&-mK>FOZ+j$Qn'Wu=gJ:/?/.j[d\0W0dU(kQv=5f#b4'#zlGoh09Br6
U"-w_M0)k-jM;a3GU_K0E4Q'O$,0MjmGUSb\FC#YNBZ(0*$K*9DJ8TiuBV_W?k[0(
U">;cQMR\U4PDL0(tL:)]R?D#wZ-O5i)B';e)%\pYXQT20crkJJ[VEH$/OQ.7qL:u
U"rMuBXVp%(1[QF[>0690t7RY5>/byCG)_O:B<b$$gB#1(:QKnG&>-2,gkEA7P-iG
U"S%fU_JZ&0W'O-bZ,qi$k,e>Z.'7G\i.AE_MTr9;95jqLx,JupN<;F:Ka9q>(N+N
U"P:,XuJ7X[;rLE,w,GY:Ac]2*'6*T<Ht*V9Q?$sq[<)7V(Ys:loGa4sB/+1AuHW-
U"?y)1,f:nx]'Y#E=>SOFTthgl9?neuqXotSb&uV=,5h3]n;'Tc?IqA0(]>6PEl?e
U"FYzOPeWtX2)z(+5Rw7to;$$J5Cs9lo9$gXW%yuod[9grLoV.z<jE$S28+VV/)9e
U"J?e</p]:Eqn2aQ4^o/Jx/YEWg]?/u7>9QSWOVZ9Y*q.-#;u.(uknlYl-US]PtNj
U"[z2e4>8g,].NA8MOWC):Zn\sbtwQ]IQ&WKq+(ph]cl$quFA;#a;Vv>J*22ke_q+
U"cdk0T?^p-g=J-Dc:Em^PrLJtRXAEl=stH4P3T*ndhkmD>d(Pe$ff8TMUFn4/(6h
U"DK58qCA55RWgSsL01JxNuS2Q5w3I<H\kpkwgT_Me2*9Xx'FYdf&-qkt[/O%oDrC
U"IHm8d-xM61G<&_=i;i4u]xHaM:G32,QK%(qi-38+Gc^E/Dh,O)^F6B*nf.iKo'N
U"h)C%-l?spwF:7x%Pq$bLd\bXkS/>y3R9qS6+*.xC?(Jp4_jR7Fp)*D..2mx&l#U
U"K)I-&>8ZTt:%TNE&e>*gj2RM^K,(_PazkaBeAk5d][eDcOwW)6E->rHVeGJJnaI
U"\3CyuWCm4>ZMNGPI(n^iH1XpGs00>Knv8SKMTvv[]Ji3k-U$jgt]q+(=F'4lP>B
U",c(rq^BX.^6MtQd62'k.(Lj>;Le:</k1JJTcq[NO8&l3oF,*jM^_cTN*e6RRHGE
U"A)nk3/S7BFst38_nV8+X03_-7WoKJP1g_b9,#KVNC8%<e\L<_&8[3LQQgkZg2K5
U";QBd,$c&&zM1ItXmU#oMqRFM,s1vq21VOUrFs5trbZTP4YmalUlXI%U;tp<Ih9c
U"U-XuX:J+Z)'S>AB*bV3sDvq5XX;=\w8(^=<mW?Kc6Q1Kx'NGa9i$q$LRdvkl[<(
U"=e(O2KsNOM3Oo<#?K9v1n?DDq:kOw3NA#v(RK-XORC&F2X2QCXDq4EXF.ljErw$
U",6C79%mn*_o.?\#'W6);v1A=RA1oFiG1PAWz\5x<X&Q?DKJG:*IJaFsCfCj8T6h
U"O5aqigGco$-ye^g*%-NNCz)HS<P(5ZLmF9E9z'2VlLeHX':\OfD2o..B=l(/.Rp
U"a$IMUAjabiW_^7tS[gZj9O8D\,OxAJCCZSdfqg*j?B8.OtI_/-0HS/$m)3Z8-Z$
U"x&l_nD<u9g$Kb?83vg?7tgPA.t:^u#5wCi/^QP,pfqPZG?SJVv=5FoS:e64x#iW
U"GpmotVNwN:)zJ_-PQCfLdnb%&8?+[qVf9xwkk\jAo)'g]+aaQ-&f04CGVQ/n:88
U"(QT?**EFV/?pIdCs?;::GN?K<p$H)H[fH#5QDZr(H/g7dn-EYoJbQ=Bs7OQuRA0
U"\Zw:EDbtuhJq0Ulg/z%:sdf%h,#?Z66iLwaUMh_9L*<aWa1U0L1,SA).;SJ<*Ve
U"21XGBg>M_%y_c8FH<wPa2Gg;*qawDj\Oc$0_M[a3qr%BfM)]kA^ootsgbntq\L8
U"vwS[LFvtL>u#g%1b/Y<^Y6VX5b?Vg7^54%q.(XJn)b]_YagW2[AtT^cqFV,dl8l
U"[2tADnk;8^e3v?TnesRf63D6$hn(?QT/'Pc7^rP_6SsO,EHFRKCpKL\FH%bVNB$
U"wlD)DFvr6\DIZW,DY)7gGq-Ux209C^WSXP'BYodlLt^6F%&,w)khfT&(g^-'_S[
U"7=YXACJ+qRkPa5(14$s*AD]%6jZpx\bhDWf4V\+EL#W2+>AIlV/-JgA5Ul=?U;Y
U"pL(v_oINaZ9rKZ_9cH&9^-w5t4Um_?l;f$VL[&;WRi=tf(#n^\g=Al+&XwfAYLA
U"it/'=0F[79/SiFTdJ<1x[K&W>U^/60g4*P#x*gcC?gf[$;XS(=T5>]\5G\1^Yh$
U"]?Fi?:MOg=\T5>\.5G2A1e&(hVTr$C-&$)CcA>(:Qwv1r3<gTyUSVkwI)TppSEr
U"HA3JAUQ/'wxgfi_&YkQSa91*9:XemhDe4*Mm\tmb*,6wW8_Arg:X9pr\5_%s$gf
U"'L6B-5GwAnRQ>gWoe3&/zmL.SltIb.1?sGI21$voHEC?i4Rp5PKZy<rr3.;1%(l
U"mcn5%,&FoQr'af58?sd78&'hpK*FF\aEU;HuS,ENQQ(PYeo-#I=352_Z.FX24OP
U";L7.L:2x,y([j],N1j5H92f8wk;Sh7B=,>*&ivB(<9$)6fO\68kItTS7l8C.7mZ
U">(fkJ3&O^wfsJh6)t0D<n96/#;*0#cU=U8P)oB#xK6pUKnH2%r%uL(,R8jF0eVa
U"W.Cw=CM[8*OWP3_R'%2:#%<-vi>^TY)+gzo#x\]46Ptt/GeQQ2nr*q'G^+G]:QA
U"A$)V*Nb(Q'5XvB8:BFWOID#5dg,2QS9lfbg/oHn'?I?J8R>FPU\9qIWPVv?Osr/
U"jJT9d?f;c3$CDt.e4C>p*irGIjf7(*)rqPTeBWLNh)U^vaaE\*2Fps023]JnK;2
U"ajX4wqCdg#$.;]jIo<9bF0E)MYkH^(KlB78QwN8L/LcWfBC?:5K^%%3>EhbGYvS
U"G7XH0BULhg1brgF:Fb]F&R%Rv/AtUn'EmW%H?a(2i1n[:$I'sl<?Q_yBK*gcBUi
U"NFh*3.?%v+-gmerDisM(pVaxDlVR6x,X(*)QrfsFal0REhG(x7ML$I&UFggPuZb
U"3J?,c.5eZS(m3rmcrl^'N\Ot57m4f1l#nq.8=uxLMZ+.E664RCMu10)k_f]MuVV
U"Vf3._,BTQH.mSd:QaH6IG)qGk^O.iE'%%3OX:dCwbAZK5N)E9+4N$98s)(s3QJX
U"YZrae_zUa$5ukmYqw2ARH>rbPc\FL5)3pt$+X)UW4\riuu\EfT/40r%;I1l[ibH
U"t[oC&irA,so(8g.roD<6$On#gQ.ok??(.5HEnGVpfby#0$6D>pTa6Q0_([(Ei,J
U"AFPFR4q(S<3\,oWdE)%kpYRSTXMDP+ab5hUz612vc-#pW7QH>DIX#$$OM(JTfG;
U"Qz;K9K),QP3i*2Cl-uU.9MsAsN2d.sf^bQH3Akf=e3cQh<.[Vj/+peGT*j>s=gZ
U"VScVeBU&9:8KSf:J;:_URko8kVh-nm8uW626,M6P'KX_7?C.XSDuO6Q^Z1A\*lJ
U"SxeDOY&mm9xk:p/Vs<%j'S_hRn_2kwQBZZr>%\R=cX#n.abMl6U<YV.7Gx,MV^,
END SUB
SUB V2
U"Trdo_Q2]yh7)4S;8]L'nfxELW^/l:S]CHO-[VWbg&h;Qhl;JdVf2,Gi_XCcs%o=
U"%(:xHGv4>uox-an=n/kal(iEykcf[3Eqi^RzYHCK6pk6M)Yn[whSWZdGZRV.L#V
U"aE%lMQmRyfku0F=8Nk^OmM0lanAe_;5pc+$,_KkiPhUwqmEw1V8v3;ZSJ0:cD_C
U"gQd_mNaEdPH1fPJ3\Ase.848I_o,tbM(8crbc.NxHWPu0K+O,sJA5+$l$kb]2iu
U"wQxuT\\>Z:xnE_'7d2SIlhR#0laBj:p6QNn?lHiGmui\1FlwhafGrTH[-x2=17x
U"RPX-xAA\SvPpFJi,xpFSW,g]P6:^$h9mNrsC$%ZdU<wEy]CAp=.eB%U&5EV(DT)
U"jwf\eqOLI9,p9C(-Or0u)dC/*'w0+#ae%Xle:BXu)i7[&FfIp77:H_r6,aVIwqb
U"<FcH>&^t:7J[XK8o=Y%)PUUIRY,7aGn(*G1;4Y&n.0IPp73R3\KJf8h]_DZh)MM
U"VLEjad*mKRchM6s)6.iKRCbMTtrI*3D1MCxGKM9)u'\M/7*=CCn+II'a:3Df(+R
U"6epM^4:3FJ3eZig5gGeq,\(et<7b%.-rg..UwVbO/?fs/8?<LNx;.3^^&=tAQ:A
U"2EBMT5N9Z(g[M8_5.h\%hw]AgK]x2\5*3?l4Ww1-'fRIy%_-Pe8'A11+r7*gKZz
U",tdZ:%TV(%F(&%&.oF7Po#O[M#=VLB(Sh>bdn_v'Jp(aPJgXe4lohBGs]$v<P\J
U"8dr(3\qHEoGz0HH[KzFexnn(2-=fPo6R[:HpA&N;TY:u<XstxqBTtLA3ArlW/95
U"NqX+.t^jKzODD)'>+JW69$'E^+Pkg?l+PQ(tdK$>,Pf2=8H5.bmiOX520]k+##\
U"^\<:^Fje>jO]Rbf]PmMGvT&?q:jWSOLw4WHUY%7\*)%fW47:,9dA0sf;&?eAH?Q
U"\t+8v)J3w:no<>&Yy*(g]n0qR_/gDm]Cl,h#pm_/]*]R3[*FSZK:&:GlA.u4)Te
U"Uw\UuMZiml_6sW56PZ_qvJ3,A?5-o$e+=%YH,X],*qN*p$^/0K.Wn0H_2NU]#j:
U"A*.kt(e:'nGC9?c.A/U^J[d\7uwtOhVa)rGp]Y]'+MAju8LpZVg)4qirK]'Q_,c
U"UZiw3,,e%S(Lyw*h=G56=Ae[QaBnX%quvED2'uo*q-<)N4(OyS0'K.2n\5W<d3q
U"S>BWS]0o^OfMnmwEwOkR;4\n(7oZ$7LEHb4[cmusa[fZ^rbNDDddxk41oW)yiIK
U"2?IoqQII<Wn<cDZ8t+CMuXWid6iV8;u?9#W&jB:s]-%8k*fz*yRhecufTfzZL'B
U"_:9ZW>bN/Ri.D#O^wcr1/S:meu4fXe/w.6i/EjUd?SCFKyg>KE+a0D-R?+IA'-&
U"TxpC(1BP3IJYMb/Z/YbCEt(sf(1?lD-,$>je.qqWf'Wbr[g,6AT9'9LLIv,Mkiq
U"nNVhcy;CDuJ:?\;&:r.h'B5,EJE/bvme%hItEvJK?coC%TF7iF)=&a0IbsIG'O0
U"dsYM;IG\YJaw_f\.dVCa3zD6P-cg+r2^OO2\ZW>wFi7:Gw._iK)nP.=lj56&_fm
U"7Fe>\l1qi+)Kpu*WUH1qM?.X=9e;2(R7,G)C42ah1r0AT7&3]+Oq9URm62L.+nD
U"U1dky]]//T6A9QhTcWJ#[?(q&-e6:ko7%7w-I5B,Z5*fM'l%fvQd='&NpayX?J.
U"l_irbe,O319ljcH^l9UA[xo+P[NYGuV626Q5gabLM*kV2b]EZI3AjR<qPK.pr><
U"J?<0o3ZM3ob^Ut5#2AiT0V=y=<-%wnsB,\x2V\e=rC*S*G2ND77,XtlM3SfH?HS
U"Py4_]Ukbd3>eOEvUVJ^$s<9NcZ1^sGj&Ih:pWm64r_d:ygmPdLJ3K+t*nd9>Kv9
U"Gjmx30Kt$nad>Kv:9jm<1A$GqQ,3Y7G%mjAT]<U$5y',#Fyu^=4(/itXM.-mZ;K
U"j#m*DKg>0NW0EmIGg93ue*Hf.:Jjcp:*7ye/XLOnVGnOhX0h[rB$/.haf4#VFfM
U"<SAZlS9tg(/uNUe&Go<agow?)gZT_I<Fe?$ZekD4*YAi&DC<*CHQ)n%pPwk*r/i
U"u77(oI'8^Nn&-B%w7upv_muv1H9_)^PMVeD)rHpmTe'cGa*_kk'9^YwAI,4t:[y
U"oORSR0D[2]24r;29YnBFV<a-j#U+<YFSJghW',2aZeJ2LZ4U1Um3Bo8PA(KLHrg
U"Gu4ft6M<bt&fzb8Nkt)+PbS)3?b+l)2l>p_tnu?.J+A]pR_HdW)xr.l'pLcv2Y>
U"Qb2FrKg%='sPJ\BLO*v'&//[t]O6<J%O/e=9QgRCxxEE8-;p.r.Ba7mD):o<Is%
U",7i\h%Dl?8aXE&fjzrBO99.zHjk9-iIWAUR:?+oauw=>qR>-#p8QfVNZot_MACK
U"Qj3/A>h6Xm--,J=k/N4vwO+*VD]oW2=E4fXCc[TaZ4.=8*8enPKQt76<0$U(b%a
U"qa>Unv_$,9WDeMZRd'/<9k*pu5GQ*C/[A53fio1lP>=Kehk]Ns?K85A^Q7Fb->3
U"ua,JK7-E/I[r(JQ(mU$Ag4bSv=hp1\LYbMRFWHHI-J<_b38Rl1MfklcmX6OAtqI
U")1KHcvnW6K%0bZ8:#F,dJ'ox.0[V.>p+9EST.brUrg->dpSW1fVZFT2s./AT-TQ
U"6[-ELT-IhGm8<F:=MbR%$^u<uZu[475b?.$*3x3u:6qs?fcQHH\U<,q[&x7==xl
U"Sc?rY/ZA;xojn%p$?)_sx2'28tZ$2U_?(IFzt%1BUKnajmQcl;IucH*bkx'<L0\
U"Y)RZWhTBd9QsOH>s&^pL9<jmi41E-V:$eop:aK82](#0#yp:nDRO26a?%*cdN+:
U"*&y2+b,([Ohsl&)k;Iz<u[]&,8cB)ZPB\HGuREfxUbBxTLqiA0nco&J0<fXRC_6
U":AB8L&^e>;axM:]K1[TGl=h(3:l.ukuKFobxbcH/QL;#UWi\'TZtpoubn*(1*w+
U"T0'^CtuFSQn6XMQ0>LKjWN9B)E*qeI1m3m65Nhz1D6-e-sNJ17/+\&C:<zr783Y
U"PlR$TC'b,ohR.Q^1aOGaqm3R#tgjaDruDKG(NO&.'R<6grJcP3R-v/[GY.K?.[x
U"OF+>Sm;N%i)-Xq#vsCKk%-A*9<Q$WYefV>B;9(+Sp;?$vQ>8?]v7SF%$#7?;4wb
U"o3k:(*_OQtNSDh/(CLPus7(65Pi./[p'Vl\Grp2B:TIwgq/z^U:EabaAzzLzN2O
U"R_Dy.q[9<19b*[VPCpa&7id\<69ZC&_qL17+;4tk*a##h#Bfxep&U;Aa_%,PpR2
U"(Q4DL)t?t/ZFNi/GWhdQgBzg3:?Oi+F62*>q*Qw;CT0FPNKmX74^Q,a0of9<[7;
U"AfvD3$NtlNWA;Y(Y*sq\)pb>j0KnTku0n_o<8(o$NP&VcnP#Mccf>K>mHTIcp&o
U"ICD_8aq$awD2X#<o<]#e(#cXP7D/5z^3#1[3<.'Nkcy,v++)oUblgM+Gh%Q:Ir=
U"FQc*#BZaO73<F=jgT;,gVIyTWkP$XqJbE/]4PJs\1/eNVJ*ZOX4UbOxe-VG&qFR
U"YoZ=Z-,?lk[aq[1DA]K6Gbc]ekq[%cp^pAe6IdSQF&uf9=oA5[F0\iKtT>*R15N
U"6Lq]U,b2?0VaLla)Q3tY45AV4Hu?QR2H1X_uou;:h,kU>qpRw%S],e0a>+eTp:A
U"tP=9QZSc,m(?F?wpHQQT2.(a^^=#v]Nb-WIt1T=aAa<U$rmK0,R3mufw^?b\VC]
U"rNH/O-LAS=,;h:9NWqLL0^aT4U^[cUE=X^X=\3u4\heeXwdRjG86k2ZOP8#UM'%
U";lONGG/F.'RP'OlGOnG/9<.QMI'[lOoFGYH=/i$>&tVe:&0cO=/Drf$U/'9va/Q
U"WWOO;L%S?\<39+1iig&mS\NBJm-[)/:I9&YNcWZp;K=c.r_N_QTBc$?.MtCa;bN
U"2#yqqkU$c)'L\sXrY-k(]^7,oXFru-oAKw*p3Bvb'da&Y.U-91B1m(F,f+vP,p?
U"/ss5I)DA+XbLY>OpITp,8%.=cw9D7)FXRe:A3P<1Te%P;0J^Sn%:UE5c&238j*G
U"'zV=;%]0m.4tR,R+e_cLlX1JGuPyUIRl?UCe?%90/ZYF]q4/c.Dtib0U\&.B9?'
U"&[x\FgD+$eARon>H-'RTKG'd*0ny/R<NFiL[/Q5cm5:%kPTFZmtiwS_U&/VmI\4
U"_8$dj,]O4$:iPTwT>)Mp*v>nQ60$,G[o7bG7)+kZX4sDl66*/vTgFEpLDdG5o.D
U"1/seU&SgUSHo++5?taABiB1u3H_MG%sUzMjLdS9mh(qjbC_&j?2sss7,p0,#rsw
U"'ohK[w]Tom^[uIcpAd:aV9U8Pf]U7n#F6P?%>NF0*B%<C,$QGNT%I>Abb7$8PMZ
U"Y-91]Z2Yd(Tr)).1f0R^mDrEg<E()dJ7sVt/.+Q2cGx,h;ZB:L^-57]h)JTn%kU
U"TDAX\FL4cFKD$KT7Ny/gKZP2B/jXl]=MCa*.MmPeqd&Qk3'*9Nl]vjJIT=&JV0p
U"((D%9'<nAEMC%gNRhD\j8w+-)EuQ.\^vFb[]DD'3bg]caU&rjS+;bb7'S%-8SVg
U"axFl5SX]LD+:aL+N[.LR8to92TZKh=aNYCrpgi1hjSvvR$a^rYp(Lt$$\LfITbM
U"llYj/S5mMKTT8>1m]>ltZag0a7W;K2mK0hI#F?4<H'D^&KDH;W34rn+VFQ+.l-o
U";.J45*Fle:&HE%D6j>hTTDdbRf&CKP0GDTG_s/:YmV+7ouPDr9<;[]wK>Lt0k]j
U"=U=\U2UZsQ^FCYdtrq8YGY:#nJV-E%sxMiiX#OI]hO-WZ'G:r(JsrRM]/$D](b%
U",]PY4MaBD(3v7+2DO4j#b1Q[FX)PJ]=eB2)Xt\C/guee7'Su?2Ne)U]k5Q9PwkT
U"+UFaeJmV4Q/R,6Wr5GYcF0O'rh9<9:%V;'=KALU9EEKT>.aq[7g$6>1l)X2Zrtu
U"3qwdhY4wAavF-^GC$.1yn8&$xU(T_738D(QQs)_k:m:)(*7f55%tVPtL>RY^HTk
U"[8=R9a84<L>%B6jP>b=L](O6HKN-[Dy6+s76w?6N$A<;G055Vb-M^d7C$UY8.DR
U"/w:U37cn2pJQ:ib#<jcTe#kqe,nSD2s<o[92>K:OT$jn<=dXRr)_.:CUuZFI#au
U"pmFIm88B,DFJdx1s2G:x[XobP+e0#R:ZQt'aGq0mDe0\2;xoi#4Mf=TA2K6(NlL
U"zm]t#0XCD\foXjtaA$r&(5r-S9W:FNFnV0*o5YGRvkgw[$=_ac'-.q6GjvTj$aY
U"L]\hqFu.V,,RB$EMND]C=^XSL:'>QR.R)OB#DOL6-o6vmPMBnR#,.0TP&mV,oO;
U"rVi1&4iaP^Av\hRO1CTt[^igjHD%YB<;i'lC;/gEjJbH\R'e)Dp.NTeo&sF/WKw
U";j:.TXU0NK*9lJ.+i8AKebG^eu(Gf5cA<:3^^IvA$0#G7hWIcm/bMMh<g5LMGuL
U"NHGY+F(;S>k;X>/;5prtH,L)_n=ri4DP_m;o$>fneGfw[Zqc\EGQ)FAS)g&I8NL
U"[uly<oH&wqxKHwoh%WR+Teh+4&Y1wpp7uTIUDRiHd%e]=G'dU3-.g)8d&%bG2+M
U"XVWy9R*Kp.sdEj%=IO,T\s0oo1g\cCI5F**?Pt34>uU^?<o*7Oj.$[EsUTMb-NU
U"--N?R:wup-otlbvLPd]N0]lZd5pr^K1(wg\\T6f_F/vK.5du7,hR1Y[XjS.;?:W
U"ISv_wOW]4OJH(]LC/$AK>\0Z]/.Gq$'\z/0\&=TYU7md3K_vE7J<+JrnSDmM/wC
U"T]*i]I/se2ApO%b]CNHBAwLfJJ:7=3kX./GTg]Q(E+M4dG1(7P,z:=KP:oYDtro
U"05'ZWv6X702;(BAh($fMz2[%2V$bF%2L\4q05rp5(pZZeCpx[eDm2vm]&Nc;2gc
U"%7V:1.Y(oG.'AzTx7K'-OKhg_&MUh1CLsOBi1MrYX5/tN(emLErpa?'&rg;0p-o
U"e5*CZCORY\EJ(Wp%7NDx8Cj%CTicB.5s/Z\-E2;T>L/RuQ2<6\q%^'7zs#?j_7k
U"P-K?w*AYzk]LO(j*ez*kFbt;J\PJ+X?+_pbMtfKaO0'GNP061+*HZxijBg;]I#V
U"sl(A^%2FYoE'GY#:2A&lU[9%Q7OgOIDX)mB'V=Jn[qYUS\FR_nk_:g?.DTrmYe$
U"Wo;$OUuR^[ory<+0h5s(Ct&+]iFzh)WI3mtVgM_rjudBI\FBP(Zt300D<FTHXc^
U"qRRqY^G3q#tW8BPof58\=d55muay<eOr8Q0l2H8XeD<\w0urN3%1P+t;qtC)dZ0
U"c]/a.=_k/B1'V:HtLQn\W-2L:j8$);TI8%nC/obu(^&]&A3V,w7.47?V+/T/=O;
U"uugL>uBfb^rx>hsGmTYQli46u%dut$k2R##DOsYA-V0Y4D8l>&/la2##&8>x#eA
U"LNtLRVTZ46\_muPnPfmF]Yloo]^>Mh0D[\7Cl:r?SYuD>P_Vw5nP6EWRG50Y,PJ
U"S>x<;/uI,Ob*?A\RXn5-\Iq;jaJnBtIido4[RV29<xOa>x+-F^oc_2;z%?_OrOw
U"TdM]iP^5N/(ttv>>.keYmTP6L-N-f$bLAx3C(drCPp^%Ba/$[Pn,5r$k60=vaPx
U"dqeJbV^&*&aKH'+:j;)z=iH\Eo(qP->j<4577pSUM-\Ws1:?A:)T?bd^;e*aYbG
U"Qogfn,APZ^nOW,?6E]C6.8eTS-YhKuP9HI+h:]t_?INef&GCDNIGA;'d=(V+uSL
U"8/?X)mx#^,n5hLn%D)vtGwKQfZ+]tp.h(_]_*/UWTbHV[wF8ZVJ()Y=6t$%-fEL
U"Uu*WG::Z2]sja*Q3>cso#sg*iaBCE,an)Dmh/&7I&*uy+TXJ-j]]qxup86mu8*0
U"xV4H+'9[?sw*LXIo'9K/7/>63)$aTy;iF(/mSTXOD9BT-z+FCx#7Uva=/Y)<$j;
U"ce<(#rd]<1[04US*E5p\I4_rU:tfUZ#pQ-Te;Ol4f7(=n863(Y3CDHv>h5BM>W0
U"d0q^>k2Wt#Q0Ccz1wcVm_&K2w(+N+:)qO7xX]Q=.aTnT^'O:0DQ%&KAt:u#MsRA
U"*rYy':T:=kOBI9Dl*-MC<M$(?Uqf#u7;4]4XgW,jW#XZ;B\3daRxDmi%ZP*9O,O
U"][NW1jBNaRe]RNdV1b$r:cA\nm2b^jjepI+n7-G#n*Yc;tJK,e?_q:KZ*j=]c5$
U"?/$GEYMQ$&?TEF\V;1Oe%HweMWrLu;Wu4Ak_#juY^tGnT#5s-UW*vX%9tf<L\Q3
U"r[y<]/[6#lZuY+aYbU0NVOi>%d-i;i2'x8?4.Z]iWeTURYkP#csEgY]HGQtnXVu
U"gWNLT0wAY]?T]LA$EX;BO8'R)F,GaQ1,S3)sjR%I(w;E]-D?+F/%([iluQoJqQA
U"N]Ujh:hT2*e2Az+L&[?ux/TxuX7s)'.$X8f1QZo?,U=7Jl+).nPN>L;G.g%mp?]
U"aO%qF1(^/28NFL3WVT%[wNLtPGF3V=h86DWZo\>60gn\/eD#Y?(K#zr.P%=h[\,
U"3k]\r3)xA_h:HYS>EYwXm[ULBkD)JudrgIY,S\h#:j3cJVl^=OtN(DeBNt4RhK.
U"lV>VEjVSixE5lgwOAZGiOx<7]0cAX4lMEc$ghf$Zh/j-.DRQ%MAC8)nAea9JR:>
U"q#*e)qgGFkRi^Ug<q=+djKW$,Y1[vy2kgGya\fvPWZEish*Y-o+Mk6_BqjQDuXn
U"NDRl$g$9i*wxl<17xE<m&fGILn89i<p<4hRP=2>xV'.A\?DJ=\D9&-$80(rFF;,
U"io60Of8/mh?6g-E;ntnhehTCcU$9-gZ7_s60rG3Fz_*sY:(#-n50jq$hZwZ+w^w
U"zRiQ1*$aL)-Y;sCT?,BmuFA6nY^WL]2cKNYYbloG&>Y-5tm&fp_mBcZtqqKDJ50
U"2\LMqUjZo,<nr.7I;\Q8HD(\krJu#5ie=lVFZ0Vtf(*dW%[k/$B)P:Y.dtW'7R$
U"ePvzEBPg6=n2Dk.5A$N#:*6?^_ez>N]76-p,('3$n*2cao>o)iHN'7QM(::-F#<
U"/L-?O;w5j,_3R^H^M+aX+Ie.d[HkTixMF1Tw_Y_&8qO:40z=6o[H=M$?^Ts;V_E
U"DXB;Pnd/9$vdFjOsF8r6u;$l(w<'ziNNQMjy'.ZRxo7;3)gTl]\?^v<;\3[&<[p
U";FpT^OK:o?*e%$L'GiWECFquChKcvgeK9k^(OlDJK4I\b3?28r7t.6S1T5<;;nd
U"fOi7*SaU6(:#-qy10bDL)ahdF13'%%f]%Wo:N%NGZKz;Vz&0C1%qrVAO6Lsbxno
U"E?iHM%,up&%'9%9%%%%-+%&uVaD[bv+#Qe%%%ed&%%,%%%%%%%%%&%E%%%%%%%%
U"%w%ulSg%fxup%*+%%%%%&%%&%Z%7%%ve%%%%%
END SUB
V2
CLOSE:IF S=126AND 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 RPG.ZIP ends here. Last page. TCHK:126
