'=========================================================================== ' Subject: 8-BIT GRAYSCALE JPEG LOADER 1.0 Date: 06-07-99 (14:20) ' Author: Petter Holmberg Code: QB, QBasic, PDS ' Origin: petter.holmberg@usa.net Packet: GRAPHICS.ABC '=========================================================================== ' Displays 8-bit Greyscale JPEG images DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"JPEG.ZIP",4^6:Z&=17179:?STRING$(50,177); U"%up()%9%%%d-%f7o1K)v>F'\6.%%5h%%%-%#%%o?D46S1;0BF$n:xTOl/XhZXd% U"I_6Q=#Rj#l9LE2/q?gpP1$7[bL^dXga*AYQ^es118wZ'.XJIp[8ad$xuLUmJ6nT U"tJ8Utn(th=FBuU>i=5UG.dA-2hoe6jpoS\dod;Mu-R%zQ56JE($a#JoEb>Hw2TnYZ6kG)Ik?5U# U"j^jg%N_#IR:_&kCX7d5a]iY/+[U_n+oYC2,nf7WRYVDW7D?D.f0Jx#7O7Cb$?jgJ U"[bT$,Z/Q4db:b>ZmO>z%?q1LjqIS1=qxQ[g)&kSgO8taTbYM&-nWDoRnrkP-q_-: U"a/_/Dg#qIHaC>cZXKJYE&LOK6sl^ms;\jhRn;PT5+IN_Vm&AQ\8r9U-tazL7Sv= U")k]Xxa9[cptVa&YB-d[\YOX0jYXkVF\WN>?B2uQ4bppT8Yp?:b U"aAU3wRC1.K\^:aQ&TM8.*Y633Xn01grS1;vFas;jM82ZAWx*q<6,opL#<7f4[A; U"KgFXGCn9YqX.9=r#p]J5._?#;0\==/ja^6;pp^tBv]reSW5qZRag;WTD]<9JTfY U"uU)wu,U)6RK/Yq:dnn2GcmIRH9R4D10nM?[4o__D+^^A2,S/V>;1e[;vE]#=$%$ U"mk[aC#fe(L_/p;iRuuiIAiF/rKklM7E+o[ U"RTY8]J)r<3QqIx(;%;t:DYrGC'[ta])5F(AOWQI%&H>l-^X]2\aj=^;uea4M[V] U"1qAfF\81WFFD\qU1EGu_nClHSk=>sQRUuRbQLgS)Xhc997SR9&[RNd\Q7gQ4$_Y U"iSF-R7&>BDbd^ea]\YHYfR)\]kSl]9tG#8xGdNXRk>;beFV&:??4MJ/%b;??E#^ U"4O;_FLVs0bi,_LTn3ZX U"I=9R;NZ.)5VV<;F?eLwdSa1Q;g)aqNE.u+1cZQ=2 U"^sT)DKZAM86DHWNU%FGnn1yoZ+\q+7,0Uh[D7[$Eac=nD+(]3b&,n*4pYIUs%MZqTPxq4Dn1D/8yx%0G/k0A;R^oTGwuNR*\C U"vi>F&PADTq8o?;<$\7IK2Hwh$4et_*;jvmNGc3r#1LpUjj^Wbd#BT+o,Q*/&y<1=3Y\-Y U"3V3qHZL2;u'0Z9dfCv3RM\0TqOOlpW:SUnL(G4P4G;&Kq2'F^Pccx7Koh^dfAM4 U"jEg:OE<;c.NMH=fF[9,s6(4pdMN3n]>xGiM8iInUn(qNu U"g?;HX]Lb=-r[d*lDr*UM?VWG##K5)*j7O%6py'So.I3.>y\P[&aGlZ4r3.g;JC, U"Scr=2&4CaB;Rhe;S0)RE0H1jVeF(9D9j;V:fP[;Fvwg=Dl7]\LC>fT*,bLc6(ZL U"yE984\,XQ/DBndGOob276kY+*jf=)6\t+7['UdX?T\G2(UPrLgGu0XajAdiY-e7 U"_r&aRAVwoh3-*5HDr1;U/ix;^>1Zm-b43hPGjHU,&YH8;5xUY<.t#r$Ux>iTDb# U"6j^x6I98TzOg&*A+(Dm:e2jsi8W>Dx9;xCe6x\/i,yC&oHF:>J64eNAIF0koV79 U"x?I^?+cN1;=_)hFvFUZ/47K&82sKVPn+A6Wva2ZgzSB(k/njaKUxM187:NXQ&fc U"'I7W9OA5_ClKH#PGn$XgGLGW6/c)bj$([e=a/+XddWa>BGRHJ$qjDQEheD*(G2) U"PWq[MR-$+4oL.GwRfgIppeK7Id2b_(]M.s[n2hV-N1404O[g^#:#omUAU7nPuXJ U"LA?D$pC(lock,'u#lB$in-m83mItL;je0+\;I^B+XB1hu^M?QYe#S?w>)T:uh>W U"L?xq$;MQ63u(fLa-L;t0E*t_aSxoih?Rh8B:=AXq&U0EXyPwM&UIDPbOBoS<0S U"EeoBZ,Op4zpuf+U'qUECIpbZO^W5>BDT._)C9g]IhX03dI3 U"^yfs>wS&qWSZ)S=*1:gvfghG(+pyNf*ifm1$)esS2>oY)PFaSe*WBr:m>5=iV/y U";B40$qe0'_k<<:4Y44TUcP3:rh5JFtDD'Z?.6+xn U"F2(fk&ms/#*SvFaQ_JRVET3ichS:cQS6:&Ywd.,K4g,nfhC'M4JipJWT4Wu_SVVE0wp/]4gpER4RF,6No);rQ U"tW,u6_CW6,6%'5bP7O:Dkok[zx]XsZ\c==AXU5Q'/k*DwT[J5LQ-Dqk)Ni73YR)^LhaBlVjAtgD5Si$#BS U"mBS,Pt3*By4dLaxR/D.lzg*()EK,I&63cCsP:S6nVeM88qZROlnfJaF7RJqJg+j U"dj(F/h*82EDp)4BU[%U[LNeesbP>Xe%:9bw U"(7?PJG^k:&d0,*fB_^d-lOt,(_r<$xRzE[=+)l\Z)BVJ4BW-;+JBE<^dX)GrS;L U">djuKJ#'#Xs%(^?E8&D]9ohpAb3#j?IHtDG.O=\=]='P)i^5k&8C*_t:*S1aJCjRTP2X=xmumJ8]%GR\68.,]b$4,#mM?t4,2>JYa%X\&Dki?c5L$G7Iq>knp U"XLg/XAQk_#5H)]wX[Wr8L7fiPLUo>JEm6m<,l%L^UA?n(Ze7rl,L=#bBjo;dlC' U"N,qNLo[tcYk$w3L=&L8ZaV7-nE$ U"ralX5-%6_dO$Lv]7[ZtgXyY0x/VXY;#lTpaNV*F#\sbCon9)(,IHtM]/xzqx=q: U"g[J5Oq#,u?;O]*yD)* U"4':ueLp:?_^N$BCKbOi:^9H_MNX?B4h4lPH=5QC8bF[feLH.sRR:Z0-8x0H2vVi U"l?$Af:Fx);sueTUY,^]E)TR,OuJ.*G\e&r[Nh[f.DIdT6V^+uukX=GdC#f9IM/mphYM-&&$.1CV[Lu,2y1$G+edXlZVWbd5 U">6M[GEoQEPC_sy0oUAx'>]^:+B=gdm,d/*&;=<;z8MF,YJW>1m]zaL[ U"kSMI8C8O]IlOHeX:&&N&Ka&GRK]8U>JPIq$xp;uC8=5T';QuDdKjT7Md78o?>0V U"Q3i%7GNHt5KM?_Xl5P)[UDbwfFCsBb\fbm.YVIPOfbtnqb](\h1sOtw4bR&o^ U"=i4A)k$%/(cAch/i=:3x(,wI#u\2'%WGNF]7Lu/kXUMhr.e;CvXG U"?b/ff#_p7V^o%/G9\Z2L/OPkz$jbpng+;b6iG0._ki'UF#r=s]iq]/T,wPs/IeNQvD*r5vk/j U"v*Hs%'[KH+_a:L*7Qx_S5MM4HbCPoMn[yt\o_A/is;^6Wd;MCEn5EZ<2&x,#y8j U"3ms2N1m4?Pu?Yjl)lJ(S.YM%R:M?xU%ZP'l:;GqLJlhvNm2hRYcMbN%n;#MfS8f U"fs,H;GtRqX>'(Y^7+^qsH^[\Vef^cG2-rt>(Vj1$NMp%d\UfnlTn_Zj83zL-n<= U";s9XQ_UGvj_AtzCg]]aIOxniYCt1ZzMO>Y\J7#3'-'k9QQAVIt4]%tR#gfpgY%Z U"'s'iR/z<79JJ(U4hw+hfZ;kY5?2?-0VqnEP]x%%up(%)/%%#%%%?c81KS#q6/3# U"U%%3%U%%0#%%% U"DRU%RMUJ[MNMx'9%0-+%A&e%&&6%-x=%A%%%&)%(&%%%%%%%%%%%%%%*()%+,%' U"m-&x=%%k5%%'&('%)(**%*,')%,&%&%'(%)%6*F+%7Vf8(v0,G1W#P9Igw$pd:H U"1*B:-XAtQJZiCI2ha,qj;<%KYixu+;xS%%-&&%%%d%8ew%ASk6)u+q>[I(A=rXb:/77UATk U"uOXBVA%=;H(HD$gTQLQu2[InLWku&EPsnZAXa'E<1qzowFIPc)E:)8*Ep9Ts.O.GDi4< U"?sO(GJX^rF9_x*9^rDy5V\%ZYsrq99:YA#pP:Adq8dh'WY'[%LO[_'eC0G1$2cP U"upMPNFwc7WIAC^[%hIGxAYtM4444h44%W$SDk-?JffGJ;Ytu&/d/2-8nUdpor&' U"b_bMG7(mT/L:BEy*f_[#,bI'_i_rFpuKVHD[>GFIYHsKF]0J+=:1<6FsZCTR.,$ U"f%8O3m?Z_i-TMcJV;[w4P#79s1*dscCGf[k$EGhBbL7N'##M<'[H'+r^o, U";Tg(YQ]1b4nYqoPku&C$VU$6K^0QpQ,7]0peEkz0T95Z/I%d^bl/dn2>I#wP84i U"F=N(L;A/Cr]yRK1c1i<.T4VA3h0b>aI*gat'_vk:#YkXbY3&gDU3HTcVu\4[vzb U"$5tTe7Jmtta.j8d%9^n[QI-05b4>nAKPJBRcP[S^H_2>E4=/]g U"JUWtvwIgv:*.&jMlI-DjFbdblgnMvDddhdddGscN.q(Z\xx):8?mVrD+['(e8J6 U"HNXDr^ycO.xGAmab=Cg%ML6t*Z1*=h;4OwFy;+';bl+.^Dd-2B2Wm'p7&)l>u,8 U"YS9^+#Rmor=FzU/)reNI<_]vII9ahl6Y[_-_t06SjP:IFte&*#W$*],nT&fpxIm U"L/H^p;NIMM;/>)*r5k.s3Ec:z2a_NJ71]/19d%=Ub^w1FC*K[^.kQB'+.qnIZeo U"N+2k$2\dUfm:UZggE2E%l(oMUhv?9IZ.22i.&I4/k$/NSVfYoDFD5z>:bW>_J^v U"Rro0Fnb6rLP_hmO$_dN;_le=U:?Jhy4]R*IPxZS.t/HG-*fDJd$D8pasKx%WC,0ajLXJuO$U=DQrteNvXu-?7ZX,j(>]MwQk&*t10D?KN U"Fu)5q2R#>ikQvYJH5\3OnBv,x,t%#?^iiv\S+>[Lc:AZ,4Mf?JQ#2::d_dd9obb U"=2<0UR#bK*D>nfp;zxL%#V.YoBs&p^,#on1T1LLIp8Dvt11/Rr.eFz\W&$):)KU=bfdsOlM U"%r2$*Oneh7%k\#hY+_]X&0GYP80x=.;[$sOac&uV9xES08WIAN[tI,NIHfKqx+J U"qoS5:DT\=V9Y<:St];kr-KdGB/Av[fx2j9XZ&zH(1Qqq*;Z\AppGAHIZ?2T&]l) U"8aNZ6U-3P*B8Og U"8t(i#(7M(^r^;/=*EW$>a4q0IHYuRBD[an?^)u#74?==Yz5tf6he,,V-&l8+6]>d\hYHQPD3+#/jPwd$2;(^/Rv-aHKx%4M#5p<'C:ag0CCEIodk^3TokY0SP6+nc?CAr)(Wk+D% U"_TD;b.:?q6,vq5_?%rH6InxBen=Z4&.3L6sm4Z00_C(blaWb(_h+Jm84&bEg#L7 U"E9Ok[Nai9bkL2V4?sf#B#S&$D+e1AruMhedw6evMAhX6c6#Hk U"F5Jfd$lTAi[dGF/ksG#y;Fbhw?E(t22^'nOD>iXyfWmNcP=g,jLB]HN8gL U"dv%2?d;*nig.dut,a865WJQFEkSW+x].St&1W[j&L[Fc6MBIVOAMCzxC,+abmeX U"2L&(-WHYk:A:U$JfaTFcrfz0o*0A%WvpSXb#D_ U"-:HM]A_MovXb-;v16j+N1^%f7rm=S_oo)iN8imtPog,DC>XwIAE1h/bNUCtqMh(E#AnVwl^,X U"r8SV2mhRq%%rWr].5b?$5%g/Y?o6HqFHNMHY.;W;]uQ0S((RE$52YvHKrNhyAdR U"7D,aSIVQn1EIL_lKdI^MF;kDKx%9)uSalnF>e%v,#U\V[ENDC5n:HQD9u\1Grg8 U"$A^QxzMM*Ta/'9vF$pcDOZ58L1lP-Z&=W^2^E#X#^Q3\px.\&9wD9KN0OZDB,r? U"uWYTx%V[;cNNnlsM]+Phc$GW3L U"Sfx%kwNVf[Te_h#1t)7#CeWoup?nC/iffnE[7DG3]U-vD$Q3Ea U"ZICIH%x%;6a3.6,'(^uL1X[mRwU;wo7^ZoN+l>or_aKdEW%dC0rDm4*]9EyPxr& U"_6CI+Q2wH(r=#OetJRCr=5oT+3Y<7\L-ZmY6nfE+PhPRq$f\#Kd+%^b[2tHUPR? U"r#lAGtcADB*iY1yB6YMo\cUh[k][YYbss2oSn,T)Ig70u#6nrIv8MBPrG[DAt9u(pnEqLezS&kMm1:(oc%Is\ghAs U"N&X73Kd,7(]lf,NIYO.OJ_bMq04iV%s1QnIkC9J[v0$?DbEk\rs0odN U"]7Xi%m.7NN#gtqc6^ElYJ6k7&[<]FB\I\1YvrMUKKzH0AaU%;O;Xv;Xw7Ht8'Zg U"MNLcOxGE0MmJ-I9'$wD$%f(2#Hi.:%+][Rs9K?9*,'2u$PWZfmy'px2B33Bx%Em U"u;ri=Y4B11rk1J6cNu?m;\aSr94*MhMHB+/:V2r+$ghrrY5fNV3[HF6.w-NRLhXhvb+Jf#Hl_n\kRls9\ U"QGo5S&gg]N%^0j\4k0Tc2,Zlub==YZd2F7OvwLYA7bRcoAL&Z;mBq9SC(Z8kWRpm9xSE%\lL/\N:_N^]*u U"/;[+:A=wTC^tc;u<0ryEm$]Uw+IHH]p8UN=v>G)^n'_BhwCsuTW/2Zwv_$k?;/R U"b#pK?gP$S_$Ky(sA3lVtIcH5H3^VjpR,5_=qqYDFxJ\*?'PDqZ/=nJxBcQTb;K5 U"6vg#0qIm=r(wF5=*^a^<(1v,HnIRP90/$]LcVwxqgwv^5ss:3Ohoj><4REeolxX]P8glC\=F'Rr U"\C?jFn)cmPVKh9[EfV]e&hl\q#Q2wb2Mx6FKaYU^VQ-aJJ?b7eA)jg,rpul\<.d=IuAM'uucD%0(Pjd3-m\RT85>xW%M,<[Fb^tm4]UO U"\Mj3>RfOLm,UKnwr%Fg#BwqME>fN?K+k5)SdH12EqkPq9>O_B=U8AHq*'I>$TkK U",Td5lL)s6at4RIf*8tUp&Sl)?l2v_cWSE*vrU?>]f[;gq6/>]UlvMKoLdl.+7Vb U"EUi&es5K0UOt$l$Ee-9x%_Ja:(2XOc%sS=-QYtRcWH=Yp7?VecX2r8\2JW*dF8C U"c$SrM?RWC6a'(9tqC&EegbLL-XP9D>XfmCj0L6N^jsu'#^aI[Y0BfY;xCvX5X6u U"p(H7?BQ.7k[5&?D/bzXA#bBk9\svwHuJ0'h/:_LG+JKZffQb1u)s2ZZTPdJGmHO U"\pk^V.:Pnl4HLfM?n0N,j<1$Q+U/2D_BQbe$O<6*:p\l7=_[LpJh2LdVwp>)#*b U"+peCb_kAmAJv]>W9s3nsZVQD:&#QW+M(r=%%w_?hs1&hmFY^RsL0_L#;)A+cFs= U"CcBk>f;4(PwYbb*2h+3qdO(Fumy_gZBsRDHQY_$8\WOR#SN05#6bcaQWBN[ze6C U"w+[MUEKv8&bshT/5,1Opt5;_+]]H^k-WLahlka=g.\W#D/EY-THyqesxZ*e8M;m U"G$0m)ji5J1J0U&eeU[0v7;d\m\?o[Dx8SW\OXl=7y_Nt-M?mTf;okLHS1QsD6lU U"($uA-zLRXw0)G6ggs011>2inBXsZ(=b&3;9+yx%O U"#*DU92(((vog^ZTnMMZ49&WY%83AJ^ID(]V?^Qs88+d>?OJgXz1t6N8'>Yqy/UC U"*yANc9vRb$sYS?zUy=E_Q&Ym\.3OVH<#MdFY3%]Fs=s/,mVgTUDGa;tr:>U?c)c U"=+87ZVw8lh&IT&_omi,p8-94?q*=f2)hJ]7?)khs9kTS*c_\Y+7CoP3WAz=H6py+];raL^rOzv U"243ohHt'9\ZE+;aH-L9APPY+#vv&GGP0$TMHLnq6&:-igzkc>4\OQ2vP?eECc'V U"hA*,%kJvQOIYzE^CdIP%Yt/]]$qZ%GzF9ybBEa8ESr,hU06[-tm-+EFJ]H;L1Dt U"*6U^DuXX0Cd6.2a^p)R[#D.dsCV,>#78)TV^:a^vjhHJ>YBUWP4O45t]+3mhsH7 U"iv2>h)Wl#;<,>Ii=-WWhW7 U"L?MzB59Sc0^UQejQ$*x=g[y1#;Z<1pET>68X_Ud^NXR6+:45ceWfSpw#=RLXgv'8:Pzi3K(&-5dmqZ/8F#P/Ir6U%Ff19]_l8JeAaQE U"fmeos\PI-;65]tPQf-#G5V<=_2[9vBu4Yc3cP'WqkY2D U"H&ktqvNDj6il#9eNoe-jn(?ME/MGhr U"2L?uaTptAKmc/ijd9)<&:Ab1ef)ZA:.QZtsud/wMs/n+rMi++-+5HZ=>[w3fL]q U"FPp6^a+hKy(^d._^fx%9w-Hn33_gBdSPCRF]8?VwwI$?O8U_dG$PwrQUifx%3NLQ4&ajQgV8'Fs[Z>;j57Xn93iRgpAec>?cpmS#n> END SUB SUB V2 U"==I.0_L&k+Q8.DG.SG(9GR_Pi?6.cvn7cSeDD,aB]-00Vd%Wp+nEc51W'^-4/i9 U"eXKgmpcTsBbE4v/:lDV9J>1U$?t95_NrZftRr2#lS_heeocN/9&bj]j2dV U"^gUY0$mG04z-lS=TZ4(Yckkx*_&B\Xc.ImQA16)P*RGn2ZtHZbZ1wW^JD/BF5l( U";;ly_viCo&-(8\I6;?m,F9?;KxH8q2?G%66]Umn5y,*anHZrJh6oSRMJfUno(ssgc*j4,Yr%Zt.55XA*#E4T,Nb3$Oe%x U"\oT>nmL/G]]0';>k'?*w.K62)dQjjVwj%uA'4/.t)BgPG\Ep,Ur:DOb2_$NMTv+L5\^(xSi&h[O43E>3LNtD?Yb5Plb%c^t&ZX U"gPnDp)gej[5a U"3Q_(WxOl/wE&,RogBc6GWMyV.U1QTteO<'nROg\f66EPhp4-laWU4LHQGaWDY1I U"uWoI_+>L4#n=v7k%DvylR?j?-fGZ:DJLH'iWXVg3UT>gVIy1I/DQ&Cmed-U$nWL U"Jh3-ea#-/OTHn6S5lT42rR=BjLZcP3j,P(bee?'UF1.N>>a7M9rx U"c,jrF5$e$O:Gugms4j0cyMzjZoP#DI.*8V5*2%b*OD1o-kp]OdIIi]^cU\d2xZ. U"SHT.HGRAf'3\,a9]uOd(&I,)o821QRbP.KK[DB&DUGk[lpY+U+Fjh13P]-_VpFU U"cvRksQu9Y:cWa&X9k%cj>v__9hu,XS>SB6XeXjGwCRLrZ,X?;e+cSRi,Z(;=6tf^^lPr\2aLP7u.18;3vCj$I.; U"DPF[j)$9SN,c6u%N>lM$TBrT^I[BliK[v;Rcz.&QwO<=3gCPCSh0Fw4q&<<=O$; U"3sUFl?BXxzZ//fvU]FIq+ U"Fi^I\)RpBhg(_:-/G4+AOn;i5\wc^ZsA\B?6FsRwb'9C.$en3TJbuN7L_-rzP7k U"*8VIcSLu>481WYn#oDtB2,K#]Ld.wPctR=SK#B<>6_^bc/cPG U"=W)tb'uxhC(GC)591LE?7(1&)8XMRnHXMvZETmySOD>^t=$L^A<5\h%iT>%#c+D U"y2/iKE)u%R^Ht_H^.ItYUa-^-F'8V(f<'qL%'Oo'MaODCtEs5&.2pj1ge_3ah*8 U"Ebx%Gom'dJ$(p&4uCEE)[ReTJC##)a$ U"spnAwu-hgfD3\KNFcMPHjHN\lNSJRLXeD>'%9+[]Vp^0re\Mz2Lrf)YH>?RiRo# U"$*bYm<_7CxBWXPJ4a:DG*BEQkFC6ha#IJbWu^Kl U"P7^]xA0[:KjmA=R3Sv+x;rjw9,(r5p(7z1(i/I6$J_OtLqp<6O9bsglCbsT[TY2 U"v#1jCe+sKl_bid%F,'jI?rc^=2x.%v?jGl/_Vqb1X^V-2mzVJQ[]Xy25\MH14*; U":0x%&5UeH]_pDC5]>OVdoCcW\%/b\pwyCi$oy$Sl')4[>jP_2;:pSYEZJ>?m-,u U"EVn$':fPKa[fnH$DNC?,^4weAtN_90:StPi'A1fIs>L_qy8NXnZ(*a:;d3 U"uJAW]DArma&;0;K2=5$bE.C[-4a]A3hDBHle*DFGi3nH;3Bs\kR'#YxQ8Yu'#W3 U"fT3]WdqcOYNox=T2y*:?MKFESTk[E\T,kJM6s1k:&u.kr9sW U"wC&y?^24yptXq<-?MI^+NaO$T*u.%'^:qA>KXo U"kYx(,#xDD7+C==Qm7Kf*%*X0?C=z'qIHL9n,dzl^>r9eU^2Gm$:#uTrye1g]rZ9HktHmV U"_?<3C\FaWY8X+)ebV5Y2G\^t^v)BMRSE\a0[E:sL[t+hk)za6=;D;>xXj4-E:^# U"ObX_%dHs2D_]#GgokbL7^DlYAACDaiS/P8GBj>'S/TsiE1GTSW'q,TdS(*,#N%B U"[s60=#6w\O+4cazK7=;OI,]U)m]9z0QP%Jkl6sKh=esKZ>7)T=+Oelx,M4GI&a$ U"jj3Fn;a#>w06aEPm6>aZj9xp%)$b?kS<7+_2HC2LzpFcZX(RV[skadcCcoyn^b\+[o'AL1PaB0bahH*V6$H%J5$a9Rq,d*:3ckBo[>&A+\* U"nV8SV0Q'VvkXW'wEbCE3)H3ZoaYm5tj&j=LQt4MDax_IA(Y%c(ZJq0S=YrgGTtb U"m_+Ntqh;BP/lXh0OxSm\oJPD;8BXRB_P.+w3CZd$bkWnyPXL;:JL=cK_<)]=h$# U"<,LnkNmoB?h+&sjw:4.c.074H-E>_s2uHk+(_jmE1qPSQ7LC\mEk[CNN2i?.[3A U"tuEhsL$4*pFaGBJ+36hD=7hm01E>XIJ0ClDb4Vv90SHAsT6M^P8%rFu,M-A#[Qu U"cB>r:I2[%67fYZ/iYeRH>sb>^ofxKv4T]Dd#+p]&p:=5Y\ebBu]t1XXMsn1ROz? U"a^^4EUn0]8-EGAPl#I\dCiNbxV-;Py:o_Wz=L%&rXxS/_2=.\YpK^X1gD9VqS^v U"sPk+XvbA-d5*-=exW,Lhes7doe=K-JbVQY*dVpa8,(elu-Qm]^mFXcor1cpi9'K U"x%HOZAudr#]hp,p[l=kB,k8JW0ub7H1tChbtm##CMMJG=S^Fv?UJd.l>js25jOK&yCa+Uaf)/3 U"5A2JGr9*a,&jqh^Z0L*$=9YPo:w>MU\]sQ- U":\ej-\0c28Ykd5oK9szHq6pO2=u1bEGPOjZJ%s0E*7)zCBO=yGrS^,JJL'gG8u^7HYDIRhH'L9g$b\u5V&B\K-BDGqRW_7eX1% U"ueqM2kjjQN&4VZ\XNoUo\4F^QTYHHmzRTs*e4n5'HQiXo$5Vp9_q/Hpu*5yjA.' U"=QMoQBR7IKc5hHU>ctJF;h2[#nYYefN^V%icKIZmTnwHF-pvM#1LaHTfv8#w.BH U"c,G+ul2a*8oE/a&mHv-OgYjJt7,7:WDU%Dw1cruP8>SnmZ)apkFl*b)?0^tt]R)W_sDuvSt/u3:$YVjNfBx%2XKBx]VC$&e U"?++045li.TeG=&TUC7D,C&_1Udcl6Zo]4<\,DlAeP\i-cIa&x%/c:x%x[%ZQ*Ad U"SQ0&iG/pC=Dc/P[I8W%5m=Bl,KRc[XiRjN/*1V06hD#Lji;TTrC[RQUbT$E[dzd U"KkUNdF>ZB>5%ZJZH-tH91_3JIRnEj1dCo'ZPfI$^sc9FhB.$m1AFr(-VAol5%*z U"D[c_>l$$[-L[\MueI--R+gu9ulAPv*MXZmXOomav6P&g$&GKtkTnv7 U"KZpdJ+>iSY*deEDT[ku.4VnxSkwOIO2^Lun1Or,fsJ4?$DdVWdm$BtIV.3srcVt U"dJ_K;>Y>VeL(KMa3pTx%rqippMJ^M+W/fq+OW(K2,#74cMKeG^Pe+_$9_ooWU19 U"doa*4qP#^i_D/vRSZr U",^=s,EqNw:(GG$ob>&Z$p81cV&+8TcWS%jUMnLc-lbOTt[IC7Fi3V,=njnJUcFk U">tem2>Zt/xY\wdBH(jk6.E^H*7$Ro^A8=m_+aXO_)ee:(0.K3\Lzg%Vph^m=21l U"W%lElloku&2_NlJRYojde_+%Q8x>FeUboV8.AXvlII_,kW3\mrfg#=:WJGFVmAE-#00_t_BBFm]JDPDR:$ U"wumG;$;vJ8h^'AJN/nS;NZx%.RtC4G65brcE0VRp0z^xs%k'H8ZLL$FTI/e/S%; U"Oj8f);ghq*dU[XFFbqURkeO\7?9KTN08MyjI>]_S#JW-7tsua<1dHGa3hTV+wS39uS6#jC4]VgM]V(RnR<',9J0rdoXQ29pJnh U"ud^wq;a\#W9mZbc'fqPPmPPCoPiD4>aY7I)Gr7VeP+NI$n]3[dDZ(e^=gO_XS*n U"J/T3HXW9r+#U6nAxA_RahFo.05_>?e1%2HFu1o2fFP3KT,leeT\3e=[ohb?o_>2 U"s\P1>o==3eVE^r9ds-NjyV9RrRma*-l?%DDou_gU?M1fpe^,VS1N8THwdDgQTkr U"?^quFVc5F%YQ5bK0c=Swx(%DEr[kID>5_YLeuuc?Ltt07+[n9I)#mW^UXlwmE3F U"Qoe.n(usA#i6U.\ZV,Dt7kIM%ks%VrB69<9kIRq*+.+G*RJg^-;Hjn=mU'TRzrn U"Qmly5Z_s\-rNuNnj)^l#.IVD5OlRML6Blv;$OukDjC-r-M^w*8D)3D7rM6wg^SO U"3gl$+Y0f1pQf.Yuf\&0TZqtJL+e_mWca3v9-%3>45XanF7F1#sY>I=:/I76zP12 U"z8&?8^2GsGCo7)YbNfk;anrmG4s/_2/29.6=oAr)/=R+RTR8Hm6Bj2G.&[:\:CI U"K;oi[56:PgUp]7T7(==UlTboS)-c/MwcKjS\RB7e0l8l^c#2RSp8H3p_azG$.K4 U"QoMPowd1M%%%%_%%u7sEJen9vG$rEMr7*4s1/3L/mpP9ef:,lt&[em[C^09OJ?G[j U"cmNk8Ag5jXZ4r0,8ShR?TFQM0)[TeegwXoDYrvlF(z0\Ad-U$wD;o0(1)44,Q85F$F[rVIu[8(3-wb3o1Lo U";^uN2ZadJV-uFV_i'vt>ql5MAeW+=%6M3nwS U"n5v7r_T&Rt9Oeom\VFB*jTd3kKuw*U^uLeIL0kFB>jZlm\wPg53)(JlLmtSq8_k U"Da^uN]W76krKs[^2Mq(tu_j:B5FPpu=(thbnKnZ&J&KSZ3d;EMeIpcMKSRDOpos U"QE0Dp?m/eN_ftaZLs8i?&).NCR4rZ_SNJaYEbp]s1&lMzO^JK$s01As6t$B<%j< U"G-OCdO;ojPHex%WSX]>[&vciNpGTa0M\Jp8f0s?l\*lFrnd,sLnX=+_DqI8UN\\ U"N__;X'/#twexAEeZYG?X_iM%%%%M%%%&nd'o&Arr[fO;6tp4_']q0c9>Y=dq*Dg U"U&#chqQ+R=su%$P^MEorbEoP=GSsdX'dg[Qt+Ip0gd) U"Ls15QGN?O#etmlS&9E/?m(fKTwa[AC4.'dW/tDF'\6.%%5h%%%-%%%%%%%%%&%RE U"%/P%%%%%Lo?46LS10B%up&'%9%/%%%%%%>?81K'Sq6/&3U%%&3U%%%0%%%%%%%% U"%%%E%*/P.7I%%<8M=0<8IWS9?&6up*%+%%%%%'%'(%>%%(%eg%%%%% END SUB V2 CLOSE:IF S=230AND 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