repeat (ALL) {
    #10 = Get_Num("Give a numeric value, -1 to end: ", STATLINE)
    if (#10 < 0) { break }
    Call("BINARY")
    Update()
}
return

:BINARY:
do {
    Num_Ins(#10 & 1, LEFT+NOCR)
    #10 = #10 >> 1
    Char(-1)
} while (#10 > 0)
EOL
Ins_Newline
Return