Sorry; not much info there ;-) It worked fine on the test program; FYI, attached is the program it died on.
m On Mon, May 1, 2023 at 7:33 PM Mike Stein <[email protected]> wrote: > Here's what I get (Win7): > > > On Mon, May 1, 2023 at 4:38 PM <[email protected]> wrote: > >> 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. >> >> >> >> 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 >> >> >> >>
<<attachment: Eliza.zip>>
