cant call procedure

[msimard8]

ok...in this program why doesnt the procedure shop be called if a is pressed

[Cervantes]

It is called. It's just that you don't know it because there is no View.Update between the calling of shop and your cls. Hence, nothing shows up.
You're going to have to rearange your loop structure a little bit. I suggest having all your input stuff at the top, any modification and manipulation code in the middle, and drawing stuff at the end. Drawing stuff at the end should be in the form of:

cls
Draw.AllYourStuff
View.Update
delay (#)