Вопрос по паскалю

Подскажите как нарисовать шахматную доску на турббо 7.0 без модуля граф?

 

ASCII

 

а конкретнее как?
задание просто нарисовать шахматную доску....что бы нажать на запуск и появилась
доска

 

не паскаль, но смысл должен быть понятен:

PHP:

cout << " a  b  c  d  e  f  g  h " << endl;
for(int i = 0; i < 8; ++i)
{
    cout << " " << i + 1 << " ";
    for(int j = 0; j < 8; ++j)
        cout << "[ ]";
    cout << " " << i + 1 << " ";
    cout << endl;
}    
cout << " a  b  c  d  e  f  g  h " << endl;


 

Альтернативную кодировку используй ))

█░█░█░█░
░█░█░█░█
█░█░█░█░
░█░█░█░█
█░█░█░█░
░█░█░█░█
█░█░█░█░
░█░█░█░█

как-то так:

writeln(' █░█░█░█░ ');
writeln(' ░█░█░█░█ ');
writeln(' █░█░█░█░ ');
writeln(' ░█░█░█░█ ');
writeln(' █░█░█░█░ ');
writeln(' ░█░█░█░█ ');
writeln(' █░█░█░█░ ');
writeln(' ░█░█░█░█' );

 

Turbo Pascal - DOS Консоль, там нет юникода

Code:

program chessdesk;
var i,j:integer;
s:char;
abc:string;
begin
		abc := '12345678';
        s := '#';
        writeln('||||A|||B|||C|||D|||E|||F|||G|||H|||||');
        for i:=1 to 8 do
        begin
        	write('|',abc[i],'|');
			for j:=1 to 16 do
			begin
				write(s,s,s,s);
				if j = 8 then begin 
					writeln('|',abc[i],'|');
					write('|||');
					if s='#' then s := ' ' else s := '#'
				end
				else if j = 16 then writeln('|||')
				else if s='#' then s := ' ' else s := '#';
			end;
        end;
        writeln('||||A|||B|||C|||D|||E|||F|||G|||H|||||');
end.

 

благодарю