Uses crt, Dos;

var s,i,x,y,D,n: integer;

r: real;

regs: Registers;

begin

clrscr;

regs.ah := 1;

regs.ch := $20;

regs.cl := 0;

regs.bh := 0;

Intr($10,regs); x:=1;

y:=1;

TextColor(RED);

Writeln(' ВНИМАНИЕ!!!');

Writeln('Для полного эффекта просмотра разверните окно на весь экран (Alt+Enter)');

writeln('Затем нажмите любую клавишу...');

readkey;

clrscr;

REPEAT textattr:=10;

r:=1;

while r<=128 do r:=r+0.001;

Randomize;

N:=random(9);

for I:=1 to N do begin d:=random(70);

If d<10 then d:=10;

gotoxy(x,y);

write(CHR(d));

y:=y+1;

if y=25 then y:=1;

end;

x:=random(80);

if x>=80 then x:=1;

writeln;

writeln; UNTIL KEYPRESSED;

textattr:=138;

gotoxy(32,12);

writeln('г==============¬');

gotoxy(32,13);

writeln('¦ Matrix error ¦');

gotoxy(32,14);

writeln('L==============-');

readln;

gotoxy(57,24);

readln;

end.