13 lines
444 B
Plaintext
13 lines
444 B
Plaintext
begin
|
|
% print the integers from 1 onwards %
|
|
% Algol W only has 32-bit integers. When i reaches 2^32, %
|
|
% an integer overflow event would be raised which by default, %
|
|
% should terminate the program %
|
|
integer i;
|
|
i := 1;
|
|
while true do begin
|
|
write( i );
|
|
i := i + 1
|
|
end loop_forever ;
|
|
end.
|