(defun cm-estate-rec-entries (Description File &optional Memo AccountDate AccountAmount Shares AccountSchedule1 AccountSchedule2 EstateTaxSchedule FiduciaryTaxSchedule ProceedsDate ProceedsAmount AccountSchedule3 AccountSchedule4 Beneficiary OtherAccount1 &optional CheckDate CheckNumber CheckAmount)
  (goto-char (point-max))
  (newline)
  (interactive "sDescription:  \nsFile: \nsMemo: \nsAccountDate: \nsAccountAmount: \nsShares: \nsAccountSchedule: \nsAccountSchedule:  \nsEstateTaxSchedule: \nsFiduciaryTaxSchedule: \nsProceedsDate: \nsProceedsAmount: \nsAccountSchedule: \nsAccountSchedule: \nsBeneficiary: \nsOtherAccount: \nsCheckDate:  \nsCheckNumber: \nsCheckAmount: ")
  (insert "Description: " Description) (newline)
  (insert "File: " File) (newline)
  (insert "Memo: " Memo) (newline)
  (insert "AccountDate: " AccountDate) (newline)
  (insert "AccountAmount: " AccountAmount) (newline)
  (insert "Shares: " Shares) (newline)
  (insert "AccountSchedule: " AccountSchedule1) (newline)
  (insert "AccountSchedule: " AccountSchedule2) (newline)
  (insert "EstateTaxSchedule: " EstateTaxSchedule) (newline)
  (insert "FiduciaryTaxSchedule: " FiduciaryTaxSchedule) (newline)
  (insert "ProceedsDate: " ProceedsDate) (newline)
  (insert "Proceeds: " ProceedsAmount) (newline)
  (insert "AccountSchedule: " AccountSchedule3) (newline)
  (insert "AccountSchedule: " AccountSchedule4) (newline)
  (insert "Beneficiary: " Beneficiary) (newline)
  (insert "OtherAccount: " OtherAccount1)
  (if (y-or-n-p "Are those checkbook entries necessary?")
      (progn
	(newline)
	(insert "OtherAccount: Checkbook") (newline)
	(insert "CheckDate: " CheckDate) (newline)
	(insert "CheckNumber: " CheckNumber) (newline)
	(insert "CheckAmount: " CheckAmount) (newline))
    (progn
      (newline))))