MaAqdtab <- function(spaltf="spaltentab.txt",zeilf="zeilentab.txt",sp2=0,sp3=0)
{

# Erzeugen von Aquad Tabellen
# berücksichtigt bisher nur 1. Spalte und Zeilen
# nicht Spalten 2. und 3. Ordnung
# requires: Übergabe von Dateinamen, in dem Spalten/ Zeilen stehen

  Spcods <- readLines(spaltf)
  Zpcods <- readLines(zeilf)
  lesp <- length(Spcods)
  lezp <- length(Zpcods)
  tabe <- as.character(c(lesp,sp2,sp3,lezp,Spcods,Zpcods))
  for (i in 5:(lesp+lezp+4))	# bearbeiten ab Stelle 5, dh vorher 4 redundate
  {
    while(30 - nchar(tabe[i]) != 0) tabe[i] <- paste(tabe[i],c(" "),sep="")
  }
  write(tabe,file=paste(spaltf,".ata",sep=""))
  return(tabe)
}