HP PRIME expression evaluator

EXPORT Test()
BEGIN
//By Dylan
//DIRECTIONS
TEXTOUT_P("EXPRESSION SOLVER",100,100);
WAIT(0.8);
TEXTOUT_P("1 IS *",100,120);
WAIT(0.8);
TEXTOUT_P("2 IS /",100,140);
WAIT(0.8);
TEXTOUT_P("3 IS +",100,160);
WAIT(0.8);
TEXTOUT_P("4 IS -",100,180);
WAIT(2.6);
CHOOSE(P,"EXPRESSION","1","2","3","4");
WAIT(0.8);
INPUT(X,"X MUL VALUE");
INPUT(E,"EQUAL VALUE");
//INV OP
IF (P==1) THEN
EVAL(X/E);
PRINT(X/E)

END;
IF P==2 THEN
EVAL(X*E);
PRINT(X*E)

END;
IF P==3 THEN
EVAL(X-E);
PRINT(X-E)
END;

IF P==4 THEN
EVAL(X+E);
PRINT(X+E)
END;
WAIT(2);
END;