'=========================================================================== ' Subject: ANSI GRAPHICS EDITOR Date: 09-26-98 (17:29) ' 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&=9900:?STRING$(50,177); U"%up()%9%%%R-%p\7YJYU<8X=CI%%*l%%%1%%%%fs%xnji%nySg7fxfb),B#^kAh U"yKtN9kee*Wu-+AihI*.EGw0]o6nrMXmS03askQ[AigJivUssJf83NC*ay]]F4BC U"hMeA5xC..^?n2E#1dI:t>pCS))b)?G\gkrZJV9/f7JZwN72Nj1#Z/OW>g=tm/(S U"CCooR4lTlo6FRSOGhb?%[0G7sk]plcikx#MnUfsi/ U",69p%N[X:)<+<=rJl)FO3[B_qK<]Q#G8D6Jmj+lR*fK+R(7A#B]n[=d+;=>QbdaIfPkM[.G_QS U"q;TbqMCT\.mDfdtQR(qF%YO=a7M,B:c=YRP:L,G\t)8'd54$?3?Xj)]1wFvoYW# U"'7*Fn3AU=dg)[Un(W8]'c(w^SfG6Xdd,+a5fl3?pXEigPCmW->-#j9R=+e&/#7Kq0[ U"^R%nw0xk5buHNK](tkZ9Zb-N0v$[a8x3A_27=7A85>xs^-hl.[DR>g.r(EeZ0,: U"[]l'lc()RAVX;uh\Qvw54p;(EbCZ3pI\'+k2Q2\2h5X_1>eO>Ie[c#&%nm9lY*c U"0s]wevFP_r+:se6uB+inXZ>aRLAgg,e?qldr;Q>.7TgYGkh,/J(e/G->O.rL U"vZEw$5'0-m3d>\0mF.c=qQLv0h^ZYp^_k(QCCn?D+ U"VT9O;LF4DoXj%(PrY9EU;M5mZ*hh=9ZB\1f U"KO9t-+(N0F2_'PK&<=ek)FV/:dHNt/qho-_?4(5_EMU[^/H?lfJo4a\c6C)iYsa U"8^vRK2v6VLRHwI=i9^5RjNe9Q^?U*nd_rQb/cA?Z]83K0^-e_):,['(%+'cnBPQ U"K<,AX+q=4uX'Gq)qEgYQJ4/KlddGwge%G+X+jp#lrNUz_5/$vD4GJ-9Tg02ocoL U"1mdr%GkJPXaeD$'\uEfRW_alR5%ga+R?rx>X+hLd:%1xJ,5&Z^*_wH0Kd^aHTC$ U"N&agBkap(,Vlb(v-MM\x'vf]>I&/k0hwP^B$S1Cz>^lsiuYk<(cAP#w]MWAAgef U"KhfuyuY)HD.OgMwKNjdr71m.9PSO^CF(%J((Il_I06o$i)zUKoeN;qWh9q/+Id] U"AIgUAIqlR]Ce;_3D.NCiWu>lOl6#z]McjnZ)LOH5l25?H-0;dV8D(+r&\4Z14<) U")-;1_[4;2nJ/O,Mlqt\\5zrlVLAs=Ri/;zkd7;JgH*SOEdt[0eLn:um'nc#36rq U"OUS$hXdl=)4'i2E5Q+]+7B39?3Q]&e)UGkOl'+H2+;VTj&;S#8u7=,64U03Zd%n U"Hx;&J>Gz U"5t99w=%(2 U"%MeEVDH7s+l>bUt6Ydc$?K\v'4R[eC(][r&nX/-/T^XuN=,[Mzjh>7QD(hygYEd U":#&c^:):SaP.OFm==*9Mpp?km*n$B+c\60&/D)U\EiJ%WJM[*GB&4oh&HB&6xBbk:B:sDM3u0jWZdk(kUeFEo_i+b^X#oIjenkO6o)M/E&_SLuw=(&r=&MYhZq U"ZEwl_U%S,gHc>91R%gW%0*46?m3sB4>bJZ6=,qw2cp_y&*^wzvpX;C51Oi-3i67 U"%kYXjZ?r]_>jBQ8$fgF21,#1I;w%jQql*:XNpAHKpL,b:NC&qb=GSN:#QJ6F]G- U"+DYdYT_0z7YQO)5h*-':yFhE,M:=RYV;,,m28pp0r7S9JAPl#)Ju%2#SAJ1&4d-MC915 U"Ovk7>'C_/p1]W=]CYM_RzW1DyV5R_h9-e5m?-*._>eOKeO_AT0AxXQDiO* U"l:KN>+Ro:Z90M0?\y>\6O9EQz?JMR08O/G>e+QeKR+P)1?R U"+3P1?R=+P;(HC)h5=&)PZoo;y U"SlMEfySCYbf?hY=k+'AGr2NiO/g'.=26p_H(u5:KvH=a:L:<)1jt$#+p&;>=a56 U">2m-$R]b$#lB_UUh2RXm_^T[SM8RaNe6JA8:2Mw4itxFVYoYXGW6Px&^./owZ4) U"2#nKOp9'qSDTsCmt)qx$62l?AS&mec\SlQ2:a064Uqt]=tdcik?GCm_>:((EZs: U"-d\E=5j6FWr,FBHnl2pP'sw6Sz:oRp9s#P1Q'1QCei's%'uSXAkdt;++_-e,4_\ U"\e[H'\q*gQXp0.CEr6Cr1;CBxN2;=74Rw.Jw?1o40r6Jx_SE7-0PGo]]KMK#$]# U"/GckS9/Mk6xF]cOh0o\L-*5ETK;)i,ut#2spF?=v1R/BAV9<:u9>g/Mm\:']9q*<#uO\'rC%4KVGWE8Xyr^ U"n?ZD\9($b+=rjUGXhW$.x<4'[XW0-Gnq\POx]i#f4_4tS3h9K]C%[a_UHeWWS^VSN.FPNQft0/0kP,5jLr2?]2Q29j(3UVY5A\q=h\ U"/z9\C6^*-c24I8u4ibuRr0488Dw8+h1_>y2QoWKIE$.t;aU6x=<:/wX%u#iLI(Z U"u-+YOEg_eG&/3[BrED5i-4ZLQMqjEb:40:M>p8cT\.6YMEEc]HO/p0i^3QQ/YVp U"F52m:csu;)-7jEGya2:J8Tmm?W=\dbclGY[60y)t?g+I_'\*T&E'0$XR<;HR;0$ U"8j;GTl3NA']0#QkH+;GR;)yA9wh]2<>h0oZ#)P53)BF=.i7X9M?C0Y,Rt)%M]h7 U"s'R_(#]KW%'\$6BCH+FP$Y6dmQ%G7VP$[:PDM8rk;xBE.VdRNPj47URaU=uxDgo U"jdV=xZ.Qa/'Ty#ZnVZ4gJ%oB>GtQ2QZ+m=9JnZu=L U"9qx7M<=[UJh(,.7O[Z]RR#g0kI5Vg8O4,kMK7UKPw#K7443&&Tsx<-;*RwJARdq U"^cwIBw>0?q4\\'1..+1<:0iy[0bpYgN(zJ919JDD)6ivxqO+e2_nSD)GkXX7SC3G U"CCFHkqRq<#nh#SGmt#v_DUC>fkUlmCUM?#w][+g6Z,,:(]T3JN9ReB6Mu# U"-tF,rt$FfT\,f\V1G.$K<9'QGG51-B(L(n#8&D.mm'(PqbObxX.uDtCZ6'ZqKx# U"<[^PN?R*J6+H^0Pv2F0]1.DyQAuXhXpTGk$9i<&;rCnBTyiCs(:eH3dGX8.;Poh U"j\/e[o/3E-\>7>rBSkLXyM*aOqJzLo7#s+ U"O61gAn7J(NF.HvDIy\wW3d1Iy7OOv.RmL]G3mVY5^x&7_tj-,ly9$$xMC=xJ%aR U":r^xP%\/0MiY5t)x7_r=j,Ly19vxMmoxJ%#Y:rvDx%ASDT(Oi2htq>J(OibMtq% U"e,Y[Q:cFEwJ9EQNO,R*Un.jXby%YHnj_BayM#owvk)sqOnGd*nz00,DA(f&4I*a U"B)7uMjAaAB)7xCsmL_=mlkQ/Pii#ZZ?Ln:R_A=f-\YZenL_At_:dn>3i-edGx

