Program Konversi bilangan Decimal ke bilangan Biner menggunakan Turbo Basic

CLS
print"PROGRAM KONVERSI BILANGAN DECIMAL KE BINER"
PRINT"******************************************"
color 2,0:locate 5,10:INPUT "MASUKAN NILAI DESIMALNYA: ", N
CALL A(N)
END



SUB A (N)
WHILE N <> 0
E = N MOD 2
B$ = STR$(E)
N = FIX(N / 2)
C$ = B$ + C$
WEND
color 3,0:locate 10,10:PRINT "BINERNYA ADALAH: ", C$
END SUB