GbvLINEDUPLNLABELBRANCHLABLINEBRALINEINFILEOUTFILETARGETWRITELABELSECTOOFFSELINBRACOUNLABCOUNFOUNNXTBRALINNXTBRANCNXTBRALABADJUSOOP@@  LBASXE!LBASIC (From ANALOG45)BXE enhancements by##Ken Badertscher (602)939-1246OOLBASXE works basically the same as LBASIC, with the following exceptions:ggThe array LLL() is not used. Instead, labels are translated directly to line numbers. I made thishhchange because although using variables as line references does save memory, the overhead requiredhhfor initializing the variables often wastes more memory than you save. If you do have a frequently\\referenced line in your program, change it explicitly after LBASXE has done its thing. aaBecause labels are translated directly to line numbers, you need not use GOTO or GOSUB when iireferencing a label in an IF-THEN construct. "If X=0 Then ts-zero", previously illegal, is now ok. ZZThe program has also been modified to recognize all variations of the REM statement: ddREM,Rem,R., and ". ". Be careful when using ". ", as a floating point number has the potential KKfor being confused with a REM statement if there is no trailing zero:^^"X=123. :Y=X" will be translated to "X=123 REM :Y=X". The correct form is "X=123.0:Y=X". Enjoy!""..... Ken Badertscher 8/1/86..... DELPHI: KBAD ..... CompuServe:72337,2542V<AA;A ,;A!,;A<@0,;A<@0,F##9A,9A<@,P}Input filename: D:ZOutput filename: D:dSave labels ?Yn))6-[Yy<7@<@,<,x/ @@/@ @@'6-6-'6- AP Pass1(} 8@[Getline6-$$Mask quoted segments of Dupln$ 8B:,6-[<>:@4,<,"6-B:,  B:,6-%@8@:7,,@467<,.*6-%@"9,=69@Mask REM statementsJ6-[<REM<,T%"%6-[<Rem<,^$"$6-[<R.<,c$"$6-[<. <,hr-%@B:,|67<,.* =Find branches & labels-@B:,@:7,,!A'@BRANCH...6-%@6-&@6-8+B:,,*+(,67Y&<&,.7<,67<,.*6-%@( B:,(6-[;:, <7<,<,9-68<,--68<@,-%@<&LABEL...06-%@: 67Y,.D68,-%@N6-B:,%@X=b=l v9 󲛊(}'[ Checkerror@ A p36-6-'6-@36-*[Getline"*[ WritelinesCheck for branches 8@& !6-&@&[ Writelines6-8<,6-8<@, 6.7Y,[ Writelines Find branch in Nxtbraline6-6- 8+ ,*+(,*6-%@46-[<7Y,<,>9H&(#(Error - Can't find &R$$Replace label with line number\6.=:8,$@,f6.7@<%,p67%<%%B:,,.z%%B:, B:,67%%B:,,.7%%B:,,=Set up for next branch6-%B:,&B:,6-%@9 )[ Checkerror)(}All done!YGetline 6.8B:, @@987@<@,4 6.7@