Read file of integers in ALGOL 60

Some useful resources: - https://www.gtoal.com/languages/algol60/marst-2.6/doc/marst.pdf - http://cs.ecs.baylor.edu/~maurer/SieveE/Algol60.htm
fwcd · Dec 2, 2023 · cab0114 · cab0114
1 parent 255e7de
commit cab0114
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/day03/src/day03.alg b/day03/src/day03.alg
@@ -1,7 +1,10 @@
 begin
- comment reading;
- integer n;
- n := 54321;
- ininteger(2,n);
- outinteger(1,n)
+ comment File 1 is stdout, file 2 is our input file;
+ integer i, n;
+ outstring(1, "Hello world!\n");
+ for i := 0 step 1 until 2 do
+ begin
+ ininteger(2, n);
+ outinteger(1, n);
+ end
 end