--
--
-- 1779,10,1235



local einblendung = {
{ "  Bergbahn Zugpositionen", "", "", "" },
{ "", "", "", "" },
{ "", "", "", "" },
{ "", "Tal:", "Gleis A/B: %-6s  %-6s", "Gleis A           Gleis B" },
}

-- ------------------------------



local function disp_update()

     for t=1,4 do
          local tl = ""
          for z=1,4 do
               if z>1 then tl = tl.."\n" end
               local h = einblendung[t][z]
               if #h < 1 then h = " " end
               tl = tl .. h
          end
          digiline_send("txt"..t,tl)
     end          
     return
end

-- ------------------------------


if event.type == "punch" then
     local text = "        AUA!!!"
     for i=1,4 do
          digiline_send("txt"..i," "..i.."\n"..text)
     end

     interrupt(10,"clear")
     return
end


if event.type == "int"  then
     if event.message == "clear" then
          disp_update()
--          for i=1,4 do
--               digiline_send("txt"..i,i)
--          end
     end
     return
end




local zeilen = {"gleisa","gleisb","tal" }


if event.type == "ext_int" then
     local nachricht = event.message
     if nachricht == nil then return end
     if type(nachricht) == "string" then
          if nachricht == "update" then
               local t
               local z
               local e=1
               for t = 1,4 do
                    local ausgabe = ""
                    for z = 1,4 do
                         if z>1 then ausgabe = ausgabe.."\n" end
                         ausgabe = ausgabe .. S.daten[e]
                         e = e+1
                    end
                    digiline_send("txt"..t,ausgabe)
               end
               return
          end
          return
     end
     if type(nachricht) == "table" then
          if not nachricht.von_pos then return end
                      
          return
     end
     return
end