RosettaCodeData/Task/Create-a-file/BASIC/create-a-file-2.basic

24 lines
324 B
Plaintext

' Create file and dir
TRAP LOCAL
OPEN "output.txt" FOR WRITING AS afile
CLOSE FILE afile
CATCH GOTO report
OPEN "/output.txt" FOR WRITING AS afile
CLOSE FILE afile
LABEL trydir
MAKEDIR "docs"
CATCH GOTO report2
MAKEDIR "/docs"
END
LABEL report
PRINT ERR$(ERROR)
GOTO trydir
LABEL report2
PRINT ERR$(ERROR)