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

INPUT "Задайте имя исходного файла - ", NAME1$
INPUT "Задайте имя выходного файла - ", NAME2$
INPUT "Задайте величину сдвига - ", N%
OPEN NAME1$ FOR INPUT AS #1
OPEN NAME2$ FOR OUTPUT AS #2
DO WHILE NOT EOF(1)
  LINE INPUT #1, A$: A$ = SPACE$(N%) + A$
  PRINT #2, A$
LOOP
CLOSE #1: CLOSE #2
END