'=========================================================================== ' Subject: PB FOSSIL ROUTINES Date: 08-14-94 (02:57) ' Author: Erik Olson Code: PB ' Origin: Rolf@ice.prima.ruhr.de Packet: MODEM.ABC '=========================================================================== ' Please run under PowerBASIC to extract PBFOSL.ZIP DEFINT A-Z: SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PBFOSL.ZIP",4^6:Z&=5973:?STRING$(50,177); U"%up()%9%%%.-%*y&n>%5,=&S1%%%DI%%%0%%%%ug%kxht%rSgfFx.>K*Zj/1Fg$2b64I'Y-E:\aO[?vnNHq8F.DPA2E)F U"t[XI-WXD.I%]MBtO8Z%YLSgkh-EiIP=6:nB6$$V$Z3[dOrgi&$VhfK]84l\QWfL U"N#%Zs&aFRuJh3p&,o)F-m/.XDk4f'h%KnDPg7xN0EdIL;.keDW8j5gRs1=YOmC; U"TL>F3wYQ\OSJ).5[$uBxSF[CI_EO27xgveW]**8_)YjAj22tcI;k)M3p>s)4q7f U"2fXq9#yGZ^F7Bgti%ug(kXh>:5vi:93+?t4rtXmOKiFIp\Kf)l&_*:qLYa U"aAMn;cuMVR#NLYKB/m-,6T$gC%<3t#>c2i[0j>t+m-rc\6i'^v.]Q48Q4#I)0hG U"S3G&59f15ijsK0&X]RXB0u7=AzEoq-+&'5dP^A2D.oKC\S2l\^^Ctxt0L?_m-Q/ U"C&v9c7$G8-LgI]0+4ugJK4W[*E)p>.55:+56A[gFhmqI>a'EakV\09CEGx03r1E U")Ao5KfW<&t6*D<&&#g*sh:-.JK*'8wtB;3'.'=X U"/qM9(Z64XVGXqb\Oz9r>\EhoJm:RXCRodhm&+,LFkokgTs(D;a[htgT$Emv.Y1S U"x^-xiOq'M*KS:6Iu&Tci.-5)EuFMCT=S:%nNY_qM>=;V9'Gt=0bP:a]6pH,JC%S U"&Cv:foCX_pS%.%Jw>P]RKxHl#qA#L<;xHP7Ldh.fic];r]Hi[AM,>(aYN4K/5Ti U".l5HI4%Z#o3'OB)I0wM.OWXE[gfw/QM#u_>.f=Gpl;KqN;^0x11-wgkfa5=2(/YVcRE_7dnHnS9jOO68fEAK# U"3qm5X\Vbo:4Z<8oIBBu_BC',2HFMdgxNgC-MAlp[7-YNHe_mNsSFb$n.>nbz U"1n<5ggP'4v3[X=r,DbB'ZD0R;Hwe7ieytjiJ0?2b?&MH0f6w%1V.)SkRO*g6nEr U"^7dbE4,RMthTh-771%w[O7=pU%W<#hM:?[$RQMVBKr\+b%T?BN6.0biCL;\2qi7;X[.7$>2cqHt#rRJTtp8#i,5iNbq&N_$:K8WA6ufMYnnbEWuRDR*kAIUc^RvabQVww/.I-q<:p2K_Q_ U"JYbk\gt=Elw5OWtWVQBp])lh\ln7XWVcjKFK+<_xjLr_9rP8Ddd=v7&J;z[q(+\ U"VMIvit\(FnlD-UeEKf+:(ll4AZN?j^aN%1jSqubdns/f_&=*<3$tMC23^rCYbrH U"zEJ,'yca$>B\[9cdu*l31z1/4s0q;:p6Ng;?'J.A5ghrpPMf?ZgXs1?oLQYL7-i U"t)27//gH,GD=;*o06'$OfOvF]j_J5ooC5,17-64$WH.he;4-D$[,t_+8a4kc\Ja U">.a+n_+:ZIB$7G1'WZW5mc90\bXU+tFkYh+>pwKxN+3?ADhf'JN.M)4Yem4uL0t U"4BJhoL=vG=Ml%8DJ4&jdv[IuDhH.%2N/3KHN-.G:\m.Sxl0%g>LPOZp5S^9?04Y U"4x31'B4v_*V\wpY+gp9J),nYAHK--<;q3(d4kXKmD.-?6e235D^E)a2SlqZ U",1UBn.)$)W*M,L3InjEV[D1[REl)08>3MbZkX&UPSz?-sGutuf_-j?7Vo$kV/Se U"0szZ13mrbv5%gNcH9al?i3?XSjr++[vmg%V=kAd382HeKF1q^Bj=tmdH72Z0L/k63jY' U"QE8/QMYF%.J05,ilqV]s8LLjAhm^Y40Ppb.oN75EGu(f\xb_f5LUK0*nwMphrlgw#L:1r/^#mz(Y.T&aNC#%g?j_2/q'WB':D7%jWgUdiofj1 U"_aLho-Hk5/SxP\KCe(w:\ U">;^NDV$HKtm1BYpMVO#X79rdwWx5)'spnoJyp:\+D98a(q?pf_47xd\$,'];HF7 U";+jnIIbZdf$;YrTt:CJf1B[V_ZmXX^/.aeLrj U"QU(J0H>93_5(P]hI3c3HdZ855Mp[&7]dy\GL>waN-po_t=XHj U"Vs\3=:8ZnvkD_&]5C^bjHCn^^k>oW U"6oEC>jmRA5mrU=q26UZ3/B(=_g+t-pB,=cLkaXhkv1hDM'o(LSPgjJ2l:y)N=3[ U"E$AQ0JblA?F4\n'0&L][gvQla.*R>n&6APsDpesRBtIrb]9GZT65HVdEt_SROGg U"_]npCkol.Ftiw>wb<.r0Ep2&m8Hc2p6\Dn^T<8NDPXz/%a1o.gNj U"Wnq>>S&m;M'+X/^8l5O#E1GhhB[+jsp:KiH0%Yz3wyMtp6%Um4oLI^0'M>bE/]T U"u[WML8n\OcGPtrWEgKWfVVs\^k9aqsYH6hbKC;Q+dx#u%p()9%%%%-g%H+tC?s= U"$%3D(%+%[+%%%0%%%%ktx%yjwr%SgfxJ\y<^\y]9w8Kru4V6'F/gg5C_(Kj]VO# U"=IVA+;-/lOv'ZUUa:1ZS[Uno8R1C73s+VD)JsnkvHHdWABvn5/%R]PE6V?K2VUR U"(:#a$sG)Wq+s[+c;;vL=r^aORZQM8F78%1,JP7E9d0YfAR&>Vd8G#7bF9kT)uA* U"be%NDtY9uhffA%E^4+grFzRSUlY9\.rD,bTq62uven8Z%1U%NA9QB&3*J$tNy*G U"s+;&7Grnhr>C%1a)J]ZYr[R<'-h^Tq_FYp:5p%^5R-Df&U7x:=H(jV;vtaIaLWQ U"HD8,n=4;\z+H1][bgA5/geZ.wQ2u/ezCLaXR'GjL'TaL^WFQL^xV9H%jb[huj=X U"R\/k:wUB9oXVbXA.\)hw,l$WA>Jis]5-gB*]sLK*tx6&E-^qTE U";/D1^zm%dkw]=wmdPCNfpD-PtLbe\(ESMrqI2l-5P&M]L7R3&].e$48EFpa]F)u U"[+F_ab-[f+*lu0Dx*Ft_4X>]m*i U"4z[1B46+EbUWVYW[11Lic\2&dLEQ/b\=#h>dZZ&+E]M)>_Q*hAql9(&Y'ZAA:Mkpb)1w=tk0/iZjY9pcffbNp%Mv<4)1co]6X-plb>%1b1^\.5O;*6[qsxBXrp\0gr3X U"j:m?d6pVsHP&rP&mplRX&NlZD50H&aX<]bFr%mM30mUbYL-;I-j'\K?m[OI70i&B122w0T*.s^k]AvCBg8LQ\5P?s3oD U"W]Wjh]c&hNu%jMvG$G]Z/e>(8gkr#L2(0/W>7a7+2Gy4]=RbC:$n1/bKJl3Cvor U"WH5i?\pPxG+$Ia_j]5;;EGrV9O:%?ESV60ZVEl9Tqh%7%X0C$uaU%]Jn%RG_C[R U"fB5y2WQVu&4):?U+H8EmxeeIk(0nd*d+yU^w0vqFOUtCX*9;ww%%up()%9%%%%-%Z08r U").%%07%%%/%%%%kt%xxnq%SgfxN&&0>][k5vRCNx0m?fGa_AxrA0nwdo&/qfGO) U"Rutsw8eRgp'ljPqniSkNX(Tp)jQq5a4d7OJdH>ZWGE]o#2lZJM[m'LUn],'1=c] U"3GGAbcdHTGuHGHa*,sGIg&g1+V;+:[+0Ry4kUlxbe]Du)iIDVCUcXvuquMxK>QR U"5dU>j$6S_R#iD'u05-H*EVm^aS(l]R\'i8MqOu1R6eidU]D7UO9k94/F9I_&&r$ U"Tl?-e#/Lp9rYS]8X[gs+pPtpQ8rA)i4M)4:Z#%\5lUi3N+[mnQRO./h+p4s56$t U"e6EW3'i\x:RroK_;Z^AakAnFF)n8kduCQ&Z,hT%st\a_S(W>iBN^-brFn+6JE3P U"fa]%w/dK5^M%sawst$4OLs3D+qO0QBbI#8&O%MYtiZJ-Sxwf\W_dNZ>JY) U"+AjX'79/P47:&o4hY*ORiAO#*.dS?4v*tcA7XGg]U&G2puIs\7,l>75[GyzClDx U"oR?/+5cZ\$2m_*'7bo]#q[ywt7Ghc;xNU$<0o-)$dn&V$*Xa=(]He,GB+7+'s?* U"KnkHgc-M.x);r.62)iO68R4gAIajXU;EalI#kiXUQ.y2:?QIQpUv:PWW+S%(?m' U"/-eX%fBFqa7u02)If(u1[w#u\JTJx0SD-E^*8JHr94m\6%F=+WuDkT1XybnQ4L+ U"Z7(^GS(B[24$+f?G)n259u[ntBxI7(0Tl9&_PVEp3,bn;uJnqamgE?tR1Z\_'6 U"(XL&-dq.]mHl3w$^myA.nZvt8so2L(p8Hd$t36>yb,LB4D3hAbp5]41635+0uS\ U"%[WisyKY4nbO]&cQ%E0Z3/hjVHggN%JoH&Pr/7(k:KJ?n(N9=N:$Y^'D>oW.k+$ U"m%>LWbR7W/7:N+JLTQWUok_LrdGX)j=]iJEuNs=](od7jW<09n69\p9RaM)8=cp U"[ZB+F%$,7Og1+CRHm%'$C0)O7[k$3ZKL1zd3crg]DY960oL7^E\-#W$b'W9a U"C3H$dXP385Ur%lPC:lq=LhCp=?nlvs&pvLBEEp,WO9j5-yWON1t?d&'3lgAi7>m U"qpGZ3_A=n7>aI9<,a=L?-VRv%A86dnAHKSu U"g[GVn:J&> U"%5='&S1%%%DI%%%0%%%%%%%%%&%E%%%%%%%%%u%gkxh%trSg%fxup%&'9%%9%%% U"I-%H+0t?s=&$3D(7%%[+%%%0%%%%%%%%%&%%E%%%&&1%%%ktxy%jwrS%gfxu%p& U"'9%%9%%#%-%<,9#AlXFV$L[&%%C%'%%+%%%%%%%%%&%%E%%(%n4%%%wjf%irju% U"p&'9%%9%%%%-%Z#<3BHq808r#)%%0%7%%/%%%%%%%%%&%%E%%%%e6%%%ktx%xnq U"S%gfxu%p*+%%%%%)[%)%W#%%%0%;%%%%% END SUB CLOSE:IF S=98AND 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