'=========================================================================== ' Subject: VB TRIGONOMETRY LIBRARY Date: 03-01-00 (12:10) ' Author: Nigel Traves Code: VBWIN ' Origin: 998053280@99.humber.ac.uk Packet: VBWIN.ABC '=========================================================================== ' Visual Basic trigonometry library DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"VBTRGLIB.ZIP",4^6:Z&=9106:?STRING$(50,177); U"%up()%9%'%R-%CD\GL2C;R0Y'%%%p2%%%l%#%%uAM>6A0AB U">5JCE%8MBD0;IExCD238>T&%g^]LT?A>M942CABTyAM86;8A1TyAD86q8&1Suij U"r.&H)>jU9o7lCxi9pVoE)wntV9j=P=e+*ghR1i%#Ob=GFn6w[&;xRz?xqReMis) U")h7wA9t#7p6ODqJH*7hwOG=4Bf)AprF/Qy7C>]gj7/CI??/2;:-pim&0W.M0rmc U"\Npr$L)$nY?^ZJkaH[^Sr&NE7a0i>(K.I1y-fc*8K/Cfe^+(FWKDi\ U"1f3Dg\QdpmS';'3H[OxU[^=iKv[eD# U"SWQx_d0$liBtGgML^F04w_QM25WYjTf3O3]'VC\u$4#17[Yk2$vjbD#on0KGA?1 U"kH+rh/5bN]<[Pu'F*fNq>0_/>nyf3HFUT&_+JMl.ER._yRN=VSZ9kr1u*d0q5%Y U"uk(5W6apwbc/w3VVzyEUu$A8)8*q9dc83iwW?6,UgWTt%gO*d7(4>#Kq,Qa3XbWxL$14Cj\edy& U"I)e9UIWEz88hNdP'CkQi]CvWax-Z>Lgg+'$P&;86rJNUi6OOD1#93Fi=qHc,;ED U"ES,GH+Sxg]dt&j/9:ON/1d=tcH77^zROkZw?,3P0;ew0fXI&5z7-=lPl'&n=zI> U"ty^Z.I?p)0\dNC??ziQ+MY50I;>v'Z%82incJ0+Y3.7k:yg:+UXVIbh&u6A)0B>D5CE%M8BD0A;ExCMD38>(T%g U"^I]T?AM>942)CBTyMA86;D81T5DAiWYKZk,]Olomysjb$A0Wb.;h(GJ74b9NX2da3/cDky8 U"3.uS5rB5VnIRQdh:8TXcA/%K.6/%#q+I%iM=I)eWHFOg:T1&$]7G#9qKuE=$5p( U"5^.V7iME+JuDg9-Y+2*GTiGV&S-*&J9F]SI-*Rw&T]7G(9+mRE=$5pS/Wj90uqW U"u2W&7ie_5pY,uMhA%.6//%FjA.76/7u(4#Ii%M=ebE=$5p?(?H-VTG0[Ec U"_5p;/AcF)]S-*^\sC[(mWuu()f5l1gSQ4'MhA.I6/aL2dU-nEevgK*^[sF7Fg:I U"'MhA.#6/KuFC[mW^u?Xc1F]S-%**U:&#IiMlqLFElI4q6R?d>2tj&aTQG0g>aBX U"K7UJKrLMxL(LU.L2K_8K>5Q^W->Yt0F*?]fil?m#pl?kk6yaTDpiQTn,a4[Cskw1;ZTQ5fD=c5nD;[tb\\\f#htvLYHN#Z:hQNlJO.[u8Tw U"FnNtwN$].C&Uz]5DS;J<'QN#6A0AB>5JC U"E%8MBD0;IExCD238>T&%g^]LT?A>M942CABTyAM86;8A1TyAM86;8J1S10PBNj* U"+t\]=kUh$qU4%28Jv)Io&co0wbPRB-reO/NgQFz-&S[wncQ=j<$8.D[m]se=_8k U"sYD1urkTp$]XCt._TCU?<*$aODPWxM0.CB?.)ll9,V$4Z#x*R8BC6Uq--tPd:8i U"f6C/en]Ad6%I$f-[AD&J8Y3V/mJ*,L,\T1ixNWX?p?bZlZYK%a^hr%34C(-pVkFZu7neHInb/tV U"'P7Qwq0>Eitt/L?Q*N-4Q]B?wji%>o84k^9KfbGmAwo63Aoev8,e%bH<3s4ixE)JHip%dY96Rwg U"#JmlwpbBB[tGs<-&[>7C#8R_p6G8?p]7[n%/_Yc-h78tQMZ2P)182giaKhKw:;A U"V6y5Jo?0,Mr1\9XB%>AzY>XQLrAFM\88d[bhBf$1X^n=E#FYc7__:shIoc&-Jo/ U">Tp$wyBnF_1HaKmhi,Wb)txC2Z1*$QaUgV3aEGcs25Pa4bg&4/QFAuH U"Q[6d=tn4Oh)CxB'^g($SO-T[08aoG/:s4[+IOxXcTUJ0[mKf'f_TBDF8L'#nX1C U"JhpA&KPt1(7tW:z6#[hL_RT_oqPG9pTI^v5CVms>xisqERBL$At]2>R-^rXq)$j U"cLZ6A2.vJkf7%ib^V0'OiurbKHxOB>'C8yKgoGfrFlU0fwn.q6Li]m(pAlr_yL8 U"(L8Kr##W2F6lqWEm-6Ca2Vi-BmkS%&6_bXs(>_Z.)cv0cqP6f=kG3dPY([nCL$G U",K85'BD1q9^X_OtNV*Fbs,1Q+)KV0hTv)PKGQ6OsYa\9guuR+L7'q/GGS U"TB8>)8qibnhEtabg%T:C7IMNH49Jl1>T/6G(tc5,TdP[^m;]d^;vT/h[nN;dXo> U"=OO7fZnHGu/gxOZ^57)KiSs2r= U"]..C0-9h=O5tlE6UC0eNRrpYoZG%q+02jdxTJ6;qHvkTD*IDG(<4jK]8)+9$pt$ U"K/D/3I3&T?77VK71H U"a&m>Z4;QGof'cPJUSWTEQR5PbQ5_NYuRuObq\_d*S.T1h^jul7Yf,1%kNLsP.Gg U":F%EKtfq(j#uO-bKuU-LRT3*bxsbjYIPk[n[m?Fc]qOokvC>1NpYxB?mFa>Q5^^25.D/aY$0/Y#JmLLRru$(Y(M?%9Q$9S6k+o931[KI U"IqJ\R>;2s:kkA[sUgnb7DjD'L-z(5>77^C U"A022])^C8sFT:;al#c>>=0aS#oZNtY&T/aq:%U7_aZ?VK?oh7E;=;FNbb;$\vBk U"bIJTPg%GoyZE?cM*[8z2Sar$sfVD.6/TLR\d'gmOFE-?QdR>H(&28p)]oEO^.Ag U"RC>bds?ieeDG,HOEw+QDq:EbJU1Qu^ODNN1]<$G&pq2CRy#v;)c(>Zcu.EDRg[- U"BmVhD0RzGZo'8OAiDquBFsd#6L$C7T;hqUv-VG),pyMXXkd:hUQ&l66fhl<8h:H&6,a))OLJdeiv\1Rg>0 U"u3fCTZfsPz+ctc/*OQ(+L$#pZ(i;,o7\*L]x7I$gr_wXp59R89gbl5G8orJlCcq U"_zHt\LTaLgIIon797naM6A0MB>5CLE%8B2D0;ELxCD3D8>T%%g^]TM?A>9M42CBI U"TyA8M6;81ITyA8J6q81LS82>?VM*s##f5OlZ*W-)CWKRTAzsH7%wq:>+KgPQ1=4 U"-/0$YMGYk/88+lp-Ufq8,*f%Avg5bNOnYU==q,YUru$ru2m\ll* U"A*WcX:hhUVb\mP*8$vY2/l(cOvJd?noFt(c;[#Kcdq[jsRZDhspfDcspaD^sp\DYXRpoIjP6Vd U"8qd7dVafhtMI(-QZX'ha9-BOPX52:&bK:,%c)='l6n1Flr&+s U"tte.3douL]\njZ82xLj*NXm8e(,EKRtGpQY\VfMLmfXrZ U"M[NU&r_%BR]$TZ,H6U9G'UCx$.C[u+=Re*2cg_d+x$a+B#Y;?npUrtg8Y<2D24N U"Wg7iCmK.ka6R.Q//F6A0AB>5JCE%8MBD0;IExCD238>T&%g^]LT?A>M942CABTy U"AM86;8J1T5AJB[]5Ou8(-x]:oJ'_dIMZ_ttLjkp U"IEDG,Xy75&pxW<:ON5sH#b;?vs,8+7T5gV7/T,XJSf=6fj3a/Mam]ZGl^230BN, U"rc4Lu3stTkoQ*H&0k:p81UsbC$>r#UKhF^P*(.%%#Rg,W>ERUf^e+rw90/9D2&G U"U+BY'hV8[':[AkWq+^5,gI)'w(R%)0O\=M U"<^8fv[SGvvnF;pn^fsM_1kT,eH2'K2F80'ZZ*aG06$e=727hH;Ub3a;2$7fMKN. U"pRs1XD>+bdKP3k*32kYr\oo6pSVY6rw,+1NJic%54,H#PiO+kqFlF,$)NgS=EqL U":1hP#,2h?^fLiV=Yk.B3X'V:qldo39(0uch:F;dU'[gJFA4iwPB7,oubW+^1*[R U"6P15]R89-W]b[afCp9b4im01.UGuX>x&*A*:jeobUM%hq8UYdshA=)[sxLxdGAf U"rQA)GZO4FDGD=C>1kK)W4[[&l=?cqkrj):^pF527NO3sOU/E%q^y^ekbNdL,b1X U"buQhiGQE-I(ppWL<0LCin(E\,inVG7-;p2t3j9\:AR+x)K$4)js4sZ&>##PYfop U"s#dX&TEvJwj5OQHXBFN]oJ.Q+JQ10__SOTCoPuJH:+tYQ'uCKj]XaJ+A-tIY-zv U"Jx5%zj7;s1Y&.c)9nw]$,bNn-2*6x-RdGHF[=Ehi3]0F)a_g#[SR+'K9P3[:cx< U"n\%f/ahK#lxK\zbn[-teY86W:\/o505,cYVm>%$e.adGsfD-L3Po1KoZAS3Xwj< U"AcCVNbx3zO0>%3^0B)OCBftp:E=#qem$G]UsGGp_EV4Nk2Ym8qL^ZZ35/Jt2XPh U">9SieIJc6>yLxKZs5a\ U"U_LKy>?ILo:AYmixl<,O6eHcF U".6*Ple]#.i6=r2tnV(BvJu+pS(>c6##)4:]wYA?=e$-dcDMR?ETPWun U"GOWDSRQCKA^j#742s8Q,8TDU;EW[3vbpT9*Ztia'cWClVr&,Y<==j<#y)ED=FEF U"j7E9%$ShHCi^jH-PhL:I,\'y6qsTPGsq2A$4HX^1hgf[u8DdZ%v]O<8GGe.F4_S U"hJCQ:eTsETI5[k%GHYloP&t$_;PT5P%LM*?RXTuB3]'>#ImdyVQa)_&a&\f4Gi%02-X]HR#UfnE[t2iO8Zx$WDu_#91 U"_scu\Umy7k80Ku9_e?12XZZxdT(aC)7U5(]WWw4ZxKm/97$C.0'jqBRcUB30pMplPPE)lSZBi\Ts906A)0B U">D5CE%M8BD0A;ExCMD38>(T%g^I]T?AM>942)CBTyMA86;)81Ty2A86qD81SE21 U"?rFG2)S^L=n^;SA')WWXG189Hs+OrQS]lXpI'(yOuiLgdAnE-uQ:V U"R>iXo8yv$Zgwh3Kc,b/u[t403XvGBVe6jMtDU1/9r4l2Ec5F?*'Vr U"K.AzR'd&q0FFJUs.#fDsO$=+pB#zn)EMsHJ[YUG.A2?A#9JIfNo<:Z]ZfYbo#P% U"u(j:RgiXTOgnDFebCT'>$49eT5z;8O)^+7n/_-1KITRb U"a$oEL1:b6[Mg3giZZ_E-(3q]Ue0>U$'1uuW)pg$%['JUR5TG=_ks;?R;B:Vj8;$ U"1)nx$.hZ6.I?PDgR0m>\S*#=(VyJJr-.,t]c'8*=J5^:I6G4xOhskH*NNpT0HdW U"2=GG_bR065sF:v')-62A0B2>5 U"CEM%8BD)0;ExMCD38/>T%g#^]T?MA>9422CBTLyA862;81TLyA861q81S2E1Fp+ U"PC2NoCqpB%q/nR7Sv)z7UVJ&J2HB2.B*2h#HB*6%B*(B[*hEHBM1M6a%]]l/AfD U"^N$vs1oN:>D%*%up%()9%%'%-%*&3kMa2X(P%T(%%%T:%%%l%%%LuA>62A0B2>5CEM%8BD)0;ExMCD38/>T%g#^]T?MA>9422CBTLyA862;81T U"LyA861q81ShAC5NbfXtTmU5#pY[=x?>>)&y)8v.I/mO/#a78it\gqmueksalKMK5x/nA U"_m7aDt.L_$n-?A4s[Rs8181&UT3c8C7J0IAq57.51N%9&wDJ7?eB'\P5Or=,.Zo U"9oe>e&U.Yba-ISAb=IQ[6]1-#1<0EPChzHg9K7e(-UUsS-9GuHA?(wPpi[9K6(K U"BK^]lt,o>&I?iJqo+6=Ku%J2jg_X.:^c]/QXLh;MVS;M5+L(pojB>+/(]7Pn-oC U"Y6;:LPgtzA%9WJNLvTBp8D-YIn)I[)H($sOF;mB2>d U"VErh*3dlm8;.izj4Szl40LO*EP<]JPR(N/$EF?#c^qGlIP1OS'.Jp;()]T>>Nc] U"lf&DbRaHCriIQ\b?/>A_k_Xhh85:*f[p5>KG&NBlbtF[7us*eitd=a^KE%j4d>A U"kB1xGf(a]KAs?Xh=V4BI)aHzKb]gS4H1%[K?64eZ]UO1nku:XPipYTF,?,/#Ro6 U";i4Vm9kac%OJp6[''_Az08\Epsg7z3K[qP;t8WINpIPBRj)LyV,yr>D U"R(iS=?PP83]GOZ+R=u/SXt'm62A0B2>5CEM%8BD)0;ExMCD3 U"8/>T%g#^]T?MA>9422CBTLyA862;81TLyA861q81S%uiru%p&'9%%9%'#%-%fA1 U"kMwmBYPD['%%C%-%%s%%%%%%%%%%[%E%/&Pj(%I%uA>M6A0 U"MB>5CLE%8B2D0;ELxCD3D8>T%%g^]TM?A>9M42CBITyA8M6;81LT5AM6A0MB>5CLE%8B2D0;ELxCD3D8>T%%g^]TM?A> U"9M42CBITyA8M6;81ITyA8M6;81LS10B%up&'%9%9%%'%-%7%%]EB[Gai'9'%%'7 U"-%%%l%%%%%%%%%%%E%6A0AB>5JCE%8MBD0; U"IExCD238>T&%g^]LT?A>M942CABTyAM86;8A1TyAD86q8J1S82&>up&%'9%9%%' U"%-1%f1kCMCyh(6A)0B>D5CE%M8BD0A;ExCMD38>(T%g^I]T?AM>942)CBTyMA86;D81T5DA%%uMA>6A)0B>D5CE%M8BD0A;ExCMD38>(T%g^ U"I]T?AM>942)CBTyMA86;)81Ty2A86qD81SE)1?up%&'9%%9%'%I-%R2IkMKF+?w U"d%.%%+%%%%l%%%%%%%%%&%RE%/P&]#%%LuA>62A0B2>5CEM U"%8BD)0;ExMCD38/>T%g#^]T?MA>9422CBTLyA862;81TLyA861q81S2E1Fu%p&' U"9%%9%'[%-%&&3kM29X(PT%(%%T%:%%l%%%%%%%%%&[%E%/&PWA%I%uA>M6A0MB>5CLE%8B2D0;ELxCD3D8>T%%g^]TM?A>9M42CBITyA8M6;81 U"ITyA8J6q81LSAC5%up*+%%%%%%-%-%'/(%%'?D%%%%% END SUB CLOSE:IF S=233AND 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