15 lines
330 B
Text
15 lines
330 B
Text
subroutine opener (filename$)
|
|
if exists(filename$) then
|
|
print filename$; " exists"
|
|
else
|
|
print filename$; " does not exists"
|
|
end if
|
|
end subroutine
|
|
|
|
call opener ("input.txt")
|
|
call opener ("\input.txt")
|
|
call opener ("docs\nul")
|
|
call opener ("\docs\nul")
|
|
call opener ("empty.kbs")
|
|
call opener ("`Abdu'l-Bahá.txt"))
|
|
end
|