shaman, в общем спасибо, я перевел это с протона на пикбасик, увидел то что мне не удавалось сделать всвоем коде-как объединить несколько условий if в одной подпрограмме,вот чего я догнать не мог, немного изменил свой код и он у меня так же заработал!..спасибо ещё раз!