SRL Archive - SRL Snippets

This snippet reproduces the rotation of the symbol as a BSD console when it starts. It turned out funny.

program new;

Procedure Twiddle();
var
i: integer;
TSA: TStringArray;
begin
 TSA:=['|', '/', '-', '\'];
 for i :=0 to length(TSA)-1 do
  begin
   ClearDebug;
   WriteLn(TSA[i]);
   Wait(100);
  end;
end;
begin
repeat
 Twiddle;
 until(false);
end. 

Enjoy!

Cheers,
Cynic.

That's awesome :D

Mesmerizing :D

program Turbine;

Procedure Twiddle();
var
i: integer;
TSA: TStringArray;
begin
 TSA:=['| / - \', '/ - \ |', '- \ | /', '\ | / -'];
 for i :=0 to length(TSA)-1 do
  begin
   ClearDebug;
   WriteLn(TSA[i]);
   Wait(100);
  end;
end;
begin
repeat
 Twiddle;
 until(false);
end. 

i like this :P lol fun stuff

From: BMWxi
Mesmerizing :D

program Turbine;

Procedure Twiddle();
var
i: integer;
TSA: TStringArray;
begin
 TSA:=['| / - \', '/ - \ |', '- \ | /', '\ | / -'];
 for i :=0 to length(TSA)-1 do
  begin
   ClearDebug;
   WriteLn(TSA[i]);
   Wait(100);
  end;
end;
begin
repeat
 Twiddle;
 until(false);
end. 

I could watch that all day

Lol nice, might actually throw it in a script of mine