program prtstr;

uses gfx256;

var
 i : integer;
 s : string;
begin
 graph320x200;

 for i:=1 to 15 do
  print(10+i*8,3+(i-1)*8,i,'HELLO WORLD!');



 s:='';
 for i:=32 to 63 do s:=s+chr(i);
 print(5,130,14,s);

 s:='';
 for i:=64 to 95 do s:=s+chr(i);
 print(5,140,14,s);



 print(110,160, 4,'WHAT DO YOU KNOW?');
 print(111,160,15,'WHAT DO YOU KNOW?');

 readln;
 text80x25;
end.