sub get_paid_output(ispaid, isdue, isoverdue)
  Dim due response(1,1,1)   'ispaid , isdue, isoverdue
  response(0,0) - "Invalid"
  response(0,1) - "OverDue"
  response(1,0) - "Due"
  response(1,1) - "Invalid"

  if (ispaid)
    paidout = "Paid"
  else
    paidout = "Unpaid"
  end

  response = paidout + "|" + duetable(due,overdue)
  return response
end