И снова здрасти! Увлекся созданием функции для прокрутки текста, получился...    телевизор 

РФО это как кисть для художника ) К слову сказать, автор программы программировал еще в 1977 году для Apple, под IBM 360.  
http://apple2history.org/tag/paul-laughton/Вобщем  вот получившийся  телек, и под ним получившаяся  функция для прокрутки текста, надо отметить скорость ее работы напрямую зависит от аппаратной возможности устройства.  Если девайс слабый, -лучше использовать функцию напрямую, как  подпрограмму. Для увеличения скорости работы можно изменить параметр "a" в такой конструкции  в конце функции:
    sv++
    if mod(sv,a)=0 then    gr.render
Так как обновление графики в РФО сильно замедляет скорость работы программы, то можно схитрить и обновлять один раз за два, а то и за три такта. Дальнейшее увеличение параметра приведет к сильному подергиванию текста. Так что тестируйте, необходимая документация находится  в шапке функции.
  1961uvg, я рад что, тебе не безразличен мой код 

Да и еще, чтобы наглядно увидеть работу функции, закоментируйте эту строчку:
gr.rect ramka,lt-ss/2,tp-ss/2,rt+ss/2,bt+ss/2
Прикрепленные файлы:
 FnTextScrollex.bas 
 (3.94 кб.) Скачано 853 раза 
 FnTextScroll2ex.bas 
 (5.39 кб.) Скачано 928 раз