===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-13-93 (22:27)             Number: 89
From: QUINN TYLER JACKSON          Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: formula solver 7/7             Conf: (35) Quick Basi
---------------------------------------------------------------------------
'>>> Start of page 7.

Op$ = TOKEN$

IF fqjInOpList(POWER, Op$) THEN
    CALL sqjGetOp
    CALL sqjLevel4(h)
    CALL sqjApplyOp(Op$, r, h)
END IF

END SUB

SUB sqjLevel5 (r)

Op$ = ""

IF TypeToken = OperatorClass AND (fqjInOpList(ADDSUB, TOKEN$)) THEN
    Op$ = TOKEN$
    CALL sqjGetOp
END IF

CALL sqjLevel6(r)

IF Op$ <> "" THEN
    CALL sqjNegative(Op$, r)
END IF

END SUB

SUB sqjLevel6 (r)

' This level handles parentheses

IF TOKEN$ = "(" AND TypeToken = OperatorClass THEN
    CALL sqjGetOp
    CALL sqjLevel1(r)
    CALL sqjGetOp
ELSE
    CALL sqjPrimitive(r)
END IF

END SUB

SUB sqjNegative (Op$, r)

' This sub handles numbers like -6

SELECT CASE Op$
    CASE "-"
        r = -r
END SELECT

END SUB

SUB sqjPrimitive (r)

IF TypeToken = DigitClass THEN
    r = VAL(TOKEN$)
    CALL sqjGetOp
ELSE
    PRINT "SYNTAX ERROR"
END IF

END SUB


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


--- Maximus/2 2.01wb
 * Origin: The Nibble's Roost, Richmond BC Canada 604-244-8009 (1:153/918)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20