8 lines
128 B
Text
8 lines
128 B
Text
' Binary digits
|
|
OPTION MEMTYPE int
|
|
INPUT n$
|
|
IF VAL(n$) = 0 THEN
|
|
PRINT "0"
|
|
ELSE
|
|
PRINT CHOP$(BIN$(VAL(n$)), "0", 1)
|
|
ENDIF
|