RosettaCodeData/Task/Binary-digits/FreeBASIC/binary-digits.freebasic
2016-12-05 23:44:36 +01:00

9 lines
205 B
Text

' FreeBASIC v1.05.0 win64
Dim As String fmt = "#### -> &"
Print Using fmt; 5; Bin(5)
Print Using fmt; 50; Bin(50)
Print Using fmt; 9000; Bin(9000)
Print
Print "Press any key to exit the program"
Sleep
End