262 lines
34 KiB
Plaintext
262 lines
34 KiB
Plaintext
;;File generated by xxl-v2.1.2. DO NOT EDIT.
|
|
;29 22 ;; nb-rows nb-cols
|
|
(set-author! *current-sheet* "")
|
|
(set-creation-date! *current-sheet* "07/16/99 15:30:38")
|
|
(set-modification-date! *current-sheet* "12/16/99 12:45:19")
|
|
(set-title! *current-sheet* "No Title")
|
|
(set-purpose! *current-sheet* "Purpose: ")
|
|
(apply width (current-table) '(8 -114 7 -89 6 -98 5 -110 3 -44 2 -51 1 -65))
|
|
|
|
(set-table-value! (current-table) 2 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 600000))
|
|
|
|
(set-table-value! (current-table) 1 1 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Loan"))
|
|
|
|
(set-table-value! (current-table) 1 2 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Rate"))
|
|
|
|
(set-table-value! (current-table) 1 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Years"))
|
|
|
|
(set-table-value! (current-table) 2 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
|
|
|
|
(set-table-value! (current-table) 2 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 3 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 600000))
|
|
|
|
(set-table-value! (current-table) 3 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
|
|
|
|
(set-table-value! (current-table) 3 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 1 5 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Monthly payment"))
|
|
|
|
(set-table-value! (current-table) 2 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6864.14616227857 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 3 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 6878.56910239991 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 1 7 (make <value-cell> :format '(3 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Interest paid"))
|
|
|
|
(set-table-value! (current-table) 2 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 141327.785526085 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 3 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 142885.46305919 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 1 4 (make <value-cell> :format '(3 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Insurance"))
|
|
|
|
(set-table-value! (current-table) 2 8 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $ 1557.68" :has-ext-ref #f :formula '((& "diff = $ " (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
|
|
|
|
(set-table-value! (current-table) 2 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 741327.785526085 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 3 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 742885.46305919 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 2 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 3 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 5 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 620000))
|
|
|
|
(set-table-value! (current-table) 5 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
|
|
|
|
(set-table-value! (current-table) 5 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 5 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 5 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7092.95103435452 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 5 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 766038.711710288 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 5 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 146038.711710288 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 5 8 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $ 1609.6" :has-ext-ref #f :formula '((& "diff = $ " (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
|
|
|
|
(set-table-value! (current-table) 8 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 635000))
|
|
|
|
(set-table-value! (current-table) 8 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
|
|
|
|
(set-table-value! (current-table) 8 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 8 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 8 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7264.55468841148 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 8 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 784571.90634844 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 8 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 149571.90634844 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 11 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 650000))
|
|
|
|
(set-table-value! (current-table) 11 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
|
|
|
|
(set-table-value! (current-table) 11 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 11 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 11 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7436.15834246845 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 11 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 803105.100986592 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 11 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 153105.100986592 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 11 8 (make <formula-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $ 1687.48" :has-ext-ref #f :formula '((& "diff = $ " (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
|
|
|
|
(set-table-value! (current-table) 14 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 700000))
|
|
|
|
(set-table-value! (current-table) 14 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.044))
|
|
|
|
(set-table-value! (current-table) 14 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 14 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 14 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 8008.17052265833 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 14 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 864882.416447099 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 14 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 164882.416447099 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 14 8 (make <formula-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'center :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "diff = $1817.29" :has-ext-ref #f :formula '((& "diff = $" (tostr (round (- #(#f 0 (1 . -1)) #(#f 0 (0 . -1))) 2))))))
|
|
|
|
(set-table-value! (current-table) 15 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 700000))
|
|
|
|
(set-table-value! (current-table) 15 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
|
|
|
|
(set-table-value! (current-table) 15 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 15 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 15 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 8024.99728613323 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 15 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 866699.706902388 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 15 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 166699.706902388 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 12 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 650000))
|
|
|
|
(set-table-value! (current-table) 12 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
|
|
|
|
(set-table-value! (current-table) 12 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 12 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 12 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7451.78319426657 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 12 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 804792.584980789 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 12 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 154792.584980789 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 9 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 635000))
|
|
|
|
(set-table-value! (current-table) 9 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
|
|
|
|
(set-table-value! (current-table) 9 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 9 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 9 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7279.81896670657 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 9 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 786220.44840431 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 9 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 151220.44840431 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 6 1 (make <value-cell> :format '(7 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 620000))
|
|
|
|
(set-table-value! (current-table) 6 2 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0445))
|
|
|
|
(set-table-value! (current-table) 6 3 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 9))
|
|
|
|
(set-table-value! (current-table) 6 4 (make <value-cell> :format '(4 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 0.0044))
|
|
|
|
(set-table-value! (current-table) 6 5 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 7107.85473914657 :has-ext-ref #f :formula '((pmt #(#f 0 (0 . -4)) (/ (+ #(#f 0 (0 . -3)) #(#f 0 (0 . -1))) 12) (* #(#f 0 (0 . -2)) 12)))))
|
|
|
|
(set-table-value! (current-table) 6 6 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 767648.31182783 :has-ext-ref #f :formula '((* (* #(#f 0 (0 . -1)) 12) #(#f 0 (0 . -3))))))
|
|
|
|
(set-table-value! (current-table) 6 7 (make <formula-cell> :format '(7 . 2) :tag (make <table-tag> :parent (current-table) :anchor 'e :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value 147648.31182783 :has-ext-ref #f :formula '((- #(#f 0 (0 . -1)) #(#f 0 (0 . -6))))))
|
|
|
|
(set-table-value! (current-table) 1 6 (make <value-cell> :format '(0 . 0) :tag (make <table-tag> :parent (current-table) :anchor 'w :font "(utopia 12 normal roman)" :background "" :foreground "black" :justify 'center :image "" :multiline 1 :relief "sunken" :showtext -1 :state 'disabled :wrap 0) :value "Total borrowed"))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 3)) '(12 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 2)) '(3 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 1)) '(15 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 7)) '(2 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 2)) '(2 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 4)) '(6 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 2)) '(5 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 5)) '(11 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 7)) '(6 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 5)) '(12 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 2)) '(12 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 4)) '(8 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 1)) '(14 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 5)) '(5 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 6)) '(2 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 1)) '(8 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 2)) '(1 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 1)) '(11 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 1)) '(5 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 7)) '(8 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 3)) '(2 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 7)) '(9 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 2)) '(9 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 7)) '(3 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 5)) '(3 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 8)) '(2 . 8))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 2)) '(8 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 3)) '(11 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 7)) '(11 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 4)) '(14 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 4)) '(9 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 8)) '(14 . 8))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 6)) '(5 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 2)) '(11 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 6)) '(1 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 3)) '(15 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 6)) '(14 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 5)) '(14 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 3)) '(6 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 7)) '(1 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 1)) '(1 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 1)) '(6 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 6)) '(11 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 3)) '(8 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 1)) '(12 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 7)) '(14 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 6)) '(3 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 7)) '(15 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 8)) '(11 . 8))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 5)) '(6 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 1)) '(9 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 7)) '(12 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 6)) '(15 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 8)) '(5 . 8))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 6)) '(9 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 6)) '(12 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 2)) '(15 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 5)) '(15 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 5)) '(1 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 5)) '(9 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 1)) '(3 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 11 4)) '(11 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 3)) '(14 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 12 4)) '(12 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 4)) '(3 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 6)) '(8 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 3)) '(1 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 1)) '(2 . 1))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 6)) '(6 . 6))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 6 2)) '(6 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 4)) '(2 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 7)) '(5 . 7))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 4)) '(5 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 2 5)) '(2 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 14 2)) '(14 . 2))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 3 3)) '(3 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 1 4)) '(1 . 4))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 5 3)) '(5 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 9 3)) '(9 . 3))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 8 5)) '(8 . 5))
|
|
(tag-cell (get-tag (get-table-cell (current-table) 15 4)) '(15 . 4))
|
|
(spans (current-table) '(8 . 9) '(1 . 0))
|
|
(spans (current-table) '(14 . 9) '(1 . 0))
|
|
(spans (current-table) '(5 . 9) '(1 . 0))
|
|
(spans (current-table) '(11 . 9) '(1 . 0))
|
|
(spans (current-table) '(2 . 9) '(1 . 0))
|
|
(configure (current-table) :titlerows 1)
|
|
(set-last-active-cell! (current-table) '(1 . 7))
|
|
(activate-last-active-cell (current-table))
|
|
|
|
;;End of xxl-v2.1.2. File.
|