IS-DOS - Макросы в IS-DOS.

       Макросы в IS-DOS.

                                "Ловите ветер всеми парусами!.."

                                "Ну, если я чего решил,
                                то выпью обязательно..."
                                                     В. Высоцкий

(c) Колесников Сергей (SKL-KEEPER)
──────────────────────────────────────────
   ┌┐
   ├┴┐
   └─┘ IS-DOSе я работаю уже давно - целых
пять  лет - и, что называется, собаку съел
в этом деле. А вот  макросами  заинтересо-
вался и стал применять их совсем  недавно.
Виной  тому недостаток информации: в help-
ах о них  упомянуто  как-то  поверхностно,
неконкретно, да и кто мог знать, что с  их
помощью  можно  значительно облегчить себе
жизнь, поручив  компьютеру выполнение тру-
доемких  работ?! Только имейте в виду, что
работать  с  текстовыми  файлами в IS-DOSе
имеет  смысл  только на электронном диске,
иначе  все  преимущества  этого  редактора
сойдут на нет.
   Начнем с того, что  макросы  вызываются
из  текстового  редактора нажатием "EXTEND
MODE". В  верхней  строке  экрана появится
слово "MAC". После этого  программа  будет
ждать нажатия клавиши, вызывающей  макрос.
В файле EDITed_mac.txt должно  находиться
описание  действий, которые  должен произ-
вести  макрос, причем  это описание должно
начинаться с символа, его вызывающего.
   Ну, вот  конкретный  пример: Вы  ведете
большую  переписку и некоторые слова, наи-
более  часто  употребляемые, можете закре-
пить  за  макросами и вызывать их нажатием
всего двух клавиш - EXTEND MODE и еще  од-
ной ключевой. Вот так:

   zЗдравствуй,
   dДо свидания
   sSPECTRUM

   В  первом  примере после вызова макроса
и  нажатия "z" компьютер напишет с позиции
курсора  слово "Здравствуй,", во  втором -
слово  "До  свидания", в  третьем - SPECT-
RUM.
   Только надо иметь в виду, что  символов
в  строке  должно быть не более 32 (именно
столько помещается в буфер драйвера). Если
надо  написать  больший  по  объему текст,
можно  связать макросы в цепочки, вызвав в
конце первого следующий, например:

   1Спектрумисты,#0E2
   2объединяйтесь!

   Код  #0E  как  раз служит для замыкания
макросных  строк. После  него  надо только
указать, какую  строку "привязать" к вызы-
ваемой. Цепочку  макросов можно замыкать и
саму на себя, т.е. если вы напишете  такой
макрос:

   1SPECTRUM#0E1,

   то  программа будет непрерывно печатать
