From: author@pbsound.snafu.KILL.SPAM.de (Thomas Gohel)
Subject: Re: FOSSIL or int 14 source code
In article "FOSSIL or int 14 source code" (on 11.03.98),
slr1bpz@mindspring.com says:
Hello slr1bpz !!
> Can anyone guide me toward some pb 3.2 FOSSIL driver source code or
> other code fragments illustrating the use
Hope it helps:
'>>> Page 1 of PBFOSSIL.ZIP begins here. TYPE:BINAA TLEN:13583
'==============================================================
'PowerBASIC 3.x Source Created by PostIt! Vs7.3pb
'Instructions for decoding: If there are multiple parts to this
'file, merge them into one file. Remove all message header and
'footer information (everything outside the ">>> Page x of ..."
'lines), load the result into your PowerBASIC-IDE and press F9.
'The original file will be decoded into the current directory
'on your disk.
'For more informations about the posting of sourcecode read the
'actual Rules of your PowerBASIC.GER conference
'==============================================================
DEFINT A-Z:SHARED K,S,B&,Z&:?"Decoding: PBFOSSIL.ZIP":V1
SUB V1:OPEN "O",1,"PBFOSSIL.ZIP",4^6:Z&=13583:?STRING$(50,177);
U"%up()%9%%%7-%9'[DH$_3Zh:4.%%=c%%%/%%%%ug%fsxn%SgfxWf*VAfT]e7mtz
U"WZpI<0^qXsaHtE[QGQA+k7Y)*5uikrmS.0wSi8]MIh;Q%S<2*dyasg'of9o2_67
U";,Y4gm$cUZjOW[hy1*=W:Vl^JR(5FpqKo:.Z.kgQ\bbvCtE+f6q#.CWjR)_ipxl
U"ws0'H4G&S%5TXa1Eb&=$h_9RC-odRqPP8&/mEuKGm,>49?*n%(Or$SbtKZo66P6
U"u6n$G5IItMnJDAA71j6C%o
U"&CfAKjM#%v)l:6,cYK[V=P;Y=KqhFx]tE+wKS_=Dhi\ff;ErWQB^D+cC6^h?I)b
U"/eudvnOQiVOiqDnc,ho=ak?rhVJZ2N$ScH0=4UbMrAW.)>BP.w&WfoWc=4Fem6R
U"DcWiR_HI;]M#ln?_dPlcZqLPb*2C$-_;Kc5v,L+JurOzVhbxg-F1OA_J961RF3J
U"L7'p;:Be(J+k>9&[81q&YWHUf*i=RtF;o:qqo$iwM5q=#]/wyKR7YyS*ucIpLau
U"A4^c/LB$dc%y,8>C+xp*bdWCimHbgxF9jLLFkB='$:a:(3b1,[tzb4KJCS[:*SF
U"G[xJv4KZWEne^_l7N(kUCU$IR>E36Oi3WZ7R?$w\uCkwfB&rt9
U"gdQ2D*j+PN/dD?8kotv6jHk,r.1Dsps5Ncb2#T+bfQTw'MThAeuC]<
U"Cu#CY#\KVYO:pO-;(OGv&2BE2_psQXUjU1h=v>i4=6l;Bhi\tgaiT':R)TkH^
U"?7M,YwQ?TFtvr.iseed*nms$oUX+u#g0flw?N>YWVyZ[1%na=3*Gp$Ac;aO
U"u0K#LmT71'>1+&2=>,kR$(NgG]Q5AbIina:+m?Bn)MK>22u_JUWr)+nS[LqM>2(Zh\>oDqwd''i>
U"6uBEJ$3Cy]r4])
U"trk;t+'=-I$AGovK5BNOGb\tGP'x\4hmmO'HF#Ohm<5h2(tEtluR2bfa\^,Bn*0
U"Iia.unLqLhhW3JTb4:N%tqD6Pl;1O]1W^>37BI5#-TVx8ql*GX5sOqYq*fQbqALv>wXq.rZaL
U"+il9llbbZbwPBpDpDucAPN,$(xG\.Lt716\JHk:k,4
U"Ew=ae9ZJSm+0?Kj_2qGX+2#]T$vz0%>JMY6#n.AFeyP\enGXa2[&CF^S5Ug]X,6
U"e5oi$*$EQn.5-[QAD(+3zN\J*^9)x,K*3%EZyUw[J03xyaI6PvCI8z1DG&:aoHP
U"33Z0Y486S:tg8M/&HlYEUvqf_Hprvzn
U"+g$xYLk2vpO*H/[#m*=HiJyP#p9Fe&'gEtWWF1KS$jm3:CdxHgnU.)14_eYZB2Y
U"DD&31xtWu-64glv*MllUx%fE-4bNd4=(W63WF4\^xv\ctw$x9WS-wdP?8;o;nT\.vlvv;4:[4VXTaAj(4;)V?fDkot+b)-kw_3i
U"CKy=b$=Gd4irM>1ROxh$wMv/+wOHxF6'XL007<%i16Kc%3P'Y/blAGE&D9xS34)
U"j&JO2_DBl^JPj8-cbCkl>U+dSig/%=0hbdn:[ne2+'IN2T#v*<,Y2_bBZko%Gex
U"xw^<]PEwO,(bt$WSGOK?Cpc\Gz5$:tH$QfUmG?,-_GN8)XjIBN<.-1(XJk\Ht:W
U"1.TM.$$AFtOUwH^/F/B&Zn/X]vKLUKS;
U"VV8X-$>p6?(U+IG0y$-areBjix1_xf6F?;SZ5/^AbI(dtdTb,QObug[qqA[Me(BJTUap[
U"kCw_cCI;5Lns0c'_7A$KDBfpl5iHmDtnptPrB^f.rr?PhUIh$>k$hYl+)]BM:CI
U"S]pwENXsGq'11V$8#+M72'3Qxc^Bvf6VOD$V^m\TNiH6:Gc/8On9#mZ9\0YWbt_
U"BuKFbR&ywr3ha]$h$s;CKH>C#fzM*U8T^pZy^oS/>4Q?1=O-n2[F7Seh'pJ?wLf3a1N\]V(oZ=ipp^hyJ'OY)Do6TISTSYB.lybO/]>9]P2-/uEj9
U"jb#UGtBjT*B^$8dBSYAjL;R(GK)/-%,c%^.foyYY=hRll#v(Gr*-^u*fF+
U"7\lwn)m_fvThrTC*s]gVDXre2kFQ0]ty4\.QBgM.xLr+,4Aitdea5C0G^Dp^TR1
U"VY,mFy/JXdSt-c=qb+HQ3ulkk_uH*mx&vxaS/=AgP7d7'iNyOp>R6Ac=?0>Plpr
Continued with next message...
*** QwkNews (tm) v2.1
--- GEcho 1.20/Pro
---------------
* Origin: Toast House Remote (1:100/561)
|