a9L'L.JbNeleQ4$=+wKR9NTy#Qxn'=cfWxc\Wx\oWx]W'sw5jhf0nbiIPJa8,h5dA%B1=-e2MWY35O U"u5_V4[n>SCw3utrTQdFip&s)T6\e#ih;?CDigOW/t_VLVJ6$3J>mM265.rf68at U"D,TcC2&Ub+L'#65vK,>hB;)7i^FmY;fpyYHA#2dyX7ilun=7q\,j7UVLQRmj>a- U"Y7p[$9D7/ZoN2=wKqXVBEb)AdH$VaAR(uol$q$Qh&;hf[Ylv%Wa#yCLOE)FB:O8 U".[rGsei2>[Hc7]DJzO:h[uB\);U0m6g3K:(S/,P>-,8a2a?5#:A_F2QawX3HFzj U"tyTQaEq4QF>=+jk&[08qMOlf[.q]*^CCfxIMj-h7R*leEjLlii+Z+H$VYFJ[sZI U"lr37n^L+wJlX$#Q6rmiiAu9V_Xk7:$K8Nn/O00A[,x7>[XVT8Nru/ms&D,uo'** U"oG4E8n\GK]?g+O77u_lc/nI?Y,DzKuGDf%b#PGwBh3UpV[T2oj#cYXc(UclIy=. U"m%V5rep959pS.RJ59Ss'=u-D<(a2e4sWI# U"/>(vEVNFw)NX*Vz?]O$K[0sjA1 U"u4[[_:WHB=\N/UNXI$_v?;\OOeCdQd?a^(#5:Uj%8:B3#&PH'q+*oDAYi5AGOeC U"1&m1jO::8]uL?$*81%1gB/?4=XJnTWtuTB+^)Bqc-6A?jJIOcV()+x+'&6QkAIR U"+%Ds8eL0qiB#SDbt0+pSYn:M?T?+i.$CpHeZ^-PmznjCdLQ2jjo+I:+c&#_(/%y U"xb1NJ%M.'x3uGMfF0Orv[2LDP2i8j9Yr2mPTu./D;MrZ$c3Z8b.VnKYL3I&h)fiWuhU7Bw=k$N5ze.68Cr):=Y U";SJ^R'F=TUvhb+7ymR7]vsh23K&Lq#jUBGrG=gh*&V4&>a:a:8aPF.UC=Ht&(vQ U"brlE5w9Y=^&*8U9Qo.\B6p/NLpN&?aZe7r]n(-u=9Ww#RW%L*a410o+hepVshG7%]m0:95/Cbn_Pk_0n U"O[JZtuiE;B/354_azIii&lnOGm;p&+b*8N1VqC1_ U"pW_Q,G313AU#DCV&DK>;77fuT.mVXJKTkap_YZI1L;^\4Ua)[*D>?W?<4R,qkQa U"+5dRgCe0QjqLj57wGcNnO;$T\Lo&C8;(%m^z\Vt:sq\8-lOopu?J(jMY_.$aMv[ U"a8D<46\n\pPdifAGSj'UWxC)2Y+cXJ+g=6j.2aGpHVUG;1AZo:30ku;+RO(nOhG U"80,w'&mP',<2Rk7erJQDYU'VWrh_t2>l9jLAKSvucTHKC/I/f),>T#pg?tM*xb-$VGGinXPGSk3(:_ U"8m]vJ%qH7Yz* U"W#i%uM_N=9w)MNT'\TvU7ki'H1%iO\>Ot\NcH:BzN U"'&7sr%ubu$21ZOM0%wUDYf/-W95U6s(%5felTWNnCxpOQ U"TnhuT-R,jhQR9RD,_lF(8bw7\oCRHvffv2UM':5JaV,(t9=i3cjxlc)F;s$*^vo U"r4Z*e/D6?:ixwohX$.>'_?^rEo=c?KNV.[T21eIB]EjBv>wp=Pg?[5cCj4&A+pa U"3zLmw\a=]?0)J*02'lqxBX%xzry%H/ajfZK9'bWq+MR*4Ny>61Di?qDaUPLsmH U"i3,PtNZp^Q:&uoJ2l>R,Z:Lt:\N+T:;Sr$%6w&Oer6'#(PTjyd2E431S^Jy3l*C0qqO&$l:;Rf+NakC(YN1a4*7b,.34qHKag&:N1G_-'8R9(,LA(grhr>iq U"JIjG&G(N+0e$W%GzT1Z?9#IJkEXaSMTeFrqt)1BZmZKE(.eZhzJy35f U"qHHO$MMx0x^OlQdm;P.Q>UarKV^ZfJ9Gf89C]esfC,cCWh^ZEnjyH,]6qkmDk1V U"PPo9Q6B&9z]]NKjK<7#>#Mz<%5)uu)PGbXMp>-svQ7bh^r'XIe:ar3Nuy\e*PccfkUIiH8zS U"-GIxy(Z6Ylz0I:8T5?&:m,EwjhU%&D3^_QKkQw(1qa/[mtGn%X^=s'gTwgD* U"--tpGvoQI**3GR-4ILdmamtsbxIes8M[]W4)OdhA?g,16#bQULFLfg'1]D,D.Z/'*+HO3kY#nU[\cddY'>b[$U\m)XLc7*st U".+N-IfjBqVVQ'OK7,)$d2KFFBWG_ijQdY7a-[Qtc.6e3uc-OfJRGjI+h1zO0/e' U"I:>X=J)\>bbm.I;*Fu5.MJJr7Xt4RMbBZE?+k,6_pf.(cum/esGZoeO)D*oht4zk4cN1] U"b/Qc>zJ1YOsxsHI(x&#FQY]_Be;tJg=p8?Kp&)=E%4/i(z0')2N%t5?95\Y-fBc U"WkF2KdQy4$H?Z^?6crhakH%%(V.Y%'21%C0Zou+U U"JQ_C-:CjW5UYgRQ>&7o\weCT5,evKr[GwiwffrSr,#L/nVYc6VCgc8z_(Q,_o:( U"vsNSsAP8^Q*%*dD>D7Iw U"tR7mx1')8Lcu(/E6u,1&'nkbp'p0up%()9%%%%-%14\YHHOPiH'E%%%%\l%%%.% U"%%%ijrt%VSfx=jfPp(3QU9XeJ2XMJG*opEnn(*EwX80.k)M,mRnU/SaJp)X=?H9 U"KJGL#iii;2fx*G63r*?gD1X+imU'(FQ6FI8bFgYi6c-L;oECN/1mhYLX$0Xo+[c U"f<*ESwVT]o*TPvxaPd/YuL/zm[n$[cSSR?PvE(t[,p_b.)BE+G6b'D,%%% U"%%%%'9TYhLS;GD U"rj=O8<'eOw9QJQem_4HyFQD)F'1r4'BW7F5Bj3(zg\z+wwooNp*8UGuH-wm\Ecq U"Uz1VzOLUWrI'f8It1oT6[OyuoDF&6esbs2Jb:Qf/RydY^W*Ft8Q8Cue^ws>LxLk U"I4p3l3%B?8t5;%T)h'OgJ(6e,zL U"n'txe&e^'yh/zo8CIm-N=,qT?;1*l?B-Wl=(.=;bc9BW2A&Q#QiFrg/CFXu,7lH7\vh&wr7g[q^Wq>L3:p/_,O-a)I^/4kHwUXc\**Qp U"+j-Zs1c)YlmzaNqTe3CC39Lwo7mDqJf*0=>8%%%9CfYgadZ7;q%nfEY?YnKi9<+ U"^$7i3pGO2ldZ'^.n+g9Q.B2VzQkmx'8>BLQWMVQCwVSf2'AuYZuF#S&bJ7U:qpo U"?wFFJMH$YlxD)fhukAo[s]n2g2BivX:2v+O1GgNdcEZoyQJKLD U")CzYt9ep7hI1G^z*u6ZZM]DFv(-Kz#'Skpgv+Q_Ql)p6suYHl2q'cKD*:aEvgBpFo'0R#pV+W>Q+H8'Gn6Ee U"hscklj1n]r99,4U1HAIke=oMie=vI#(yy7SqLK/dtq#uBgnFT+6j U"Pc^,SrIDhRF$YS;2fnsy^*TkZPUvM&*f+6Cx2=Q_wbzDQn2g-r?jpMz&)Kjon#/ U"'rQk&,nk^Mn;o2E;g74GhLb^v:-5v&%up&'%9%9%%%%-%*p\YJTYU8X'=C%%)*l U"%%%1%%%%%%%%%&%E%%%%%%%%%fs%xnji%nySg%fxup%&'9%%9%%%#-%vT\aHj)5 U"ClL&.%%Xd%%%.%%%%%%%%%&%%E%%%'gC%%%ijrt%XSfx%jup&%'9%9%%%%-I%4\ U"Y=HOPi,HE%%%%\l%%%.%%%%%%%%%&%E#%%%a%E%%i%jrtV%Sfxj%up&'%9%9%%% U"%-%1uhYHm7D)a%4&%%&Jc%%%.%%%%%%%%%&%E%.%%TF%%%ij%rtWS%fxju%p&'9 U"%%9%%%%-%b\DXI:T$Vtm%'%%.%f%%.%%%%%%%%%&%%E%%+%4G%%%ijr%tYSf%xj U"up%*+%%%%%*%%*%;&.%%OJ%%%%% END SUB CLOSE:IF S=196AND 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