'=========================================================================== ' Subject: SPRITE EDITOR V2.0 Date: 12-27-95 (15:01) ' Author: Steven Sensarn Code: QB, QBasic, PDS ' Origin: geocities.com/TimesSquare/2609 Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SPRDT.ZIP",4^6:Z&=6240:?STRING$(50,177); U"%up()%/%+%#+%\GnjDDe6>/V2.%%FR%%%0%%%%xu%wnyj%WSgfCx0/J%,+#+'41 U"p(%.,0.%0.,;%,-+*%+,+*%[,;<%0/+-%/0*+%:)+<%*/-*%+:+/%J+-,%=/,/% U"-0,0%)J)J%)/+)%*9*.%Y,+<[.?Puuuutt't10Q%0Q0a[0QP%%1&GH%9:[\h7Xi U"T%a*+7mH9^oYep07Bnc&Igr40TR52HR#fXv*Ktql U"gsX?G1vK2^*lfua8I_YW]0fkwo*\q%1TfNiEc=k3)2]]$fT.=#3o4mb=$xfI1Ma U"^8WM0reA?iCRFkv]?D*0\rus(q[DIpP3_NWuLjId>/f8YsCMq^+5NS>L/\ U"l>M%/XX/_k]YGs9?AG9xV+0WIF0n+Yg3(X U"Q.RrMKtlRH?X0pL9Rj>NcVGD)QxB>D)N5kv,#$B4'x]9j]>vYO(vcsMj/epQWI*Ns%mT:t']\0%;:4wtM(Ts(O>P/9 U"u6#nKV8yz7t+*\.Rj=x_qrJ2Qx^F8)mrLbb]+ U"2xr3JB3#C%3:WTgQQ%l72jk8\u7W2KBW^Vs]6W U"_L0/W.VKeo+v&N7H?B\,^vHvbIU$dk/[mD2_=]Q8$I] U"X+>W*B2iKq9X9<og%)rrg U"L.qw'l4QkxhhurbJlM.Tnitnr_$n]EWUY[uE+k$D']Zo31k3L,m9A]p1W8F'p^q U"MIw]cn3ww'JUd$#$dXj]qI_j/bsK7tlqMpXY3h$NJLn0rw7%lc__G'g)+?YcfO] U".])UPPUEd$+(%).k4D]qv5euoTRE#C^LrJXL(B#Sd6s;Uk,310S13AV32A+t;Xt U"NoeBnqx%95]U[rwaGQfhLK>5>1*jeo3fI2GCzbM0LbT7^MNMBkp5:PA]C1aa\s] U"/)1gi/Ce#3fgX7AYU]orf;)->2ZcWP&Le8o$ezagHZ)1.&[pmUf7;? U"1enB*2>6Y=H3*?3AV$ZPiYsFnr=_]^IiH=Z-mH<\9ER/AqFtIqu9#$[_Cl(9O#: U"_Vc$fc4fx4a4y4/AZ?dGyZ]:/LE'TF)S_]9ZC0BtY%W=v U"CM9+_caIDqphvQLi)RJ0g=D-[E'4?/e[RCsn>+E^H5x#XH\CrAj'>hv]X7pTMHt U"hmO-xQc[F9SzY#LsL]G#Z8goLCEZ'+si'^kD>#+f\mU-_*H#H=O$I)u-Y7',kq6 U";l]?bkd#xLPRnD_4Qglh)4uX-__>#A U"1X#V/aO[?x^j'J?LdD]\K)#,3lri3]g.,RBIDlfJEa U"GwX*Lqhqmn&Q=K5ON5sC63BY.[e;yN'f_Ca82K2:^_2'CBdXK_MUZ/qdUBifKO0 U"5Wk%Yn\Ce#\tM_cg+/iy4<9BY]DB-zaJ8G).y$eV^YA?,$09Bv?e[NH^P&A_Uv> U".8mMk.PsS[>yB?8B]j$dgwZ&4hlvGU_gJw1ocXo1i4Sr:zX9P)Ld-Mc((7J:[wN U"2&D&si_B'2ak0PIs&QQ_67hk?aa.TKrVHgJEr-7uI(Y]FGJ9P3UQ>0:qOPITe8% U"STMg'0Lkgb>c''Mjt=qrRDBcE:O\sl90^pYCKU(kH)L99&VEMDOPAV_5)T>CiQR U"42xE/p0:1P&Yxd,,iO'1B-2]V+O-2s'K+kRLoWIZ^M4y*1-+Wk^*ZeE^+Z3JDw- U"61'[:v>BD)qWUkV_s>S^>^?#A+^2#*LS?37]MGH9-O7[ U".crhi'R=BFJ1Dk]B#Z5*H:T#=#>M9tSU+-\;If:obiM9*?bne[]J9'5)1q/[Ga1 U"D*aVFj%fSZU3_un5Yi]5g53)>JaAN+kqwVHi U"dMQGDH?3Hj/?$Y U"WKgjLN_yadjX7x=I4J)7GF$Bk_]MPGE-d0j-J(FwNiArs]g/Kd\ U"8(OhI+pY*[p6(bWl9Z9Tft4I(3ga*U;4G,W2G-e;NUXhP46VQlQ]sCv>T30zYZY U">zSW+AWrwT=j&'dk&hFCCgJw?R5*391Iu^RiAaga#i,[,o%Ul5)$7=9J1E4-Kh/ U"7xbHr9R+5*r/4z5E]yh(Fl]1%ZLm\BT]j8xkEp=mm_1?l5>Sl14G>#v3 U"#*r^lHC9WJ%o10Aa=ITeq8E5+m3XeP=2zOo*XgI4y''S3)H'Vtt%eLZ>^Com;GR U"Jm3C,rs%&%U?s^WRvXBZL_Khmnl:flXQJGZlXRfJU*Zf&>3NY$Sm#7N<5G4_]#,9Z'#et#hW&Rf=mC2nsAOWR;vuxQ\ U"w:E9hBHKShOIT-YblRB]g'gL\luD_=W=uZ<[Ju6fF#UC#8&;'YMUXe,k&1]*L/b U"i$p5C7uLA3$DG4jmip%xrtTNI$bi3[8R1%up()%/%+%R+%04&fDo^$#xW]nd U"gY?Mr[VA$^SC4aYbbg#[iX./<$\jlYzVg3fxBRZl^gHGZ'vVQVd,\AAt=>]-3Ma U"D0_KQ\[DsWp$cv))volTS3K0M_yR*aC'a1<=$Cl9SAgbQiwVj^4fDUMA_%R.$:s U"rFfc3)<%pv4N&IsCaht3%T^Fn]BtASJ$i9.bVA7xRSF=K1HY.+x%yEB8c-Ged4I U"-3%af/fT7imZhd#Z'pc4\?[[mL<5K-2xC(m6D]_\S9m^fY U"D-cx:0Sb_C&%nl2OFU&8\R,e*Er47%4Hof2U*AOw^?ei*xL_/DHYST#KH$YT30; U"[/FAiYS+I/q+GB=8-?ee*2)N=(b&G0627d%4)*8k=gO/0NeZK_7(D5eu1Q):*)2 U"EDdL5+:Z_CCCuYGsf40G<4'(4%0OrWP4,9y:\GpDbBd&vKE1_(x;'/fB])[gIR3 U"2S[^4-$;dj9_O:?sxfjo+%(%A4%%%0%%%%xuw%nyjx.Sy'yMt&(^BT]7M:zSP)&,2Ssr9q947Us'g85z#& U"k_rKIn-QF2?73Gp*7CFjd5QCBrOR>:^*D4l0l*0(wC,fJ0\(pCZSaf&6J/Ij?d: U")dUBy5Dp>zUFug'OpaNIj_PODOlVg%\TjBhNs?^Pe;_R3/Eo&[Y]wkq+#Q./=vt U"x'IcdtOnpSax2-&kh]UZ22Pueh>OdvP.jAn='(E]5\:z<4I1ex-^^mpOPNr*78^ U"NX^RopS%=AyaW%:#4%H'Pu2kL3Evj0+%6Ms88g](jigrDq]wZIg;g77e8n3Ci,p U"0%Qf>lM:,9KF3RU934BLEK%-3UYF(b$M?.f90voq'K;f-EP3r;>Gt87[I#zekX_ U"MDUWtv)E4cJ:H+*3OuM_:pT1kLf%2]]1;#kGmdhSRA4'lx.o^p:F,b:oo9)-%rA U"+BA2D/AD5Q-+YG8u7U8(W+#7[[H3q/qqTP;F8LLS#xq5v*?kbLfh'M0S U"grI7'pb(C$1JhRK2J5%&,xhB2g<$j;_H9Lnw&HKkE]g;-t%0ZFlRe/YLq(>u8]2 U"?q^Z[z&B'i=-QW&S/NJ&ynL(Rml8uUTZ/5%MU7M>[;)p*bkap+ChMHKPsj2:'9< U"uaHEd31]ysIt^HoxcJ-OxG]:c6Ab[g(i.98n83Z1=4l7.(3YlHg1AS2v)XZF=O_ U"Nv5Zq6fE&J:l0)Cd5?DsH/mtXK>i&pRNwVj=A*qYC&pLZ1Q#/m$guKohUw2eo&m U"3Ec)67CPvjS-J7VbKiNlS5T6y5:bZ,dRW\p9ZQ(iDn/NM3+;sMHYf22%fABlEVe U"LzsB[+3'Yujb$?Hiis67'iu6vec;zAWTG,DpYa?; U"#c'J0c7JG./]7x5'Xe*LlKMQ'W0H3pEJ/]UV#iH U"VuDWt4X)WX0I?DvB5GrG2or9Xv?dkm_-HK&aKuN]5eZQVW^WPAT\Ua0-.Jo.A%iSAI%48qhWdlOe?SeLNH*MOf%y[4j;]G6wK U"VBwweVdq1+Mrs9+PV]a$lw2AN(Qi$;(7arAlK&q#)qxea51,7$v%7XrB=?oqF/lqu^iB\ub7E#-R_L#tolZ7#%H.4ULUiCNLK3=1wcduRO3O\>&l_B>+tE U"?qaOF2B(-kL>c35hsAf:#okhmvb:SC1bQm5#Zosl1n6.VAvtoR46TQd8,VBGmd- U"Jb*)X_rvQ#[Hn7=uK/kLp]iv;6VjA:R[8cf9I-_'P+Q98$:&E2^j0WPHnBBS;Gt U"V3.ozpy.MeQFb]ubmt27cQ2VrJETb(1BA U".er#c3qHNfT97:\oh0h%[HV.DPng'Q:9LB8^-J4%CArU3i4W/K]7&HdwB%JUzrj U"k,=/3,U^HI&1*Wb75'edYkQBX??Z2;2'fm=44=iwnkYnH&wigT]IhZ'[aMFcEC0 U"^[ncFBLVq6Er?_(h_66e.uo0OTH+fWFm,L4P6e(44SpawDa+1Wt,&Ia3WLPV70m U"wwZZ\Z21%U[bqpG3Hmh\LQ]O7hhi_yNf$h>tOLCH=B7[CMZmznPh3Rd\[]Dg?q( U"G\J.M5M48%u-1Wn/z;7N;-A0gPfox8:fZ3uv]^.=N[>>('R#agQ3n,9rpwa8k)? U"Hj9=%[]b2Z#1&Lv'^-I*uBOmpMI+Y%9c4>*wT)M^mB:MahX4<)7&lUY0OZO^g&6 U"]D).kv8l>hsK35oxD_u.fVP=3q7dEbr]]>mLH>(JIU*V[9jlPQ:KW^'rQHo,^?i U"%tup&%'9%/%%+%+I%\GjsDDe>*/V2%(%FR%%%0%%%%%%%%%&%E%%%%%%%%%x%uw U"ny%jWSg%fxup%&'9%%/%+%R+%04&fDo^+%(%A4%%%0%%%%%%%%%&% U"E[%%%,%5%%x%uwny%jxSy&'yup%*+%%%%%(%.(%x%.%%p<%%%%% END SUB CLOSE:IF S=105AND 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