Received: from UNIX.sri.com by terminator.rs.itd.umich.edu (5.67/2.2) id AA06716; Tue, 19 Jan 93 19:48:25 -0500 Received: from [128.18.10.33] (css-mac2.sri.com) by unix.sri.com (4.1/SMI-4.0) id AA27845; Tue, 19 Jan 93 16:48:28 PST Message-Id: <9301200048.AA27845@unix.sri.com> Date: Tue, 19 Jan 1993 16:48:22 -0800 To: macgifts@mac.archive.umich.edu From: mxmora@unix.sri.com (Matthew Xavier Mora) Subject: QuickBasic PCR (MDEF & GetIndPattern) X-Attachments: :AUX:1482:Test GetPat/menu def: Pure Code Resources for QuickBasic (PCR) Enclosed is a PCR that lets you use a pattern menu in your QB programs. This test program also includes GetIndPattern to load the pattern from the resfile. DisposeMenu gets rid of the pattern menu. Note: A call to menu(0) will return one less that the menu's ID number. For example Menu(0) will return 127 instead of 128 for a menu whose ID is 128. Usage: CALL GetMDEFMenu(menuNo%,menuResno%,VARPTR(MenuHndl&)) GetIndPattern Index%, PatResID%, VARPTR(pat&) DisposeMenu MenuHndl& _______________ 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) :'h&eD@0VBQ&cD@0RCA4`BA4YC@jeC'9Q,Q0`G!"338083e"$9!#3"!Np!*!%)(J "!Df9!!!)p)"'ChKRD)KTHRQ*HSPkQB#R5AS!LhQ!L@GjF*QELB"kGQGhH)GSURG RHSGQJ+N!!*GRQ)H@KkU+ChUAH*H3!*!#J*KTHT!!#@UUUUJ!!+!!N!#JN!#JLC! !Q`PhF!J!ZT!!!!#JQS#SHDS+Ui!!X+#!!*!!S)#JLDQ3!*UJ#)#3!*U+!!#`!)# 3!*!#Y5!!!60&9QH'GBL3!!#3#!N!N!`'&"094@CJ9fGQGS#3!`L!!)H)L!L!K#8 "0h[S3QJ59E3S3S3k0Q6FNh%#)%k0P#L")6BAG64eGD16SkfESDf"q$4XFq2-dI2 dCC!!6,cXE(bmjX4MBd29f,chIAj[@K#fd)3hReHe+kk5hSb@B3ZJlF@rrYEH3KM j('iiqhP2P5GHPflhdTeL&Y#GcS3q'PBNqICpMCrA1p+K*,r4RGf6j[1k%DXFfKI `T8-1%VCr')[kEIeJ0ep[`XEhFErM!R`ZD@R#CYj&6-MRacBmf%haU8RpqRi[MCT *0rGi[RDI2eSiZTUFl5jHKVD@RBRcjjBZhhm-+'a$m8Vd5d2Ul'lXJAGFb%Y!rN3 qh#P$h,HAQIE3I0+%[)Ir@VkTcG,9MS1i9(Ad0@2,p$4d0E4jNHIUk9LZLrJ3mD( $Kr'eGjHPbr3dpA6mr@MpcRkA,qrMBZGb-FXRE`YV2%K#AlPDj+k5LdRNc&qL6Zq *ephr5Y#AK8q9#(QCQ"KjZ,8qa3R`hQedlka#G'pVm#0'1EJhQ&2K0dlVhU0LGRB YHhcD9E[DNhTckIQacmhT8q`BArc5lGa0[l%,R$RMLa$IBrGNlPpfElXm@CRFDPr ,m[d`h@*-cXQPrjdJ95bF'iq$kBAIBX5I0jG'%["h63lZF5cJm1%ZC4KGKLCJhE3 Uhb[MZ[N5ACRqiA02XBq,PBr)UFE,*ar$!Z#A6QjGkNSdTl10ASA&2hj1'$1i"2N SA"TV0#Ah9('UkkYl5$NBE2r5#YRfZ6NcXQ&rTp@IHVGV-TpM)c-[M8kZ4b59G@P flDm,a6Z$BK0*TGYc6%`lEZG"*`NXl9#CJEfRlrrrGUjK0,T#@ce2YAYHAL616aj h()pr@GNfhFVd[Y919ZI[UFVi0b9Ai$6ciD&fVchLcfmfIC3PXqea2AG(VK6hk3p 0E29X&e+1jXp5k[Fk&IklN!$ZBr)GM9-VilcFD`9G0hJak5E!B%j,[4U4cI(k%$, ,3VT`Ylr2ID3cZ3kBA@$2KH9Z&J6X#j*CU++CX&0`*UP2jeYr5+Z3!'5IUVEb[m1 G4Vrf!Rc-LaBMI8qaPi[)Ta0j$Mh#K`C29f*[a5DmL"2LerLed#EGAEUS%Ub9C%# EBNl[aIZed#@JCqc"Y[$l1j1r2CZTFC8fMEb@V9T!NPQcCNQcCUGXlLc4M#AEcBE '4jH4X5T8V[DepNp,`Elm0ATdD0AH@p[(0)AElUAeSGEVIpTBmM0Ni03*DKI)%KD [V9mJ6EKY`3**#4!N1r[XLdJ53lj)%P%TZSdE1f2V3%NXPJC[![[JXKUeGhf,D(Y (TR$jk3fhV8X'G,P5V0R&a*XflraG4UEFK!GImI5k@[l(Hld*Yh`U[#ZjT&qD[)f 0QirJkMlb0$pVhNBIH8Qp(qSBb&+M45Pfj8DI8K`Nld4r)QV@0QP,I8Vfq$eB5XV ilHbb"BPPYKhm"KKB0YPI(#dKa`eaBZM8p68RD2(ej9c'XpGdfUYBPkF'@eHDCql i)FbVQ!Efq,H[%hR1*X48h3`he0KUQQ1NejjL*Y5rcm$`+%bKZM-RA[rbQl"e&6j ljNUShLV`,6Q+[6HeBpUbfIqV2XjmRb[&&Ca4KUSp0bVZ+j9fr@VV("cr-c+%bPk F2+f[([`CJBDHj9#CYG106a-q%c!RE9,!RBeIDmRDrji2jQG61m(A"j+eY(d,"Za efm,@hV1B@V2F,2h#cr9jmTANejHlfm1p2CChHle&[GeEr2M1VRUCLA9#if[+,ZB 4m"2,T2lp8VI4`phmi6i%2i3QCe6Na"R&b-V-b34amMN9-S%FR,aXI-"(QVmM3Kp j1+J4k+8JI4H`H+)4CeY-)$i5HAl*I@%2)5VC*!9l,#T0SHif9YXT2Z)m*H'G)E% 0$IFicTiX)EVZJc8-9H6#&aa`C4h5rMl!c!dh8CSjUpmIfA)XFaV5[HJj,6jCrJE h)dYA8dpA43B!N!4p4AGQCfD'KSF(ChF!QBH(#8Q!"RL(!'!("`J!!!L!!!!*#@Q *GJ#'J(#)F!Q3!)!!!!DB9(Pe#&G@F'CAQBN!N!1CQ3#3"!N)!!N!#B!!N!Q*#3! )#3#3"R!!!)!!N!b3!!#3!*!#F!N!#3#3!f!(!!%N4'Cf"`B8*&B&B&$riI,$aIc rXH5@LZ2dbVbB[SmH59A6`Fi&M2,PK$HBKqV24AA+U2fIK(*PVVjTII(km[h85ca bCXq@%1iNe18`ERc6dFY%Tim2"`q(Jm2JK$F4c`4irRmhHd4SUMAc8D)mY&-S3[S fqcL%0Ta,(92aQ8bce16BU0(4Qd5DQX&jf)63Q`GH`d9FhN+l802kaQKmH$[l@qT @D(ED2f0r$VcJ2$(Aq'(Aq$@QfaSK@ic#,S+[B1[Ar'%0Q'RUMI`l''rKl[M+[Z[ 5Gp%r2AQk!QSIC8lMUd9jDDBVQm)EX2d-fl2I9"K@*iG2["YcHhb965h$8KBm4Af *SDf$Vdp433Kfl(Y'i3&Pl"rerIMrPZ(SrEqLCYqk,$F)DpZD'cJkiM5q0('YN!$ 9UhTkMG""fQ%X)'h!-c20[H&[C$Qk&Y[H2U!Cm6hMM5L3!(b13)Ch($,GM6l)qdf Yj3hfcApY6U"Z#FJIiIPUfLl$pikS)"PL(jIRCVZrE+[Pc99VP&T"I,QYCjD1QQZ E,BSRTPUJ@D8h2FD@bccfeh,LURTe3EGH$IQ"MlrLb,kXejrriY(TJADmQ2cmQ2& CSURPklM83ZQmXh0Up'@[8SRY#CBJGSTmd[6Aa6df%)eY%Umi)XL$(L[1m$aC62j @H,bC[6kV64ZYaG05(hAhT&*Bm3#3"&Y"3r%!!3!89'9cG#"(CA43BA3[E@9ZG5" NC@B"!*!$#%e63N008d*#TiG`6UH(F%i!!)bH["F!"J!!#K8!!!0K!!!'B`!!!SR 3cJ!!: