oberon07: update (v1.13)

git-svn-id: svn://kolibrios.org@7696 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Anton Krotov
2019-10-06 17:55:12 +00:00
parent d364a86956
commit 4f802a86ba
68 changed files with 1872 additions and 1909 deletions
@@ -107,4 +107,4 @@ END main;
BEGIN
main
END Dialogs.
END Dialogs.
+1 -1
View File
@@ -47,4 +47,4 @@ END Main;
BEGIN
Main("HW", "Hello, world!")
END HW.
END HW.
@@ -1,4 +1,4 @@
MODULE HW_con;
MODULE HW_con;
IMPORT Out, In, Console, DateTime;
@@ -10,14 +10,14 @@ BEGIN
Out.Char("0")
END;
Out.Int(n, 0)
END OutInt2;
END OutInt2;
PROCEDURE OutMonth(n: INTEGER);
VAR
str: ARRAY 4 OF CHAR;
BEGIN
BEGIN
CASE n OF
| 1: str := "jan"
@@ -32,10 +32,10 @@ BEGIN
|10: str := "oct"
|11: str := "nov"
|12: str := "dec"
END;
END;
Out.String(str)
END OutMonth;
END OutMonth;
PROCEDURE main;
@@ -52,7 +52,7 @@ BEGIN
OutInt2(Hour); Out.Char(":");
OutInt2(Min); Out.Char(":");
OutInt2(Sec)
END main;
END main;
BEGIN
@@ -60,4 +60,4 @@ BEGIN
main;
In.Ln;
Console.exit(TRUE)
END HW_con.
END HW_con.