mirror of
https://github.com/vishapoberon/oberonbyexample.git
synced 2026-04-05 21:02:25 +00:00
14 lines
286 B
Modula-2
14 lines
286 B
Modula-2
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.
|