蜈蚣病毒演示

感谢1402沈逸轩同学提供

uses crt;

var

  i:byte;

 

procedure c;

begin

  writeln('   c:// 2015-6-1 15:00  <dir>  plants vs zombus');

end;

 

procedure insect;

begin

  textcolor(lightred);

  write(' #');

  textcolor(lightgreen);

  write('=');

  textcolor(lightred);

  write('#');

  textcolor(lightgreen);

  write('=');

  textcolor(lightred);

  write('#');

  textcolor(lightgreen);

  write('=');

  textcolor(lightred);

  write('#');

  textcolor(lightgreen);

  write('=');

  textcolor(lightred);

  write('#');

  textcolor(lightgreen);

  write('=');

  textcolor(lightred);

  write('#');

  textcolor(lightgreen);

  write('=');

  textcolor(yellow);

  if i mod 2=0 then write('E')

               else write('<');

end;

 

begin

  cursoroff;

  clrscr;

  gotoxy(1,1);

  c;

  gotoxy(1,3);

  c;

  gotoxy(1,5);

  c;

  gotoxy(1,1);

  delay(2000);

  insect;

  for i:=1 to 43 do begin

    gotoxy(i,1);

    delay(150);

    insect;

  end;

  for i:=1 to 43 do begin

    gotoxy(i,3);

    delay(150);

    insect;

  end;

  for i:=1 to 43 do begin

    gotoxy(i,5);

    delay(150);

    insect;

  end;

  delay(1000);

  for i:=1 to 5 do begin

    clrscr;

    delay(200);

    textbackground(blue);

    clrscr;

    delay(200);

    textbackground(yellow);

    clrscr;

    delay(200);

    textbackground(lightred);

  end;

  readln;

end.