'=========================================================================== ' 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;.NVXYIGgSQLuLdnh76PHl9NV>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?ECnTmga-: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.--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,*+VZ-tvbL*7ba^DOF91a\VfhSOU'UpIA=I]) U"IDna]kP-uY-:2hSNAfij*tbD;3R9dHD3iRaRfPtaorTxWE.>]+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+=k1TeBUAA\Ef*[.Q(L-9'mUZM#7rbasKYLA?rNUkrVT#7\NNn)\hA4:o& 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>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+Bg3SqolvjSG_k]kM7=TVAxe:BVk%)7s7w0%up()%9%%% U"[-%'3SmH/A=YYklo=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:nj[VA&0Evn?utK/:_C(+$[?aVpB*hS U"uoaj 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#nO5jjeQWR$>.N4-H04q6=^/MD9H;E9Kq6n+1R32Fr:y&*]QIz8u6rZ2$PD[WQeQ\%cFgu'Mr%4y0%y.^M),4Q&t$HWDDe2ae4 U")fic)GX?-]5lljVG=a4/9#'xA$ U"()<;J,6kEx;>Z+y2'ba)*A9j/8BTk7NXL9x0B U"k9,_X=DryNvCEktu7oKP+^-?UeP6uP<#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"#0yyj284r7ySpB%%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^[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)\;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]JBM4?5DYlmAWsVSAA3>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<$_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.-^#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/PQH[Nx7-r+?4<*y<3P]AN2GEjThliOP(pz]wR/Z=Usn*PoG7n,whukZI1KAa9=]8a=UI9uPlk\\OAfc_O U"4F=Ql\3lN/dO>Q.NO?$/*3s5+H8sSt4G;.LPGX]B^FJTF/b:KA,I^t2 U">Cr.wRsj17cvXCSP4Vv 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_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-: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%TnJgj U"Xhb#>J/X1>xXN*5+kuQjUKo-Jrj/p^x>>%/jE:*5+%u%p()9%%%%-R%)3maHCf; U"*Sz%%%%W&%%%,%%%%VVX%SutxB&tf=]utu%p()9%%%%-U% U"J3mIH_Xa%i-&%+%a&%%%,%%%%VUV%Sutx'&vbt]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%%%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