kolibrios-gitea/programs/develop/oberon07/Samples/HW_con.ob07

MODULE HW_con;

IMPORT Out, In, Console, DateTime;


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, Msec: INTEGER;

BEGIN
    Out.String("Hello, world!"); Out.Ln;
    Console.SetColor(Console.White, Console.Red);
    DateTime.Now(Year, Month, Day, Hour, Min, Sec, Msec);
    Out.Int(Year, 0); Out.Char("-");
    OutMonth(Month);  Out.Char("-");
    OutInt2(Day);     Out.Char(" ");
    OutInt2(Hour);    Out.Char(":");
    OutInt2(Min);     Out.Char(":");
    OutInt2(Sec)
END main;         


BEGIN
    Console.open;
    main;
    In.Ln;
    Console.exit(TRUE)
END HW_con.