=========================================================================== BBS: The Abacus * HST/DS * Potterville, MI Date: 03-13-93 (22:24) Number: 83 From: QUINN TYLER JACKSON Refer#: NONE To: ALL Recvd: NO Subj: formula solver 1/7 Conf: (35) Quick Basi --------------------------------------------------------------------------- ________O_/________________________| SNIP |______________________\_O_______ O \ | HERE | / O 'This file created by PostIt! v4.0. '>>> Start of page 1. ' QBS and BASIC Code Cache: YES! ' ' ****************************ANNOUNCING!****************************** ' ** The Public Domain Module of the Week! ** ' * The parser you always wanted but were afraid to ask for! * ' * * ' * ******************************************** * ' * * DESCPARS.BAS v1.0 (Public Domain Version)* * ' * ******************************************** * ' * * ' * * ' * The full featured recursive descent parser written by * ' * Quinn Tyler Jackson * ' * * ' * Revolving around the FUNCTION funEvaluate(Expression$) * ' * * ' * FEATURES: * ' * * ' * 1. addition, subtraction, multiplation, division * ' * 2. integer division, modulo division, nth root extraction * ' * 3. factorial expansion * ' * 3. logical greater than, less than, and equality * ' * 4. nested parenthesis precedence override * ' * 5. PASCAL style variable assignment (using the ":=" of PASCAL) * ' * 6. and more! * ' * * ' ******You compatability freaks: TESTED IN DOS 5.0's QBASIC!!!******* ' ' DEDICATION: ' ' This program is dedicated to my wife Laleh, and our three children, ' Ozra, Shahraam, and Arehzou, who give up a lot of their time with ' me so I can program at this infernal keyboard! ' ' USE RESTRICTIONS: ' ' If you have a wife, give her a hug and kiss. If you have kids, do ' the ' same. Only then do you have the right to use this code. ;-) ' [and the QUIK_BAS echo said AMEN] ' ' FEATURES EXPLAINED: ' ' 1. addition, subtraction, multiplation, division ' ' This FUNCTION can solve equations such as: ' ' 5+4 ' 5*89 ' 6/5 ' ' 2. integer division, modulo division, nth root extraction ' ' This FUNCTION can solve equations using standard extensions: ' ' 5%2 (5 MOD 2) ' 5\2 (integer division) ' 2]25 (square root of 25) ' 3]8 (cube root of 8) ' ' 3. factorial expansion ' '>>> Continued on page 2. --- 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