Formula Solver 1.4 7/

``` BBS: Inland Empire Archive
Date: 03-19-93 (21:00)             Number: 374
From: QUINN TYLER JACKSON          Refer#: NONE
To: ALL                           Recvd: NO
Subj: Formula Solver 1.4    7/       Conf: (2) Quik_Bas```
```>>> Continued from previous message
' Build up a variable name based upon letters
DO WHILE INSTR(" ()" + OPERATOR\$, MID\$(EXPR\$(LvlPtr), PTR(LvlPtr),_
1)) = 0
Temp\$ = MID\$(EXPR\$(LvlPtr), PTR(LvlPtr), 1)
IF Temp\$ <> "[" THEN
TOKEN\$(LvlPtr) = TOKEN\$(LvlPtr) + Temp\$
PTR(LvlPtr) = PTR(LvlPtr) + 1
ELSE
TOKEN\$(LvlPtr) = TOKEN\$(LvlPtr) + "["
DO WHILE SepPtr% <> -1
PTR(LvlPtr) = PTR(LvlPtr) + 1
T\$ = MID\$(EXPR\$(LvlPtr), PTR(LvlPtr), 1)
SELECT CASE T\$
CASE "["
SepPtr% = SepPtr% + 1
CASE "]"
SepPtr% = SepPtr% - 1
END SELECT
TOKEN\$(LvlPtr) = TOKEN\$(LvlPtr) + T\$
LOOP
PTR(LvlPtr) = PTR(LvlPtr) + 1
TypeToken(LvlPtr) = FunctionClass
EXIT SUB
END IF
LOOP

TOKEN\$(LvlPtr) = STR\$(fqjFetchVar(TOKEN\$(LvlPtr)))
TypeToken(LvlPtr) = DigitClass
EXIT SUB
END IF
END SUB

________O_/________________________| SNIP |______________________\_O_______
O \                        | HERE |                      / O

* OLX 2.1 TD * A program is just a big bug that happened to work....

--- Maximus/2 2.01wb
* Origin: The Nibble's Roost, Richmond BC Canada 604-244-8009 (1:153/918)
```

Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET