Jacob Wieles (jacwls@worldonline.nl) BLOAD GET-ARRAY IN SCREEN 12 ------------------------------------------------------------------------------ ' BLOAD GET-Array example in SCREEN 12 for PowerBASIC and QBasic/QuickBASIC DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GET.ZIP",4^6:Z&=19378:?STRING$(50,177); U"%up()%9%%%I-%oI]VK.C'dP+D8]p<-md&xw/c3hYTH1;h_/5SJO[6eA9js.G+M3G)S)X:BaP U".mmNG[oOR31b&?$KoT$8U'b#hHP.ZC3Iq_VJ,p^Ir[+gI4R1Q=J^BDa9Aj;w&Uo U"k:[Q5[Be%<0dXn&GV.aou)qOI'sTS[gVc(1zD%U=sq1Bb U"/s?YD=K>-E6/e2%=Hhb+V.8RuaTi$\77%ePRgllW;Yvp&h_VY3Sju#Yjol:cZ-= U"2lu-'4q3(R%T8_LEsJ4:W]?S:UnYKhW-Y>%3FnI1DK9;y]iSH U"a3prOQ=%t6ffl^/mZ=[P+sb/,/D'\cTxxp3XlhA6eA%[c,K=l8n10rG51j5o1n_ U"fU);:yi'tPI2Zu4pAY'LC3XEW/TV:[JIbA0mLzetz0GZ(P1l&[hb=j(djyi5HWq U"4tQ)H>noU7c4;6&6aGH(hwMYg?:BS-Cn$ U"XEuVx.%t(3]#-8da]QX=\GgO&Q0jr>dDC56:[u17NmH[vnsb$e'o-'Zq6/L-rW' U"$o#Qo5.JZX%;/:;Y^w[%dDYhBF+8^>K$5,;X&y>i#nkMzME%8Tuw]f%]6nK?VLe U"^p>ExVKO4H?i]rX09DQ'R:)5i)J=y*1&FlvH0T,vR.PH\&bugIY2iuG5B63)p4?s)nsap*CDRVj7G,[vCBW_m/^SMm1ufn4ofv8P*xkv[-?f7) U"cw09wHS?TQtv2$G#>rdW+.N^WDHPlW:gS/s^R/J9[2ny9%G-CfQ==H3lu^_N7\- U"n\0CpZ''xNY9VX[,tsyKHb+8';nUQbIa3V.S#4qYjLM$sAxt+cUWedp&V3d-N1u U"fsXrKv;(A;Z>6TE))-.js5G8rKyO9nlpp*T[]NAtX^-WqVBQtXW1c,9x[uo4o.& U"ShtuQ#Pn\B#,p-EmM1aU\H8&]0B[HgRotVur3_wBwj($L23]UGeo(d%I:=h&$KT U"Ag;.1UK)iHw454f='^m,&)-$Ae;/mTHS9,c,Pg\d=CF=$y8/aaQD U",Hj_\?P]2u1sBrl#a_0t5-\_Hd#.=b U"fL#dJ7/eZ&.,E2<;'I#\hoFv0LiU^)fh^HZ\oMG:ZncVw:mu'.3fAISS/a?qWNr U">Abbdt-7UHtKBdOpX=I<0,n&en%6WbQl&7+F]\'\en9,4d;&T2apgQTAvr-pAS^ U"K#63I4^W&;8 U"(/N/wb7t.2Mh$w<1XJ$WT4(3Jg:lJjb^(iU?:eg,ppl(9^>,1*K/byA..tF&o'> U"FhvFQ_GY;XLA\8)<9FND5,2i9^ U"7rb_R28rJ9KzU2wxCLDc^-VaQjpht98+9GPv?_n&9FFCvv+v0Na+,^4L>omvFeO U"a3Qi%D6wa9\a>PtcY.:;BmR55lqpWxQ/o$zIC'wMnSbQt8wz>p+^MUK,er(0h*- U";7GN[4;tn9++*>ss$Rf5kh9?je*/MOk1AZb=wBmL3%I5awKfCJ6?%>uINK1HCt[ U"-l2&;b3h1FEhUqDt'Q[#NfM&2p[sDe*[(5(vvQ4If7)9NPWcf0*Et+HGcls&u%Z U"/Fd=G$^u8uk'Zy2ng1he<#iSMh0LmA7-E_tsg3&*ICws0?]Oq06'Ra+W)/L3C^v U"6'aJRmYn:'7M0^5\9sK5MXCl3AQ9jBL32t+P.r\*sot/TAi^WHq0_hRPxp$H1h,>,.Qx+>'[zN^reD?pDr=&Usb81q'-o)_'Bs2x U"U8%?0(FWGN,Y7?JW><2_Xpb#V]e$wl9SKOGpns.,6[.C(+iB%O2E[nWiXK0A:xy U";G/g?/Qn)K2'd&;HE95.1K+>)^BEv0k#grYd%*YhWhkpv#WIm/M,vzK^nEwWK]NodHIq,-6[BYSz^FG7R U"rh-8SW:z1gSje(D-9b4JX:IkO*GP/qa9pFCA^%7IOD: U"T/D+D%[Y(1p>O%:S^8Fe((7;gtM.bvPpJvvF=29^*=GToI#6#_fnPm_+G_J6YF4 U"9J&/,pWc+Me0YX/sH,9]N1*uhN(=(XG6*>9Jj\7$ohaFL'N5zS;Akag.Wj3S&MA U"HgYV3p2(9QhSk;61:AJUq_kqZ#3c4bTK2;S8i7)&w8KfH%4W$Yu#?Y-JbfIAm9D U"A[yKvSerpbHOYD3v12m>fOptCyFf_WEo7j\g_[$Bu^kQrVQ>6^(6l\rsIcbnUuL U"'##gRH#'Y4Z.qd/Wf=0P9v2VndmS$:o%Fdps^l?%)QeOM,=(CjP/uL0831LF3A) U"Vz$9h]?Fym[6/)H$Ax39sv.Qglwx%0u,w39e68:>&HTwo;gie>AnW=EEt%#Y=ud U"nnaGf$qYT*Yk;N.n'Zh#tdB_n26>yMYA3UDH6UCWl6C;4rq$%Hgt,JP]iiFaecY U"xUYPS9(vL\zmz'[3,W33TFl/,f,/&k,6%&6Cn4Sjuv8rOu\wk&+\nP$eukj$^eVU'S:bEN_&hQ'VB>J:YO9G#RB3cl]Ng U"q+Du(Z'tX>rq:DJSTdMCDrYuLC7KNo2\%O2#r\%z?-w8QG(YA_\LvNN)I?:2w,z U"CSDlvgNPYnUd(-x,tTQUHv8ku_x%xmB8vz9PdvM,H&xTCKnJ4:l3Nzohk%x6QB(6k+l7d[+z U"=#hU8>IXEnb\dP8#&.%gZW=D]b(a2Q'*El_W;7YzxD+.V<)iQaYM;YgKuHC#$rR U"]lmj6A$3jD8re8Y2:IeAEkzEUr1kV37$M[qBh8MbuSE4u#W5+TG:4f3An87Xw'8)nWZv+ U"[UATUCn[M$xK\fGhE0Pb(OJ<>FbT'[eraT+0gwI?hr^dMfW_)7,KPSWmkaW9yq2 U"k6Pj9B&GPX+]Ox)e*w4gHrsOMrA&j%XTsS*QVF*/1[9rB5O7='$si,-2z5ec:-HY-iK'Biym_l$j4:V%J\[C37?-am*FrHJhc4UXqL2eeh_Mxcwa=RX]TkgQG*Ah]1tR'7h U"8w&O:$gkA2Z*tn%fgkA[HLri.vuF-nop%$H.(IoRXLVZ8n?Scjd41*qL,=m;::S U"FaM)T7qmr%>\;3?i9LNU04z(&Yt7UyUq>&H+]XJJQA_MhkM1S4dB1U^77l6psOA U"nUj&-/d>HLKJ:\fg4l_sOlI.(R*&V_'XN9FWga2\YT3f?vvohi;3f3regV6/h_X U"z5,x(#b_&$G.&a:;*2ijfb+.Ba9F*KI>g=WFjGk[&OywE,dekD>R^OMuP1FUPO' U"z\mzsDddB1Rg+k\U4I6n<20+&Q6OI;B'q\up%()9%%%%-%7mXWKL(Nm[%O/%%%W U"#%%%1%%%%ljym(t&ug%SgfxMl'8B]Tm3v9'Ov,D[%zp,1Chw>V(Az$/rISM#;fr U"khEKRny;R/4__pJONDi.T8%3HEaWL($N[h+,PP4e:\Og\/ZYHq[j9.Y0XNKARtd U"VMc64a5H5q'/K2L,6]Qb^bIY#>/ElF/nN>bSVgYXo$o9g6A1URKSuZkD>1D2Guq U"pSdBuFqg+9dBWr'w)6,5_FbzB/0+OiX(hN('$0uL>3HaKC%ag,V_G2C'dbp'sc_ U"x^90;YLL0a50)w0-dX.hE:v.ID\ho5q/NDA:]B1Nf]\GWXki&BR_s*'?yQGB2q:tmt0i/b>Kz1Wc U"h+-q5Ko'j8WpZYwi19rIL-%>bINj5dTAMd[LX=cG$5ZJ5FU1DqEEIDykRuawFH, U"0u-F(cx-;;pW^qi^,$r_xcV1>-,j7Vy'/0s)&S+*29Z#VduTp&01e U"ST\q^:*)]$M^e/a]X3cKmDeuJsJN]r$f_Fi-kag8bsl_\OB#iOe:^<_aiDO-gV-av6-b+Ps[q U"TfjWiB0-egLGxs$XJB6U:AAo,DEL3ZI;0&&ZrE)<%984lQ[1Cb;^\R U"P6sfD5\4mmx*OYzx^)E>A7X1l8Tf,S)QsFFJY.QRY0/A_g.&gk1/435Ob9A][gQbmJ#VAgr U">cV%bBRkQ%Sl.?zGl3J/S?5_A\M'bXz/#Hhu)8vAP_ZL]H)#Z%/[)nt]uDQLwWd U"*tAF1>X%9rB:h\$Q>76_MJ\7OV7/xuDBF>iv.?jO*wTEL'Sk:gl?LtDP2,ONZ7R U":*lOBQVr7V=X[''>i8[(>T1.b_er1b(r]fL&i%+#PZg]Mp?^jp?N*%,?tj\OY+C U"3#74*l<[Uz?DYjxrlDjS?edAI>?YE-]yetv-fnPCtq[BsyEa[QxX'P^7'5i+iYi U"K$niRfN_2ce6Ry.g>CEJ+[tTA;;f5VDc$U9oHiX.FFa U"21xctBzuP'Lget0g,u?9'FI)h[sopva^Zp?kvM4Z=_F,]YvbXpV(UoBoLPAea0y U"cb?]vH;vyX#JW-4iuWsJLiQX8rrlOsEW;FL##i5s=WD9o#CCWhMF;r%E,;7:_.h U"c5o9B.G65005Pl.g;'-I,prA&CPO$BcpN]pQaMp[3k5fVxno)D#LpS6VPqKAEL5 U"kuot1[9/j2/ru;r+YC:NZ]lvf&Xy0?C7tVy1,*kpx$Jb)pn(83Er U"g:2oAzC7RMfgVD4NS5-^=dNWH$tSlGBjt_lf4B%,E1CAxxYqd_BBaG\.dSYp[3M U"P.PEhx=(siE6kCw4)Fl/VhCXXfP;NxI078-=U5lM+P^m2$.bqwFSkan6iIjU U"Ig/Lu.WPe\V_U(]^R7s1n6.Xc-.GCXgLXD+T]ykoJW&)&/kQ6OO;bI2KNysC43R U";]A:Sf#N:<_-,%4icQIcGe_W.nb\INGS<+YGwVcq_3G?50?RNh_(#CxNLQ;,az* U"KO?DPyIqMuSv$S=Nks7cqg?Nu.jqxq(rF?bjJdw?GHBh4K7dj)IM_KNIvqeroxg U"bAYk,z21gjZ(XBD3%oZ#a7?6fvAzj4Km[?jB8wlh%V^rfa*eI,Jt=Pf5ffDK\p? U"<]RUjPm6rMKkV^eJISm,F70Kbh#g3JbdrseHLKES#an=MCx>?aw:MVzy/&PvDit U"RQy5NZX>a&&)H(-#zCoBMYtMw/m(ZM1$tBnH;cDwQ0'F;^4ls02K#JsW#u?sb/r U"h:[27G2Ol,ms\+u#F$4/h U"G6Q(As^WubeY&Lm:?#^FR#S5$v,qixn\2X.eoG'&KJc1ehp1WwrO^IDQa7BqABpt*-/G/b32HueC^kR5$Xz5J^ZY2&1YGu$31oCN=uxu$iX00ePrSm+Q;JdL\t U">qIrrh>Zp>jb]?fq/aCBGV#+q+bk$#ebPBsP+OG[TSQb[DSnPl00F_OKuaA0/>J U"0tLQr6rbjK:ERl\$HiFJ,PP:DCm):Y(Om%]#;+8d$L&rXUD\Z84kpH/8hqv'LDz U"yYlaZaswUvu_YEHkkj=23eA^&,-(].F$aU15GcBnhQPL/LP)+^7QDl]lZbd*]LT U"O>Q]2o4(T^t6P:8e59nFDNL;?Hr:RC)^A%%%1%%%%ljym(t&vg%SgfxN6(<>][m7wP U"]=NwB\G*EPk%<-.gWbmAS]>=a>A',*,JDsD9o8I;1;G[On1.NOzN<2p(bFcGs,7 U"1Z3d^xkygyc-GjO/RDH*+=/Y$'ug5B$lZ0.(Ft($2MOyBMb10sGrH:^K.V9n00q U"GmI7aiZ7oc[%M5zm2mm;7'#GlXaGOu7SMY>YvIkL[mWHp3EQj^=Zi+JW<+tO\EE U"2;B$-7uV=nF=B^S%&tRigYnzqZb-ANa-S)B7>6EgLd[1G+v74x+.*qu)eo4>mn5 U"qTAOiR4b[i3Z=7j%_TVIkwYEb/o4//<$>]fQuDR?[*Dr7:3i9F_b,6+ep5eaz]? U"L%&10;)5G^E'0m2\^e/)S#mkXQx6eLfqSnQb:nfDTiR/^O1ZLP5x),,zRx2t2Pd U"[E5'LAsB^Uk#4V0vBirn.Rw57;R-viSB9g=l,EOtWJ)GoV[U''6g7Xa:Uqqpa#* U"Qn#W7x.';W1yR7kaf#]6vQ,qc['7*^7u9AdUa5no6uKPt*(\POO:h[XRk7 U"c7ZXIs]G^NmyiBA0z>t:[aopk,-'?c1='pdPL+Jof[6.;]\a'LqjXM-0wv7hP^% U"GbOkku^K9tnL'XDttw)TVhGY);O01DL66TE,AVsjP1]%$h[4o09J[hQKNAa?+*Z U"(t0=X)4Sv=%&u+b+aC4Y0i4>%fx(>t7;;0sw8p+XivL2HuU95vqgZ5e,\X;-JQ[ U"[d;m^QriFRmq2Cd\AN6YU'i6_:.I+I8j1rPFC:.=*+09t^+cH8fMJf)TF99,\JW U"O\9Lz;k=*1miTe^p:C[6$Oin*6SSTNkju4UkSCKOJfGGqt3B7V-2L\0f:-h1Q.3 U"r[sc2MBo\VH]DX';2daA\/i'fYhd U"Wo+Xs(_>2q4hspO$]nK.vZ2F'9pMFJhNG9gfI*$E8)E;Os>vofGlG&^ U"%c7^H#$N+K3>,A;p'Djl$7sGCCY)^:t/Q'wI;T#%M8Bs^qr%22N#k/;0\ce:nN+ U"4we^OF1..('ZPhTsC?EV-45NZ+u(^iBHAsD%:[<3qAMQCGcNS9HHbT:4Nmk#I9FI3Itav U"nP2tm4g9H0YL(AcMs:5zjG;I%qcW2D2\fRgY2J[3U*4w$ty.FC)IiBr74QFs8=h U"#EuZ))&*\V(?((c#8bgK)7Xy&RUnyWig$h/3f=U7l8bDT;Z7#7>hN_9.R<]fj\/ U"x^%x;Je166iMwmt=>SvijYrN9na*.Y?4;vT$'1AEY,ZQ(o,K71C]J':9Oj't]M& U"A5P,gHH>'#u2DgC1hM.Qhl\T'l2gr/[gjLxHfdV^8CveLng2(Zhomb-MqhUM,JA U"o;5.m'^w+nQOiiC,L$rsp]V8b&k[P_2NvB/I*ZVqCurx1Xjn^CcHU0So-vqkR+M U"#51y]B%P%u2+.^eJJ0xBo[TUs5h,]]PZApGv0d%G*Pj=j34U:K2.HSKrLoGNaug U"Tvov5,%,FIC7xbGs\IZGk0yO)?f$eQlwp-Ns3ya&'$Wco)m'0khUkA,w>g$7^ja U"r2'D*Zc6gyEW\%_Tnk[Sc;CwS^Ouflm]oV1nhauU:LNY1Gl6QbK>(Kv>A>KM>Jx]aQ+&4D#O6?0e/&ESy$V]iZ4s U"(Xl_)egb'(L8nZAub&ZSi?RIOhm$ofTjt2sJe-u-KM'IR.f5d]Y'L:yOIN7OT[oM^p= U"+aaHkb+J0rb?plWawcm$NC/5I#sU/*%v:^'r_?uH'OJbLz#lsL'wC>?rxcXEv#--pA\7q.[G$:JkE6EF2O8RpkJS;*w[c9k U"WS2*=LH80]JURTbPuTuQe6fm:B3*TQtba5vXYmvk_SiKkXD7JdDwU#TGEMsF8 U"YQ]1el3Fm*slV+*EbT,RK*x.up%()9%%%%-%3hO^K,:iQc&3)%%*Er%%%1%%%%l U"jyu%nhug%SunhEfkd>]\[=?HX4P=.Ma3MC5q-IH9^0G[/Y-vTlF3C$Ksn,*YP-3 U"r1^K&)JF*Rp]8G]i:+[XZ6rf-uj$i*q8rP4N?ZmtkfV.Num%%%%%%%%%%U%?]E0 U"eDU'nGMS9 U"Mg?qa-*Gc9I2t_:njPgQSmZbkQ'iYDsrZ6sN&YovN[fo.>/b*F[pM8B\RHRC9g] U"Tnb>&gQTfT.9Q](Qmkd#LRP1aqJ9/hY,f8M U"MTQjp;V'94%%%%%Ef0727Nus>_g-V)b>uF(3vuEln2=p.tB5^-^cuNwlikD89tU U"x)s0rQmgm]_z#0;nH7c_Fw38r\$oJYrSu7r8ygg/&RETQbfo,ddb7fXt(3#$s,# U"$NdBf9-p4cAJ8DLycFh*(Yy4XH9N+d]zcT&Dr:Q-RrYi]f'7PJ&h6V[zuTE+tOdD'ymM=XE0P>ZR_0E7m^.L U"x5vK>btvrjGX1/crm$/tH?1CWr=on#T\Oaq.1rmLLk*rM\zcfk&+cr$NjfL5cQrwt84XnK%nOXNxA]t]hbDgx4]xUT'n.wrmgof(r:?&F$S* U")8s6kbdS;4lty^X.)8F)l.2WxvHL4O&4CTNT*KqIt?%3U[zy4Pfq3ioj*7>APG^ U"Y.in+pY)7BcvwGXYslbd=S,kZf'wp-PK:MXH^LP,;hDgxS8Pdw;MX^([%%%9j^c U"Nt:LjE^oszTlZ?5uy:x4DcoszTlug5uM5x+4Divy<8#Z\d#?QRRll8CMn5)CDiu U"8=kV\nOXo6J(Ab5v&dO=HsFSt.2TFp].in'U;rXTAKS$ U"pi).1rf+x4DFcszM2mc*Nj,rQvj7DV8A*$X)SDArmiFYuF-Ml&%fGk.lqAD8ScV U"H\s7bbQTi*KLFZDNv9?xhLGi'.1rh%,5rOjtpzV-v5Yd8.'v7uDP U"P5t+V(o?n.5ClWXQv+7D,%#%%%_:=.x4%up()%9%%%#-%KO&^K1e5H2M)R%%Dr% U"%%1%%%%lj%yunh%vgSuRnhfk<*=d[C9Ut>/Z1Tv&3-u3m+/]7DOveR-Joci/fsi U"]&8[a5(kOcggDp*pKgW)??KeBh/)(lbd9mVM^SLHr/)9Hy&VoT.'xDf8o#lwiY. U"VQeSX]xKTjHJ>sdV8r&P%%%qO&\lqnNrgKT&L&<+wC&qLnu7*rDmDtLniF&oc%% U"%%%%%#%%E#7;4_k:54ma'XH3\WP5VhbDUSZt:tk$*#Zkhh\G1OQK%rEg..Zh8B_ U"wun\Yg0KD)7x[' U"EY'na8,cJ.m;vJbK/tg8[TT.^O\t_,sEBlE:dNzTL77]o(aqC26.mvMdfvQO/7B U"KsHqGnbl7C]uSqcPnR$,cX47ptkOH1s\vGZNV99W^Mu9z7P5_Q55Y?5ZMtklcui U"2At*hBB'gDKRqu/vp2(3P4%%%%%%-IP&H[rD\rr'Z^vrW[^6Y>^3=P.L<]ueO7' U"EX6D8O#U,fWh?(Nrk,P(uKK4vPA8sFW7dbe2=.ByqB30oeC>nfo*2G'rL6gnTHJ U"TDurWITx2Pdp\;P^r U"t[7UXdgxqX#HCD90sXrWVL%^ueO7'3XF2B$r7>U_,f4$a4$4$=4$hwTHDWN>#vk U"VBHDcNqSLw9u$X9H68QN.'l&%%%%%%%[%%%mSMD;Kb*Ldr>=oZ#?-zhlSq%7-TVD/]ozX&=Jk6a>nUf7oCkw7u[14NNe?D:E':XO3(DT5\JcrFQgO07P6FD< U"F+iJgc(r.NrGid3ol*qO_9iw7NN#FurRpbOb+PKQ=\L&LjBklb>b4O:YMerq;JM U"]J$k,u7u[14NNe?D:$':8e$DDwrZ+\g%u,z5N'^(%%s%9#Six:U)L U"kNF?Mno:rj6PX]gP)rvHqedCM,A5nSbnv8TuX^l U"6W9f&n3M)4tL_\KzcO)DJcX..o7.^JwnZ.k6a]Xs_lB]ZgWr0kdRWh7ohKr3ku. U"X*fOlmF<_QLgWgB-.gs7BP7N;('r$8:8eYjC*aJ9_-se$T)'gM=1H5VXr1N\>Yj U"-Ql&%?9dkT%up()%/%%%7%%Qrn\KI?(H$A%%%%A%%%%/%%%%qn%sjug%Sunh0vG U"K%%%9%C%%&%&9w(uC#Caa5Y5EEy&zzy?%up()%/%%%7%%%]n\K^,%uH#%%%%#%% U"%%/%%%%qn%sjvg%Sunh6vfn%%%9%C#%&%yAzzy5>5EEC%Caa&9w(uu%p()9%%%% U"-d%KJVUKX&Y%-Z+%%%18%%%1%%%%rfp%jknq%jSgfOxF&:,BS]9cvg>xbV4SLBY U")w*j5koG1qbtrN/Y U")u0mfn,liruV#:tfltRV;bF0%7rgSsN(LG7bj?;MLTctFO1KtOPbTFNg3KginOJ U")]'bqQw]qU=/S8ALVV3bg&_cQP*&3V__(d,<&S_US&sLggNKrN[8C)X-(9ChmVJ U"1Ur$#DUD7['97oPL:qcKLePG];?N%-6Qk+us32YT\$t8?QP89QonZ/$\6^\K\>[ U"7H;#?HORKC$f+j+ZBn,BZO6+2gFdLU\2#O.V\I6Fx\XNkiW*8q;E;r97aZ3jpZt0B]5Qg'fg?Tk\i/PGwH?e2?.HM_dMO*0O$$ U"3Y1C,4<8>v%-R%w^F- U"iA?\kD52-nDsrp*YgFF0=#2k.+Zr^i%dNjCD0l-+oePrrU6M,l'usF\e[ah.e,A U"4wSb);hte6reDI-1AY%U/R1;/,pb%UZrPTav6fC,\UQhiwKq+IJ'[e*dgkE0?Y4 U"eS)=hHY[B+UR=3Nl2(B]j&cwCJ[Osa;^UVY^%=hV&jCK8O-8IF3-Er4;1I%=/(\ U"K+r>nXli<^3m%[,[u=:fI2YlEqC/Gjd9yGnbB^kuCx=#&XkLR;LdQNh$XWO==1h U"J*itg*by=V^*;#3.=]fAs]3kSgHme/i-$dVd:P9p%2AmXVWLm_*+y&>E.hek%OI U"5VB_Lo?S*vnoJZ4hihU(\^%_PZ\<]oM?6+14Mdye4u6O03=Az[p;OF62aI3rd/: U"Ui9b72;%uiNUICZi7Ez$+v''3qfuUC5am&%'3kQ;,Ic6^gPNVTdz;PlG-.N5fB' U"^%fDluoL%HcIPhTym)vLRLll5ulNGst;e\BuBWdo\XW5>E_pQWndgQ]<:DI%61'CFpPqg;RzJkWd0yys5w2ag U"0Cz(-#MS$u\lJu4JvVRr?KocjBo_R?7OD0h$i.4xln3GLHKY[p+]\Nu*124/pe' U"/&<'ANu,z.c:*B1IZjd+VeHV*cW+SdrRt*cJOOP;_&i(5\*gs'YWmZ12Q]Q]e%K U"7CuLRp4,Iewo4H?ctX#?k(3TVXBHT.ymOPFv'MfT0$cT8VgF]lk0,+b>TZ.bWve U"QJ%VxZ>o9&-RZ$n95nJJ^d4INGKD-_-mJt^)\.Hqw=z;(D[JqmP6Wb_l.]dhC+k U"#XzU;+8$R7?+dpf-Z?Wg(uo3=2$w?NDr$RgeEv-,m**Q&WVz'>P4Xl+Li'h:jU7 U"o,b+P%V2BJpG,fBuP+S]i/VhIS+XrmHf2Ba=be\h^TN])$6-\4jd=\UhP2JrsW3 U"FPq([b+,A8_$P=g'=,5X_<7>?4),rsU$7Tbp_\%,PEOr6R&3DE2quD%'H.)V6v, U"E9vO;1$GN^/WUsL.'1N*L5PyNx+)HMdo]baWSKK\be<:Jnhz$^LOjEiMrQeLO\68mQ6M4vVSMZl,7l[hM=5MHK[m0*__8+&h7vowCdcW\LOt0u U"#)JIX=q+OlUXD]r8EUQF\?gm2YA-i6^Gu4PG0M0+QQ[*ITFPV<^?-NDY&5aj,4l U"+%ZQClZ^bR8?i'o=QPK#-O1s2v,voDuO4J+$NngTnmVgYi3XGUZ>a$x?^5ASQSu U"A#X=MH22U\'8&up%()9%%%%-%;h1TK<]ALz%U(%%&b,%%%0%%%%rfpj.yw(S#gf U"xtgy:>T7[9vsYOxZ%L-%HbObD]l^]:'q0:I-BLn$d5BV\ka7RG*A^mA8xNt,aa] U"D*RIf&Y/i=cG2T6c7NSQ/dQ>Jo^6?XXwAq3iB6Wb-O_4NP:FV6fJwjNBJGB+59D U"xbw+9=>U(L7+5U3KDl/cTMM?Pq8IwgsN+n'mBvrnK:-%%D%R38P U"J+QpEj04[$GS(S/JUieE&:%[,XfQ,G1f52w'OWuAVn8m]Y3(MX01FYp'*rc3\\r U"n*><:#T[l3srBPhg'c%T=xcqEiDCw[9PuM?<7EFSv)YO4h.DP\$%KoQ/:u'qZ'N U">NvVRLHQA\q]W,J(54>Z//RB^u;_s$U^=DNR7\+p):*UamQY-j'KoTu\*6T U"atR;JGPI)['4%vpQY'4DNeT+'ERb+/?k9K%T:;7c4 U"mA:%^(m.,KhfcGe'(-)J:?p<=K)_iJj%3,=-v(SKoTAt0Wiv\WqPJcA^qRu78.0 U"'j[*ACLu6sEC?-Kf+V$rsY1j<-9GK(cRWBAuXbPmT:Ksh^iJaPNH(\Pqy?Aj6E( U"dLQo_m-8j'^y3)n6lBEa,vFN0s#N+>viZgn]3YYV+.M?+;7DEjt+$h7(zc6uuS1 U"u=3#A_N8PVa/Nnnj&;ptAIe0:3EJ^qw1fyd%LpETP^c\h5TQ,K=40rCL\D,Bbm7 U"iZ8&+Aq5%Xp[,ky3hX1#k+1Sgi#Im$5.&ocrMv9jjMi/XWmd\eOi*WDB2SezqcF U"47cKH;\A4Pf[y5kqDtvuJpi&C4K#zX_nJDRB$H^BT[5rw=9xcZc+)Q]A]sf2faOa>e[VO_%WZS5#o$Me7hX%i/9z?#tn$^w U"cRD6CI0=hP'[g?gZ6b.l2BNR7n+[_O(\iZrwb>uPr7?;b$QNX7r7Et6 U"sF-P[?Ptr,#u#/:newqbrg0rb)_N01T^2Z[9L/'Kl$xM<<)exrJ(LFtqtoU#X9%TI7 U"PWqRJc7;M(wcs\f7^9*O*K+_UMgTu:?U:_j.;5nk)=wU*1:[c=s:5/J<8xEjlZE U"9R;iIC=IrhLO2N/q5I#uyia[w3fQih<.Fj9Dw=]VkLKlul=toca1RRwCpJmGlF< U"+V);7F=HpC<%OPf98,?BjOH5_]n>__?6O7j/xMwv7V[,eSfXQ*O]El$(GAW;\n^ U";;V2-Yq:NvH/Y'8pk6,$hvr7AHFHlSBTS>STDp>%.I3cONY+R)SV;e?0,L-KZOe U"H$T)a%4+9&UJ#q30OaPVe%QhkWZ9_H%/tzMo?8d3Q);qNGV0wyW U"AA2p>v^0u/l/MYT-NDMP*&I'UGfkStO> U"^yUEJ9<0R,%\Y+KqIwAaBu:nTf>R7QaP.+A.F$(BxR6m5-(Yo%\3J#?FZ_^k00> U"G_xIuoMaXdeSZ?oo)D# U"'Y[h?ajduN&kb'B'm2JHxAfX0LP*,ATT5wKl6%6jFe[6OnEWno]5\7W?4K3HY#G>FnaV^?V^P]O-Zl./onErmK6P?:YW3Gj3.iN$&qr]d U"ihR?P#P:GglCz$25K#L6mH2X#Em.&prOH.$1vR^wVd?<'ocuiV+7CBC?FpVgR9:qjHNR#[Nht)bpF/#J>t/IRj5vE6-[$.l[ U"vH#LtnC>S;1R[/ebZZfg*Hk,Q,qB8ZBuu3[djV6R_K$Gqq=7TvWoC#[d+]&M#Mr U"%>c.pnNb4J-J>$cwK0w0;*x]4 U"-cd>(ZCtT^.DekXmLq)=hIc6t[_wme?*m>up%()9%%%%-%9lZWKJ?vV^24+Zd'ky\<*l=B1&Vr+gHQc1 U"Hg0(l*Z;FVnaMZXYFhmQ(Ibq_ql9?OhpLm$PEpE&M94PP/KU6F5126RC$wVSe4SYPXPn>7.$IgTZrprv,Z/\DfT/q+yPwCW[E&x05TpT2m U"Oqh/QaPdCOh[Ii'$\#4uM_I2[B8.DoUvE'paOpGP5T*kE7Y_<^7FxI2=zR8fW4: U"VbE2yaK]-KIv+&h&R38QM((43_wL:JUSNK]2J+3OyI]3$GZFN%=;8Scw=Pf3>G.S6.88G'SDWiC$7V]]3Q^7iBD+7^s%T/[Bju#M U"bX-MElJ&vhU_yWcK]sBUs9fs7BvD(8p*oLt]*O.h>p-JA#_a8;hqfA8oif;31Y3O6CjBvBYId2z(l=)J^k.qB:gAG*&)iD5>rA8eId9\m1vc[H\T8%nW/TC]sgKxPMNakfAn5_a U"y&0C;EztxtzhGZ4a$>^[nx'ki3P?mO?5SvGFVVO$VEtGmSt'(>lv6hlj0g*&7+8 U"w')mV4WrQ_QH.X(if:DE>_qFl7C0=wdl-Cp75=YnIo[8q?e7gZvZ6v6JWhphVTI U"br^SKCq^[U5tv)6gv7cT'P/o64op1%IRV]W'D5]JM=:A25+_'jnfc*acJ9[<,f( U"U#II=If#.V=H=/gD)cQJ%([*'YF\gn&-1M&46B/g80k+]/pV_go%1$rA+TP843^[g%kw/0P%GOM1T8%UPm:\DPZ5LNTq7;,9;nuEfi3_/_MR35l U"m32h<9-LA+NoEIZ#ZAoc09_..AF#2'w[Kf$4^gffi5/4]G:O+MuokDQ'BT77IL:#g'\BF190N]:bi>XgO?.?+>b)'$g U"uRHvtp(*<0P_HDk/ixlqflPqhBv$)u+ZvSU6]cdH$o_tP[3AftK[wBcUYl0:0'T U"]fR:i69ckD]M*ef-OkHMqMIkbMnW,ne,,vPFp]B#zE*[nK*(Q'q:Q=KO?$H%='9 U"T%J5dp(1?$W5/[mV=8U(f^IvMd_aE*lkQ2pzTTv:OlIAA7gxiAd*aI'Z.f[bgkA U"_a.BM=/sIgBG_=Nk;w[SgAgQp)_w3z2'3F47L&<8:(=6\=5PChP3CV/c'B0Wru(WNQz U"hD9RH/'NS9^j6I991\kagD+<7Q>XS>?HwvF,P- U"OoSxhCSdVw%IJkqS\bz%M^FhCX%]kA0mb0$LP?P(;^9[)5OhP6/od+QZ3B*eSO2 U"d)P]6cXncup7-9cNr>^OOB4WbRBi2v]Qw;,EZl[+TxfZ-qMe.+HBn, U"A6vc+VWHC[/LXioBo_QK:P%PpJoh&?Wnr%v,[$74o>Yh%SXOCF5mV;%<5?-Rz5r U"bo6te+fD9lX*BFK-(no)%T$e&m(Op9v.Ko&*<*Avhs&sg0n2:6QF-jQltm8+O4& U"5EA59+gBfZRV5'3t(FrL^%dJ8KgT'vYTDdQrX=ORQX=HCXF7&&nq>BW0)GMtS'k U"J17H?jajS=0HJ:KSLH(DdiDq-%W/zY,?_<28?/7GG.oKf#+EOSk6:^.L:qz'9TH U"*eF9OPZaPc$d<%by'Hu-FVjdHW1OxsyETQD,NK*jP-pDqybjcHv.U.\9$uN7i[T=fq[/X3De3nZkg9MLf U"4a1;-d'1:f;\kWkP,ZZ)gL2YLFB\1ntjf[#-F;uD)-H*0AeIw.9ZcYgNr+D6ltn U"bhK9dsUD9+,'A5W2#PW.-L\zzt39ne$MJb4Q//wZ_7Fg8ra648&Pp6ae6S_+Ez% U"Q8;aNV7z7NIQ&HIIlFHhSnes38A0DRy;8(qjzhxEDJbOQX8Q4$&\JQWEp.mo^Z2 U"pmY_)TS.ANcK]<[EuVwWA(0.kcb=NA)_=crZ9>4t(+ZTb,Np?TukQ(MdlG?7BCbV$5jIi=EQ/kWAnmYx,Z.?j]l U"RB(kbauIi2Y)D4AVi)BYphIn19QVZcpf*B/?nq>W]Y>:0>a7JA3M+xlgr(c[myE U"Ymo8y#Ri;f?RN?[y0RnbF=;DmG[TI6-:mA>x2D5l0Q_3-&n*IG#m:#<&k8yfIm2 U"w$kzcF9U7hE>[=Kg*R/g).[;bBJw'^CJ((7<'_B&MZHN.G*TpQVRCtT6HsRa]^V U"&5*4-0n6y&BP>UW6(J0>?*fRIQQ?_ebMwsHpQ]]%f.#XLd_j&JEdnv11KP#gDGt U"E>\Y#WAxoIJ^25mJv^(tPM*TC>BO&dUHP1e4,?M<%%NG#.I,svL02hTM3ZTmBlX*-ccw/WH<>H U"L%O$F>);Vcqv,'[t9T+Rj+.aaIFcGUdqf>g-K_\s7c\dA7a U"8ub,YhI6Oa&?fAepP0f0aO&FB04AbtmI=xMdZb9XaP:o\S8a4Mf:Fs-M=m6xo^w U"]^TUrG]\V.m6DsJXXt%Dup&%'9%9%%%%-g%oIVmK.C<%fX(%(%e.%%%.%%%%%%% U"%%&%E%%%%%%%%%f%gtzy.Sy'y%up&'%9%9%%%%-%84WWKmY5\o'h1%%'TL%%%0% U"%%%%%%%%&%E%.%%)(%%%lj%yRmt&&Sgf%xup&%'9%9%%%%-[%mXWIK(Nm&[O/%% U"%W#%%%1%%%%%%%%%&%E#%%%A%5%%l%jymt&&ugS%gfxu%p&'9%%9%%#%-%h,1TK U"]:-L6K%/%%>%A%%1%%%%%%%%%&%%E%%+%??%%%ljy.mt&v%gSgf%xup&%'9%9%% U"%%-O%hO^:K:iQ(c3)%4%Er%%%1%%%%%%%%%%%E%%%%;%J%%l%jyun%hugS%unhu U"%p&'9%%9%%%%-%K)O^K1UeH2M[)%%D&r%%1%%%%%%%%%%%%E%%(%sN%%%ljy%un U"hv%gSun%hup&%'9%/%%%%%F%Qr\=KI?H&$A%%%%A%%%%/%%%%%%%%%&%E%%%%q% U"S%%q%nsju%gSun%hup&%'9%/%%%%%F%%]\=K^,u%H#%%%%#%%%%/%%%%%%%%%&% U"E#%%%_%S%%q%nsjv%gSun%hup&%'9%9%%%%-d%KJVUKX&Y%-Z+%%%18%%%1%%%% U"%%%%%&%E[%%%L%S%%r%fpjk%nqjS%gfxu%p&'9%%9%%#%-%hb1TK],ALzU#(%%b U"%,%%0%%%%%%%%%&%%E%%%%WZ%%%rfp#jyw(%Sgfx%up&'%9%9%%%%-%9?XWK#6W U"%6%.)%%%%0%%%1%%%%%%%%%&%E%.%%Z]%%%rt#ink(%ugSg%fxup%&'9%%9%%%7 U"-%lZ0WK?<)Ic<)7%%Y/%%%1%%%%%%%%%&%%E%%%'7a%%%rtin(k(vg%Sgfx%up& U"'%9%9%%%%-%:4+VKPagqW&],%%%x8%%%/%%%%%%%%%&%E%7%%xe%%%yw&(tzy%S U"gfx%up*+%%%%%%2%2%'$'%%'.m%%%%% END SUB V2 CLOSE:IF S=164AND 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