[REBOL] Refinement Help output

From: ptretter::charter::net at: 20-Aug-2000 22:09

I got the following function which I enhanced from a previous posting with
some help from members of this list.  How do you get help to display the
comments for the refinements.

Paul Tretter

dec2bin: func[
    "Converts Based 10 Integers to Binary"
    dn [integer!] "Base 10 Integer"
    /local holder neghold
    /pad+ zr+ [string!] "Add String to beginning of Output value"
    /pad- zr- [string!] "Add String to tail of Output value"
    /rev "Reverses the normal output of the value"][

    holder: make string! ""

    if dn = 0 [holder: "0"]

    if negative? dn [
        dn: absolute dn
        neghold: 1]

    while [dn / 2 <> 0][
        either dn // 2 > 0 [insert holder 1][insert holder 0]
        dn: to-integer dn / 2
    ]

     if rev [reverse holder]
     if pad+ [insert head holder zr+]
     if pad- [insert tail holder zr-]
     if neghold = 1 [return join "-" holder]

    return holder
]

[1] · 2 · 3 · 4 · 5 · See whole thread