'=========================================================================== ' Subject: IMAGE MAKER TAKE II Date: 10-09-95 (02:31) ' Author: Chad Beck Code: QB, PDS ' Origin: Earl L. Montgomery Packet: GRAPHICS.ABC '=========================================================================== ' If you picked up Earl Montgomery's recent "Image Maker" program, 'then pick this up too. Functionally, the only change is that pressing 'F10 during a LOAD or SAVE prompt will not exit. Instead, entering a 'blank line at these prompts will return you to the drawing screen where 'you may exit. However, the improvements in speed and code size are 'relatively dramatic. DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"IMAGEMKR.ZIP",4^6:Z&=5485:?STRING$(50,177); U"%up()%9%'%R-%gk7nDFX-^U_(%%%=,%%%1%%%%nr%fljr%pwSi.thTz;,>TkC5K U"4_-x)kCEu1UD0SGXua9)B3s;c(CdgdO7_k]Pkk9ke2pbiZ8HHgv%%q6m.I&;xll U"VRhZX>w$)WWkveZXu7IZvcnz3hcl4__ju<42r'wVR0q=crgW7#]Q$R6S>'Hpy'0 U")+2MeXiA.V7\/E4*=gq\ANI%CsYs-:LL<)1+r9i9MOZnxy1eEt,3SQ:q&XQ4rC) U":a;(59W*O;YKsg.TP3O%MJlBJ+ORA8]#vl%iB$7'[aHjTYu\;w\EkfAkQ;2#*j& U"^C;emb?ss0,RCan7.YMVKG:#m>ri>GnRPcj[.hG7&rPye2ihW$-Kl+TN/OVZpzm U"X;*tb4LODL;(HUC[[pg50;;tCd'O/v*Y'I=dA&\dQl4KGf001=6?J(No\d9+h(F U"Q#Us8MxImjf^[CBNq6/ZdbU)k5TQ?SD4jf;= U"VW[\RlU2F>=QRN#a.wr5iR7k>*[1d7;_nH>PKrUgd.e#3;#RuGh/BCIg_43h9Eg U"L]^==$>pMU?MB>ZPrc&6FCuPO#\nnM3_NXQaR$6rNuu^*A+u\['UxRc6txWg\qk3sUIFl4#OWf0x4n#tsF9<^U'Gk U"L%g#+COh#B7as9xKVZu[c=k5Ld[mS$8xt&if3BHCW'2&].+]vWEwdJo4i&XwaZD U"y5a:V*0:g;\l7'%up()%9%'%7-%#8%nD.7(Xj_-7%%5;%%%1%%%%nr%fljr%pwS U"gIfxl'q:B[147vky0^dCvWM/XPINpMORnK0GhgS)?<)ge2-0g<(^++her%6\#XI#it2owe2,,]LZ,ZQUY=#*O_+,_6;x4ReQaN4>N]?BrrI,r::+a U"&,e:\'7cPb]*?lcy1kxZDAlQa(bCc3L6/--& U"lCbXSIknR);$K=4Rg:.I\6P*S/rZJ1PhG(9y\I[qu'Tt:#LTjOPT')J/V2Sq_u= U"vSTjJ#n9W=wdFt+uC=b*)7lU9n\T)H3Z#9M?vCdr&Uga3a]pVgtiDaJABURRs9g U"RR:E>RM]i%.:h9*fdx^w]Y1;=S_XjK,M7mWhm(??1;XM/s0=Ou6W>;S7*wO4k5t U"=VMJ)kWw'S^ki'JXoi4zH#G2Y$$GROb#Y4MF[;FvB4Gn0cC5q[%GDq;l^>:GcjW U"2j6HZMdkf8>k^NI[^TxxR&T%Sd7TyK\[F)9Ar2$h>sJT6UnEVN#CNROvpAi8;6Z>Z7,N U"r\1'AN(rDvv1)c89E:LW'H:bF8p+##G.P$a7OUXj13]kHa^(US6ZBp#z#RtU(i= U"=X+Ul/#=lwjFx_CX*S8wQV*_sqUFZKc><#Ue/*#[^KJ1E:j<1Scm7QWo77%Z:%E U"W_,P>cn_gUDo[Udn U"X'[#T4:c=Rn#Q?*GUT=%qe>/u=S92qH8'H-$3>p=vK^7WoR8MbJ(WZZIwFit&r0 U"pKW0&-G%f<]4Z+IX3a0.\i+;X:Y4'F6nU3aZ]_;9g=p_]A8=fL1oaUh$J?(ipHijHjm U"LyBV8EC3UWjfXHtR>Dh3W6p^WS,#dgjNt+(=xlI,1c*6AqA-y[Rb#XR'RJBfvE# U"w6U4$<]0*h&0;FdCe+tL8hPuA)quf5>4s?(k(f*i8E.O8t,S#sH4c:j'-WIja&E U"%JQNN*T2P9BEx6[k)B+3QMDk/>0q_]Qu\uXuwUu2J?D=#Umc$Ta_OIi(J*[.#g2 U"g3GiO\p$MbT?tg=5fd1#P^3'nKi>C9VqdeZHIE+mZ.Oe0P9l].VW4OOOw/myN.0 U"72OxG**M?2w+)R,bj2tLyXZbm%yts/]dSzpU6K#,Ollgx1tUPOuCJcSjCKtDIZj9XH*OjDLHb/$Kr?1o?:T-m?irXV U"gWX0iCF2tZ;6%QW>6P)8p=,>,)G&c_l[dQkYfmVRF,4LMjt(%9Sk/0^0paHX69p U"jakpP'eP8:TCT^VMkv*$M]o^hfC+8A^myR^IAEJnaKCN&hZGZngqBK\I(wdvoe? U"Pbn0u\M[n2MNNnsKl>QbpILFG7g],/.kVLzJm0N9G\8#T=Bkc,bzi:piAR_^Sb, U")oYfgCRt-wi=Q+9VvHBh^kl>tbiUnRH4h*'I=.#gU+V7ccDt__r0_xe\oY3E+QZ U"hN2kw/)THBCIpzcnsp.WG;Br;^ITO75Ot;qYCrTRQj2*aSjSdn5Sy.spW.i; U"z+_pvj,$SY*Xvj[m)f,wcPC]?,u.L5$1\)I>oU%J+E]62s+G9Y&25c0iAOZ*g;( U"UJ'(kd'k/8>u/dUzOb_4gK971&OOEM\8Sqai(P?lf#Fg U"OCmFOsjQ3s0n4=q65Ewv/Q0hk\dMAZJ%=MRKrgFky]e?*%i9m/iQ*'+hcV8&jWR U"r4c:VwO4ZUaFn]gR8k=).Y0-Zu]X?sX(T0Sd_u-cvJGR$J<=unm*_f7(CDzlbpy U"EV+zQdQMNcGAxxOKRNB7K#0+.M0\jA]r)JpLVysAva4,tpMitkHKK_lM\.7RB>v U"hItrp6XRVcKMEDe=*xo)]Q2hjg6rfLb$Lq%+iko1XDwu/%Ml8N-sd%up()%9%'% U"#-%io7nDP,+L7&&.%%6*%%%/%%%%uf%ltif%SgnsENbV=B;U9U2n:yQDeohtso& U"AA%/Xh]7/la23)IYC_r2l,)#[AFmH(iPr**t6q/'CIowwm$opQQ1F8wi3b(R5;FmLXGf+u$dCXg:6 U"HPsGMCf.u4YNeu5>+gnr;gY0hcO+*sS))4$2Y:M4rwbv7%%up(%)9%'%%-%W&)n U"Dp1IE_,[)%%$%S%%0%%%%q%jyyj%wxSgRnsfi:t;TyjA#N(N/aO+^\(LNbo%Vfk U"sV_VMEizU.S#Wo)wR(<.38B-rKS=:2,_inC>LKbQa:yI/;ppmSoCrBAz),V=Ea: U"U0MC%obt2UJ[GK93_Zt3CPB5]0E7cB.IF:I&W3M[L%=wMCfo4?.34T9p(U5xrHI6Ix# U">=U]hY5mWXk*tn;^ys*v]-MoVQj=sW'c+W&nTL$r$,a(Ii<'s$/dj(_ZJjoU^1= U">^1xQNmYSNJ[F)c]:$*X?4/k0l0N8F0F[C:c2Ne64anGqk&P,E';Pq?qsNb]&SD U"yR/J?D_RST5_s3,JvxBIX;jwl*($QRK9A&7I3iDXdr U"v:4,lWNKx8\H.Qi\mkHJ1El.4_hzv&+QXN'Z4rNw4#[7baHa]BRRI;SzQ'?)su( U"jv+cls6btz+65Ir7vqr=q5bhe'ZMie=6+S8^vD4+c%asdtZ_K&W-LADgO+(D5Rw U"_BxSDRnvo34UNV03,.)\:W?N#5))QY_:$?<#Nt-vX0]=I^#9AwqU)++KTIVp$I=F6^kW:7x$F'9XDc+V(P9A6*9hxX^s$J5y U"ThMqUP3NfJIbC?oom-%ZLMhc_/=EKh86'6sK.z151<)a,jdYbU$>A:1IkkJ[jj6 U"p73[lr36\xU5bj.G*?#=c?CcQ'v&U^7bujbpz*rd_=k\-*oFI'hoanj.vqEq/%#-/($; U"M+(<6IvXP=mJA:SMLjjXUj:Zum\s(kXiL$<6X7G.I>Wr2+^FJ1_01D0e95o)0q< U"K]wm7,GQCgst5^5fg2UX+irWkpM_bTX&)Uq7OdSM1ez\G&-xqskh?(WMn+NqT^L U"N-'oDH2gEqxbpA=e+<>s,;^9F?%z3P[qvkere9ZQYNiAl]?^w+1(D93eYCq3id\Pm U"d'/B5DIjaOG$?b8R2#5r+1a88bsN,2>rtl6$drL^wgIW5jlApZ_ET0g]?4]xdd% U"%up(%)9%'%%-%n&onDg'N&?i#&%%6%*%%/%%%%g%zlrf%sSgnjsFc:+oCTQIpi1zh4x2X)Y1I2X]Y^Q1oP(1Bi+ZeG]GeZ\(U7 U"Y5aJ<1osL50a7\JF,flo8lYvhpFmGLll]\P&akr)$MM2xGZK(U2xL=$Z(]eLIx1^x&7a#JF:&0:>jUSO#]_S9]0Qh U"\0OMxm<&:>?bs#RToiqo68Q4qKDWps72^h,aSh8%gwB9*S?eP0+Ym'<19u>82Y U"R\]P5Z19>.LSg:L64qiYRSjO=]'A?2Ivw$A]o#VIe&v$;a*pl1D>U0+'Y'<6%SS U"J?[B:.wB(Z??%&%%%%%%%%,?Ivz2V:c'#%%%7'^(up%&'9%%9%'%R-%gk7nDFX- U"^U_(%%%=,%%%1%%%%%%%%%&%%E%%%%%%%%%nrfl%jrpw%Sith%up&'%9%9%%'%- U"%'#8nD#.7Xj%_-%%'5;%%%1%%%%%%%%%&%E%.%%3(%%%nr%fljr%pwSg%fxup%& U"'9%%9%'%#-%io7nDP,+L7&&.%%6*%%%/%%%%%%%%%%%%E%%%'A0%%%uflt%ifSg U"%nsup%&'9%%9%'%#-%W)%nDpI)E_,)7%%$S%%%0%%%%%%%%%%%%E%%%'j1%%%qj U"yy%jwxS%gnsu%p&'9%%9%'%%-%n&onDg'N&?i#&%%6%*%%/%%%%%%%%%%%%E%%% U"%F6%%%gzl%rfsS%gnsu%p&'9%%9%'%%-%i[DmD-(qnwr%&%%0%k%%/%%%%%%%%% U"%%%E%%(%\7%%%htq%twxS%gnsu%p*+%%%%%+%%+%z%&%%'%9%%%%% END SUB CLOSE:IF S=251AND 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