15 lines
221 B
Text
15 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
|