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

    {Here's a neat ANSI effect that scrolls a string in... quite neat i think.}

      procedure Thingy;
        const
          len = 45;
          IL : string[len] = 'Cool String Thingy! by The MAN';
          chardelay = 10;
          enddelay = 1000;
        var
          loop: byte;
        begin
          TextColor(white);
          GotoXY(1,1);
          write(IL);
          Delay(chardelay);
          TextColor(Random(15)+1);
          GotoXY(1,1);
          write(IL[1]);
          Delay(chardelay);
          GotoXY(2,1);
          TextColor(Random(15)+1);
          write(IL[2]);
          Delay(chardelay);
          for loop:=3 to len do
            begin
              GotoXY(loop-2,1);
          TextColor(Random(15)+1);
          {TextColor(white);}
          write(IL[loop-2]);
          Delay(chardelay);
          GotoXY(loop-1,1);
          TextColor(Random(15)+1);
          write(IL[loop-1]);
          Delay(chardelay);
          GotoXY(loop,1);
          TextColor(Random(15)+1);
          write(IL[loop]);
          Delay(chardelay);
        end;
          Delay(enddelay);
        end;

    BEGIN
    Thingy;
    END.

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