mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
22 lines
341 B
Modula-2
22 lines
341 B
Modula-2
MODULE test;
|
|
|
|
IMPORT Days, Out;
|
|
|
|
VAR today, yesterday, tomorrow: Days.Day;
|
|
|
|
BEGIN
|
|
today := Days.mon; (*init*)
|
|
|
|
yesterday := Days.Prev(today);
|
|
IF yesterday = Days.sun
|
|
THEN
|
|
Out.String("it works!"); Out.Ln
|
|
END;
|
|
tomorrow := Days.Next(today);
|
|
|
|
IF tomorrow = Days.tue
|
|
THEN
|
|
Out.String("it works!"); Out.Ln
|
|
END;
|
|
|
|
END test.
|