Rev 6613 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6613 | Rev 7597 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | MODULE HW_con; |
1 | MODULE HW_con; |
- | 2 | ||
- | 3 | IMPORT Out, In, Console, DateTime; |
|
Line 2... | Line -... | ||
2 | - | ||
Line 3... | Line 4... | ||
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; |
Line -... | Line 12... | ||
- | 12 | Out.Int(n, 0) |
|
11 | Out.Int(n, 0) |
13 | END OutInt2; |
- | 14 | ||
12 | END OutInt2; |
15 | |
- | 16 | PROCEDURE OutMonth(n: INTEGER); |
|
13 | 17 | VAR |
|
- | 18 | str: ARRAY 4 OF CHAR; |
|
14 | PROCEDURE OutMonth(n: INTEGER); |
19 | |
15 | VAR str: ARRAY 4 OF CHAR; |
20 | BEGIN |
16 | BEGIN |
21 | |
17 | CASE n OF |
22 | CASE n OF |
18 | | 1: str := "jan" |
23 | | 1: str := "jan" |
Line 26... | Line 31... | ||
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; |
Line -... | Line 39... | ||
- | 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); |
- | |
47 | In.Ln; |
- | |
48 | ConsoleLib.exit(TRUE) |
54 | OutInt2(Sec) |
Line -... | Line 55... | ||
- | 55 | END main; |
|
49 | END main; |
56 | |
- | 57 | ||
50 | 58 | BEGIN |
|
- | 59 | Console.open; |
|
- | 60 | main; |
|
51 | BEGIN |
61 | In.Ln; |
52 | main |
62 | Console.exit(TRUE) |