感谢西南位育沈宇轩同学提供
uses crt;
var
i:byte;
procedure move;
begin
for i:=1 to 27 do begin
gotoxy(i,14);
write(' >>----I love you!---->');
delay(100);
end;
for i:=1 to 5 do begin
gotoxy(35,15);
write(' ');
delay(200);
gotoxy(35,15);
write(' My Father. ');
delay(200);
end;
end;
procedure still;
begin
textcolor(lightred);
gotoxy(30,10);
write(' **** ****');
gotoxy(30,11);
write(' ****** ******');
gotoxy(30,12);
write(' ********★********');
gotoxy(30,13);
write(' ********★********');
gotoxy(30,14);
write(' ******★******');
gotoxy(30,15);
write(' *****★*****');
gotoxy(30,16);
write(' ***★***');
gotoxy(30,17);
write(' ******');
gotoxy(30,18);
write(' **');
end;
begin
cursoroff;
clrscr;
still;
move;
readln;
end.
