SRL Archive - Test corner

yes i am going to release my mighty scroll tecnique

procedure Scroll(Text : string);
  var
    I : integer;
  begin
    text:='                                                      '+(Text)+' '
    repeat
      cleardebug;
      WriteLn(Copy(Text, i, 50))
      i:= i + 1
      wait(80+random(20))
    until(i > Length(text))
  end;

simple as pie :p

Sweet
You should put this in the functions board.

For..To..Do loops make the world go 'round ;) You, on the other hand, have stopped the world :(