'=========================================================================== ' Subject: GRAYSCALE JPEG VIEWER Date: 06-07-99 (09:16) ' Author: Dmitry Brant Code: QB, QBasic, PDS ' Origin: dmitrybrant24@hotmail.com Packet: GRAPHICS.ABC '=========================================================================== ' The QBasic JPEG Viewer, views JPEG in greyscale DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"JPEG13.ZIP",4^6:Z&=12327:?STRING$(50,177); U"%up()%9%%%R-%T_]1K#&/^,b(%%%U,%%%/%I%%A4M03<4LSCGCATzr>]Uk16O0I U"N/bL*2%nd]GBSv_'jA=%L=Wesa#mIvK='lF1lMzdNLiB$E64nUE2D2pBA?qW\Hc U"nIFuZrgcM\L2DgY=W<&/\HU:e;U_oj3GZPqHEoxnnaD,qAQX%M]0QF+f2MdSDVo U"fr(-Nb0$wMRW3x#/1zWThA]^]IuloPG:lz-NCO>J,Kw)$E4Rr9o2(i5K^,j=-k1jo,iD&22\[4U5;_w2,pNPn>==c;rjC&Alm%v:5B_'.Hi U",lGlu-JElL[kdGutp(6j*ZCJ*X(kFk^9^.5dXxmn/mmf+4FsSi#E. U"572RiwwVKA;/B?sj3lF2[:%=6KdCev[Gn)-0.#(Ig&A0O(L3ik>>08Vx5ji>']0 U"A1%$i>$?k]pNY:HT67qTWOHcez8HFK--c2.YZ=*4x3I+juEa[AK$24oihMgC>g5 U"1*q5tqNf:W7^lFh]Q$lZr['c1=V\=n59'^#]M4h[//0)*]hRXjOR5kbQd7&DuO* U"'sOJo5#p(zpyR1gm#*.Zi>zfM'1_Bh=5zEhj'MJ6r#z;;>iwtgeI9jviS>H07b) U"l:>:rEXJLXV(:c\SiwJS'l^&y>SCtuH,768InT5fl'R)UAaMsdlU>DeI]TaTP,D U"-Alh8L]BWPoY\&Q7ZuKv^g\l.Oh%mxIVB6#QAPvao2Jciu]Vtxl;hrQ%e^lQ8o> U"j-U4e<\:5&C_:q/1If5-e=$R5'rDX>nl5o?dn;#VN1fll-[JkpPHE,9TTp4IAyh U"P]#ma-Y[dDoh0^HJBsfbYSma-^IuK[emK%RJe;EtoGb\WB#Yc.%Vi>I;W U"[Fm&D2dG+42D,e6CfrML0laXZLoh&huOW,o1AfScM5KEU'DVH?NWyxaqd4Zt5w& U"Mw'+T^Ce,L*vXCss.&O(;%(%Y;%%%-%%L%A>BJ4S9?V6lO4e'8-U4\i\?#N7h1 U"CmFMtLYY]gd1A[J.mm\5LkRqw)SC/q&I1[?]B6/;Im*PPf-mVi[lgojNoN.F35H U"-acHlbhQGhFlWdKGHP#GnxgdZOD%Ubhb%%5-%a%x39;n(9B%%bBB2W]eC%)'VUB U"IXWB'+UXVXVl)Br)Aklp/+^$&Te)jB^J)T&4jE5$Bjw+KP:cd\d*IM'-y:Z3^dc U":$x,)Au999Eu=EF;-;&M)R6wuN*Gns%%#bE8')q297+u*&PxRONAI%'N]pn0u9H U"%wP.eO9?&)_5bm(HLX>U?D%%OEZZ%:2ZRmR2FXWcb8D%%2#RW4_;<._3SH4mQ^x U"RVW.Wn-i0'^0;_3ULy]StHG9AMDTjV/&q+gIwo)(-^?rzFZn$F;pIs+AUUXss^C U";KZCSrphZzj4+,SdE%UM]IsYe>DkwagQhbp>h(,r+B)>K17K8g>P'wl/7p*k U"x2TMWsp4V?UTPd%U][s;hguWRZbl&?k_mDDav U"Ree[c/oVMP\2d54S3zAwFhDCOTAnZz\d?Yo3)3IJdt0JD/]S+Y-DUhhlgbd)enc U"0j<)m$wPD&MKV^;Pg5Ln7)^z/[W02)HWhjv:QR7kj>0*AwaNjP,i%buco-uRA*2)=hvt&>b\^tiGr,C9v8$DMcPG2a? U"d1tgF^RTNR'Xl$j(Qfmx%Pc*UL0h;Wt8_Qp1C/L6X'9swO-&>ZHIy7IqN4yJEXh U"+WLb'CYg22eIhI1[v9XzH4A]XZl=3W?xN__kbvmq4)kc^_\LUWsVK/z*-S4Fe4a U"ks=juCMy'eYtq_yh?L5F*$R/^0QbumZR#DShryJ8),]yXu&>('M'g,JMHG=TK3z U"=wJtc0VN_Bfl&D'kRiN%g+2V#VHU<1=9.6-u+D9i(wHDGoOo4(v_d*/y?rfUF4& U"tJb%Q6jAkJfH=;j?dx8OF2%VXG^%1VL0&5?uI4hfsO,>h;;)K?AaU<*Q)Az&xN) U"ff&DXq$'%Fhrj[CVWa$']J;O(,,?-.?Q9NSIKvX-;IUY,D_]/-1+i2zPCIMT/W, U":OA'1&:xQ:U)TI8DJN.iYt03^WAcLfasRS9*HG'XkcyIB'wdKBD2cmWF8_RGRNy U"ft'Kp*X)mNtc+#(ZT;0^'EFN.d43PHZ.tc;C*+-HH=.Snyub] U":Vi\okW1vZcuF2Dp/,%RX#L.;JVN=+P$uOI7HW8eS/>.3oyxt:K9=>M=MrOttpf U"tu?\,F-;lO:m\yx/$&L2'GrfZQFAE5G?Tp^3HSyGtXHd/Xoo%U^: U"^l]=:W_h U"b\(Psbb4LLK4hihD*;(y\NSA.VWwJdJ>i+v:QBW57Vun4P^FlGeuVCqWf>uG\m1;t.ss)b>#ASKbCLYsPeV768rfk U":il'q6W(E6g:y7t8%W?dUjb#,^#>Ms??4osm2&Fh_#O&U+2>etd;[->T U"..M9uk$^Lo[K#17o3Sb/Olns[p3Y(^t#DPWFYE=xTx1m.uBl7Mc>ue2_r7V:KBX U"E>LT77dy(bXQ0Aad80AuSlDE2%UDh%[$2t=W$WbQq(DN*QTqe7AhLNlK1)N3l.L U"KPF*TUW&v?[fi=rLOD:q,4YsuFj$k=o7H&(0A-+ErhL#K%KI+zB1a_wo6eP[f=T U"JPfI_]GB4>^/..6g#t\K\2:r/ue<'Mj5CaAf;pMMzjYLFImysB_<+7fp)f%fq5C U"N)2#yVMqfslXV'&gj%:M2ap>Yi)#44+l5JcUYJ0VVpE:8B1fV.?>+_1=BwE:EC=]I:U[nZ3B1J0HoA^dIjrjVT3\N#_&EVM87mK>> U"dPZ6&(.fqZ?j7Qo^=YFcp^=o8k_=$41m U"%<$6^Y-\C*t/\:ska$l0uDl\%zkH.60fdB48fEF/U*C$.PW-Kg&XAvNXXTf3FRD U"oMORvDamlnllH#F,vIY0C7gI8=65pk08+VTnCjI&JcTSK*pe%y1>WIL1<*Geb U"lktaZW2QA%$BB'Hw%(%dPZrqN/RU]Q)DF?unn5JU%3Qk*'RP?.g;(kc$ia6aY,< U"4QDp;]k'hV,=(,eh:qHxsJP,qDZGg/k*jXXFebS,cvkO?SA:eHrz52W=pTH5t(9 U"'&zIjb-(Pk^-^1[.>+Hr?7Qu&ajT$V?f1>DZl7<I+BjDrCQ>Vn1:Q-K\\K&Q&_*)VSwV%&\e>(z5:V4 U"SF6dM'kS,BiHFe[D6Cf_d2OgE')gMap*2n).xuEHT-uHu_ipR^_gB1ZWqRI8zY2 U"FZZ)3DPI:l\?k5$jHw5qeo4mXY2\Qy%,#<_X'h4>ZnnzqYlBukr>UpmJYfEb]=t/a;EUq U"0QRu7_DXzeNYb9h=ss5tE>eYRIZ_7<9Wp%/jQKm\$8W0F^'8Wj'*s^?]0b&g=8r U"p9$addS=XP)l/.SRC=OQ?[EMQsX+Z;+L\sM5:#_2EGh0pAw/ZB,riud&Eb2fOkX U"U$:yHa9uf+8Jdz,*3.e[SLu;tZjH/>Tgcn^o_2\7JR3Gd:4[_v0(0UaKGu^zn(5bu,_kIofNS'2]Taxflug$_i)d/o U"Tt97/$LS;ZkI5(<>)\g6s\7vh2.(KDs%BHQ/;]xCgRzFag4ll,nW\F>M$M)9Uc% U"i,72x3Y(kLX$^Sw*i%aq%r;F*3XR?iOBf[<>j\_iaK U";gRYya\pp0?NHB[nxtBsPGQJD(C\L.w\gWQ[P:FS].AZ82tTfd*gxZ0ML)Z_Jae U"jyU2XUPS,#n0+R1-vZ#TcKLUaAhR1.2_8Ztnk$U$L(mMG1%<58XG#'oayxVhXWi U">W:d1aOS2h/zpmp+ocqIhKu3+osk'(rsu/%uH^+FTFRsijZqa[D2iq)*:I9vE?2uRjhvO?5Lr[ U"cG;Vk$Qx/neiX'2eiWM):n'jt&1?d.tPHes:MHFefQsks[m^Cmu?P35N'(Te5c7 U",>9Hp;\ZbB:>$qDfqnz;u?TKQKrDhQ\ezOp2hnfJJ:)BeG U"ZB8>u]6#gljAQ(t$eDm#%f'TKD93Q.#<_M?(i-fc58a\9N3ULR4&/ai=qXF5kv3 U"NvK5eq6R'TDgvLgZ8.Ka.K45T'>holMn:l,UY'_Vqfm*2-&Gi]M=onyimW#_W.; U"_rL&dLKf?6hc:g5(Z;bmj+c4aWcF/ldzX+YL;% U"AX?v\M0;x:AQhfbZ_OCbR[)HG#rK7%5qrG$Xr$k+C?jgEF.F\n(s8.4I\&1Q/=T U"KCT#=LecF9FSi_R'OMY)ZrqTBT=^u'X+w^YJZMsGo;>Md4e/\x*oCtW>Xz,R#BL U"+6dU\L2v($bg]cM4>tmM&nWjZZ1Xuw:mL3,rgw8z^m:)Th41T'_HW1k&GX9x%+= U"uTdNO#8S'6dtGIr,P%XkFsDa=,VY.Zjgh_xSad=n&[/9=p-4ktU[DaLdh=quo.< U"FFOFNuq,>vhYXQjIFG%Z_#+Zr,TeXrgF)EQ(j\)>c(<,tcfJ9M0BO]SQXS2y/M; U"W?ZlCs1rE'1]>HG8BS$>R[K:VNWwC3O'=RNI;;xgh3k03)w.zurq.7LBM'a$E,; U"Mt/=AJ5_SSVFMOE.mm\DWTwAPfXT;#:W,J(Dq9pZ.myUYTdhzuuN<3m&d(_X',j U"gDAALVMtp9lor_wOD>6oLvn3v>:SLNlL$&B.S_Yk7\bEU-Zl5bL.g>3_,qh+u=Z U"Bufz?HcwyIYDN&Hi=.4O&txP>ceaVb_7wJ],sG$a.8n<.b4C=/eP/a&X01kuyp#Ph,d.s%kZ]\mCC U"0pq*MOyE5;Yw\gn=X&jHLEp>9M-Dm0*E>L;;^YoUIadFJ,gA>QZdocBNIYa]xmh U"S3rj6t_r.5v+qE;_7F2bR5p;r64pVPS.1zxxkKLuK4e+fQ\#vz]aLfgf3g;nsUm U")q+.NK_R,dm>hcLK#QJA(zkba%X.Q_f2n6m>IZ>Sd>=dY0GqSl45xSzk(l-fwUo U"ODu71PeX'pHNJV<7jHY;X>3+iHxoDH&ExxV1K-.eMH8#b2DPE:>UHn409EHp<_, U"lRchjrtJvcMYFALv0[Q]u,N'e[uPX'C)EeML2ni,-U02Wu5T(MDeW<&\7f._r$X U"&rNFV'\%x.u$e?AaRjX-XBBj-9w%_.CzPl1Bv-G]gf((1KMGBn8q&EY+$[win:X U"tqAlo5R1vYaA^iBz%UztEuqvW'11Q-mcjp%xHoaP/DWp<>LZ/l9MF5?ZI1vVdQw_mqh%qL.sy:?4t< U"Mxu,^rtuGn(\SJ)[l[o8tI7#VpTo$H[<#wJ,w=k1sdMUXe/PGM][c>km^FH[Wa4(RW?16&IgH6QYW-BTS4s/X)zlaOPuDW7ZAlkbp2 U"%FB<9TKV=UCZn2-$3Ll&I^H^l25dT-F+BQU;q58&9%c# U"<5T-2jIUZ7b*LG-27/Y91,ZfnNFRB-B U"keLDqQX>0Dh6Wsk=G^91cQX]2N1vg&=HWgEM7cDI<0^96EDWU;A6)r&rZ.ynZ,c U":-njw[z1t,yH#Wry^$B,BiOA(X,I)oq6#%QJqmGt5Z?1h2De/+W;.LKdWBB U"Z7+I??j2K62$^ZFxfqEU=uiL=?$\e3h\GUf#Zpkav%tO#(]SbTc45agr#YcWjY? U"kJu51b^SW35vv_=<'I]t4d?>E6e^+V'bwq\v7X37fFI'T$W9B[IER.k:>kUGeK#vZ6m,A U"Gx+Qfea/BoisH'+*e6^<-0bg2qqzUk=d.o5*UV_(01>Sz+z]M$[O)98&[==HDjo U"i(LfgPH^[p&we+frEr\RHUeZnrp/lr;v\LV['GG7jEe%sSnVltT5uG,XPmjqms7 U"yPfq:5>O5-HM6u6n:^&^l&1?T#1h]MW?8MCVt(?XGErT,CmpSNxtkY0NXTt$8eV%N&?um U"9H-ZDdfo)1'S'QCcKb(Y=D7i:3vmIN.Don_[.6k2Tar)y:*&,TX1I15j]*K*O*C U"]KZUBZcQh9BjnCRk9>#><-P/=/)h6s0h%9fG$*]8c06_&bGd_D:#vg:O*)*+G?F U"Ykq9#U)13ra2N]+d(jt#)+$1(j$6HmN%%up()%9%%%%-%/)02K(&0>q.:#%%s-% U"%%/%#%%o?)46VXLS10BTfatBoSmK8u4Cx<%9n1I0Q+[DV0bUVsf/R.K:&a*M><, U"d,O*v1C7nI;W,NvDBpaYItOfVU6gWdjMQthM%rtttfHqZu;^fONZtciJZg,Za$. U"5saXTR*>?4Z_kaCwr;q?-XV7Bx>5$DFKDj^p6/=Dg1AVp[39HfxK-j],lb6GAj. U"1/RX8u)2hVlqo[:uf.Hr?6flBooJYmgY,eQ8?6+#<$],>J6Hn^;l_VtH1(CO13o U"]:? U"-kXFvUJU;TK4_>%%n/Ujg'j;6-D[3=J=SXBu&[b2akK7B?[A#)f\1^$Q)EQA#[g U"p'[T#k/jj4R_,L.n]h$HR^AK^1vkNS[)hj^:7;0hA>&4O\KAj5hh653I#%eSBBh U"\S8'/4BYD2*0$U$bq\_V\PzE2#_46AYW/8uV=1xi^''i'=3uc&7Smb1:i%GaG-X,h>_BD U"D9m\I.;F-S(g_.Yn,e?(jpepuku=e^=\>F2L+&mYfRlaDW.6*e[5f.p%ukY%1AH U"mdd+BSIMB1OQ[=f-WhO\Lt%C$r0Vrj=pBPbMU502?lgY_gfidU+tP5(:##67xu%HvbS5EQ5*IEBXmuJ8(M+kAnZ_&IJ[(T-L\H3>mcQ.[(eARA0KyV(dS%'X5>1WO( U"(FI]E/pekXJ_7kLuu(F#u?e0XI?s_HGanXk0%?0#lpLrSC/1*7=Z2&Xjf,T=;p\ U"D34h%2aeW+rVX;jtwbjdHE/%JmiDQYM4QGZ#q=GuDP1?(K-Y:u2r*1E((B&qzsUA:*j1Jf U"rIUs#?2QvaH?6$V,JU=#A1Y)0cD#=Kpm%,(t==q6X[3L'3k>H/k=0'+UKk&%qt. U"iJJd*V[_-)b#mAqSWrsY:uxM2tk\)(We]5BK_mne^HEGI:lY&sT U"+mLrz;u_&shZ0&d%Sd8gA'S+1KBP>ZP-#]]RnP>;W42wOZmH4lOxNb2Vmaak'4\ U"Ube60a[Gi3e[V:MH=YuWImT+$TFns1FgK>*[\Tw>QF)Z\;ca397VI]=%Li50LD-)2(XHdWstP%RN.sbQXTqN4aS&T-3LRn U">Up_2$8d6/3'(Hu91+OeaZP;p:/6r)HWX3U7FS081'3SS&h/(hvrFuiTJl*5WqU U"X)q=A:JEv?L6Ds%Y6FgH$0VRTHUa'lu&,6_m6[P-I/>*pVcxa9bB\)i**loj_Du U"-6mTf>(Z%o-aJ]*#ctR[baB_?Gj&AIrC(H$M1d&xO)9__YF^%d6jHQ+SpVD&vPV U"D$Is]^w]U^'DK-MWn.khj9,0goTaY#:x1ad&1/lp&91? U"M_asl]5PYtA+%G)QG/a0EP'<.=ndL1n:tSR U"YEfc-Vb&%q5Qaf)/tom6E0^zU=%_T^Da-jIeIT]OK2Kxw]a,<,oyZT0%n9QPb_$ U"jpep1jOykau9ss,*:0n';2Bc(Ik%DRlxqC'70i1h/ZTU0=)>)rcNNFcAIe\=w4l0I7'YKJZ$AI9x)fZZ=aomGSn U"v1'>$_0#fi#$1WW&qBhsbR$08AC&hp;+okLa-,sm)bRjb?0gd9'mZenA)T0PnCX U"DaSGeRGI>IB/i'uW$Z;s=Q1D2_rm'VqvOOW6Q9u.if'CA/jbq U"Z^9mjY66PTJAv7.^70L)IL\RkGiz*$P4KK)sApGFRd U"#Cfgey1aUCk/ZsT:',qi7(fd+lf1b?3:gm0/(l]]VSXWY&=]g,(8I3ULi?2WlIP,q[\Q9Q;qgu+(: U"007n#YAFZ/Y9?v9MiaJ*bczatc03#+5dxPu1H#Ju9i?;WLAbwFImqhoCqMeirV.I$[IdvED0ts:t>,X.:&$ U"f=1C4qktD4sU[a?sB>B;PxcdyUrc#Ecdwg>#UcO.5a\J+N)u,';oDUv$M_%66bG U"WTH0J4nJU>%iC/yqt),Ea5HN*e>M'eZj&m-P$dqA,P%95OR28*sxrIhRN,aqVIc U"Fdbu2T#]B=pEdN9nA2tPWvn3:c2oXQQ(bZdh.M72*;Wf_.bSBUt>NMw#u8TwxoD18j%,1d0lph7qA\L?M7HWukuEiFN[Ck&e:p6Ic.l8O]J U"0o#CJ;_2h;zpEHrG7NNhvbKhVilqgm2u'D;4IfNot/.&_[dG=pXqebZ U"rIJl;^L+dF^QdU'91mtY>LZdR<2Wz'E&]4rnh)E7,dpDe_Q-sF+1/jF*,s*O:/8 U"7CAGiRGa3E'ekfi/fGskPYc_D?)wfERWECBSxLSsGaiI#,J((-c^HA^e/&5Gk'Y U"k#[0rE\L's=<'e2h+Cgo+=lAkq:k*RA3QVjBf=pf>34\ru:?E_Am000nEzH>9:w U"t1V5tIdgcoe*S'j?*X=xCQe.js02YNVs2R#3mETZ_'O6H1;Vm4(_?I]k^GL3BIG U"gq7#[XMK-J&RhE&_IBNT)^U<0=NUoU*umLezL8qpQF=4dqTD](3V;8K9usxlcXQ=qdkZX*,]j-A(CZ-0zB,G8L U"_+j_%2\+EQ&I61C_X*M&U[:og5eJ:\0H$v*l26Y*V.Dx/dZUM8/Z[2:JDvbLG-0 U"WJ_eCs^b;/-aLZWrV4H*BpK>z$Y\FMxj+3nKZ'gJIH&[Jplj=:1o5Y>Ep'I/7j> U"W5Ae2%DFPKcqAq_DZ74[h2[40vgp/F\-xQ7J0qd5FQ=_Jm[xW98+wwuZX&>&V>y U"-GXORjPQl5kWg=Kh'[JZikN=]QAz]5h*_,ykNHZcYHbHSz7j:+,IDo;(Jc%qadM U"QtJ(dwSrco9OFVjiww5gIrfBvsw.\3D]aR9D2tM>3:<5=U0nf\=I9Fq:/4#YsKw U"aW4c?kB53OI;cNWc>f6uD0,LELJkz$*kdqli<:gb/\&XO4ESJT$Hei;0Po^hEB' U"Bd&3J:&p=F^er:jjK+.7awp9rmc7PBtyka\c>E'Krt[nw'9:zcG#_raVSt\S6.u U"..eS6_izaCG.P.ajCl[^ZVnrYiwho0[LxiL0RGQh#k-7Mih9)]1OVS6m:MFK01L U"EZK,%bco2:F[3m%XqaA?Ubm+FRaop7EFg5?St2c1Vb8mM&5,1FWZTlgXso\[09ees\Ga>8Y6_T]Fb,;nHH0V$Qg*

>mIMk- U"PaZTe1Cq6:'uSt4ZP$83HHg2L>C)um\<)>TvS2&/sV>kcLq+Z9*.>$n>M\.R?Ub U"xf[59E:#]j7[M[A[K1%XRq3ha8wHgf<.Id'%>NO44v$]b9#pAF=T$[gJR(7m424 U"ZD0Wnv\IBMpqf4oSW3=DaYyk0cEcLqy3p8xIWlUhSAb>4lO67lP^'ofpZNOcBcR U"OG/H&,fuXS-fM)OX0k5CDKsCLJ?gDvXHTDD9yp*6?etJ<+-5:'S3yOAKnvoO U"?f]Zg;DB812X[NTR;zw+9OfU66Fnf76\k9H>E;''?AL7W0bESig4Yb[_ U"Z#r6VHC](L%Iir,J*3K:r>UK8v_pp[Yashf\unT3EnU/>z3Q?w[t)cBSm.5gYl* U"F6fQw17B6g5uVg[]\Hg43lbDJ_xPkvn78s)&g:dkosW/G%R-$P49K5JE%]l&Kc+ U"1AkD$Z4.,lu9pEY7X3Ug\;CO=X%b,[F*?cSUeS)\i.1w>(LHIgxU$dxk2.qi1l) U"kX8g4O%X5:v7[yStKdT5$Ei:Rnbi_-WiQ>BB4VOAU+UlDRQU][3VhrgO*Ocn.R9 U"W\.Ref%T8eT%cD:%h&E^BUE/OZgF/?1mIjjxdWvKf4h+]+LzH%UUN-1xPv#a$EE U"yS?mbp6R+G/%X[%cjd.R)pxh4CdPH*SfmM6#aQO8D&EhmlTViFB3FtKgL]SN6QRL]iW?wu7N0)TC]5vTy3'$uSv6obrNRAVB[C'f6XR_8j/4jL)Ke7vr=6G2IPFhXt3[G7:dFJclwWkqO[X'Pw[0PZeu U"273ByF3W+U*KofDXeJ^/Xx=M=,\pFetAutlHZ;isAcg/m:A>6^&>^d$f8gz*cR3 U"m*#b(u9$y+0;?gfWIM^^OYiSRL/]b(mXh;bgRKsS,ud#YJsNmFS1K7Qw1f(i4,o U"-R_j[,j)'\G>;H#-%^$8rcxMSvoKSvI=SwGScwESwoCSa;9#86J96c+xUP2w3L& U"O_L=:\L#Y(6FE8POCy U"nK8<1.VV=1D[j-2F=<=i#=h(2%MV7([tL2033D5AW:XZ]ICSfZ+Fv#u%p&'9%%9 U"%%[%-%T,_1K#E&^,b%(%%U%,%%/%%%%%%%%%&[%E%/&P%%%L%A4023<4S2CGCu% U"p&'9%%9%%%%-%\b>vCs3s.O(#;%%Y%;%%-%%%%%%%%%%[%E%/,P4(%L%A>BJ4S9 U"?&6up&%'9%9%%%%-[%/)2^K(&>(q.:%.%s-%%%/%%%%%%%%%&%Ej%/P]%>%%o2? U"46VIXS10&Bup*%+%%%%%(%((%u%%(%:T%%%%% END SUB V2 CLOSE:IF S=47AND 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