General > Off Topic

Feel the Power of Random!

(1/1)

Shoop da Whoop:
Just run this:


--- Code: ---program mtrx;
uses CRT;
var x, y: shortint;

procedure thr_x;
begin
  x:=trunc(Random*79.79);
end;

procedure thr_y;
begin
  y:=trunc(Random*25.25);
end;

procedure rnbw;
begin
  TextColor(trunc(Random*15.15));
end;

BEGIN
  ClrScr;
  Randomize;
  x:=1;
  y:=1;
  repeat
    thr_x;
    thr_y;
    rnbw;
    gotoxy(x, y);
    write(round(Random*10))
  until KeyPressed;
END.
--- End code ---

in Pascal compiler.

ZZ:
Feel the stronger and easier power:
uses crt;
begin
 repeat
  gotoxy(random(80)+1,random(24)+1);
  textcolor(random(31));
  textbackground(random(8));
  write(chr(random(256-7)+8));
 until keypressed
end.

--- End code ---

In Pascal Compiler too, run in fullscreen, it's better in it.

Shoop da Whoop:
Th Matrix has us!

Navigation

[0] Message Index