Received: from UNIX.SRI.COM by terminator.rs.itd.umich.edu (5.67/2.2) id AA26328; Wed, 27 Jan 93 18:43:46 -0500 Received: from [128.18.10.32] (css-mac1.sri.com) by unix.sri.com (4.1/SMI-4.0) id AA15462; Wed, 27 Jan 93 15:43:45 PST Message-Id: <9301272343.AA15462@unix.sri.com> Date: Wed, 27 Jan 1993 15:43:40 -0800 To: macgifts@mac.archive.umich.edu From: mxmora@unix.sri.com (Matthew Xavier Mora) Subject: QuickBasic PCR (SerialPort Stuff) X-Attachments: :AUX:1482:Test SerialPort stuff: Pure Code Resources for QuickBasic (PCR) Enclosed are 8 PCR's that lets you use the serial ports in your QB programs. Usage: OpenSerialPort (opens the serial port) RDWRSerialPort (a general function to read or write to a port) CloseDriver (Included for completeness ) SerReset (Set comm paraeters) FSReadSerial (A serial specific FSRead function) FSWrite (a general FSWrite function) SerSetBuf (Creates a new buffer and tells the port to use the new buffer) DisposePtr (Generic DisposePtr Function. Use to delet Ptr made by ) (SetSerBuf Call) _______________ Footnote: A long time ago I was going to release a library of PCR's for QB. I never got around to finishing up the library since I no longer program in QB, so I decided to post them to the net in case there are any other QB programmers that could use these PCR's. I'm making them freeware because I don't have the time to support them. If you want the source for any of these PCR's, it can be had for a small fee. If there are any bugs, let me know and I try and fix them. Good luck and I hope these are of some use to you. Matthew Xavier Mora __________________________________________________________________ Matthew Xavier Mora The keeper of the UMPG SRI International Matt_Mora@QM.sri.com [Sent using Eudora 1.3b102] mxmora@unix.sri.com __________________________________________________________________ (This file must be converted with BinHex 4.0) :%R4PFh4cCA*TB@a`Eh*d,Q0`G!"338083e"$9!#3""5P!*!%ce8"!I'I!!!8@i" 'GhGiH(GTH(PiLCU,J)#A5(#!H)Z!L@CTF)"jS(Q)D)GSH)PiHAKRH(GhQCL+QRC hL)CiPjL,Gh"hGjZUN!#JJ(U+X*Q!ZCU*!+#3!kX,N!#SHT!!J!U3!,#,QS#UZ`U 3!*!$S*UVX+#3!)!!F(Q!J(#!J(#BJ*!$#C!!S*U+J,#3!!!!X)Pe)!!#)d9PCQ9 QKf@3!*J!!!J*"`N!N!-)!!N*!*!%#3#9*L0A9P4Q8fCeB(KfC`"hL3#*!)"iN!# B!!"hK`N!!!N!#3#!"jKj#B3P!%XYr#(MJ%PIKK+f%2ap#Um2Q553!)9'a3-fa$2 )kU"RNB920cSi02-b-ERAq9QCdFh1cmI(U!K1,Jd1$aF&X%8+!,pRqch2kC8)E6' K$Br&XP)b&C''`qD%ViYhiB`Vi`XIm!'6[$1NNM$CIH3NY#'Ilr[K+rKUq'H9jim d$&B3VBHf!UVP%,rfQ)@a3ArG#9rhePJcj8'!NB3XIB3-hi$!%H6XVRNj@IR4ZF[ ,jf4bXE1b-V*Q6%3hN`YSG#(j*AVLChiqKVp!UAP`U#$lb(S3ZiG5UU,ld#(eX+f 'cKpR4Y-,eFM0MM0d9(r2'cBmV-TifG6jFFr0b-RQ%[fX2,KZiIqG(CFA)j@CPCZ 9MjdH0Rj(+jY#j`H*`42@UK8k'l!4,KD`X)HR+p'TqV$``)ADPl,P5S4PHF&lc@b ph-0cSe#5RUkq%f(q-2"dIZ*)`b2MR'Mf0cUHCR62'mEQL%HlLf!SR3[q$X0kEK, Rrq6`EEjYITBX)D1AXk(-ihc5H+EP3Z)@8El4K(+KEc[f`fB#,Dqr[#I2d+1R4p' %,HC#YSrfK3SiND@&lUK5lqQ9'Mrc$G4bB5irkJ'VD&r@k%0Kc+UGmN*9lh+V3*G Iqkf3!*Gr6im!B@dkT[Hj$SNFGM9a&FDQ)05GZlqRA6X1qZmQ6kJ#H#MmFR4RfF[ ci92-VGr[BH-"$PiGm!EhlLcB*Z5l*Tk%hiYkk*YkK0@,Nfcij*X[EdQ#EbA40VI r)6APV5SC-RE[1&MfYj`mHb"Pl%-X'AE"&raEp2&X8%[6@%[dfr6Pm+%T`@IG@'Z HZ@4@%ZGEp2HI$*flhZ5ql4a+1IaERL8BLX09-SF6*XUZC3[Xr1UTPbJCFJ-%4D# m4Epe%8VHLi65MIHCN`VSE2c2a#rhD!-VBEA4UYp`)5k1*-kG(2DL"rSJK#EAfS6 !Q"c4GKc8Z`pRcD8RebqE#TNqYHM@)N!Hm"V[-&R)C,,C#c,!eh@#bBX@9MJXV%J c%h&+6[fY*8c[2i@&a+0rKi3RehCYJ9*KhfrQ5Gi!RG&(ZY(*NlmlTZD0#J89k"6 hH8RkCdf&9qVa3mVIm!C,AfM+'5a$+`A8Ac@6Mrj1GklqQT1(6hNilaf9NihafRT F*qLe'1frV!&@0[dlhZ9[bZTa92d,cLhcUF94rlD8SfIkr+QG'Mmj#SdY'0(jekm 5dVa83fQM9LZ9KD#C9Tm%0V4a,5PkPp4qIMIbaDLrrNSZfaE83D@-0Q#LAYZ0$Ed 29KZk(`3QANV(UY'SaDM4U3KV)M`3fj+'&%+iV"UK$pd)P@)GPL"iSLA(fbMTh3% l%3RdH)E8(kaZ"PBQAN4+V4Q16B`GVT`8&P2Q3PlUC#`QeiTKpB"2kLLQKYqE#Si pp[GGGrdQLNQYdYhChRXmcDcDZE@6YGGr,0J#64h($K8@rY6Di8#XmADcDjX0DhV !SA$T2`@rY+h14-r,#MTi(#`X2!Si)abILb'YmEcE*VIQ1$@YTJDe'#cT-PQ1KCe !0GKJXj+aC81#bih!)*1q`8A$bh'YC'ZQYqF@ieBmf69mfrNl,"T@2$6lIS3da3D GeR1cVcGFFlYEaFq5AN`P5DQ2#([M1c9hb*`CrGJ8-dJL,@IChR`bD@2C%HRI$*T J)lXlfKRCeCdb6XhIbpB$h1VP"RPm#65ipp0Q%kmADmZP*e`HGI(VX1qRr&84RfH ,XQkF"0e`6H#ICll*Ndj1bXS1b"M[NF"4f6+6lH`3ia0HC)P4-*!!"!GF!RC!pK0 edp*cp%qc9+kCCZV39(9AY"`(I%6qEHd$9PQV,0@@Dj02I*TLS5r*T`hT,CihT,C RNYA*UPbA$HGC6Dc1+@SKT-I,HqB6bR*jR@Uc8#51#![Fd`IEP'TTVY6X,Y6r3B( DL0664U!-'$@QM8"epSqh%Dr(fECS&!8,pBqiH+2@aXTTYH#lkNERBNe&P33M[lI eB9"#0Yk#JJM#[)C5)'ki3JjVG$cVLj`r6Z,URkp2RC@ArP6bFkiie#0r`BhqCPF bi6Y"PJ+c9"DZeH#Hd`kFmi1hG,ZfjGZhifUpY9lDiS[la4CF[U-ZAH)jFamF,j* c,PV@A,@XealVdjHd`jHbbDG9p1A59`$Nh+fp(5!*fLLKAIY*AFF348r8!`G!aUR V$SkfdRIRHc$q,DqcBlGhq'm9U*(a%McfMljL4MRlll[RlcdQPmPV5Qejaa9(M(Z hi&hBIiJjGRX-m'E"1$1[KY!r+k'e6VE&1YYL@jIMJkeXfDe9Ic9AY[[VIU[[VHk q'kKQYRE3XYRcm0kKKT+hEVMh`V"UVFkmNk(maASVfjYH!E92V@25NE0Pp)qkE@$ I50lEe'$V`Cb1PpPGH!6fXUZK@B1&J4!CFA9lIHH!MKhA%`Vd'1"aD("[J)HXEjS Dk(Vh0lJB3%06Ld,QL!M[3d"qHaIk)1(eh$D(jkd"%X)E`pqkRkMrDBIp+qSJ,Hm 4BI0eNNMq4q@p(65hK#Vp`"Q%2h*YKU(h`'F!IUlG$Z&kS$0k2[a`S3eq5!bk'Uq !1kAh`'AiV[6(K2LMBAe"Y$j%)@(YJBd&PYe'hqBPq89Y9TiJ8$+"V#qbkH5hrpe D![!TjY21Vq$cXV0Th@CNH[6c,$!Z[5`'j*,iH$J8mEPU%GG`m(dXc)cUGGGC'EP Jb[ml-ei'X'RR8-r(!*!$IdGiGRKRGhKiL(KhKiQ*LS"3HADCCjKSLRGiLCH)QBL CKhGiL(HBKiKjCiQTUT!!#ULfGf9SGEGQ9AT@9SL(QV!!Q)X+!*!$#JS!!+UCQl! +!*!$#J!+!*X+X!S!N!3+!!#D!*!$X!#3#V!!!+#kHCZJ#`#3!h!+X"J!!L-d9N9 fHCN!US#JS!#3"UX!!,!U)N9@9RGRCiChChL(#)L*Q(H(TkL(L)#AC`J!LU#3!*H )Q!UU!!#D!*U3!!Vrk'K$h[irqG2dqVT3Kq!KG%GfL,aN&fSjj,&Z,DS[@V8)G%M X@R`4E&LLMGMmmAil(QNMRLf*Tl%)G8Mhm)XrXGMUaE9IALejD)jjE&%NdS3l&Zh &2*jGfLl&2(GMRmdGQ%-!2r2*[Fp&`)RE[5bHMUACj1TZ6A)2N!#p@(&qU+qKlGD qKdUJ"Hb3!&l4"HQ3!&cb#jfB`S"6jDPANiZD"AGU9FJK%M!Mr1T9bFf%18UKmrX J6r48@#HK$LrT&MeXYr*FjF)IKC!!Al'j0,GSK$$`,k(BUF2,8+pkT`im)BS#ZY8 LiBQ"R9)B#)VQCIAd2JUF-A3[[p)[6kX8*[9cXl#fl&i6&pJ$R`JFj2mf$IZ["XQ rE)hqCJhRk$dFdL1I!i1GGk1DC(1S`Fd1Xp(03MR4FJTpF08MR0B1GCp91i4c'B1 D,l"RG)jKX(1`qURH!jNZ42f(dieJ1FYJjlQLqR'ZCjpZ!(X-R@&GSQhm,EN&!IC !pm3([rHM#(d%K`53!28pai4hB3U!Nlj*&3m)c)I#$fJ3H"MpbJ1bcB@rBRNSi&S TX&pj6Ke0CX["k)$hK)pR%HT!HMmdFV`IkJ(r%aBb6*E#Xf+,$(Af`1l*2+C215D lhl(rM)rJ1$qLrBrA)rLZ$rAHMlPNm)BN$DP`jBXpk!#pUT`R%RpjU8!,A),i'C1 FB%&+T`mAmD[1&VH'!kQQ4[#KrMliZ6L`K6KrMqjb,B-1,r8Jhf43KXJRjd@AiYq 19EE0QDHL,jGf6Fh5&9+fV*2(Z'lfT@r&T9pRaekXmGU@pFUCVJKAMZhVG&60brH qb%0C9$Zl9H1aCCPq"Mi3BeTVe"P,Q1(1j0HP"`eBG504a)q880MH)B[[Iq3r`UK kPZDl(UcbHBD)R%Gr4IeP,a'JNM(3m,05D@e*jAiD'VG+PK92f&3)S[hZcrLUjd9 UDH)FlPQ1j@Lcd$YqH3mkZEe%4FjTbfUe`jejA$AaAU&GG&TJfL4L[0l9H1Lp2,G LXT+rfMd5'PL'r9I`hFTbm0ijj`dlJLYBDUY-f-IDITD8ScfP!T!!kTT$fL$4864 ABjE-39K*Q-(DQ,XJp4+`Zd%cE&)CV8@h`$Ui*[3TZBEMXSEr)dh'S%d@l@T0FZ! YSSNPmYf+V*'&&4SjrcT`UG)jV-m""aGGHTdTCYP,SQ9L8S*M['A,YHReGPj@Tpm A28-k82peYJ-R!eTN6@BphiBU["@PcFXG2q+1VIR3qZ,LrkUN0cIZrYPrNbi[kaF Ar"Z&qQ,M",p$3XD@PjKeElq'Klbh"8#i,lD[,&`@8%iL(hIfjB5&0lbh-rPc1(r D%1DK$qA-$@'UR#jqVE&b4kY1FJa#'1!`C[L#M054,+`&01(p0ANmM08fqD%1C6D 8JD`cmR!*jp6KrF*(jfB"$f!)EB2%qGqGQ9Z,q3'XmCI%#HR8"(L+M'qfRJFAki[ V-Qe#$+Fk$2)Sq3X,[*qJ,!#rmJX*V-mMqeKC8jp4*NrB![bCR[P%qT*UD%)GjP2 qfY4RS&4K9md&IB+[eDLThDHUrVM5&PTRJVVNHLl@Alj*5I!EIV5UYYk%I6"(c`` q0bD'daK4Bk*26XlA15r4`CP2BGkc$cX[BGpBSTja@3iL"fAriE5T0l$Ii#H[mKV 403hNp2UcS3dL&JSfSk01pDLh*il"jPV%@f0a)jU20*BLm-IRfD*iV!ZJ#EGI,Af 85B@lmbD,cQ1**,(jlI!a6XaEp%r8LecchVH)5+j(F5mZ%-XSmPU+eBNYJFQBES6 %kK$Z%LeCTIDS1QEbL5a*MickXPhI'VXa)X%qcjpdA$F%ek+a2(&CQPMLmmP'k)Z ddml`U@,hSB@p5,8#,E'GFeP-Q3KHNaEXRcaQql1!TEYMAD8)qD3J!*!!bA6*C@B l9J98Z,4c8JZ#MY"''2D,VqhRjfKeQ50DhL9MPIpC`ZFkL'56IcVl24X%ACVkrKm D9eX6(PGM#PlAI5KrbfmVcLhlZNFI1cU5l&,-D6#D[!+`il)TiDqlK`0Lfa2Z,EX @4+mcb%Z,-`lr&a#d4$DY&ZaLV8pC)`9hlFG%FXGdEE#lC)[Rr%Z8Yh1EJIBF!cB bi3$)JrXJ52c(GN4hc)FAfM!$PeKJ*hC,FBchHZSRMN6688XPEUEP8'qB4Y*B1MJ i[%Fb!QCI6!JaDb5@I(HNS!Rb4PUY)+CIaJ2-MFJNa0!6E@q*dJBae&%J%BC0%NH "jfZ,f3'i#4`JD*SiR"GSRc5*RVHD*j5,Ve-ja%c`mD*qX4-m-fLI2)QH&3%mP42 NiD1Ci4ZLZ)491$M*9miM15XUdlF0-9dZ6j-E%`D),+eSJNUp&SJNU1Zq,R0C811 d&kZ'AjL&bSRQUZ$$PT%LpS-6NN(P+R,fr16!-p`+q%CMR%l+91m9NdlB5SRG`B2 X8H81!3qVf2QMXdq!@"X%1B4$i@L'34$YY%-NL'Nd3jT%00SKP%3e'L(1)KUY%2@ )Kh'L(2)Kh3)FY4!I2S#2HG%F3L1XcTij3X[()Y)feb5U)#0KP+q)UkL+4[hf#!j D)BRM3`358q`d33`m,&%HcJ-!Sq*SLV&XY%3C!4q0SL*Y!4VJ41f(HUF)hIN+YTl +N!#VM`+PUF15F[L@,hd0qT@!bJINJ2ZY$qD!rml3r+!I1JHCQ[%$HU9ZBkJ$dUF $bJ@fKj3"d&J2ADH[lU$45m["Q&i*iNTkd#VmVZD0hBU8+83X6[+-3X5h,H0"VrG KVrHdcN!DhbdE`RU3!0r13ff`0R)EFB'h5'bZDDR090jQr2c*[ca`Tj!!cIR`ikH $AlIraf1Fe2$)%J&'H)`mL(JYc(JYja@Bi,C,2,TmlrmPaGLb%A[TeJ[FJDQaAD6 895i$l@Ni(V5&q*JDLQIXBQ$%fkQ1iMh!pDhRiQFe8crYLB-IEUBlM-F$ea0[a-b N62UV-6"CkkQ0X*H"kif(%ah'i-*rYGTb!rpDK4"2Q6rLr6kUGI9q@Zli)lbH5p5 XqH6cr[Yk9SIfIEa03HSNFqPEMRSik!f[Ca8#+iqXZN2m*H"Y*!VM$q9-#MJhilq 5cJDp%GcN+K4f94#*kdP&-q"ecGNS[V'"hCjVP,6XAC0c'fCihA($f)jEhLY@KZ4 [p,1[p,2[p,3[p,UihPYf*YZaESQYc$[Pj(HYN!$[(0i#(Aqr46eCl(RmFISSTpk 1MAZ@2,(KE8GYH5Q&)4!rYa6fEbM['PQM`G1DLJ30A1dR$fK[KMP*,Kh8#chdi1e mQRhZjim,AP%(Q@!P9ZAqlmprjJBadI*[T'I)6GTC%!d#!FCpqNH%mqkQ%mpjF&H 3!)!FeFicl@(Jep@DIjDr(Cb4T*5h!m%dfrJV@l5hMJpKA$m-li-ElEa'I$"$U@N 3E$hNq1#SBZpXU2%0[pbI$E[Ga(F8h(2fh(G'J31fUQ3JpakK)f')%RCfJ5GQ+"* f6S%RBkJ5mrAVIe@Q[h"Af38(pa!I3cUERXYK$ma+&BCr*bKG)fFHiJ0lU!fLJ0e m&IHfQjk*8ql*,*GhEfrL1q2R'mXe'&0DB08f@MClJ6SB"m@X#L5j(JJ6hSq$M!( il2aEL[RqP8Kr4NPVMXr#Z%GCp"SNZ)8fCAH1RS4(,JkQaUprZIN`$,DQGS"l[m& C(8c@L4#RUATdm)q13NrqN!!)8N)N5IN"EGaMH#aGS3bTS&!c`b%X@#&Ne[YM%eK p(,FD3R6)-F[Q+l0@lL'b"JB,C'B6i+m9q1cMGJVr%J#3!q1NE-m!!3!99'9cG#" 6CA*TB@a3Eh*d)(0dG@CQ!3#3!`K08d*$690#3UH-[hQRM,pj!3$[@"Gf!!B!!"1 i!!!DB3!!#+8!!!ZZ8c-!!!: