'=========================================================================== ' Subject: BIG IMAGE LOAD/SAVE ROUTINE Date: 07-31-99 (15:56) ' Author: Jacob Wieles Code: QB, QBasic, PDS, PB ' Origin: jazwls@worldonline.nl Packet: GRAPHICS.ABC '=========================================================================== ' BIG IMAGE SAVE/LOAD ROUTINE DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BIGSAVE.ZIP",4^6:Z&=5028:?STRING$(50,177); U"%up()%9%%%I-%>T[g8N U">9EXPrR1jYxi[yA$G]_2nTo&B/'M,Yv>8m\-qfTi3Bbb]kS8vDhM^ocH.9d[=ES U"1ChG?5tVDKK^HfOKdc>PXr+bBT\dHSF\xJMDEJB/v;k0H_rx>L[BVRp8Ai2XK8k U"J^fGq]Ge(*#sG*C6aaR6#,v7pwZ2W]3k$]H+XJG]1Xk#LhZT&b2^OBf;#Iow>EB U"Bsa[:6aUA_QqT5W6lQ1ic$aFFrk_=qu*f1..B>SFpVXYk=[P655Hf%A>Tj(fKUp4tRsxI^F>%V3nBG+rW U"J4mGzY7eH&m=iCdkeeGIA^?7h*pTI*XlJ)ACm2>dT>YHhe4PGh9,SzI&o.GQGo& U"Wd+8+e1DQY=YKV$kGn/8N0bl9oOD?Gz%ENP$^OG'CL]i/DvFp,DM'FOKy;Jb U"t72etOa*TKz[Fb4BRH23g$DR?p%KR(dfsavk\tb+exTL4iUDafU<'1>I%62_G[hjH?uVpl( U"ldfv^7A:Wr9vCu2,yk_&IRFZbdUv<[3?[MNL*7Sp;JU)6f_qI&cW]6saR$#C3B$ U"^9%vgc3+Z>TA'9^$g=wEe(U1k<'/mm+%w\$n54,*jtXANLZ?(c+ U"5e9s6qO)*t?ORLl?2T)l(Rqd\TX#gN&EYp2U?vGP>;72I:'+(8HT:dBGJ<.'%5%0(t(bxxf* U"Y)>#k4nt\d4,H$Dlb\F.s:p4sa7HipZcg\2'(#k29Z#>OTh3n\U'q9T&LlN]u>3 U"cl58=n'3>915+E]ae48yw=)'$],;_n8[U0f=Z5+bIRh$t;c\bghx_*vLk?e*=4=PGihae35/&y4MgQAn,rNCh U"*4d'R^mZI.q)EC,BcJ'Rs;1%P($]O/w1At, U"RDnJI,PB_=c(UNA*$pJq68hEqAm_>LAM+HZ)XvNn/VC2pXmG5EK5%IGtGv'Npg- U"%[keoNE7pn\MNI.pJB)H5hl_G8_,W9&lVCtS2YY7f,hd[we07x\EQ+pbG<+I;bA U"A3_P]_Jd31J=0Tf9?]DEH9kI_*3u_ECy3?-SKR*GI\)A5(KEJpNkf/IS&Kl5%IL U",7rJ4_dU?**jd2<K9dfRvYUsf#sB]u^=v U"/[p'j5keUH(P?r4D_':R2)MD?cHf9]&wY>&oeQDp:8IA0n U"o%j\.NC*-BbfZ)07F([37x(cdV:,:KvAdWRt[b1uGWYdzCTBLw_Xt'Pst0+,vZg U"X).;EKb9Uyc:O$7XZdNdb)3CwN(yCx%t3dLiN^?dR,]7GHM]X\<%#ic(Fc6J%W7Qq8?b=\fn'&&\/,J3z2PH.xvQ0)%>[ U"Vds(20iBWN7s2n(+f:^(vB=:5x_b[eXP\)rFl-2,I(RaMMsH;cAjHFYP>>Hf0Aj.>0A4> U">0A%-M3P#IU1H^j#y](Jr]1(^u]1C^t])[6'Qw%'up(%)9%%#%-%)GAxKuKmu\r U"[(%%p%-%%1%%%%s%qtfi%RugS#gfx\gz<>TR[5w=Z9xZyp>zMAJ=Iv8Ee%>a(S* U"$1,8/9P++e0R)l2G7;8_MGQfP^>2e4&&#o=UHtFHVd%#,A&4Z'vj[BQ7-9:FO2DwRui( U"v\]C_r5i0h(&A>=2br>:Xgv\oz*D9OYc4)X:ESQJHL2jJbF0mysCKVlCa:+i6sp U"=T[]m;(1.ZdaO3.PbO4v^qJKhgTRoDr7pCQo+sYj*Aw$Cb88^Oi^G3t_NNFohsn U"pe_xKFeCv)?qV5[+VBR6$JEjHRA%YARyiPx&63Fek9k=4l?rO3jw#:UWv*'#CuI U"rE\b<1+./PjB$DpX7.*G U"L5k*3Kls.vW7CETcH+fHt#GgZ(/Gc.q72csL9f^SQUaJ4gN/LV$,yFsfM#*3i:] U"B0P0DJ=oWC?+B.>qbJ:+2V$I$%zzm:/D-Gq>ICl11Xv$NCH$JtSd3#S?O-geAMe U"ss,IrAvcaITV4S9nLh0VGbmzwnXl*T]]n#>#CWAm#a0mFL%U\Qu?&e5qDB3WLB< U"1.nRH*GjS[Q](_&L:o(:uq>#wZG4cfzl2lI6B>-T)nth4>bR\p? U"Wm/p#oy/PE?C-Vl%I*bdbcx6S0Eddr24gft)s43-8+#9^_t)?BV?P9DJFuO:QYN3?r'x&up%( U")9%%%%-%;&AxKN?),='c(%%'(.%%%1%%%%sqtf%iRvg%Sgfx2d%=F0*m;$]fOwZpVR,%Ls-bJ9F4FN_H55Sn> U"(ht_jMk4-qFH;?u'ZF&nN-*K4?ksB&VsBrZpn$,?*[[>-qp_ECa+PK-w5W8Jkx- U"ThH=DEm&G(Y[Er(MstudQM/]7Akoz-Pjn%t8?Pp?_R*t,=ZNpn&5>r*Djm%&07f U"sa0o0j1OK56#8CVn_6cK#g,A.kD+0k0-:Ap?Ufg<22kS(J]ce7tSJ1lGYmd4US9]7FCg?g(fNU6*qQ'7HU+/?tk.qIvgQR/-mC^U#$lXU5k_JeU6V#DM U"#2B*=C/F]DLMU*]H4]ZWcStqS1[6;u*NS%4-UUpxpD_d.^3 U"^*N7pAa\#gdcQJh+Ur_SNYT%/LU$?YeIGXI:D/7mK\^4aET]D U"G2y1gbgj6jR,,Iv2[r8W44XRX2tk0E70U?I5P+,%aD>EERery#K/0ctN?++HY(* U"B4SQn^7fc>naPARP\?K:n#-r2LOY\,Wd(##QDMaY=m21c$:^V9UrN2V;;r)v1%y U"eho:EVmH'Rl*(FAL:6,V%:roF01m1$2N_V3,K2%jiRu'=I*HCGp>$sRD_5>z)3mk9d+=d.Kp25&%nKibWugqLd^4YbX6xgU\Oy8 U"HcuGJ7d>N=Y7hZ+BVLOA&PC.=&WRPL7OxRISB7)Cc%*,1H5:$1%*K1*? U"rzDkZoLQt:1U>.U(MSPUeS2j:6K7ZP(j)6S]8Y=][Tjc6v*E-XG];7R1E^W8YDG U"E6[8Y5XuhZIKBd25G]9TbA.#2S9kGZ[UP5&tmnsI]^>Yqq*sYGL/lvnEI(ZlTQ^ U"mlOeYYc5,jq[%i6Z/FH[V$hPG-%])(I^ic$5+f[#J;QG;H[<(R5G0rziS/(?R&X U"J\?lqO#/dj[*+bHhO9\bX/*GriJ(CebDPBfMuHn_i-DrR-O/$ieFG?j,1uY4_]* U"%;:+lzpJ>aFS/=uUF;QMkgX=r*Yv$Sm]%7G%*g,%dt,p?$63q5-kt\)buLl3uX2 U"+(>MdepC\W#wl1G2+8b6;/>i4$.msK8JifxXK<'x*up%()9%%%%-%:yAxKWH&IJ U"'I(%%%S/%%%.%%%#sxf%#jSy'1y\%v,>T[5kMWOv)VJMUg#_RQ9VW-e(Ck[P.'9 U"8X,6TXJ&lQG7Dx$y3ZfPh]ScGCE?S^>-tDug\cpVBr$L^Uu^be-/jrZM0QvdE#8 U"'Lv_L^;aMebYq+0a7t\e&n&CK%Q3T)>eERf-;Z/Aie/2F?)UtRiCz8uWQ2XuBG(mX]5EG^7msu-2[;^gSW<&Vpu2Rgg.cu?3 U"dI07^1v;55+:#aQ))hbRAL96Y^M$]=bgl/Q$vH8GWN8l3;pb'a4kp:VJ)W0lGYD U"P\ga/46gml$G[6F_'pEmx-)wk9:3)F$qle39dDccG[)0Nn+3wzd84zNJU^cv1$: U"Qs*3\+lCmj3fS]ERAit4$x<-6&Jd_Wx-C6dYs5$:7)EYYXj&[>%Mqo7Ca1e55jz U"P<#aFf\'MO*j4nYG'*L/$?q1v5g)DI'+ZD+96%-JRsjIV<#XQ#?BK+)3&CB:q8c U"j8I8YWUE20TQqZuphjE^jGfuHKC-_YIOf&08\-J#i$d]I->\-6ibxCyRR)Spdj$ U"4:r7'r5VH3X(>rV+OiE.2cA.3rdR(w2R>bDQw9)?=Tux6U9FP0Nfju.DRD U"r>Z9r6%cnB+aTPDpVi]KJ?djY]qj%WB;wKhcZ&QEZGjf3;nx$'P#S=1hXuEt+B# U"q-v[hSYGn9MD>V4A2+sR'W7t*vkT?4^QklLrrDPXa)G.dR[1WhF0^X<4TV$*[0J U"k%gke<\U8\\&xa4EwYrr)*Csr2$POIqN;/Yp+I,5EW+fRPu_0lMRl5O6n7meEFL U"st^7u4jV67WNkZ_C>#MbLCVIO#a:mJ0,'HG3led+8dkU'oQ78IJYFMEU/PAr[5n U"^OleW$rBocA2=kgv]f:F^6?u<_JDt_fnRUtNw+vX=jxqiIfe$.#S-tIVK7]X^JO]JXeFoC^gW4s8eJ_A7[NsXJSI:ux)Wi,_:7J*K06-W7aW-1r_VVn U"&ZHhrVb/oO\gJVB1ZTV(L600_p>bg>xHp-uj;d4\?,4n0