'===========================================================================
' 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+Gn0spPqRz4d<u?seQqTv9AthA
U"eVD]k^VpRb,HsC9+Bf0K<pnT9^<E;BM?4%N7h2]F?/+1uWk5Gt,kpkyKuGK?4ht
U"&4OZr5LBO]3;62nB0yKL\d#Q+L#KojlTJ?FwHj?NmB_C47g8GZcjH$508+lM,ml
U"Gkaj&1PYrMXyCGd4l\+,^QtporZk%DR_=bd0&Y2Q.^tSb%Z2bG0?A[kGMV=,faO
U"DJ:JMja#Lg&(Avy:Jr&[%8]i1'I\x3qVuB\>fria'?VFRZ7CT>o=jp.]_*'wp+=
U"^+nC-FcoETW&5?,Bg6dH,Xww_6'cd1Q9*i2wW%/BlMa(WFtG9/tu2p'0QFJP*)d
U"OfQ-Jl?%,:CRpkRPu3<J]*jP%5\\DDi<3fcu+K1]-p$h\P3KHOvPU1Z>d%X1gQr
U"H)J\eb%Ir,R\,TLtkNGn3%0T?:OG3XGz(2I#MBtw/*_,zj9m#d2l&f\L7$(]Nrd
U"N8ksqhun][p)F'K]H6MAEqnDN<k<15co%uFdk9a/5*1A(2x/$%dZ9_<o(\0\#&y
U"di,K#O8Hp;CYLB-5l1J*U)=Hf.*eTz<j3L;J2_Q6,QGdi&8a/E_QTXO++S?-C>)
U"J(lTo9jSv-F]v],%Ho#7ZXu3d&JJKmtSTZ7Q-Tu#8rSWA=Clf=4<j-f9QSt1ghq
U"[+e:S.Qg+p/MoWpUM)(OV[%6&>0;*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,<BxIUCJwk,8vxK
U"j%(#^a^T&aT&U:dxGimzf3&[23TFy*-)I&06t)K+vLASn\WL%UE0KuDOeZy$v7o
U"g/;Bt?ByqsZTpb%3j\]tR*t&rnsH0?v3dUsfH6&vYnL[nN^qc.O7C>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;[W<Je#3%5lvk,Gov>r\<
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"%_KG6<ZAIZtvC;45ag:M).(vtgdvN^lQWdi8XpT^mrSbt]<LAkme%p+cnw*mY^(
U"usupxFW/wJD6EN.>i<.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<YoXd]bBBnJp?$[r0+.F92YxSfR+rtY6Gji;DMr0%up()%9
U"%%%[-%f0.VGT&0s]k.#%%$.%%%1%%%%yw%fsxX%]\SfRxrf*<VASmO;7]z0u3L<
U"$iO,AD=aV0Jy=>+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?;0i4oi2w<f7.<\YN]CZt:q9ei<AuA[l20-kiu&0r<N<VP5+t7XBgGs4\
U"aD,033h[GpWa79#FC<t5UhQXHixrY6V<]DQY96cl25DuwWwW/9:VX-#9;gGe_r#
U"N[MNU;6]0ei5'ooH[np$W>LO0#TxBUjYDAgB)F)H.J*HJL&(V#r$2DM.6_H\JQ>
U"bO#./-nf&<ofBv[Al(C6&Ad$Izqsw,,.V8%j__594nM;<ar)l8^Ypdzq&Eh5:n2
U"4%L[%:sQBJ53)fac8tiAC+3Q^N%$<ftL&$i#fvh6HPuhM007fX?rl7bHd]mMFg?
U".#,C/z$qR-fWME$Cj.p8e?wmk0.g(s>_UV.EMAJ9Xd_rWoJMsb?'E=:za.S::aI
U"JwT^f3coAk^*'mw=fUJp]PE1.l4]%X2+I%/BfxmrGl,Rl.-ds/S6dSfTIja5[2[
U"jdN<TqKi>+c80_Dt+HJRMDqHqdZh=QJDQ'<+X$;*&4RGM-/;f=lt&7SY?b<wq\L
U"MwOZa\Di>X<SdKj:Kb60rF+WhV_-217Mn)+8KijQ1]%w4fzYn?wfZn8Csgt7rLI
U"a?O8&qEWFB[*?x8\sH#P+.(o3CW?EJ'uBZ]+>+.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"RVpGf6<oQV?Qq,^h+m(0Gl\0pgY3>6eRtgKH;xD>ZNM*1:gsw];bFMq4&+K4#vG
U"Cn0y)C.ssdz=j(mAKTZE-ECflqu;GN\oP()luKjdjDqfICkP\K)*aDo8'.:8&ni
U"e3r,NZGlhRp<q^rgLJGyR-<.NU0?Yx6u\HIMjO:;VV;F0+_G)lWKa'hcl83HhTi
U"JO_#S128S%Z&A;+q$)k0i]iKCiXaD]r]>.>;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\F</YhxMhU.kw*U2VaSGS6OQ(u]Q2WrVEn>A+.NG&:Z]IKt
U"?oi)3;seSKC0SHjel7#^\)H&+39>lE$\?<XaXoJO)XZqo&)MTWY,PuTcp0_)&Yj
U")F.qq<7Q220MO-6ODTgsu%i>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<FYYVfBGSs3vj,]PKp(d#i1o]_d=gHF2cIG^;?S0Jy/t)iT1TaqjqV;RI(
U"+3CIF^f0ptX^t0\'[jtt[IPY8jQ#Ot5T$(qwZSk2mzLq,07rAtE).qhsJorDegF
U"0?O_0kuxwIaZ/vd-Xx+f)[,NET)$%Rb<XE_yFpti#gby7fL>-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_+5i3<n8V5a<QS7O+Z%1VVhUgQ1[RDRbBWr)/\Q/\O#6Kl<Ldlq)q]
U"=7D_+V;8rh[C4N?rsF;ogOggc*p0$:34C]0,YnX51X4ye^buOL,)E,^okVTSo:-
U"dn*1&TEraaUJ')<d_P-PT.GgJ%?GAf#gDOvGDrE/7#?#*tA20O70^iAEmGVB;$O
U"ULd)C6+H7;C71:wgeh9mLx^rdLEC,;]BN0*RDuYrpj,MFHw^Q)g;Z[tr;c90jWD
U"g)7N)%S^>Bs4HWkfW/JCFdAD14&Sdb\#a_0SpzOqj:Z93D],o__2*0ag-YvQq2R
U"^QNQuSn0-5^'9m8+V#['DqGHL^JL4k4J?fGZdBJ#=U7\-7Jq.11<F7TEz;RYq9j
U"]r?w?(Llp6^,aZsUI-#3&ZPk8y+BM4X^4i(u5>f8kH_/8zZA6.V>zB<Dx)67MVh
U"#%M&VZ31a%P9x*Tca6,)x1BzoX2E<cfNPYxC[J+R%bmAF>;</GuF#U</?h3\SEq
U"q0-n[SW+-t[R8ZR$RUmN]YXm4;,]Uj<?J'RZ_Xke%WR$?d#p=J1ab<q82[_rtWf
U"=s'/qbq3Xc-frXvrmWcfn,\gTV$I,,RGHBw?4qj)Jhid<_5=TTh+/K'UiB6z+Of
U"M'p&.)6=N'r%)MeV(,/gvHk'-hh;4P.nCbMIJJHo*m(+XGgLy53d%.Gu*thPdnP
U"'3*h<P*Xr+Z%%hM6alHS0yeD:5tEp]Rgf'bS(0/gT\%d,=v-(6>-W85s<kw:+[N
U"UIL8/f?/GXb\u\?^c(>'RhC=PARGFT3o-ZvgpRSSUR(Z*<Sjt,']Q/nHu+#ThX9
U"f^;K:KvGXLIc4E1:[ihd<<3.7:=#:H>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,<Z?-q2^)xl(f
U"CTv$rB]r^FNSiAWvA0R/gLkOl2_ViKDpRMdv*YJsCYF%:w#+33Xfi<Ud]hjt5r7
U"bX;s78+NX\22L.\s[TZfc;?Id+ReRtJ&N(up%()9%%%%-%,00VG3<[O1&*-%%&.
U"I%%%1%%%%ywfs%xX]\%SgfxNN)*>H[A7M7KwwhFN4wa*JSJ5a'B/bg%#5R'ZKEX
U"O$$0sr?=9;rQkgoOIR.NtySq;3>+UiPzfVXu*47sYydO<lHrV0^#vL$5,Z\*5jV
U"6+W694.pMf+.&9D3#JSX/A;InBa<ih$o:Jg+b.<km%jZZO8h,8AP6['13V[KPsK
U"$7;F(>4*]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&HN4P7<Ct#qnGy\%N(vcN;'E>KKf#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,<SGmS$:^n*N'#5AVYx9=y[ni_&M=r8OWjf*;ADqpH%=iYf]\d=.Svt
U"IyqEplqK1QoK*ZQ\?W:[F0Ciq0ydmSae<OQ8.ubE2^pvAQ'-bq;K?;I[hSN1Knf
U"Hbp-3S5r+BAZFe#nMiy=XX.rp;GR*AV'0J:[cty1r$rLVgmlX,<'n>8xw?;&xTp
U"wgp1./kWv0mocNS)r,g7<h4y;,#$m6lU0jCNN1_zQq\=(JUsbNaqBP.H^/?7KUM
U">mI8lCM_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_<bw0,Fk)Hw?0'1Z+pgpXd.o]&Zl:RcAKk<*TGlpB);Z=*dYg)R_$ka_%dn$=_
U"mO>f0N&t,GiCGVOH;UVB9_8ULV[NrtOwAp>Ti;O1;Lfo?0qi?CoH9E;Sh^kq'Y7
U"<c*+0j5sLSEN5QQl;X?K^7dswn-,,3jWZRkf<pS.5BR:o^j4#eG\#jBggm7S#U5
U"ST+I)5IW7%PSg2<PJ<qkC91_bD/yAW$Y2A9'y5RJfptK:^_<NWQbMi./:zMSd/>
U"+uwog32KFjTVe=DpZ?F+PcbZgIrEd>9/+DJSt=Oi;G3GG.,ql<S+LrNq(G[P,1\
U"3$YYN:-bVc#pvILhkHs(b\U?%)hhW-VakYm5YnSq+OoL?bNN0r-]0Hmh=-'WF$3
U"Id?s\6pQGZuSn_L)R#;B>: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<keyb[UnoYGv=Y.boVzYe[joLi;%E7-\Ngs$d1_>&/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=[QbQq0T5v<GqZUdU%+BP?6
U"cN58f7W*ZgvQqZR>T0DUPrvou4vjhNWqP7S^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^<Y<UGd\y1xY=pe%gpb=1jS$/$5Gl^6)z4
U"5PWw+p*)O5,POZE<;qbev<hemosF2sstt_672XSW^>hZT1ri'C&A=<i5^r0PBqR
U"HiqyDPsGW[/?on1A1d:OyrP/\NpM;'+4F$u-scf??to7rU:eoo\[xcS-7XYGICG
U"'2qU?y.t^s%,;eNdn&PX7kv9T]EmylIe0a,gWJ5wPe9;e+;lH7D$0LB1mltR48e
U"BIb$p8uh5+FQH3=U9[_1u_'_gT-D].qPMf.QKwX#:xzUo(xxs;gFpb?YS$=S/>)
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#<M68xn,<jmg\-'\J#hn;v,3#
U"VW)b?LMTNfdi#aBP>?U6(oj>Yd$jT8:bd[14EpF9Gt_$,aOcIJ11NX8;u\7)n-K
U"1U.<>d3+ri%b>PoF&rL5Ma#Sk&&E=wIR<?00\W=I5bMiM%xQMoUhw5o1b,s2fnJ
U"iJZ-CwA>J$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<Iv4\o)-WtnWNq[$_6y:\jTe;&nVzCr1#[_DZJ4>
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
