mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-06 05:12:25 +00:00
post rebranding
This commit is contained in:
parent
4169aecd5b
commit
95b512baf4
66 changed files with 716 additions and 15 deletions
14
examples/case/Case.Mod
Normal file
14
examples/case/Case.Mod
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
MODULE case;
|
||||
|
||||
|
||||
IMPORT Out, Modules;
|
||||
|
||||
|
||||
BEGIN
|
||||
CASE Modules.ArgCount - 1 OF
|
||||
0 : Out.String("There are no arguments");
|
||||
| 1 : Out.String("There is one argument");
|
||||
| 2 : Out.String("There are two arguments");
|
||||
ELSE Out.String("There are more than two arguments") END;
|
||||
Out.Ln;
|
||||
END case.
|
||||
Loading…
Add table
Add a link
Reference in a new issue