SPECTRUM,  пока   Вы  не  нажмете  пробел.
Именно  "space"  и  служит  для прерывания
цепочки  макросов. Можно  также в качестве
признака конца цепочки использовать пустую
строку - символ "T" латинское на  префиксе
SS/SPACE (код #12).
   Следует  еще  упомянуть о комбинации #R
(Repeat) - повторитель. После него  должны
стоять две цифры, первая из которых - чис-
ло  повторов, вторая - длина  повторяемого
участка. Пример:

   #R38SPECTRUM  - этот  макрос напечатает
слово SPECTRUM три раза (по 8 букв).
   #R51#0A  - а  этот переместит курсор на
пять строк вниз.

   Я в своей практике использую макрос для
распечатки "титула" письма (по другому -
углового штампа), вот его текст:

1.dw1(с) SKL-KEEPER.dw0.ds1#0D#0E@
@  aka   КОЛЕСНИКОВ Сергей#0D#0Eш
ш        Михайлович.ds0#0D#0D#0Eщ
щ355042, Ставрополь,#0D#0Eъ
ъул.Доваторцев 53/2-8#0D#0D#0Eт
ттел. (8652) 77-55-95#0D#0Eю
ю   18.00-22.00 МСК#0D#0D#0Ez
z#R92  Здравствуй,#20

   А  теперь  подробное объяснение. Макрос
вызывается  нажатием "1" (после EXTEND MO-
DE,  естественно).  .dw1, .dw0, .ds1, .ds0
- это коды управления принтером, позволяю-
щие  печатать  разными  шрифтами, я на них
останавливаться не буду. После печати пер-
вой строки в конце ее стоит  код  #0D, что
равнозначно  нажатию "ENTER", т.е. следую-
щую строку будем печатать с новой строчки.
Далее  вызывается  строчка с символом "@",
печатается,  опять  переводится  строка, и
вызывается следующая по символу "ш". После
нее - дважды перевод строки и вызов следу-
ющей по символу "щ", ну и так  далее. Пос-
ледняя  строка макроса сообщает программе,
что  надо девять раз выполнить печать двух
пробелов, затем слова "Здравствуй,", и на-
печатать еще один пробел.
   С помощью макросов можно давать  редак-
тору конкретные задачи. Рассмотрим некото-
рые из них. Вот, например, изменение пара-
метров редактора, таких, как длина  строки
форматирования:

3#12pr31#0Ds  ;31 символ в строке
4#12pr41#0Ds  ;41    -"-
5#12pr42#0Ds  ;42    -"-
6#12pr62#0Ds  ;62    -"-
7#12pr75#0Ds  ;75    -"-

   Вызывая  макрос  под  символом  "3", мы
указываем  программе, что  необходимо выз-
вать функцию главного префикса (SS/SPACE),
код которой #12, затем вызвать функцию "p"
 - настройка параметров редактора, устано-
вить  правую  границу  форматирования  "r"
равной 31 символу, "нажать" ENTER и  запи-
сать  это  дело  выполнением  функции  "s"
(SAVE) в файле  edit.com. Как  видите, все
очень  просто: поочередно  указывайте, что
надо делать программе, и все!
   И писать макросы не так трудно, как ка-
жется на первый взгляд. Просто сначала вы-
полните установленную Вами задачу вручную,
записывая при этом, какие клавиши нажимае-
те, а  затем  оформите все это в виде мак-
роса.
   Для справки вот некоторые коды  клавиш,
которые могут Вам пригодиться:

     Клавиша      Код      Функция

      CS/1         07       RUS/LAT
      CS/2         06       BIG/small
      CS/3         04       Ins/ovr
      CS/4         05       Home
      CS/5         08       Left
      CS/6         0A       Down
      CS/7         0B       Up
      CS/8         09       Right
      CS/9         0F       End
      CS/0         0C       Delete
      ENTER        0D
      SPACE        20
      CS/SS        0E       Macro
      SS/Q         15       Page UP
      SS/A         10       Page DOWN
     SS/ENTER      11       Prefix
     SS/SPACE      12       Prefix
      SS/W         13       Erase
      SS/E         14       Insert
     CS/SPACE      16
     CS/ENTER      17

   Только  имейте в виду, что ноль для де-
сятков писать обязательно!
   Поехали дальше.
   Расскажу  Вам  о  конкретном  случае из
моей практики. Дело в том, что я  сваппер,
мой каталог составлялся постепенно в тече-
нии многих лет и сейчас достигает 460 сек-
торов, или около  120  kB. Но  я  допустил
ошибку, и демки у меня были не в отдельном
разделе, а  вперемешку с играми... Неудоб-
но, согласен! Передо  мной  встала  задача
отсортировать  демки  от  игр, занеся их в
отдельный  раздел. Задача немного облегча-
лась  тем, что  в  названии  демок я писал
DEMOMUSIC (а иначе как бы я отличал  демки
от игр?). Я все время откладывал сортиров-
ку, т.к. вручную  это  заняло  бы  слишком
много времени, а этого я себе позволить не
мог :-). И вот, когда я стал изучать  мак-
росы, я подумал: "А почему бы не  поручить
всю эту работу им?"
   Как  же  составить  текст  макроса? Ну,
давайте  по  порядку.  Прежде  всего, надо
дать  задание оверлею поиска, что мы соби-
раемся сортировать (напоминаю, что отличи-
тельная  черта демок - это запись в той же
строке слова DEMOMUSIC, а  в  играх  этого
слова нет).
   Оверлей поиска (и замены, кстати) вызы-
вается  нажатием "F" на  главном  префиксе
(SS/SPACE). Войдя  в  этот  оверлей, дадим
форму модели - "DEMOMUSIC", а затем выйдем
из  него. Эта модель теперь в буфере овер-
лея.
   Что бы мы делали, если бы нам надо было
