I have written a *very* rough routine for converting a number into 8 bit binary format -
test$=Convert8toBin(1)
PRINT test$,200,200
SHOWSCREEN ; KEYWAIT
FUNCTION Convert8toBin: num
LOCAL n$
IF num>127
n$="1"
num=num-128
ELSE
n$="0"
ENDIF
IF num>63
n$=n$+"1"
num=num-64
ELSE
n$=n$+"0"
ENDIF
IF num>31
n$=n$+"1"
num=num-32
ELSE
n$=n$+"0"
ENDIF
IF num>15
n$=n$+"1"
num=num-16
ELSE
n$=n$+"0"
ENDIF
IF num>7
n$=n$+"1"
num=num-8
ELSE
n$=n$+"0"
ENDIF
IF num>3
n$=n$+"1"
num=num-4
ELSE
n$=n$+"0"
ENDIF
IF num>1
n$=n$+"1"
num=num-2
ELSE
n$=n$+"0"
ENDIF
IF num>0
n$=n$+"1"
num=num-1
ELSE
n$=n$+"0"
ENDIF
RETURN n$
ENDFUNCTIONThe code is not elegant, but it should work. The bug is this - I expect when I run it for it to return "00000001", but instead, all of the leading zeroes are missing. Since it is a string variable, the "0"'s should be there.
Try declaring your function to return a string:
FUNCTION Convert8toBin$: num
Ah, that works - thanks Andy :)