[Back to SCREEN SWAG index] [Back to Main SWAG index] [Original]

    Uses
      Crt;

    Procedure ScrollTextLine (x1, x2 : Integer ; y : Integer ; St : String) ;
    begin
      While Length(St)<(x2-x1+1) Do
        St:=St+' ' ;
      While not KeyPressed Do
        begin
          GotoXY(x1, y) ;
          Write(Copy(St, 1, x2-x1+1)) ;
          Delay(100) ;
          St:=Copy(St, 2, Length(St)-1)+St[1] ;
        end ;
    end ;

    begin
      ClrScr;
      TextColor(lightgreen);
      scrollTextline(10,60,12,'Hello There!');
    end.

[Back to SCREEN SWAG index] [Back to Main SWAG index] [Original]