Check that file exists: Difference between revisions
Check that file exists en BASIC256
(Check that file exists en True BASIC) |
(Check that file exists en BASIC256) |
||
Line 805:
ENTER FILENAME TO CHECK? NOFILE.DOC
'NOFILE.DOC' IS NOT HERE.</pre>
=={{header|BASIC256}}==
<lang BASIC256>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</lang>
=={{header|Batch File}}==
|