forked from KolibriOS/kolibrios
53 lines
1.1 KiB
Plaintext
53 lines
1.1 KiB
Plaintext
|
MODULE HW_con;
|
||
|
|
|
||
|
|
IMPORT Out, In, Console, DateTime, ConsoleLib;
|
||
|
|
|
||
|
|
PROCEDURE OutInt2(n: INTEGER);
|
||
|
|
BEGIN
|
||
|
|
ASSERT((0 <= n) & (n <= 99));
|
||
|
|
IF n < 10 THEN
|
||
|
|
Out.Char("0")
|
||
|
|
END;
|
||
|
|
Out.Int(n, 0)
|
||
|
|
END OutInt2;
|
||
|
|
|
||
|
|
PROCEDURE OutMonth(n: INTEGER);
|
||
|
|
VAR str: ARRAY 4 OF CHAR;
|
||
|
|
BEGIN
|
||
|
|
CASE n OF
|
||
|
|
| 1: str := "jan"
|
||
|
|
| 2: str := "feb"
|
||
|
|
| 3: str := "mar"
|
||
|
|
| 4: str := "apr"
|
||
|
|
| 5: str := "may"
|
||
|
|
| 6: str := "jun"
|
||
|
|
| 7: str := "jul"
|
||
|
|
| 8: str := "aug"
|
||
|
|
| 9: str := "sep"
|
||
|
|
|10: str := "oct"
|
||
|
|
|11: str := "nov"
|
||
|
|
|12: str := "dec"
|
||
|
|
END;
|
||
|
|
Out.String(str)
|
||
|
|
END OutMonth;
|
||
|
|
|
||
|
|
PROCEDURE main;
|
||
|
|
VAR Year, Month, Day, Hour, Min, Sec: INTEGER;
|
||
|
|
BEGIN
|
||
|
|
ConsoleLib.open(-1, -1, -1, -1, "Hello!");
|
||
|
|
Out.String("Hello, world!"); Out.Ln;
|
||
|
|
Console.SetColor(Console.Yellow, Console.Blue);
|
||
|
|
DateTime.Now(Year, Month, Day, Hour, Min, Sec);
|
||
|
|
Out.Int(Year, 0); Out.Char("-");
|
||
|
|
OutMonth(Month); Out.Char("-");
|
||
|
|
OutInt2(Day); Out.Char(" ");
|
||
|
|
OutInt2(Hour); Out.Char(":");
|
||
|
|
OutInt2(Min); Out.Char(":");
|
||
|
|
OutInt2(Sec);
|
||
|
|
In.Ln;
|
||
|
|
ConsoleLib.exit(TRUE)
|
||
|
|
END main;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
main
|
||
|
|
END HW_con.
|