[net.sources.mac] Crossref Print Utility

egv@aicchi.UUCP (Vann) (08/31/86)

Here is a version of the classic cross reference utility (by Wirth?)
it could stand to have a few bells and whistles added. Be my guest
just repost so that the rest of us can enjoy. Oddly enough the set
logic in this program fails to compile under my version of TML Pascal.

Supposedly, a newer version exists, and then of course there is the
soon-to-be released version 2.0, which I eagerly await. In the meantime
you might find some pleasure in taking this code and enhancing it for
a more general audience.

I also have several of the programs from "Midnight Madness" (Microsoft
Press publication for MSBasic 2.1. One of them is an interesting update
of the old Apple ][ space shoot 'em up from the last 70's as I recall.
If there is any interest I'll post those as well.

BTW some of you have been trying to send me mail. I am getting empty
files however. So if you wish please try again, hopefully we can connect.

Be sure to run Packit ][ over this gem after Binhexing it.

(This file must be converted with BinHex 4.0)

:#P"KBfY*G#j`DA3!8%P8)&"*9#!!N!30P!#3"-*N8%eK0!@kdJ$0rK)SmH54Xe$
Me`C#-3)R#P#QjQ-mN[l#5D##,e%*QVbB%-`(r,&Da-UQJ5RdQ9`dZKCeiYT!4,D
NQRb+a1+*-4Fa*UkVG&[YX,3[Ge%j[+S8%Up$)(@NmSdJ&PK)XGQ*C,VJ6UhT4Gb
!!AD+942KArBp01)e4dFl#J"'+DrPm)c+RkrSdR!4DiNrQUEAk`T625GT2C,N)(2
[fQ$(a692JI)F%$CQ(X6P1CQCJL)JA"D%3lc"$a!Q(XX&V"!H&Yc-%jQB*c-`3&K
l%1%!jQK-XYQK24l&NqPKCT!$JR[-,"$4$1bJLa!'RiLa%$i@Z[l5RkPE4pTJam8
m(-b3#-R64pTJ`r&-I!+)5N!Mp5@qRCJ)#L+""Vjj5I%*Q0SY!B)0D#lZPa0aQC!
(Nk6B!8)FED@qhqc#CM@J@(G,EaQCN!Fk3(C@+4jKVMdd))6-Dd#0hG2Z-j!(-R6
f%S%KKVMd"f9LNHQBeS,8lTi2"i2('CQ3"T1NVe+Nd))3(C@+4kCM5(QZ"VUE6Ul
YHY!V(EVrkRNbLp@V3A-PYTD$Q[m'Yp[pr&,ZL9p[pm'S539r&,ZL3539m'Yp[pZ
lm8@rf09&B2,BkQdkm'UdKm`5SQkQ#0L%N!"Am8m'UQa55Sq%SF)f0p[pr&)eB"h
`DK*"@l[a4ErBe8d&VBLDV9S,9`DU##SMBK*"Am8M9J(I"ZJDq0IYY)f0p[pr&2"
U+e%9,YL%")+4r"V4830L%")+4r'CN!BkD$[rJ"'Lddl+`1S1dd))3(C@+4kCM82
EBkQdkm'ZVBkrqTj-S[9Ud&c*ED@JjVr"U%&)6BU0IK!52E%N&41$8)+3!*X!e+i
E%`6`J+F'0VqfL1c[i6%'a35N*XF'YIfd4fGr#BJKhAAi3%Mq$9d$AaUS@a#!N!"
52i045#J3-j!(-R5BJKhAAi3%Mdc'U@Q$ji54FH[#!NI8HMei3%Ml1YZ$QC!*1T,
6"D!J#31TS4&3Lh+p5N(c`NMc-DTmm*)Z2AK!52U*p1IF,!KHe4kSkU*p1IF,!KH
e4k-[VEJjQC!)Nk&QfNPq[`PTJa"'fP2AK!52G3GT$N!DcGD)3J5Zd&TL[@L1dZ,
$@%P"`c(-N!QG#c"%lV4EPHT5$ji54k5e-#SDf[@Z2DiqQhp5"Y!B-aURc`NLipH
%")qSRdjp`X(MDSp([5kfi1CQN!K1KCJMS4E(qCM9TYp&ZfETG*DkHPYHl4UTmm*
)Z2AK!52U2@PTGEF'UI2#5,Mei3%MkMdIG,53$)pkA942TclK'*YYZ$QCN!L6S@B
)L&#f2mc'X!lic*!(bG*L#(GGIK!526-D+38#"QD3"dk6%'a35N*X*Q03JT!!Q`$
8VKXhE6Hk3Q`$8VLlSq(!d(%r`Q`NY6ei3%dmkfi03dS38K0J'TA#IfLHZNKb!$9
&)+"!09q$%%Z##N*X9%)+3Q`$8VMEM-b3!jdefK!4*DQ#Dq4YTD3Q`kJl5N%D3qB
)d(0IeS*(TQ09-33lVVm)#4r"U`$[Jf!GmCQ3#$Sa"X8%T#E#CM'erE4(Chm*L0I
S10fJDqhPfa[Yr[iTfi0G!emDYlBhfrhm8m'U90L%N!"Am8m'LN&!J'YlCZhPq$8
0,HlS!QT$N!!"ULN&!J'UJLqkrEJe8%Ah&@h"UYi5('m5Hl4UU+38#!DUSV"jE0d
2I"UUQa54Xh3"0i09A`P$K'cG!%hJe9D3!2Q#0Qk9F'UUEUB)fET809B"h`DU9#9
8d&VCZJi09+K+U##SMCZJ#E`DVHAE0fmDX!l'X'Q)3dSHdrQm5ULX(P)FJ!e6%Dr
3FZ[%UTX8Nf'X'Q)3dSHh40iP9&B2+3j!"UQ)eqJjGH*9I#81%f'X'Q)'U+38#!D
U#,lLVEJe8U%UTS,@cG"`DU9#98%&4'cG!%hJe@m5UQkQ##98%&4'cG+Z$9Ea+UE
UB)fET80@!GMB"haQN!K1Na'[d(%c'0VqfL1c[iDr#!K2L'kpXElIlq+GZ$@[lD)
l1rKVm)#AfrfhAYMIErHh"Uk"Vie8eX3J*"52i09+Qa#5#[iTi045#J3$9[m*)ZV
m)#4p4kHUMI9&B21h"UP6CZheD3qB*`DTVCZLEJeILZ05$93dTVZd#`N13!DULN&
!J'UVIi53!'JZVm)#4qh"UUQYQk*Z$99[m*)ZVm)#4p4kHQaS,SZPpKUV!1q$96@
cG04G,m'Uhq%NA9q%")qSP3P90"Df0!Mfi09+QcG+K+U##SJe6X"!QT8lS!Qm'VI
i53D#k[`J*(l$@!GmCT!(C1Q[`J*IErDCM'LN&!J'SD@p2l4)!QT$N!!"ULN&!J'
Ueq%"#I%AAL98f+5EF'Ueq%",lIlZ[%YZ$9Dr#!K2L,Va+Vi5K`Q`eB"h`E!1q-b
3#*deq%"#I%*Q-BT"3)"TL$BS*5%f1$IYY)fES!Qm'JE0d6F'LTGXhD#r"YHT5,U
r#!NIY`EHF#E##dM&Y0`38K0MClY'ST!!8#!DSD8$Zd&U5()!09&)+"!09D'cG%h
"UU"Xh4-09J(I"UJE0d#,TIJeEr#5,Ur#!NI830M3)pZ-c*!$bG))+L*S33QBeEr
#5,Ur#!NI8HRVEJeD'cGS%D,TIJeEcJ6B3@NBY0"F%&)6BfHl4UST"3)'CT!'C1N
a4U""D!Y%&GC$bQK"#CM980+%&)6B%N)%bZMhe9Up(le8HYHUYAS4A4NT$N!'UU+
3!&!J'UULVCZLEJe9AiVM8Je99$5LUIc3A5()!09988JS%$13"6*dekpT$N0p[pY
i5(%80e!+Q'd#3j!!q%SF)QBe9989E0d94G,m'UUUkQ8+Q5fES38K0J5'UUV!1q$
9980,G3LkAfG%RJ6*$N!'UUU+38#!DUUVIi53!'JZVm)#4qh"UUUS'cG!LkAi099
9[m*)ZVm)#4p4!f0!Mfi0999[m*)ZVm)#4p4k-MVEJe99@KXhD"'LkAi099@!Gm'
UUY$CZd)ZPq$99@r`NLk[`J*(e%)+3Q`*EF'UUT5#A""5%f0KUUTf!J68&T'i)+3
Q`*)3*PG([UV9k2hUSpDp9D[3LZUMd*ZUYASmG'6Y`DUU'P&A4ESUA5()!09948Z
fESU099Jda!e99q+ie)099A8bK8ZC,CZp2A"UUULTGXh48ZPS5ie991`%#DLTGh4
AJe9@[@J9ZeU*HSKlfi099-4Vp"bllE5E$99J(Be9Jda!e945#J3-c*!'R63FLJ9
DEIG1cZdN0[Y&T@9`!LCM993dS38K0J5GhVVVT)FJ!e99q+ie)09980,G3LkAfG%
RJ6*$N!!"UUUST"3)"UUUVIi53D#k[`J*(lF'UUUS'cG!LkAi0999Er#5,Ur#!NI
830M3)pZ$999@r`NLk[`J*(e(Sb1YZ$999@KXhD"'LkAi0999J(I"UUUd0Ql3LkA
i099@r`NLk[`J*(e%)+3Q`*EF'UUU8JP`38K0MBDUURB#"03JT#E!Nl[AAA3e9@$
6%)D8)+3Q`*1ldGG*$N!'UU[aA'T"UUUKTEU%A5qcSNm#C)FJ!e9988JS%!e999[
m*)0"GAi3%MpZ$9998$CZJ4G,m'UUUYrK*&eIK!52U)'aS%Hh"UUUVIi54GAi3%M
kMdC(@h"UUUV3fEY!M4G,m'UUU`$[Je99D'cGS4G,m'UUVIi54GAi3%MkL%&)6B%
YZ$999+35i)+3!*XE$998l!3*U%&)6B%RGk-qZ$993dYe#,TICd5H"-N13!DUULN
&!J'UUVIi53D#k[`J*(lF'UUU"Xh3)ZPq$999[m*)ZVm)#4p4!f0!Mfi099@r`NL
k[`J*(e(Sb1YZ$999SE0fJ4SZPq$99@!Gm'UUd0Ql3LkAi099[m*)ZVm)#4p4##N
*X#@h"UUT5#A""5%f0KUU`$XDV!1q$9$5h8)ZPpR4*i%b3j!!!DU+38#!DUhq%N'
JZVm)#4qh"UU"Xh3)ZPq$9@r`NLk[`J*(e%$Bd#2EJe9[m*)ZVm)#4p4k-MVEJe9
SE0fJ4SZPq$9B"h`DY$CZd)ZPq$9[m*)0"GAi3%MpZ$9+35i)+3QaX0B"h`EAU8L
k[`J*(lF'eq%"#I%AIED6EJf[8T&eIK!52fi1!GeF`Xc-,#hc-,I-`rFcN!d`@K#
G"c6SqfeRPYT6lpTJam8e6i(b(##eQCS6,,CSFc3Q@@c3RSpLbI5c-`6p1F%)%BY
Y1#ejQQqQfCQCQ#d)Cf8%AQCQB@#'jQD3#4k%4%6S1JhCQ&QCN!DBIJRFc*!'`@K
"mc13"!41JhCQN")@&[KB*h-%lQD3"QQZ(jJR-%6NjGKq&QK,"$mZ,00-&5`YHDC
PJKaB,*CTN@&KCQ#$B)X3J3I-`3R*%&daY"V4ETKQB)R""F%'c#c-`X,I-`Ymc$p
c""#&QMqCQMf(lJY&ZI6rdGc-dF-Xrp'p$QBC"Pk%pL&CQ#aKB*iRjQCQD096m%%
%m6mc+ZCQ(jSb*iRjQ(pQCQM!LP"&EQ6l``!!!:


-- 
				Eric Geoffrey Vann
				Analysts International (Chicago Branch)
				(312) 882-4673
				..!ihnp4!aicchi!egv