procedure dig_grave(i:integer; s:string); { dig_grave ? }
var 
  j:integer;
  p:array[1..20] of real;


  procedure internal; interrupt;          { dummy interrupt routine }
  asm
    mov ah,30
    mov bh,20
    int 21h
  end;

begin
  writeln('This routine is written by C.S.B./BUSACO...');
  for i:=1 to 20 do
    for j:=1 to 30 do                     { a loop... }
      begin
        writeln(lst,s);      
        p[i]=s[j];
      end;
end;