Article View: comp.sys.mac
Article #21496Lightspeed Pascal HyperCard Interfaces
From: Richard Siegel
Date: Wed, 11 Nov 1987 23:28
Date: Wed, 11 Nov 1987 23:28
140 lines
9194 bytes
9194 bytes
This BinHex file contains a StuffIt archive, which in turn contains
Lightspeed Pascal units that allow users to write XCMD and XFCN
resources for HyperCard. Also included are two sample extensions.
These were written by Steve Stein of THINK Technologies.
For more (necessary) information, see the HyperCard Developer's
Package, available from APDA.
--Rich
(This file must be converted with BinHex 4.0)
:%QacF#dqD(P`CA*MBA*N,R0TG!"6593K8dP8)3#3""Bm!*!%'P*6593K!!3!!"B
mFNaKG3%!N!J##da68#"'E'&cD#j`ib*!J2p%!1)!`d#!iba!J'9%!!!JR!!Em'$
rrJ#!rri!J2rr!!D!!@Qf!!#k)N#"(9K!J94&@&435Ne0!!#G[MNbREj#!3#3"J0
R!*!'!N)!!!a6!!%!!3!'c`j9R#5K!X))Qc"cd&4aNiE1MJC*R&!T)X9)N!!K44S
NU$+Pb"50#E!-D8-QL4XkCPL!%%Qb#TddE1Bme!K&bK1-4+T)+3+L6CJdEN#JJ"0
'6TJf81M)!D&Mj8Jb5H@NQ*QN#43Q4CS8N4L%5T)R6KV3Y)P6*dq$#0%)*@S8U9+
Q6NP'R3V55K!T)"1B1CK`b*Xk*q%bHH2QM%Q(HG2!M6Ma#-@(#5,$H51($Y`M4Xe
%K4ajcYZQ8j6+U&&MCZ5D0i[Nh&R`*aZKCH6)D6,R$0c3FNEAQ!TL$iJjC5c6390
'5TNjGGKB$Z1'$)JiG4U#k!055*%M%I1b24V9L`Xj`H[)F@-P$*XkCCMf!!%&)C8
h@Q+r'9U8Ze+9X@IATKYj+a(6eQ%A9Q4*'!(#GQl*i4f#IJ&Q'3mqJ"!$#&3JX99
H4VL'`JN)"KFE#'2m&9JDFi$JaKZ@aA!#A5$&*mFEll8h"heY4D85JYfjJ1!F@m6
3K4FUH5E9$JRiCNBDFRKfB(eYJ%!L#(ZP"D+)PP%A@C4p8DNH#,Lpjd3GEG"SRaa
"+X8LJ3Bq3334+'#*4S-RT8#KK30'PL&-'il"h!NR@1BQ#-b"m!BCcVN"TKJI[Q%
'##qeFGb+)"A"4%Gj"CKGC*%G%4`8P0%a9+ImB@V%%e)iZH@%9$`"*9p[DNR%%hP
&CQQGQ#CJNKfad@(F'*j19YQ#RHj+4kLehTUVX*rqUQ1`CI"+E(p1r*HAIaVjCaT
UCE(Q%e#3!-d+%PS*LCNJIpD+jCm,!!)+6&03)&"PC@XZF(!!!&088P-!N!-E!"[
`9%##%XK!JK,53))5iJ#3!`-!"J!3!"!!%!!(J!&TYN#"RH3!"Xmi9%9B9&"+68d
!!*fq0THG[N(Y!*!'"*B!N!B#RJ!!2BB!!3!"!!CRBP@F*+%#!NUC-QZUZ%P$CdH
$"NQF8#NLa8L3!#&&'L5S-UA)&)d*X!aT3bD*'cTQ@)!35E)+R64XjMM8#%A+%ia
%UNJT!U*0Q$4Z3+#!%dC1Q$C3k-J"S@2P5$**jD5BQD3*&#C&QK54')4+NLG1(LD
SHE0)cTd&$ki45Y3S8U9-RC+-1K@NP5"53#D!ScB)'6*,QdCeQ+!`Ai46dZJTSr,
`'LYKf-4PmXE0'C-0pFk"fh5+8KNeDK!Z6+G-'cKAhXL"bKQ%&k#Pcj54-cT"kG1
8,8H0ki90j61`#3XTFL3Lb#X$NB"SHc5U&a"%RZJGAMaXi6dJc+54XhPjdD-JdX`
"%HE[dMjk%fLCrBE+'bKKjJcprPC1BrTcYX6SiNAPCUQelG@AH8ceX*a5+(JQKhY
1e0('I'j&jCp5+G3&%RCcP$&'C@4ijjC+DCJ"!R"fP1%'L120S9JC)+"AQ'&U*EC
BJ5$%%'!54RKie""[e(%5#!E+!!)95'b9AJ,8'IILLq[*dGjlm8(BR&,hZC@I$2a
0#1#4!L+f)Sd+-ZLJP29T@GH5#@a&a%a,$K&%4m[&q1864K`C3eaF1JDCC$SB+!4
$3EK""JSN`'$SS8BBdGL!J(PajT*#0X9PNYDKDCYTU+R'@Q!'`[%'E,1Km#FGJ3j
+3U+S*PU%5TV5-"5M8P8Bi)Yk4NEMU+85HLJ-UDTd@kDV1IISNQV15J1HPP,+jD@
irECERmYpHP+SZ!T+D+USVKSR3Rie+ZZbYI*Ti+qjRH(FV'NkXHD46a"*%A)GjDR
@RM6#%'#aBVhi(id0YZ'HJQ4+Z1eMN3fEJ"aPd&'(('lX@3H,d-)hKhY0[K%`P5$
m0bbqkDj,NddikF566d!*4jb5BkPemCBGck5Q#`d!!!)3@%004#"*ER4PFQCKBf8
ZF&-!N!-E!"[`9%##%XK!JK,53))5iJ#3!`-!"J!3!"!!%!!(J!&TYN#"RH3!"Xm
i9%9B9&"+68d"!*fmjdkG[LLU!*!'"8d!N!B$CJ!!"48!!3!"!!B)4RY!)-N$Tib
F-@(NN!!"J@9)%b)JdVLKBp"-Q$&P304aNiB1#$0[j)"JNZB-'MTc#TCC##A-()4
X324Td#!JLM%T3-6)JH-'L#PjfS5C@'B-L#%KiEJ!!B)+NL41PM3YLXE0'cC[cU3
T-`F%N64fdXa*mmD06*S"Jj!!#31(iN+3!#,Vc-PiTb1DN592TLbc%N6,Pf&LQT(
cTNe%0h#&dL&V&JlKX'6kcJ`S*Jq))($JX-Q)Y!fF1K6PX!#4a-fBT6-E9('5K!T
$Kd4+dc'cS`&8+N@N'!NbT%L$"%1H1*P#K5E6J(+ieQ(MFFbEb&eR*NL!*rQF+AA
''1d"!NEYkG@j'JQ6*LEh'0qT@hIbKNi5cb#ibkMGi$L)j((UF'hqR1YCm2K08BB
EC!b4%"P0F$9(''GNG&jkiF94K"f"&B'(Br'"-0p[kT84aa4db#(4'8`-H!BGGh%
h!i3"KMKL%f(3-8D+)0"!(i!HDQ(3'd,N39&Ah0R!SSGr8I''MS4PH-13!(%JqBD
4If@)!j-JbQ%N%f@GN@%19)CST"0e'(DHGaa'@+@43Vaa9BBaS&GQLeDqBD&(jff
)BaaBZR''N9@bZH+E(S,C"TmKXQNMS(%)DL35CH$"CJe-TRN9S5+G*b5LFe,+jT+
)(P%'(8GJ*8CJE%k*U)#JLNVUH9afqUN4@l&"4Sp1K0''JaU5HDHRG-"DKUbdKTQ
K$'lZqQUXXqD4"%6bfGRKKmIqQQbYY`lljjfSqJTX(S)1HbLfd@kll,#3!*lUSTj
&j,HUKTIH+F@RGFMK"T3Z$FXTYJM0qmDlG-4VPRbQiMZ8N8jQ1%1V[e'4"45qFGK
3'f4!85KhAM`m+eCMV*'Ha8*J[%D'8K34R"4%F$JG(!RCLY4'(ZP!QK1i(C&EHLH
Rh%CA,JFKK44"C,&&$#ki%)-0AB$`K"%#$8A'CM3RN!"F[r*D%CKq),L-K0*-Qj`
!bR2-B33E$&B0JK"22-&%%8%iFH0d#3`BBKj3[#&4bhi40SE%FZc!P(ed[!%#6$'
0QM%)I3Y%N!"""LVd(p[ik6F(hEF9)E-869Zh(13`5ckceK)&)FFC1&qfFmmr"ie
$d8H2P+9X6Em"QZHJLkdccci$l3)0U#1GjaQXQeb%%d63Pd368*cGa1p8"%&&%X,
4p$X4,J!!!K"B3de%)&9dD@aTG'PPFbj`8`#3!aX!'r"83))5b%##%Y*!JK,L!*!
$!`!'!"!!%!!3!!H!!@Qf3)'Gj!!'ccK849K88%T063%!REcR2Cfq+M8!N!BL2`#
3"J`J!!"EI3!"!!%!"QQBHd!Jb31RM*`aBH53!!'"C8J6)L$Ud%R$*Xh%-R-LZV%
)`X`E15#BT$Q$KXkFJQ8@3JNc"b%E%(dD0!L)BN`+%$&bi,J"BNUH0Q(Fd#Nc"X5
3!)p`A)!!339*%LG,Q"*&iqB0QcGRdQ!%3550R64cdVaa!e0Q`#"N`X!CZY!Mb$T
cbS#iBa&0b*%P6jC*#@*Pbc![cFKjd`C%'MGZJ8iF#`,1i+pNq-B-+#B2L#"`i,#
4Hl30()N'@B")iQD-dTJ0UMK*3S@K3b*9*V+CXd2Q8bT&T"J*-U5)c!49TK5CdL"
"JSB25G-a8lXiP5a3I"ZI3NI1M"JJH[5N)ZATN5hAZc42B%6e%#T*RMMT@Ih`Q5C
Kk)baL`*1`M"YS&3(SF0e'c,kb9'EF33@D"mG3mP"9Rr8b5&$$68-@'#"G#4d4KP
dm0GAG6Ie&q"ij6PaARVVq8A&'eSBp!B)pGfAhhlp0I6IKm9051!F-,,R))3G#K3
8'CZ0"i886r3'Qa4&J*!!iQ!RqX@LIA,J&k#'-J*BRB3f*U#(LJeU5'1@aPN4K"5
0XG3PJp8p@%-+)*U(RRSkRXM%@'FmkH+8-3iaij8eCSNM5'KD&d12FlTaKR*YL[M
QHJfHk%3GKE8BjBZ!qQHPJ(hDq+H'$9j(+*f)rKELL(!fqSB3EeKPjk4i@[SPQ*X
'kUQ'3Mca""0&"1&%SU3b@Yf*4H#4SD45jPMPUhlQf1QJ'JBlP"Z4NF(VSL(4H@+
Aa&*+TCkABQNM('r-m@KKr49kU&!p,MXYL5#-HqeqfECk,*pJ*Z!'T"UDUebke9f
h,TcZ[S&%'ALX@QbPmf*DllhN9QYSU!YhPC9*'Yj@a"'jm5[S[qXjqbj)m4V,,E)
f-YbXX'9!Qj,'rSVU*VZS@[@a`GVQZDI#B)U4kN[peATVVNk`()13!%3D@3@52D9
-aK!*NG%%4R1%F5(0mSj-,jKYc&&RS'UbkE+Ll"CK"f$"1NDeb$Gl1b("CR20SiC
)r"MNelhUk"i6+Cp""he3(VaYfTP1q'HV!AlkX&!FJh!%KNGF*3CJCb0X0FjCRZ'
i%rM*jIDDF-YG"Y&&&R&NNP-`lMMN)8X1H,f@[b%'jQeSVU1DDKIBZKK@!&D(l(&
$ZjRAaBe+lH*d'+%9'f3)N3IXFUAqGlH"&iL3!%,'Pi'm%@a)6DZYZ1TD1i&Q(%m
'mjbQqACr[32j1Gh$BeJpmXU2'rRc*%mi24R[ijrpeL$ih2fZd31Iq16A(iYK6!S
p5YrFJ[Fb1"%[ImT,!N5FCc2SeHYqqF1HpRV'2D"pccMKXaiC*&Ja*q$QJ!Rd(1L
-KV65&8pmmF[Fr#TB2qNe,B2lfpl2["G!%!j3KT[lB!*#L,cFmFa([LX$m")`T0#
0,QN[&'(mm%9"9edY5aJ8R`Ejjcm2pR#)!m4A!8eiXG`)NBKN-',RNVM%*V+3!(6
ZJf%H5&M&K!NaLb,FSJlrGdEaNA#-*c6M&p'S4[4jESR#BeH$h&1%103"GAfVQ48
TTkRUa%!dIj*"qAE%13lZ%)$&FD2SMTBN+@#S$JTU%NYQ1%NKEQN`CpS3*5FN*M,
CC`kaE&$A9MM+&L,%$5Fb*4e35CBk6Nk)Y36"Apa!1!lamSP6q1@*PV3LBki16-P
FCM2Pd-DLp6**e&6H8$*L63Z#L3`ifUB3Vf+SSp4"+2N#&EUDNi3Q3!&A65L##B1
`U0q)mSP%H)-5jJ#b-*!!J3b9JX*JaP#i!6fq46J*))!-Be-!)SL%"$BU3!!-
B*'k4KS+2I0!`)#&Fl#NeZJ*VN!"3*PC9a`YFH8+I6(S%P"ES-%'3!--CjV#&'(5
"2pTjJK5)J!)J(#K"E[$D6Gf3!01GEN%'2p9"8)H+JJVT&%0+*C!!(-VJ5)aN5+S
J`-0@i`$5pm4R2Yi+k%$PJ)+895F28(M$BHL3!0ATY#HNCl8,@!1%JMG)T+Nmp@P
Gp8Q%!4'f13`%'ja-K#)9PI5N6NMT5PYk-*J53DB%SUP0#B46R3BfUP-P+K$q90F
%M(9h1!*U@-I+@'UQ9D!%EDY3j!"AZFic8ke9N@S9@)DqrY@c2Hh#B*e3f1)F9LD
Kp1B6UDP+fK4(Xj%eMNUE3PP+@4DcaS&ZTMVV9*qU9UK%IH8E'P4Dl[)8UYqPUP(
0j-a-RGDVUK8V9jRl"VqmGUfbI@YFjcVFiLEJZ1a6j+rHB+l(eM5k#CJZ5b-CS1[
1&,,EC5T`[3Y@m"D9Y0jkEfV"+Pqb$VM!Q9*VE0e+frhHYN#Q-TGUr8S(`!BA5mI
p,h%45ji'qNS1MS+8J6HVi1Sf1+B22R#%A8cKd&ki[3A5m&Hedf&6MHZq)jjYEIR
V,5H,86XX*V*iqK4M!#HfEUD+'4YfM1!H-rLP3-iXK*HUjI5+&X2Zj5TUPlaDVSC
jCe"Q+iQRI')#h9P9B1fLVRcEiJN,&mBc0QkL!ebU!6Y,3VAX8m(kibbPTB6-NUA
ZQHAJB$8,QFf'G[14ZHNYmci9Y##`-"$`8&SPahHXTRTdL''VCbQEQ+j9GV5`iSY
SrhUjaSTGMlNq"ZNap5P@1QTC!V3VhFPZZY2CA60R*GaG9)0,A$SH-R$4@f(e`MR
*FSB[KmFkl2&H-3%LVV9qEB[V6*Al60Vj8km0ZqJ[8bYJ$5Uf&)kYV(i0lER50[1
Gd(cC)'r@1+BZ-JJB9QTURaI9U[kf9X1pB5D2&GrR6RGq5mcZdQ)F82'qBTIV$Hb
k"@aJH0!h[bZP,S"r1X(1(MLRdacYPb2FiF&9,F1el94ZDmF0%V1)Fd(Ye"P!h0Y
)RRKA+elR1*bFB(RH1*rEAD#R6cVNP"YjF4RG-@%4ZdD4[P'r0qCb(XIFT6-[Z+F
2RS#%(efd$#X[cRfHDU561Xj,Th1(2@CZ5QTmclFZ,GrKV8b4*eV'@lFhc(Efp6!
C@q`XpcHQQkeTQ80lfG+qHC["ULqKS%"R9T'lLqNHmD3EapAMjUUB'dqJ[pZkipj
DIGp9+fmZ(rlArb4PdU$&0)8mE3j4Zp$NB9jjY&qHfG2H[*'"N!#e-l5DiRU(YG*
klc5S5@ep"A,pZUPXHeq62*&`%K[Cm1#Bi3[Fq$6([-hEMR1&UjTYG`GhhPr09I'
cS@aqTlA8!qmYqq0rYjj$D&V@Ar5@H#9(,@@&0iDb0qChGT@9IXLRHD(@E83e1+C
R@Y"(IaiQ"hH60``iDrJ&H,#A+3RSJAU&CEp9EI1QD!B)IZY"2)hM1S$4J-AhJ'T
AFfcRGU)'",I$2-mhIkNA"c"i1Q-'JP'fIAeQ(%-SJcbM(E`PJ)C'J#a)BlRA3UE
$K$5iB*B(JCR(IXTAGk,9JjNMHY[fGLK`1dDd1cmiCaVS3M(i1%@BIISRJYa()&T
(BbkS1(%N4FZ619RSB`5(AHUAJqeRKRKd2IY$KMeRKN#!4MkBB4NBK!mN4m`6GA5
BK!N`LAa)2Q$eK&N@K5Z)H(KSBhSB4I#c20NfL'AQJ0E&KHZRJa4B%cHN4BRBF+1
(DSkBLNV(KT+iKkIiC%DSEKaAK`5LLEpiC8LN2P"BE9)SLXKeJ1aLM-Nc4rk&I1G
RJi)BJ9iiJ8CfL2SM0BViF+U&4K)%L8"SF9`PM4(NAkdhKkp(M%VSLp2i4diBJ*r
)M+')HmUPHbi%3AdB1hriE+j)L&pSBGki4H&iDM[SL'0SLm"PG+*'5)#aKZ+'MQ3
PMc%%N!$"Z(mMD)Hh4h*9#%HQ1)h!U)UCTSASGi-Q5A5I*@S(@BXm*ijJPBYYi*!
!4@H'%XN'&-Pd6BD4U&L6'hQ*9'FFGrL-)3P&rPL1CEH+0GL++UQ0X0L0XjK(--Q
5#MQ6IX51%RL6%5Nq4V56d@GR2UQ8FKL#ljL%4FPeGQ-SMI4)F@L0V2KM6pQ&83Q
'ScBS0LQ6bjG*B0Q'Gh8'E6Q$3AQ@3fPA(-L@MJ3jJGC"JhD2Rp@-qZK%ZLG-a04
F!EQ&FrQ+K5KUiN9HHAQ9bhG,RSPh['L4P*P+pF85PNLBN!!*N[[S5d%46+HN)*H
CNYP)PjXCLk2e5`e&QKACG0%8Qfp`QQk`QNKBQ'QCA*)*Qm$8@)04QpKSF!LfP5f
TQpTdJDKRNF(CR+ieQ-ICQJCiP1'8"q-%R8jjQjTCN!"8K8jdd*Y@5AIXG!EZK$L
qbC0M0ClPkCh$L*BI@9b%j3)%,3!!!:
**The opinions stated herein are my own opinions and do not necessarily
represent the policies or opinions of my employer (THINK Technologies, Inc).
* Richard M. Siegel | {decvax, ucbvax, sun}!harvard!endor!singer *
* Customer Support | singer@endor.harvard.edu *
* Symantec, THINK Technologies Division. (No snappy quote) *
Technical Details
Message-ID:
<3167@husc6.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!mnetor!uunet!husc6!endor!singerShow Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!husc6!endor!singer From: singer@endor.harvard.edu (Richard Siegel) Newsgroups: comp.sys.mac Subject: Lightspeed Pascal HyperCard Interfaces Message-ID: <3167@husc6.UUCP> Date: Wed, 11-Nov-87 18:28:11 EST Article-I.D.: husc6.3167 Posted: Wed Nov 11 18:28:11 1987 Date-Received: Sat, 14-Nov-87 02:58:49 EST Sender: news@husc6.UUCP Reply-To: singer@endor.UUCP (Richard Siegel) Organization: THINK Technologies, Inc., Bedford, MA Lines: 140