🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.mac
Article #21496

Lightspeed Pascal HyperCard Interfaces

#21496
From: Richard Siegel
Date: Wed, 11 Nov 1987 23:28
140 lines
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!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)         *
Technical Details
Message-ID: <3167@husc6.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!husc6!endor!singer

Show 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