12 lines
192 B
Text
12 lines
192 B
Text
procedure main()
|
|
every write(bstring(0|5|50|255|1285|9000))
|
|
end
|
|
|
|
procedure bstring(i)
|
|
s := ""
|
|
repeat{
|
|
s := string(iand(i,1)) || s
|
|
if (i := ishift(i,-1)) = 0 then break
|
|
}
|
|
return s
|
|
end
|