home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0009_SCRLTEXT.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  425 b   |  21 lines
  1. Uses
  2.   Crt;
  3.  
  4. Procedure ScrollTextLine (x1, x2 : Integer ; y : Integer ; St : String) ;
  5. begin
  6.   While Length(St)<(x2-x1+1) Do
  7.     St:=St+' ' ;
  8.   While not KeyPressed Do
  9.     begin
  10.       GotoXY(x1, y) ;
  11.       Write(Copy(St, 1, x2-x1+1)) ;
  12.       Delay(100) ;
  13.       St:=Copy(St, 2, Length(St)-1)+St[1] ;
  14.     end ;
  15. end ;
  16.  
  17. begin
  18.   ClrScr;
  19.   TextColor(lightgreen);
  20.   scrollTextline(10,60,12,'Hello There!');
  21. end.