'===========================================================================
' Subject: ADVENTURE GAME MAKER               Date: 05-15-97 (10:04)       
'  Author: Davey W. Taylor                    Code: QB, QBasic, PDS        
'  Origin: audio.squad@mailbox.swipnet.se   Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"AGM.ZIP",4^6:Z&=4261:?STRING$(50,177);
U"%up()%9%%%7-%Kxe6Gj535YL3.%%av%%%,%%%%fl%rSgfjxf+x&F?\7uxVhjsda
U"oEXPMM4g<jsQ7nD>#&VP+3t?TU6Hu),:]E0QUrgaSp$PnkX,%Ko0l/\uFC0LJ-J
U"8I\5%c?nXW,+qlV-J]rs\PvGSs$ark/7iWGUL4Nghd9bhO&^(2NQiIfq=iCZ$Dn
U"NMQtx5K235uckFW15&C4+mw=#ARe?WtQ2k?egPeJtNhE$y>lB.n011v*lnjI6Pq
U".bFLhnfsWpj)CGO[M')Twbkl\BwT98iXGo(3>L_4K(>uVw=8'mluiD'cN,9(3-#
U"faotV$]7n(>jbf_av4E>fDjqnq[Zvw.*'UX3/x]=Z\lbIW2]N0i$jG6BS=+mM>Q
U"<1,g_a-^[)<DJjE&qL93K,tC(IqV<J].d5Zsda]%YU%OuPgk%buT.]3ry0bxt-D
U"6ZYW.PSi1CUjzTNf5,vAmX*9I'wX=kq%fKK:G)s?&K:5ddr_LK>tZ/?2qXG&iDD
U"D1$tR\eR6YC0a:y(I02_c_g/y'mCxI5G1vB%*5I2ZN59][SO-panzEiAKS(_[.b
U"u7>5IQ7bJ']oOSb++_[6%?A6sw>8(9dp,=qG#1PD(_J[O:WQ96gG5&[gU4O;J^W
U"JNAha]Y5-\%Unu5$Vr4Zuvjj*ms-9=&rmJ%7qwK#,CS8DlNiNnlK:9T.OB+1Wic
U"?M-Hhqu8vbov_QHkm*HI0d<Ze;wAW?\zO&)YAW(T3>H1VfbE0MDD;I2Mg:%L8lf
U"3\EQD74M3bLPj^pnZTXP+N8Z4#S+zQ,><<H'cjZT*jD**aAU>+E9[K1&%xeLe/R
U"0KbE)b3*#l5FE*c;g:S#5V]le(A&5y,(1)-_sh87froKMf?xe8$C)<gtWY=]^l(
U"(K-QS;g3+wH[KVm4boqC_Ts;o,p/h<b??dRw5I:m86oE:S-CHIF[ij.b9D(Dw5E
U"eQY[C%z'.w.mmveCo[:h(#K;u0MCFOk&VZ<poM&ND?r?A/zzCZB1e2^4Z\2Q'Cz
U"__#etO#_*QvC#9G0C+o9syEWL(N)Y4pJPFVnCbJC92PkQr8u;?rK;40)t/amC?P
U"Z*sbh2YnU2U#W;U.YOWY_X%2o-.[Mj^<[.h3M,lIM;R71BThQ*K96b8?Q,z^Z[:
U"Y6xj/Dl;t3PpMho=/.g\uB;V3GP&G;?kOYWa?m?ib]a2kasj/'SN,^0cA=VXfjE
U"UzYIh=r^ig#,%Z6K:K7PRLkD\CL?XfIV3B)EJG^m9=bb'MQK)VfeLj#\W[5bS+O
U"Fw?=0DV=NU6H8lX,h3\>,D(3P6\BWQCN8dy5%H3r9B$N^PAdY1k_SxllWBgl2ci
U";TE\7N/asT0f&2Yy&0%L:iO\>V[7&2eh\kMZfBR1Jje/?qYIK22<.AVSQO_QK4P
U"hVVXMBU)W)9h:kBdGvm3_G'SSq5VS9ZqZHc*j%TKv8H7X;iinEi5BV%>8;CjCHQ
U"5#&p+hn=\kceo$)?tD$fa45/vH6]5D)CtjWIa2D5QcR)*qCB;-3NLn>\$fVotbB
U"MyTXDRTJ^TyR]lxOl9KnqzBR#zS<256__Jtrh<57kal87*t[P*>rQ<>+^2Yw)AV
U"m>K;.a,_;xZTltdWN0.e)\O;6/[FXyA628W)A8sTDz(NWMZD\-gP*j;%o22,&25
U"Yv1h5,uBDiFFse^Y88hA[V)91QqLJB$<7-_,g4&]b$tixKgCfN7X2K1%Zc'nqMo
U"74.\87*)Idy6Etl\Bw[WM,(#kASKj0k,v+6K(q[em=nl=^kAX'^>Bv;YB][)B1L
U"w0\YA*%:bSaB,pt(A\qK?aMGKY[NMJ$^[Uv$QI:R94+7)h&-&st97gM)Cv#v+'B
U"?yT;Cq1=hv^<8p,AZY:s?q?^Z+B')H0dX.U#J(%8s*$;?Hs:/fk+WQ0=&'9g2D8
U"7&p_0%6ll$3siOcL>BeBJ_K%M^=yF$=C7W^aRvm/Yag=u0?h7<E:&d:gq]=5**s
U"G#\+Q/NhK%zkgXQ40S-sFIG(W)Eu65q+BngbV)n(TrVj-e9PHrtz3^B9j0&xmMd
U"6NQDY^i0OIT8&N11eZ>S#f/NWc+q>jSXExWjBhyRd=wBgYm+xlkd>h]wJ36BX^t
U"B<D?SCsiZY'HE$o=8hPZ.kta$U=\nUSW(>iuo6b8&WTFmvb;_$p)#8dWEYZkCH+
U"v_^#,'*udUH]kXrkP,ClAK3ut*1TmuEMI#Z5Aar6(8VE5c*5rS$nFD'D(9Y_]GC
U"72#\Yam0.#W?J[]4=m$d%?2ky+5M44o>h8HMsFSk3\/m]?=Dpxc0XC6ahfs#pD^
U"JAh>.OH?uh')jO9cI0hO'ilMf#b#tUBWJ$R;*787Z^Z,sPdVMS(dIy>IbqLPq2V
U"Q8:lRvjXqVY*(rHh:FZ7dUDWmBZl:hCIR*dtLfb=a8UF'aG;TAD0.f0&u:fE]q]
U"C+F<rMe,(4E%RRZB0cr.Q,IRbB,Z)H4b*^*glw9Lr8Ox^SDpUP1pCy%Z..Dpor,
U"]7>Kvy:wn(,R7>e]9J$jOC%7f044ds\*C%e#;>E$#dh#R[p\dCX5k=AdgtlZYbM
U"T<1RVASM9Pli1L:JN?VR&w&Xc&O17H_qU)p+G%-jXn.Sa\2\0[Kv8ka8uC^v-nO
U"M[(q%.>/1fQsB-S[V,w[QiB.%4rQ#5#H*$L[l?rsr5&#7NmVja+)M7TbH1U8P5u
U"kGBh;moDbJ\'*UIUe=i?MvlY<QW,CMlcyIKWm7ntHKI41cFpNM/oQIf$MR<2p^i
U"4?c&/p[ob-b<TqVJ\>_Mbdn$n_?eL?y-pdRol/e^X\RMjb+?:5dbQdC.PGexd#.
U"EPd??vWm3UfXj3bJyfJyQZu'ou8t1IGTOUg&NK#utt(ka[I,-1nins;>nU18u7W
U",+mn',J<EsJ8I&X)54+$.p)166[,qu)+6>+IVou#R=ka5.6L8S;12a[9T,n%0G(
U"QmY95Gn[Rw7?gJ$27TJ#<=WLC*]J_^m6lU<3Wc,6QD)10BTbqF[^(BXi;J%^.v*
U"R;i[L0zkT]:qyc\FH:lIM,Wa7mv)X\kJRQEIr_iNQg%/n_BsecH?9eK\?)d'DfF
U"P*kXn)]Lt:$Al-2RbX,%Am98HhAD/(;<HbLsjiU+qm<DO7+E3S(;YdAC<Fl\iG?
U"q]Pl:quXL5M<(/*wvyGi1:5pPF+.bz+O$9l-/,16+003QSuWhj6Gk/Bz4trP%Ov
U"d8yeh6]Ho\olbp2s(^,QEQ-4cp\gl]&05W)QORGJ8g*i#,_oLw_.v[/IDDRF]&v
U"IDH?5Hq?M9NGGq]c2jmBL/)gaP^Vr+g\DAn9%c+A7u=dg7VgK]l#d_gBfIDD2A'
U"&fKGj$qMo])at2:Znl/=hjW<Tbj0l\Grsn1tWt,si%RdaCuvf^n\GCan&jC8e4?
U"4pX5MVRH#,drp__=uIL_:1YD*_$Gi_G=yT%HjtJ$bYWxWMt0CG>'K6hsO8UH9;d
U"UNSj4h$j,U5DTd4B*4Gjuf2f$6;N)p3s/WfU:?D_f-%54*6vsu(]LO-Ywoq^pa\
U"VkJtGIDlTL%]0U_M,V*hFGK^_q-AK;D-6eIT:n6,8buf=VjX1[6j/mq(xGkw)%[
U"NpIr[AJsI.B].kmOzd(3*>m>2n(Mvn9UMTU4riRxQ8BQ6*u/)1[xMMZ'HLK/gkB
U"7t%W$p;%j1IOGA+EWLc[C#<2?Va$3<KE\4qsmfE><<ZDMT)^5-4On.&DE8>m8wn
U"6^?(#iBvq,=2hD5#Tk>TJ'rB[+H$>CxNV.>bNcAHOYk2DT83x\F5F]OdjdcF$5O
U"4I7K1P4Pa\5dkW;xNhq-UA[4ZOcFi<J)iuW^$Cm#?<t]wfG$U2lBX(+(o*9B/Z^
U"XjuZ:_)$F&YWblZmnP[h[*dG&hWX183-q.lWVX8>t-Jis-L]:NrvKW5Pqu^%5oj
U"sbibEm/?M0k03OIS\(NRQ7pWZLes*GhaudS4WH[]<?t_j*Z.hf$.N+0a2(y5f0r
U"lj:$c(FTfJYsjaGTK?nd.KdQR&TBX]l7tutawKBnI(jRc=BOtc1+Dw/]%;w'j=<
U"8gPydpn?^BClMCV1,k5_o-CHC#3C_1<)9;gVSe#RZ\WN7B$X_UvnZC]6t_%X&/m
U"BxkLhs?U(;-v'\eYpZ^y0g59:J1]$Sn0R4Cl.0V0LiwOk/QS9PU0ftjE,UfGX;c
U"B3xiuY>QbTMb&uND0vtOYM%Jn6Qbfe?XLatHfm#opD9mFILB1gOHp]HtXgR8rDJ
U"g1oFS7'jNDSurW[md7S6rj=(tZ[/f['FP5D4F#-C_FAZ2=N9f.p7jfkjgjxEgB9
U"K1m=%IC/tHkuZhYz96kIdE\Qt8e<Y#oW3BZSCw02xZqCfM3wiuhDC(s+]3;ZxWJ
U"nXhB?JNQp\*XKmFEmHQ:6L974Kd-xb0OMaj([I\:'s?JoAlKo6UhEhY/_F4Rh8c
U"gks*/Bos,O=LPesRinM%]>*n[_#MC:5O%&g_lrCH&l%W'AWyj$_%NFJ+\&hfgzT
U"m:J4D['O_R1%bTXPX%8u9tBLrA>NB.Th*V=ePacAr6IDKu8)#m.meMRdq;TB,C9
U"L*3MuVYUkb&,/%R45e*H3E_HcC_L\rQ3sw<W-40?5n4nPnbhO;-Cik<WJJ#Xi(\
U"X?K%ZKM]vpTY6r3QV$g7UPPF&m'q*sQ^xOIXNyMmZZ0C')O2sR'$DaSNF0iL:6V
U"4+b,*R=Cld_sLR4ENv8?6_g(J4tqC'[cnQHf/uU$\;4f5tWY\1'?LuVj/A0hwk3
U"Rv0dFnuu7pIkwFp.Hb-pxup%()9%%%%-%1(h5GK*g6S&+&%%(Um%%%-%%%%yjxy
U"%SflxHfPV>BLe=O9Zpx%>NZD+ppU)*7UU)U4y9Q5'<Nc?a<PLRV]quJHcK?w%)0
U"O-rnH]ZumrG\PzlbCcW^x]>ZUoT?\GruK?VANnYT^-rR;_R+O&wo*huaqE0b$zW
U"mMX]b#vqtU7nT0hk1wn\9BDcUFE2^T7C\qf?y>_rj#tb]WL%whac-fS:BDZqnuT
U"hLj*%>i$-<hqnMV^7Ksn5b&2NJmspR/<d>J$3/,FxW6,fvK/dcHW#+#W=SX_V,m
U"ohahNuR9gh)tXK8d*%_>e_vrcM0m<dVKZ2<XL>NCKzjWp[4pJcc]HG[1a+6hXDJ
U"g4t(HX'YZk8td4Bj+9Nl=dthsF(aBO9W&aBbOW&aLBoFIj,alWC&I,o/F%I,DoF
U"%I1,oF%JI,oF>OWbB2oFI,faBOWF&aBO9W&aBbOW&a:BOW&hIvF952f,'8GI7'%
U"up&'%9%9%%%%-%0Kx6GYj55Y&L3%%&av%%%,%%%%%%%%%&%E%%%%%%%%%fl%rSg
U"f%xup&%'9%9%%%%-I%(h5FG*g6)S+&%.%Um%%%-%%%%%%%%%&%E#%%%q%3%%y%j
U"xyS%flxu%p*+%%%%%'#%'%:%%%%I%5%%%%%
END SUB
CLOSE:IF S=229AND 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
