'===========================================================================
' Subject: Code Samples in ASIC               Date: 06-16-03 (  :  )       
'  Author: Stuart McLachlan                   Code: ASIC                   
'  Origin: stuart@lexacorp.com.pg           Packet: ASIC.ABC
'===========================================================================
'>>> Page 1 of ASICSAMP.ZIP begins here. TYPE:BINAA TLEN:13112
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"ASICSAMP.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%#-%U8eCE'A67;$%7%%v%%%%,%%%%xv%wSfx.nz\r+3;E5bTpIUe0g
U"'Mo1U3m(Tkft.UM\I\tue\Bj*K<_95XX>JBpu];*CWI^AnaaX%]];7leu/=ooo6
U"i:0jJwxVyLui12F*4(6FFSVRK1t>[U+=W6fibWLNUo)-7&[.+UhWw:LB5B;E7L:
U"%LT6IEH()R=Lfz4+ZL1fx1$.PQ$r4kqcPL[R*aMup%()9%%%%-%1V8CE+Y7Oa&0
U"+%%&#0%%%,%%%%xvwS[htrF1;:;9LjG5>opC4#Z^'-fpwo6KI<i:)TH</OCmA8W
U"NbdiE:&<P\iJw\^d[#M9k,,X6T6ZuS^mWfj(:2qFd<gxoFO>;W\\SK?/7iN=(8,
U"i6E.+w=ru5(C<NQuuO8$a>l7pK(th6h[7GO's<m>(sEHK_Zb6i7'5Fg&OMHu2A+
U"bTNRlKvkGlf\eiO:govuY&n.Wr3X0fXj.2<qw1lM[M$xQg>5'B:H=4hSEc1ONdb
U"v)RT8,OD=FLGk%]Qg/bx;na&xi2q;/_%]Qs,h^%52$bogeS^1)jO=no;V/GJC3)
U"WOg3JuA\tF-KJ6)?F)9%xF=oVsbjk5M44A^lufnDO$<6JLrGA9b#n$2c_Jka''h
U"C#&T=eZ(q$#b.tKpwW%0tNB2i-=N)4gc^lvpUNR].<0ULd;H3<kU;8nev.V0nCc
U"(3TTa(NrYMZ\LbnhL0AI-X5-OI[cswsgm-sDNK9mLbIoyR;RieslPC<U\Ec4erW
U"\HYT:a[G$_e4q*.CuLgNuz=$5j8ycFjC6O.U(d17yV)1aFLX,\,Ym2^FV>cB#IA
U"a:PF1M2x1C%PbC_+Q>a4[(31w:naB-EmIAQG%>)qwLJ/3_^^,Kl&f?Xkk/GiZ]Y
U".5Wfjuq>($5jRcW*%=Ef7:h&=l&5H(<)sj?_sBZB1uiADMTxph>FxT'(J#_XW7j
U"#pIE$8oiCyBj=k\;Vm;5#Q8GX8?7ZJ3[eW\Zjv%#Csn9\6(mxz/V*b\I)[,T*Lx
U"aw.Ts$?L1-:h'd_+?(=7gQ9Q[[B57KWn;Q<=bN)+*2\ae#Z.,;:v>bqT-X\YL%e
U"hi;ln7P%f8qJtR:^/BfmpS,/iP'A&OJP(A\RJ\RYVf6I0+.xzGI+&x<^I+3Ax&b
U"(SZy(mH%:O6Ud=nf8(oIwp'e[0X9Jc>*+c+pPx,c):px*^$t,ML54\B]D?XxrEX
U"[t'0^=vKaiC>dP&\b(;evAW;-g%bfs4Jh-qGkWi=&nSl2u>3)l<s\0axZLI*962
U"I6gj4rvK]1g-)l)W3w_t2ij9a0N]yF?\dGkd?cO0;g?(m8nn;+GHAIdC+H)=&Xf
U"CX0BWRa;0I9>iXqn54rRi;][#,lVMskbo;Rj:[agu=3AQ2?_x%t..:yZuu&SWPi
U"<a/Lb_Z$,2$CLQZ<00wtK3Ww-.v;z:==bmflB*KkKXQMkr\;9A'&Ov^a;kY6Ng8
U")<l5NXHb:VULg4hf:'#Rdu/(Wflc,2fOR4/*8fo35p8/tLO'Z;z+T.3JS?1QGU\
U"S&I[xn3h47f?ObXjSG=39g,nX#q;rgajG]sX)(:ahig88nZhKnW_?)=oVxSn_Xa
U"h=W$;XNn$'_U?02S(&QtK/xS6bh1>i[WEWYS6E9=Lj_04,w]KgXL\&67XgD\?%K
U"wS)'ly0Ox&k9&4y0wmRue^nM1&=/s*)>+G0gPFh][7;4WU&f&1$4QQ%l+[&xb%2
U";D+B52X$#oqXAV<G7-$>r*O>h\JkJ?10at6R3$rpgQ,X<AGwAPCwiRHGHDCDHSl
U"f8-xQ[+-X^gC[yXOOl#dKCm/yMYqt6-D=3duKZ\#=+$P$+fM&oW9:8VW)WO\L.z
U"o4UP_&6V37QF=jC8l'N\cE,+Bv$f,Cg_G:mKaHk)*4a.')L,gpn^>k'=fYa'a<=
U"..M*ZT,\'+]X(28DSh,$&H5pa]%yE+;jV'][_,f$(/30_<i1)ti(rBl(2QD_F\h
U"Cf4kE.Xc[t\p;CFvvSz(>)e<(A&.>hR9N<4-:Wo?6L/*DgxsbMD:&.5S_Gms[de
U"?BrmlI<+HVJ:ipXl2*H^:nR/M>j2ZZwd>p*tnxD^CGaKQNXnW'md6f/$LFi^;wj
U"8QA3uR]edygA[=blL.s_mKhA?\;Cq*fpYJbN_0c;?EGWETfPHq3G1cqU[t0VKY]
U"MXAdpJ_JQiTG;/x)Scfb[Hv,QL.\O28Q</FV:5Qp5Kb6m['*-M[-[b5skdDspT8
U"NqDk:Ve7q8$#P);K0UrA;:YE_e8[F(NmVZ+SlY38]G1i2gr[sZi6G;L,DVXbT#(
U"=udtfG_QkNnx\Z__[G#$GyddI+X$ftqfccjYudQcUg>j'vB%up()%9%%%I-%#)A
U"FEUf0:>k%%%%%'%%%/%#%%x(%xfhh%SifyLp3//M_1//233O&%k+[M[p;MqLDW0
U"K,;9lF'QZIY(E%&09q'M#+BY=>6]hRl4>IMKI++6^OEH/wZA>\v14ni*,AJ+E?Z
U"da(q&J]MGPLL5f*'452OI+AK<a,oFW$S.=a*$G#mK(wc#VZMp6u$QQn2B55Rnw(
U"fn)Jslst0Q0<+a.(.D1/kPA;SW7#Fi^rk1x&Vb%%%up()%9%%%#-%5ESPE=F2.9
U"J&%%%x(%%%/%%%%pj&(xjy%SfxnD\bt>\Qe5>KhIKV4.ZO6kq-Y*_XfwL+=&JjU
U"4<\0GT>7PsZeS-IndKV7:)sLt$LTRg\>N4L8+eUR_q9488o+uS&:0w(q/B5^sDh
U"'1_yAlIHsF7hCUy[I0GqS9e]'b+opUwU:^>hJo^%5R><rxoJ)FP-)t[;f1V_[Jl
U"Iw<7lzg>Ud=:v[G;\xR,QdOn0HYsccK%0(3??&lGY69dQ'^]MkU^BuUh<c)\5ed
U".3.XX5h8vU>Ql^zh4iTq(=4\%fM)d+E9e$G^Ov*:'D[;+6'EBq#l?Ut+=<hAKc:
U"Gdh0QLkgE.8LN3isb_47wTn4.6$FXtr>TjZ$&fdSkWnuY[^T[mc)7Z-%;*:.-R+
U"+tW+>zFi#N[XY2/]^yw(4u]cH#0'<lFB];>KsetP&i9Cl8%]8LNT*Xf^k:o$YT]
U"qjfGa=()fA]WYNI2.^Q^N:Q'),5en'9N.i[o*,oDI,/r&a'j.06W[g?2:,,Xu%p
U"()9%%%%-O%hGPREbxQ&hv&%(%?'%%%0%%%%fyZ%ufxx%Sfxn84wJsB;U9L5.+N]
U"2hJO]MdXwo&g9)gH+aG71G>4PoK-dKMdWN>'42[hlsMBGsbpUT)UaL/.3vYk_:U
U"3W7XK(g)i4dg'?-ii2d_7iWFOf81I3Yu]vGu*r$F40V]<6u:QP<B$HVXtqk$Zi<
U"khEZ1V,0I/tSMgX0l.%p275[s#O,&s*siTOBTiW>;0=#/rV&?enUdIofvJ.W&_C
U"[UL._EYq'1%1v?FO+Vl>ym.y_/JD9[DZ9912=S))R2/is$8D+X(A#b1MX:DJbb8
U"?aZN6ayt'En((mj;<*'5<Uot17+&4</&-Rq/.b,XBx<:6<lfM4y3R-1F(7=WoVE
U"QF+0oYBqf)UT_7et,98j#4%1AG=s9Fn&(<./CpfW^p=lis-xs7*_fTsTPaMs=zU
U"cJ(0l8o?*U)RGSw2546xMgf2NBw%%up(%)9%%#%-%:)HPE-Cj-97#'%%a%(%%0%
U"%%%f%yZuf%xxSh7tr&wBhp80OAxMn3d)Y#U(hRZ'O.fn5)B0Y^u;>q>5]IG8Yg_
U"^[ovL0)bMEOEm1$V[o1(X,HgD]3]_tT]/a=dE>$kSTZd)D%6kfj?)d2BtToShr:
U"BXhZlvuG\mTtr[)&L;G?M6EjB'.[Olu\,H=r3EE?=;QZoX+kkiXjlad9y<F%7gg
U"\2$e3>oNUVW5d&dNtGDJH?0+dW;;^c;'v3ZG^Zz:O2hIr7k1heP^r%u:aLL*/il
U"D#/-Lp%,VL]rKO#zWqlKU,Cx;j7Q0%\%KaX^>>?I0xcENExb5,;SuWnwq4[4D^o
U"b0O]sL8WdYtBl.XSBN*k/2or4b#oChcsWiXMC.Bc0\vj#w]7^1d]Xh&+MKiVsgA
U"l^<ihJ%L6FKgs?0bIN<aUG)S'P%PU1-WvFtRHVV<>()>zThlOI3Tw\,rm0\E<pQ
U"S>QNY7C[\Zri#GV#DAs,G9hq8[Z.:lbdGG%<M)j2\w;0c-=q&$:&$P/KvDDy/YX
U"DDh-yf1OoB&y:/u.7IpPRH=QlY5C&w&smkK\t;u_0fiHkLWZsC.?M[KiCZ9PU(C
U"IN><ChRC#dK(\w?SR;U6*(dLtuuF6t:7t,MPVSXEN6d*Uheno2]l<kV]Vtb6G$H
U"Fvhv\'(O1aqdj+OAQdg%W(JDgM8akHD]?D+/aG$<>c$Rab0i])nh7v.o[N&%$Rp
U"SLm[N0tfHH217IyeAFIabWI<IvVy9S%ql0C$aerq]WPcS+Q-48v39qrl2tb;4nn
U"t+CSfO(3<lw&0t7D76>mTx\KeQS[&udup%()9%%%%-%2FHPE4ENzV']'%%'w)%%
U"%/%%%.pj(x%jyShRtr&a&.mxvjA#N$<U,#qr#IIe$>=uY*I0WOhtXi1C6X3&1ot
U"]Vr.VMB&E,jvL0$<&M___cL5>bWI->2WYN9vZ#ZDkx%TkTc+j\+V#1g9>i$=(rn
U"/4bhYA18BuGht23$MNL6^9_2.HAD=Z^t$29aHSkmZ]tu?6LP9W(bWq2gl:dG#>B
U"7l1I[_:6?-3QQKoqURxS\js.rC(4^/'f)#Fftm-$rWlRCs3CnjyBF;*#(w4[--h
U"6i<)*chuHbHty]+.NA_9YC[$Rqq>OoQp+Cn75k+<>*2'--^0=1-%IIg/s,P-ETY
U"HN_Dj-'a^t^flGe4qX;KQBYekSd\#88usqCAqu1]%_I#IfTq3A'Auf8-I9ebK]e
U"<u['BQw'xM*2M+F'=/FX&#_=g?'+V0ooUD7Mu_].nv>-KM&qu=O:Pg%E*)>>>x/
U">>?UYew'AMjl8A0oV\[odB?Oq.=dbeP7z3u*t'>,9,4UakoCL3AEdV%:zz<1mNR
U"y.wJDFpyR.DGkK*R&*k$Zh>St#c),^f7,46y,RBSL<L(e^H3t3+i?G76mf,G(9u
U"8e#afuxeG]jHwS)96#AeOC($PU^2%$[AL[PQ_^b]rk*g)HU6?bOO[;]E#]_h:#Q
U"+8]gBi(+FCBm+F4ugM0/YHL;UYERe]2CE%(c)-\&ssMs?aUxAt#KUdTqLbqD7?m
U"-<DVor6\7TX-np1fN:F7(X]-\>SXjYvaRBX190Vnti9Yl*$UG(m=SnjgWGVWX7I
U"3?bv9r%ok9qV%s+mA.Gnih)/$Z]79auMNLeU*Y%3qQg9&$4)mgj7%kN.1db/,Kv
U"Rl1-5Ha#UgoBUPwRhSc-qK%2J7Axos#e6^(^q*v;.X(%Uoj<7tGU%Pq57U^i]R&
U"+jGBN_ptNkPnc/]WYv&QYsw4Pwt31Ao%p<c'a=7J;oGH*)DTr-NKorX8_$&N'up
U"%()9%%%%-%1hJPEd<Ux*%U*%%&N/%%%1%%%%hfqj%sifw%Shtr9NzXt\*zAxMmJ
U"IxsU?3EaZE_1rAeB)CgBj%D0]3pm6>fC/Mm#FI0H=#c9ODRUq[<_TQgXKuIeF'9
U"x%J_8$kSvK;oezs#s9UqZb=-'44sVpY;D'NXB>PpsV?=L,FiktBHptp^nlvMHix
U"s\o2LuQP<xNbCxV2OngbLtkoDPrmFEQ$QyMVn+\$^N=*r4o#mAQ+h7GUfC\Q(1_
U")GydWaksomR+$WsT&nQ:<hpbVTa>/2#rJ;a0%mCW+S\hAap#CSN$Q*$aVb7ip?[
U"7o+f(j&ShKZp2DtaO[k;D*AH4.KuvMg85?B[*8'1V=s[T1ik\:VP4G$J,Aiy:2=
U".:sKu83aBqV5?%pbBOX5/bDN^xa)SDlV\ch(10ZaK't.9p)(-jnR9bEv)kO%Nen
U"NX-uuaMr->iAwz?,R/%FoY,pc3?QqU+TWbo#,Wg+8s,,eKLTb*#]]-Ex5e1q)7j
U"osWk,w.xcca$X*J-$pldW+$a^H:]Lh/Hf78QN>9L(bg7.H\qj9S8;B&RTt4Q+U[
U"vdOW&zf?XlTZENT0J6YZLJKkw<#]N.e5/'e,+,n?c]hl<r7Xj.oLKh^Bz$j9Gl#
U"iRLlw%&M)8_gp?=&*vO>k'NSvY+=DTddGpr)uu-Sfss&Yt9QD>a]AS=3o#3cM?D
U"SF)FrMy-O>ZFrSimiuhJE%77d#j&Fp:,hRFriqH$um<Kq'[cATdupv,?E7]JL>(
U"JGb/3bnc\)28O<>(_+?1Oh-y&1LEU_de:%(s+<52xlSE[DH5Wdk(&[:N=kA_6h#
U"Nuf#/RQSilvMGGhG_Y-4k$&E^L+OxQKPQu3Y+#BW5V1Ct*<^t(.,/J8=]7laFu<
U"pmW;&Vh:nG/)p<EMjm/^h+7g8rK<^BN.+]r/vCq2:CT$&Fa4C#:bUr?&5>sTM3+
U"Q+t[=uDV,upIO5R]J7o3?IOeg_7-q1?^BI1Gmo</-<j)G[K?[J*AE?SVvP]b_5K
U"*>b;[$>dCL,,),-gT+UJ#_j(Byr8ue+p]_(\JSuLAt7o?Wn4l'SPJ8zY<1O83<L
U"2&:q-efm:l>c.J/28cXV\f4g),5$T#xzva5)>h=BGq$,Ol<5i]XDF7Q#VlV-/Im
U"2-NaONO;uA/eYV)aaj%05T9_hrShB9I:4#Tyi*Xqq4'F;)cf+:'L_y=AgQqI4?b
U"(0lZcP,:NNfI5VMLGfhd\dJ&ZQ?OX1,4ftO#1ppEGa178'BVXFA80HxYcO2NX4;
U";^r.2PC#upSTrPblShxr=p#A=[q]o>oRTnJO'B/hG2(pc&zzIhAKTz[2vX1A]Ab
U"\jbFO)eM(xrH6HC<JDM#rLAd_V=/PP=kO:uU$UoUu_lrM_NFuNLqNsC\yKBgn52
U"(C#XuD5>FUQ:E:T%VH#Sb7vv%Ok9X23tYmIo0a1.ah%1Y[x/9+P?sj,:R<N5QLv
U"Y=,&r3859ul_-D5J;5YoXA9ZX5ME^huJ.IgJ$_u^$r_5I9Erv>HSLcrSSQQG?,h
U"gtFUh&?PA+?Ga*J698ba*6u^#Q$f'\)uMLxKDB[Ct/3iJlr3sbLw;np,Q6<o%r<
U"4dFc8;uJg6;lmbWITf-Jhg'L&[K,2S+'ZSsX8(.1c_u(?l/\>RtWCO><^F#;r.8
U"OQtWC/t^fuqJ=/,gVMTxP:%==8x8p+.KF<Mk/TUMQm[8y(KXW:'kfY>'8N]$5tp
U"=a\I7Szu&%up()%9%%%#-%jJ8PEim'B%U(7%%i,%%%1%%%%hf%qjsi%fwSf.xnd
U"z<T=Sep5L0]sTaDABk()rA/hE_1[aje,dA5)#IvC,JJ&z/gx2zZldSVuFitZlH6
U"S]8WN)k4Y6GEk>lDs_HS;]xfRs,PZ'vEVi/<lnr&MD+XB5H;9Dc0RE#EQvQL/k-
U"<T90_P%4\F9pqPk#n/CK%%#;.rQ]'FAWDwVOCsj_B$1a,ABrioVB1ciH'rc,,=A
U"WXk:78Jc9\IGfOMKi#\Zyr]]Ot0jgAcMiI4U\dMY:'28DgJ9[gxE1q,5OkP,7.B
U"G]9tFt=t^A/,S/o(KQv2%ZH8e1/v'Du8967v[IZ+1,</R]&/HXt'JmB(a]TY];+
U"&7([M6fTj_]n#K0=N&]pgK1''6TS]Xq07zY[[sg?]b5BWX:''%nN%:OfQ;TK\7=
U"Cd7&k7qeCpP*M:=VJw6P=:9Ptt[vkf:7YgC<b<&m6INKT0v+0$1z$I]+f&FrS?N
U"1xZkOR;LIdr.lhuqOg%B$'a2o>oV*5UC;oqV3/uQ$?88+:)Q.DT(-iEqIHls\=y
U"_2tvU9xn+kJl?;u#0F1p&t0jZ^W5SMQ_>G]R4_aC,L0e%-;t1pn4cik8F96I9^V
U"Pe^ko,/DBpMyp$\[ZirFzv%EInIOKutQ1#>1rN)SVOQsN;e]g,#dskN<^2FK_s6
U"2ZpboMqAJh2rpn_<ZbVN15Ap?b]5WQZW99Px3vCEX2(of0u3QAj;9WjgsbDC_=M
U"41jJKSAQ]Hl7KihD]HRv?ZBugL%F6lQ_k]Q&<%k#M3A$Kxs:g/E81=z+Hd$<YuZ
U"JO/3DU)bC'_e+.pNawc07[H(,8hT]1N6YxUmu?nC_b'J9_SQAtj;.cEUjRm894d
U"svf/naV>OPfK'wg3K8:#/['W>Q7(Qr]?BIhm8;iU[EP^R<#UKdG\*pCCO5;b_]+
U"giyA5fK%ZoXO:/*Xx(y0A:Vko:f3^fhkT<LJUJb'=#A?6x=Pnu8BeJ<Ecc:K)(t
U"67Vlce%:D*\<NO[<dyGWSQcxzA$qAibn.xJ\RzcPsgq<zu&,1$#%4s9LIIJ(mN?
U"CBqBwI3D'f\up%()9%%%%-%2P]RE^6MFR&;(%%'L-%%%/%%%%gfhp%zuSf7xn&z
U"8:tTUF9vcX3x?6j%vhhl-4J:kX_^>w.MJQVH?-T(l\KW5ec)ekrdFf5;+)IKmrg
U">7N(BKKDB<oom&&+l6__CWl.:cY\G1)pd%x<S6f,TNt8oeT6]k1K_Du/,$1a;Id
U"jSD_8a_[;DNPk%cD5]8)A;xHe_T8=J+=]]\Ok=&]-+<oe/y=$D#gJCgS8_stFD+
U"%h*Tq.\shHHA.EtJ>5f5fK1_XP1//<ROk^+nS(bu^L:yKl1Jg#=*3$LziT8ms>p
U"MJ>:b=19^17gD=ICk9I2OYTH?B'CF=<cKCj+U+b>Z,mew3m[2(H=:BODa^o\3&G
U"E0ZI?WvW$*b#7+PPzYgL11V*//d>4NaS:.3dG\sedI_mJ73WCBn4ItVbRwkaGcX
U"M1e1%1S;t-d'aYjORV<CIof8Bk5IJrl)eYKa^Zb)#HP;K7P5C^HiQ,gAO^<k2k8
U"dDV*Hm0DGhwfp*iD8Q)*/Pn+Yr*nc5n0mwF)5Q*-/FV[[-HrabYE%7E=H1:fE)l
U"?9Tz[qljcC*]w%&w>Q;xwu.T[7qI[&BmM'bv/g]'C'8ey?^8z&-Q'Hi&WQCD(ln
U"+j.-t6D)f)5Y291LG>s'peh7[5.rQZV,A8[aunZ,5^p-glfh]LYsR3n^iN2b/A3
U"J3;Bk:1muIDp-buES(H2SihbLVvNiP<.i)dtwpq,10RRF^7d#hLu0*Ep_H0k_dj
U"WK.7/LyGy6zTY)+/4ZB2aArP_T.CNf<d9rt-WJ(WfsHI]x)T5DgrL)%p0KtrqKa
U"YeUdYo(cTJ99y(hw%pGb+j4BMksc5JX$vGsA69<s>>3*;,rLQbGH0/_27^N;nP<
U")qN4:gmGlf\GV4Js&#AgAkP^6p+YHN6<;=\,SWMnO;K9&2_m/Hiq:d\N'[X&PLq
U"Yr/R*pp$$'6[-[\x^%6FSp>ttH3wSl._TbBtTV9(DvIdzpFcSvsa6>4,v^s(e._
U"*Bwms\ql\if6+g)GwoJybq'XpJ]CPpVj6P]:=*r6I_n8eJpwpjEHfmq'sKCW6/_
U"nB1<$L$2_pO>b*+V9+(Tw]=n%MlqPDaUfYUh4VxVsvI97iULc-sv?miM/X3,;l*
U"#8'su7;#TOxtVVRhE^2'n,up%()9%%%%-%2P]RE(eZ)m'=,%%&T6%%%/%%%%gfh
U"p%zuShRtr.&\Nq#P^BN4X>lrZ5AaY3xuK]IMhy3T?I$ZZbeDR_9R771O+'?u-,\
U"V%(0T$nn>w3?)*.VB0A4x\Xr&j_29SDt0gr-d=na2j?GOB#5+w]1rJ:<DbABzOc
U"CM-gYipL6lDBx1(ToIXJZhtvK?8hlclh#l\&R1o:mCbf;Vz&pNV[>[H<u)O43+E
U"ysMz%II>9?DmelquslU%Jpj#qa/p2.>ACrN0X>.p$Y[k/;'*xq*Dtg7)vg\70Uc
U"2)xIq[;k$#l/kA%H*D<-s,G*S<zkn&,5<3Dw$dN/3xsE'N%eOtuiV%&^0:i5CMm
U"DnlM:aVd3k)L.ybhJ:QyZ1sSAU7\>Ajr3hS=Y,$nLYRTDAdkBB?))71apuZcSD#
U"iRb*hTy]3EBrcj\oH)WZ3VJqbLc=0%BfJ,=7\(EFgBfsLwCP^J=&=At*1n*1T>4
U"#[?7nkaS/M:rJVUIr4-QQ(A'nll#5jre&^&=dBV420s^/QE2KLiq+=m\%Y?vk&m
U"Uu,Hx'g>]&vne[Ai_%KNQrajhix[S<k\<J(KOk]fk;<XE\RTtb1xY(wf2nHi(Td
U"\lvKB6e.yDfh%ZEcrxp1BGkkAo4\(WTgMYc1F>WF\qAngX<?=Dj:,nTdt_0\$FG
U"BZp;'Sq=u'G+r:7wr^dkvhPV'aLAGgFKGI;UeTR#-myf>RstBm9r<+j'>C4_/4+
U"bLOq_[?3#I\.jh0fB7W=p:.UMBS:XYA3PgT$'dGkXLONdoLVXxWPG/yFx:G?d#<
U"arF]/P4cJj-q3u;7W=1v<V[u2Z7'_SJ&*bs6*;L>\mCowk$Jo]).a%b6f;a,KG%
U"IQDa\O9=tMllUO-F[iVGPU4LC93&fg2b+2uovLsuo\5f6wmX^x(4VU=-c^?^cvo
U"T2jNY_/mWBZ-0lr&w?CZ7NR<Q/,>FNS;5bj'rXkiu8IJ.dyIdV*[X^Y/?DtT?O+
U"5kZN#/nR:%OOCO90p4FS8&:;jXG9+_'PZR;1O6t5nU-2-*(q;D=<&egcr/r6Pc5
U"afe0D:;jFRX)U$+RRaqwt06Z4L=%#'ZpJe^>l+*0nZD>3DDOnytjDK_/:^mrUTf
U"P_4v,XaLJ8L^jm]o<sSCh3d0>j3,T.i<_EK+IKOepI)R<%gLUNh2.;eKe[l8%<q
U"eyaU,[,cIL.LdU:f+CTmN5q^jH0,n*/[ne<tQ<\qbJVl-8nnTpX(JY9_zZrJNbF
U"MQhT/EvFd8QlIo32nFxp,M$I7]D:b#wzNNR6T=-MPA\He<9mi0RMw&cBihECpW#
U"DJ\#s?'xakg?*1f*6^o0PtdSjh9corXP=/qN]wI7lB9[m&;%Pv3#\_mzI(=HN.t
U"n2FS$/gqJCX=y:A10D3sZo>hGOTU\r)R#4P^N7R]fv0_$*3Zqu%1naFY'P1;H#v
U"R:zkLONejuREVilDuYLoB,+%5VL'Aztf;>*NPt?b#qp\P1p75bmY92%XN2[N\)E
U"fO?#)KE+*qZ?1%ozmV#bgKdL?G910yza4/orl&Fd?fDRCusf909*.3ztHT*IJLL
U"J-#uE[&qo&NCFV-8/?Q$%RF%c]H.-;VAFZRYY38ONeuk9lmU&^6*3=.A9he2*:4
U"h_r:swMSj;bi?)*Zfw78Pt+j=d4i(fFAW-8JS&:xD*oi&x5ac%e>se^-AVOc_Or
U"?NT>M;j^HStrah\rd]SJnk0Std%^VXyq5N-wUmF+R4pWME]72'-]KNtWr0ODbXi
U"Ah;Uw8vhgL%J/O-cM)Wh=9,m_hJ7TR+o$*z9uak3cJC[=A3#7mKLyYvtmG1X7:y
U"9hQ4wujbPVhG;d5YFk>X%'cYgeEupNiBc_3Hxh286cmxiY*b5vSLINSf83YA(v*
U"ZVtrSTF-5me=_*1l;,X=LUkU%^.IB4]g$]O46)UV6%A_[2W)l-)uN.Y^\]iVDG)
U"ILBo%S[MKg%bbq,dOFwN-<YC9,0d3WLT7q#KH/wf=-Li[-Ba\9?nj39VH,*%#oV
U"&UaaT4UE=g3ZT8Z9RzQIl7nH>'<E>0x*%^OW9:b65+t</1XXrQv>74g5*B$I/tE
U"2&O0MP8Uf^2RVg+5r8I)CjYoV=E3m7>S$h64=xXmD$kZa>S%DTsjx,P_kOIh.Ab
U"L*gF?at5=E.H*VW9*VN]A8]AFF]lkF,7Z.6X0uAGd;DxRvOOg#gs]/#L.(;K*BJ
U"^9H*a>i4Z_&bnP<1wSba9\kVJ9NK8[AQGWLHTVLOk?t<k05uEQALOKPbjm5#Sf*
U"NpcqW0Vg0kxu6abGDkr(_;,[0(qAC&GG$JH3EG=&s5\j)EMV<D]6x:2)It0r1Rs
U"XT/2aZIRn)$9S3n.%02'<[t^):T\VLjjlj,wchpBURfXbHi-aLuS;0hBU\%[Z#G
U"(jJ%&L<vb$*?K<>]b_eN/OA%-j^LSWMVCR[EpL=3mUjn[D9^-m5-[ho,Rmx<1=V
U")D78yj31)NN<5F#&Y9VpTLKmPthrGgMo:OoIm$Cio7h3l)6QdAhZ[W#dN6,EI(b
U"mYiG#u#]$,^2)wOXt3(Yo2^5N/IxHFq6oY'x%up%()9%%%%-%3:_RECyND)&>'%
U"%%\+%%%0%%%%wjxy%twjS[fxn&Ly,^ide9LX6=x?$]ZfPST34F9nY2[eJe9$wZT
U"(mTc;Ys;nV&3V?vp6X<YOC[DL7qSQ2pkJ$gk>')tP&)smhcDOlTp/58iM3F)P%]
U"]Z1L[c>K1cGM/\:,&d$(+6jZHe5vxnR(r8$.6C0uZM+OzB&lRR=er9w&$g]KD1e
U"GI0I)K=9:r.1$+s])[eXE$itVy%A.hV)Z.<K_FlQLDGf6PcL$aS74p%xJh)(hg_
U"A[t%+ulrfc)+IjKLuzf:shli3djqb=>Q-'O=;Wl1;4]&XBF;oCBP.B\G0$M)TTD
U"k:a5,H?Q:6oJ=2j+kn\3;s]kbL4FoHO?rD%aS$#PAIGcV81lpYv_da;U81On8gK
U"E1[1C8+Uhhw_[/N)b0&wHt9IZ6Oiu-kdMp%TPB5:^R&hb=#k)Yw_l[P9wi7q=Bc
U"OST7S-E:^gf64t9d0nt5H^bc5E8HAq&.0hAe]'0fC*a;qP\G,MQaU4*e?x,RYU,
U"17O=TS0f4XO4Z%EYs$,etlM=f3vhGC54]wZ/umh0xDiN0rtNP<Ca]J)Ww2=J'C0
U"8eC?,Xn%_cn$ITJ)1z(NnA)+hF>24X$1>#E_iPI;-\9#s0%.pX2ER^DB(d]2pNk
U"EbI<h,kqoHC2MrU=7mGjcuV416FVvoX-'K(^2JI&dfNlJ9&qJ5$5Lm2CSy3=_Uw
U"b9zjUpT8n6XQIWf=6p_<72)K+(6T.o-JFHC,)eL^N3G;F?G&,e>l&B5)I4_1)gi
END SUB
SUB V2
U"FPH>%U-HGQOWDnjPiv/O=<_B4H+u%-*r[(WoMLLbp$07q'v&up%()9%%%%-%3;_
U"RET?faY'=)%%%H1%%%0%%%%wjxy%twjS[htr.Cz,q*[zAd$;m*Cl,xN2it2_Z:(
U"jChn_rPr<\'l.koJ3/;CmT5wG)^PfBT.4=[5Co4/T5eneG#EjH:=ut,=+KR<%U9
U"hOziT4#Vv8\Bn?10[#GmvDnJ>.CFpJGqimHXrhkXr,lx^\1gGsIRX_a3M%>>N>[
U"hZ:bkHN8o&HF^Sb*%[pkd/wu7tAT0qoIBsC<A&/I(XTitay;?3.4\o%]ptND8.q
U"u.B'./6)\\$Nv2dl5B0V'&1D<-ON:n6X2O<3kz$t]dr2d&c/%9as?JgM%U[gp>>
U"PGmqB#ar.7mG&#yFJNUpw1J5OgSZnLw3JcX:)t)e3t29>)fQK12pK?)dm54.w[L
U"ry7PBmEm?I-BCqOQ<JOEo$7$K:y%8mSY527\[w)DBf:c5nBU7S)?q6;rs6m3jvf
U"u\uAGr8Jh\r9RZ>,AN&5L'>e2KKl*)?<;YEJQ$D0d?e;cgjyUA*?7BWmG\oK*:p
U"L,2Vl>(NNPEQ%19%mXdz9=op#)Te6/o\[8bnX6;)jb><:MJk107LpjH.D-afJsf
U"XG.0Wf&yKH#k#AQD/:68;r,)Z,W&gLGI*FZbeS_c1#)T[A9;$85xQGQRLThD=/p
U"Fl0;_EPY%#Gq[ed<E0$;>gm;=YUsT1rUe>Ai'7zIkj=kb(mm+C7Gf2KU(V#GCBD
U"\R7_X._7S\2mdgPi%EU*3&U7-+=hlTVaU,_9cp#]XJkb5&vLh6pC(Ieue.($C')
U"vZlsj-kdS^JQihkB7G]A*Qk2k(^\N?1/8LN5RYbD'ImS57LN1cMh2?Us?\*/IAu
U"rR:0dio*Sm4o5$iUGbS$X](i]/1I64A4r(f2,%-3lggCotXc:ZFC>K3Exk]pepi
U"A0QW3]4+94=GX'VHK9Sy%Ym+?m.%9P[fsdfNOEpmb4,e?TEMI\J%<>I+v(OUcA:
U"M1mjB=at'S)a5$Ef,4:we2,C(EI\9rJI%hB.qGdmLR<oB'*qZtC&VAUUKBP/7nj
U"+?b2JB3m<Yo'O7)xARmjdbvdnk8..0iSWOoPgOM4N_&*2#UgV)BfmIZ%S*o>1b2
U"RG_HyjI1,XKOOhri3eBL0j>'0,D(WaH1>jKmn=4^F8XIk)PIeUdGOfL$(7];'*#
U":FQ\]Q)[]Ao%+]P&+%XIqrM_TQ0Pf2FHXYY+nBmCF++3&RfnAs(2Naf]U=dQ1hG
U"RjsJ8pJJ?45[k^5$P^^,R5be-;8IwV'0D_Rl\_PlS$?7eW'Hbf>\A-ORgET#_Mr
U"iJ[WoeD^Mj_qrNP2I)VEQ-lDeI>b1S^L;eQRrt/L:9+(?#F$T<]5$>Ui)LF_QtA
U"n>bQSr$G0,Ht^edN#$>_[Wvqif'Sx9H,5s'1BXF?+mh_LL$^H\$yC7g+M:ehyO_
U"CZtZfX&^U=$f:oqbdr]iWSQ>0en^hVNrm6*draBQpneDb;Phs#^g+Jm;Ym<Qb\]
U"b>qtWS(:,&$a_L1ikb%CR3a]]QZ7#7T/6,5p&$ot/I.]H0.7i+?u=hHrn5S^\8m
U"64#9dp<2%?+FHo9SHDi#HAt?d/UXRDok#wnM=%>;M%t\y+qq4u%p()9%%%%-#%B
U",WXESw?(ZB(%%%W0%%%0%%%%wju%qfhj%SfxnE^%r^]T[56XT)x0HCa52s:(f]9
U"Izc'H/\r\O]/0JX#mIR=GL/%Ai9MyoRjKxBWFNX$M)sI)-z8^LD>5m/5k)*-<Bv
U"+=Tt($rP&\c?K<Di.+USz%%\U3l'(%s.[6vx<EF__JkPhmMQfzo,2'4n>kLcO4w
U"'wiS^>HdCi0mOGo[c4Gc#Lyl:_C(N-L')utcZS,QP'yBGNdw;r#][S[TJVA&ugd
U"ub'L<<JU)+Slwg6Lc=sqV('L['>.zt[>jzh<s9/,e2j=$U6Pf$-kdP%Y7Sn\k;C
U"FbZWpQ-]o=alnG;P1N:>c4dyk<.o7[-0iNGXv=JTZb$^V0mp$L>8MbC)Aue4K_:
U"Nv5]YpipgFZVuZYmGYHh4]Shc5H*vK[w>x$2pTX*(b^whUea39(gKJZ/-CoT$:^
U"F5kXYx5eLujc>rPVC-4^w<#X+ai4ODCA%b3=^mFas:e_w1&8FX7uo<SU/s[dwXm
U"q^&NiA*080/AoPYH[mCeoT%7/NH/g*JCxSX=4R7u'haIBiD1O[IaSVR_%v5zr7W
U"'f+fe*w<Ujgth_*bKsv9(r$IYcHf]2-oeb#ockT%5852g_3WWLOj6OML-)'iJSU
U"$;Nht[GqFF/0fgVK](lys\N^kQ<WCZf+gb7bN#Ez0nV(h#?Em15Q$PY0:a0?SSY
U"QW*fe;A6vku+=7f?xVpsMsHje,(nX$G7#-X5[((CTpsZ>dxV]MVwecRdZnrMv%*
U"HkJfNsY=Wdp0lKuA&O.8^oN^S<09qZ\;[]'D71h2%Bm)%H/*n,Ot%hW<2*N<%4<
U"1ai3:Ff\3=VcVrln*99&,g\D0c$8M2&P%;H:+&M)N*yF1YF^#49oOoS47;pRZC2
U"$w[hw^2=z-Mt^9s.[Oeo?e.kt3q*F39<HjUL0scuNcWM<,-i*Z=9G]cjidb_h_:
U"B4A1D:WXbaQOR:K#gCD)F?d([:*]Zb&[L?gcj_LL3$\rsD\4x?7y/B[(Srg6h4\
U"jd[3rS^L>u<4bvoa&cL8K$uYP*5*MiSSF$7./R3$>q\X5Vi$;<V#PL2C8Xs51'*
U"QB^.PEa9k1T1]>sU/X0d/4C:%;^aX:FFF_tUS]A=.=mGHb1rU[8ZUnAbsUXK3mv
U"5%c*&N%u%p&'9%%9%%%%-%UD8CE'ZA7;$[%%%v%%%%,%%%%%%%%%&[%E%/&P%%%
U"%%xvw%Sfxn%up&'%9%9%%%%-%1V8CE+Y7Oa&0+%%&#0%%%,%%%%%%%%%%%E%<xP
U"/%%%%xv%wSht%rup&%'9%9%%%%-L%#)FdEUf:(>k%%%%%'%%%/%%%%%%%%%%%E4
U"%/Pa%,%%x&(xfh%hSif%yup&%'9%9%%%%-I%5EPOE=F.)9J&%%%x(%%%/%%%%%%
U"%%%&%E4%/P%%-%%p(j(xj%ySfx%nup&%'9%9%%%%-O%hGPREbxQ&hv&%(%?'%%%
U"0%%%%%%%%%&%EO%/Pr%.%%f%yZuf%xxSf%xnup%&'9%%9%%%I-%:H&PE-j/-97'
U".%%a(%%%0%%%%%%%%%%%RE%xP%B0%%%fyZu%fxxS%htru%p&'9%%9%%#%-%F)HP
U"EE$NzV]['%%w%)%%/%%%%%%%%%%[%E%x,P'2%#%pj(%xjyS%htru%p&'9%%9%%%
U"%-%h)JPE<:Ux*U#*%%N%/%%1%%%%%%%%%%[%E%x,P35%%%hfq%jsif%wSht%rup
U"&%'9%9%%%%-I%jJPaEimB%%U(%+%i,%%%1%%%%%%%%%&%E4%/P9%;%%h%fqjs%i
U"fwS%fxnu%p&'9%%9%%#%-%P)]RE6SMFR;[(%%L%-%%/%%%%%%%%%&[%E%/)P=>%
U"%%gfh%pzuS%fxnu%p&'9%%9%%#%-%P)]REe\Z)m=#,%%T%6%%/%%%%%%%%%%[%E
U"%x&P'B%%%gfh%pzuS%htru%p&'9%%9%%[%-%:)_REyJND)>%'%%\%+%%0%%%%%%
U"%%%&[%E%/,PgI%%%wjx%ytwj%Sfxn%up&'%9%9%%%%-%3;_RET?faY'=)%%%H1%
U"%%0%%%%%%%%%%%E%3xPUL%%%wj%xytw%jSht%rup&%'9%9%%%%-#%B,WXESw?(Z
U"B(%%%W0%%%0%%%%%%%%%&%EO%/PB%Q%%w%juqf%hjSf%xnup%*+%%%%%3%%3%8(
U"%%%4U%%%%%
END SUB
V2
CLOSE:IF S=21AND B&=13112THEN?" :) 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\13112,219);:END SUB
'>>> Page 1 of ASICSAMP.ZIP ends here. Last page. TCHK:21
