SRL Archive - OSR Help

I have a few constants of lets say
Buy1 = 99;
buy2 = 140;
buy3 = 155;


and i have a few procedures with the buy constants in them
price check1;
price check2;
price check3;

i want to be able to have just one price check procedure so if price price check(x) use buy(x)

how do i do this. please post an example.

priceCheck(buy);

procedure priceCheck(buy:integer);