Have something to say? Contribute New Article Reply to this Article
Animation in pascal
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?
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.
jsosnowski
Junior Poster in Training
68 posts since Nov 2007
Reputation Points: 11
Solved Threads: 11
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. ;)
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
}This article has been dead for over three months
You
© 2012 DaniWeb® LLC
