Creating my own version of EQ library [Resolved]

[wmundstock]

I think I can close my own thread.
In case someone ever come here looking for the same thing, here is a sample code that has 2 SOLVE solutions, one for single equation and another for multiple equation. Just created a simple Ohm's law example to illustrate.

«
{
{"Mult"
«
{ V I R P} PURGE @clear older variables
0_V V STO @set units
0_A I STO
0_R R STO
0_W P STO
'V=I*R'
'P=V*I'
2 ->LIST STEQ MINIT @Convert to list and store equations - replace -> with actual arrow
"Ohm Law" @Show the name of the equation in the top of the screen
{V I R P} MITM @Order Variables
MSOLVR »} @Start solver

{"Singl" «
{ V I R } PURGE @clear previous vars
0_V V STO @set units
0_A I STO
0_R R STO
'V=I*R' STEQ @store equation
30 MENU @start solver
»}
} TMENU»