View difference between Paste ID: rQZrBgtT and yc0Mb8nW

 -- Program made by AndySpam
 function split_string(str, pat)
   local t = {}
   local fpat = "(.-)"..pat
   local last_end = 1
   local s, e, cap = str:find(fpat, 1)
   while s do
     if s ~= 1 or cap ~= "" then
       table.insert(t,cap)
     end
     last_end = e + 1
     s, e, cap = str:find(fpat, last_end)
   end
   if last_end <= #str then
     cap = str:sub(last_end) table.insert(t, cap)
   end
   return t
 end
 function clear()
    term.clear()
    term.setCursorPos (1,1)
 end
 
 while true do
   clear()
   print ("Press any key to run.")
   local event, key = os.pullEvent ("char")
   clear()
   local source = http.get("http://example.com/turtle.txt")
   local aSource = source.readAll()
   source.close()
   local delay = 0.3
   move = split_string(aSource, ",")
 
   for i=1, #move do
     if move[i] == "0" then
       turtle.forward()
     elseif move[i] == "1" then
       turtle.back()
     elseif move[i] == "2" then
       turtle.turnLeft()
     elseif move[i] == "3" then
       turtle.turnRight()
     elseif move[i] == "4" then
       turtle.up()
     elseif move[i] == "5" then
       turtle.down()
     elseif move[i] == "6" then
       turtle.dig()
     end
     sleep(delay)
   end
   sleep(1.5)
 end