Примеры программ на языке QBASIC

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