{* Чтение времени из CLOCK$ *}

Unit CLOCK_DEVICE;
Interface
Implementation
Begin
 writeln('Просто читаем время из файла, который называется "CLOCK$" - это стандартный драйвер устройства "часы" для DOS. BTW, тем же способом можно поставить время, записав его туда.');
End.

Program clock_device;

Uses clock_device.pas; {* Эту строку можно удалить *}
Type {* Используемые типы *}
  clock = Record      date : word; { days since Jan 1, 1980         }
  min : byte; { current minute (0-59)          }
  hrs : byte; { current hour (0-24)            }
  hun : byte; { current 1/100 Of second (0-99) }
  sec : byte; { current second (0-59)          }
  End;
Var {* Объявление переменных *}
  f : File Of byte;
  c : clock;
  Begin
  Assign(f, 'CLOCK$'); {* Связывание f с файлом 'CLOCK$' *}
  Reset(f); {* Открытие файла для чтения *}
  read(f, byte(c.date));
  Close(f); {* Закрыть файл f *}
  writeln('Current time is ', c.hrs : 2, ':', c.min : 2, ':', c.sec : 2);
  End....