program lptmusic;
uses dos,crt,printer;
var ch:char;
    a,i:integer;
    data:string[255];
begin
  a:=0;
  repeat
    a:=a+1;
    while not(keypressed) do
    ch:=readkey;
    data:='';
    ch:=chr(ord(ch)+100);
    for i:=1 to 10 do
      data:=data+ch+ch+ch+ch;
    write(ch,a);
    write(lst,chr(27),'1'+data+chr(27)+'J'+chr(1));
    if a=5 then begin
      writeln(lst);
      a:=0;
    end;
  until ch=chr(27);
end.