'=========================================================================== ' Subject: FLAT MEMORY ADDRESSING MODE Date: 01-31-97 (18:41) ' Author: Erika Schulze Code: QB, QBasic, PDS ' Origin: 100775.2275@CompuServe.com Packet: MEMORY.ABC '=========================================================================== ' FLAT.BAS for QBasic/[QB/PDS] Users ' FLAT1.BAS for QB/PDS Users DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FLAT.ZIP",4^6:Z&=16994:?STRING$(50,177); U"%up()%9%%%[-%_3#$GCr-,VpKd%%f5%%%-%%%%kq%fySgRfxfLq%NovX95M?Us3frjt;KF(r^LVFKVK_DK*poxE/,=]$bYZ^[xWEjN)u-,PU.)> U"H%\A0c+eD4KWWT_5*G^Y2H741TvYEEBC:uSwG[m>p$IRc]QJp%<#,MKksh6?o5; U"i$2m;,(ml][';,I=t,gnG*bP152E U"BiJX]jWulxrBS3_DG$sT\>?\cQcqKKngKeZk+'5dc$qVJlfan^rYK4CBO7Q>_\# U"Q:t0#+Urb:T09(&_g'^4ZB(A0)yK>_ShD*k?;#o9[iY5eoNZl/_0/mUwOJ[&xTa U"%=CKE'E8lkp=D_+nd]6Nj&o.EM%5]KQ<$8AGMs/gAR3hJ9Ve#QAO=oqxtxOM?.. U")XdGji]6;Hg=CC15^S1V$lJu,M$YRL&pO>NZbA-+Re5CE?16E*^%QB_V8Wkgqf, U"m%nF#:q_bLC'4=6MS8Y:.J5/x+V-.Snx1/GfGdK5pK86qAGRC.OYZLafkiC]RnM U"2m,$I#C7j'Ut%KmO47-1TEM#_\b8(99ejaj7qU7H>1SeLb++3qRpL(ipc-xhQqX U"^[AIu)XcgQh;%aj/A+IiGQaOf_?q*6.mS]v/os?1BiFrA:&Rd<eU9C(4m4hxBt]uR+h U"%PjZrL8n6(Pa;e+[AY_6O_--g.?C0L89N+=^Wmp6o:l1;1)Tb5CJ7[dN]>RhoMK U"9Rdu/Zq7Tm=u[9B(_AN+Z(pN61cAxV?W^nHCs.QGQkn8G9aNN8g5o2LA:1.i4^Hc8T+[5:J U"B;6/2R\48;,^68#>4_MO3Ql):k%Ays>5^=Z)+ja?lGQXrbIUKwP+FsL$me6YA>1Ut9*eK?]? U"SHk?TBrMMa,*#hfVqkrkPt2%D>3\F#/*K/U[\Kv9;r//s*>6q+G\^YC'[H#6+J4 U"$$EV,e\2eH?X+3vVr^aACZ&27/y37yjKPkNY95g>\AN+hO6Sa9M_,n16FG&fMT) U"\bl7^O$D[ZULs%?vLK1JML0wk[.Xc,/;cPWjcf+)$G8J7(VA82mL%xAHr_MZdFB U"Db0+&=5n1))BUY224d=4QTakx0b]];+A_BoJ%RER&dfh\m(2bMob=I:HrkC_$<, U"cpicDoS5F/l1]=E[j->DfICq]7JR9ORCW^w8/tE38j75k''5/SMm'g:LRF+m4RE U"^&\.&pbA1u^Ieh9$:o1=ruUqMg))vQDaCUR1dGYp'A--/e)qwMZMNHkEO8vA]8 U"1&Kk4bA%:.k8^31_2ttHAK6$P2Jar9-sLU4n U"LE4J9q[+B7Spg]r7UHv12Tj5Q59Rcn4qS]V\Q<]J:;af3aLLIF/(Q,W&Xi_p6it U";W[RAYDGgiFvl7wF?Y6KDcMA''A)PGS-OD*CO/JysX7AGxv.^Iw4462k5,r+Xd] U"^\>E\ureX$Gq'RO:iWbiXQ,jY*gH7UouZc*TmzaJaGgKY=;*Al/-^k\JW5i_9H8 U"*':qYbd:yoe0<;Md*_e^N05?t8RdN*qC*mKQ++m,RH#Q'bBo]n#=CI]14xUD7bv U"%+KnFx'(\AN]5T4]2IunLNntTqxtVZ.'-32agB='I'nRSGUyOVb08$:qs>G*VLI U"#6;za]KUhB_^HON[3S?ek+T/TDzfK^s.;GXhkl.pcXmTZ[JiaHX)U5'JZVjoL,$ U"$QR:R-rnU3(-Inb1s0.nmI,.](D*UI+9UdV[jWW$w9d&9Z5XvOtvk7sjuN[_U]K U"=1W?$.&=iM0aA3j5kVS15F9KZEV^c)(VQSUyaj^Q^EaV#qSW'#?Uk^RMgh+3fNs U"Lsap9%u(;2LjWihHU,Xm%HIDobjM[xK7\MJQQt%%Yd7oxnG1YQjf<2jp_?M?Q^d U"Dem1:J7NL?5FooUyuU7RIY_xu(peYhW*\eekXEw$r]q8mVo,M U"[:'XM9&]OO*b5av%ZtR?X+1a&3Jr+&7B:IN U"JzPOV6mpv(h5U.E,kC-O;wU5G0_qR,k6P813Crr^iC=j.GSL8P1=SsF0PPIuo-B U"ldHSW:ff1^8DS87z%RrSF7uI*bYw&evQ,lbZUt&I<3WI7;HHG4Esa11s)xRPzT8 U"b8=';P3>_)(Vg7fG)]F[X/R(9zd(k)uAbqJ9Nl$Ufh6,gk=bV^[eo1,8aq=m3<. U"eUf8]61,GneMgiK%CI3Gtk.;m6dBq]NTStrdUK&pIJo(]#+Q0dYgra(.UBZT$UU U"Re=yTVFd*RoaYB;,[;\Gogic(kasoaWYisjuPTWJjx#yQi1NZu8N)BWfrC>Xw]f U"f9r.CI_]M\7\r-g,rJq^zv.[bZHwFO4a#z%-42wNkm?bRpBI5m+H4CNii_UAA4u U"6+4_=hg05Mw:Bm&e*0(DUHk%*j+1N+pike1-SWd40.xV1>Wn79Epx8FI U"1N6Q2Rb2m,&g/M/vxk[rDbVsHq^qWkyx5dp U"F<6^es22XwmK+&UJ>3^:e4PAf;;kR;IoEnabXcP=P_)=FoPneEG2E\%L'W(Jc5o U"^Wpoc#GASh(?VF7uNKl&'G/A:pBk[bDc\Cp#pioSQ.U+Sepiq:D/WqupaM7N4c1 U"jmLY91[#s<-,[GwG%CJA6UC7$+ROFK^asqIVW/xw(G9kZ/Q9pfYJ#W:osT,i^1% U"9J_0^9UuM>6H0_u&42rFs-QF,QIJWOJ;)=FS;uq*K/Uijo.*D0G7$D;x428(..G U"ygHt]MA.JokLKae0Z=k$*:$DuO*L1GE[;N-g]KF6cqd+[Q#G9SlC+TKa\k*98Wo U"l[63oi%4+7UJxbr%680>M+WIR9Uji-4H7?NfUn,wWQ$9%Ei77d:C?.gAkLbld8M&JHv[<)TJ7NVOS)cTMoAC?9i]E\LPZH0o9f&qhEe$ay)m3:k[2w1 U"BhQuXtf+uT+lG=^1q>x>MZkl^*ohn=]rQ?/&85fkX*\)9hJISXU./o[x U"CQdB2)R)t*)Ak5'5lTZ9Y;i]O;+sVvgpRoVWX(q-.otu$IgY;C=0Ui,/J8X*Lie U"sl>-g2D))DBCa[I0(9D#q^9ZaZaa8\W-/tnoo*Cg*wEnk*SsEnLU]Wk7gm;.]4j U"O46&+GMY1>t?[WxF+PkdW4miU)i'Lu_1$:K;r<,W^OXU42#tRS*/.$RhI,JYLTb U"4GpG,DMw%b2P\i#Hi0Ob.*YG.GcVFdt*t%8\8R(kUeMRk;hW#i'G;/s4o=\R[cg U">RDYkc*>hnbIv_GB;2o9,s-WeePF>2f^UD_4W[hY*?V6F2Y..m4XpjKvhMwl87r U"UMUn7xp[]Te[fI/gQQnueL-Z2:*8SvJ)At;Sb[(xf9V:cdDk;-A/nP.%gYuLZka?QAD)R7YvFo1LAg%u=X#):G?BhgutGhcA3L6Ss:3zm.[263b__,mK-^mgzSag$ez[cQ]o%SS U"oa)Q.rs^KNSBF^DDPFvdhB7kOe#Zko'qE_ug'c;.$s&j61ARGQg\C6IGTFFo0MO U"\G]G)M%aMG].SXD1b4.SdIgS=fU_S\PF.>uV_\ftpc:,REBVU.GgQYs\#jN-eKH U"&FNA-cZnLScg_fH?2(#ISUCk?G/_s(h->:TB7dwSeYoAan/nQmR52MHApmb72J U"P%6vn:8++nO:-(Nw(r_1NR):4VDXJJ:Pl0]rmc.C,eh=1#3*79Dc4H/^2JCZj)R U"s%lR9io5\]C'TgArguqw7mN]h9n:\7L;;0w,GTewD$m+;Z]_Hje?e-YIfuv=Q80[:L:M8kD2BiVd8V1LfIZ:mYwl=s6H4FQ;%5SzrG U"vIgNZTW0,w'Y+NU^'y>BE]>qn[XB[IXqfgz(#cUWu?usVDqJ;yCuN:8y582_]\a U"\vw,hEs))ua(\Zaq6yn_??b>JbSC06>OG:&)YO_X:0n\6&.mwF&$&9,W;AiQWT/Hq(zi:J<:x:oDdPO6c<1+cW. U"nNMD4Fk_DGw2v')BDJI'h3/1&kPsf8%_+']HWoA72Z'xShLb]4yZ05JT/ZP4\69 U"ELB8Y86^YU[Uhnu>l8[hx]>cEe(e7uXQl;;1D U"=T\IYK,'',0(zd^[w;,BmiD<+M7Sx%r\X3>2\&OQ4u5ii9.1kAl U"(P\H\4nE3E0S*:J10a48otp#:>lh\fZ9>DAo[0G-G;mJ%/5+j)TTE U"xqDUM6;jmnoXHg:x&sG(OMrBR$\aKAtjQYbInfpR,s%(i[+xAl.o-4op^bg[Z>o U"V-?5KY0cH[jtNbnjyukjvC>e5x=n2r&OD9*Q<07n[s41]l6r-1;'/hwuMZUNmIn U"9l#q,2-x9D^ACai$#;o0?3N.7hjOqQRj]:Z(hGRhEWo/[$?^bdeow-SL??jBBe0 U"49.SM2dN'a*zg$53.mI,iP4]:j#/Tw,5SDhF*?GkjU,$GtGK3$G^h23rJrnHk_' U"?RA&e>TP/BmfF8S%KH+o3L?'u.J'B]-E\)Sxf)9WEc;\VNW_f/Zg]2sp(1s=&B? U"O_:v':8Nvoq3nWsFaPD5*_=53:s'U?1;d;<4\?0d;m%D_[tP0Nts^7pn9te8DZC U"pvFV&LLNVJjsF^5FY[S]kU#X5dpP8MdeyU6FoyGW4?#8&Hg_>Wnte08DE2n1,J/ U"=k-&6e<$Wm9te8D)=j=V_UKV9YKN8U:RPglSWa1XNYtOLKZff5,O5-/?lA=Y'e> U"hyPZO)R6Xs2;h^sLPBrxm^VOi#eXp-G\DTxgoLy,+.M7;$:B,+2#cjj?7kNTLV6 U"p)iy]V/zP('D2\aocvoU?))T4C?Z'3Hx67ttFg->77c;,$U;4\YIvv1QL8$qX#j U"wEi#h:0<;He?gQS0Q#O-Dt;K(sS:,PP$&c,gBI_0VNO(D7uajv.O(d1I$0APV*Z U"D<3u(4cij/hEfqRcnQBEUrTe['C#nb.$(csv4?QBJd1TduWW_FyOJe6c.h1CMpx U"[eCBs&Y^zvqo:]?rg2vKW_)mk-SS_vOff;10*MC]aV%7FXN2nPw=0/%]YutQVJlgX%O+_iVT>(4vq U"D'#AFO?f[q:JJ1Y+T)G,+pW29d=N'oDE?/i87;'_0'a/4,QT,k]i=,>?cZz-1+f U"U+$:;Q$UXN=^^%q9XxKF\^t6LP;>08JDwxR)lVQ>Z^c#[:.wJqn5iU3KU9(a)\, U".ycKrI/BL4:PKZG7,E*i6hOAs$mQ-23jgn084W=KAuW/,\W,d;]dh3;qqxXapvl U"]t^:^+-qattTXT,U+rU<>JrsDG U"[hgO$UnnSx&SdCj5w;&f3wYsR'iaOYK\Q'hcv8u-C(rlNOBgdbQ6=Wteih1EZsw*/[q$V+$/Zh(=rLW)GQQbFVomCv8AH1l8d_Tu*/EOB/Tw49 U"/^>oHQ7>[.9jWb%%3,<'ywLu#P#)-,LPW&xW U"J1LG>/.'n$AiE6r;;U*KA5+vwgfN/U-vH^rRz4dG=bCd<:_W[ZW$jWbodDoah[R U"=_T->zVL^2oPy23bS%4h<$$k]k\*6(Lo$/cspda-XlIdPS8HRfaueEGbgle-\wl1sjH\I5i U"#3/9oag1jOhYr?X(5X_ARG06\Kcr.bH$$Rf:&Mo$X(NEj)Yd1Nvz9XBncVem:== U"Kkq2UAVMWu_;=S&[x*T34nn7:D+J8qdm3E+I9XL3q*r_MK^ptN:b?(meIOzSr2A U"R5n^g0,uBht4:.>2EPrw=.?+?_uDPSpoI\fiP%-9dM:?S91#sO%ZQAm*]c2V'G1PjYC9kJ U"$JtAYD2N#Wz[6*84&DROv+=d:=R,0&2]Y#VwVlt4'n)7Qs0PLRs4-r>GR&mrMSA U"rO$g-eKJSIriPP_E3:nDR[sK+46I^(j]MT=/xi2OKL*38:p4>Y6*61SiSDBJ3'l U"ZGY0TNF_^m6^c0qz8g*dRf<0'cf]:Cv;WJ U"4R4wXTe22iC&hZ^J+y?%gF#3,Zju>UxO9_(>3bABLwGLl$C^>rZ,(.D>\bbFAW\ U"m)0u^Q)\R$\N%5=)Pd2$Ukoi_E21xGmk(qj#SqhL*fh-:2b91sB)Z#bP#[cYLX. U"1*tY'SCTUNSRDif?p.h^yz4_0%vhZW7-4Jk0h;ndkYCaI4z+,S;ExVM+$_A&aZr U"Cdf^]^R*LDqFT7wV:kCLWPxU.:(EdE;ta#%bjP)XHH^fqkE%]7); U"^NjC_72CsoOjrjoXcJz_PytY#<*^bh8qfdIBR13^#'gDA8noXS[Iu'5lF94sN.\ U"+Jw*0Mf;p_B22PD^\]pq9wSdhCB[B%qL6OtOf^,pOLwDkR4z.5YlG#qI?_^?pc]Nb14e?\g U"L7z^Y&%]KOaO,?/l4,RNd8k^c#10(N]D3BpbhoEJAbyYY,XUTGJ30:J?.c(K0R. U"%*RSSW2DBsB,-;Jxj3\=4:dSIl>+u(<=ugZ53PRZH4zJg6,_M;lE3:vL-l&MK:Qf7aiMEp U"cm]/26cV8%(v6f%kd%lzTzN3.n1$VE:d0oOYzMd-+v)-,y-0k6I::v1Z.-DNQ9a U"uF^,.z3vk(8y/^-VGpQ4n&_mLrGfqJ-RP7Z:^UNVD>XxN.zgwQjW$Foqr$xUpHt U"zB]e>0J?rX<_VcNR_.nN*1hd7o*uIxgtQr$2KtPmwCCG$FDkw+zVSvUdWqA%oRe%72#'8(UFb5HT)G'>u?]xu U"#+GM8ivo-d_z:6X]o3t-kFITF*Pxxs%S U"Rw/i:DHGZ0ol4Bjm\r]ZhW2D\9:9#9;_$u7LA[.+X0w3f^.BD1&o*C(+/E%m+[9 U"9I'5cd'2F_eT4wcpUWoCt%-&;]\/(._,]$CL-_4*yYzdrcl5CQ9,?:>91gD)9OK U"*COZu*1JA5k;IlfW*Fjg:)u[RRM8iE..kbxMLptGbwC4UlK\9PYdBired6ABo)O U"Nm?3FL;FEFl6V/+u]89q U"[;fTb8\MSZQ0wd(d(uN1nfE_Rrguh7fzIya+w)i[B>TcVVsWkh+:vI>AJuM]%*/ U"nE^T1Q&_Od,LtEdzB^<\zMsYx--^;pzTLY:kA&q:qenmpE\Chh#ntfmh&yZz.,* U"rcS]'Gx7WNyDcCT)D)8turRNp6cQI$2v+Qwwd;uO,OUE9,grZE,M[I?>1bl,(6V U")OFPpK/-q?tx<%PEULBcm_4%Phl<>ARPg7bK$nkpEkK' U"dPJbi&A%v5wL4fs-aCikz#TwfH,Vgs3kQWq%%j/D9Qa=HY>stu=9DG&Q1#Rl&#l U"Oe.5,$s/O)1\.?*iMof:8y5sK\9c)VtD8[a U"vdinkJ,MD.yP&(/m=d0mSCP#*ty9L\l.rKnSyWi&i62Aw/>K10mK:W:bN>O=1a4 U"*f9pFD#%3X1xeNR(Uf6%]PrSV5qEIlf//+j61O(y:*C0iCPh8j*Op[L=3]CHPRi(Az;XyT-JlQhIwf'1jbAGy;egGW0eMvk3nc/(.fe3W:G()]bb7_ U"BM/R);N36TS?)3Uf[Qm6L703s?(OY>*hGM+VSM,^BQ=ds3su&25Af0f'ujRNztRhziNhBvwea_wZwA_[3]IdIli4fBxf8fm4X*D+G_< U"U#6N$p3LtK_3LBVV9VpjLoP'4c7aZY5Z*n7?Dahgo6;nc>RNxXCdA6fmZZ$/'oM U"nGP/]XmD?#''j1YnSi/%C:dZlUNKc/pKENAum7n'jp1eMC-xLb(gXt'h%z:uSad U"9Xq^EZ7Lj5Fg*A[z7Z,pE]YMj'j'_d[Z.,njlz.i4:7T>pGQs,kj'^#E1DIeXN[ U"%,;cCN>0h6ij.i+orw#5Ik9>n<<$jj,kd#7+DimOi8d+W(^1xSl;v_NL/E8[H1W U"ImhNDfPp;_&To$CE*.eVOzcd1K#BE9H&ElT5v(nbX8.T[0*Olp^YwEA^2:k5wx':]X2TOE4kDpX;hQ,kbV_s0S U"=cV[PY[,k\B,DoraB#Y^IWtF*qm*gu)O$1.+Lr+0I='XVI06uhsi'PN7DEXouDkWa*:kHE U"8ePU2u2UaV4#Cc-Q8C>+]F/WR(OC$'KMph;w\m.Y^=>sHW>]75af2]J^LmN)WLx U"xk5m4DM8n-n5BLM<1od)YM\Jf,DhdK;;R=#u7EW?FXUO?=7^jZ END SUB SUB V2 U"HGT,#?C>i2<li4+ofDR;cyjC6iLWaZapDGYU)O]s2P.U=bc; U"*vfQLnfHtigBgwhCCXI()0gW.O)iWOatp:lXGf2YzG/l/ociqmKdPs8faCrp+rt)+l9l0>Gv>NczDeI5JR(P>YiBQeGrmi=NPurNn U"svBhad#hvEki463)SYK4Md6W;;02irKs'N=Dc%M:>\sMTW_L9tHU:cbqwM]LKb- U">k.YrExA^UUSep%WQtvM4'J6q[=gm;S'VG-fb.Q5TN,Km$+PI2nKi5WrIuCGNPb U"QA(nm7$0z:E5c^Pb^V2=aa8jNsu^eVdbFHSwVJP9^j-F8/#uPId(F U"HHeP*++S+YdNjO>6]lYVH/P=k&8(7e[m2f-BJS2YT_(c[Rk)b>f]<]v9I81vB?HM\ai5+1n,cSat%\1:?qfcr.=_k6^K1DHl57Y3*A5teB)Sq>3XKl^q(4K U"8rfuXo#s;_62fGr^o?nxFA/6o,nW]=0pC1J-6v-2K\a[H3#2t;[6tq8GRL2]Q)S U",V#O/2:lPZT\\9xAK'Xu6?]Dx^[&TCPD$E)HaZDfq#V)f2'oBeioWBjh*OS869d2sS0uj;YO6lGi)rWTF$?9%obYPY)(\a%S U"tIv\_Letqj.NQ.b0LR+HC[?r'-MqHQSopSfp#aZ\:?'dJWM[L0b#RH>Jg9rXNKV U"7$ELSu1\lXsIK(T>0$h92Ep(p9+hVkUZA;+.5ktOswR:qLOR8y:.H-hrUpbY*>Pb7[h\T39;fB5h U"/#?]q?f*:u_%04(=[l9_JsO9hWk?f)2(lG&PF:B?'Vao0hLcZEBpHr7Jol,$qpg U"0C\IG%XY(=[FJPja9VHAS;$3p-]+xI2jqE'88bm+Q>_tx/[Jn U"X_?bRVBHngd[Z%_doQI#%(kqvpH0>rklABBHQ'hwF]1AWy,_>M$r/O;kuBO)jlX U"G80vmDUBqGC3.XI_jM))jo#P#<$jMLw*V]ADb.bfS_C%%>>PhLHK\2kUsd/,Wm-#'msjTik:4=J77H+*+1UNGq2xzi%^z[7\Nq^%QyZtc$L U"VXk=IWFO-)%_lOm-'-NA]KCMp\73?GW>#Gyi(,k_ahp^/DSr?^>&uAb;vtlItdwwYQ>F1-*&# U"9GW='UFqU6;OxW;yhvRdk&5Mgs.X3DbV?%EXK&lEKXVdtzn*M3.Zuc0-gRVzWe^ U".4M#].R70-ytiV8kC%htc.waAEiHh(gu<&oetzRZjGABixp)8Nee(+xl2kobtbU U"/X;Ddl0.Z&coLl=,g.=ic6kcMJ35_AKa5XKW,fIsqCa_K+PK^p-WPVZhc;dmJHu U"#ycv*4S9\V.v\xHzQ]7eLuuT)XLp.X.srVr0?6Mnwpf U"c/X_Ld)](3&nl1-ttnW30)nh]#e,.jcf>fuIwO$7D5<-Xz?(M'<*>rK0Oa=qH3= U"Lk*,H=n7WDvjOf/7Ebq.MN^N^Q<8mrc_i^$-gT&0I?-A(N?)oFT$(: U"t=2A:#D)gC8,o-(HH\ScEsbn.tC5&lYzG'QOc:6n;LVkiqGMVAAZHol/E3(b_OZ U"rK%+dYN2Z9,jN$]P:d/dFFd3)iPEKSd0XXX#tuqDYY$-g75Ok]pNNj+20:B*FUc U"^q86=A6O>$8d3o*V#3Mq9m[BE*,pNuG.d+zL^A9KMV3lhENJbyLU_t*O,P8/W:. U"#:#7J4yHa7oI1/M4Tfh+8R+C.5?hfBPcL.m]_uZ+,:zgfn4N%(Fyb7pS7R]8:i> U"Jm=AOg-&r&$TS$dygzq7pZmu[j26,6B3hRD\tyd=3OCVi6&^ZocEb%/9&'Kg>[1+XIt(hmkHq',R/^L?Pqwc) U".t,&]8/MKP/Yq*r-?twnClFf%i9*EZFNQvNH,KX]^=C9PdQAfcV$LOvZ-Qv?,WW U"R_Ee#/0i1iLg*&9'io7?3RA:=X?VF>LW=U0nsPJ_/=13>Q7JiFI;(jP0rPSJY0' U",9Z5FrA+OZ2$WO1(>deG%DaCn[jGJ8_;ul(5\&)^641Q4k6p>0(Ai+5O<&W0 U"u8U/2?VDSPttgLQx;](]#QTKa/zX:v(s6\0?);n]h+K64*U_DB$Z>,L&F\\95XT U"%*V;kWq7]qW=hhMeWCz&smxIK;ciw02?F.RwlR)#h^Wu+mYtOR]]9]6%6U1u>,X U"e-ehfinxT.17mgOV53g^Suwjg5*(nJCP[HwO*O-WQ%1(JBlVgi*;vb217abViUk U"51NWbv?2:&,q5k[B?'57C'OCGc)q1w+J;oPf42IYm\G5m_I-Db/ap&)]x6A?6M2 U"(<=A'.cv3fb-hRHKLzB\GvLzB4ZEat/[k2Z9Ja+>i][eqN;w3(OCO7\(hIIQ)u) U"#A7=L7V<[WGwFHKae=QOijQtDh:;9I3VpF++SV[?R3VBCG?6nMf2K9sg^71uVB* U"/Q-s?m50XocW\&TBNjw)(zp+M$j>1E?XI\Z)m#R)R4v?KlvwAiLz)*,M%EV^l>< U"eYaAK%Cl*9)D$Ef92Zs%]XmVS,Pg7(LajZ^9$?m_FIK)$q/2OOWJY%#\?ebHL$? U"uq(sHeorc_gq3=FGED7MLb.[oH\htF$#Fn569KB-D(neA-8AB>aFFgx.t2DThV6r)i7yXEm]PVmpQLQLCGKVI0dWWl_D,+&1B9r5B#Qfv]M]f=sf3omM\umFGt59>Bb+bTx\_I5AL-Hd??QLJ>hlZn U"&X5Ef7E;MUBt%UzP9<49^Bs'>'fO37D[sH?0'9Jg.WeAh^EIA$lU]_bWVa3EPok U"JX8-+v\Hk]?JpST>73R9J#jyBimF[Ah/9$d4y7e^gN7^Ua98,429E'9ez&a&TW1 U"GsSC?%+.s=mC9H9VIhrEMY#N49C1MD'>)k#?&)bq^Gxlqz^L:0:3#x U"XB/#IM*k2vDE5OiiZ,n=h?6DVD13'iLjpJ5i[#/Vo(>]CALeDWphh:Dz2>;:-Qr U"^GxB6h)h_A,6-Ak*FEm[VlCq9N>S$WtxErRj]Lo?#h46U$SX7&nLKo+>=X*#)l*T]qu$[j*o)8N4 U"gugLhW(9IXo#I*fVJkPg29YL$wuJI=Jga%TWW6z:]ADr73?eZ:DMI&&lcv6_uDy U"./lGxk??:7zEd[EGfxd<,Qsm3khsE%+0xujKA0;u*&EK:jN26?,7]F>oTN^[2a8 U"YTkEWSMP$gEd__GWt9oX+_][>h:2Z4Xs:K9&H2jZedmPsAtK[3.YQ)w(N^+]1HB U".WSh;abV\wV7m'$SZ0(Xk-khd4.u5FF]Uf8\AAz^ U"7S\pMh6qz,h\/vjA#=%2)uX)Y&CctXgRIYY)Udn3l;;jonZ1[,I+6qEVT'Djm20PLCs0=8^PaED?GX\_3>H5]BN8> U"3hk11TDlM]jIh^j_<)6)8=CP1ixj]=a_-%G=w9\P]U^uC/&O U"hq[ZngVEMH(84M7J=.6j-qqwABXil=m4,4v3TKs U"PB)-Ci;(kV1?Ygq/E0?<<gE>?*S2B-43?qBF2JKYRuAtR0qBFWH?MVy%'JQ8 U"Vj%n2A0o2/HI^*QOj=4B/\3Ibcl6sNQ[MrK27[S4;,hVd#?4l4HWS3CKABWK;/J U"H.gInt;W=[:Vqc=4vrcvo$r%)YktGX7OZoe.&>bE,>J#ZUuZFNdrh-W. U"('2f;ub9X-23tD/]Fz(4=V$lPY3Bz7NzPX$ovTTr/a-5k*CE$/DNJ84O2Ykpnpx U"N%rNP>6^K_0'bxq(QSMK8c>AWrE:df%ELe9[^A^JSOGjiI,$ZxI:T_'Og<4ZYPi U"H/eKP0X+0Bj^]SYHHsMD+Q:$dqdQ_Mb6TAjQER,?CYk+7raqQK[S\-*mb.g#?^J U"0jQ/Q^lyUIFK9't4Yb;7(UYB.ICqWVL>>bZ&bACGLcZAc#igw/8en0a-J U"jrgy$O2r;\ZY+u]=mq9:8mnXEgH9*lKI?+m,cCnAZ: U"eZfQ_o23&>Rvv_dq#?Ib9]_UKKe\8Qm\N2sOmxkK#&Xv[Y\s+#'aksL9kVHlo0w U"GAZ+1u:GWIr)Lq'P4KPC+W8Bjodlb7PN:j_xl;9>P?%g6aPO\$q_ESE=0dk)].C U"4vVfc^#\OvVC?8dUM=L18-Au]J1Csz'*a'][?[Yt/3/=,ip)bzNo_.ypAmEaHnNept'7NZ-%C U"t$CkQ-YJGJQD/W:TBvgP*'L]rf-KgaLfHTcW4AmQKj*,LXMP#:$0UsF=00[DbEd U"84D.f>-0XTX0gI[$F.\sP>#KgL$frsCQ19wjFUcK['3*knW4n-^<38?818ggSXB U"mg0=p,t&/'B51SEYfE%B_k(CKYUX(8Jv%OlO[nQCO)\(cH87Y\fwmHM,6^_uil2 U"M_7bvm*8O]M+lD'fB^0A_D:0'FsCgjL2GWjt^pigW5BSz:hFn/ttOGJ^xGiqtuA U"co;:7;;7k=T>_nMb631emG6,gZld^8mMOF4kb?5Tq]hNH3ti^7*)24QiG$U%NU0 U"OG+#^7LX5bqdj>0fYb7\GT9(lP>o_*l3:iaa-\S5fd?1C8FqLb(Y U"eyYp[BA.-#=gK7Q.UG7cX:#o_BQ5uU86rm;fRgDA]%#YMV2#SRS0*MVd#hh(7.a U"_=FXxedqCBETu.Xr$IT.se8?TWg5w:1.<:6lf,lf-lYS^S*2/*=+/6-roh7oAHu U"pKT&+5.=+1,-oqj'/j9o.4$SMB(]GT_RWmsKSNKbQ26%abWkD*9^ul>Rv+^e\Z5 U"iVdY]tra#*=0Ir4<:6Wgrd4whZwi-Uz*mloULl3_M44kc4U.lJ1)aVtCAv2N4D9 U"]KnfcU9w7eb^BcQCbns^k%EWNTmCt*K9p,n9Vev:v;^cjNBQ9>h:s(Y^q5g;A&v U"J/JjfM\2(jOGK_mQ=(mA8afh+$O^=tP$=q#][ai4tbiP5KL#ec;K,VjKxoHsSlR U"u(%Y4MX1PoX$bVOmiQH4Fd*>X\kWSbq)Pm'NH[+-fp\)Rj4c-s4E0JG7D3,t]0= U";B>a1A)ms=;Rec(X_F=>ZAKUSq80%WE6lxSn-s:)V=FOHSP;co9E^X]y977Iajn U"uKxe?(Yovo[R;mJ(8uMZlXVt7OrD30DTgYQ-7:9nNH[_Q%1#5#f9x7FYe*wf[;P U"2R&b;UFqj*AM+>Yn2\p(*&v;]F_hYnWMA9miHTgSJ?Ru4W31rwtptl8L)_Y6\UA5unNu%p()9%%%%-7%h0$ U"^GWtT)>&'%(%0(%%%.%%%%kqf%yVStIgoTbW::L?=9#XTWFa-z&E/w4Wf%#EEV' U"PGG?Ygfk\+=VKK[lY/xP<[V0BIE:$eb5(7N7O(mhCi0v4U,+(4)+(/QL4IW+qwS U"oyHQ5qntN9aym7tMhttu7Ht71D3r#?5SkgMD37p0+WwlI%Ec(.P<%HD1tw)dNQf U"C)$WwOS&S&-)]kA?H2&DPK*4r^Xspx;34zJu#p[=OjJ$Gx_%r#QMG9+9eNs;jN) U"Ck0:a3(C.%EQ='HI9VCH,F?'FzKw)(HWVFNo6Gb*hf>Djlnuo[xlLJ8go-^dYwp U"/C[hnY3=mcUI2C>]'4B\eAg$]^cOovIUoK9_%if2U&?#ti#bx-bSC39r):b)Bp% U"SE7'I>qJCadM.feC:gQq]SUE?N^,bAr&#Jv+ U"e=CEaz_FJu#IW^i1]gn#U4C+.PsVE=RRL-]yQ-\iHGM;3hN7v3vfbhDN6fU[Zb U"A#pR5k:*LCcK)8TZ,TWl;rMlZIOj2a#N+m?^lOTq_kM7a30j/[oF\_'o2di6q,M U"^t6MuPz/#_6fm<3wnrR#%lsu5rCCnNO5kjhxc-Pa>L&7ePw&%PR?Qu_2%&'%(%0(%%%.%%%%%%%%%%%E[%%%l%c%%k%qfyV%Stgo%up*+%%%%%%)%)%' U"T%%%&#f%%%%% END SUB V2 CLOSE:IF S=74AND 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