Tim's Mining Programm für Ferdy

function fforward()
  while(turtle.forward()==false) do
    turtle.dig()
  end
end

function fdigUp()
  while(turtle.detectUp()) do
    turtle.digUp()
    sleep(0.4)
  end
end

function step()
  fforward()
  fdigUp()
  turtle.select(1)
  turtle.placeDown()
end

write("Maximale Laenge eingeben:")
max=tonumber(read())
i=0

while(i<max) do
  for k=1,i do
    step()
  end
  turtle.turnRight()
  i=i+2
end