-----------------------------------

person

Sat Mar 05, 2005 5:40 pm


binary typer

-----------------------------------


var win := Window.Open ("position:0;0,graphics:650;max")
var i : string (1)
var num : int
loop
    getch (i)
    num := ord (i)
    if num = 1 then
        put "0000000", intstr (num, 0, 2), " " ..
    elsif num = 2 or num = 3 then
        put "000000", intstr (num, 0, 2), " " ..
    elsif num >= 4 and num = 8 and num = 16 and num = 32 and num = 64 and num = 0 then
            done += round ((10000000 / (10 ** i)))
            ordinal -= round ((128 / (2 ** i)))
        end if
    end for
    done2 := intstr (done)
    if length (done2) < 8 then
        for i : 1 .. 8 - length (done2)
            done2 := "0" + done2
        end for
    end if
    result done2
end binary (ps. this is basis for that binary converter i made b4, and that was b4 i knew of the base thing lol)


-----------------------------------

ssr

Mon Mar 07, 2005 7:58 pm



-----------------------------------

yepyep
both are very good code
lol
 :lol: 
may be I should make one too...


-----------------------------------

dann_west

Fri May 06, 2005 2:16 pm


Re: binary typer

-----------------------------------

Pretty great guy!!!
 :twisted:  :twisted:  :twisted:  :twisted:  :twisted:  :twisted:  :twisted:


-----------------------------------

Jorbalax

Sun May 08, 2005 9:33 pm



-----------------------------------

Posted: Mon Mar 07, 2005 8:58 pm
----------------------------------------------------------------
Necro posting
Okay people, there has been a lot of useless posting in old topics lately.

Please stop doing this  unless you have a good point to add. All of the posts are tagged with a date, and if it's six months old, it's a safe call not to post in it.

Thanks.

Not 6 months, but still...