Check that file exists: Difference between revisions
Content added Content deleted
(Check that file exists en True BASIC) |
|||
Line 2,828: | Line 2,828: | ||
" docs" exists? . |
" docs" exists? . |
||
" /docs" exists? .</lang> |
" /docs" exists? .</lang> |
||
=={{header|True BASIC}}== |
|||
<lang truebasic>SUB opener (a$) |
|||
WHEN EXCEPTION IN |
|||
OPEN #1: NAME f$ |
|||
PRINT f$; " exists" |
|||
USE |
|||
PRINT f$; " not exists" |
|||
END WHEN |
|||
CLOSE #1 |
|||
END SUB |
|||
LET f$ = "input.txt" |
|||
CALL opener (f$) |
|||
LET f$ = "\input.txt" |
|||
CALL opener (f$) |
|||
LET f$ = "docs\nul" |
|||
CALL opener (f$) |
|||
LET f$ = "\docs\nul" |
|||
CALL opener (f$) |
|||
LET f$ = "empty.tru" |
|||
CALL opener (f$) |
|||
LET f$ = "`Abdu'l-Bahá.txt" |
|||
CALL opener (f$) |
|||
END</lang> |
|||
=={{header|TUSCRIPT}}== |
=={{header|TUSCRIPT}}== |