'=========================================================================== ' Subject: TRANSCENDENTAL FUNCTIONS FOR PB Date: 01-17-97 (17:33) ' Author: Erika Schulze & Gunther Ilzig Code: PB ' Origin: 100775.2275@CompuServe.Com Packet: ALGOR.ABC '=========================================================================== ' Run/load under PowerBASIC to extract TRANS387.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TRANS387.ZIP",4^6:Z&=7442:?STRING$(50,177); U"%up()%9%%%[-%f0.VG.e6E7S+%%%I1%%%/%%%%wj%firj%SVxyD,%n>]\];7j#I U"0'hLIV?B-(]yCQd]dT:%f;Fzgn;%HsKZJB=Oe2n<]N'Kronqk.XX:Ht=z(fpIxS U"+C8\)K'VRi-0I1gD[u#t6vu8]<.:GS%oT?qmD+Gn0spPqRz4dfria'?VFRZ7CT>o=jp.]_*'wp+= U"^+nC-FcoETW&5?,Bg6dH,Xww_6'cd1Q9*i2wW%/BlMa(WFtG9/tu2p'0QFJP*)d U"OfQ-Jl?%,:CRpkRPu3d%X1gQr U"H)J\eb%Ir,R\,TLtkNGn3%0T?:OG3XGz(2I#MBtw/*_,zj9m#d2l&f\L7$(]Nrd U"N8ksqhun][p)F'K]H6MAEqnDN) U"J(lTo9jSv-F]v],%Ho#7ZXu3d&JJKmtSTZ7Q-Tu#8rSWA=Clf=40;*HeQub&TalOv7>_hKi_GfsfbJLX/po6Swa4 U"x>0;s&c?,KT8o0+3)3d4UYI63=BTS(&470DpuT2G-J]CpcG+%=;eFn#yJ?3AJ]Y U"8]:[QB8Y]9^.$_faPCfu$AO'7MZuoT1/o*c3:tdmRvKVG%SYQm'VM)9^vjo5+G_ U"hd#f2#H\%USap.JrXBW>WI$_dqV93Pa\dY$7eE-NoC-*&]SL-Q(T[RzSSb,;VdD U"K7/2%\7#.X3cwg&$D../OIO&B[uyTCe#w4S)A.TtLQSgXHN9Ah?u]l-NAMH4?rk U"D[mJC;q&1Ngj0)(2%r0MKGHpf2.(.w0.8VopUMi?jpofs&/XFPY]dI'a#l/?sFj U"WdLe_^bdb5.[Now3B4O6IQzBZXE)+E_'7NgVs[Y:=Ej62reoT.rqqVwg(xJU'oW U";9CNH?6a>'fqzXC>IB*ejtA7=^Eo.3_eHC<(#7\KJM<6i,Ig][M:*gIcG4o?[Gm U"Dq)6dq(fpY>iLsIRDY%ms^F9_g71i4pb5CS_)RYKjT+;EKB#?5vxTO-wI62]_en U"dRZ)*:$;8([Q]eGu<('b#\gIBJgN6_Jq\hR9-?30&:4k,p5r,F3is7S(q- U"lL=zEZ-[FYIv;upj$$48P+Z,hIaJ%i^ycci0>/T9#wlsN]1:)uj)P;bBhY*?$jm U"X5u77?%rfD[;KZ6M=Y]oK%M3M2+X1dvXme'o[4FCdS&Ag?1#dZHpZ#wB6$UA38V U"kl=J-KIGP$:AYZiNFq#?9w0etFCOA2P=Ze>;5$*G1J;[Wr\< U"TDVLqK_??9(pz.\8e*i[&6WGX+FdI0mh=)t]HmF>gNd-*-gN.te8N7T$+0[sVcF U"/3Y6GcDTb9?d\45/:Va\vlRe\X0&-*A\1Sl^0]WI+;;N.OaDB'r9Ejic2R4.ttg U"%_KG6i<.JA^fA&CtLZ1R=S$DkK213Z6;G);g^FA>-9pE/=_euh), U"#*'+H4lk0WX/0ZcS#$]e]pQUXGx%*&f,)V<%W1O9^O*qMfT:ci'7)%P9le]Pj(W U"Khh87W7Y;6AssHbi+o^O#jC+JK*Cn+Js(+zkm2)D20<8%_&BoGt$qvhL&RDIae8)g U"+F3dBPeuFrsmTX^X8c.s,NlBw-xu=-iJ3,6fD5U$r<*(.B3+lhuV\0MP0skGUL( U"Vi]C\q\=b;itHRM\i]\8k.8j+bFK_0/2;xfFgb26&,1GIgHu\9u;KB];Sy,Tr4C U"MD7mCe?;0i4oi2wLO0#TxBUjYDAgB)F)H.J*HJL&(V#r$2DM.6_H\JQ> U"bO#./-nf&_UV.EMAJ9Xd_rWoJMsb?'E=:za.S::aI U"JwT^f3coAk^*'mw=fUJp]PE1.l4]%X2+I%/BfxmrGl,Rl.-ds/S6dSfTIja5[2[ U"jdN+c80_Dt+HJRMDqHqdZh=QJDQ'<+X$;*&4RGM-/;f=lt&7SY?bX+.J?iHv+80J?j8P#rmzy_Znoxx U"*dc,OuSOg8,>lMbJ4F_p2+IXp'SJxobr.JB9.=:4F3SbfQLF;TsP6RbfsqO*mSa U"gLCfj'\M5]X^?b+.kxneC6V$k>eSfJ+ah0XMZvI[zA?Pyw\t2397P'wRYkgj*So U"Zx\X%h=l3e27S,?CXZ$[9_)lW=>S>zo+>it2AG]?H'_V6%7F[4&pp]dG(wxS(+z U"=__.jxa#$/^&%5yfn:(z3mGru3zU8=bNRWye0*a1QgO(d6B1g0PX&+u*0/=Z:3J U"RVpGf66eRtgKH;xD>ZNM*1:gsw];bFMq4&+K4#vG U"Cn0y)C.ssdz=j(mAKTZE-ECflqu;GN\oP()luKjdjDqfICkP\K)*aDo8'.:8&ni U"e3r,NZGlhRp.>;80C\jVE*Hs:d+c6q^63U)x\t#9l U"KLTF[KK\bViVE;iLI0?x,+niAVVGYZh)eB+9SH0QH9)hww1M^q?_j<]o&H=iUt3 U",$v>t5*UtNj1GRZX\FA+.NG&:Z]IKt U"?oi)3;seSKC0SHjel7#^\)H&+39>lE$\?E?Da[8RhAO_ter(>[v:H(*iwoFXKNGSJbV%8y:: U"lL,<#Mqq-B&5#jj7:G&9U:fR8ps+U*&wmUSoDwciPosE3I?Pr,B&4:JO[2jyuIf U"'-G:Y-w,JQ/W9thFrbI* U"g*xkY[)'>JNMx)#Q]](O$D;\=qtKR=;?+T*/$SZfC3\HuP84k-jxD2GH&x&,CV1 U"7bqf1P$eAyb+l6Fh4ykH#6:x4pj]q=+5DnVf-1AA^jU;6&J:5iW/r3k?i>J)0kb U"R?d;iZRb0_+5i3Bs4HWkfW/JCFdAD14&Sdb\#a_0SpzOqj:Z93D],o__2*0ag-YvQq2R U"^QNQuSn0-5^'9m8+V#['DqGHL^JL4k4J?fGZdBJ#=U7\-7Jq.11f8kH_/8zZA6.V>zB;-W85s'RhC=PARGFT3o-ZvgpRSSUR(Z*15>Ht*N)'J('NOMq.LwHq.ZNI(P(Q4Ot U"W7ySqgsVPV.Go6#;lJFF^oeXnXv<+$]Xy3JK.7tS(fyMnc-V$Om%2_HYTR.Fp%n U"6u?wDUArN%'27w(foHHRDUVE(//&B]Kka[c..cq.C+VetKdWTc,H[A7M7KwwhFN4wa*JSJ5a'B/bg%#5R'ZKEX U"O$$0sr?=9;rQkgoOIR.NtySq;3>+UiPzfVXu*47sYydO4*]l[Mxv/H5r%u&gF_Z/<>LGudbB_PUZcsuA_Z[gsaX?*YR8pxG/NF)3Z U"KS_(_)FU]o#D#h)y4oB6he\Ywo2*?RxLT)GDHNkQM+.t2g0sO;iGFhXNjWP6[s: U"'hg:oJCLV#y7iSGgW6acrS'i)OUlo0bOu(20t>lmFXhluFFZ6%Uy\Qsp?l1PdYD U"-lrw6[3=#I#?SSs'D:f7_5eUxM2q&KHB>4mu>DvJ93t.KlshpLSy[S?oIE-\B,J U"?vLLW&HN4P7KKf#Jc94)#n=eT=m(4EqW0*gia0nRna[l U"CsYF5RUU.>bg2'g+e6saXCfC$7^UmC:4E4[MsZ2E^ZR7X8G%_5Zm5AP8EggN[\p U"V:eS[84f_[b>[kBq*c?qfjxUk16oxKSW,?Ywu5nc892\FjuZ:N>G)aTYQVH[FZ) U"nPIop.C2Fgr[bEBSyD,xO\&(TQ7-.]6vd7[$N&l-4NJ0mVF^C;F3^:-a-sUHF3R U"Ukzj.j(s,8xw?;&xTp U"wgp1./kWv0mocNS)r,g7mI8lCM_OtfVM[7F+95Y])7BE.\vK/$]3BStRr3Pw>;,A*[/iT+fcJKVIgC*.\Z U"8Hd1=s^Wl3_+Nu&&NsVv(O5s8%Gf_e(3%,/On'%rk;a^)d,uI1)mi)oft(+KUt? U"6U&o&AK0?AB4Ix;vRi-#B9m99kil2oy1neL3r0UrHzZWZc+:wD#)]Gt(g#IeC'B U"Pl/6$E#mTWEf1q40/Bt7o#0v#fS\)XufnylXOt*1;hwoa-oOB9=FnLqM4RQ04Ii U"t;,_\I+)Cuv?;Ol/OKOX0$IQ-v>*4SgUl>YUTEge6a#(vAVIDR[kG7Q>4lEFyFy U"G_f0N&t,GiCGVOH;UVB9_8ULV[NrtOwAp>Ti;O1;Lfo?0qi?CoH9E;Sh^kq'Y7 U" U"+uwog32KFjTVe=DpZ?F+PcbZgIrEd>9/+DJSt=Oi;G3GG.,ql:j?>o'5.4c*WzJby\r6JPF$Iu,(PIAC]0KmGrm58jq U"/E>TcEVhJCD*2cSf0hf2\9([t7>8Qo6Mez7pmZQcT=R'k<.[G'OiDl_I4l9bXg3 U"Z6RU\Fk'H)BTAaHai)JP8DJNNoJw2Uj.Vb+$n*^tfM1A];R_LRZ3Q=#0<>f#y>K U"063G&/7SjR(M,,S)LSb+2(a U"'h/9qGPIQYh6PgV6i1h[Xj-e)v8U;^G5wf#x.:OGk*xjLO+KSilv5Fdc_c_^6B< U"=iJ*T8:xc*_fVRq+#js'gRg>\V<9C,Hhr'x\MA7V+IXjHGY.RisGoG;ipjd+j9& U"a2neb?DsAr8%u;lh>?FYqE%2aJd,jgK*'QFxY+]W=[QbQq0T5vT0DUPrvou4vjhNWqP7S^tfIB)h4i=Dumm?5:',&lwS[Y(jW U"B*pJOgP81B..F1U31yq%#,QfZ-Gu\P\%8&)AKo(W0/mIfm??ni=Ic9m^lw[V6bW U"s58)k;M1PZtRsAbMN^)-ad/?12Vb$/oB-oI$J'<;P'1eMAR/;38whcPW./QNKnZ U"SWh_>4DtqRlEW0hGuH,C_]p8oswIf^hZT1ri'C&A=) U"OM:FdNfSnI1*L'+3vY_clt;c8k=%6Ba7O37&%AoI\S.pQ+6_Jok'TRwR6JeGn6j U"\msIb-Y&N_umkMvR7e^[\opjrvR?qodJr6)>T'sajF2X1>#,\x,u%p()9%%%%-7 U"%p0V(Gg,<-;w%%(%T)%%%1%%%%ywf%sxX]%\Sns4h&bf,:;U9c#H;s%BCOy:fEj U"UIT$C,2T9\ha$Qnago)R^gji;lc\HuP2(es,GL#?U6(oj>Yd$jT8:bd[14EpF9Gt_$,aOcIJ11NX8;u\7)n-K U"1U.<>d3+ri%b>PoF&rL5Ma#Sk&&E=wIRJ$jk4187JlahI%;f5KSu6cMO[[4+*Na7*.-0fy$mxtJNmxL%0bI^PxE U"'d8tr6_xV'44RB;m]_g;CFKg-*^KJ&Q&OQgupot,MGDu%p()9%%%%-7%p0VXG+T U"B*Lb&%(%s'%%%1%%%%ywf%sxX]%\StgUo:Y2'YNNo]EP[/+UPpQ?GNfuM///_%. U"NRo3C&?Q7SsFr'CnRw%u-pRsOGEH7xUJXbkRF;ZYi+v%Lo6j)6A,X4uQ6?%8(h+ U"kW2?C[Y6+W\_El8h/oYq45PW51;6N<$Pg>eR1C_[jqE[0bvjU)H?4]UO]+OW%hE U".+.+;%k*w8A18;Sgf$wp&V$,'=Q'wXjtNY0//;3Dl2com(3fhF[dfeD1Fc9)/:I U"2;5/911\_1_VsWaUmF1-:L>=Y1ZU/B8O+U\K]\=LTOP0^+[#YOD7\PRfC?De\-G U"?c9i(?:2#mx)2/]YSP#A4Y#ln#2&135YVluG%>>y$&'=A;IVs+/uFAA9s5Sv_mm U"ATfr#90nY>wdM1?JY*Fjadu U"Hw;TH.7n)S4ae7>$T$_'iT^>dtwVO6Zrj_PqjNg57)Os%pyMi_cX4\\c[^fcI^u U"[JGDhIudoYF7[*Nil-JF\mYQL3O)xx)%%up&'%9%9%%%%-%+f0VGn.eE7&S+%%% U"I1%%%/%%%%%%%%%&%E%%%%%%%%%wj%firj%SVxy%up&'%9%9%%%%-%+f0VG8T&s U"]&k.%%($.%%%1%%%%%%%%%&%E%7%%%+%%%yw%fsxX%]\Sf%xrup%&'9%%9%%%d- U"%00RVG<[/O1*-.%%.I%%%1%%%%%%%%%&%%E%%%&A5%%%ywfs%xX]\%Sgfx%up&' U"%9%9%%%%-%+p0VG\g,<;'w%%%&T)%%%1%%%%%%%%%&%E%7%%p=%%%yw%fsxX%]\ U"Sn%shup%&'9%%9%%%[-%p0mVG+T5BLb&.%%s'%%%1%%%%%%%%%%%%E%%%%D?%%% U"ywfs%xX]\%Stgo%up*+%%%%%%*%*%%E&%%'U#%%%%% END SUB CLOSE:IF S=247AND 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