'===========================================================================
' Subject: DUNGEON RPG GAME                   Date: 01-01-94 (02:24)       
'  Author: Jonathan Hopkinson                 Code: QB, QBasic, PDS        
'  Origin: www.smartlink.net                Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"DUNGEON.ZIP",4^6:Z&=11555:?STRING$(50,177);
U"%up()%9%%%%-%58IFA3+4kg\%.%%:&%%%+%%%%gf%xttt)D_$3'=E1iAJIS$eI/
U"R<=LfWIpLoAr>ZQ_H5%Sd*p=\$R[uW'**&'5PdsAntG8&BW%NX7W7=)kS3)FvAZ
U"B4U>%&dh*p7arI9lI0UpBDNklg1sgUW^1CL#e[7d97rk6-?S]3iBvNP7#1<7Y04
U"U#vjURWITh'eQk(loKc(+$Bmxpr_Nw]%*up(%)9%%%%-%5[8FAiAWNwP#%%%+%&
U"%%)%%%%g#thfT[u$3<7U-VHfr7hXtOxGS&ji^eBGd;m+pdFwa*+5ha(1[MV9hJ_
U"u)8gdfUv1P#kf97GS&XB]QGC<JOhRCM<Wy(T2g7+'rN/+)vW3[;ED>Y&h;,Z84*
U"_$_Ki&L&o8qs^VoTt/w.X)++<tIXTvR&dc<)Nl1pAZ<<n5&%up()%9%%%%-%58R
U"FA5v2CRP%.%%)&%%%*%%%%ot#sjxD\_V3<[E1jpam2i_Cd/h9VBTWrn:$mu(h<q
U"G;z<m6YKjv[nTym[JZ*s7uQg($l\6PcT'E)xbo%0do35wCMR1up0;B2Df$-i\<J
U"3a1-54=6&&v[.Rg\rTn5Ge*e:3iN-Djgg-s)WFm3QpsF>D,yh6kWTVkb8X8Zdr%
U"%up()%9%%%%-%587FAwD.UzI%.%%%&%%%)%%%%oz.fsLu7n3=Ej14&[m8bt9a7/
U"TEjTsPW*sMr;+M&Y?a>\he#IuGAAbhMWTQdP#*gok-&7-C190z0**uS9?ph\U9r
U"-):<;gUKosI?mphd'hBV1T'=uT$?ah4KU?;CN(jDy83x.4ThoXF73bckn5jhE5e
U"t3HnK&%up()%9%%%%-%58RFAg;05pU%.%%5&%%%+%%%%xf%rfjq&<uf3]<E14OH
U"jXm&Lm'00ZBJfj44<h7dT)WCeyu?Fw#[9Axuf4&WeWW>]$r^b.h(%)kK;M#-AhX
U"[fQ+'k]cWTKL-.>gj&b5uk?9u>eWLEK%42P%LVcY*%:-RL/i%fZq(+8XZvtZ4uO
U"[Dth4_*PV0/B(qM[PTfK_yXJu_n&K&up%()9%%%%-%%58FA%#'e=&Q%%%&&&%%%
U"+%%%%yfjq.ts<u.n3TUa-V\b:J+,%X_X\.E9T$ri$.M9[3VV-,Sm2a[r>7bMX_P
U"0Ztf#He.#S=+Ehw-Wa,n]HY,9/Cvr:('(_2j2j++/S492;6ui7:R=KJmGnb*[.c
U":tT&Nv9-E+T1;UBw<Y-t&;gpdK?>s>0&1o:Q)T2$]8n=cwBD%up()%9%%%%-%58
U"7FAES60v%BR%%d>%%%0%%%%iz%sljt%sSgfaxNbvYBT1]$86Kx=(O(XZHW3(ldD
U"Ek6s3bK;=jTYTgJgEqJB8Ir+1d>Pe5ak?MpPD%fw7moJsSe*4hp#&*G&5'u'f%G
U"3Gl6;fvPH?1ru;3O;bl-IgACh7x(+n0*-86vMTR9x2rT*tx&9[Lj(c#j(O+/39Y
U".#m3*?)EH(Luibs[Y9Kq=T:r:aX>5VEKZGXZngR\xqXbrJ9JvdDhWKMjj6[sfKn
U"_,Wq.wh2ismxhP\s-xn>K8<::*0Bf00]DTX;BZZ/L#V_+LTNrplA96K?nkP&Ii<
U"2aHcKdlX%-?YVq?FS'cL>m9b2-uFfM:q1it)?/W+*(Vn7*[>s<Mh4a&LK(4a#xK
U">4\atKRV3qMzBJD8/24<&nfT2GoWcTs-kwhhsk5cJ&u7$c4,_X4/RT3T=9(xk$4
U"RrD(hl.-UCye[dJTr4(:x(My/eYd*(r4^xt(E-_hM)#HoOsV_uuFNWsafFPoW'f
U"&G.7Z)3U#\?h/$[<PEc6fpaJ]RFLH&H<gb$&eHCa$t2kemBa0R(q#+pbY254SqF
U"figj7W,;K4pGFa.hSZoVJ54hSFfkogwWV=D[VHN5JSF>^ig6oWb;4:lGp-ohCZV
U"OH5JcqF^kg9v5hccZVL5NtSFncig8W>L;4tbGp.hXcZVvQ5tcF3xVG4a-h&Z7bE
U"5,kSpOi7C5W(E;JeG74-h&f^bo5R,d=J>niWLc5p.hPL;JnciWL5Tp.hLi;Jnir
U"Wv5p4NhLPih6f\hj$akWn))W3$ZvRC+]F+P#F0Ahx0A^;09:V[JdRrGKm3=/bQ,
U"S,p6q^>KUZ*_++rSWP&$<&v(dh8J6<P6E^nsPvLPf')q44#34A+q=$AnubNrqQ\
U">N\V/Aj#JCr(DG$NcutcD/L9d'oi[<'RrWQieI6o]pZrRBfBp(:+XB0K,PXbRG/
U"cX0Ld*IeFP4$JrmO]YisUIhVcdaIs0,tGx8l>fX^QRV,G&\xZ^N($68ET-<K=p+
U"<8FQF7'YXmt%4GvPk>s]W<cUtKpJSebJP.$v9$4pE^We=hv^[^d)G%:D9'Bz:+5
U"qLId)-=nN]a0o#iHxPM63VoPUKvLT$O(;*dGg,rO)w2KSD_r?\I*D?qnM41f3>.
U".4Y-29k=ufPQ-^7([][AB(nz(DWR,=(#3<Q2/064rLOM&WVPeTsi[Z#<_x+lrM5
U"TCAGEH>k9,zMI>Sn=gf6Kp7\7*sa0p]I%O90_V88;^r+O5gS:l8rr4O+&^tdxU=
U"Ij0TpO0eT_kk8\7f75ar/lq8^1RgK=t,:tj\31nm/O2o&K19/h$+((;Sr5pk>#B
U"++f\PgJ0N^u0%u<^P1Nmw2Dawq+S?A+lh7L(iH3>^;fLr%p#v3.*=jIs,.T)Phj
U"QcAmk=kqF_-W:'P)7Gek4ByPVv?:NcP1xcXgo9Ne(<epTubZS0;^=Gi3_N\c8TS
U")N4WNu'RyzVg3$,K.-sBfn[h69.]Y%c?#R(U/WbkwO=C6fpaJ]RFLH&H<gb$&eH
U"Ca$t2kemBa0RHZ(;iM/[$0AL.q64Pj%f;,Zl&$B6CIqlTDM(O,1gdO]&)q;VFv-
U"=?ndWi3^enWd,5+IkXg=o>1*bsL-9/#4T&d(7cWw\,vE;([O8p+,B2-bc*_=i+U
U"_>BmB8s(wOmxIoHTGMarx;-+?aN32fA6XjIF5<.1R;rK*I^MQ*QS0B0iFnfaJM+
U"D['c(j(=Ja*5wQDq5m.(&T0(4>>Au(Gva^G>[Og_?</m=7r8Zh[M\*#Wo#WQx&B
U"8_fOpJ<Z\kI6MkmG*ty3MFW8i;QF*.87R9M%ijZEoTIV*4Zj&L;Dd5;+hh\w%nP
U"_9RW<#XvWDhG=Ou$UBtr+#+l9Xq&/tr4K7oG,UhmRZVC]j?71fdxi%<N0>rizSv
U"NGejwD(u'99#1T,V-qZUHP/v,SS8vIiG%;G+.:DK%DJma1Xj)QBmw0:\Lr\9B+-
U"ge?jUrnezN?n/8acy#6\nZ4*#8>4XcIY$rKR)Uk&$kBO3f,av=nfqG9C3hqRTa4
U"[=nOMosMGk_eh'81O[_K(R:AgRzT7ViwuzY)N=9f]1HRA]0a\I(RGuoUG.>#E2)
U"2LG:,6t0hrK[+k;Pk?>n]f%iSeO&ToIg8yGrQ/5vH-Z5IFJJ'n?UMeH8#[RDD,x
U"TPNAW[Q0Wc5M&U3rJ+e.2zX_q728:gJtpWKx>Ludi9Tbx_Mn-<L78ky1wn?/ET?
U"JI6=N=PF>x1b[X$DI'Ne_ne6DLHG/#(&Hy9e#WVFE3%1('Vl]K[_J4+E>_&n+I2
U"WN.EnmqEcbI.%K2mw1EbUIJxTb]Azozd6m&u0iVGyKAow-uiQjtbFtShP8iin:.
U"s:H#pTf+EfY^43gd%5x1^4Id>%_Y^G4sd%H_i^4d+d%_rjBCeNx'hVs,^,M#OHN
U".ekCKLV5hK,_0:r6nGLrr3OT<,iWcI6L9,Q5.)TtMFiQ--JfxXo+NBN&BWe%vb&
U"$'M3b(/bg/J+<?SasZ9edf5\P+V)Oem8H^AqQI8DQ9(X/eo9;/*Rhs21'/;6zoV
U"G4Mx4l$Q&XmsE#W*R95[1?y*yAXJ62]<vNK#bAI4Z37nw7Q;n_2t^%te8?d2G1S
U"*64Uey_9DvSz)2BDZ_0+^wU69Go:[[v*WE(BL:dFN;82Em?QMV)f58AY](r)_iq
U".wQ1kS0#wkEjrLQK/(RL7slNI8K,<tZ^O2h*izaC4Tw[?d'Q>Nac^TroZs6oU>M
U"c8>Epk]1Z=/4scCw;p&iVi6^/,*O:9me4xo3L+yzrHGK,rm^'2p*ks:ljloC]24
U"C*Yh$LTU1\_LB:^Z$0g0Eo)SN\)RC/*=p2CZgkGp(M[R1/vY?;aHrW5U1WD%H8L
U",oId#$aR/v&BC&pC)M8L5wI>1Nm0TM<<GfP%zphc>%Ah2c]\/r8LQs#j;b)Z/fP
U"RA_g7/cLy9i)D$989*^(%W*2w]E(8;O13[3QZW_'6&qp+5uRVS-HExK[_#*V<F0
U"+f3/&4hO&Qv8a\>ftQEtakXDgkv%Nl>3R\/F,gli9Y[&;FOr)RQo;C\b9v/[([E
U")]b_oMa/Q)e=89b[6[xF%#3Mj8+_)e2+.MOrbqf31J2'FZgZ0#+4(MpkKNzcT^0
U"e91tU(KtVw+:\gR.2H&v=g)(bNm&([:bxgXJrelO,LF7OCV;MIEn5j0rz$WX&rJ
U"(Rt9JAqIHc;zIwk\zrCJ#fLFAC/P3YMA^,R9ENAa$7^y,M7<GGW)(Dud4v(D68B
U"6ycQ]9%sv;>V+QG5*_j?\K%P$7[*%Uy&#Oi#a_7=Bdl^\'kBbi#W-Z0SlAx*o2.
U"M.4Z&cz6//:m7x>R0aTP,Zc5Q%P>wOBD9Y\yz=-[wXF\Z3K#+84PlW9B<?Z;9zK
U"\UtrDjD$PRD4Pm?N/B#7K7YGfOeLp(Tj5$Z7'?Ox2lsP);NS97QKC2UgnvrE7K;
U"i2318#o5NHjWR%7VZ9dZtHEq]T7J]9#O5(iCy8Nn'p]qiwC:HQsK+V<]xw1aAKb
U"frfnQ^4$V*;hmHW;2)HYjn>:WYkr3;7mQKhJbSel&bTlVY6g=;4Am4o)25AS#Er
U"G7opEZXIBuIbUU6+yOe<(uJB(>?P)e7_DGu+C^rQW[mnk'?.8]TTbrLt\mPyhIL
U"YJ1eeTpNoe?'78i%K#K.)?myl_B9&GjOgo1W,mMEjL#N#8?ShEOI2jrfxq9pK4R
U"ccx5nBC=Y><HKjZ8f\\^.Kj:k-eNA.hV>2O7P2/v\*VNh#/z&Ngk?X7SkYO+K%/
U"SQ<s>*2g1)siKD6j8&po7?cb3J%N%Wy[g_tP#=PD>a?S0T$0/.^dr_NN^HY/w(/
U"6_io9S+L?yhs5R8n>[al9:caZZ:qAs+&Vb&//#St1=U5BOpubu^d)Rn\QI;vCk^
U"L_4[6aPBu;2-VteF^l_GO'El4TcSIxfo7wO[c#,a_+ayI1N:V+Lp)9w5'3F<o6o
U"$OdeYk#G?,6\MR0Av)3.+a/v-[>ZA'f)k:.oYpOi]17cL:PDg1vhzn)zlbTQkXO
U"k(==lRTuhD9L7yD7A%o$t-6HQwRVykC+4e#/EDzaTP&5KXFw6=W=z4Df^Vz*^Su
U"BSfS)lru3(sU-4DQIB=J2*7\grwKVBEKJ2f5?[ZwqoCp'8+UEgrLv0]G1pjOmxK
U"=RlMKsv,nthl9L;&/w+df\vS)&r4Gl;8F=6e\IrRTJvBgTUz%Td#:-OqRR86jfp
U"yeg/$.&]1XV2M#LX6i-L:J^XJimj52,HE$AhF&1ign)n#X9P9uHqf>gL2i7g[wa
U"B*uWI3<J,\/X;C3,H^-PVxN1)p[2-%/=YpNG]]]NG'U$[_.Cjtx5)ngK*=8+#3F
U"wu:&AtbZXlior8uC&N%tDJLBNU>jHu&18S>AopHvVot6FvA<\_7G-iMh0>*$=VL
U"p91-[GjiUjdUs(U\ES-3icr[VGPs>XxaP:i4S<&b2P4<>Qxk'R/;v/e'RNDjXMX
U":+q-jk&,c:;i#UG:3H*M&mC;N_U(9eXsrXZ:YTNKS+e7520bmYX)0'q\>*9jUOQ
U".CT\TIoYKD[1C&#GqO[k7HKTe&=,UO>,H9q<-UY*_'PRnA24=;,:X0\A5h)uk:7
U"p=<2G[Y?MH+/8)Pw>mBr+/>XhB8/[9MD>0=yEaJL/e6LLY8r1;OdYaNin6L(YX4
U"yoAQisB:XdiNMVA.9LgJ/QHv7a(d%O6_5.dtK<17iOj%'WrBIlrZ[e[+IVEd-QE
U"<();:IsgrQ-W<cHI<#aKU?H]fBC1[bJ(7/s41a%&sT^+(KrW+(OsoL*KYO4Asta
U"Ef68(#=a]ds'aL^3b&7RALMAF^-x4JTfA;x5(*AVrJ+_.><1S?^;8O._9ZEL9oK
U"3k,+R)2N+E,qLO3^s(8]HH53&aY1ltc\J1EIuA9$z9CPmvg:[cSW4<Dao$fcO.(
U"_QpQn1GMe(F-Svb;:QGC^RX<FH^_4iY(t>M/GO95LPxx8z*735u<e3odk'Ng7C9
U"Q(k-D4Kh=]'30],D.T]2Ah4ALsg.j=uHre(Mhn-[=OtVkU#;NLiAYir>CfUE9hm
U"/tPJpI3i4'pY]KAH#cArL4Bli(jBTa85aS6GY5'u>(#$3?9M\<D>\TP_)st=qS)
U"d#=<\)Dy1bj;%md5>Lqmb&DMHfZx+-UqGPSN8HWbp^]#L\>v(SCXpdtD#mK?<,]
U"h-[Y:N3X;S-F\fcORonP,d8./BH_kUdP'ZMWYFvN:#K]6,B;KWjaG-9zY&A.lgL
U"JhyAdHNn%o;=P_WNZoy6LU8+VsJ6-*(zJ]K6_T;**&]FP%da-Rb%7+AktcOQX<\
U"N$^aE_$x?289YKZZ:Ad:Y6kqb.$iU(A/'?Q7#]Zo<%wKM&UFx>BF]kucHL&2Wo5
U"38AI_u=u#?\)u&5mlQ2Hi9aEbW&pH&*zm6NkKx0i^,:CUzg1Nn'0p?'bv>V%65J
U"\)6]^*<5Mp)7eKH]InqtAXSes16cdF]fZdgkr1'4K7-w(Ej1vTIQ[(q>:r'-G19
U"]GTL^[XFAMrZ2QTF[0Fxo>mS3bPFf-aQAZkYTaWa-EEduyd>0\&2<s?Ub9t.FvJ
U"PZ2TuZoMuU503i5a.-gV3i\cFJ;$&nxJv<L(hE1&Y1V;>T=I)#PBfL>DEZ'6G#&
U"8=3?d%a\\o7oN80SVDVDW_4ktFk32Wl*+1i)cCBce]bhn2K9a#9t<u^mQs5pfI0
U"=n7F4RKP?mOQzF]ciSDOY8/Dq#wr%H*i>eLXZ,+M=EQFrlU1i*:D%Hh<OV';2'm
U"_,/xus,0lTm^I6OA]8O(Z=2Q2k/*_oF1KoR1Aro7lFdBWVLnx1nOxxi?9p%F=T(
U"X%J\=c(\U/M5)k9MFMvkg>5\[87GJn91SPZuSg5z,[S^8d*gh9i=Gm;>O79R%u2
U"z]4]=#;?G)+t]f.FISrm341j$.Z3F4A%^*>vPdun.y1)Isvfk:#H4NS/:$H1YRI
U"HHteN9gBq[S4%>09/hc2Mms=5;04d%zR*UrD)t].=Q#3nFKN??j)5oTCss6\$m)
U"?Ac$0tN'K]e'r9Kwxe(8Nnsu'2(.hwT<3JHmb)DeerCqGo]iI8,YW/iXK'IO=>f
U"=pY1/S_Y*]+P%bC:&Fi9>^9*_nqHGb&(a'&>TR^5e?,C>q?tW*0LF?^Ic$l[<=q
U"ha'>hekGtNdoUO9bQdbSR#oU)X^a?)#w2<Z8t.RWu(QY(hxnS*Vj9RUsdYF?P%f
U"xDliLstaLrGrU+$d?o^:PM:0n:M/6<K'A[u25hBlQQaL\H$[,+W07K*MQW(sH9a
U"tTU0HdXRkb#6J[e7YsO\8tmSPh;*VUo1vLwmNe-V%O0220Notwc<<]/;7zbLA-X
U"[Ao=>^pb^(?Z\)[g(u(Czy4s4X*osu7N[/2Ybw(FF1KZP&+jVrx/a5_*/VJ5y5S
U"]3TrvNq#2Qe9rp?gasX7PFW4(S(JQz'NKew6[QwI]2rR6X_31:noq.]/0lB?Xs*
U"pYkypGj2<uC[%3h?IWU>uw4Q(s.$mQB;mszk5jO2Hac)-fWN#0$5Y#3Bjaw>R(U
U"_8b5e,''?1Ay2+g22s5#^iA9J=vbpkLN?DdPs)1V&z>s13q]9WMqKk>:[aN3xG(
U"BC.zgI2]:Rle7?V&T:OZm2'duRkhm^BMS#/nG);oHkv#KI:-K+=OU2L:sf\#aT5
U"L9aNV)<\>djY2_:RX-R2*ZNY**5WjW1Z/]S[W+P(EsP'EJNS+n*?nrNxZh=V>Du
U")D:B'fZ8ZIj*ANl5Q>(3WDWFcTT4,;RX&&Q)WJ/pGeFH'5uZ,YMR(i5OU>fk:hv
U"lQHClliMo\<O+x3,dXhMJ*Vr\FP_YeZL..)u8A'W(:4X[Uo>l3OHOOU=Hohgd[&
U"%iw-kzxQFtO:#L>jBa?eM#L&B<PMqN8J/l.YGoR%Js;6dN(=\%G<H.uTjaat7m#
U">X)'?.mO<.4UL3/CjvL1C=2KFK$5ZW[Xl0)6MF3ZJgg734jP;*L);9BzAm=>H5$
U"*3Cgfg<leQR0CnepmeBg#xm\733-=qL4AogHG$gb*=Q_CX]f:*Vg=7Ho3AtU6K$
U"998Ae>G=$Es4W\$up20=eH2:^kTB[PVMTNLOmL(co9YvO/w^(gpj'1_3Wp=<5#v
U"&h]:z>&4^W_6(LHax;iXZQ(1Orhc.U5Nqsa#e.$O,CXc*PjFy4)S4QCZA$Qkd$8
U"T=M4+aXG7o5Ob/#Wj#Q&aX$5)Ao0SYN7^^\mF^Z#:)/s*Hnr5#JUu?f9T?Tav=-
U"=*)V^aiJzVE&<<?x001B_4h*X;#0+Xm/J,DE>XT1g6cj(O'0Z]^c#;-rYSrbIV3
U"%kyc1WHOnscNnMu;ul.MGI9Yi9Bg3umgRS)R2hhbbix_n2]D.(PSAV9[Cv^R6ZH
U"dLt3sszLHdnyB[Pn\5+KqP6ZbH(kdm:lZfQgH6Kp.^Dd$0j0zs5$gBcE74XG;v)
U"]N-G#Log]DIE4cRJyQrJkW31NgjN;d.arI,r%4;S=JE-,r7gX,7dkv),^)3EOLf
U"l8_l;D3eQsv$ah*K:K>/jj3W/J(gZsLl%2dw;hI_lC-T_C&<SrI_/_M;fFv%1iu
U"%,a.,x1mz*>O-/1*tGtrdd.^vdQPP,dd5\rDOp^6*[j>?-rs1SM8#R;cSEgoKt4
U"t0bn51Z>D\dPD'5wGsAt.D$fbKpW.Gr48ZM$.yDd<OypwV>M\'zKgub=nQnk($A
U"U2ipP-N^m,(-eZU0PudLXpDP$qEAWN.%yX-_sdn3:%PD$NQ?Vv&JV,?7e]0=e>4
U"\FSlT4[d=2*SG-D#iU8Jh(7]I#9X0#Fr,?afwKR2:>:jr(&AxkvVM.MUrGPJ8-m
U"BSgmXm=T*Q<Wvk/\]Q\P*<evHi=jaIkI)oQi)Tqu^Ki<Boy9+*8H/2$6ZGG)v&B
U"hil]F(QO4^I%zEx/jWV;pnlH^%PaBLK>G9Z#=g/U#re^&PBGX29q2D7'<rRPY7,
U"LtPS0hRHF;C50EZkxW3$7+KYrMM+JKJ*eOQ5bVAhVA8+;*JV7'w4iSrM<ib,TLo
U"hcG5=M[d0v?Q?k7\TDMVP1j7So9Nnr%z^,gn,Qa]J$#IeM9FB&/bv\%b>P-iHV_
U"-wuHhA4nCDdTSI4)BOGdvILQe>llaZPI4\o-vSXxg1-kp#]l65SjNhr:zkt&AhS
U"^d<VcLXliZgm[ASCS<CpRP3^urP([T3xe7^148UT9(D0?3.q>(y3.[K-yu[q5X$
U"^N&LB0D-M.<9UMwQT0FDJnz,GL#<pOY=ZC?JVe-H?(#eXOnRG>Vu,Q$V_Z:+T9[
U";H3-=2CM:x.j6cc,<x/;jor8.r$vfZOq)VDcVuERYJ0[I?sel9P7OX.LNiMpU&s
U"/_;ZMaH7PV[#$u+n/;HimiY%iqu/UtuNPl;OWGT)#mA)SLmH>lo31'Y(aWbIo-t
U"Zk81W2Ar:VLd-lJZ+PtUW:iCX#-NZ8?Ekl#%.0pi_0V*xS5ib5U<h6j=%SE/0%r
U"/Ss4^g,vM7TrK1$+C>ZORd),LRPDMp:R('RW9:u:p[\<-sYKNJ1>KY5jE7Zn4>L
U"5^O5U2ck6IbJR-of>Pq1^12r4Y2dJ^/2(]\\21;Cm(5iwgQV\l&$9av>I-KzsRH
U"v=C,vgy?OSV2j]feikT))FW$B5Z&Q(Hx>TLAC4BTYFfrG-3*Kn'lN2#$[-X+_.d
U"W4UCAsRh'^ju[p7RJ.,A2dbj>:pd*YFXgo1SF?*9/q,q=2#B*>je;xD/F^<^4rj
U"y[]*mm5m8F.dIT1g6Gc%B'dD0Ien^1I'Ms6Cip\&\Na8;k15&qZZ7$r_>(PAR1&
U"DRk[X9;m&'XiJhpZJO9N$AX_b&SsL:iFSmC0i1]eEPLP*-J>pSWH(P^Zx.f:oA:
U"dfC0,CaW]:]kGhx6(11O5)$52L'Mu/'omd'Nt<;oc2otHM'NDz9;-5CdIQjXraP
U"?S>4JWBvg?U*gXOD&2#Ap#p?)iM[sh4>#P#N(o9m&K)2&Z8a\nl>Y1D:ik[*_l=
U"q=uOFfarwm7Oy<10,edu^rAvle2^m>UzzuRA+WMa%QsrW;IzT$m44CEML2&w,15
U"o<?)S]*<];DD]D:Ss</];gNA9-.Z*W>TsAF0EfmMf*6=^0Ie8U,W8Xc1?u<#jn[
U"-Sl8J^S>;_q-ns10g>U_g,9+)Y'GSl>>ISq_U^bUxH*9)P6#gYeu6ObxV;XIxVg
U"k>njN-R]\P.uZD>Nh\+#XDnMA$c^T1#4gE^H;GFj,FC+8O>bLXkg'&0A.UyjX;_
U"+PyMD\zFk\gd'K_#)X[44aP0a_#a3[]pd73,^*\*f;*$^A0j)9\SOr*uS.Fu*,2
U"+j152Fr:Ou'F06BnH';[AfCAFIOdIlEcyMV_h=w%Q'cz=oP/>)_hh6pIlr^q>e]
U"KIBFmwzK:zGaR]9r48K*i8iey7,;D>Q;rW^#$6ioz]srrd(gK=<&Fi[]KtoK\n;
U"b&nDPl4hk7sSG5Z=i/XgHHq$JOJ*C*.Agb<q&\OW\NJ:23IV,ew'AsA'1=NbK'0
U"T4SUFFNh_Az/_ZmLdTRQ,?j^q?hcJ+w=J3,4oPTS17#E]J>#B.GowLxx1gr=7Yf
U"-xc\=AfsoH<x)J_zNJ<(sse&X?Y.7nnjf=Lq8u%p()9%%%%-%%58FCACJu&-e)%
U"(%_3%%%0%%%%izs%ljts%SifyTfzT=BT]5L14_N5]qq9O<Ff#]HR-fa3?OI&3o\
U"$>2Z:)9mI^Ro-dp1n3>A<^$95<QYV&ZsZ^UGk&hX2^TtIC4Q<qWVQq[BMg;#e&s
U"zBU83BAM;DBEJ%(P(XCcZZhSI^Lc0',FhWT[vpk2AExrJ*UmEq(ql,1V6FwK-*H
U"^u4pqut;;R6_'xa1J&rrt.4/Hq2xuwE;T%^OlA-Ggr%$,G=]4q8n>85e^uTHC5g
U"\L[7GdxoEfyJ-;v,j)Q(M>TouR\Z/wXsU5ob:R4[/A*'I-1hhV;;lYprD<LRRT8
U"AdN$:u]&YYX$A>B7oEI3(&S&Yh3TxT^EJVn\a=j6_&_E\T+5=Ng9E7?AG,4(gSW
U"labdLNWZ:9.y<^rI?Yu=ZjKRf]IuM^.R7^iW&VS3&GDIA^bFB?-sKU>YBC52ek6
U"eq\erF+M:96uS>3vu_2T%Q-7,t0K$A:)P'Qr5,r,ZQ4>ouxMQk0.,=>M;W)Xk']
U"b[Q#>E<.or6;224EaVex#Ce?v>=qV:F]\)kIXXX_:%r$\n*vU'mC1ASmh48Fs/D
U"g3&sN0_JD7iq9A4VJgia9*_^*B'Jh92J)=;Y-3O4_v3A%Q\jMYO'tf9YAoIpR-g
U"ZNE6'IFa#G4ghVT'DO.+3%OM\Sjl^Z01YppQl.y3Ml>*5g:Db(/N)./a1Rni[(J
U"2J..Lk#Gst63]f;h/4gt7CIZR&9O._01bN*t?E%h:*i/e)/l-G8S/4p,[gwidUJ
U"q54:4[OTOnTxhB*_uR'/Fxk1>>-W[NCcy8u&a&t<1BxK;94/r>/T/FW9ALI2G2q
U"+XX_eZ<R)cnW%ZfAt84nqjU1hh'/wi/j.ppG1v][.mrV>(abJ^nJMyQ3:dpVlZ+
U"QtpqJ8:1>P]&d&'.5jk2uol_%gZ*pf97'6^K=<8x,ngpsTR&;9i9ag*&ClMgbE5
U"Wc+OMI>xsY,86Kb12Jx<M18-;.0;)'.Dgrj<>kaThyye&-CV^p1vH9\t]kn.Zdg
U"9F9nxM3Z]=+i]K_FF;l).jInL1=eCp,Lszq%C%d)780;>^HR/&A*]IJo:WUP1yW
U">Yo3\5:7J*oPy?R_Z<8]T#STkk2Rj?T,K=*-yVIJj>_6#C-EN#R0hz*SPs-^#Us
U"V+^A.:4&]Vw=+PCO0PBc$8S5Jy:&?9)obJ*xLN[7JrRQG-UZb7^,MAU_lkjU<Qh
U"bWr=Vx:?*(x+MF^:z&.LAyVuS(J<<[itZ=Ge544$xtku8pi)sk(2v.?LY4c9f#X
U"?:NYaBw6h?ueHxWu#6xwZq;\zTWPSnmwdgAjwnEgA\yL9(1s?QSMWN$s+X,cp(a
U"Vt3TjzcOm[PHW8^:WN:jC?k*XO4?Pcts?aW&^VU9YYrfDw??su4Z#+M>[:=o]T%
U"up()%9%%%%-%58IFA#V'F#P&7%%L&%%%1%%%%iz%slmn%lmSiIfy<^<:=;UR5ih
U"dfs4]H#cI3P/?IQg%vp6v2TIC8Df;V-n3L-v3tI\yV#w-v;lH4X'5wC6'2Mivq]
U"A:pRT#/kIbT'aXIuw]?PYQ3uX:+7lL%AcGq2=X]5mx:Vnobq1nlc[SCIH3X6oa)
U"JUD;#R&hsKj]4WBL.0Bv^37nQ=Ni6&%#Zn?FF%cRDRm1>YRhYG:y+]g_5h95OkP
U"7vgBx:-'Sl[oO#)nYZoNIV*-yJOaPLwi(RQlp2V^iAjPfi:%5AA^gbM?3c6f7o8
U"AavHrpy8wb[VONnS']BhW,Q+1V=TrAWOjeZC*Y^]?1CIqU]jkiICm&lMY)k+qDq
U")>ohj9qQG/6:[M.PIYd;\/iqt1a6cT)eVU;oW&>8cYAkHT&.up(%)9%%%%-%5%8
U"FA1]jpdL#%%%W%&%%1%%%%i%zslm%nlmSdsj&&k]4=<[U1jp+'v,go,+8S9Grec
END SUB
SUB V2
U"[u,M[0&#<6%[&jW[=$ewW7q_]4:0BS*>:+;4]#$(8;0:f9ik?[*/MO/2:Im;llq
U"/SMLd[zs<>&Y1ARYX<kDlAW+zMDa\oU%jQ58Y;R3SbV,\&<;(:YrWAxbrR]]YcI
U"cw&yDJ61HK&lFVWPO?%m[\rEEqVkA#io#toXpC#DZy8U[>jrvN%5F]Q<%5W(GF]
U"SUMmL958lx8EGc010+oj)E8qDruHn3DK3J-sUV_WnF1Ydw'GTup%()9%%%%-%%5
U"8FA]rh?A&T%%%&*&%%%0%%%%zsmt1q(MV#StjD\_V3;[U1jpao6(cTu,T#HS_+W
U"8lH)FL_BJ;N08Ro]so9xh6L*B1*h_:eY6QZcw3SH?p^/a[+MXQ[q&fsb=c$(HxA
U"&p$=#hf-^S%l*;y)cDO)VjUzqBU^A/Z_Q18q75f?s8/_PoB0s?tk,tACV9.28vl
U"K'*<?;k^[,AkLD%up()%9%%%%-%58dFAo<5WIa%.%%9&%%%0%%%%uz%ynxn&MVS
U"x(lLup%/gV19U0Wf*WI;n>Nhn)k=6QYK_RC0?fr*r#xGMa;cUGq)57om6MT4id]
U"QfslSDM(N^CM-4D0);9q=Z6m?sY\h0d5X13M%,dmP2G&0%Q4_bjq*hL7wr7V24s
U"P^)\R5x9u%22l?,r+=\_%og.;?D%Q9S-kPG_-=nwDlfQ>__cf%qlyrH,n5&u%p(
U")9%%%%-(%d1$^E/K*(Uj%%+%A%%%%/%%%%wjf%irjS^y'y\'^wuu8?NFp=tFHx#
U"MtQ%7MMCtmToEF%rrvmnyyiC]HpQBamExioATAGoEPGH?L\^'-djmz.m+YLAtO9
U"t.KK6%2df4KLOc3sUOG_dSs;^tAeMIe\'f:4fsK5_&'NeeF+=MVZ[U=qqakE5J;
U"bo1u)+iiD?gGo3+aa'pPLvk*kAb95dsDua(m8l,ZnWoDABee%%%up%&'9%%9%%%
U"%-%58IFA3+4kg\%.%%:&%%%+%%%%%%%%%&%%E%%%%%%%%%gfxt%ttup%&'9%%9%
U"%%%-%58RFAiW.NwP%.%%+&%%%)%%%%%%%%%&%%E%%%'*%%%%gthf%up&'%9%9%%
U"%%-%%58FAN5vCR&P%%%&)&%%%*%%%%%%%%%&%E%%%%y&%%%ot%sjxu%p&'9%%9%
U"%%%-%5[8FAw#DUzI#%%%%%&%%)%%%%%%%%%&%%E%%+%q&%%%ozf%sup&%'9%9%%
U"%%-%%58FjAg;5(pU%%(%5&%%%+%%%%%%%%%&%E#%%%c%'%%x%frfj%qup&%'9%9
U"%%%%-%%58F%A#'e(=Q%%(%&&%%%+%%%%%%%%%&%E%%%%c%(%%y%fjqt%sup&%'9
U"%9%%%%-%%58FaAES0*v%B%4%d>%%%0%%%%%%%%%&%E[%%%]%(%%i%zslj%tsSg%
U"fxup%&'9%%9%%%%-%58.FACJ)u-e).%%_3%%%0%%%%%%%%%&%%E%%%&2F%%%izs
U"l%jtsS%ifyu%p&'9%%9%%%%-%5#8FA#,VF#P[&%%L%&%%1%%%%%%%%%&%%E%%+%
U"EJ%%%izs%lmnl%mSif%yup&%'9%9%%%%-%%58F7A1jp+dL%%(%W&%%%1%%%%%%%
U"%%&%E%%%%F%L%%i%zslm%nlmS.sj&u%p&'9%%9%%%%-%5[8FArRh?AT#%%%*%&%
U"%0%%%%%%%%%&%%E%%%%CM%%%zsmItq(M%VStj%up&'%9%9%%%%-%%58FAko<WI&
U"a%%%&9&%%%0%%%%%%%%%&%E%7%%EM%%%uz%ynxn&MVSx%lup&%'9%9%%%%-(%d1
U"$^E/K*(Uj%%+%A%%%%/%%%%%%%%%&%E#%%%V%N%%w%jfir#jSy'%yup*%+%%%%%
U"2%2+%<'%%%oO%%%%%
END SUB
V2
CLOSE:IF S=1AND 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
