mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
11 lines
97 B
Modula-2
11 lines
97 B
Modula-2
MODULE test.
|
|
|
|
IMPORT Day;
|
|
|
|
VAR today: Days.Day;
|
|
|
|
BEGIN
|
|
today := Days.mon; (*init*)
|
|
|
|
|
|
END test.
|