Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TURBO9.ZIP/DATE.INC

Text File | 1984-07-13 | 459 b | 25 lines

PROCEDURE ShowDate;
{  Procedure for Dos 2.0 function $2A  (get date).
{  Danny Cavasos       June 1984  }
TYPE
  varX=RECORD
    varL,varH:BYTE;
  END;
  DateRec=RECORD
    AX:varX;
    BX,Year:INTEGER;
    Day,Month:BYTE;
    BP,SI,DI,DS,ES,FLAGS:INTEGER;
  END;
VAR
  DateParm:DateRec;
BEGIN
  GOTOXY(60,2);
  WITH DateParm DO
    BEGIN
      AX.varH:=$2A;
      MsDos(DateParm);
      WRITE(Month,'-',Day,'-',Year);
    END;
END;