7 lines
422 B
Text
7 lines
422 B
Text
SYSTEM(DIR="docs") ! create docs in current directory (if not existent), make it current
|
|
OPEN (FILE="input.txt", "NEW") ! in current directory = docs
|
|
WRITE(FIle="input.txt", DELETE=1) ! no command to DELETE a DIRECTORY in HicEst
|
|
|
|
SYSTEM(DIR="C:\docs") ! create C:\docs (if not existent), make it current
|
|
OPEN (FILE="input.txt", "NEW") ! in current directory = C:\docs
|
|
WRITE(FIle="input.txt", DELETE=1)
|