[comp.sys.mac.programmer] THINK's Lightspeed Pascal 2.0 Benchmark Sources

siegel@endor.harvard.edu (Rich Siegel) (12/06/88)

(This file must be converted with BinHex 4.0)

:$N*PEQ0SE@&bDh-Z8fPd!&0*9#&6593K!*!%(4B!N!4pX90*9#%!!3!!(4Cb6'&
e!3#3"b!J%9"KFf0KE#"#C@jMD'eKFQYc!*!iRh(XPTr"CGJ!N!Bl&!#3"Kb3!!#
3#Tc*!!),4'KbHA0dEfjP,R!!N$4849K88%T063%!Q#pNZTpbVGS!N!BNHJ#3"Jr
V!!")P3#3"LG0F15m15-R6"X340$)b61(cKXhCABd5$$QBF1*#Cc8D51QM*`RCSV
J+61Q$Tdd&N(d!"%$KNXB%K0Nh0MaSjNQCF,-U51R6*XbEZM-8FN5*NBQBH5F+5-
P*aZ0($d5EIR5T3ZM-TZN'50`$XQ(C1C!m6L%cCXaDkED@(XM*TdmF-TJ,1*QSmF
`*am54C'%$&!k-9L!k2YAKQ$#3@FFpKZ8aZ+r09*)a2J%)T8h90#NNI0fUJXA-l!
QU&cQXT%dCMU[M2'jKZJKBH#NS41'$C-bG1K)AANLb)R2*l5FQ#ac#KdjDGbF#8d
86KLdCFL!5&S`caE@S'&d!I('$)JaD*)56a"%6[8B40+d54+dc&)j4+Q(X8lD01U
hflZ$5+llI8cbjXdR3hVVYIGHI!(5CpNETk@@Kf$e-AKI([Pjajpl(ShA9%9bN!!
"a4XA`VH5&aZqd5%9F%A8!%BPRTJL86ea5!C'-RdBiK"[Y!'($L#dk#')lFRaRda
Mk&3'3QR-`48)20*P9d&jZF'G'5[5+"0LJ2')JT8b*H"N'cMUf'4G2d'*NKY$GTN
!Hh5%Z5-)%6Ei9TTG'SHFFQlbD'Gbbm(!T@4FBLQ$PPc+p+@EJi,`j9e4dPRFFA`
LULHNbSAf*jeB+MBBBh3iYLPNK+VCj4$KbH&QB##3!*U8T0q9HLQ03*'a!`JJS+"
#M#D5S8)++bCJ4e*cM945P1cjK3H2f%&9%dJLN@65QA2mKj0122Rd9l&P(-[5CmT
k"0+d1rAd8e$4BL5%HmQ9GGBDJY&&KVTSm@L@F[cp0m9'm+ia4lXk[XA%'fr!NHq
q)&#KAKPMbG(XX'F+GQmE"[mNQ&CZ4&`'Mch90Tk034jKPKL#1C%Y(4cV*SI(EiM
"SimPCiJ4QbLV[*q",TX,-"XambM'c6QKLC'U*hq-+Y!a*`UHH"L99eh--I#Sp(c
SUFFQKN)QR@$46LFiS03d9reb8%`I"[E(KJdfGXScm"MRK2m"MDff4eGY+*Nj+dS
QSfID5qNCBB1`Th*BqlehD-3&G&CdeB)!K8"Ma&"Vbh*!NC39YDhm9BH3!!1DJ"N
QhT'8V"-C2JEL25R1Z!berJSIQj,,dC3CDLmSCakDFbk(jah'*$VT4bjqeJbT*k8
iN!!QYrkkj6*Q(T2YZ)1H`1jN*1ll'$3XhrRRZM21ZqPRe@$plGL(VRhdT8p[3ke
IYNij'f-qL9IH)+KZpdE'P`(lr'@qre$YeqFZrZ(NkahMEP!VeL8P"ZX6'mQ5)S2
eaDid%R,3V14R30ICli(fF4$r`1Hrjie2HSc$3I$Jml3mY#i'a`0"#D0@S2jN+(l
#+f(VC*!!`K*ZVB98Qe8&%9JE"Fl3J60cS4`ff,cPeF%0BiJ5#)a`a-E9#QJR6'#
U5[A$bU8U0V1Tc@ebij%8Y#prMCS)mm+hZ5BUNBP)4"d+j2Hh-jc`G3lEf`a6f-E
3H"%%1hX$'hVf[5++dBaR@Q)6JBH#p%h1LSXbdrjdaV-`q'acrA-Hp%"iPKM-bPD
2)jj(e'G&PQPbL#$Be83kFSENB131Xd($m%,%56Ci`3@3!(16&d"!KMI3L*5Q9"2
N@[R+@1B)$V28`8SJ&c-[T'QAKh5P#pMN*LDYa(Y@BZB[RER+)2&bQ8&adc%rf8a
K9V0ibH`P0hpj6-E0!!@qe*(QZS3D*#P*4*m+LZ2SJ!DJF!QAELL80(9%64XibRc
Sr13e$rA,GT(*6H[8j6Mjk8eLINbF0b*RSDCh!ljNXk"&85"#k45V@UQ!RN!**Dr
89!BfH-@M)($$'qJ!JQ`j5cI5%D@SN!!TKr8&FjJ#$5FX&`V-)FAUNLS!!5VT+G1
ISR4k-4$PrdBA31k033C!(D(C&QM"qke0Jb*Y!#CG1UcSF!H*CC!!UDq!e58fr@X
-')cJR'MdTE0q%@m2L3Nq[dD(Xe+cJUm$`3U+mTqHa!8[+1@U5EckN!$4CC@GhL'
Dd)M5Qa1!!+45fUU`"K[6NACTVU)bkeRZ'K5lYS!PQ!T+rEcM6Ff1!35IKGR(k06
@cCD@8jDd8NFaf8ka([%NE-#IA9H#*8ZLp$Ke1&*4h5#VSjiZUd[Gh[4Q%08e#Sq
Q+I4NL&+3!0A!6KDQAc@X6$'EJ(Bk0'8Ji)%28TU'h%,@ZLreUPJ6!&hl8I1lBS"
SN!$FK*'5RK56+Q@TB,'lAY@#ejY8NFJHR%T!&,4%J6%6$(aIZ8mi5+B2%c%U*TH
,A!m#N!#5e)[UIJN,eX1193id%X,0h)V(4Mk5Zb,@SefpUGL81Bih[[P2LQhMfTA
-f+iQ!X'-BpDf8K@0QLF3`R!L60bS6Sm'&CjNq4MR2I4f96U&&Hj)ZGYL-6M1Qif
9mFeL4Ndce-BV-C&`8+GAJb4rF-PRm5G+8B#r9Vj9N@J5*DhQ6#YEbFq3!&9pXrl
F3&dj5cDp81l`GY'9clR4,bPjp5DHerHIGZCAN!")21HLDd2Gmq*hT5fpVRSYkb8
bMIDZR+SH4STddNRRYMXdkLf2V)6R42-@YN-5e+V9e%lrLJ%%ikA+BqYCD$@efVf
[r8X-C'Y5ZBMUek4pp9p%A9C1T3d%V2BdSS'Yl+"!eFQ8pI#D3MhV,X@D8cASYU(
Em1PJ*qBrB[k1N3kEE[1CqF*S(N0EeMc9+2D`JJfdiPAR*'Fkql[1+U#JD+GY9GP
0U-qmq[16Gpf6)jhN*d-4UqT5hGQcT(9fFL8dA9I-fi(,JBHjh5Y8k9VZMP-ehb'
IkPR$A'6MRS@!5V8`8c'-JqE+6iB(V''#@$Jerr6lhh6'j-d60-F,UP"V"1TjKRi
1G)$[-)(iAKq6JNJeK'XeU"X1Y(BY1r'b"Z9Y#L6a[[13!2&5pYUdR+8Ub28+!QM
+"1FIIpd@6,ZGdRSFjIq"1`VY0rH+RhD[-DMl5[3ZGlVRRHJjjc[DpaSD`D[m,2q
ah96IPRDl1Z6aIfF*,@hC*EM682&q9q$E('rD`eHRk'ESHeh2%[E0IME`e24mi81
2HG5bC$Z!0rem8+pkZiSF"UdIJq-*$rV9#rmrYUDQfihUmM')-1CQ!+4Hd0LijN,
aJ!Qm[Ka3cL2Bb)BfYX'0bHkBb$eR9H(C"Yl$bd#`fRL1)5$S#4eiiSDKp0E$ACF
*d-ikY&+G09(HPdAKad9b3fAq9dR8T(dJef0*mAm*H)$9Ka(YY(pRJ6VL089*88A
Qa@[BaPqF4ReA9Qf!89r&KP+2PRAD"S+J9KJX9ebBT),3*he53RhAKNPXaNCbP(K
Q`!*YK(U6FLGpFNGjY%H1G(jBTfPD9`D#)Ard0a4H9S)54eCAiRGTP4QEX9DM!S(
GKdAJYd8Q8hDjY#Cq4ddM*a0hS"Pl9(XmX"+S8dXSY60NN!!(Q3CSf59P00*1))J
#2DL$[AF@A4"(3-KlLhGle#@#mm5"k1H"9X*G@GL!03B#@4BSBfKhaXGfX895,8G
E1bK8D'L(-Y&1+%#"Tq8$[(%&*d"GML3GS3L"i3@*`P&TL"K8*iL%fSCfhY3@%TK
BV-JE@1"BPLD,Q)D#ka9pD840`'9X#@"I4j+)QhC,'NGVhV'(FHGHib@0RqFG[jK
5`8L,kb86M1KeP8L*[JF#Z#JU#8#$aLJ(`F8PX8*Xph@%G0L0jpK%U1006`KQX*+
*36@"V$KF,KK8k"L$5(4'Jp4FTUCR85+%*PCGc*L%5iJE6IKBkZL*(mC@C%*Lj4G
'#F"GVA9DLLCY0D8aZDKEQb@#kKH,FlK`kd9p`100apL#8F@5b,8(**!!"%B`"#"
3"8j!"%9J"%RJ"%9!"!@$"$qj"&m!"8%`"8-3"%`!B@8dN!#"C$"SJ51ha50-m!4
1F!3r538aN4aXN!!Fb%J#3C!!!cF!6FR99%43"Q*3"fIJ(a2KP@#*%533"MPJ"QC
31'Gf*&1!"Qp`"e3`-Q"BD$r9!$4C"$Xj""$@!2L%8Qd3"XN"!SC$%!CKK$-c'fP
3'fQJ"hX@F5-&%AH!!L+$"b6c56'M1CiC8#&5QM'aB$X983be%U%jQUQj@K2"QZR
a6LXS6kY*QJrP!J6eQ[&%"ma9QlbC-Jaf8F"*!eM"QQh86Ea""%JJ"9N`"95!P8@
J1&,`"%FJ"8(3"!lc"%e`RG3T"6pj"%1@!'h%0%!'RG**RGD*RGV*RGl*%LG`!Y6
T0e4!RPPjRR[CPhmTQM&a"mLK'fc`5!)k'bAP"LMJ@!Qa%!ha%%Gb,NL%"SdT"fR
"CNf3!"6J!3)iJ'68*4K@i"&c%%L5Sb5e!3)[!!+SFiS"1U!*ZU!&Fc"$N44(-J4
38!8J8!GH!4rV"jP5X9q"*"L2f3CEd49I39a$`D)6FD!%qNJ2Bc(8"!0A%4-8!kA
HK"4+`441d5eb)hRJ8LhM3JH8"f#2p3BJ`+AINK2KBLhNXRNB`BMRBREj3Ne5Z3C
8'444C4a*`9,V"apbYJHUSKaPi*3b)AN,mb`2-DDV8DCR5K2H%K,A"5eZULEIb&j
-4LG(&PTdS*lH9)CUBQ[eZ",$+5VT56EV'Ch6@Ce!#CrEfCe6)"JbX*2iUCrQb9T
dmc'j53HHfL8lKU[H4)0kZ$Gp8kST)`15J9+p#PiVFBm8f59R@&j(BQZ1``06p@0
ZL%PQ%6!TQ@e4TQfApBcQD'XYq8bK9+f,P9TR)`Be'&6L5K3`afQk0%!@YDP#Jf"
NBkpSFkbBe+iVmDk&)SEdkQ*TTjkj9bMTpUaTk'IXQUi["J,!)ir6J`-S8%*p3l(
hDUiZKUpL-!2kZV!"Hf[N#V'-%`1Sf6%INe#&QQ0Z3ecC!Q5q`DK9eSCQfT!!Mi9
+@eFSlI3PA,B5HELbaL)B*c!%TlKV)A9TqX@0m0SP!09E"V84USP5dNS8QJ+U8UZ
a`01[hJU`-61Z'+ZZj5UYQ[TMP,LeY*3'GY#ePrLTk4UUj&LZmdUfk2UaaQTlB-X
Pdb-$EbXd+*YZKKUTLFUbH+"YlM+RhP5RGdS(%S&*aU'YIDTY$c-`e&4)a$@RRa@
Rk@)@D0&R)+!9A2%'AP%45*S`qC+i3I@PTC1+),!6BR!Fcm'R"`-#NSHQN!$k8T,
U%h$3'GN+"j`CBS4'Z#YKZ'p`@d25Yl6lYmC#6I0NTV*lU&%b&,@dL)3@@2dLKpd
iQ&dbZ*LE&S@l&ABD[(M+9Y2l,`%$ZGiNZHq5[ECRZ@k3!#qDblP'#VTK)EVC1b5
2Qle$i8heZbj$m9P&%,i!)c$f1b3@Nc$-'dMiLbrfLk+0'K8f8F!@-54-@JB,#U@
5Tij5FJ)6SkCJHLf!1h9PF`)kS+61kU)&LJ)$l"%1,#8m)N,)NP"2qVS($$'[ZeF
RV$"qqdLIk"deR-+Y@+@[#eP@iX-r3DF(3m!hM'lk#,XjCVTX+UBG,&-4A+!YLU!
,'J4fF"G,XDe+e+-m)X*4V+![2-3T+VY-(+Ehbk&6&`1Dmm96V"X,5M(UX4&D(%M
Vem9V6-)++X4(XX*TI-F)+X86NCCVfCBZ%bXZ!!!#"e0TCACP,R"ZC5j`!*!d9%9
B9&"+68d"!*lJjHqIFU+)!*!'""i!N!B#S`!!iV!!N!B,eR$N[$NM*d`E%&$NT'P
6CNH$"JRXK*%$-8%C0Q(Jc#P$KXV#-MT!-(RMjN`D0h3F0YK$)SQ4)5#U1#&5a%J
5*d@)J+##j1D5,e##6"N5K%NIL'EUZ"P$*`h*R@R'V"Rb4LQGN!"-RMJjFT1+``3
RfC`X8j&%N!!F0fUS6"$`c4L1GH58!8'NM*JkCmk8NI-el0LbBA+B-E1fl9XbFHG
13I2Q$T8bH&*#&&2'T"Z)CGb3!(()XXM-)8FK'SBV&m580'AX0+`iKZ3F1K86c%Q
MCfi2%$KLj)$a03&B1R[$0(80iRB-hK8P8[5G`!c'-h0#6LbBC`X-&bjQeqi#iSd
C%',H['&6*SbEhQ"CJ!Mi8IdDpDfYUNm$A%l)Nm$emTeFq@4&-fr)!3*pHi'JJh%
Jd2('J28*jj3EFi"!aKYl6,LH3!3C"-*a#Aidae(-8@CCE!R%Kj+"Yr'f"hX-J@"
LI5!b"k#!DD!)!J`*,UMGA"15f0acFfb4"RF(*LK((3hYX4%G)$JA"R3JK-%''dB
L'D0[-`jS)ii+JV#MK'riQ-Ch6N)R*(GdS*'CM`Q)k"pcF,)i9j%eVU#PR62XX!H
!5T%4jB8IA3RR'ME@#5K$HTU4KKb[JG"'(@`d"3Gj1B+`4KT6#XVF(@KJ1KHK20c
fCBp``ZRQCDA#@@D3!'X3HCXC8QkNCfd#rHN'55h)UHQJ0K*UTjakZJ%CNip'QXD
NCHcU@fDEX9PL95F@q5))GXDJTj`4mURCVXbLebeQQUPd+N5,0ICBC&pGP0&'(Ae
NSdG58@A99kHPYTT&''R%N8FY&JR[90!bf3))kZVE,U)3hD%3F'biJF)*"E2,Vfd
JR+"Ha2Zkq`))0Pb(BdJFKP5$HLGi@8CVQNAS3X8TI&AAAARYj4#c,J!!!JYAD'9
dFh4[EQ8ZF!#30&4&@&435Ne0!3!!#k49Rh2iX`#3"K*m!*!'#%)!!$Pm!*!'cQC
`j,`j)bG-'a"Ad*5K-iI1'cGPGM4SN!"Jc-1'&"-`HI-'$SJH)',!f!&L6jNiGG,
BF3(#)BL(C8#d5F1'6CU()1iSC1J3iT`q%a23b31R6-Bb3H6)q3JLM0)`HEE%F1'
#4THACN$)+41'M85+GTaQa"1$"3Jm-XcLQD'@KPUcHFcU-8Z(EYQ@-R4SjHVeD!b
p5*9+6*!!))eC0@EAQ'9MeXeG0fP"Z'%VfDhN'SeY0,l4'%IM()e&K[i,)SdE1QA
1P*(cPE!D0AT0SeE01Q-De!ATh(3c*rETe+X(#ddcCNe[%'`HRT%YI%iCLfl)(0r
D9EM1K90kPTR1YhA!0f2+N!#TXa8%R$!J8)4G@JC`8MNTK+r2Q!"fkGqd"iY*E6U
M'K!kJ$454PX9&3BGp*8Ke98"TUGJ$&HY!)+#-N3ii4BcA0A#K9DP!))+,3QA`)-
-JS3#L5")5+''&fDB)SGGH!JL(5+Lf1#*#i+`iBS[+ZLLLPYdq'')#HCiB`XS!PP
KMaKDU+#3!#rJ*H*r$IiRB3c#eA%D65$mj`0)0Ja@4R6H#46HH1A"-@!#qbhRKPp
EU&(LK$&XX8BA`T94jjd!JU6R&QcJ#@HJIG)CTk!MNKR8GfH5&a-F-k5("eak8HF
9#1Z"S%HPI-9(8C[p%BC(SA3-LF+S%ZEK+@&jN!"U+USJU#UF(Uk#H1U,US)3*4d
bL+NS4Bb+jkKjEp44+JTZ(*DBEl-&GpCGD+P&'4idF0V9UU#q5GJHGmKa@aR)aJI
8YYeqLi)DiQE%VEHSSE"'ZZ5b#bjCm#D`VVPSeAY[Zf[T@bjUE,Ka+Jh`MNR'9hZ
3!*!!K"&$J&#&%d38B8356K4""!K8)%(a%Pp!%F383`6"a,KQD$Q'EMK43G`D3a4
lQPj-21(%%446-CKT0N'8%3P"j("$$@@#*faj4*3K4KeRj%F4cUBC44J*BH4JKKP
"0eVH&'LmF3F9CH""ikImD@Z`4!NA!I%33$@3!#e&Ff4p"fTH$lB[Z#G3m3BGAC@
'fi'lc3'#$bI!Z`GeC!5-`VHjp3d[iRaI9+K)JqP@R0m05Vk'49Tq69'T$F*393k
Jraaj$)9kAJ----J!p1Bb&#U$#fZDmFC5VchHdKYkVpBiEb#3!2&'4Q[6jeMT)N,
fH1XJEY44mC%f'!-03bS24r(30cJ$$69%cp(d`QIIHI%fZ#k5pXX,Id1K-b!2J[6
&ie!S$U#6cceK#EL43k%fa""qmYXA2hlRm[-Ik4U8JdMaVh`03)%+&XM!"MT`J5(
jd!-Rk-!8"%98!`6*90BNUYBeU!8E&0&D#J9#f)Q`HL!T)3F6),ZPT-&f,KQHlqM
$TV$4-!&N+G5T5#FKY,aSK"ZLPSb)4$m-kM#(2@aG%#293i)0k@Y&a'%'*8@k),D
ZKd`mLa0R*#)M(JQ*ClRL@E)Sa#GfF@cd580@DJF5aU'-Gh43L,ES"iGLd3&CMmQ
M@U!9QE@da9-*T1!%3B!m34T5"4C-8*dJp$J6+R),5rTJ#"rT)NNkNRjrXJS**dQ
r&TB'KVJchJb,Z,BSrSQ40cUPNqUd*"A9b88lUT13!,Ki3eAUd*DZK#5,r[3M3mf
5L%@dC5SAZ8Y@VV**2C*PM-aB5f,U%%R1c'8V$GA,6#k6PX&8&2h8f+ArY(&[Er4
E(-G%`cSD#eQ4Q8aM)U0+XrbT3ZjmC4IL'D3BI8@"Kf3J#!bB6`SQXT1cqk6cELH
C5)f5MQ%i83a@44KZXM&hLA2F11G)'(2H%6+0S3a'$38KHX+6Q[2dT6dRJXpqJJ"
krI6R"H[c1"&jmS8$M5(d$NUB8KE4S8`Kh84[b0)'bD#@E(!16kN%NKPdX6"Vr"X
K@b,(SCB1U%+0BNmeH&5FmL##1j8U88-#9DG&FDXV606"dVK'Ed*dGq*XDK%YLLc
,)+C,He4,(kG&X(ZQ&%6CZqX$,9K53EjN*R4!$4NNU0F&*V+[K`6"rJV,`(qkTUA
d@B2V4-3'p,NdS$$9)%(G%$kDeY"00pcUIf`Pf3fKbe59hG#lMLVC"P8@4+906fU
l0-3e(,@b0jVYZd`P@3QKkkKrQLdU3@)P%23@1F$GNij#-UI4'RG)IFRQ@,GC9UD
iX@p-*HGDlBJXcF$9Z26XU+%qbXZ3!&S6N!#)053)cXIBaUjd9*ec`HVSekVicTF
`,`@PC-lR@C[5$liJ+4@)R(+b-!L-9d1DJfP1085,c)("ZNU2Jfq9+Jp*D-+MfP#
Z0V6"&$#8[V9ULK`+I'$e+9KJZ3,4K(-9*44J'&F@"X',0H`K$X21`fI8CN1Vqdh
GK61l&%d!@ph!QHmUjLa[L49Fd(YA%,L[[BCpEb0A@&m0AT)`Y(,HP9Q)@Ifk`Af
HKG5Ti#+A$c[8V0H9U&VTb0d[+`Zm5&DbTXTXej5#i(j34Z4+YiUPb%k@2VJYDSf
FUH89[R01Vc1d20'hjIc'0*6h#r-+cfaGF')hUf`qTrhHI14fMYHmmU4RKqTXd[(
PfE&6*D5)@L[S4`ih*&XqY1YL[@MV0EV,MjE-q2TV`km@UVLf[5'VZr5LB2Zk3E&
9!fX,PHcP+TZ'D+4Z0b[YidZ[ZD*Y&Sf4iaT'DIf4e2N-#HP1,HAiLSiqMYCX$'0
!1Xm#'!4cL)-FlYJe1+$!F(M`d+i@DQBHRrA(Q-DfTYR0k542+XljESeB*C*H#*V
"0'PSQb(rD6R+"AKPQ$[0FLXq'1G!4cUN@TRISQ5$09f($YQ"LF9$JMVj$5N*PRC
FP$cq%1N-jPpP#0M0j@@iNkIF*`#kFp!TF`)3X,cPIRY$9K+bN!#'U0`mUi(hFfS
1JX!0TQK(5eT`'Q!`&`!K)4&3BA0MB@`J3Q9ZBfKYBA*VF`#31*pal*DI`@AB!*!
D-ma6)J!!!:
Rich Siegel
Staff Software Developer
THINK Technologies Division, Symantec Corp.
Internet: siegel@endor.harvard.edu
UUCP: ..harvard!endor!siegel
Phone: (617) 275-4800 x305

Any opinions stated in this article do not necessarily reflect the views
or policies of Symantec Corporation or its employees.