Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Экранные Средства    >>    smooth
   
 
 Плавный Скроллинг в Текстовом Режиме   Andrew Eigus 20.01.1995

Smooth Text Scroll



1k 
 

Howdy Ilya, 14 Jan 95, Ilya Kozachenko wrote to All: IK> Может, кто знаком с субжем от Ziff Communications ? IK> Расскажите, pls, кто знает, как они плывущий текст делают IK> в режиме 03h ? Целый день голову ломаю, уже и фонты менял, IK> и графику пробовал, но ни черта не выходит ;-( Поpты, однако... :o) Вот, на Пасцале: Greetingz, Mr. Byte --- GoldEd/P32 2.42.G0214+ * Origin: AndRew's BBS (+371-2-559777) ThE OxyGen F0r CodErs (2:5100/33) {> Cut here. FileName= SMOOTH.PAS } Program SmoothTextScroll; uses crt; var i : integer; begin for i:=0 to 70 do write('That''s what you are asking for? '); port[$3D4]:=8; port[$3D5]:=0; i:=0; repeat port[$3D4]:=8; port[$3D5]:=8+round(7*sin(pi*i/32)); repeat until not boolean(port[$03DA] and 8); repeat until (port[$03DA] and 8)=8; inc(i); until keypressed end.