24 lines
831 B
Text
24 lines
831 B
Text
$ include "seed7_05.s7i";
|
|
const array string: prog is [](
|
|
"$ include \"seed7_05.s7i\";",
|
|
"const array string: prog is [](",
|
|
"const proc: main is func",
|
|
" local var integer: number is 0;",
|
|
" begin",
|
|
" for number range 1 to 2 do writeln(prog[number]); end for;",
|
|
" for number range 1 to 11 do",
|
|
" writeln(literal(prog[number]) <& \",\");",
|
|
" end for;",
|
|
" writeln(literal(prog[12]) <& \");\");",
|
|
" for number range 3 to 12 do writeln(prog[number]); end for;",
|
|
" end func;");
|
|
const proc: main is func
|
|
local var integer: number is 0;
|
|
begin
|
|
for number range 1 to 2 do writeln(prog[number]); end for;
|
|
for number range 1 to 11 do
|
|
writeln(literal(prog[number]) <& ",");
|
|
end for;
|
|
writeln(literal(prog[12]) <& ");");
|
|
for number range 3 to 12 do writeln(prog[number]); end for;
|
|
end func;
|