|
|
BSD 4.3
character*24 fdate integer id(3), it(3) write(*,*) fdate() call itime(it) call idate(id) write(*,*) id, it end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.