Mir wäre da so zu umständlich

Habe jetzt zwar kein Bascom zur Hand, aber folgender QuickBasic-code sollte sich einfach anpassen lassen.
Code:
DIM erg AS STRING
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, e AS INTEGER
erg = ""
a = 0'zahl die konvertiert wird
b = 256 'bei 8 bit umwandlung (2 hoch 8)+1=256
e = a 'Arbeitsvariable, a bleibt erhalten fr ausgabe
DO
	c = b / 2
	'c hat bei 8 bit nacheinander die werte 128,64,32,16,8,4,2,1
	d = e \ c'Modulare Division
	IF d >= 1 THEN
		erg = erg + "1"'erzeuge ausgabe fr bitposition
		e = e - c 'reduziere arbeitsvariable um den der position entsprechenden wert
	ELSE
		erg = erg + "0"
	END IF
	b = c'setze neuen anfangswert fr b
LOOP UNTIL b = 1
PRINT "dezimal " + STR$(a) + " entspricht dual " + erg