transaction presenze
  length = 20
  fields
    id     : 1,2
    badge  : 3,6
    anno   : 9,2
    mese   : 11,2
    giorno : 13,2
    data   : 9,6
    ora    : 15,2
    minuti : 17,2
    orario : 15,4
    causale: 19,2
  end
  conditions
  end     
  instructions
    x=date(giorno,mese,anno)
    backup
    idl=strz(terminal,2)
    append(savefile,idl,badge,data,orario,causale)
    end
end