vishapoberon/oberonbyexample
1
0
Fork 0
mirror of https://github.com/vishapoberon/oberonbyexample.git synced 2026-04-05 21:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

it works!

Browse source
This commit is contained in:
norayr 2016-12-29 20:21:33 +04:00
parent 0d23645e83
commit 8324eeb9b9
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test.Mod
View file

@ -1,6 +1,6 @@
MODULE test;
IMPORT Days;
IMPORT Days, Out;
VAR today, yesterday, tomorrow: Days.Day;
@ -8,6 +8,15 @@ 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.