'===========================================================================
' 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.><nBG0rJBb
U"BN2onm71$UXr[&$^tbaD1_o>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&_*<Pdj>: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")<R(nnm'_kYMZmC:Y,/6K'9,)a\<UL?RIC0&aY2me[+Fcm^J)u?lg/0cra2ZLDZ
U"ot+c$ufD?brpllL=DGT<4;k$X+:W5R3*%KIo:8^I?751]661Co9Y=3c8XJnfUk=
U"77[L98dLi$.Ej/-xDkC+e+.8>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<Q-\OyRx2[8UFL*?b*m:,5&y4gHOD^:7rV26D=tH(NNU))&=W6mO
U"S8mtw'[OrrUTg)B8*Rzm6x/2;vW0ZOyo0M+jG1OQ=w[Ka8G?Iv)]T-),Vuj5tbp
U"BGiW*c0&m'.qg4Yj%jXEZz&0E+(u-XyCK(nPkf+PhDrLJ%O3t,%?rN9ePraBS=j
U"CiG%z5[aOmBkjZVBqCMQ9hEcx?[IH&t/f2WtOtVr+P_sV2r/*38[P)D[2WryOZE
U"6B,10byeqNQ#f=xnda<NbCo-XPiq_xNyD$ka/?dzIDB&A:ypE8op;BQC.QrEdC(
U"miK[A+2+bXOS,XVWCeU4JsOnDEG*RGs,6gfY<_&I=2.(ZX/'-B1FFoXakkhe+j*
U"/yQ%5RM*4jq,puNqdi1plU7Bdu_SGMbq84#o;ham'w0'C5-T^'pt.1[TMS$e6DK
U"];Qb9I^kD$MTHR*.Dk[gy88$-[;/8aJW['-3n_XfEr1lg$lq84<KCAH69_<:LpK
U"y$jsgc7S5KK(1<z/j5JUcT'7)vgY:I#pGlG/C\9b#LHqp3nk+T-*r)YfN*NiQp:
U"xk/p5_UQ)$Wa.ER5fLEedyGjI?ut2JQR]5Dn2-0hFsTT34PJ6LT0_RtC2QhGSB+
U")q8hv.->'OB)I0wM.OWXE[gfw/QM#u_>.f=Gpl;K<c4Iemf,,W/6)$u[U-Mjgt(
U"'E+$t.PU/eSIbwPC<PH/>qN;^0x11-wgkfa5=2(/YVcRE_7dnHnS9jOO68fEAK#
U"3qm5X\Vbo:4Z<8oIBBu_BC',2HFMdgxNgC-MAlp[7-YNHe<la4Lq8a2h*_crOKM
U"*1N)Ly_w=HP6)HG:-dVYl+2i'S=a'rbQKHl.,9RQv5MmcH02BGu&&&u-M\k.i$:
U"YYa-ukMd6K9Z[9mT28R2,Tw%Q#7kKcHV6EC#JzB_LD47C=\t>_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:?[$RQMV<cO?U?1G[692XXF4ho]oxOb9
U"6_tr>BKr\+b%T?BN6.0biCL;\2q<H>i7;X[.7$>2cqHt#rRJTtp8<OIUxcw5lOO
U"Ysu>#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<qd>
U",1UBn.)$)W*M,L3InjEV[D1[REl)08>3MbZkX&UPSz?-sGutuf_-j?7Vo$kV/Se
U"0szZ13<D_#ykcl^Yx8,$i6SHu5r_9t3i4Uux#RDf?sZp;q\6h]6^=F^+FD_#4*g
U">mrbv5%gNcH9al?i3?XSjr++[vmg%V=kAd382HeKF1q^Bj=tmdH72Z0L/k63jY'
U"QE8/QMYF%.J05,ilqV]s8LLjAhm^Y40Ppb.oN75EGu(f\xb_<V#XyeCP&9kSS1/
U"NCte&ZGvqElKf^?3P?DdIA3uHWEkSPW+k?^T8:2x8n?'.Z.[*coXMjliJl1u=B/
U"#Guq\Fa;E/:d+Fk3xq;6qU,r\wG0O*+Q]ag:X[sKDY\MaDVA9dE/F_1BCM6R1yo
U"R>f5LUK0*nwMphrlgw#L:1r/^#mz(Y.T&aNC#%g?j_2/q'WB':D7%jWgUdiofj1
U"_<h-PZFR7-u[t:]'n^/dVICz7taSRcxH#;P4%Dh7W+>aLho-Hk5/SxP\KCe(w:\
U">;^NDV$HKtm1BYpMVO#X79rdwWx5)'spnoJyp:\+D98a(q?pf_47xd\$,'];HF7
U";+jnIIbZdf$;Yr<Dp7^Js+g88OLEJyrg;6x^j6$/FBP[pI'i8UZ0fsco'/vabqN
U"M0r02antdo<g*f;u]&ErP%QKV2q(9kslqRxTA2]F)p'^sXydd:\oSgRF[:-^*S.
U"NZrJK_vxt?e1-xh?xLp6K($:mIzGwLhN2ZW?t+FjXV<m<<p4S]RlsGJ1E:k8xjQ
U"C*H%]Sb\jw$sZ7S\RjK?:V\RnSq9\?8[3C3D_=&E^rh)&;6PSgL8Ffu?ZN+EEf_
U"g#3ia*WE$qi,llpIlnC/LGN=gXb2]b0eW4A,f(]$$(V^OJx0)L6OIsQipMe#/B%
U"8*5hnjdMd%5EhUj90S+i;7nfy+yc(v?kfG2<)%C>Tt:CJf1B[V_ZmXX^/.aeLrj
U"QU(<d/_4K0ZEpj[k>J0H>93_5(P]hI3c3HdZ855Mp[&7]dy\GL>waN-po_t=XHj
U"Vs\<rc.k<Q'6J+rYUNQdFq+mkrH]8Kkgxg_=>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<Pou/E'F7K><.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><r+TZAx7QsQhPNgb:t^-aDK.9SYkr=u3LYd.$
U"VSWhr*xwu78c2EH#laAtP%:$5l9i&TtEv57Uwe>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*<k')nWzFgYu.No%5AWMwy;-d.vcF$UKb-i3wr
U"GQIkE%ISJOQBb;^,*s2]-R\pHD69Z-cN+oX21]7E0B$Z?h3,6:[Plab]4<H,d0U
U"I/5JuDr5hU(LQYxx_CfZ)NGpQgbn$BQL6pc*i%lPhb2t0*j8pQ-YQR.&Di;xL>i
U"4z[1B46+EbUWVYW[11Lic\2&dLEQ/b<a*f=JM$n=SSl'n&+Q;=VzQdfaE&=L]dl
U"Fp>\=#h>dZZ&+E]M)>_Q*hAql9(<o/5YE*9gF-V&MxK^q-XddAK4scFim/L_<RP
U"fWTxntcCQ=-ca^1d-BUWYttghx,B$5Z7C]CE-q=qoDtq7f''DXL/$$*NlVLfwol
U"p>&Y'ZAA:Mkpb)1w=tk0/iZjY9pcffbNp%Mv<4)1co]6X-plb>%1b1^<tEe1'?/
U"FH48SWojGD4qxEpQE;,2q,u%p()9%%%%-g%<9#[AlFV*$L&%+%C'%%%+%%%%wjf
U"#irj4jw:9U7e16,]k4_/pue-m]Ip44%F00R(.Dopt>\.5O;*6[qsxBXrp\0gr3X
U"j:m?d6pVsHP&rP&mplRX&NlZD50H&aX<]bFr%mM30mUbYL-;I-<DI$V9#+m#9b[
U"mYWwfF?I+;+:CSD$\g;twFjaMaO7b&ai,/O,jC0bj=$kt]b$FO2fbhcmm+XfhdK
U"U]u_a5(j6+xAY%fF$0z[>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):?<lGg4^FX$7ee5W3F5phw]z&(qlA$;9G9jnJv)R]TOl2N]wlBN
U"m>U+H8EmxeeIk(0nd*d+yU^w0vqFOUtCX*9;ww%%up()%9%%%%-%Z<I3BH8>08r
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%M<FuW[$*Lzlbx+Q*1JiosHMqE9
U"iHhFQEN'8I4MgAY+A/s,$I$i?Lv-2y$guwV.#Ge8GfrN\<TV+/3d\o0%8;wmqp&
U"i-VqQw-;0m%c_boHE+Cm%c[&0\*()nm'7Q'+J.QE.(>YtiZJ-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)n<U88]x<+_cY4OHRQk#Cklhy+':v]+2],ZxL*4zJK;gnHC
U"iA&ijb'Tv3/FFAl/mW>259u[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<nB3kJG4kN,._mXb'=ICwy;/2AH4i5$n[D3]XT
U"9HTq,-no84.=2'IBkaSUC\'Brbl>[k$3ZKL1zd3crg]DY960oL7^E\-#W$b'W9a
U"C3H$dXP385Ur%lPC:lq=LhCp=?nlvs&pvLBEEp,WO9j5-yWON1t?d&'3lgAi7>m
U"qpGZ3_A=n7>aI</A#Oix1G:_.+98s:?<C#s[Gp?h%A\kyRZ__dXdgMqsz0q7B##
U"LHpDA2YKBj'*Deu-h<;;pa+i^'+%Vp^E<**u;]GQl'lzbI_*[*GQ2vghL2Hfq8n
U"*ZXte8].Igux/*zP=RbbpTro2GqYuOP^kEuK^Pvj>9<,a=L?-VRv%A86dnAHKSu
U"g[GVn<LFiRfmpbJ$yGMsp(%Yg&Zaknx1OYAv+pLEwxSdJ>:J&><vi^b&x*0p]HJ
U"RC7m#N?ub&iph:XW6/MJI7Q-ac(\O+6gR=y4eNAxx%&up&%'9%9%%%%-C%*yn#>
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
