Compare commits

...

2 Commits

24 changed files with 216 additions and 0 deletions

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end

9
src/template.a60 Normal file
View File

@ -0,0 +1,9 @@
procedure printresults(r1, r2);
integer r1, r2;
code;
begin
integer result1, result2;
result1 := 0; result2 := 0;
printresults(result1, result2);
end