7 lines
227 B
Text
7 lines
227 B
Text
procedure main(arglist)
|
|
|
|
if *envars = 0 then envars := ["HOME", "TRACE", "BLKSIZE","STRSIZE","COEXPSIZE","MSTKSIZE", "IPATH","LPATH","NOERRBUF"]
|
|
|
|
every v := !sort(envars) do
|
|
write(v," = ",image(getenv(v))|"* not set *")
|
|
end
|