'===========================================================================
' Subject: TSTHOST ADVENTURE GAME CREATOR     Date: 12-29-97 (18:22)       
'  Author: Bert van Dam                       Code: QB, QBasic, PDS        
'  Origin: bd1rsd@usa.net                   Packet: MODEM.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"AGC.ZIP",4^6:Z&=8961:?STRING$(50,177);
U"%up()%9%%%[-%o4\mH[D2#Xz.%%%L#%%%,%%%%fl%hSgfOxN(<,BSm7fwA&rgdC
U"'PBSy-6c9GKGUKJQ/A*:>'X5Bf,Gy'+8)OXJ2$J[q1;.NVXYI<?xqcFh<N2+oHt
U"J3tb]0&3RW;>GgSQLuLdnh76PHl9NV>Nh?(?:6g+QP5mehQ'=+:qW2g(_#1/P>V
U"y\#?eA'[E9V,VRqBOO'i?2m9'096)69j/*17&UzG<1.Z/H4xi(1=64^YRme'2G/
U":B^2Di?ECnTmg<DS]=dY)1)b1wRP,_)em+7Q)4n49aq^=#;d3u/qe'Gv235)bty
U"[_(e%I''ckBdZpGg(5w1]IkdGkc)E+GO&YiCo_7p#7u#tMHsiU7M4:H^K1-=8KS
U"uYfM#:ud_6)=s0)UJTbR^dV5)A'k$GIB[mJ[PYWGhG$+PmWq#r1Z_0XCN>a-:B)
U"$W>N;ssRudjj_U1?2TK)eL?6.2.Zz^IcG*%iAt])x4eW('ry>GA1Tbl9Gqke7BR
U"2g-H8+0;B#uRZ_,R*m^NS2cW%FlHBQP&hdGk9%GCOS3#[vmU7HK3,q6R6i^WX\N
U"nuEfAfDJl,wa>RV4d71cQ3HEM?Sz:QpVVjs[Wr97qjA6'&H=Se;atCmE?O6O'GG
U"M3/Q6ZBRVU31rLkr:H;88uao\R-iOo_vau+(%Xs:q(c?urTYt]\reM]ON?P9m%h
U";%M^X.kOZj07NBo1xS0rjzCrOIw&E=?&B9;93b6nqx+oITNa&Jp-/d17g9PWBv/
U"m.Nf^fmK7cB1hUI[<#O4U=)7Ah]IiDfArQ(r9+qXXk1\M+et7_mpri__=C'd-5P
U"K[]eH-%V5yi_io#BHvpW*RuUr0a?iElSS)FdUSr9fTJ/^)3&<+E6cC5K#We*3;C
U"T=GDV)Kj:K+A:*2Q5mk:)9dma$mK2'Lfz^QSUILKk01smo+[[UpNqshm1FLbjx$
U"C1G)9XR-8s/a\n\BZk+167BR6/)I]6Cz+Q1$ih.--<Dik;%)7VR0+S-R9dS\H7C
U"A-R5VTOcW%i57Elbh+**FU_%iX\A&+6IJS-Z_7Gp$^GvUdR^dUx1\hsa14=W[Ao
U"04W.UXPB?=_7ahkFIRd-g#c]l1WDV\M4S#9<#iKlWn?[Y$_Gt,Pa2,nVC7S6\WD
U"Dsk\ZNE1J(njAPT:WIRjCQiUWmOuZ10D(j4dUJj<O4xVsk\pq^PYdi.8SpIE(7'
U"3[QDXLoS1J6XZOYWo:I;/];-vNmKl%1sq\)TJJi7_ULHA3*F^vPFPpxh^AebSc*
U"Jhu>Q7X\:9Cmb3tMct+bLNHzqdOH2FNI:UNs(ktMurihlog)18Ac2om^pPefu,o
U"dLQ8vAIWU;69)g\G[uV_5PI?tINnns3FFfX(9(JBD:Xv5aWDp+-bPUJ56Ave9+K
U"E(xBLoy[t%ya3=EK=JgsMQXdonTUgf14bb=^m8.abCo>2$I-l.A]?+s<g-PpdR<
U"XrHj$GYpjYg$t+ErJH_3$1*FQ>,*+VZ-tvbL*7ba^DOF91a\VfhSOU'UpIA=I])
U"IDna]kP-uY-:2hSNAfij*tbD;<wro)?ehIb#\l\P,Z($AJO$sXGb'm5uk_NFq*c
U"ScPSEM$?u$(uyx9<:srl&Ce2V(XD760d&269GyR]kujo0$8VTYV+esNL5.=v57:
U"t-[Po4K+M[.O_L;WAc^jglSK#5V-LU70<[A'o,_Ua,UqKH4;99^OEZFgujOUO;6
U"r9)cGv3f#/PS-TYT8%dR%Y63.&M.G=(.0U;pV0uZDS$[%TiA8V&HbvPz=(PtOh'
U"m4>3R9dHD3<R0>iRaRfPtaorTxWE.>]+t_WnWOS[eFxkwenX]FCRhn#>/dx&9qn
U"uF=e9rt9M%HJ*#OF?cq0I,[hdr^W_J.gR;=xN[5N]_W5V7ugF\DerQcDaYrLzJO
U"/I=<4$[9]W3G]fZGi3<8$-#PKJ==zSrdLpK%otI,Ki'9nt*##Fndy.h-qrTU6^v
U"L2Qh^Ql5ki_SRnaReB8zFMSL4.%uF]ToV3JP3>6P]n:v0/oA[.>Knvs<;ju'HIS
U"OzAhc[o+=k1T<uAt9cN(scF.^_0KZfA0E_RCRgsjtl^*8jXoQ=l*hT;oS/AeK7#
U"E$\O<KdM7]/P6X6tmM#6T[cyTeNGvFUW=)=Hmmy-'.CN&c_Xy#x.LJJl$FMu-P<
U"id+dcJ3Fi9-+K&(GxRk1'-w]Rd'-uVh%SgG,>eBUAA\Ef*[.Q(L-9'm<Q1gD=Bt
U"qf-*2j&G/[5\D02,9n_fUac[+_,&43'vfF7t-g?REXz;qV^,pV)sjxjZ.CNM'3;
U"-]rgJLjVO7UE+LK^AKn,_^44YA]>UZM#7rbasKYLA?rNUkrVT#7\NNn)\hA4:o&
U"-<Q<EkkQ6smw2qikPvxuZ&fFrNto\Upl#fps?b;mBss?2sa]oBc6<zpE0wKMEXO
U"VOmYZatjv6BPDXDpBQz*yDEZD1lnxl2ic<=0Z:VJWfCg5i;REd3gT^)nuVYNG9/
U"#U>=yB-HIh#2)q8-^-Z+1F8K2uCWG1_&vW4fS^CTDC.qI[Lt#RG\L-4LaUf8\Sb
U"i9B+aD6ccB&lfDorR27YY0b[KKa3Vr3VY'z[Ob[Pb3d;mCe$w1-.hcs6c\kcXsb
U"\[/eP*2?t(\Lu4b$v>H,[UjNgzip,LlY;vXrc3FM]5byqM*/D<H0XZ3X%u<*u=k
U"_NiK+>>LbeCg##\G,ZxreBovud$N[:X*qZ?47lcpgd%Sp;#'28/v&Ot7PNjleZV
U"Dq%#nt3Wlg)t=tTAHEgiWDH>6PsRg/)i\)H2c1(mtpnY-88vmtnMYCmsOm$JYhC
U"msA*Bb9^*rmGL(dsm>ai>:l2;N^GMJq#1n0($alNd>BnsZL$t?0g6iR[.jFIb1=
U"Ohblk]whrcVZNVUYrJe:6)i*)0X#qg<\M0,Vi;[)TT$R\BL$]y&o\e\<93/rWG;
U"$*kj<(on:aq_g2QE6+S-#L;v\GnkrN76Gqxsr\Tx]seTC)&skt1J6?Z#[q;lKOE
U"P\sV#C.KzU+dmHHi.5L#PiX9cdP%l7$+v=&aIW.BrB4j7%sr2UIASosTm+<s^U(
U"AidJ'Loh0R,-)1+,p1_r]K8;YM-OJ7]jCHM^4f,l#My;YYaZ7xrOgf#q-B7FXLd
U".n+7AD<0jyTKs28nmw>Bg3SqolvjSG_k]kM7=TVAxe:BVk%)7s7w0%up()%9%%%
U"[-%'3SmH/A=Y</%%%%F&%%%,%%%%VU%USutmxXY^%WY%85U5+EJw0sDex'G2+Gl
U"p:(7Zw:aWl9K>Yklo=9kL977:kW\bx:k+8,:wlklZm#9A:Y=XLl9Bk7XB%wx9o'
U"k:oW+w:w/i>Xd>&%EST2&9-/(mBnkG5*gIn1SIAh1TqEEm[7T5sM[q/oI'+D1/m
U"1Fs/g11wM8.uI+-=9[7)3pj_$;#X7pOAy9OPm3pB01,I*ff:xp1+I*wFFH.-7J^
U"6Wn2._i,&F*%u%p()9%%%%-U%J3m4Hw24*wz%%%%e&%%%,%%%%VUZ%SutxB&tf]
U"];U15alcD_X&-Sed,E#TX<%o7I?hr%2Ddu)DM^BSBY&]a;tG?Xl\/AfLt6<.:^J
U".scc(y^*w4(jB?Q>ce_+UI%-T7#FArQY$Vd8O&QRFFeVYcH4iWBi\gP<K[3WdPo
U".j%:9,R^fLz8(g&qO-s/+mK0kx**w+1pwao5AmC=+81MM$IZ$sz5,J*+ttxrcr%
U"hIqYJ3nikANR7J,I'ra%u%p()9%%%%-R%'3mFHDSG+d6%%%%z&%%%,%%%%VUY%S
U"utxB&tV=]<U1U+*a4\eue2=t<pGV%()>:nj[VA&0Evn?utK/:_C(+$[?aVpB*hS
U"uo<?'h]lFWq<\Uw?DlgM[*F6]^'4'nkrZp[$ds2o&Qjog8ikO:#G8btJ^n.pQH6
U"F$X+&5SLXI$SNFlv]]:FH#=UHMHPBJf5?6Z9fCr%BJZr-TOLTC%4#MVSg3^5%\a
U"oNXHmFk=SfG7N\N6J*NqLf%A%?;UJ6kgLJFl:NC,6LKNjHxxo%(up(%)9%%%%-%
U"(E3mH_dL(Y-%%%%$%&%%,%%%%V%U[SuRtx&_+f''F:1UpIZUZ8Os8#==VlHDF;Q
U"f0i%N(6N[&kW0E0wl_qUNJ8DK<^9+ZhtG3l-z6W4(g&q]%x5*;U*bgY^\P1'>aj
U"*lSA?I1SqedMxhiO(H$/&AKxOgk0?\;d%.v.km\F3naP0K[3/t-a=6yl]-o&.Nv
U"kU=?XrFgY+HFqQ4p?[y]SVI9$\46x5$&Zq>-KDe>%Mh#bX9X.V=*LmZ%Ve$BZUC
U"\?tn%[tup%()9%%%%-%4(3mHJI0PE'A%%%&7&%%%,%%%%VU]S[utx&%uVs)7V1e
U"HT^4L,/DP]+7vvLHJpPL:9XKe7br=&j;JkNF0j%1N+?>XC#tsVkogC#nO5<wro8
U"Ax^W=?O]#OYL'd7m0a;DVOp;$<;Eb'FDI1txo'Z65B;uI+L'Mj9l1hG#Kd5'(tf
U"94H>jjeQWR$>.N4-H04q6=^/MD9H;E9Kq6n+1R32Fr:y&*]QIz8u6rZ2$PD<T,c
U"r6s%HY5ho(t5%I(JFpCeh-$Cn-QB-Qw2]1D7t5<WEGXt5qi+Y(du%p()9%%%%-R
U"%(3m7H+%o+8(%%%%u&%%%,%%%%VUW%SutxW&_*]';U5iSJpwV*rPi)^i\Mb#t_v
U"=o[J/G,f.A,6AX2L#/:J-lB>[WQeQ\%cFgu'Mr%4y0%y.^M),4Q&t$HWDDe2ae4
U")fic)GX?-]5lljVG=a4<LbVLA:k*lBQkrM$(z1X.v:W=iI)+6jLt?(d>/9#'xA$
U"()<;J,6kEx;>Z+y2'ba)*A<PxVf&x)do^LRk7]cxj(1ol?g8>9j/8<Mt9xBS-S6
U"%u%p()9%%%%-R%'3m4H,8Q',z-%+%=:%%%,%%%%flh%SithW6'V>BTk7NXL9x0B
U"k9,_X=DryNvCEktu7oKP+^-?UeP<Y(AX0RqF(gKo-%xj[\XpCc-E_27aAZ]UWF7
U"N-l._Tk=IU/4fqwOGSp2yfY?'Lu8d^nFtG,oW$.QGBfQA6JZYhNin0e8E05,ZZL
U"L08X'Xm+8/8Ykb(1yN60k+\3CIr'#;5AKK)#rLWB)Xtm.#s2)#jkz>6uP<#Bo-t
U"oou#0$)BR]es5dPq3;G71HwLi%[96TVp7)Aj&Lsn79-I;*'LMN.[>+*^EX\QZe9
U"dy^kB+C$gkjaM'nQOo0&)I.Az40-i'Gf.l/[0XT9&0E&;uMCLey9dp+W[a1Gb)P
U"#0yyj284r<mp0c1rA411^M,GJ+_a-%O4PiY1*2#gCZ[VM-9jr7%fG8S4#ka]f:a
U"p4Q]'&aPk&b.m>7ySpB%%Tw^4j=KEs.ibF2A#.d8&<'mXEAXMekh0.9$YDImE;\
U"'%y?7FAa8Y4v5V>i%D]\(jLjuA$\Sw]5w[\;mg&uz#9>r(#UQJ#DRKQNQS9N;G3
U"PW,(DB4W_v<0dK[hb?GPI[^x2fF9Z/(E9wK*YzKTBBgg=%R.u]oa?F1Y*#w\li8
U"QG*.um8azP2_ki,RwglLrfSUqH,W62(D5g:y2eo,Xo,HY-=pUiim/701EJB'hoU
U"'TM<$BIL'8-.iPYe%kARU9Znr8.vu;nZlJ;/-3>H8vvb0&L6Ljd5HrlgF#/&G$8
U"ge<VsBu>^[0Z^^XMM.m6nLc+R:lA)k;Ce0KkSzBMS^+UCQ)ZZJiF3Ap4pRhscS\
U"%vj;B;(w/5KpAVPm>i=?kfQC'Tu/l^o/f*,$hb5seLmT4w$tks2VUMo9oC:BvP-
U"]hcCf,_:bu(cwKio=ln4?O/Y4N]w(BkcO\,DaZq(')JPQAXMrqh=M\0>)CoMaM,
U"*.JA)mQ-.kfo?h>,1Cc1-[hAn3E/$K3PTP,,%b]5NmtI&lO+-';mSwl%1GoG(or
U"-TCV;og3f-O[pln=9alOkPPZ;_;foL:qbWCX'$2#m8<3SiM)<T.g?bE)A_vKA2\
U"Z<\g:,j#ag&]eN^BAOX;Z4mUsn;3ds>\;63gCs3/q=B#sUMT:rE5alELh]b?hS0
U"N['.1l\%tA.$3gobJ59Mkn.UboO8k21[Ui?9^JV'q$-W;9Q<$]ue'qbC^0BIn3Y
U"D0lG?1.bke-O/js*m-6n&tm\wQQK;W*?1SF(KFb=^C5*js5x3:pd*-re]J<I10d
U"3FN6]NX\lP[<G>BM4?5DYlm<H6hk^YFW<N6Uk9%HA#)=;aK,/&2j).Iolb]onW^
U"n3$PV;n>AWsVSAA3>J?&lb=d?K:>dm>LmWjW.*#ZuwumaQE:bbZJ6Z^PU:2$^?k
U"kfqwauU+n:RM)1$k3s3g:FHouUW+#fu/[g2A1IK8g)/),f*lO?>SuM=%IK,07GV
U"k8(8[Gt07v:2yS/uSGS=q.y4>+^a:X1255NGL'g#[8<F^Jet1\4WJ\cKl&<NSL0
U"X'(9MZ=i#7FPh(+rn+K]B-JH5iY,nM:)c+$VEH<_ew%f8gS2r$t+i3Y%'\+\0]q
U"kuN6_#P5C56)^,tG<'pbt6B7m;wD'q1v;So(%^TO;3B:a]Al.Hh7A9J([0D:6De
U"^a&:MQDkmPmCG0hcHJa><$_hFf+FRYNpvObcAMXqZP>j1VZ?q#_3LN&[RFr\%=_
U"Wj&q,a.AA$Lb+^T[m'94RTvGK2r4&:Z.&Di[Q$%dxEi/ljn)5B%lruOgC3]LFH5
U"4lC>Z\>\3KlK8uVmlvbClNlkuauoT_.3'56\i_qoJBE>FlpJ^4>]IUcq4ZK8-.M
U"dM]BrbX8koru#9k$]qd&u^jlk+&$Db0Dy=Q++:HnF8C.-<Bp4h>^#5Hp6Fici(/
U"hG&dN6xdtT1kHaxS14Orui#AdF1+'_N6XxrIZO=/MD'XLKj5?$aC9SV>(sPoRU1
U"Lx'6lN5K]$ScHl?(^e8p29GfmN3a^-ISK$ODL+o>#Vv[=O&wnDuGpX/fFrRKXy;
U"pSX%vGD^b0dr/P<QNp<(3p_=l^q?2i+LgtX7,?v2m?o3PGQU<UvcdQ-xtG7kq'Q
U"]-Spr3kic2%w5Rd1&NXihJ/ss/11]<SC&_G87qUW*c9EQpnJXuv;z-&Q+LDqR\U
U"CMVTYM]6Fp*6)>QH[Nx7-r+?4<*y<3P]AN2GEjThliOP(pz]wR/Z=Usn*P<Ku$5
U"/Wal2I9X35hG<QV1)g3PYL5;7/'+CNxYqk9#j$=b6G?o\x^aN]Mklr&k#?tZic7
U"Ss0(Z=vI\W\Br/tkw;W;^jUwT5>oG7n,whukZI1KAa9=]8a=UI9uPlk\\OAfc_O
U"4F=Ql\3lN/dO>Q.NO<tzPlvFF*o8CQXQW,NX0r%a3u<r4(N/QvmUY$]SCD/3(ke
U"*cD;Vf4(mem&cZdWp9d4=9$N6-h0Xhl,#.6sKZ3/O^3s1'<=0R.nZ'5atAE7Qp(
U"af\grHaqZk?t&aSlJMAV,^Xt>?$/*3s5+H8sSt4G;.LPGX]B^FJTF/b:KA,I^t2
U">Cr.wRsj17cvXCSP4Vv<eWO'pfzCtqrJiWML5jRCIsUX1F)5zQNz053]S0Rc-2>
U"3M=C3+9kO/AgQi6mPqYk$d4uMa^w'#fYteaS5fT,6SSo8)N2XY'B0GT,9DQu[hU
U"]S9?d'o'7]24QeHQ3VYS4cPRRTFTt\=7b>h^nzOFXnAN8HAVQ86qN1NdlOGGkUY
U"SdN%&up(%)9%%%%-%($3mHU,lORg#%%%e%%%%,%%%%V%UXSu%txXY6Y^Qf.ExfO
U")OfPW]8yF*[MzF*(ipIH7zF.G',iFV[TjF8%EZ4QMaan.VsvY(Mq_([Lu$hfMai
U"iq-AD*%%up()%9%%%[-%(3/mH.p(gZw%.%%'%%%%,%.%%&n%sSutXx\^Y.qR%y,
U"WETz'AmQp+zArq7nzAQRvMB&+MBmz=m&AQdvy?G'HpTo7RNFnsQBEHFPOvw\SNt
U"G9HRAn%Rnr&>x_^oXnFF&7mtEr'N(%u%p()9%%%%-R%(3mjH&^x*ov%%%%-&%%%
U",%%%%VVY%Sutx=XY^W%YU(64K5+E_w:-=Ry&5+5$rt/EBXjx)8t^^nd/2r)4x/e
U"D+suaM$y_bMiamy^ua4_Ms%3eKaNS6,s_Ny3_fy(oNJ_]0_<fM(9tKKh6suiMA4
U"eOJ39YB%W097]lw9K17BA9ea7b,R:Wlo\U9%F+%rEa+H*iF7JD%caJXCa%\b*tV
U"TcECJTiT[Euky-.SH_eJAs5=j7=Wu'K7%u%p()9%%%%-R%(3mdHfoD)Qy%%+%v%
U"%%%,%%%%VU^%Sutx=X]^W%Y)6+5e5+Enw0]aRw*iA4j_fO2s3uPdIO3]*$sOIE_
U"tMsL'#8P(g5Cu9)].a$.wE,#Ezlp%aHX^RhF,'RFR8w\sYT*.IZvw1Ftwwq^fD,
U"(ip]\IZLv'8pM*IFH.mp4I.wM%XNLzs4]UiG[=7T2cKTon_zro:e^aNeGOs$.P9
U"f9LJ5u6AcMI5esKuieA>P=&Zp7P2PEt;At'^X'2%up%()9%%%%-%4)3mH.I^zs&
U"y%%%%$&%%%,%%%%VVUS[utx&dtV=<7U1U*Ta40H8Yv#4-aU<9LBXWe/SO5eoJVu
U"tRmnJxA2^AGOIhWJNl=iuq.g6lugMSLN8cF.l+Zq-:<gC;g8y+2eP?3:jRXG=eV
U"F&U\(4)KG>I??SCB&R/pWJl$d0N(&#iXAGc*UfQ?tl1ev(J/im1xbQdQRK#KW)H
U"Ji*H>+&TXi.fZtA)bP7x?iguX98o,;OjZ)puv;4rr(,Z>%Cup(%)9%%%%-%)*3m
U"HXo2nk4%%%%D%&%%,%%%%V%VVSu[txXY'^WYY%'6e;+-c?'%Vz%TM&3MxCgAv1)
U"H]gnLvM8IJUg#M/=O_M7OvAt7xMAQamNxi7QvAQ&%MpR&yymn4QC%mBEpvwa)bp
U"E%xTvMmsr^^4oEzQ?BAEp'Px%?Mw-cyM_eiij(]RM.:NcLJ%Oc6De3eGm>ev>JI
U"E^S/6IeM5s]R2=pB0,JI67h:gI7gA#nv1D5IkXCg1k9A1/Tf%6ya\LD7CMA$gs9
U",#*g6%m*T<%%up(%)9%%%%-%)$3mHQ^kg36%%%%D%&%%,%%%%V%VWSu[txXY'^W
U"YUd(7U?E5+Ew8:-=yO&5+$$rt/B:jX^^[/Jjr,tb>/Z>r2x1eqwi#Fdrp+E,Ez=
U"t:,iOF,'p4Q.ww7FJ*M&*FVTCjp7s[TVt6(ip]Z)dfPV-(+IH.XT,tL&7oICvyg
U")D993_I4w&sLum'xLum(a4&Z4%Tn<dPIa7m$M'q_a%4[QJ9XCaj_o4/b9r/>Jgj
U"Xhb#>J/X1>xXN*5+kuQjUKo-Jrj/p^x>>%/jE:*5+%u%p()9%%%%-R%)3maHCf;
U"*Sz%%%%W&%%%,%%%%VVX%SutxB&tf=]<U14F#iDGWDx:apb/$6G/Qv\6NQ7?=:+
U"KEu8(Un4.LP5(*Y)de1=U*Z:I98.1L.t]xWVuECUn8_./OTnkv^?139_0?g^Gbf
U"72t[E:IE$e-f:;lJw7f(1d^+S)4D4VlJ10_v[0l?[5b9R$BQZf^devu8o&A#tKh
U"a2f(aTOTa0gj*NcCJk2chmw1\t;Mub?l<$jV$=Ri*Y?&Iu)>utu%p()9%%%%-U%
U"J3mIH_Xa%i-&%+%a&%%%,%%%%VUV%Sutx'&vbt]<U5VaRrd5)\x6j)Wd&VAClO[
U"1sLXtN1E3.>Wsh^F$mD/mp>WVitY^OdAD.SQ$RiE^4YAwr^'l_I/r:[X\UkYG4&
U"&=2EkyeX':$+1+k(9pkd[K.qmhPJP*HpXyZ%X#Q7.rn1Sr?Iq_Nw^o(TXs(7gSB
U"::ttXTNNJgo9Kpr*5PTHQLs$B;0YZ:'l+*D%f;C8AVci_A6TcD*G31fFmPp:),,
U"Th&qL%%1qJLRrcnXbE[^Zuvlm*I$[,:FOvu#(6&7OpzT/MQvn.8Br2^DeRVZ]5:
U"LARu;IW_CAkMpYztuyf(+kYPHOl_pH(lMnOp]dVWD:.;R%j<%up()%9%%%m-%h1
U"emH[+2YJc%7%%i%%%%,%%%%VU%\SutmxX^^%WYU'X6_5+1Ew:-]=y&5V+$rt4/B
U"Xj(jd/J(>x/^AXNNx#j/nXHBReMLvM8IU+'5s%YTTZ(lpID9EPAQBJx%8%qQoz%
U"mtRNcBEp$o^OGH7rRHm[QvMB[QorJ%(^YAT=rB&/w)yrHB0,I7ff:x[F$Z.%eFd
U"t&paVL=#%L-LI)c)M+q_w2_c('%%up&%'9%9%%%%-R%o4mRH[D#)Xz.%%%L#%%%
U",%%%%%%%%%&%E%%%%%%%%%f%lhSg%fxup%&'9%%9%%%[-%'3SmH/A=Y</%%%%F&
U"%%%,%%%%%%%%%&%%E%%%'I.%%%VUUS%utxu%p&'9%%9%%#%-%J$3mHwS24wz%%%
U"%e%&%%,%%%%%%%%%&%%E%%(%z/%%%VUZ%Sutx%up&'%9%9%%%%-%4'3mH0DSGd'
U"6%%%%z&%%%,%%%%%%%%%&%E%.%%J0%%%VU%YSut%xup&%'9%9%%%%-R%(3m(H_L
U"(,Y-%%%%$&%%%,%%%%%%%%%&%E#%%%,%1%%V%U[Su%txup%&'9%%9%%%[-%(3/m
U"HI0;PEA%.%%7&%%%,%%%%%%%%%&%%E%%%%[2%%%VU]S%utxu%p&'9%%9%%%%-%(
U"*3mH+]%o8(%%%%u%&%%,%%%%%%%%%&%%E%%%%H3%%%VUW%Sutx%up&'%9%9%%%%
U"-%4'3mH$,8Q,%z-%%'=:%%%,%%%%%%%%%&%E%7%%p3%%%fl%hSit%hup&%'9%9%
U"%%%-R%(3mjHUlO%Rg%%(%e%%%%,%%%%%%%%%&%E#%%%#%<%%V%UXSu%txup%&'9
U"%%9%%%[-%(3/mH.p(gZw%.%%'%%%%,%%%%%%%%%&%%E%%%'Q<%%&&nsS%utxu%p
U"&'9%%9%%%%-%($3mH&Y^xov%%%%-%&%%,%%%%%%%%%&%%E%%%%t=%%%VVY%Sutx
U"%up&'%9%9%%%%-%4(3mHUfoDQ&y%%%'v%%%%,%%%%%%%%%&%E%%%%#>%%%VU%^S
U"ut%xup&%'9%9%%%%-R%)3m#HI^z(sy%%%%$&%%%,%%%%%%%%%&%E[%%%c%>%%V%
U"VUSu%txup%&'9%%9%%%[-%)3\mHX2=nk4%%%%D&%%%,%%%%%%%%%&%%E%%%'2?%
U"%%VVVS%utxu%p&'9%%9%%%%-%)$3mHQ^kg36%%%%D%&%%,%%%%%%%%%&%%E%%(%
U"h#%%%VVW%Sutx%up&'%9%9%%%%-%4)3mHoCf;S&z%%%%W&%%%,%%%%%%%%%&%E%
U".%%JA%%%VV%XSut%xup&%'9%9%%%%-U%J3mIH_Xa%i-&%+%a&%%%,%%%%%%%%%&
U"%E%%%%p%B%%V%UVSu%txup%&'9%%9%%%m-%h1emH[+2YJc%7%%i%%%%,%%%%%%%
U"%%&%%E%%%&GC%%%VU\S%utxu%p*+%%%%%7[%7%3%(%%V%D%%%%%
END SUB
CLOSE:IF S=236AND 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
