Mail

В этот день много лет назад...
26 ноября. В 1718 году (306 лет назад) - Петр I издает указ "О назначении рынков в Санкт-Петербурге, о наблюдении чистоты торгующими съестными припасами и о ношении ими белых мундиров". По этому указу запрещается торговля вдоль больших улиц, поскольку "проезд по большой дороге от тесноты за многолюдством весьма труден". На городских рынках всем торговцам в мясном и рыбном рядах надлежит под страхом крупного штрафа носить белые мундиры. Пусть немного на военный манер, но Петр I все же продемонстрировал свое желание решать вопросы гигиены в своем невском "парадизе".

Turbo Pascal Documentation

Функция Swap

     Функция: Переставляет местами старший и  младший  байты
аргумента.
     Описание: Swap(x)
     Тип результата: Совпадает с типом параметра.
     Примечания: Параметр x - выражение целого типа или слово.
     Прочее: См. также функции Hi, Lo.
     Пример:

      var
        x : word;
      begin
        x := Swap(1234);  { 3412 }
      end.

Процедура SwapVectors

Модуль Dos

     Функция: Меняет местами внутренние векторы.
     Описание: SwapVectors
     Примечания: Меняет местами содержимое указателей  Save-
IntXX в модуле System и текущее содержимое векторов прерыва-
ний. Процедура SwapVectors обычно вызывается непосредственно
перед  и  непосредственно  после  вызова Exec. Таким образом
обеспечивается, что выполняемый по вызову  Exec  процесс  не
использует  никаких  обработчиков  претываний, установленных
текущим процессом и наоборот.
     Прочее: См. также процедуру Еxec.
     Пример:

        {M 8192,0,0}
        uses Dos;
        var
          Command: string[79];
        begin
          Write('Введите команду ДОС:');
          Readln(Command);
          if Command <> '' then
             Command := '/C' + Command;
          Swapvectors;
          Exec(GetEnv('COMSPEC'), Command);
          SvapVectors;
          if DosError <> 0 then
           Writeln('Командный файл COMMAND.COM выполнить нельзя');
         end.