HP-50g dangerous L-Shift STO shortcut

[Artur - Brasil]

Well, here the new version of SSTO program with backup:

<<
RCLMENU
--> o n m
<< {-1 0 1 10 28}
n VTYPE POS
0 > //zero!
<< o n STO>>
<< m o n CLLCD n
->STR " is:" + 1 DISP
n RCL ->STR 2 DISP //here I need to use smallest font!
3 FREEZE
{
{ "BKP"
<< DUP DUP RCL SWAP "SSTOBK/" SWAP +
3 ->TAG
IFERR STO
THEN DUP PURGE STO
END STO MENU>>
}
{ "Y" << STO MENU>>}
{ "N" << ROT MENU >>} //in next versions, add BKP function.
} TMENU
>>
IFTE
>>
>>

The version with backup will show a menu asking: BKP Y N on softkeys.
If you choose BKP, it will save the actual content of variable in SD Card (port 3), under SSTOBK menu, and then save the new data over actual variable. Only one copy will exist, ok?
The other subroutines were not modified.

Cheers
Artur