Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. MODULE HW_con;
  2.  
  3. IMPORT Out, In, Console, DateTime, ConsoleLib;
  4.  
  5. PROCEDURE OutInt2(n: INTEGER);
  6. BEGIN
  7.   ASSERT((0 <= n) & (n <= 99));
  8.   IF n < 10 THEN
  9.     Out.Char("0")
  10.   END;
  11.   Out.Int(n, 0)
  12. END OutInt2;
  13.  
  14. PROCEDURE OutMonth(n: INTEGER);
  15. VAR str: ARRAY 4 OF CHAR;
  16. BEGIN
  17.   CASE n OF
  18.   | 1: str := "jan"
  19.   | 2: str := "feb"
  20.   | 3: str := "mar"
  21.   | 4: str := "apr"
  22.   | 5: str := "may"
  23.   | 6: str := "jun"
  24.   | 7: str := "jul"
  25.   | 8: str := "aug"
  26.   | 9: str := "sep"
  27.   |10: str := "oct"
  28.   |11: str := "nov"
  29.   |12: str := "dec"
  30.   END;
  31.   Out.String(str)
  32. END OutMonth;
  33.  
  34. PROCEDURE main;
  35. VAR Year, Month, Day, Hour, Min, Sec: INTEGER;
  36. BEGIN
  37.   ConsoleLib.open(-1, -1, -1, -1, "Hello!");
  38.   Out.String("Hello, world!"); Out.Ln;
  39.   Console.SetColor(Console.Yellow, Console.Blue);
  40.   DateTime.Now(Year, Month, Day, Hour, Min, Sec);
  41.   Out.Int(Year, 0); Out.Char("-");
  42.   OutMonth(Month);  Out.Char("-");
  43.   OutInt2(Day);     Out.Char(" ");
  44.   OutInt2(Hour);    Out.Char(":");
  45.   OutInt2(Min);     Out.Char(":");
  46.   OutInt2(Sec);
  47.   In.Ln;
  48.   ConsoleLib.exit(TRUE)
  49. END main;
  50.  
  51. BEGIN
  52.   main
  53. END HW_con.