rem перевод из 2 сс в 8 сс 
CLS
INPUT "Введите двоичное число"; a$
 
n = 1: k$ = "": x$=""
1- k$ = MID$ (a$, n , 1)
IF k$ = "." THEN n = n -1: GOTO 20 ELSE x$ = x$ + k$ : n=n+1: GOTO 10
20 IF n MOD 3 = 1 THEN x$ = "00" +x$
IF n MOD 3 = 2 THEN x$ = "0" + x$
PRINT "Получим число";
FOR i = 1 TO LEN (x$) STEP 3
b$ = MID$ (x$, i , 3)
IF b$ = "000" THEN b1$ = "0"
IF b$ = "001" THEN b1$ = "1"
IF b$ = "010" THEN b1$ = "2"
IF b$ = "011" THEN b1$ = "3"
IF b$ = "100" THEN b1$ = "4"
IF b$ = "101" THEN b1$ = "5"
IF b$ = "110" THEN b1$ = "6"
IF b$ = "111" THEN b1$ = "7"
PRINT b1$;
NEXT i
PRINT ".";
FOR i = n +2 TO LEN (a$) STEP 3
IF (LEN (a$) - n -1 ) MOD 3 = 1then a$ = a$ = "00"
IF (LEN (a$) - n -1 ) MOD 3 = 2 THEN a$ = a$ = ''0"
y$ = MID$ (a$, i, 3)
IF y$ = "000" THEN y1$= "0"
IF y$ = "001" THEN y1$ = "1"
IF y$ = "010" THEN y1$ = "2"
IF y$ = "011" THEN y1$ = "3"
IF y$ = "100" THEN y1$ = "4"
IF y$ = "101" THEN y1$ = "5"
IF y$ = "110" THEN y1$ = "6"
IF y$ = "111" THEN y1$ = "7"
PRINT y1$;
NEXT i
END