делать эту работу вручную? Сначала мы вой-
дем  в  главный  префикс  SS/SPACE код #12
(см. таблицу выше), затем на всякий случай
переместимся  в начало  файла, т.е. нажмем
"t", далее  опять войдем в главный префикс
и нажмем "f" для поиска модели  в  тексте,
затем "n" (поиск  следующей  модели). Нач-
нется  поиск, компьютер  найдет  строку, в
которой стоит слово"DEMOMUSIC", далее  нам
надо будет выйти из этого режима  нажатием
пробела, опять  войти  в  главный префикс,
зафиксировать его пробелом, стереть строч-
ку  "d"  (delete), переместиться  в  конец
файла и восстановить стертую строчку нажа-
тием "u" (undelete). Ну  и, наконец, выйти
из префикса нажатием пробела. Сделаем  эту
программу  циклической, иначе  она  найдет
одну  строку, перенесет ее в конец файла и
остановится. А сделать это  можно, замкнув
эту  цепочку саму на себя кодом #0E. В ко-
нечном итоге  вот, что  у  нас  получилось
(макрос вызывается нажатием цифры "2"):

2#12t#12fn #12 dbu #0E2

   Результатом  его  работы  станет  целый
раздел со строками, содержащими слово "DE-
MOMUSIC". Постойте, а зачем нам  раздел, в
каждой  строчке  которого стоит это слово?
Это уже не rules :-) Мы лучше обзовем этот
самый раздел "Демки" или что-нибудь в этом
роде,  а  слово  DEMOMUSIC  уберем, но  не
вручную и даже  не  отдельным  макросом, а
лучше пусть этот же макрос в процессе сво-
ей работы еще и удаляет это слово! А чтобы
это сделать, надо лишь немного усовершенс-
твовать  уже  созданный  нами  макрос.  Но
предварительно надо будет в начале его ра-
боты, когда мы задаем модель, задать еще и
замену (нажатием клавиши "M") в виде девя-
ти пробелов (по числу букв в слове DEMOMU-
SIC). Доработка макроса будет  заключаться
только в добавлении  трех  операций: после
того, как комп восстановил ранее найденную
и стертую строчку, нам  надо  будет  войти
опять  в  оверлей  поиска  и замены ("f"),
"нажать"  "n"  (поиск  следующей  модели),
программа, естественно,  "найдет"  эту  же
самую  строчку, на которой стоит курсор, и
мы  с помощью режима "S" (S/Cs) произведем
замену  найденной  модели на девять пробе-
лов! Вот теперь макрос примет  окончатель-
ный вид:

2#12t#12fn #12 dbufnS  #0E2

   Поясню только, почему перед #0E2 появи-
лось два пробела: первый - выход из режима
поиска и замены, второй - снятие  фиксации
макроса.
   Ну вот, как видите, не так все и сложно
:-) Нужную нам задачу мы решили.
   А теперь давайте попробуем  решить  за-
