'===========================================================================
' 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;<B%vNb&V4w\[ReOqZj-p,T3C,Fa:J_j
U"('55*F^I+&X];f7Y+,,y$ROp(.2;:n:3dp<j,X-R>[.g=mD?tgpQm/N<V*x9c0Y
U"%[Ch62'Gl?dvN#9Ckn\vP=F.LUhbaShl:tC^QOeAZj(eZT?wHEYX0_[wBU-bIs6
U"W%Y2=%y).v6KM>_;]G;*;XlC[)t$_-%G2;W9uk)DH+hgORCvACGr.VyA[r1TO#;
U"u2F0Yles\k'TRPxD=<fHD*le2#Q&A4).)2l-9m^NQK(iv2:,5U8]Xwe%XS9HGb%
U"Y*gMR)d;&SanF8Lj5Yl^m2EL7UG).bTOl4k_6_5Er5z:[YqMD$rd)<+G>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:<egTL?_Z^Z;?
U":G8t+xbRZC\govtc\\YLe1av<ns6f)nQX3#wn?\UqsbT;E*'NpV'lR:w2D[$<A=
U"S1%#i-S=/I*YypO\P)Oq%L<WdmlC1-DkV;6Y+(Hrp%M,IR\;HbFE&BT;%so3KvV
U"CA=)$YgLr\2a2M^hcoCn1qoLc:;Jg?fBUUXkS>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#<do*C]d6q1*Q?6
U"8eP*>2'7xwboXA'ssDCZfkH1:?5fbnAXM]/QH7ey=HVxu(_j,4VS:4,d<t;1w2K
U"Ne'6v6+zkJ^AgVe_fHsK6bn\9,RTHOV'*X>2w;*wH?E6%,*et8c;sF8[b(WEv<A
U"2Bd>?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>j<hD,g3BvNA8PV7YZ\PZsS'c_[nRgX+RO0Uil-[nVxI-ZhF;K
U"8qGkcp=N84?R4edF5-vN;k0*<v%(up(%)9%%#%-%r-*oG];ETD%[*%%V%/%%/%%
U"%%l%jyunA'Sy'4y&%r,>U[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,<pJqj%?Hh,2nkcKZ
U"HWuNMN'-9:$Pk5[_.C*A%7O*=pQT6)[cZ)O0SYi\-]5Smnvhl'%<=X[i7o1M:QC
U"ktq&V;)UY;eDp/rX>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,$Y<l16M;eTbTa
U"%#71,W8kDm-9f==W&&1NIW-87JAGA1_g7YfC^;&69exx7z\dkVio)Sa66)T3iz)
U"):&\K=f%qt#2iguT?Ct4LA;Cw1#r.OcbSa#o-h=XT)C5P3oM]T8IA&R9,:]R'\y
U"i1#Ay(ske6I'x77,B6'21*8sgTpUGhS7hG$BarW-6Zc<Q7[cBBr=S;;^JgCH2VT
U"##*:C;Q*)QTlQ;rG5&jg\2e-69e\K6Eqf*)JZT#2^&2qisJ%2;V4O&p.H?#AtP;
U"'Qm<Igc?99s7TBXkhR?]>64<DSp)n6#n5j/oJ=8UBC)S^J-;/dmhTmB]B9=dhO6
U"gt+RXfZO$E.C-(HKlfv/+:-m8d?,zZ=,D9ZxsjP_h\(,9hij;VgNbrOub'bH8I&
U"pAS4][1(.$RB?V+6KtF_G>g[)DX-<e)h?9)%\%Q9T3](tb:^\;ZCTmM>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%<JxG2?PjJZ/_h:IIpZ4_9Q<d*YxEMmYt._LE*0)
U"j&CAB^Es^UeB=d4?e=lvl]l.nOGw&Bq%Xjt_>)HbfHr#3H25<b.G%O^(5TA[>]B
U"foq:q,Oak;E]jIin:>Ybu7Vb4*$rT5dr+HZ$+EQh'h50sZaO0IlEHI[%IaDu%rm
U"R2IS&Wt1piJa^S*Vt<kUiqqYP\.W.Ok&mD+DYNXY(WhJ^JFJQS9Nr*a,k-lL*6v
U"p+WBn33Cq+ih</+uYIDZILn#SMdgabClc#xtOWOo#9<D:Qoa^E#gl*KF=gK=d(D
U"<Q#NG_=D<>lf^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
