کلید ورودی در میکرو

[P.maddah39]

سلام. دوستان آیا این برنامه من درست هست؟
به زبان بسکام هست اگه کسی میتونه بهم راهنمایی کنه. من میخوام در ورودی 4 بیت رو به میکرو بدم و در عوض هر بیت یک زیر برنامه اجرا بشه.
[Deboune , pind.0 , set , jelo;
Debounce , pind.1 , set , aghab;
Debounce , pind.2 , set , rast;
Debounce , pind.3 , set , chap;

Jelo:
{
...
}

Aghab:
{
...
}

Rast:
{
....
}

Chap:
{
....
}