'===========================================================================
' Subject: ALIENZ                             Date: 02-08-97 (09:55)       
'  Author: Carl Elias Holmlid                 Code: QB, QBasic, PDS        
'  Origin: holmlid@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,"ALIENZ.ZIP",4^6:Z&=15200:?STRING$(50,177);
U"%up()%/%%%%%%[%7QGlm($pM%%%%M%%%%/%%%%fq#njs)%Sgfy%ejhm%tEtk#k2
U"/2);B2/M#10B)82ET2AD=EM0;84D=IS1)0B2/%up()%9%%%.-%'%.XG;Z.e5r%7
U"%%]%%%%/%%%%xh%twjx%Sify>BFBqpQ%iAuHBFBXqZ^A'EpQn[Qtr^c^koE#r*o
U"sMes4uK_%4QpXBlls9;ll^xYpk,b,foIxwZOIO7BBgxZG2[aoXe+:;X74pMZ:Ro
U"0eH$2kwl0+7BXfl5U4W_s_t]]<NqeU+JiJA*33]_M]_p:v_]<_R]e?gI.Y-$^wU
U"%Y%'*+E<7oJ*e8BCM<+t:rp-.ec[UK7kuS5%g(%u%p()/%%%%%+%-%X7GPB(%=/
U"%%%%/%%%%.%%%%xjy%zuSn%snEV%WUE2%/W2/%up()%9%%%%-%-TIQGzj'-+f(7
U"%%[-%%%.%%%%xj%yzuS[gfx&M%0Bimo9vGX1xZeTSkkSd%K8c2J8VG1ku%AW:5K
U">-]2Ox83x9)QtdJfRj(Sg)E)d=r5JHWl4$k46]ASMQE+WO=l+NBcU'f*:,pbf8n
U"kDMfeO?%r8Lt_J'9]cH8q6TQ'VBU:cgC<^v?loL5scD2oU#MFfHBR#XAr?iVRf3
U"+MiDT0n;+T&w:II:Z>bOfl<0sm^m;YR[GNsYc'[8Rh9%PQdRq_BW6WTapIi:-,?
U"[;QLTq?<fCvc)k9RU9GUNB5/JB;UCEV:S7O3U:pi%Ys2oIOIY>F1pbEQ?emM[?o
U"e)KjLTMsn%G9X/jnuT?AsueH+CjpZ#_uGD+:%j50Hv0kiCMQ*Fr1/etg>1SiH9z
U"YF*p)-$<G:<u/$v=7x:eaiE?pdkY;&+S=EjTLW\u]%1_bMDRaSP'XlVa8FWe'lK
U"F7gr9dd4\4pjD1Z[#%c<sTS9(FSArjSDU;X.*>.d(Bu43#?v(2;Qz7?mTo:Xo:Y
U"b[$U#icyy[u:&7bM/tO$<m,62pw[RQ6&LzZ;EIYMCNAB5eqU?V:6=qmW?]pcLGw
U"OM(n2US$b;+KW8q9j9VH71uxp'YQW=ydWAURLEs:2Yg'>_JbWH#CPFsisC)QIp=
U"4e-N[YHWDA)n]./3W39owT/$2;dWv+gK9mMk$S4)K*:C%?]h#Di'<z9Do,=Cn,d
U"b-j4*DuoOlcV9^J6bh72s%*kS[X;FZSqtr9qEVPo]h0;<uCoIinXF36,Z*ak=c>
U"3qPJ8ke94Jj+b26l;x*6WcmJ^:Y4k2TVMd0wE?CN\M4Jfo</FcS\\qy,%wZ1JM3
U"0q,stk+4kB]?3wADe2s]VzIbo+J6LtfYd%i4Z-A=Q&04mc62tluGHFDu6:6D,Ec
U"A7IwPtIXkB$['ilo<)<BBitPHW?6IutGL:fnbXfl_3FM8,x^z]MP2wK5x/LHP$o
U"'+ONW21j,*=?<6\&6VF1]wETl)8lXZ5K19gt+:^bj+_<g;\6ZDKd)(jm\qkZm>w
U"LHH$[W-PEOUSr.kg?kBo+]/bgJq3K5jGKtx#C2YgHns2<.Z.8u.8UMu%%up()%/
U"%%%R%%#\8gF&u)<pI%%%%I%%%%.%%%%xj%yzuS%gfyeM427>LE>55I2/#1M0B82
U"IETADJ=EB42CD?S210B2%/2/u%p()9%%%%-%%F%XsGdCV&<eU%+%s*&%%/%%%%f
U"qn.js)S[gfxfhL:FTU]aaF>n\xuWOGPE-0%Ffuc^gG'%8PBoH]/P\EK\l&44Rfa
U";P9bpFxQ3u8w+i7E&7iOngms9$WV.#f9/T(gpuM(%t(M1avmpbLqlYjx1.;3ABl
U"-mc)WU/BL?].c'B]]eB4t0#%N\s$OgGE:<Uve?$B\psv,4Qlg1CYI,4BL[INMeH
U",v#uxQV2c37$8W3S0vB0HUaO't6.#StdmK8p-bNHrjjnz#qnHcg/77=+ZY5'qbs
U":9SZ7+3UN]3wa6iU5[#ZdUoYVCu6'F3,s)?pTmY6Tdv%58C.&-i8C+X><:t)uhr
U"^nMvS[*rqb240<8NW'T5bv[_vdqAP#vsQwcESuxUgg?U74>IJ=V<4mk\[tawruZ
U"kecBMaND$?Yg:f7wd=&(]?D+0Hc[([T-8scGU^n7H\i8>1HGdFK2SlkitVV/r[N
U"L$tVbrG=fDinUqQtkV/KhBgD3a<p(iA[^8QE5$Fl.)D2vMGi2tVl_9_hOBsauaB
U"enL*Mb>%Z#oYGHGDH,e9uSa*B7;)ojFB7_'e)i2kWU.[R7DHgS_0Tu+K%l$W1HZ
U"FdZH\jG$P;\h8$44$Q:3]u'KUJ,fFFN$5CI8eWIng5+]w$H,3%2vQ$oaULuZB%o
U"]*a*,P:d+O'077q/fco\O[P3x5?.,<PXb#v,?o.4g<6eqEASS9gknJjij4xMh]t
U"#&]H-Ev8uAait)YIKOb*VL2zstHfd3BPmAocnLIM#humOrmst^L<bRoNvnm6U7m
U"AlaBpG%3Hz'4?PN22lvh$2]EFCi=jf]Am-z#qLRC'8DBKL(LsU2Ig]3I=9Nav.P
U"*GD.w/BLg3.]$eCCSD_b%#WEX[3^'FHBMVYlj2CCW9O<;S7ACyzJpjwY^G82'5m
U"1MZ6s41D/6Q;QHYk]6/u1-^C.S=):Cni6cqeb)es9i9KM='c#Y*eC_.H9R:Kc35
U"$8tOlD8t\7e<sTig<QFwp8OJ.-+q,,\X9hshkNI:RhW[b%c/;q?f*Rbv%B^tPvJ
U"fruf$xMcsC1V(rm2(\aHqIWa1\Z8#Px*h9+oAAKZXiXrMS?-VAhbRe+lMapmcWP
U"KSA2rsirEH7X'J&Qn/UI]FVDC]i6&\6g>MtFocHjpudi('Gp%q]:dRs?lcdw?H(
U"NV+dz,R&kGc9Ie9V\NoNIY^t^*sBsOK]2OnJDn'%OcadQgi)t1TC%6-+UQ-R5O$
U">:PdydzVOE'gPXU(Twqn/1jYOnG**AL?owOK&V6'Md0.z&W?aNgs4gP,yG+4#yd
U"n4:T7>>??gGwu7a/V2_NGPmd1t4s$\9<ubl\rQRwpR$_-#WB/&2P-lpEW\*k0g^
U"c[SZ3sEC,JVT<'(K/(2'=Q(V.Z5z1Ps(P_dW5j00e*MihS7[;NT+2fpom,40lPe
U"C^?<=[Iiq[M(gYZ9/Z80RWV[];q;w,j1+lqs$QIL*j9t_wH>wX4R7xc[e-wKN8r
U"sq#O<h=&r5&:3+K>jdnme2I$oAWTRX#C;JdeeWAaGfxLy8q3JqNVzcD\h,PVomP
U"Wd527KF0ctD(FK0J^.ygF5BFq$RBOe4/7'^Z7Y;<5B7_rjlZ)%UHR]dT];mTEZ'
U"Y]fDDq7I8q*/L=;S(aQPowT*/OCdbgR8P)e>RDv[9o)/K\E-H[.h&1V/;&IJ+*L
U"j)k_PQv-K[=YPG&5Gv?8..*Ijt-X2\sah:+CO%Gdw12:%/Tleg/^$6[>.9wt.)0
U"DS*H?Zlk8X<tTxDsfAM'N^Jwmv2Sm]m<N9G0D)tFW#DXikn6jT1GWIY&8(MQkfu
U"H4IW%baS97+qYZ\/A#Hu(>0kib)]O]wv?%bXn2'BUhWh[B&,Uup[(WV^S?ZJFIA
U",KN4n0JyZae7humOvbx$,F'$-'xLxe++d7hK&OdUU?h$)/S9CAP0\4,tb*PTW?3
U"-&oHi6NLX$xr%NZPrW+tJ7Bo2^(Ln^E05uczXYd*jr.rv;m6&tsm<]/W%(pYHBo
U"#'BC#*p/_5qAUS-#J=jhYpf<Lu5&e\1oVm#pU54nc<CD(qr]J.NYwM.O53=GU^=
U"9Ama+4:?),tIX9uYn1HR%Ml<S$dvXlaYo.LT('($2:ywv+HCWO%UvxMhNjst%4#
U"_5dK(Wj)$_tO,ET/vrQd<Al0Re4?ETyqC2Lj%dZT8D:^qqR.A\2DLTfNnul2:2]
U"lO*xsfU+d/CGV2_pNw-^4^%^qpjt&N20<3?%OMS%KOeur)Qa*ec7DZ.&%O1?-'3
U"JeUk77;E2>h.F-%Tt.?S<:T)J')YlU-$D4)$.SJx_fOMo\T;qwu\X<O;sc)>EC9
U"H=T1HgUo/gPtr(F(/xUag(?(2ps&TLVW$jFT4rfd=2+Getx9>Xi0KdFZEa(-R[e
U"A:ixn&X[+u&W1f&d5gOC=Pag%;U[%lHJZJg/*,T3hE<a,KEOC:i>YlGyYeKcG+S
U"*I91J)?Ze)kQB[WRxH#TZGSfLd*73$_9.=Z0=fdMv_M30(7M0JR+hcpehou#Yqq
U"nNAQKD;2x:*.5Z=ibn1lg:aW97hW3ySRfV3guY'E/TpG0LR-_OY;*Cj<M%ImQAJ
U"25EABTs9EqI[%Pqn63w<uA%\erfq=RVM#MF^1N]F;gIN?7%/*,5nEJKpXl>xgU<
U"T4^R=(WXIWhjKT.Lng.+/m0XYY%M$V)'DxeRMLFOa_uKpHAabU;P;0Jq^sY^SLp
U"t819%&VTQCFXxr=sTBMTaiOGppR>f(/#nKN'+&>6u-0iIzX;9cL_]+l]r]vKe6.
U"+Qih6b]5u:c/YO5U9DHT9FWtm5PiO-o-6nD$MGK)[i$e;MNeuCR#/lDDsX[0#v/
U"_,-Kt)-kz?EOq^/.YR(G>$>&J*,1#]-v'RJS\k/tm_0]PgM4])ekh=&1Gu9,D6j
U"uYQT(s[59ptc7dxl%4;C_2NCw%0=xSe2YGIVo%qtTxK*rrf$b>uHg+1_'_bioT<
U"3)J?lw7)*<UpPq2#=v:<fp':rFQH(BKm\.r^x)VS.:45:-dqfp[IE[)0,*ZoTFX
U"uLe*U,Mw>d9:GFY\l=&/ha:)8+^*Ip#iWN,S,BQ,j?eTibMVL'U_LjCNf)P-BD&
U"xF^n-#&T$P_l(=2PPlSnD(EcwR36K/YNLZm3:4kiV=0>vw8JQsUP+ZLgoI=b^xR
U"NJ:Zq$]BTpM;X-*FP6cIKVJ_o8Nz_5n<TZN<4e]l-fd/KWB^S&skxC,J;CLMcM7
U"WscgdO]BUapY+8fPyD_pThq8.J;aFRyt*3^eduufI(ZS6A*Tw(+\l^(*nVte8MZ
U"e7UyM.J#/N(-UCsp*a#18I4U'TCPEKe)#&u2=44DB?/frMXZUP^</F6#>NsKKpH
U"uT>T\X&t-SiGqQ.rSfhKdU\SRVYtq9>mwHT'#tTkFVFr]l.6S=6o[[=ij)=t9FT
U"M.PHmeSkZ7<DWfsb*7RVw1flAhe#M=[F4WN)=4<\(Yr.I3ETgAMO:I.Ue/G-?B(
U"G,Pe':(=hkiP?;wHONW%g/Mg61[_cDIHL[6Hiei?Bh^vkEYW(gOvH:NjhEH.]/8
U"axh>u\82.AxqIU]2Y#l*HMajn4J;?HDzq-0NG6l,PnfQ*&?IEcYG/[',n>1l>-A
U"Cuznb.WBW_+mJN>i<Z64Du1e>%_$#hi0-F2'u]wj'S_O/T<_%a3'BPP^r&tlLH>
U"W2,[a;SFxv2<[j)E\3NKv*A59,^2gNR710:1qQI.L<^wi41vYu5'%ChN_;r+cqi
U"'1-27en;h4l0fQgU-[FkP-*T1S+aS><$f+Hv+l9O_Uw=]1>0=A'xE#fn^7Vy/4K
U"3?wafmx<;39c2O(C\CCK&t5ZG-<IJydsi4VkkIh2o?4W3=4iW2rb*#lTC_S5Cx4
U"zrZ%'Ow8dq$YcO\I?dK]H4fRuLfgf3En7v)GhSaumWI9g4U8-ZbW+n/wj5J^JpE
U"9GUB-##U'Y.V(Cik<xSEXF'%GGlJ'uuT)ZHYhSL,ULjaR0g1CH_-iwMsgr$6RhA
U"#)B/MsG8T]9pe6c.^K:a.d\ei;A;.uI<N?nh<c>:Y,RR7eW42pLiK=N#$-FXS=#
U"&hJlOF0/d)u7htL#-p<82S,Q^-jzOIJwIR[G&_[M(MAlt)iosoFtc<-jC+8DZf*
U"TvSoOQw.[f3pm%6a4^lZ*xt7T2gyu#a7(q&??C$\%Fc:-]^hh[Yd2N'lru%=Hd$
U"Wia8(q'0r?MLkhXQqtYRnp9N[FyV8$qYlbnF]Tu;=Nj8lzRjqH&UO5r<WP>UL+F
U"z'tKT>1tJL8^6H0PKmMOXe)u]u\f5=W<7OKjPm+]dmc/7gX[\>,5O8/.o>r#A-s
U"K<jYo/c[&25.+PXTk>m9[10T%5'XEWrG8i12hlv[qGK09gh,Vp)=0xt798K[d4E
U"jz'H%%#BMt5o>bZ1mucC)SXsWjnPjl7#[k:(9(1D1vcQsGeWm0\vcCy4VERinIY
U"dAy,:ny_+5F7mZFH7&_<N,aU9<[dTk%;p\L<7qsWE[:HKS;h5sEWQ2X3(p,72.v
U"<o^_#2[Pddkj^5.l4aI7sT5;#HSaU)Fjc.-p[Hd-rB9[0v(/9HoAg/9W(hv,-V^
U"O^m06'/Hr?[dnqso5w,%+r[Kcn,/v_MRG85<AO+(FE?AH3,O^l;B,CTUn1C?XuY
U"_#1;8>F.PF\\wDlSDhjKjW'A$gN-pf=UA.0MeQ8wSYO.N2^+8>1b8vy6_8*v_Dy
U"Hj(Hivtj:uF/&/D<ju$p48cJ/2]64zV;wNN7biV=N0idS\xb0g\=xVR#=VDs(Vo
U"e/HpQUe3Pw=M\=DY$3XdX6x8u].0Bit.Aka(]E(D$g?9:ff]sMQXV02mod1F\6Y
U"G_L\^Mt4CO?'NevTa0P)Lw>I[?vPa)y^;i9$mOngk8aj_]iWmkMK<9YN>,lPFti
U":xPe#^NZ_hR;MHG=B3]T1FId_f[,C9rH\:hmYGA6XGrC;)yRz0KbhZGH^2=kQN;
U"m.Y)zSf(*Esrp8)v<#8)vQ4x89NJ?\qux6E:$x\\1B7cRGoh\NY:OtLMCM-ZcU;
U":q^?LYc?Z.IANJ[V+.\tC]?>;mM[PG,=Hfv+&.m]<o?G;mY9Z9S&H0f;&Ym^<-#
U">;muc4RW=9&&[^<hA7J6onR.1Z-B2OpnDs$rp=jOpw,W]5+1vdD)Zpiek0%nhV:
U"#*HB2u*,N5;<)i+;MN%1H:8KTH/H3.hO$Sp_fh_iEaezQ/#uo4a.D4cDZa7AziB
U"+5Dj+c2Hg<>lvAB._f*(DEOW3)'DND7inoqio.Hg%da*#Kfeyu4%Z2>m?$QAi6)
U"sSah.6eD?b*R[fcfl_$>A0stbvSuEHD,hg2BH]/wX;4=,x,y#CNoVNf(TWM&]H=
U"SR^g,QnspbH44\:JM3g=NO)X#;e=kFKSp6sF0HDDAdHlG+tf0PMhX<p0?blD*Bh
U"mv*GO*Yq]-Sfd3M^9V0_$B]9Inm+sHAT#Lh;6&4$JGbL.gM3HJi56XiLO<[zjE'
U"bD8^hovmRKXro'9\'Zu=ovg1C,0sc-YmBk1]va]H*0r3<a\srq7JeUf&kIo]hXJ
U"L'94?^A(\#gcYj*Y%-D;iHU(hXJg<?Vh&n9p?1rb2)KZCnXaE]LE'6b8o\ZSZgt
U"ITa#ox7oc*0lqFP=XtkqjK*ltNjRuz3L;f?Hq83t,2;z7ag0QWOqfa+9soZq(m,
U"tRHEYhC'Rve/fI:e<OYi[cIYF$YK1/.Q*;KEu=Tg'q>)eV5L,18P031aTls]85w
U"nC,&,^%enRtjJb>0><Gkp9#9I6<Zfd8.Cv*h)<?1_U?=pTu;Y;H9WT*./r1Pnj(
U"wuL+).G;>XMwYT^m.8,Lb;Cxcv6c[=R/rvFnb[3n$6JTdhAGJit5p#5_7*MUQn3
U"mstLn<bRVoPunm6U7mAQaBpm#Y2B&4;0VLqXm-mbs&L4L_ymm6TPb(mb^MRH:[8
U"+rV]Kw=[m\aA<mP:ovunU9FAxV)Q85'rG?'x(%vQ7BJd'nM%e9thp0'%_\;#6Tm
U"^fG+B0h$2fO'l=%HYe[)UtwSh%GemP5aHlTGf;oZU*X&:[fZR'4Us3c*O4.5IX^
U"Wt?/vhp9QBm)=+x8I%#o-+HVZ,7N4dHuiSp0Z.e5[KYa9=1[]#IYk?ZSi)gfRLU
U"k+CLQ4P=\pUn5DZ.hW$8_]Mrs[-d)3nV_GUF0)m/?+JB=TPPNM[Y,F:)JUL^+(i
U"Z^ZA=B(L)ZvreK;Txdv6%vL5??MeZ^MI:H\7-v)KiLj$\LkHp-:(K$5\:bG^$nW
U"N:$B7wG?uJ[,RrA4TZf-G)Go6X[,F-Z/n0hmt7mZB/rss1C7IaF8+4_.&a=tl;/
U"tx:+b4tcA\$6Tox.;xXn8HQ(=p$nD,l3^/BHw8NQ=LU4Qrz60tl^f4=KV3DgE^O
U"1rIL86wWHDX+W;na]^u0Jnl6rfDazsUqhUMH26#LHUV>,2mXBDRDAHRSzN5F&ak
U"DGs4#:;,j9bjL3TC>P>h7Fs,$YUU)Wl-TS0Si9?WCtYGm%id8CE83cSVz5A;RLd
U"o3Ci9=eBE/9+jG6CHKIO%RIU0.J*b'-F0L?p<CL2vR%a9RG>wAz^Y^e)L_^Dsb>
U"jZ2,hs2j439BT?Oq,o+zyq3.v'AqGNy<'UCw(uDzyZO7s,Lj4twAI?O*+fNxvZR
U"tcFL:dlqic:w3U/y7YYy4(Me&vD.EI$>yMmQ9oYqcfz]Xzy6+9Nuh*N&u2RzyvL
U"Qn4Yy6((_X&+(*<;54A+Nt)UYh<_0LOiq?wA1Xz;Ih*jx82#c0&Cjw2g:lIQ+7F
U"$RFl:lcg]1i1ZwiC^5'arNPlbX;)3*Nnc&64$W8M1L_FDX33V:tJk]dY]pqtmad
U"N;CY%,]ak9(2'RuYL^VorjjaQcg]9KiXlKbGdqYffGU4e?f^1(>QoXBrl^XYfcX
U"0Y8A1kY.B/[<Vl$EAky]eNKb;?L_\8WiC.SF>C[Q>ddgO,,t\x6=t*FEi=fXdFD
U"=e.oUM?ReFCS-)b((=d;Si\.aX(i-jQ0;/b-uCALsuSl:[0?#uvdEOhCRCPEY]I
U"BWG'^=s\YP(2r1B(EV'>/9Sm^J#?:].j],+/Z3R.&x8JiB\\+T,BTX21NaycL.[
U"W^AY;fp?VGL8\Dg_b*)DFGeO]3/Zufbv>bai;[.c2bkvaW\ilbU2*lvUe2Y?I^b
U"m34,_gUBqA[ZIC8S5LMLcmIgB:MqWSlQT[W?_?ZoItCG\Q^riHvhGYiNbF1quk3
U"wpI:N=/lI<oJ<D%]Kp&aKat#]0;NtZ7LG6aOaqY^i%LFW1OvEa^1X;ud20k2IUK
U"o1a-iU=t,Rss9Dv0y6'g8qbo?'$R2(qxIYnRkXPUegx,Qb6^'ka0i8&u1t1OK'Q
U">r66bN1p.xfxe4PkT5:\+>Cj1'uH<;XlC^krZ-k7JG-_]C]OL6*2f?i4qI:3gjb
U"1Yu30Re<H#AVqm\nHBM#H>YbS+D\+,s2HIkEfXe$)GeQ,3r#X?ukAhXYyg9J\<a
U"_WaYdhKm*M5/FooPGc9(Rz.dIlUEK+YA;6\lSaOV'Fug+yLvU5-1^9)=6Sr,)t[
U"mQIK_DT.eZ0=[[$g%V3UEl,#(GfAd5v,YD9*#N#207=a<H/,k<f:[*DuG.OUmF^
U"%,x<lS\2RX>?JOL]dpD3ymng(GCv7n):ybc[Hoi;X7q])5]UKqEQT6h2B<7H;Xx
U"/6CX;+vqmDPkt/M^DxQ9r3gq);pOc&DDi)TCdB,c&cC<::7\[UJ''4r,23=ddCT
U"m1/kPG(B';GEFI3(n^G5#H[896nDel3v9wci<g.Pw<c1+0[^-+D7(_p#I=^\90B
U";mJf;I-i1l8]I&4(81b(]PqKF=6<m.'<fWS#E3:cE?[OGH6-n:ad0n\rHv+q*(k
U"6Td$Wa1Xg\l>>:Q:R.B$IhmQA_VSG&8?e=\>J>\9c:*6;7:K==z+IPUx:LYNc50
U"5m$_^KA1$lH5?5]#KGWGL)WB:YEqQ\9nwH%r#,%kLUgO6tTTr)<<&g5x.WYx[OU
U"Hxw*LqC<1wE^i6DHq=hjdgmr>8kkcO]tY:^M.?c0NHLum$P5(\7E'e[4ILva4io
U"rDgaz\:)z,6L5Z./sfv*.q_l,zHZhU,wuFku-1b+oanYHmUpTyGhsLig[:;a8XO
U"d\J_c#fnWN(y6*$r;pDk%VnePj&4FZlRVSA5kQg,?gt(Of,HaD^8OHSDD3Ch9qT
U":ENyY\[7%[3<%]BT^/W9:bcAXr8<'osmyM^V6_h[/o_b6kA#=Mf76=j44QswEMl
U"wsbFabb\MCqa-UodRS>y4$e2pYcvD4xy()HyqhOHD)ZjQ,a%A(mzEh(4SRLO0Em
U"gU*rDUStDwca=o3fW,Z)JtnWxLnWh$h;f$Umzng_.nC7IGFPG(*f0xHNR4B*T.u
U"DQ,KpYrPqpR,\Tv?=SB_MN)/J9LWRG=\MXs4?&V+'Orw$xY's9SN8li4$$AS85\
U"zX<Pb>g(8qbtgGUd]qMr)#;w,:j*/g+xMDF#m3b6B87NBn,L?8EJAV)LdPc1Du1
U"NZ]-Z<nMJM[4MXqTUL,s85O%zW?(#4[;7f>).7I3''#/7:P_l.*b'*?*LuYh7gP
U"Jp4tr*l=jQ1JsuYs.Cbjmx^b,Cf?/m<TbT_w^d8ihMAXpF*e>Y_,_F?7Ix5dd7]
U"hbs)/Msr3Q)(<?^reZ9Fe<_UAIh([t-rg9x5-q\PZ(2-s>gAi.\g&o<$&D'SI2N
U"jp>6?FTH[;=knOW:j'XQ]6*t]k#\;a[I6,r*#I(q6(hEi4\[V+ZDFo,QML-Q6h[
U"=LCpb0R0Hbb>qmF_ia*?]n,aOp_(HAknJUZ%FA$,7C1X.lE$>(IV/XJ['8qKka(
U"SJNLHa#mtYb?6a1mT(LlIp*K67ZEd$#^/9Z/ECAb:=Mkij?#R,+gW>_#&82)sro
U"q\-Bs'LJiJ#)vbPEPYl-tqfBejT6Np<h6u$d,tpbhPDJ?/.HSugM.av2jdorInn
U"S3Eb%sG,(N_k;4+Enh2fGbExU-1L2qpVgM+2YfXTX5m+E2)e^Ui.wlvF9G$M[6x
U"TTarpg>Rbr.?N(vz9r67XK>CigsAycsoAwcWl,$LO4>]$5-L*CBIqHEnj'uDH[=
U"vVA$GfEX>*7o%CH::JDc;tJx[-T_E-kIC9)/e?1_$Gc3)bXlp0j5XlYRJj'47HJ
U"L6]W^WUqe=cMR)e'kF+h2SnzB<hegTX,,*R8j&ep-V0CpnK=q%0gK:1/1I5::_5
U":Z_s(7us.ehI5XV<_&hCk?dtuLbecgEBPadZCUs'dGXYR;6n$^ylTN[0H<iAgG=
U"a[;Y'cpQa.kaFr]u<rt.K*PX285[P<Wh&ovJ;Sx8#SvUadAfsI?US7T_8=8e+o[
U"=T,N(Mc\w9WRh+zu2qeQJCC63:i/*P_JNF<Q,RnA,Rs2n>Lo_K&\73H2JgFZqb6
U"wK5;^a=p[>p>e$5]'ya]jBfc6CBKkYQAvh+BnA?<uSMF)VJ(p+RvX$Em8.oEDz$
U"tNm$7Qu7gYRNb:9>^/Ru53uwU3HYxKn.1soDo16F/,<'Ts]8eP)aaL=LVV%O:2k
U"l[=C0^yxPSiqaiTdCb?-,>J7ODWMs)$x+CJX'jf7Cr[FPfhE1sxy8A#xx>d*Hbu
U"\j.j'lxBYw?hR\.Mlq8$r7C#Xn\aMn.Ds;J$koP8eN$Ha-OCh<o^F)hDlVNl\[(
U"p5nKTkIZ&b7=nxYQxb-KE0X2Qs0:nr6;bMDo&LZJG5S^nAnYk9wMdykl?cISu]_
U"d/YDd8Za'_7a+V-SVnF6=D^^?eb3r7?Ru(9/r7B2Z/FWfvXg[GG/e\5<ucY7j%-
U"*dI[T6ObK4jN.ep0A\Z2GSbG]vi1Ne>7i?^Q1*)u'$pq9E.[Zwd46D&fXx?wsso
U"6P208E:BiW8$.>/ca]BFibdG4[Qehlk&6Zncc&,BWNG&rUbPpOggaLF_[rluje-
U"+)J65CZ*dOq6DR.)O=o7ll]DnTRMT5D'Z7qIxgAcD_IoW)?l<N'*ON>Iyu1#Ut5
U"_IpzWh*;9hLWQlLeAaeerA,i,ti?pUOFBhyX'q;Eaa_XUc#T+7mstO7?hom8?>>
U":_KO$slog4dZwHI+#SK=4\$\WI4Ba/ZMN8Sf>qdN,2#I[8:l01V]^?&]D*3TM7/
U"07y:3;5T]T[,(a21jPDKIfCm1LTdUxcZS/EPnW#N[7G-lEtypHQ#:7aR%J[Zc8N
U"]8=j.5G\*<>N9'jPEJVF+iAb#Z7Bgo.ucQXDFK]2kO6h(bBx:R8MwgZ7eFf_-r&
U"(9'CB,:rd'hI^du]]pTLYtK$7S9?,[1S%N//-'R6^[SF[-2wHlb)?VfJsD=_)#Z
U"f;HKG-9X*R*S4.X8w4o]]:tePNCuA[xCC8To[NDyrTmK^S+]hp_5C*Y^pBe,>YW
U"Qt6$8=BjqShY.l:IqfIcB<_&+gHOJ)CC_'/4Pyi;ChVFXS2[HsL>GA<F$C\^y5T
U"c*=XokB7VDfg'YE*>u+->r2HBUay';u7vP1i3Pg8=irh,SZ9kDj,.9?9)oat*(G
U"M)x;gV4$i0rZJK4$GF\I$ghsZtpu%[&8M?]_\W;t>B#mKFXMOf+e/6Xi9o/[C5c
U"DEBk\.N\#)(q*GaR_cEgM3qpeiN3y?&gG?qdI/W]_jxmAPpGsC<fbo(/ji;cMDs
U";6<,S&S&P9YgsfNLI&pTgu/zhI7gbGw?FCe5T::gK>+ZI>ZUM'&d5jUq\E-4,j5
U"kKDlQ:VFk8*v]QOg^*XM3bQ38b7BKVx3,sO$N;t$g$SOd'kW%%Qiw^mJpg0P6R5
U"(3o^8[lBs-RSDt4-bi,d\)M$'JB_po^M6GxV>p+=NGjE)eD>[?D<Ms5M&[;w=%R
U"i8,_qZ(J0#28[,=Ap/LT4e_c;1F^N\Uc\##wb==mr1NVp0D#*LOv(JlvT#CxL)S
U"e;]=KJmSY\W3)A3(T:/N>kvAm.D9tv)#[9+5z9m5t;]#%9Eo>ui^79u,DT_RiBf
U"c,Jx*gX)09';HOLP]T/M[)3Cf[EUrmr6-6oHRq(cg-3ZyWP;1j^D*^D)<co;lbU
U"azZrDh66M:OA+%qUnO\c]O?WdwYK/i3e>#JAd&M0q>Wz571t2#npDa\ecI&0kFx
U"C#dQ^VpzpZ%Jf9zca(DOAnOz'ZB%W26Cz:]z>+<bYYoj3lDMJ25AeVu4clowLdv
U"RANq#a6$M3v2%%ntl\2Tg^kD:CL6d3VWKYU$Gu;%kSPDfts9K\F3lCaDO;Cr%hX
END SUB
SUB V2
U"gqD9e:rX%MJ&*I-Of/-d-N.lG,.D':j3/kH(r$Yw&cYwNt83j9iUDIlAB+)RUM>
U"7E>w4u)M7ts$d<*N&Jsz'6*%UWn>z*II]+7nDHLl?a<oi%S>6'W6KTm)ibN%+1b
U"h1y]#/\:2)7htH6,/A$>*bZ>U1%A]I0>?J+\3sO^Wa;Uq-L;'8:h#9q[CM<<78%
U"T7h$=L3Vqe&SNkpL)XNt^Nwf:7[jxwx43p5o2v]=oe%Y=9ZTOh5/<P8?=+e3=lV
U"V\)5BBoM+yAH3AI'/wTc,Bk=q()W-hw[PQl[mv'7KT$h[xkNlE/l]<T^S')r[*#
U"FT+O(-)VGP]H'P0<59;'ka+O]h'/d*\/hP%8a&E/Nd9%'Y&0;W2p(0n$+i&6Ykv
U"NS:&%C%aPH%>EqIBR_pi2U>/a_1^+T:Ue/ug:g2UUe'aY>9u^?9d(q/ZROL2ebb
U"KDn7N^3le#\>0(uDfUOQ%5\spI]L2_o?P=VwA>f'H7z#=kr2nTX>cA9<jxmX+KL
U";8Z*/'W)cw9e*q6s,=NWR03y;>1:NY?SLJbUdvZRC73Y[sk;f(rr3xH_1xndsfd
U"ilsKKn,M.Xv'q8Hj[:X\WCFL(D%D;VU+fnb82X&aG[uDdq_%e$w<X#O6W:LiW:l
U"Cfd-hIPiW>0X1t-M<>-'3XqHv+KCgW]R:EnNCi1Mtk9lEFBH]U5.(=do6*cLHr+
U"Xpdsaz7D#v.2P4(aiS-JnY>P%azhppZ6<3x>y<VzxgVZx3&5<'=o:2y%x-FcsR$
U"jc\d1yzuxPh63(gzl9&Kay5LfRJl3eh2'V,txg#N)5oEOnOvH7#VdxOwVvt$P+#
U"n)8vs&X0<(uJ.$zc')UKpitE2\i/uN8s>\//MvjC8T2X'8Q0O8/Y0NOD'dORQXQ
U"^k=lVMA(ldO>>YAX7*dPSe$JF%zgPS:Cd/Go)Aa7eVf6s5HgI1ZK#/E;&0[uwwG
U"/ySf*>6Afm6Sbh;9Tu>gI^)cX^fD0LVJ*K2[,QwT[N0(n([WG]J\NZmQlb8>Y>(
U"a.Ged)\.-f0$D,M9<I)BaXK0/mvo89&Ua^&(O+VD7>+Z4$2i(3?b9<5[ip^u?Q6
U"_42oML[5zBjLD+3:;x0HIM*>W\7ddal,m2,[s)tDZzP'7XbsLP0WO,C'rSR8d(7
U"o39][$/EC%h>v;k$VnD6<cT+h+,b3Q;X^-G+g/>fi&#.DAM[_c/EtzXvg6Koj;c
U"n7zPUlXM0)j[3_H=Jn5=[3Sk^]6$'rtE$]CT1fGbmMJhI3zg7iu,hTvLkGObbFd
U"UJT7XT:4L7sY8:a-&CS^3xqm$]E9gg8?qZKj,4_:*'AMlGw4l?3ieL3OgiRg>.p
U"QRcWMyji*4LZESm+00a5%&_1o(QL*Omp\FQxbERHJH92IfZ&HHJb&HLje/RIHmc
U"+E=(1f)HmM:(M;ih5Cp-b_736w3gdK:bZmqWp1QCj=>(0x1F$RKS?zYx7&qKC'n
U"A,h7cc7qLMJipx38sQ;.34]f_C5#Aza)p__i?=E=U':a)g]g5PnRLa-_p7*Nc*P
U"SzeO%4&WPz9bF)v>4RH\aLw71llSWi2P.(uMs]?TH:nsMVhA>w:)ID8;#VXBXxX
U"$.u5;GU0N:MsK2-IOC_tHq\1x3Wejj_[(,C(*L1$1IGCw#;$qEEpJ1PtL^,4TvQ
U"gkgW6e>^R4&(a[6F8Wj,luZ0/DRklFQ$iAhwj)s%l9JahU#SoQGC8-ei)#[)G1S
U"$a,<*00M(3=tP^k)%Z'c7KuUXVI<?L8E$P9iDfNirk^85<[PnJ-*Z$jRcMr\^[Q
U"xYr-GAX-nuKlF2D?5rmVdK=nCxTSt+0aP^rvnP6N9EIqr4^(^:t4NFm)acVx+5*
U"i:54qYB5^cAsDY9q8;&NI<;+YXvt80U?%8wa)9H8#FiQqljQ7A9#C\]A1\7_/<E
U".)<Nd>1Z\iq^8oWMXQ_Tp'%\*VvP[)JvG+ztWVCC%fUCT(gE2&Rs3,_bUh<\B#[
U"0KuBxWTfTPS*N$S[Rd.b8.M0CBb1'wb7utGWs9uw4M9vj?x<=W-U;vBurJT]O?'
U"ZPvy8*L+Umk:0T-I.w1ew_m;fYFC_7=.nE6_Z>B-wD)GeCH%:AR[G1M[9Xy>xLC
U"Y3o[]D<:488,?i:(c#?QW(HQGGd6JG7VW11vQYs2>;$/E5'1G/M=/s=29b=\V3l
U"/q,snD73]m^F9[zg-x-XGI=8BV[Q-39D9WB)>Qem]?8;G_>=WF?FM8d%]t(6/+r
U"rtO#hM4$4,CdrS%Gg=?a2da,4T$aa8fE$/cW7OD1DDyxH+s1dKsY=:Bj_8TIiCM
U"5YlYEl)5(Y&?K<NK_m(?wk>f8iDU:/B+KIpu9g+;A[/V.'6Iaw9w#XY;VGRDeUR
U"ek:?8v=h;>rVs9&VsASEamKYc%TXNbqA$-O)XH3\*;UNGF_oC+zJnD_cnqI9?0,
U"yEq>&0?:vVB9o4u'^<F\$FDp4(TkMtK_rNsS8IV39LnGbm;pdYQ\;\p-<R+JdXw
U"qlU,nw5AMih'O*:mI.=x'TsPA8xc/eB5jhX%c%RQ_AYD))v:P4JM%lMOYSpPZo+
U"Vq,&7VF4J=5%-v:Hf&Q9S6jt)ZJwCqM%%Co7:B%Q4o+qhQ&a?4%vx6.#hRp[HK+
U",vN,(*SGg]88g[xeuO'AF3N440CmPG%Gel.D\Sk>096wwm>pGMgI\1v7RV)Yi\O
U"AjbVpoUB7n6JQ()8/u-Nw2\<09dew#W(UG.q8EL=,P;m0h0ZciC[72ht<%XiGzA
U"C$RTMg6XXYgLi13[pDqdQ??N&j;cd&%dVVkb,/9eUdaE0*aIT=1&-g16,1AEq2S
U"/0MUzWK9L]];p8iEwNUZ:R+m=,U\NUUvkf*p.U)g*]=rYnXfc]g[v2ABIX)+O.\
U"L1bRP6:<T7SZDfg[P,I^_l?XFfJWMEnZrjOk-rdYD1hKj:&ER^1yHSFN6LP3EnT
U"8qYz1sHlLj>/VTuwSbq[2^.ui4uS.WAMdJ+8P-,7t+G(8NRT-XKz4>MCX/x^J+Z
U"VfQ2>zeb3M-HO4XCdhc1b,\bN(wNA>fCx:<50p\n$^vgt)E:?-FL%(6Ntp/:#Th
U"j<aCZRu],*[6XJguHcW^//-?G#E3C/6Xse9N3;<O3)tGkhfqmrA)Ho6SdM(+_kT
U"Mh)tTWWWUCk#K&(#b*H'#;Rlb+MZHh:,6c_)B2?,L4xT>B:frT;p\,$+*Vt*p.S
U"J;NlHCKgDVO:64jB's)BYCH)P:50kNnWGpW7pETR&s_N)[&Sib%aR$tI?#BU4Gs
U"sk16I+7&TS.k/OE\8]9.i=c5ZC^40tJ,E&Xnc21o;k=k98FaTIliNAgQ+OiHZ)o
U"V2v$Q;>Y=Qa]g&>S9J.\gk6as0n5Y_(Rx9gSR6b7vfxvO'Hy[D5=1ZCLg+0f_4X
U"oqc1jETnDIn%(vAaEjMpwt5Dga'B>x[aWK'1CG(aG_x&p)1dqCC3:&YSd2?Ug'M
U"rMm<is^5-($QC559LG)=Qb-Q<Y(4HATj[.S:nv?j8a&DIEG?WgR]J#AIz1B$^UE
U"(DkUq#pJ^2ucJtI,XJP8pU(>NR7LggJD%1k#vLiN0NQx=7*J>5R+sQ013aJ_Fk8
U"7:KA9zrIc_;16O9sn>mtAB%f6_%mx)%IRY1_8iv+1Sq8I[GSxD2P,n.[2:o[-jE
U"GBgh\/O/Nab3e)dL7yJ_rUbA0Vi(lk/ZsnXS$LCG$-XgnYSb9,<9i&l4pH_E=Nn
U"Z8m_BX\2SX_6skQ=?D*Wc:CVGY_]O^/Qq'$):JB*^k#e?5(mHa0^NMpAP6t3M6i
U"UP4ms]Jt#:fDb+ag:h#vrU\f6E1o#P#q0^wj=*gqYQ%\^>weOE#lBHR]Ln\$ftW
U")Qb7kiMjQd=LqgBD3sO*]0X\g:U<?J<WX1A=$;Z]jrw^53Y-]G_nMri:lcsNtYA
U"n#s9wcUKX$;4Ew06BDqSL^U4M1.IETmQq6iJHU[XZP\AcijY1uQP2%jxffgp4tF
U"/LEK%k>2gi/<Vh[v$j;GtZE1,;<[Q8mEiZCzZbO9S,B03usHgdi)8a8Y01k5i2B
U"r?j*J&S]4mzidXpC(IiVKX3_GGMe]$/&m2Cc,%;j9K\%ko&'JJKXfqAs'kFeoqb
U")*j%3s>C*UJs9_BfB#&#Z(d:enq<0_hs8S;</V.Fl7=EHkL+m(*;.Bqa0ca6eq7
U"Iwd-S0-(fql?13ta&YQY*J8Q*5:/gLe\1l*pWr)_j$AN#En'8QlQjeEgnNKQ,90
U"wm)<bfO<NCH*Dq#mxDnjwgRh(UGOt-]HRmH%]C_0a2-k+9S7vKSFRr?loQI#rBo
U"\E?nQX;j?q.:9?/),j1$,/sTcQWNghjosY6OrKV_m4W1JoC6TTd0v]\yBjRY>\0
U"84=q[tgn5*J.o4p_(/ma,4bHw9T6E9hU+:Zi)#S2wWae3kcb#y6B*vDuL:s=Aq]
U"hdua9#(/FLB>BJMX\RRx&XT2R.$[;Wb8H?Oc*li*Jbe4UKJF_Iqc(LLs$;M5g/i
U"%wSTB:]l+z+[KHIgLg5LA[Ka[Lo35%gnz,QeR?:4BB,uK%W(,3]#lUk9U)h,HgF
U",B+]eB4ct4$4+$x4u%p()9%%%%-(%<%W[GeGN'w[)%(%>-%%%/%%%%fqn.js)S[
U"ith&jzT=U.[5L<)oN=d/t.EzB1-A3FDS]X&bQuLjRO<Io7vK%9=S>vbHjkr-bug
U"4>x61j1vo7*Lx-$B+^$1^5+wntt(uF]Q.J;Ns:D-%LL1rdVv-E/eCpfHDn.Rnad
U"t\Z'w0__7btaZK?,[&d=d0Uk1U/5u#1<14cu.D0eU.;P4j]\O6[JE7xRfy<J,(b
U"3Z>gMumS.M2xP8PV]M%d]PrjdoYnJag]SX/WJe>5%y2T\o6mI/TDCB[kQA]Yi&9
U"XqBS021=hh*eq*<.h1nVyQ3gIukJ)sHN\^_UN<3za2,akLZ)[UnQ?Y99+.L0)d*
U"36?9=a;JZCVocEqga+1ZP5#i1/3C-L+?M$O-<7)gEf)N25qe#H#CH9kgVVQ]my(
U"c37nw;W=EXdr>ioC^+=8cS-F*qa?U>YS;07Z3eaO1ma-;-63.^'^9os;,0+Q+3o
U"-D1rf[BO7f45EFTBSTC*Y]%pzdC+Cku;Xb5myf]Nb9<*(iv/9G>Pn)z5,G73Ng&
U"I569=(ykNJHnDgh(fK]JGlJ%jWnXKiVKWT<Qk.OQY)r?X1Vx[cOM$0(g;pfQ]nF
U"*V1PN345Hf(84pJQF\J**G2G&^8Dl^b*JiIMPk4-nn%]K^&OLTwCJqc&gku(AF_
U"/XnMhulAm3#XU^^^G9CCLy.CPim8Z6/S#8FW24xqAJf$$f$\i5-efug;J#4sQin
U"o%eFQMIqH1?C]zdV3Vsx1\u&bNWwe+m4Gs$fO'^J_H<fa9.SRXR[0]_k(8CC3'T
U"TjV9ie'>T0iT=Xd:s:iR=$s27ds4\c$2^/%XbhGx0sU9R\\b:x,I1L4+a)#nvwB
U"Vi%uA,SX=W-4\.d2WfDtT+CA.QHN7t>p^0.Tp<#cV9$oSL334NP#+y$L'%j[0pQ
U"S3,LcCClEqP&4t/FX,#PA3)=9RlZH+AiQ$)N],jbc-ek%n&abvx]$ej9a/k?]s6
U"ScbxgHEz4TayI1-$7wt;6&1Yl[Q&foE[2mQ3dLi&,+z#OcYPtI11O_29=I(Z(Km
U"j/71(Ub+JP^X1V]:Q\VK<(ep30hf&4j6676t7MN7\;J=RS3a<9i</]'PtZ0;2DJ
U"52K3LZg:Q6=aA')r$\:%7iPtIf[Y7<m=rk?3(7e\?13(*\krI.D%;L0T=rHhD'>
U"ZV%ae&RWk\A9fds,u$y_8aaJs[\$wW2.++agSZfC3[z8I'Se[3+Z4:b7^cr-><l
U":^*mU.774(T%.icEBIEg8K'uCtd-dQ^C]>*t[]C's,>]&Ql:&a9S;w_S$COs2cZ
U"&C[?Zj7iJCb)3d;6y=z9#0rj#TF>&^mn\pi?5&5UC-?4ijfIUce=^gOO3K)m;t8
U"2)IEndM&>kg27*TMgD>-Xo5tjw%%up&%'9%/%%%%%%%[%Q+Glm$&pM%%%%M%%%%
U"/%%%%%%%%%&%E%%%%%%%%%f%qnjs&)Sgf%yup&%'9%9%%%%-(%'%X(G;Ze(5r%%
U"+%]%%%%/%%%%%%%%%&%E%%%%u%%%%x%htwj%xSif%yup&%'9%/%%%%%+%-%X7GP
U"B(%=/%%%%/%%%%.%%%%%%%%%&%E%%%%#%&%%x%jyzu%Snsn%up&'%9%9%%%%-%%
U"-TQG;zj-+%f(%%'[-%%%.%%%%%%%%%&%E%%%%q&%%%xj%yzuS%gfxu%p&'9%%/%
U"%[%%%#_\gF&1u<pI%%%%I%%%%.%%%%%%%%%&%%E%%+%-)%%%xjy%zuSg%fyup%&
U"'9%%9%%%%-%F%mXGdC*V<eU7%%s*%&%/%%%%%%%%%&%%E%%%'x)%%%fqnj(s)Sg
U"%fxup%&'9%%9%%%.-%<%%WGeG-Nw[).%%>-%%%/%%%%%%%%%&%%E%%%&6Z%%%fq
U"nj(s)Si%thup%*+%%%%%,%.,%T&7%%>^%%%%%
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
