lepinekong

function Finance() {};

Finance.CalcMonthlyPayment = function (a,monthlyInterestRate, duration) {

    var Q = (1 + monthlyInterestRate);
    var n = duration;
    var monthlyPayment =  a * Math.pow(Q,n) * (1-Q) / (1 - Math.pow(Q,n));
    return monthlyPayment;
    
}

lepinekong

;; ===================================================
;; Script: csv-tools.r
;; downloaded from: www.REBOL.org
;; on: 16-Sep-2017
;; at: 21:13:49.846747 UTC
;; owner: brianh [script library member who can update
;; this script]
;; ===================================================
REBOL [
	Title: "CSV Handling Tools"

lepinekong

;; ===================================================
;; this is used by new-blog.r to output list of blogs in blogs.txt
;; ===================================================

rebol[]

sql_file_rootname: "<#sql-file-rootname#>"
domainname: "<#domain-name#>"
db_prefix: "<#db-prefix#>"

lepinekong

Red[]

to-rebol-file: :to-red-file

print "get-vars loaded"
get-vars: func[source-file][
  vars: []
  html-template: read to-rebol-file source-file
  rules: [any [thru "<%" copy var to "%>" (append vars var)]]
  parse html-template rules

lepinekong

rules: [
        (code: false)
        any [
            thru {```} (code: not code) 
            any [
              to "form" mark: (
                if code [remove/part mark 4 insert mark "win"]
              )
              |
              thru {```} (code: not code) 

lepinekong

>> make-system: function[_param][
[      param: _param
[      if value? system/words/:param [
[        system/words/:param: function[][
[            print "test ok"
[        ]
[        system/words/:param
[      ]
[    ]
== func [_param /local param][param: _param 

lepinekong

unfold: function [spec][
    to string! collect [
        repeat i length? bitset: charset spec [
            if bitset/:i [keep to char! i]
        ]
    ]
]

to-base58: function [string][
    base58: rejoin [

lepinekong

debug: func[var][
    varName: to-string var
    varValue: get var
    print rejoin [varName ": " varValue]
]

to-debug: func[ /local test][
    test: 20
    debug 'test

lepinekong

??: func [
    "Prints a word and the value it refers to (molded)" 
    'value [word! path!]
    'comment [word! string! unset!]
][

      
      switch/default type?/word get/any 'comment [
          unset! [

lepinekong

Red [title: "Menus" needs: 'view]
g: layout [area 400x400]
g/menu: [
    "No Submenus" [
        "Print" prnt
        ---
        "Quit" kwit
    ]
    "Sub-menus" [
        "Sub-menus" [