RosettaCodeData/Task/Read-entire-file/PL-I/read-entire-file.pli

get file (in) edit ((substr(s, i, 1) do i = 1 to 32767)) (a);