13 lines
348 B
Text
13 lines
348 B
Text
$ include "seed7_05.s7i";
|
|
include "getf.s7i";
|
|
include "progs.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var string: source is "";
|
|
begin
|
|
source := lower(getf("CALENDAR.TXT"));
|
|
source := replace(source, "dayofweek", "dayOfWeek");
|
|
source := replace(source, "daysinmonth", "daysInMonth");
|
|
execute(parseStri(source));
|
|
end func;
|