Animation in pascal

Question

killhha 0 Light Poster

15 Years Ago

so i have this animation (yes i know its very long):

begin;            {main program starts}
clrscr;           {clears screen of any text}
textcolor(9);     {turns the text blue for the logo animation}
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');        {logo animation starts}
delay(logo);
writeln('MMMMMMMMM                     MMMMMMMMMM');
delay(logo);
writeln('MMMMMMM                         MMMMMMMM');
delay(logo);
writeln('MMMMM8                          ..MMMMMM');
delay(logo);
writeln('MMMM.                              MMMMM');
delay(logo);
writeln('MMM,                                MMMM');
delay(logo);
writeln('MMM                                 :MMM');
delay(logo);
writeln('MM                                   MMM');
delay(logo);
writeln('M8                                    MM');
delay(logo);
writeln('M                    _     _          MM');
delay(logo);
writeln('7         /\  /\    | \   |_|         IZ');
delay(logo);
writeln('I        /  \/  \ . |_/ . |           ?7');
delay(logo);
writeln('M       Max Demajo Programming        MM');
delay(logo);
writeln('M7                                    MM');
delay(logo);
writeln('MM                                   MMM');
delay(logo);
writeln('MMZ            Presents              MMM');
delay(logo);
writeln('MMM                                 MMMM');
delay(logo);
writeln('MMMM                               MMMMM');
delay(logo);
writeln('MMMMM,                           .MMMMMM');
delay(logo);
writeln('MMMMMMM                         MMMMMMMM');
delay(logo);
writeln('MMMMMMMMM                     MMMMMMMMMM');
delay(logo);
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(600);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M        ax Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       M x Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Ma  Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max  emajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max D majo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max De ajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Dem jo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Dema o Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demaj  Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo  rogramming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo P ogramming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Pr gramming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Pro ramming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Prog amming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Progr mming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Progra ming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Program ing        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programm ng        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programmi g        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programmin         MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(log);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');

index:=0;

repeat
index:=index+1;
delay(300);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ                                  MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
delay(300);
clrscr;
writeln('MMMMMMMMMMMM               MMMMMMMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMM8                          ..MMMMMM');
writeln('MMMM.                              MMMMM');
writeln('MMM,                                MMMM');
writeln('MMM                                 :MMM');
writeln('MM                                   MMM');
writeln('M8                                    MM');
writeln('M                    _     _          MM');
writeln('7         /\  /\    | \   |_|         IZ');
writeln('I        /  \/  \ . |_/ . |           ?7');
writeln('M       Max Demajo Programming        MM');
writeln('M7                                    MM');
writeln('MM                                   MMM');
writeln('MMZ            Presents              MMM');
writeln('MMM                                 MMMM');
writeln('MMMM                               MMMMM');
writeln('MMMMM,                           .MMMMMM');
writeln('MMMMMMM                         MMMMMMMM');
writeln('MMMMMMMMM                     MMMMMMMMMM');
writeln('MMMMMMMMMMMN               IMMMMMMMMMMMM');
until index=3;             {logo animation ends}

delay(1000);

it uses constants for log and logo. as you can see, i used a loop for the last part where 'presents' flashes. is it possible to make the beggining a loop aswel using goto x,y or something? because its a real lot of text and i would like to make it smaller. any help?

pascal

4 Contributors
5 Replies
1K Views
1 Day Discussion Span
Latest Post 15 Years Ago Latest Post by FlamingClaw

All 5 Replies

FlamingClaw 98 Posting Pro

15 Years Ago

how many times you want to run this procedure?

m610 0 Light Poster

15 Years Ago

Looks like fun. Reminds me of the ASCII movie version of Star Wars.

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

jsosnowski 1 Junior Poster in Training · Answer 1 · 2009-03-25T07:55:05+00:00

It looks like only a few lines actually change. Why don't you put the graphic in a loop with the few lines that change as a separate method? You can use counters to keep track of when to begin or change the lines that require it.

m610 0 Light Poster · Answer 2 · 2009-03-25T09:42:50+00:00

I would make each screen a separate procedure and let the main program loop call them when needed. Basically, you'll have a series of screens, then you write the script to display them whenever and for however long you want.

For fun, some procedures might only replace parts of previous screens. For example, just replace the text by going to the screen position and writing it. Or, if you have a background, then just overlay the new foreground image by doing a character-by-character comparison of the areas you want to display the new image at. Either way, it would cut down enormously on how much memory and related resources you have to use to store the strings.

Might as well use color while you are at it. ;)

FlamingClaw 98 Posting Pro · Answer 3 · 2009-03-25T23:43:21+00:00

You can use these:

While (condition true) Do
   Begin
      {your codes here..}
   End;

{Or}

Repeat
   {your codes here...}
Until (condition true);

{Or}

For i:=min To max Do
   Begin
      {your codes here...}
   End;
 
{
Do not forget about the 'Break' procedure,if you want to stopping these loops if needed
}

Animation in pascal

Recommended Answers Collapse Answers

All 5 Replies

Recommended Answers