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