home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 167 / pascal / date.pas next >
Encoding:
Pascal/Delphi Source File  |  1987-08-19  |  1.2 KB  |  52 lines
  1. PROCEDURE Date;
  2. BEGIN
  3.    Hide_Mouse ;
  4.    Paint_Color( 0 ) ;             { erase pm/am marker }
  5.    Paint_Rect( 270,110,20,10 ) ;
  6.    Text_Color( 2 );
  7.    Draw_String( 12,30,'  MONTH        DAY           YEAR ' ) ;
  8.                         { calculate which digits will be drawn on screen }
  9.    IF Day = 0 THEN      { Day }
  10.    BEGIN
  11.       Day_1 := 0 ;
  12.       Day_10 := 0 ;
  13.    END
  14.    ELSE BEGIN
  15.       Day_10 := Day DIV 10 ;
  16.       Day_1  := Day MOD 10 ;
  17.    END ;
  18.    IF Mon = 0 THEN      { Month }
  19.    BEGIN
  20.       Mon_1 := 0 ;
  21.       Mon_10 := 0 ;
  22.    END
  23.    ELSE BEGIN
  24.       Mon_10 := Mon DIV 10 ;
  25.       Mon_1  := Mon MOD 10 ;
  26.    END;
  27.    IF Yr = 0 THEN       { Year }
  28.    BEGIN
  29.       Yr_1 := 0 ;
  30.       Yr_10 := 0 ;
  31.    END
  32.    ELSE BEGIN
  33.       Yr_10 := Yr DIV 10 ;
  34.       Yr_1  := Yr MOD 10 ;
  35.    END;
  36.    D_Mon_10 ;                    {  Draw Digit on the screen }
  37.    DX := 36 ;
  38.    D_Digit( Mon_1 ) ;
  39.    DX := 100 ;
  40.    D_Digit( Day_10 ) ;
  41.    DX := 148 ;
  42.    D_Digit( Day_1 ) ;
  43.    DX := 212 ;
  44.    D_Digit( Yr_10 ) ;
  45.    DX := 260 ;
  46.    D_Digit( Yr_1 ) ;
  47.    Old_Mon := Mon ;
  48.    Old_Day := Day ;
  49.    Old_Yr  := Yr  ;
  50.    Show_Mouse ;
  51. END ;  { of Date }
  52.