Subversion Repositories Kolibri OS

Rev

Rev 7597 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7597 Rev 7696
Line 1... Line 1...
1 
MODULE HW_con;
 1 
MODULE HW_con;
Line 2... Line 2...
2 
 
 2 
 
Line 3... Line 3...
3 
IMPORT Out, In, Console, DateTime;
 3 
IMPORT Out, In, Console, DateTime;
Line 8... Line 8...
8 
    ASSERT((0 <= n) & (n <= 99));
 8 
    ASSERT((0 <= n) & (n <= 99));
9 
    IF n < 10 THEN
 9 
    IF n < 10 THEN
10 
        Out.Char("0")
 10 
        Out.Char("0")
11 
    END;
 11 
    END;
12 
    Out.Int(n, 0)
 12 
    Out.Int(n, 0)
13 
END OutInt2;
13 
END OutInt2;
Line 14... Line 14...
14 
 
 14 
 
15 
 
 15 
 
16 
PROCEDURE OutMonth(n: INTEGER);
 16 
PROCEDURE OutMonth(n: INTEGER);
Line 17... Line 17...
17 
VAR
 17 
VAR
Line 18... Line 18...
18 
    str: ARRAY 4 OF CHAR;
 18 
    str: ARRAY 4 OF CHAR;
19 
 
 19 
 
20 
BEGIN
20 
BEGIN
21 
 
 21 
 
Line 30... Line 30...
30 
    | 8: str := "aug"
 30 
    | 8: str := "aug"
31 
    | 9: str := "sep"
 31 
    | 9: str := "sep"
32 
    |10: str := "oct"
 32 
    |10: str := "oct"
33 
    |11: str := "nov"
 33 
    |11: str := "nov"
34 
    |12: str := "dec"
 34 
    |12: str := "dec"
35 
    END;
35 
    END;
Line 36... Line 36...
36 
 
 36 
 
37 
    Out.String(str)
 37 
    Out.String(str)
Line 38... Line 38...
38 
END OutMonth;
38 
END OutMonth;
39 
 
 39 
 
40 
 
 40 
 
Line 50... Line 50...
50 
    OutMonth(Month);  Out.Char("-");
 50 
    OutMonth(Month);  Out.Char("-");
51 
    OutInt2(Day);     Out.Char(" ");
 51 
    OutInt2(Day);     Out.Char(" ");
52 
    OutInt2(Hour);    Out.Char(":");
 52 
    OutInt2(Hour);    Out.Char(":");
53 
    OutInt2(Min);     Out.Char(":");
 53 
    OutInt2(Min);     Out.Char(":");
54 
    OutInt2(Sec)
 54 
    OutInt2(Sec)
55 
END main;
55 
END main;
Line 56... Line 56...
56 
 
 56 
 
57 
 
 57 
 
58 
BEGIN
 58 
BEGIN
59 
    Console.open;
 59 
    Console.open;
60 
    main;
 60 
    main;
61 
    In.Ln;
 - 
 
62 
    Console.exit(TRUE)
 61 
    In.Ln;
- 
 
 62 
    Console.exit(TRUE)