RosettaCodeData/Task/Binary-digits/PureBasic/binary-digits.basic

If OpenConsole()
  PrintN(Bin(5))    ;101
  PrintN(Bin(50))   ;110010
  PrintN(Bin(9000)) ;10001100101000

  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
  CloseConsole()
EndIf