скачайте базовую библиотеку OSCAT и посмотрите как работает функция INC1
А по поводу кусков выше, написан бред, бесполезно занимающий ресурсы процессора