'===========================================================================
' Subject: Ansi Routines Part 1               Date: 05-01-01 (  :  )       
'  Author: Antoni Gual                        Code: QB                     
'  Origin: agual@eic,ictnet.es              Packet: ANSI.ABC
'===========================================================================
'>>> Page 1 of QBANSI.ZIP begins here. TYPE:BINAA TLEN:10555
'-------------------------------------------------------------
'                  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,"QBANSI.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%d-%T7nuO)03=k?##%%^.%%%/%%%%vgLf=B8LS10BTUaTAlT?ahbyK
U"d-(>(IRIoKxjBFANVI7FZ:&XymO%c^nC^e1M:%+&+%c&ay7;F.p<6/46+g=+7D4
U"N4EPFqC'5;IIs[4bVBfoH_8c\]Q=XYm:=,AW\GU8)1VV\C,dPd\\I2NsZ?#$fIS
U"MX;qhEj(OOW^0>..h+0[fSRzUU?S6\b)>OHa*t#$,R9/Thi4mOS\K0f5s19>f<Y
U"KKD^3/Ew/W.90\9p$7cXCF*ZvA>mho5N-u6$2CQlZ/G7$fuP)NUyQQfiH(s<$<d
U"tzw9[aC;*KU7X^%R.lET&al>C%GX7CfZ.R>%Wkq0U$mV2ZPA=%A(8Jw9$ut(np;
U"Td5/;Zup-S30bL#8=OjNEk4k-ikV#7H1)cR(X-eM3*'=4&\JYo_$P5H<>,U1g6L
U"NdqA5*b2$hH[uM.8o#aiZU,#JP87i=j\N9hZ)5JL^aP4cfF2cExqdgpeFpX3m%L
U"vcqv].CHF+z(mS6QCb0lQ*q'-dO+Kz^na(Hnc>,q,'F2'g_uRRed/:GV=Bm/o5J
U"qZd;q&kY^-R^jAT)Gv:rwGuC0F'\eINK#cnhEiKZV'T;O980'f*7RDkW>]-hV-c
U"3Sp:tuJI\#)tO4g7QHO4/^%;Dsf&h<ariE;:Xe?(<B/^^mI;)Zr#df5#0g,DsVr
U"r?Q[/S9AB(%.A5Dm0>&<:#t_8cEO0)_9s5nZ:uWdoZ%&QGVez(ii[W73EfJg0ZO
U"_7JFIDXqt[#hCJCrNgc*q#)ue:[-fW89:NdXCX9i,rgt?RU)+RbEcW2<uaj4[J3
U"gjA>EA%cIhcB=MhOt1rU,$hw9FN#I2\'+By80]7=;$qWCBKM_jJGLx;Tq6g_Uf4
U"f9(=:DKeMD\tsAA',SSmR0NdrQC<rIM%.\/WYe/osS>'uFfv')5N>\33U,'vOoL
U"Y'Fgn6b''XoluuwUB$OIl6XIN'S$__Ts3KnJc_z_UE&;nXbcowsI#va%kfm-\]3
U"4pmXrLo7/o0HdBBo[_wdf<%p(FyOTxrhuPxB?KJQkHG;u2IT7l>rQmqHE=D[lc:
U"dV:(..ue,%CcD?:=%]8t]1Kj6jjgD]6^c7taFhiZj.J1SM<kOQ\SxK&$9iD,6mG
U"nL-2M$aYEacW0t-'\t&+Cax)<RlUa.9OtVziuor.C3gLt&p:wMd=U2-+1apD%N&
U"<BRnlc[D:Zga+Aj#Y:8$(3?W5x^o\I?/:c_Cpb]30zP.&IVPmP:RtCG?'8ejpke
U"u+&GFV%&Oo7kEnqE4%>R$P(+LIS9iHI3nb3s\/'%Kl.kFK#;fr>1a*R%lL.njcn
U"UksTvWnDJbpGAT?$;AEuM2oamgmNE'z[eTL?3Tc3?LUejd]6HtLIO4n)xcMDU.m
U"46LiA9]GZ_$'x)Bq>Gn?m(Bdca+I%BIvj)GTuodjW0&<Zlg=q$'*B1a>Ja>_w/<
U"jqMn/+qXRwY<_E+z\:N?(bU<#1RBqs&Z+suA0-z:DNPdc)77/txY)%-cYMntZ1b
U"[+OoC*_1mmiC+fL&_MW/yB:S=BL(6SR?WumCOO68I2I06;\p(8,NU*(XukRx9+c
U"q:T1d+y7\)9%INQF<:?Mf7eP+1f-FY8XmDKMAH_.J/\7ds;s()R('vLS;d#%WO7
U"MPn$Z76i///v&Z#9G0G_[L9VnxAeL2j-1H5PHB;b=XDh?d1;ST:g4-w9V5tqPL1
U"rjV(B,Mgw3BhMoI8b](/'+0qcZV=$N>W+iO57E0%=[)OewjWVH(ph;seZj[U)ET
U"?/A/M55RdRBWF+PwASKzY;7UMX&Ns(C8;\?=h7]rr90)myJPwtzt9*U?p>-iLE[
U"zX?0o-,d^3K<W$%;4eX$upnr;lf2c,Q<j+Cc'3S.C7;p\j&(ZV2-LZ-G:?;QA<m
U"AY1y\A51IW<ZwO_4w<fF=uMCr*E8'$lg9cwhqZjF*x_4xbk+cA0*j?CL:rxJ>^K
U"Lxeho#]kCRO\5KbcoGjrwkEGbwqh\W0HOs\rNSPtBG%HPL7E]_xc&25qVOS>$wb
U"'/7bf\VL1:<^Y)s9sUT7DjckEDNzj'$.$+A]4>+'/VLE&8U1DN27kgbpF%#7*+U
U"X[6*2)c?$iTlE.0^]T2-[:Uo*<P1i\5n[-uQfoa*2m*k3T^sWprA;D#yBLdJqJ5
U"w9,,\&1mDqI1tDss10*Xr/-5LS+pn(V=U4iESH]I8i[k=^UA4.uQv[2XQA7b>=L
U"i-ss8/=N>R&xjhvM5&6*V2qBJIFO(lIzb7I*=[gsDcs9wZ$w#EM;r:b&HxnKhZ+
U"?itY;_<t2qE(GYgvS,gpIC.GX4pjSa.>Om;4)DiyK&Y076oEe<lYe:<xDg7ZPdr
U"Z:qer(i3*4mIBA>SRGzH(Qxq;QcqqAnl]D4BfNvbnDuE]Vd1TMz5dw*NW:uN_z5
U"zp52vaUn-FsKm5y,tGK(3n);]*QTgsi;;4MmAuMrBMhwz4:iQb]\)R#)0EwD)-N
U",Lw]^)4wr0pDj(0CBhQnuXC\Tn'w]N.0hU/S6QP9hXSVH1w\Zak_H$3)rEr^]TQ
U"ld5#r4>3s*f#fY2DKum$Vjm3c?q%0\%)=aYH+FXbY7Y^9+0LgC\&vORrBoM##c>
U"xP7].M[tOEq0>oS%oS)]]rCL(oS]lam._cx#,tDGUONnRR4?nM:GH[I:nfeR[PZ
U"m/_fZ1Dnm,?_.$AKg172?DK%6NxIGIx=[dNEF;nBfgQ0U)=dDMF[yJZt]W$+^CP
U"iWYdBBi_Htk;KYU'RT-83De8Z.V&p+wMsC+/6Wxmb[0k7R$*,ApOvfL5+aAMT^\
U"M^Paj-*91KBR.nnZB/iqKGW1vP.KX3ZmB9_v%ZqnDYF,_06'%;oLD908U3/2kU>
U"e>Nqb&v5rZ\qS3k0\'NRQ_h;GQNDqe?e5sKYSDAYa$7Bm9%6&m+:c4J;0'p[LpS
U"e>?daT6tF%-wSbZCJuUj4g:2EKetxxxN]cP>c]n,dnZ#v,z7A0SQ3,RO#0g\8mf
U"fDfQ'3Cp=aIh\8)p,U*#,^/u#^/3iJ.x54]lDRgu9tHrQMe[;\uv*qnKLrp0F2E
U"gXmu_Uku7glg7r5;TP&BHfLM;bf;(r)9&0Tk-Z7Sa#W/4C,0DMa3MTVk$Z$SUI\
U"/^DiZ#$H8$Z2Bg27%M(t+pQM>=KEB$:,3o0\Ot\IeU%1pX:1a\Vvp3Si'H8kD48
U"))R#r??i'di2sydFRW3tI*Y-_\Q,\7t6MqStn,;/[%,+&bAF(H.0CS(9Ll)&jx<
U"d9e;BkNG1jM.*JBGQeUCzI&v*T/pbz'h'1X$;Fwt4EhSW%7ll0)Nq1Z5e,]%CIu
U"4&B3#5T6bsEdBc[u_aUrMu+\u?^^Q*j3ypRU[YeE%8p0Vzv/sqr1eFgrfo]+)'Q
U"ma'5t)33cD\2oWk2>z'0AMHRi/dxSa'lW$GZVq,VwAxHW4u15-X#NHoURv.QD68
U"04WYlf6$'mvT67#09)alQ;[DsQ)4BvpMJCW0^DHIX9h&+5\t;(?Gfj(qk51?>W+
U"hmoluT^OwjXRrC\ao.G3VLHoy3R;OdZ\VAr3]_S-(G(%TMol;WuC6Ff0D0[SBmH
U"[$/j.O.9NW9e3X]#Cf<L&':Uj,(j.T?>DAhVnXki7w+oH60u7Oqh](iK&GVZD4O
U"FehZW&jd)'L]x=Kiv%+g4J[1:14N6SwFbWS6Fs+0S:?<ToBc7?cWV.TEfg<^D-Z
U"x/7D5N4FMvLjQA1+*'UJ(Bf7qvYghJa.(R_W/;gL6asfL.C4HhXIw4&vCC[g>UW
U"DMMju7LHu39rh(r12jkWcaG7(v/J/T%zJJ>p2n*HmbP3;b2H5AJC35Y.igF**tS
U";97k5r^hhFHi&*=^(=Qd1RU'BP(imbXachLW2?C(_%Uf3TRR.TleKR2QG*-)Iq5
U"00Y>KJlEin1<#+E3dLZOIK$Y_X[W0gEjWwt)Q8UEC7F$D[hE'>WfarApKu3+WRB
U"JRX:\o+z4Cub?ak=K;[Hq^rEoO\j_M:J8fm[-hOTovW/\5S/%TnFMmFJ*PlRg$X
U"<Hi)+ZC[baU*MC7oBEz7H0-e0g*4d3x%cpbB;6*X,\Z'*FmQmmJFml7SQKt5g)X
U"6*y[7at)RF_^u6G#c'm#+Ew;3KLb9#5^z%X#'=pSx:^'>M#Lu.k9s&Bl6V+D#)+
U"3_pZvH+pMFAsHcjOfD9.hHmmm[,d8Fa<4]tFr3=GQmYE;)\ETkqLswcY61a.)(Y
U"PA1z8Sv$&L9Z[Hiptrg-=*F#%GY=ue4uDW696+q,Fe'&I+EFUWeXL_os#SIotco
U"c2[QS]N=FrU7bRP^;$(j(xsM[%#edr]c^]BT0&Z.z9rMG,u<iY':hcLt?hP4%ao
U"J&t3v;nP8YEn6EYpm)fV97e/<d^mQH_HoCH_,'IN)knn^CK;.T](/1IWg0e^9&v
U"3Ng:ePrY*T3sL1w=3$7sLfGAB)glnO]:8&luiPDsd30?c'3<sWf+Q^5V<u4-Pwy
U"=W$Z#sqE7'*v386UjlSzE],v'/WMqeJQ/blA=_Q6GNYUGL4=_$=-,34i[#>(qaP
U"j^*jz##[H87x1*t#>=5#j*c<mgpArm:4V$q+_)M7%7R1BkG3UR.k#G3D.)Evf=3
'>>> Page 1 of QBANSI.ZIP ends here. Continued on next page.
