14 lines
221 B
Text
14 lines
221 B
Text
PROGRAM FILE_TEST
|
|
|
|
!$INCLUDE="PC.LIB"
|
|
|
|
BEGIN
|
|
|
|
OPEN("O",#1,"output.txt")
|
|
CLOSE(1)
|
|
|
|
OS_MKDIR("C:\RC") ! with the appropriate access rights .......
|
|
OPEN("O",#1,"C:\RC\output.txt")
|
|
CLOSE(1)
|
|
|
|
END PROGRAM
|