|
|
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.