Number format toggle key

[RocaSeba]

I was very used to this function on my old Casio calculator, so i wrote a program to have it back in my HP Prime without the need to go into settings.
It works with alpha + ab/c but you can use the key you like the most, it also show a little message in te top left corner to tell you in which mode you are in. It toggles between std, sci, eng and flt because those were the ones i nedded.

KEY KA_Abc()
BEGIN
LOCAL name;
CASE
IF HFormat=0 THEN HFormat:=2; name:="SCI" END;
IF HFormat=2 THEN HFormat:=3; name:="ENG" END;
IF HFormat=3 THEN HFormat:=4; name:="FLT" END;
IF HFormat=4 THEN HFormat:=0; name:="STD" END;
DEFAULT
END;
STARTVIEW(-1,1);
TEXTOUT_P(name,G0,2,22,2,RGB(255,200,0),25,RGB(60,60,60));
WAIT(.5);
END;