program verwerk;

procedure netjes(var regel : string);
var
  m : integer;
begin
  if regel = '       ' then
  begin
    SetLength(regel,0);
    Exit;
  end;
  m := Pos('-',regel);
  if m > 0 then
  begin
    SetLength(regel,m-1);
    Exit;
  end;
  m := Pos('"',regel);
  if m > 0 then
    regel[m] := '_';
  m := Pos(' ',regel);
  if m > 0 then
    regel[m] := '_';
end;

procedure lezen;
var
  invoer,uitvoer : TextFile;
  teller : integer;
  regel,stuk : string;
begin
  AssignFile(invoer,'orlando.txt');
  Reset(invoer);
  AssignFile(uitvoer,'bewerkt.txt');
  Rewrite(uitvoer);
  teller := 0;
  while teller < 408 do
  begin
    Readln(invoer,regel);
    teller := teller + 1;
    if teller < 81 then Continue;
    if (teller mod 2) = 1 then
    begin
      Writeln(uitvoer,regel);
      Continue;
    end;
    stuk := Copy(regel,35,7);
    netjes(stuk);
    if Length(stuk) > 0 then
      Writeln(uitvoer,'Meta $10(ALT) ',stuk);
    stuk := Copy(regel,49,7);
    netjes(stuk);
    if Length(stuk) > 0 then
      Writeln(uitvoer,'Meta $11(TN1) ',stuk);
    stuk := Copy(regel,63,7);
    netjes(stuk);
    if Length(stuk) > 0 then
      Writeln(uitvoer,'Meta $12(TN2) ',stuk);
    stuk := Copy(regel,77,7);
    netjes(stuk);
    if Length(stuk) > 0 then
      Writeln(uitvoer,'Meta $13(BAS) ',stuk);
  end;
  CloseFile(uitvoer);
  CloseFile(invoer);
end;

begin
  lezen;
end.