CLS : DIM A AS STRING * 1 INPUT "Задайте имя файла - ", NAME1$ OPEN NAME1$ FOR BINARY AS #1 LEN = 1 K = INSTR(NAME1$, ".") IF K = 0 THEN NAME2$ = NAME1$ ELSE NAME2$ = LEFT$(NAME1$, K - 1) NAME2$ = NAME2$ + ".BAK" PRINT NAME2$, K OPEN NAME2$ FOR BINARY AS #2 LEN = 1 DO GET #1, , A PRINT A; PUT #2, , A LOOP UNTIL (EOF(1)) END