Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TURBO.ZIP/TIME.INC

Text File | 1984-07-13 | 450 b | 24 lines

PROCEDURE ShowTime;
{ procedure for Dos 2.0 function $2C (get time)
{ Danny Cavasos       June 1984 }
TYPE
  varX=RECORD
    varL,varH:BYTE;
  END;
  TimeRec=RECORD
    AX,BX:varX;
    Min,Hour,Msec,Sec:BYTE;
    BP,SI,DI,DS,ES,FLAGS:INTEGER;
  END;
VAR
  TimeParm:TimeRec;
BEGIN
  GOTOXY(70,2);
  WITH TimeParm DO
    BEGIN
      AX.varH:=$2C;
      MsDos(TimeParm);
      WRITE(Hour,':',Min,':',Sec,'.',Msec);
    END;
END;