RosettaCodeData/Task/Create-a-file/Yabasic/create-a-file.basic

11 lines
234 B
Plaintext

open "output.txt" for writing as #1
close #1
system("mkdir " + "f:\docs")
if open(2, "f:\docs\output.txt") then
print "Subdirectory or file already exists"
else
open "f:\docs\output.txt" for writing as #2
close #2
end if