Sub object1020()
Dim job as Integer
Dim boxes as Float
Dim skids as Float
Dim overs as Float
Dim labels as Float
Dim books as Integer
Dim partial as Float
Dim boxespart as Float

    job = val(field1006.Text)
    books = job
    overs = val(field1031.text) * books
    boxes = (books + overs) / val(field1012.text)
    skids = boxes / val(field1010.Text)
    field1014.Text = str(boxes)
    field1004.text = str(skids)
    field1034.Text = str(overs)
    partial = skids - val(field1047.Text)
    field1049.Text = str(partial)
    boxespart = val(field1049.Text) * val(field1010.Text)
    field1051.Text = str(boxespart)
    labels = boxes * val(field1036.Text)
    field1008.Text = str(labels)
End Sub