msdos.pas

 {MsDos.PAS}
 
 { Пример программы для процедуры MsDos }
 
 Uses WinCrt, WinDos;
 
 Var Date, Year, Month, Day : String;
                       Regs : TRegisters; { Для модуля DOS используйте }
                                          { тип Registers.             }
 Begin
  Regs.AH:=$2A;
  With Regs Do
  MsDos(Regs);
  With Regs Do
  Begin
   Str(CX, Year);
   Str(DH, Month);
   Str(DL, Day);
  End;
  Date:=Month+'-'+Day+'-'+Year;
  WriteLn('Сегодня : ', Date);
End.