[comp.sys.mac] Lightspeed Pascal HyperCard Interfaces

singer@endor.harvard.edu (Richard Siegel) (11/12/87)

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!6f&#8q46J*))!-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)         *

singer@endor.harvard.edu (Richard Siegel) (11/12/87)

I have posted a set of interfaces for writing HyperCard extensions
using Lightspeed Pascal to the comp.binaries.mac newsgroup and
also to the Arpanet Mac archives on sumex-aim.stanford.edu;
they should be appearing in both places before too long.

These interfaces were written by Steve Stein of THINK Technologies.

		--Rich




**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' ese a'"-Li

singer@endor.UUCP (11/12/87)

My apologies to the net. I meant to post that to comp.binaries.mac, and
I guess I mistyped. I didn't intend to clog this newsgroup with a binary
posting...

		--Rich




**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)         *

cnc@hpcilzb.HP.COM (Chris Christensen) (11/13/87)

>I have posted a set of interfaces for writing HyperCard extensions
>using Lightspeed Pascal to the comp.binaries.mac newsgroup and
>also to the Arpanet Mac archives on sumex-aim.stanford.edu;
>they should be appearing in both places before too long.

That's great! Does something similar exist for Lisghtspeed C?

Chris Christensen

singer@endor.harvard.edu (Richard Siegel) (11/15/87)

In article <870036@hpcilzb.HP.COM> cnc@hpcilzb.HP.COM (Chris Christensen) writes:
>That's great! Does something similar exist for Lisghtspeed C?

	Yes, and I posted them some time ago.

>Chris Christensen


		--Rich



**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)         *