Skip to content

Commit eef751c

Browse files
committed
feat: add Burroughs version of IAL (ALGOL 58)
1 parent 6ca13fd commit eef751c

File tree

2 files changed

+10
-0
lines changed

2 files changed

+10
-0
lines changed

languages.json

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44
"11l": "11L",
55
"4th": "4tH",
66
"8th": "8th",
7+
"a58": "ALGOL 58 (IAL – Burroughs implementation)",
78
"a60": "Algol-60",
89
"a68": "Algol-68",
910
"act": "Action!",

solutions/punishment_a58.txt

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
BEGIN
2+
FILE F (KIND=REMOTE);
3+
EBCDIC ARRAY M[0:41];
4+
REPLACE M BY "I WILL NOT THROW PAPER AIRPLANES IN CLASS.";
5+
FOR COUNT := 1 (1) 500;
6+
BEGIN
7+
WRITE(F, *, M);
8+
END;
9+
END.

0 commit comments

Comments
 (0)