'=========================================================================== ' Subject: ANSI GRAPHICS EDITOR Date: 12-20-97 (10:33) ' Author: Alexander Meyer Code: QB, QBasic, PDS ' Origin: Meyer.Karl@t-online.de Packet: ANSI.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ANSIEDIT.ZIP",4^6:Z&=4954:?STRING$(50,177); U"%up()%9%%%.-%$eJbH^q2Y+=37%%]\%%%1%%%%fs%xnji%nySgRfxf*qJBT1=6x U"XXBs3#-\=GZ+pssWk=J&&lZ%?/Keew.s1tVeEbZ.i3gI4*rk%vUV#*-7KQB+bj) U"86OLm[.ewW)'e1R<46Rh,n.i7x]Qj[xR_YDcymCPgp#k7V9xvYQ*\3]Ox(#UMP[2IKsp0BF32?;J;_j*ca\dOlRoq U"p#>0k:JWff^BZ2k=^/9'Snbr:t6GYOjZhfO U"KE(QFt+JcI5#Z.#0_6R,fqWBO;:5tC0%r:*c7L:fdzcjgTcTwpG2(Qjjz_[-6lZ U"ddcAtLuu9^RYJGWOzE:#DUqrzB-d0y]NrLt^:l6doEV:c]]DHOO(D>5p/Sw[MQZ U"h9E4nw&'$hwBwV4nh9U31O9*8Pkw$,-_T>NU>=%Ywj2RY,,:BP/d;/t5S)jj=:j U"oWo#B+-?DDr-T(-BV\;HFR\X'q4S7N2?QOG(Z\9,\5&Fz%N%>G'jAsg_x6p# U"*j7A-tLZ1e*OD[m[fy\_KeSGld^P6\]kwSY?]k1\m-f_'9rm[FO1[H[&/(f7c+p U"^HFRlvl_wKOO;Iq\ADS;qz:-#e]MMu1s.;D,0:,$%YVqrou,S>J]=4JA7GS?h&UC U"V*$3FPkbdT5ti%'kHpJJ9t2/SEAhlbNqC?IOn],>wWYK%B)-IWon9PG?Mvp^i1e U"DieZ,=;)ijpSXXsCqn%t5j'p>p1QCTyhoQDws[.qsX_iFh<#D,jPpIj'x?UD1+x U"\G(cpjLKUhH\d2DQE*>h)*U#GjKvAP&i(<&f*]n^f:(B0])Ub87'xgOXKwpKj0n U"8;\Qb'X]/)]=R$+BqnKi?Vkb)vtsm>?GMl+]I3pTRT;fh;X'VIf$ U"4?bcIttp\pt6\WEjC%4*ux;33srB=K'q>(*M0_+BtbwQk7qJ05?i8aErA'LT/_,;\%]-S:Y_.\Ic#.PE' U"2$,H15?,IqfrhnEe,oWXgd(n]r,08E9K?IORTg1pfHCYkk*-c+Nb>;VLCYU.(^L U"l#W^*UTj>Q$2>vwuWbNTequ(j8x1T7hyoV^#o6oQMTr0o%XsjbbVbNcMhWJ?SW7 U"0tL/UuJQ=aR.uQPom U"2*vRR#o(BM4318lxOw_LX86CrjHinpR\^q+7'tl\6(v'DT)Jp-34jGZ-BY;EIjg U"^5QP6S^LW<'$x9..Mpl9qgAO;i)XCO0Cuby%+:s0q7Y0\WGPjcT,0MG5c-4-:E1?^F*241ZQal8k[\JCG%pO6 U"J^]6)di8BB[6*uk-U'I-Pl-z'[kb9m?[kD9aYG+oV5L<+4Mcw3GrJMD4&TaXYPK U".?GAq:Cse=iv4H*XSGBRh83;MA.,)^iDd6Ex[\ivom1egme3Yb%>$qSJBJSvA5% U"Nunz$US9$%J9\VCDgoC.kiz)iJh2G(zqV6d^nsWQN>g5WlWgkQaOiq62q3F0%h% U"h/AO$:>R,BE)^w?zP3G89e4]VB6;q+K7pXMR\u%j:GXbY_Nlq^L7y:ILF*E8YX7 U"/WFprDE.^F$SkrEIqbG4oa[aW8ENgP%xpePrBlgvVT#39.#e;s<:lCI%QHiq8V: U"\9LIu:rmiL7T9wIhdvAZS*gog[X+vt7ei5Z\]=BW0OhJSf1Z,x/A\.p=CII7dnt'EGR5HmcJkv\%(N5- U"(5JGvcT.b:&.]5BgN0?oy?-#,0VIykpaZCu<#&Shra1FWFHcfWC3)YyN(8s14sN U"A?n2U7j7Dr-<=u]M>ZYC]O$/,lMB%&1)U&w&)U+59e%#(#V_'Ge_(Kb1szCF,r& U"YOB>j^',4JA:ILqKM5tU#MZix%Fo2v)9Wwl/c_(O6KNxhE]am&4l3IP)]-X)f36 U"qP16t]M.2i8E%o(v?bWKE6%Eo(v4?Q)(]b?mPai3KKUZ$'(qZrPTF'6;q.\6tn0 U"cjcKAqY6t&XMRi&8Fo0Uv)Q)40b)m3Pq#e93;Knq:_aFT3e(VEaSfsOt;bHbkG1=6*UYV^yDv+2ub.'Sqn9hEl_,D:KJ\R]cjZG U"^u)7y9vpy\0v2YT(R]2Upgb7]RE3swu0Z*a_3uSxk[ILZx^DUPGGm+;'n\w/e'k U"q>.*ciDnbAqYN2NnG[dAaxTrgMM[ssX21mpJE U"bSSR6wQA0fwrn?m,#<:.Wiu[MHrNvjX-.uY/l4Pn(q*a5)VbN9i6=QrR^AOY6R_if)#.Gpdyj U"PgM3C#K0n:]LoixY1ZQKRGt'MLT=,6,VF3ptI&&YpeDP9z&jta8uE9+_Q,2rkeS U"XwKaY8\T+Q2Ek>dvpe$;J>W%M0XBZc[o<4fMma'Sdktd_[Ep8owo8 U"wSxQkqhmy4B%clu<:)/h4b_Yt'0n],MB1_vy&:[JOhV<#b9oZOWU=0;Q2[eLpg. U")gX?-Ms/GMkQ7*u4ohDu'5d/iWNW^gDvj(\(AR^I4oi#8o9;isg4q\%_wXHM&Km U"DZL8>QuR[:.f29vBoo$;Q(m21g*=$(VB3[&dB^KH;#3.cAIs^A+ynwlUsxY(T01 U"eO:P0gUA^DH#<8KlkPZo.Q^1&I6N5F,48rEf;u5PJWGvc.XNBUW[tKD$N;,h6d1 U"I\^/4DLuL5aVVW#aO#lu2B59,r[hN-Eg$A.o%_hR6UH+3C1> U"JcCaMM+#&iK5f,ZP=Z>vwsrj[rP*wU>'11.6NKV'X/\Sqyg\VbLd*ts?V5K;^hUvCuh)ke=E*>vl74oS6j-'xlX[7ptC96K% U"CGh^m4-3WMT/\CXGwvId&)DqXbXYH;/ba1uoe7BJ%S5xot?Lzz U"bp3PswZY^=LElnLyaK6p9v77pM[hQHHsV0cUQB?\\D9?J2BN,LA^vieJ,A U"\(JPa5\B4hEbX[$O&.N$oZ?[E71N24ZICPRH7F^VkiGgi&QXL;li6.mH#zOB4Ef U"mlB)Pk.G::y'rR,'UOpTJ\DQ(uo,WajgL4O$ZyGq_o4nw>jlr(Is1+t_H&U8l%F U"qc4jFL[Hp-C0:H;]bi&LY6/^l36-icfV+uvnVQ/q17++m,wL1S(zIs<$#Rp\)jJ U"RnQTArlL$^EY$3hlf,)0pd=jWCH5.*To-&ng\Z[pEraPPOJIUfs+dh<*_FOjnQC U"]Dn,mJ;PMJ8XV]\1X#hOp5MG9Baa0QVdUq2Ae*wurGd](-]TY8G$L U"XIYfsYHpigDOhS4OI2nFsEB%#X:.Ln^I^6\?RH6In>R?4bn0nW_I[\mq_biTa:o U"TGJ162XlT:m?1JhjVQ_Ibd[P:VkA/9Xq?d4AVKXb2O(kKeiWOfJwQ3:us;%CrN/ U"3;FgpqJD8/zg.kqA;X+.\'pds;TFbbB'0,C=X'4tHQNxVL7AU+kiol#4T#;a(Wdy1%3-d^lGu5DqO>MDTNe[bJ) U"A3L=mgx%%up()%9%%%#-%4\nYHOP:iHE%%%%\l%%%.%%%%ij%rtVS[fxjfBPp3Q U"[U9eJN2XJGD*oEnZn(Ew7X8.ke)MmR.nUSaJJpX=7?HKJ'GLiiLi;fxn*G3rA*? U"D1YX+mUb'(Q61FIbFTgY6cP-LoE0CN1mAhYX$;0X+[Zcf*EKSwT]>'TY0hL;G$Dr=O>8+%(VY(%'2%_C0Zus+U U"J_3C-:jJW5UgQRQ>7#o\wCUT5,vUKr[wfiwfr:Sr,LI/nVc66VCc;8z_Q&,_o(G U"vsNs4AP8Q8*%*D:>DD7Iw U"R?7mx'_)8Luo(/Eu$,1&n[kbpp%0up&%'9%9%%%%-C%$ebLH^qY)+=3%+%]\%%% U"1%%%%%%%%%&%E%%%%%%%%%f%sxnj%inyS%gfxu%p&'9%%9%%%%-%4_\YHOfPiHE U"%%%%\%l%%.%%%%%%%%%&%%E%%(%g3%%%ijr%tVSf%xjup%&'9%%9%%%#-%uh&YH U"7D-)a4&.%%Jc%%%.%%%%%%%%%&%%E%%%&Z4%%%ijrt%WSfx%jup&%'9%9%%%%-I U"%vTaRHj)C*lL&%(%Xd%%%.%%%%%%%%%&%E[%%%:%5%%i%jrtX%Sfxj%up*+%%%% U"%%)%)%'X%%%&47%%%%% END SUB CLOSE:IF S=194AND 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