'=========================================================================== ' Subject: ANOTHER WAY TO SAVE GRAPHICS Date: 07-31-99 (16:12) ' Author: Bernt Figaro Code: QB, QBasic, PDS ' Origin: bernt.figaro@swipnet.se Packet: GRAPHICS.ABC '=========================================================================== ' Another way to save graphics pictures DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ICNMAKE.ZIP",4^6:Z&=3690:?STRING$(50,177); U"%up()%9%%%#-%[EfxKR6&-MC..%%2#%%%0%%%%nh%srfp%jSgfjx6(T>=\A6JL< U"oN1M73TE.eA-;D(=fM7x4#Dfq)$>m*lKCpcq[%R?72W(Rvz8L-)e8_aEDI)-_Kj U"r3yR#9Npmf*8S?uQ]bcYyLN,-NNb81[SN$h,>7x*=o$?/]BfrZ7A$>]^7/uL/Vm U".bt9r1J-JvZe7^,#,NUaj(4zU^NVS*PW(9)&_#A#'W:h>zP-1Xe4Pw$<4-;n8/' U"iFFk[huHlLN8;c8l'rXTB^0KkPTG\N7(8x[GM[kSC&sG\c1j1fEYnb,5QT?7n=7gW8qAw)iP2U=kJ U"Ji&kanB2+9Fdj0l5;DWu/[GF7_,Q$muAhLMF;\gL U"uP9#C1O/>CbIV-Bjk((\5,[27u%,b7PZD;wR'ocMc--Yt^J%:pofsOCf'SE U"c9PV*ciNu*6hl2Lhoud7lR:fb>_^aIRzo<^b>2rnA^[T6+kK64j7*9KrGYKo0Mk U"^=MjFu$[ZMk&dClDroGUwo&qRF>*Gi+P#.UwT>k)eXhkURyde%CpoEUAPf U"Uk2w)s>4o.rf0_&(eNY&0##.+E1ed7Q^KvP9\WikF&)v.WJ9^aEdGQdQr9l3b&D U"JeTnH'7^:Q61TExe9#2?=;^#SdS''w^CFyY)UXs(C*0dMN'l58%\+_#c0jer$KF U"s&3jVrAB2&&&UhwS28T6K[Zn6rlq^K4B3TKf2obg34[\NWrX%Up^yS4loepL4J' U"]<>OVqx]2I[PNp=Eqp\<4RsPulDr4m8]PDuUcgKfP\i:*mXeY_?dSQDK$o6x#4& U"mBBb$_FLGhgy$pfc=UpRXA?QfH/;[H#nQSgIU33q-UBbZ0bq.2[4;t]eF0QW=N8 U"])C\fH[2\?MSpV5qY2-Q?4B7?ki5';;B]r_7b,lTGt23Wi9PIw?AZb__F*c-7XO U"Wq2Q4DyYD85.^&EjNvr##:Zt8=z U"JqMzz(/n2WHAo8aH/tK*wDsJUX4\#Qo8Lm%Mi_tQD)gVlnuoJJh%'bB0?s5NZM U"KEUd2.L7rg#T7,zKM98N)kLk()'lgJrICNNJihF3,kpdyj/Kk+ih,WcE\zl.mSc U";*oQb)2:<=qdUQJ)?,CsUpbZQ&l)O,^&,oiyh-M_7\rmEvqe5Qx[)Q5U8vaHwC*UVwS>5Vc%<+PX%bx=/7KmOf&p3?/c+,1\Xr>/^]0Y&T U"bn_Rzf$X&[hv*4__k'X'HPvfbNn4b59Bv1YvaVMKL:cnM(30-K?h4G<\(VB/+__[^JJ[*Lpn()[/uhujw/mG(i+Kg0=/a> U"kd,hit6u0>nMLCM\>t/^oK(&xUYybY('6$ZUr$&f#ptzh? U"6]qCM]?Oc0a)j_EhG'+6Tpox:Qk:xRZzx_$'96p+l[affpg^pWQ=ZY3l(_COt^Q U"utrb2\3Rb:_bjCC[hsbLO/psFV)J/f2#4yHn0^:W84v/+X)V%O$Ov0BlQnCt7ml;^2\sv1xWVC*b(p-nYV(u9S8&S6b=0e4_RmRM0UqprU/oN-:PKfIF6;u/ U"Y)0A4ylX*.\m/61FM(_W0Z/W7x[xc$-GtDYO9T\c_S$>YUOcK:cf6#HG=\huTL* U"#vK#CJi'TPyw7cm-P+/Dq&](:\?r-LMZxXhWE49V%3]\HwHh2QnGjYUd8(4,#Vd U"hO5sZLS(uAuEnrut?dRV^CH/bV;(CZ?64bOOQC#1=T=AJ0=Q,nF=LKF+?O1/n%) U"I98Q+VmT*rO#^c)=M5<=sN3Wy+x#,QLw2V'SbJx=dE,Lhgn%6wOw^h#CG%i1D0D U"Q*\c+px&u%p()9%%%%-d%$8x^KGB])6C)%.%O&&%%/%%%%uqf&(fsS^y'yfQUfA U"y[_=+IrxJ_U6Dt24o6'1w,*Sb*1ISW9Rd-EI2uE;OhWZg=Vw8^<-rhtPGCb/,T3 U"uUH^Z8EdT[\Txca$oJ>(RJL'IWV+'NX-*I\thg5]P U"mg?(?(ll($AClQr/l'VY[dP\V+=c3XWDQpH4QxxCjhbHVYD0l].+V/=8NdsrvDF U"3fvX/1TT8bePI.Y)DU6k3NV0(zQ4fe-MpJtHV(>ZMG7an'a70VkdUws4mh\6=LYQ]8JoqFFo4$A?oqPL6edywTLyea=0S3knnF[ U"G%e[\z4k$EM]gJCp/1bFdSV$$D< U"h*A:>cEJzjx51LLz-VF_bB3DA$W.CXxutx4oSl9_FBPK>&lxbj%B7Lq&6aKtP>C U"bK:<3Cb/J,P5,Y2>%fBa[,u?63':E,eD+tIcw'N71%sUp,u1N4fLJBt)P5(:%#> U"JzuIjYpO]^U[532i^9uHREQPD7M;nd9B6md?8Jfs$+Qe/])jIh>G(ck?7/A[cVw U"Ni7u\_Lr1%VAh998NMpC#d%m[qnVeZ23-3KHXMNVBQaGz+pq\^h,Dt2qbB5DVpa]NB_/2V U"2UXocSs2.[D$:qCrIg]7x\hRjT-ujxOmUmsxW&5fG+wMA&F:iD?TjQg4.BjR:.j U",)&$Qj:(gnf=o*O=;rM1jIVFGDm&UZE\lDpppf'Ietp&WSt#kqC9D$HXnaKtpPC U"bKj:3CbU/,3C6bKtpefS,3CgfS,eppf'$Itp0j83CbEKtp&6aKtPAC41,33CTSG U",3gf1S,ppefS,3YCbKtpp&aKetPCbTK:3CEbEgfUS,3Cfb/,3DCTS,03gfSD,pp U"fUS,3CeTS,3CgfS,eppf'EItpf:S,3gJfS,pppf'Ietp&aEKtpf1S,ppYf'Itpp U"&aKetPCbEKtpf6'ItpY&aKtpPCbKj:3CbEKtp&6aKtP>CbK:<3Cb/k,3CbEKtPC U"Ebm[C+d(PTIon&-jC3CbU/,3CSTSV:-dw(u%p&'9%%9%%%%-%[GExKR*6-MC#.% U"%2%#%%0%%%%%%%%%&%%E%%%%%%%%%nhs%rfpj%Sgfx%up&'%9%9%%%%-%:$8xKS U"GB]6&C)%%(O&&%%/%%%%%%%%%&%E%%%%l.%%%uq(f(fs.Sy'y%up*+%%%%%%'%' U"%&#%%%'\2%%%%% END SUB CLOSE:IF S=98AND 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