Super Mario ASCII edition, love the idea.
Let's make it 
Moving goomba 
SCAR Code:
program Goomba;
var spaces : string;
begin
cleardebug;
spaces := '';
repeat
repeat
cleardebug;
writeln(spaces + ' ***');
writeln(spaces + ' *****');
writeln(spaces + ' **\*/**');
writeln(spaces + ' |___| ');
writeln(spaces + ' / \');
spaces := spaces + ' ';
addtoreport('goomba 1');
wait(500);
cleardebug;
spaces := spaces + ' ';
writeln(spaces + ' ***');
writeln(spaces + ' *****');
writeln(spaces + ' **\*/**');
writeln(spaces + ' |___| ');
writeln(spaces + ' \ /');
spaces := spaces + ' ';
addtoreport('goomba 2');
wait(500);
until(length(spaces) > 20);
repeat
cleardebug;
writeln(spaces + ' ***');
writeln(spaces + ' *****');
writeln(spaces + ' **\*/**');
writeln(spaces + ' |___| ');
writeln(spaces + ' / \');
addtoreport('goomba 1');
wait(500);
cleardebug;
Delete(spaces, 1, 1);
writeln(spaces + ' ***');
writeln(spaces + ' *****');
writeln(spaces + ' **\*/**');
writeln(spaces + ' |___| ');
writeln(spaces + ' \ /');
Delete(spaces, 1, 1);
addtoreport('goomba 2');
wait(500);
until(length(spaces) < 10);
until(false);
end.
I tried doing the legs with DeleteDebugLine but it is giving me weird acces violations :s
If we make this game, let's make it for scar 1.01, now downloadable from freddys site 
Mario:
SCAR Code:
procedure Mario;
begin
writeln(' ### ');
writeln(' # M # ');
writeln(' ##########');
writeln(' | o_|');
writeln(' |____|')
writeln(' // \\');
end;