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