formula solver 5/7

 BBS: Inland Empire Archive
Date: 03-13-93 (22:26)             Number: 338
From: QUINN TYLER JACKSON          Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: formula solver 5/7             Conf: (2) Quik_Bas

'>>> Start of page 5.

    IF VariPtr <= VARMAX THEN
        VarMem(VariPtr).Nom = VarName$
        VarMem(VariPtr).Valu = VarValue
    ELSE
        PRINT "Out of variable space!"
    END IF

END SUB

SUB sqjGetOp

TOKEN$ = ""

DO WHILE MID$(expression$, Ptr, 1) = " "
    Ptr = Ptr + 1
LOOP

IF INSTR(MID$(expression$, Ptr, 1), "(") THEN
    TOKEN$ = "("
    Ptr = Ptr + 1
    EXIT SUB
END IF

IF INSTR(MID$(expression$, Ptr, 1), ")") THEN
    TOKEN$ = ")"
    Ptr = Ptr + 1
    EXIT SUB
END IF

IF INSTR(OPERATOR$, MID$(expression$, Ptr, 1)) THEN
    TOKEN$ = MID$(expression$, Ptr, 1)
    Ptr = Ptr + 1
    ' see if it's a compound operator
    IF INSTR(OPERATOR$, MID$(expression$, Ptr, 1)) THEN
        TOKEN$ = TOKEN$ + MID$(expression$, Ptr, 1)
        Ptr = Ptr + 1
    END IF
    TypeToken = OperatorClass
    EXIT SUB
END IF

Temp$ = MID$(expression$, Ptr, 1)
IF Temp$ >= "0" AND Temp$ <= "9" THEN

    ' Build up a number from its digits
    DO WHILE INSTR(" " + OPERATOR$, MID$(expression$, Ptr, 1)) = 0
        TOKEN$ = TOKEN$ + MID$(expression$, Ptr, 1)
        Ptr = Ptr + 1
    LOOP

    TypeToken = DigitClass
END IF

Temp$ = MID$(expression$, Ptr, 1)
IF Temp$ >= "a" AND Temp$ <= "z" THEN

    ' Build up a variable name based upon letters
    DO WHILE INSTR(" " + OPERATOR$, MID$(expression$, Ptr, 1)) = 0
        TOKEN$ = TOKEN$ + MID$(expression$, Ptr, 1)
        Ptr = Ptr + 1
    LOOP

    TOKEN$ = STR$(fqjFetchVar(TOKEN$))

    TypeToken = DigitClass
END IF

'>>> Continued on page 6.

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