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