SHULMAN%slb-test.csnet@RELAY.CS.NET (Jeff Shulman) (06/30/87)
[TrackPopUp - Uploaded from Delphi by Jeff Shulman]
Name: TRACKPOPUP
Date: 15-MAY-1987 02:31 by BRECHER
MPW Asm source code and listing output for TrackPopUp, a function
somewhat like MenuSelect but for pop-up menus. Works on all
Macintoshes. The listing output will be useful in deciphering the
expansion of the "Pascal-ish" macros used in the source and for
determining the values of symbols and trap words that might not be
defined in your own set of EQUate files.
---
(This file must be converted with BinHex 4.0)
:$P4bB@0V8'p`9A!ZF'Pd!&"*9#"3593J!*!%S)S!N!5LKP"0B@F-9(*KBfY3Eh"
9F#jK!!KB!*!$33aQ!*!'S#-!!1N`!!$,c!""!3)!(`!c!*!$$!#3!``!N!-L!%%
Pq!!!9%9B9%e38b!"!*!&+mJ!!!&qQmIIBjc0BCbPQcXJ9(*KBfY3Eh"9F#jK$6X
JBRNJ8h4PGQ8J3R*PBfKPFJdl)%0[F(PbD@GSG#!a16Jh)&0[CR4hBA*P)&0eF("
XH3dl)%&XE#"3G@*XD@0KG'P[EL"5D@GSG(-J8Q9cCA*fC@301b"3CA*YDA0cD@p
Z)'Pc)'KPFQ9LH5"RFQ&ZG'9N)(4[)(4bB@jcE'&dC5"dD'Pc)(0[GA*MC5"MEf4
P)(G[FQXJG'm01b"MEfe`GA4PFLePH'9MGA4KBQaP)'pLDQ9MG#"[FL"YB@0SD@j
P)'0[C'8JB@jN)(4[)'4TFh4bD@*eG'8JG'KP)(4bB@jcE'&dD@pZ$6XJGfPdD'p
eG#"bCA0dFQPMG'P[ELiJ)%K[Gf9fCA)X)(4SDA-JGfpbDb"YBANJEQpd)'*P)("
eBQaTFfKPC#"TEL"`FQPZG'9N$6XJCQpbE5"hDA4SEh9d)'9iF(*PFh-JF'9bE@P
cFfP[EL"[CL"dD'8JBfp`HA*TCfKd)'K[E'4PFLi01b"*CL"dD'Pc)(*[GA4TEQ8
JDA-JD@jMEh*`Eh*KG'9N)'PZ)'%JFfpQG(GKFQ8JF(*[C(9MG#`JG'KP)'&eG'K
[FL"hEh9XC!dl)'&`F(*PBfPKG'8J+'*eG#"NEf9c)'j[G#"bCA&eDA*P+5"MFQ9
NDA3JGfKPFQ8JCQ9KFfPLE'8Z$3dl)&0PG#"dB@*c)(4[)$%`$3d*6'pKC!NR6@&
M4'9QFbjN*`NlB@aX)'pQ)(4SC5""F("XC5ecGA"`E'PPC#"&899KG'9c$3dl)&4
SDA-JBfpNC5"YB@YPFb"PH(4PER0TGQ8JGA0P)'pQ)#*3BA0MB@`YDA0S)L"YB@0
bEh-Z)#"8D'8JE@&MFQpc)'&bC3dl)'PNC@jdD@0KE#"dEb"dD'pcC5"hD'PMD#"
KFQ8JFh9`F'aTC@3JD@iJG'KP)&"bEfG6G(*eBh40B@0c,Q%JCQPXC5"dD'&d$6X
JBfpYCA-JGfPdD#"08&FJ-Li`)#KQEh*dD'0[E@PZCb"KFb"[CL"0BANJ-6Ni0bN
JGfPdD#"K)'0[GA"XC5"[CL"PH'0PF(4TEfjc1Jdl)%NJGA0P)#*6G@*b)L"TER0
dC@&N)'pQ)#*3FQpMC@4eFQ8L1b"KEQ3JEANJGQ9bFfP[EL"[CL"dD'8J)N0KE'`
L)'eKBh*[$6XJBA9dEfeKG'PMB@aXH5"RC@jPFQ&dCA-JB@iJ5@e`Eh*d)'C[FL"
KERNJFQpeG'PZC5"hD'PMD#"TFb"eEQ4PCQPZC@3Z$6XJ8Q9QCA)JG'mJG'KP)%e
39b""FfdJE'PcG'PZCb"[GA4`GA3JCQPXC5"dEb"cC@8JG'KP)'eKBh*[)'9iF'&
ZFfP[ER-Z$6XJ9'KP)%&cE5"XDA0dD@jR)(GTE'`JB@acEb"cGA"`E(NJ+'PZ)(4
SC5"[BQTPBh3JBfpNC5"`Eh*dD@pZ+5"dD'8JGQ&XG@9c$6XJEfBJFhPYBQpXFb"
KEQ3JG'KKG#"YD@GSG#"ZEh3JBQ8JC'9QD@jPC#"TEL"[E'4PFL"&899KG'8JCQP
XCA-Z$3d*6'pKC!NR8d*0B@0c,Q3R$3dl$6XJCR9ZBh4TEfiJ9(*KBfY3Eh"9F#K
05'jNE$S*)*!$6@9ZG8KKEQ4XC6X01`N*)#"dD'93G$S*)*!$8'pTER3l#5!JHh0
dBA*dD@jR)'0eFR0[FL"XEf0KG'P[ERd01`N*)#"MFR0b5A4PE6SJ)'PZG'9RCA)
l)(YTG'9Y)b"[CL"TG'9Y)(4[)'*P)'PZDA4TB@aXH5"eEQ4PFL"MGA*cEh*p$6X
*#5!T1L"TER4PCf9b1`NJ)(YTG'9Y)b"[CL"cC@aPBh4PC#"TG'9Y,#!`)'PQ)'j
[EQ9p$6X01b"$B@aX)(4SDA-JFQpeG'PZC5"hD'9Z)(4SC5"eFf9b)'0XD@0VFb"
[EL"cEfePG'KTEQFJGfKTBfJJFfK[G@aN)("bCA0PER3JB3dl)("[F#eeF#"YC@j
e,L!J8'&cFb"dD'8JCfa[BQ&X)'a[Bf&dD@pZ)'pQ)(4SC5"ME'PMDb"TEL"dD'9
3G#iJ)%PQ)(4SC5"YC@je)'Pc$6XJG'mJBQ8JC(*KGfiJFh9MD#"dD'&d)(4SC5"
MGA*cEh)JDA-JD@jTG'PKE'aj)'PZ)(4SC5"QDA*cG#"TG'9Y,#"`BA0c)$%JD@i
01b"MFR0b5A4PE6XJD@BJD@iJG'KP)(0PBfpZC#"TG'9Y,#"`BA0c)$)X)'9dBbi
01`dl)%j[G'9c1Jdl)#dY9'KTFb"MEf4P)(GTE'`JGfpbDb"[EL"KE'`J6@&MD@j
dEh0S)("bEf4eBh4c)'CbEfdJ-6)i5b"dEb"0B@-J58NX)'PZBfaeC'PZC`dl)*!
$6@&M)&K-,L!J5@BJG'KP)'aKFQGP)'ePER8JBQ&b)'p`G'P[EL"TFb"PEQ&LE'9
N)(GTG'JJB5"5B@4TGA-J4P"%,#"dD'801b#3!h"[F#"eF#"YC@je)(GTE'`JGA0
P)(4SC5"cF'9MD@&X)$%f,A"[D@jd)%C34#"QEfjd,Jdl)#dY3f&XBdePER96DAT
P+%e)EQ4X+5"YGA0d)'KKGQ8JBQ9PEL"MB@aXC@3JF(*TEh)JG'mJBf&XE'PZCb"
8FQ&MDe"[F&9`)#KTG#"ZC@9N)'*P$6XJN!0MB@aXC@3JEfjXH5"[EQ0P)'&d)("
bEfGbB@dJFh4KFR4eF#"TCL"dD'8JDA4PEA-JBA*PELGd)'0SB@jRC@3T,Jdl)#d
Y8'p`9A"0C@je8f9XC@0d)'Pc)(9cC@3JEfjXH5"[EL"K)%eKBb"*55"PGQ9Z)'P
Q)(4SC5"dFQ&`)'Pc)'pdD'9bGfPcC3dl)*!$BACKD@aKBQaP,L!J9'KTFb"TFb"
LC@0KGA0P)&"[F&9`6@9ZG90PE'9MG#"TFb"`CA*MCA"dD@*XH5"cE'phCA)JG'K
KEL"[GA)01b#3!fphEL"MEf H S@