program ANSItest;

#include "classes/ansi.inc"

var i,j:integer;
begin
pref ANSI block begin
call GotoXY(10,2);write("This is ANSI class demonstration");
call GotoXY(5,5);write("Colors:");
for i:=0 to 15 do
call GotoXY(5,i+6);call SetColor(i);
write("color");
od;
call SetColor(5);
writeln("Press Any Key");
j:=inkey;
while j=0 do j:=inkey; od;
call NewPage;
call GotoXY(5,5);
write("backgrounds:");
call SetColor(15);
for i:=0 to 15 do
call SetBackground(i);
call GotoXY(5,i+6);  write("background");
od;
call SetColor(0);call SetBackground(15);
writeln("Press Any Key");
j:=inkey;
while j=0 do j:=inkey; od;
call NewPage;
call GotoXY(5,5); writeln("Font Styles");
call Normal; writeln("Normal");
call Bold; writeln("Bold");

end;
end.
call Normal; writeln("Normal");
call Bold; writeln("Bold");
call Italic; writeln("Italic");
end;
end.
end;
end.
end.
for i:=0 to 15 do
call GotoXY(5,i+6);call SetColor(i);
write("color");
od;
call SetColor(5);
writeln("Press Any Key");
j:=inkey;
while j=0 do j:=inkey; od;
call NewPage;
call GotoXY(5,5);
write("backgrounds:");
call SetColor(15);
for i:=0 to 15 do
call SetBackground(i);
call GotoXY(5,i+6);  write("background");
od;
call SetColor(0);call SetBackground(15);
writeln("Press Any Key");
j:=inkey;
while j=0 do j:=inkey; od;
call NewPage;
call GotoXY(5,5); writeln("Font Styles");
call Normal; writeln("Normal");
call Bold; writeln("Bold");

end;
end.

call Bold; writeln("Bold");
call Italic; writeln("Italic");
end;
end.
end;
end.
end.
end.
end;
end.
end.АА
  