|
|
1.1 root 1: program rnmtst
2: integer rename
3: external rename
4:
5: open(1, file="abc")
6: close(1)
7: call system ("ls -l abc def")
8: write(*,*) "rename:", rename("abc", "def")
9: call system ("ls -l abc def")
10: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.