Упражнения к Статье (часть 3)
nlines = clength FOR j=1 TO nlines-1 PRINT #1, s1$ NEXT END SUB
Убедитесь, что MTF.BAS находится в текущем каталоге, а затем наберите QBASIC/RUN MTF и нажмите Enter. На экране появится приглашение, предлагающее ввести вам размер кластера диска ( устройства, сжатые Stacker и DoubleSpace, всегда имеют размер кластера равный 8193) и назвать файл. В компьютере, на котором рассматривался этот пример, кластеры имели размер 8192 байта, и использовалось имя файла, предлагаемое по умолчанию (Т.DAT), так что я ввел 8192, а затем дважды нажал Enter. На экране появилось следующее:
this program makes a file that you can use for testing out disk recovery techniques. It's good for that because it has a very distinctive look: it's got a block of the letter 'A,' then B.' then 'C and finally 'D.'