'===========================================================================
' Subject: Ansi Routines Part 3               Date: 05-01-01 (  :  )       
'  Author: Antoni Gual                        Code: QB                     
'  Origin: agual@eic,ictnet.es              Packet: ANSI.ABC
'===========================================================================
'>>> Page 3 of QBANSI.ZIP begins here.
U"[)/>QrI:BO/s-infPq':r6]9.d::#)-Zv>m6E[<KPjN,?s)t9cu=6AB2p_PE;\l
U"F2N^AE[tg]+#UXQvc^']0EDuusUqBa,a>.62EW*;Svk,_(2\DyK>AZi\/LN6btV
U"c$T-3[mnE5XiRifqJTk#50vfiooFB#kBP3NfEr(F8dIO\UFNV9Uy1k=:%62CR4q
U"<RzcbE>KM,9E2i=/N4[<)Tj/>:^z.#SrcsKXp5#pZ&lkT8d=;vL*0Fup%()9%%'
U"%-%6m'uOb,9-W&h'%%'^+%%%/%%%%vgfs%xnSf7sx&z<F=Sea57lCL8?h2RG:PU
U"TKM[_)Qp2z/O9ry1:v\>WiywpiWtS0DYc#X0MCAE#,dejgmHdGEsV]\7wFK^,',
U"X$lXEMt'*9+,eJs0iFkp/RuK#;9LMhTP\-R#W2<;f%IP,A$23HhKP2$AJbZc2lH
U"ooKYeqIEl'=n&;dnQY'$M1z2eOQxeT_O<^B0L%ZkKH+^HVV(;3'vYQ\e9uggWY%
U"*W-Ar&PzQ(3[xunO&MZlw\(W.e<wm_t[u8Lv=Q,izJiq1y9)gu?QNkmFr;LB?j-
U".]NF'_4p;5h&;A[h[#912;3p6LqGh#UpO7h46xR1f[h;SIV7F,j9>HFsA9071K3
U":DuE*:[uh$Z]/?<<brMu4e^DnrP\f&KfR1fug3]vpS-8QPM=yHl95O#5eAwoX>,
U"T='P_2]h9DiIsbg03dB0E3_lrTiex3>-]CSa*hcsZ;Po%&xWHHSwN5&\JF:F.bG
U"]HaSC8q-gTd'pWRt&UV1z]KVE.<9Q4,75r)g\U/XgNZ(rakr=]/+rDm)>90UNf)
U"embdntU6Fj0ic;tJ=BGZP'GzDI^R;%VY-fRp+(s&)d8nVW1:aT7)5+_E#BSW0XN
U">*GR%5aq2,+Z5^>S#i9*;mX?[bo4\jb]'Wn9f5Z8R,E([e19p#6bO*H[kdI(hf]
U")O/)CH0<eo#B5Nv1M6YE$T0F,CJUgRF3[5V&:W)h#SKSjP68;aGt3-QU^0gc%)?
U"wH3Hr:K*AYOU*mNe<74Xak\QPCVu\?]xGKr8?]vP,&tm/lxJ//8njCBAR?d$G^&
U"2'a[^ig/gV^ph/UH3,&Ms02N081bUX=<b+6>&/I*N2l?LwN9d+o\4u%p()9%%'%
U"-L%Vi':Hj67&YM(%(%A0%%%/%%%%lzn%yfwS#fsx\ke8=TmU5?p('L'TDKP%q*]
U"'[WA9._D%2a9jDj$2_4Yh4eA*;$U&.GFJK7lUq8Faw^(wA7*f*Ja[up\#\Sl<T4
U"nt;TsET1Pjt=*&'g?x[O)Z<0tikyxM:8C4S?nH0=WcT*\L?,*ZbrUublg)6q's*
U"CPj=au=n#p1*\-)?Oh+q]c)0sm21Pkt92JA<s25L%*n=[Qb)-a#d7S3,f1)fkyZ
U"ui1ytoLKt%vkX>UNbGY8%KN4V$ed-g>boO(hx^ZJ?jY2&GdO/r1?mdrwG5a(T]g
U"AY.ptLuxS\P\xdBoYto9s0nL+R_%:2LFc5A-'Yhado<Lu<HlZ>j.tT11P:Nh/RE
U"[,psXVFBear=k#KD[ACV)E0dL<gJ2-]q(]0OXAtWVGJ([dLE'*P]RI8$[n^iL4J
U"O'0^NJ,=[i,,hj<dR*u3/Cx0%1\<WVX>G?OD+[/?'qN#pdP+NA]Mrg4W2J5FS;.
U"D<W<7;Qce5xQ^(,U8Y?C?PN?r58ICluXq<WQ9TvV/m_/F.4o4xc$,nX4S=vFf^)
U"$XevLN1tmk%nLh\n.C(LUOi;=/hV30r[lNqD;QdKdiEL)JN0r]dmZi7XCfJ1VAp
U"z4L_=jstW2)^NBid:m39HJ(,N9S()9?)Uoz_?2Yndhet)9rlynn8Qg2Sl,55s(Q
U"1/T(c6keMq('w+zcRY45_yPdx+i-.q>2wFK-:(g)4ClsCrjai)2GqcnoKY[4&S4
U"4G\q4L7*#l[zQ27BCW/eMyb*B7e8<]I>$Ac0wW^gIhE<Y+IfvhLjefbGYEf6j2\
U"e^R$n4wS\2#O[7mm0FcIuaZOHD\cX=-/^1/VUH&q-[9mRTvAKY;M'd=bq(e'MVq
U"[IV>&+J/nk25w.OM<Bl0GyDqg)ctiTK[?dOCKxj;474VMhsBW6[1HHLAYtZ-vU.
U"b2MA[PeJSX_K*ZsKe3L[ik,('tASUTX\o?gN#;IzMCA;uT*30h6</UdSqb=cYN.
U"P+h7fU7T/XYhmtiFqK[&L>f,cWG1]:Xp.*QV*56DWNu%p()9%%%%-X%(+u1O*0_
U")z['%(%D)%%%/%%I%v102=B8S2CGCz4yJ=8.V5Kdlbw0l:)Wmm76*:8&8pF7=g&
U";4a]7rGbyHc5T7ArJ25L8znsM2=lWRhRfRa+(_N<\FNnI*&a#crD&c$LYDsGmue
U"vA8#h3EmnQjaGq<a*KG[W&4T/j2mw>=-W*'dlemrehq(9b,Hg0t9JWmY=tA5h[m
U"cu&WKY&;C8s=\M?NWqWO<_,hqLdYZ#E7xq7*])Y[oIe,MM%JXj<6aZic^Y&pS2\
U"h+KHb[--n81$<lD_aU/ms#IHMpAA&,&:aB50qP(rQwuQFapsZmDWH)=7x%6mtb0
U"5blmg0E)[B,nM/*#z(/)4A+Zf2et,d^ouvq1>$SbBTAxRustT&ICKHq&;$83sqT
U"nfFR]&H9cq_HOLKzPi2dqwBp0c6)n4[?>?tJxT[vCoL7CQdD_$TD5D*u1inl9eb
U"p<.Ts-[Rn_[Zr2&#S&k1s]^S+AMk>E&46FY3+?J+%;+zqs2A/?<.3O5bF,hH(Pg
U"FqjnX/S)/g>4/kNc[2KfsHUk+UXj)Np>kTH,AFTRJCw-'f8b.[2DMMK[JcaYI2g
U"7FOJnp\R+ROC5d\1p'n+=I^AkhU?-?L5p57d9BHGlxH&#OX5rOs-eoF.rH(8BE[
END SUB
SUB V2
U"*/j$.6uM*T:n,Mz)h?.N;iu+Ua**):m),H1CJ_<j#G+&b,n0%p5uDtP:E);FJ],
U"gyWS,DUY+Z>Ndku&5i=e6OsW);gsfql#3NYE(K?8*mtf_W,X66'IB*R,(2c,qD)
U"#g<ZZ;?G/+r*$B)ECCcYi25o<FMwd990RsWAPianU>-'91\GxfH0\/M)h2?Em,n
U"is(W8+',2Y+]G2yKZN4pz-N^du%p&'9%%9%'#%-%T$7uO)Q0=k?%#%%^&.%%/%%
U"%%%%%%%&[%E%/&P%%%%%vgf2=B8S210Bu%p&'9%%9%'#%-%V,emKtAR5TS[(%%B
U"%5%%1%%%%%%%%%%[%E%/)Pg#%%%tzy%Rlnw%qSfs%xup&%'9%9%%'%-X%m'u:O,
U"9-*Wh'%+%^+%%%/%%%%%%%%%&%E4%/Pk%D%%v%gfsx%nSfs%xup&%'9%9%%'%-L
U"%Vi':Hj67&YM(%(%A0%%%/%%%%%%%%%%%E4%/P,%G%%l%znyf%wSfs%xup&%'9%
U"9%%%%-X%(+u1O*0_)z['%(%D)%%%/%%%%%%%%%&%EO%/P&%J%%vM10=BJ8SCG&C
U"up*%+%%%%%*%*%%?&%%%0M%%%%%
END SUB
V2
CLOSE:IF S=103AND B&=10555THEN?" :) 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\10555,219);:END SUB
'>>> Page 3 of QBANSI.ZIP ends here. Last page. TCHK:103
