A good idea, but since the program runs under Windows, why such a cryptic output?
Wouldn't it be easier to use with more verbose column headers: Variable Type Defined in Line Used in Lines Comments --------------------------------------------------------------------------------------------------------------------------------------------------------- B% Integer 0 1, 7(2) C Double 1 2(3), 4, 5(2) E Double 1 7(5) . . . The Comments column label would be generated, but used later when the output file is edited to add notes about the variable usage, etc. This would make a good start to proper program documentation. Of course, since the source was provided, changes could easily be made :-) Regards, Peter On Tue, May 2, 2023 at 1:15 PM <m100-requ...@lists.bitchin100.com> wrote: > ---------------------------------------------------------------------- > > Message: 1 > Date: Mon, 1 May 2023 15:31:48 -0500 > From: <lloydel...@comcast.net> > To: <m...@bitchin100.com> > Subject: [M100] Variable Concordance - MTVarConcor > Message-ID: <000401d97c6b$f4e9acc0$debd0640$@comcast.net> > Content-Type: text/plain; charset="utf-8" > > Hello all, > > > > I?ve written a variable concordance program for Windows that will take a > TRS-80 Model 100 BASIC program and will list the variables in alphabetical > order with the line numbers where they appear. The name of this program > is MTVarConcor. The executable, source and a pdf file describing it can > be found at www.GitHub.com/LEJ-Projects/MTVarConcor < > http://www.GitHub.com/LEJ-Projects/MTVarConcor> . > > > > As an example, the 10 line program, drop (written by David Plass) is as > follows: > > > > 0 > CLS:POKE-902,PEEK(63795):F=.25+RND(1)/4:W=-.25+RND(1)/2:X=0:Y=1:B%=5+25*RND(1) > > > 1 C=0:PRINT@280+B%,CHR$(27)"V?"SPACE$(9-E)"?":PRINT@200 > ,"S:"S:PRINT"L:"5-L:PRINTUSING"W:#.#";W > > 2 C=C+F:PRINT@C," ??":IFX<>0THENPRINT@OX+40*OY%," > ":OX=X:OY%=Y:Y=Y+.3:X=X+W:GOTO6 > > 4 IFINKEY$=" "THENX=C+2:F=F*2:OX=0:OY%=0 > > 5 IFC>=37THENPRINT@37," ":C=0:GOTO2ELSE2 > > 6 IFY<7.01THENPRINT@X+40*FIX(Y),"?":GOTO4 > > 7 > IFX>=B%+1ANDX<=B%+10-ETHENPRINT@97,"Hit!":CALL4811:S=S+10*(E+1):E=E-(E<8):GOTO0 > > > 8 L=L+1:IFL<5THENPRINT@97,"MISS!":CALL4811:GOTO0ELSEPRINT@55,"Game > over":END > > > > The output from MTVarConcor when the above program is the input is: > > > > B% 0 1 7(2) > > C 1 2(3) 4 5(2) > > E 1 7(5) > > F 0 2 4(2) > > L 1 8(3) > > OX 2(2) 4 > > OY% 2(2) 4 > > S 1 7(2) > > W 0 1 2 > > X 0 2(4) 4 6 7(2) > > Y 0 2(3) 6(2) > > > > I hope someone will find this program useful. > > Lloyd > >