Check that file exists: Difference between revisions
Applesoft BASIC
Catskill549 (talk | contribs) |
(Applesoft BASIC) |
||
Line 57:
</lang>
=={{header|Applesoft BASIC}}==
The error code for FILE NOT FOUND is 6.
<lang ApplesoftBasic>100 F$ = "THAT FILE"
110 D$ = CHR$(4)
120 T$(0) = "DOES NOT EXIST."
130 T$(1) = "EXISTS."
140 GOSUB 200"FILE EXISTS?
150 PRINT F$; " "; T$(E)
160 END
200 E = 1
210 ON ERR GOTO 250"CATCH
220 REM TRY
230 PRINT D$; "VERIFY "; F$
240 POKE 216, 0 : GOTO 280"END TRY
250 REM CATCH
260 E = PEEK(222) <> 6
270 POKE 216, 0 : IF E THEN RESUME
280 REM END TRY
290 CALL - 3288: REM RECOVER
299 RETURN</lang>
=={{header|AutoHotkey}}==
| |||