This one is rather simple, and for those who are beginning to optimize. For experience programmers, this should be a breeze. Here goes:
3->X
5->Y
0->B
"A="->Str1
Input "EQU=",P
Lbl 1
Input Str1,A
If P=A
Then
Disp "YOU GOT IT"
Disp Str1
Stop
End
B+1->B
If B=1
"B="->Str1
If B=2
"C="->Str1
If B=3
"D="->Str1
If B=4
"E="->Str1
If B=5
Stop
Goto 1
this is 147 bytes with a 3 letter title
My version (Highlight over)
DelvarB3->X
5->Y
Input "EQU=",P
For(B,1,5
sub("ABCDE",B,1
Input Ans+"=",A
If P=A
Goto 1
End
Return
Lbl 1
Disp "YOU GOT IT
Ans
92 bytes with the title ANS