I'll help you a little bit ;) :
These lines :
begin
RightNotice
end;
End.
At the end of the script can be deleted.
I'm happy to see you gave a try at standards, here's how it should be :
Your version (wrong standards) :
program demonstration;
Procedure DrawAscii;
begin
Writeln('___________ ___________ _____ _____')
wait(150)
Writeln('\__ ___/___ ____\__ ___/_ ___/ ____\/ ____\______')
wait(150)
writeln(' | | / _ \ / \| | | | \ __\\ __\/ ___/')
wait(150)
writeln(' | |( <_> ) Y Y \ | | | /| | | | \___ \')
wait(150)
writeln(' |____| \____/|__|_| /____| |____/ |__| |__| /____ >')
wait(150)
writeln(' \/ \/')
wait(150)
writeln('___________ .__')
wait(150)
writeln('\_ _____/__ ________ _____ ______ | | ____')
wait(150)
writeln(' | __)_\ \/ /\__ \ / \\____ \| | _/ __ \ ')
wait(150)
writeln(' | \> < / __ \| Y Y \ |_> > |_\ ___/')
wait(150)
writeln('/_______ /__/\_ \(____ /__|_| / __/|____/\___ >')
wait(150)
writeln(' \/ \/ \/ \/|__| \/ ')
End;
procedure RightNotice;
begin
Writeln('I hope to one day become an SRL-Forums member,')
wait(75)
Writeln('And this is my first step towards doing just that!')
wait(150)
Writeln('all this written by TomTuff, ascii art by www.network-science.de/ascii')
End;
begin
DrawAscii
RightNotice
end.
This is the right one :
program demonstration;
Procedure DrawAscii;
begin //begins aren't indented.
//Two space identation after a begin.
Writeln('___________ ___________ _____ _____'); // ";"'s after a function etc...
wait(150)
Writeln('\__ ___/___ ____\__ ___/_ ___/ ____\/ ___\______');
wait(150);
writeln(' | | / _ \ / \| | | | \ __\\ __\/ ___/');
wait(150);
writeln(' | |( <_> ) Y Y \ | | | /| | | | \___ \');
wait(150);
writeln(' |____| \____/|__|_| /____| |____/ |__| |__| /____ >');
wait(150);
writeln(' \/ \/');
wait(150);
writeln('___________ .__');
wait(150);
writeln('\_ _____/__ ________ _____ ______ | | ____');
wait(150);
writeln(' | __)_\ \/ /\__ \ / \\____ \| | _/ __ \ ');
wait(150);
writeln(' | \> < / __ \| Y Y \ |_> > |_\ ___/');
wait(150);
writeln('/_______ /__/\_ \(____ /__|_| / __/|____/\___ >');
wait(150);
writeln(' \/ \/ \/ \/|__| \/ ');
End; //End;s are on the same line as their corresponding "begin"s.
procedure RightNotice;
begin
Writeln('I hope to one day become an SRL-Forums member,');
wait(75);
Writeln('And this is my first step towards doing just that!');
wait(150);
Writeln('all this written by TomTuff, ascii art by www.network-science.de/ascii');
End;
begin
DrawAscii
RightNotice
end.
Good attitude ;). I'm sure you will accomplish SRL Member's someday, and as you said, this is a first step ;).
Good luck, and keep going ;).