Я юзал такой код ("позаимствован" откуда-то из ZX-журнала, не помню какого):