Subversion Repositories Kolibri OS

Rev

Rev 6613 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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