дачку посложнее: а  если  нам  понадобится
сделать просто выборку программ из катало-
га  по какому-то признаку, не стирая их? В
принципе, можно воспользоваться вышеприве-
денным способом, сохранив потом то, что мы
нашли, а исходный каталог стереть (на дис-
кете-то он все равно останется). Но  можно
решить  этот  вопрос  и с помощью макроса,
правда,  работать  он  будет   значительно
дольше, чем рассмотренный выше. Остроумную
идею решения такой задачи предложил  Крас-
нодарский   электронный  журнал  "Одиссей"
(ныне почивший:-( ).
   Итак, каковы  наши действия? Загрузим в
редактор  файл-каталог.  Вызываем  главный
префикс  SS/SPACE, затем  оверлей поиска и
замены "f", вводим модель для поиска и за-
мены, равное  модели(!) по количеству сим-
волов число знаков  "@"  (можно  и  другие
значки, но  желательно  пореже употребляе-
мые). Нажимаем SPACE, переходим  в  начало
файла (#12t), вызываем  оверлей  поиска  и
замены  (#12f) и  делаем глобальную замену
модели во всем файле на ту замену, что  мы
ввели  раньше ("g"). Затем меняем модель и
замену  местами, что  производится  вводом
"0" и выходим из оверлея кодом #10:

a#12t#12fg0#10#0Eb

   Макрос  вызывается  по клавише "a", а в
конце строки вызываем вторую строку. В ней
для  проверки на завершение макроса прове-
ряем  наличие  пустой  строки ("T"), снова
вызываем  оверлей  поиска  и замены и даем
ему  установку найти первую модель в текс-
те, т.к., выполнив  глобальную  замену, мы
вернулись в точку входа в редактор, т.е. в
начало файла:

b#12T#12fn

   Снимаем оверлей SS/A и, вызвав  оверлей
блочных  операций,  маркируем  строку, где
стоит курсор:

b#12T#12fn#10#11mm

   Выходим в конец файла и снова использу-
ем  код  #0E  для  вызова следующей строки
макроса по букве "c", получаем:

b#12t"12fn#10#11mm#12b#0Ec

   Возвращаемся в оверлей  блочных  опера-
ций, вызываем функцию копирования, снимаем
отметку и вызываем следующую строку:

c#11c#10#11o#0Ee

   А вот две следующих строки макроса  вы-
полняют  более  сложные  функции.  Первая,
вызываемая по букве "e", запускает оверлей
поиска и замены, который ищет  первую  мо-
дель  от конца файла, а т.к. это - только-
что скопированная нами строка, то, естест-
венно, она  и  выбирается.  Затем  оверлей
производит  обратную  операцию,  возвращая
предыдущую модель  и  убирая  введенную  в
первой строке макроса замену. Затем снима-
ем оверлей и возвращаемся в начало файла:

e#12fp#53#10#12t#0Ef

   Последняя строка, вызываемая  по  букве
"f", опять-таки  запускает  оверлей поиска
и замены, ищет  первую  модель  от  начала
файла и производит ту же, что и предыдущая
строка, операцию, т.е. обмен  замены и мо-
дели, возвращая ее исходное значение.
   Снимаем оверлей и зацикливаем созданный
макрос на строку по букве "b", т.к. первая
нужна нам только раз.

f#12fn#53#10#0Eb

   В итоге вот что у нас получилось:

a#12t#12fg0#10#0Eb
b#12t#12fn#10#11mm#12b#0Ec
c#11c#10#11o#0Ee
e#12fp#53#10#12t#0Ef
f#12fn#53#10#0Eb

   Попробуйте, работает  отлично! А  Вы  в
это  время пойдите попейте чайку или поку-
рите в подъезде (курить вредно! :-) ).

   Ну и напоследок еще один  макрос, кото-
рый, во-первых, позволит  Вам  еще  больше
разобраться в этом деле, а во-вторых, име-
ет практическое значение в работе.
   Иногда  бывает необходимо разбить текст
на  страницы, особенно  если в тексте есть
таблицы  и  не  хочется, чтобы, к примеру,
шапка ее была на одной странице, а осталь-
ное - на другой.
   На стандартном листе бумаги формата  A4
помещается  62  строки  текста, если печа-
тать в полтора интервала. Напишем  макрос,
который  разобьет  наш текст по страницам,
а  вызывать  его  будем,  например, буквой
"r".
   Итак, прежде  всего  необходимо перейти
в начако файла, т.к. вдруг Вам понадобится
разбить на страницы wet-файл? Затем перей-
дем  на  вторую строку макроса, вызываемую
по символу "<", где трижды переведем  кур-
сор на страницу вниз (а это три раза по 20
строк) и еще два раза на строку  вниз. Те-
перь  повторно вызываем префикс SS/SPACE и
ставим  значок  разделителя  страниц  "l".
Чтобы процесс продолжался, зацикливаем эту
строку  макроса  на  самоё  себя, а первая
строчка нам нужна только раз в начале  ра-
боты макроса. Вот что получилось в итоге:

r#12t#0E<
<#R31#10#0A#0A#12l#0E<

   И  в  заключение - самый  короткий мак-
рос, который  позволит Вам распечатать да-
ту:
   d#Д

   Я надеюсь, при загрузке системы Вы  еще
в  autoexec.bat  включили  строчку  вызова
date.com  и в самом начале работы постави-
ли дату. Вот эта дата и распечатается!
──────────────────────────────────────────