program setkeys(input/output);

{set up ibm fn keys for ssmp use}

Var i,j,k: integer;
    c1, c2, c3, c4: byte;

Begin

c1 := 5; c2 := 9; k := 48; c3 := 4; c4 := 9;
for i := 1 to 10 do begin
   if i = 10 then begin c3 := 4; c4 := 8 end;
   writeln(chr(27),
        '[0;', chr(c1+k), chr(c2+k), ';27;',chr(c3+k),chr(c4+k),'p');
   c2 := c2+1;
   if c2 = 10 then begin
     c2 := 0; c1 := c1+1;
   end;
   c4 := c4+1;
   if c4 = 10 then begin
      c4 := 0; c3 := c3+1;
   end;
end;
end.