'=========================================================================== ' Subject: ASIC PICTURE MAKER & DISPLAYER Date: 07-22-97 (12:31) ' Author: Kenneth Green Code: ASIC ' Origin: green2@onramp113.org Packet: ASIC.ABC '=========================================================================== ' Load/run under QBasic to extract ASIDRAW.ZIP DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ASIDRAW.ZIP",4^6:Z&=2889:?STRING$(50,177); U"%up()%9%%%%-%;lTpG_K3U9>*7%%r2%%%1%%%%fx%niwf&&WSfRxn.&;,BS]U9L U"p[lx<,(&6o[SC03_8'R_XQ2_c8'hc_hqHJQG789I(Ij/W.85&kFnip0vDshINv+ U"c$oGbzb(E#EK6\.n1YhAIuUa7Y;Z67g;[.g=mD?tgpQm/N_;]G;*;XlC[)t$_-%G2;W9uk)DH+hgORCvACGr.VyA[r1TO#; U"u2F0Yles\k'TRPxD=n'Pa?W U"W'Z;H>]wa]gJ_jlXB+<4w.nxVW0*rk5*4[5#_ua1Z?D&0e(:K0>\d$G6-5Rb.>h U"Mt=h:bSJ0Pk4p-LAykCj)bh=jgg>0XuMC+g](C[-$]$uC0N$sQ9#w#2qYUpH'_= U"-OwD,U\?H$Q'PC&X\i^OLBgX*N_;l^_2eG+993t2F6):Kp4LFC4:eWEah$4T&qq U"DpVE?nInz<7L8FY;1.=^uY4?OYfSpm)yl/_yIb71+^WrJZgezaI.,^JZ4fEC0Lg U"y?U5P8[zr)$^agMzF$)9FR=yJ_m#$-.$n7mX%VB;7<__Ud'agu:CTQ'O?kiaa$[85b6/fGva-5': U"CVDd875aJ0-qS:%0vZ15qgr7xmudg,b6mv5?rM\uB+LYVI^-nZDdpvQgV.3SB;W U"mm\kk0AgdtrcKJqPkcrH1/RmH[0XB657Vk0/j+d9S.0Xl1?Os&A=;^VNT7Ft9%, U"?7_W2t2MRlM$ZaeX0%2_6/Ab;f1RXQs$_lS-c8*Nkg:uN41c4.n<_iaMd6\>%9r U"?_?<$ZlhEN.d%K:Py5c*NRJs_P>F(xAzDZ'ps,[yimY('fw3qlY)5:.%,x$>=t= U"qSjtwC=qu-dVe(t?2UL]7smtRob)8HLTyK(8$UL>pXv_^l]pJrQ2BydD8HDM[JN U"b.%MO()oxZ9BsD5,&uEu&n$F.UPK/ZN?Hv20fRus$1g^lR,0IXX_rT)2wuqLCfk U"+dh51TTFM:ad;%\TnF5*hpURm)X#D-#b?_kPpKZ2\Z.a2I;n#2'7xwboXA'ssDCZfkH1:?5fbnAXM]/QH7ey=HVxu(_j,4VS:4,d2w;*wH?E6%,*et8c;sF8[b(WEv?pOnv$HDuArZgr_y?x7O>jZgc;eCchV^?p22iW7oWU9R/wD\ZMH=NpfwQWO U"tK3eN&mExNNr:Q3KM4IiR?kbYux_p\nY?\GHRQ_t9muSNM)=)X:7iu;'Scma$-m U"o\o#dZQ2v&)\O>jU[5T60IN)g=2]mf:R47k69j.3skKPZ;\$f3RA]:oc=S U"#j/I4ufwtGU1xv?rT*fD#o$D>]Wacg[DosCQ-iwymU_bZJFt^Fu8&h8-Wv.PqG4 U"Vu9m?O+u7RJ:tfBIDO4i2Hp2^G/asmcH9Ydwc[pb%uu%-E,R_Rx_FW,X9RvP=++.8mcFAAo0t(\lL30d6RhG%S$p2%N2? U"rXpP7.dSoi>P;mHUo_^INn>&%Eqrbo0WGb0*PnPu7xKFfr+)R0s.,a%JFuU7$xY U"4)&0w;)RU2e)MBe1IFqD7Ygai#E;Lvag9OER%&d7bdQWH#kT^>MgdRD13''A8V^ U"lQlHgo:,$-WVgWC'vE%4Jw.2ylUu&%DAq?[XA[UniZVR?Ze\5,$Y64g[)DX-b%lAH4l U"3+AGQg>ykwdR%NZw9YUx59dhjZH7GB1Cx):l=_XzrmaOE8\RCu(&4S\:H]=o%=A U";bwL1lmgP5BF8ukSS;.$3Afkpf8Jt)Z##$\tw/&,LH%46HTI3x6GMxE[f>DQT6# U"Q7%1R8f,B.aXHv>$BR&d9Q7uS_F9BQ81.]EHRWGQ4k%39WnJS$0-mlrHd-Z,Dtm U"PDo]ZA,eX.r&zxG;DyWifb1%)HbfHr#3H25]B U"foq:q,Oak;E]jIin:>Ybu7Vb4*$rT5dr+HZ$+EQh'h50sZaO0IlEHI[%IaDu%rm U"R2IS&Wt1piJa^S*Vtlf^EraI)j*s.8A(HrP.M7SAIJ^pu:F3#Q7us]R.,yBO[iO=JZ$/C* U"^*Rxmik,LW0$ITUU_-,rLjy?Z;bfOE5>025NW&:()2i9DJ<5yCSrmH?'qvt96;L U"KL0_tpLDoTXN,rDei)c#(DaQdMZ)]\I][ma>gY&>up&%'9%9%%%%-[%;lpjG_KU U")9>*%+%r2%%%1%%%%%%%%%&%E%%%%%%%%%f%xniw(f&WS%fxnu%p&'9%%9%%#%- U"%r-*oG];ETD%[*%%V%/%%/%%%%%%%%%&%%E%%(%h*%%%ljy.un'S(y'yu%p*+%% U"%%%'#%'%A[%%%:%/%%%%% END SUB CLOSE:IF S=174AND 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