TIP: Click on subject to list as thread! ANSI
echo: power_bas
to: ALL
from: JAMSHID KHOSHRANGI
date: 1995-04-19 18:09:00
subject: Expression Solver 1/

Hello!
Here is my ARDAF expression solver.  It allows you to add run-time
mathematical expression evaluation with functions and variables to
your programs, such as:
        myfunction (x,y) := 5*10x ^ y
        a:= myfunction(10,12)
Have fun!
Jamshid
NOTE:  The following PostIt! code has been modified to run from WITHIN
       PowerBASIC, **NOT** from QBASIC.
====BEGINS HERE====
DEFINT A-Z
CLS
DIM P(0:6) AS INTEGER
PRINT STRING$(50,178)
FOR A=0 TO 6
        P(A)=2^A
NEXT
OPEN "B",1,"ARDAF15.LZH"
T$="abcdefghijklmnopqrstuvwxyz":T$=T$+UCASE$(T$)+"0123456789#$
G"KeFlSHwnTu7m(Gl0c(934KEasaleKuefKrXuJlcf0uutxt(GhOoO2UhTTJN5Fza
G"1lFoFiTsePrj9uPzm3TPCuLydzivzcPGl4r3HWpvmhxFimmZClsC8sOptVx8mq7
G"agL#9$$Vp7mWizujrI2UDZnCTjEnS9rkuGfbIhCRd#DFnbUomqVb8wGa$LqxS77
G"9YQC2CTxUQ#j$$Z8QjY1kkAp$x789Jo2NEKDgYD7kBZFFM$IV$7rPV6wd7EqwAs
G"XkXLnSuD8uZFfAQV#X3YtUOyDSiDQADD7ud3FNu5O9gEQ5kwJAbLjpD$4vAu77T
G"b$7qDF8gq$KGO1pJQWcxlpj3DEx8XTXhsAu39QA5O517urXV$T4TMu1AvVRPtpk
G"dDvRGNAwNQg9R1MFvTSGCThUt$1NZUVp#1SRyYxDPH$CBl36oX5Spo2AFRmTmCM
G"f8AN556JQDENfWU1AOVoxRTGfE3RTpgos9$0xyh906eD9Mq$T5OXE3KodFKxR7F
G"hH8CXCXyaVUCKxNoqPg8I12dfN02#3ATL5P#z#YGvABM4PKBGgUvrN4sPECuw9r
G"$TTR8X7p3jJJy#ybC9272OM774x3Dy#AcyipDQo1QkKWENzdHLVkR8WO75tWkya
G"LFxnzTBWOVBHEFedkcozZlLVbJ0V18qn09qy25q33Tsrj3#T0vDT0CIza8W#A4g
G"Su1MSxW8yubLIQ#B6ZvX1WXDCF0e#q4OwqbmgYzFo4fcKlRemcoti5PnF5lJjmK
G"ZIOQlWWTojEOX8OMDBX7LBfgP5nTKBZ4o31QbvlpEOQDrBHYQRr#K0HhMlWMJIj
G"uFjuhhSztVh3gkITDsVuP8bddJpXGah1l0L#XEoVZGtWerk2cPZ3idJncy2Svap
G"ewC5JADboVlGObXrBAL2PUlxyhdR1IVKJeJfMSOnjAolT9$IeXzwWHl8u5EpuKL
G"SIxKkj9M6rU0QwfrlwdMLBJria3TfVdBIWVtXzPxRhOD#4Du$cQ0ChMNlzx4HjD
G"ujx6OHhsMjCO#dxPKtpfuyVojJl24TtgNewL1UatAuh7DHq6aL5aemHEK1TvrH7
G"OM7SrJxlGXf3J2Di5MqqEiCxG3ipwIcBov8HFM5E#vhyj#4LRPKav4sT#mKtLBZ
G"wNYj$xwKZh$143BXmY0YT$Gkz1CmUsDdwHd1528UaotO50b4in7krYs6oUEppPc
G"VWQF9jC7G89nDzcQHXlMCu3mlyxHSXwcTX8tR#vCKAMRE#Cd28neO$KonL6PpWT
G"JA$J6v3#kjiEy2MjBSPLN6SJ0MlI9M4Upidnd3ghRbnofHpcw5Ps$XS7tDyVBFn
G"Lq8CyMbtyDZ9S49MxsJjwklpkrC3FtEzRYpo2qQURUGuBDx#zy7M4Losi3uAI#O
G"D3znFCT3yc1F7012XhX3Tx#XQVMFsxSlM9X1oZ7yFPKg68q4RhASP$rctwIVF5e
G"p3iHF0IHAAdypy9WV1a2#y$0WHPzJNuyrt9l4mUE58bE7FE9sMH5YKYauT2gLM9
G"DjGcguQAacYjkPgAxUeLiIxQokGKsoIpQWQyI1gndnjfhCSlP487XoKD8vnRA9#
G"ykYBKPLQ4MvJs2kOVnQML7MlEOLKM#BUJoFEcYJaM2OC3oD#4uOHw6DP0iUPIio
G"DQaWTfhczQIqynEysUjjJ5IesFYqbhSIpfFJ5g2z0B6Mg#23mvEwoSo46oNBx4b
G"oyJxmvUBDeuS7wsSN2OEBEwS12ZtUKxkr4lo1DNzQXt75ACi6rpuDiXkFCMKs72
G"e67L5sxWf4bEzMnoRHz74Ekh4UqC152b8goMdsq2U8Ult$avFLte9cvofPYo2V#
G"BnU5$olUBZ30Is2DIbt1DQIvQAvvI2FN5ns14YysyzeGJuWBf3tuGQDNC3tGnh6
G"9xZnK78rtoYd$UOzgeVmDEeg5fH$7CGn00sImeBImjt6qm1sjQJMZD$##S9qZjQ
G"jvIRQxI9NzV5Jio72B$ED683VvTNQA6mTjSIdNgvQ4We8V77S4gP8FcI2xYCt2F
G"xeUrbpoed0kfIOpK31XScPfJaS4e3rGqyxhtcnBDCslnEsG#OQGXgBEv7tEf0Ul
G"IJxK0Q2p#DUPG$kzzfHg6AyC5kQDEJxxiioiM4#2KDubMkSiQsPVfzCqMmaLn#H
G"NRqA8WtxqaZ48oPKd#2fqsSuYbiBJwTrgQT#ALl55DeaKshkwGydPhisBWI5xTR
G"l4ecEgwy2F0gadUskIT4Coy2jUQOSetiDtS2hOrbw1FNAwh7tYDQyKmuBxi1v6G
G"yEOKWhvDNzUTCtDVtih60CiDX4DVaGqlywl99XKG$Wsc6Q#avgQiCt3K38hVYib
G"v7ivKUqBjGLXIapoKM#Kfi5NqNob6HeHaM45gUH#$T2yGQcJbjPAodkpoRXltvy
G"4GKj6qKzHWFx1ZbirbLou4SHCdK63lAR7OoQhQh01vU6rcqRJpv30rYfg$xhf6H
G"zPJulyRxUqGF5hBUNt0BkcCzJpsG9yHNY1HGWmQtDzuaejeoAkh2pb8L6CKXhSa
G"tCzv5a$whDyIqcGngUaCkk2qbg76nQy33iqP38AtE2GbIUVsHfLD8FbQQdPwp6s
G"Zk5AWeRt8YQMokBcoTGKiCOwH4ajtpVfgssZGiB$IZKV#y1g1E5fOUgVDvJjONh
G"KzxpPWQQQWkc7hjMmYuWGk32mm#k6Q9AiEt3IfhQNrKcsOZQn#t5rUWGeIhw3LB
G"y6WMXKMzMGZKE4NhVYI5vsasWbnXB$KpGa#kzaeIA7vEhk3gBxIeB#eh5Kwrhnk
G"NJLymvGtwWSvCPQYv59bBu330rDVQt$B21CWVYR8ht9M92fZOH9bD$wl3u3Avfr
G"UPkqLX$xuSqf6pJ3s#vxoAfHNA272lgoRPfKFFb#VK298ZI9vbrrpSpM6gzrv1f
G"M3urXxoWjwQWEml0b4M4K6udOs3hwwS9MdCtKnbRgJXDB1qByQbgDLcMpxrBpeX
G"zeh#7GItAssdbRg8XYNEAhNVPSkUX11huatfaCsLwWaHnZxzqWOT5DWIcl1LFrN
G"Cp9ngRw8g4j$3eWs3ELdFgK2ylEOl8Ld6UrFBDA4RpiWV8o5SK2y1M6PSv#ijJA
G"yknNAC82G9oraoo6alRCYBDOMmCbsLzrmoTdQ0fw6h58IYKdTmlQrlaOe1KnFEJ
G"bc86gfRDYZjV#4xNucNQs0gVVntVuBPcWxQB6dag9q$8bfL7GI5sccc7JJwGyst
G"M70VtghA50VtsRErfLGJsLQX70F5mbkRQNo2YiVbUhAL4MuSWxQ0iIp0nCcIbb5
G"kkErMTlntTDldAN83koH7NI4qbGn49XancFylB$Ok2DwaMrZ2Fylb3m57Zk7JcG
G"cFhrMD0Cx0y3SJx#4yXkZxJXbZ42#VwPdH$V7Si3P2pt1lZ9EZmfr47q3mHraj0
G"foaQ$lf$VyUAxZ8H23TM49LBnNUsDpxBzl4KJMMIsf1JTnagv6tY6v7vOGYboRD
G"NReJheNLQiPZrAgHcmBqcQsfSL$AAnk9vm$jTr3CoIJtIBcJGHkziV72kl8nfxh
G"HbOY#WVp2RC3kt$TKFosxY2b#AxjwYuNrY0Kk5SHUbfHbOorXjruqCFupcFhlVQ
G"GEOK#uqm$8LgFpkCVPIUPpg61nx8TZKtVBDtM$Xu8YvCRYMmYYvUB6LUUJZsOTZ
G"PKQUWoL0SZeH76VLi0KuxDO3IX85ShZWF4MPAj0Lg6#NdUzQJ0aeBw89LF3njxs
G"b47HBj8MyE4haIzgurOL8Y1NhJG0pameUkpA#DC2BtoHuxZHIwfZcnHJ4gQi7i3
G"L6eVzGbom1FTdcTCebd0HL9jQHTvPiyxbnqwk7UKN6b9$Y5p0IZjBLKmWvkC0xR
G"antKnyVwK3SOuPHgRsA5MRuzvXDf26YqVgRwoxyFSdUsbCIaw41gvJTj8QI0b7j
G"fsvG2gwO8j5K$s05k0Hy$tIZFU5HsQvWhkqaNBOSjKRqyys4wrPtxgVVlgAw$VO
G"8sTFpkbQs3$gsofbaeNX7qfGrBByqH6trIJSuKr6ldi85sMnIRzjgsy8aznZ8q$
G"LQVLdP8reo782G3WK$HhqZx1PbfFxWvf#c1ch3T$jPMGtZtof8DZqgJoSutJPGw
G"5Bt0YfMOuJ6uhCBHKM7EXrGju5I182YyosYx1ApOlkUFrMjeayv6AzTiIfaJlyG
G"ubjOtr8PmRZysxAXhFmIQTfrqbZDyCvNEXcw4L9imWGNOjdCBBhHuJN85T6rq8C
G"ubcQ$v8alDytQsOWLvvWVmtdAO0h6tcn6WAU67EqiegAxh79jklpeNTeX7zMS3h
'>> Continued on pg. 2
>>> Continued to next message
--- Maximus/2 2.01wb
---------------
* Origin: Sound Stage BBS - Live Via Satellite - (604)944-6476 (1:153/7070)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.