ZEman, загляните в книжку: "как написать игру на бейсике". Там есть пример.
Либо:
Код:10 LET n="число которое надо перевести" 15 LET n$="" 30 IF n>127 THEN LET n$=n$+"1": LET n=n-128: GOTO 40 35 LET n$=n$+"0" 40 IF n>63 THEN LET n$=n$+"1": LET n=n-64: GOTO 50 45 LET n$=n$+"0" 50 IF n>31 THEN LET n$=n$+"1": LET n=n-32: GOTO 60 55 LET n$=n$+"0" 60 IF n>15 THEN LET n$=n$+"1": LET n=n-16: GOTO 70 65 LET n$=n$+"0" 70 IF n>7 THEN LET n$=n$+"1": LET n=n-8: GOTO 80 75 LET n$=n$+"0" 80 IF n>3 THEN LET n$=n$+"1": LET n=n-4: GOTO 90 85 LET n$=n$+"0" 90 IF n>1 THEN LET n$=n$+"1": LET n=n-2: GOTO 100 95 LET n$=n$+"0" 100 IF n>0 THEN LET n$=n$+"1": LET n=n-1: GOTO 110 105 LET n$=n$+"0" 110 PRINT n$