HP Prime programmable eq solver

[LarsF]

I succeed to to download the code from calculator ( on a Mac!!!), so there should be no errors

And I use code tag instead of quote :-)

Code:


TYP:=1,EQ;
EXPORT EQLib()
BEGIN
END;

VIEW "Start",START()
BEGIN
  STARTVIEW(7,0);
END;

VIEW "Select type",STYPE()
BEGIN
  CHOOSE(TYP,"Select type",EQTYPE);
  STARTVIEW(7,0);
END;

VIEW "Solve EQ Lib",SOLVE()
BEGIN
  LOCAL I;
  CHOOSE(EQ,"Solve EQ Lib",EQLIBNAME(TYP));
  E1:=EQLIB(TYP,EQ);
  FOR I := 0 TO 9 DO
    UNCHECK(I);
  END;
  CHECK(1);
  STARTVIEW(0,1);
  STARTVIEW(2,1);
END;

VIEW "Add Equation",ADD()
BEGIN
  LOCAL Equation:="", EQname:="";
  IF INPUT({Equation,EQname},EQTYPE(TYP)+" Insert an EQ",{"EQ: ","EQ Name: "},{"Insert an EQ as string","Insert EQ name as string"}) THEN
    EQLIBNAME(TYP,0):=EQname;
    EQLIB(TYP,0):=Equation;
  END;
END;