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$