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

PROGRAM	"binardig"
VERSION	"0.0000"

DECLARE FUNCTION Entry ()

FUNCTION Entry ()
	DIM a[3]
	a[0] = 5
	a[1] = 50
	a[2] = 9000
	
	FOR i = 0 TO 2
		PRINT FORMAT$ ("####", a[i]); " -> "; BIN$(a[i])
	NEXT i

END FUNCTION
END PROGRAM