Rosetta Code

Check that file exists: Difference between revisions

Page Discussion

Check that file exists (view source)

Revision as of 22:18, 29 September 2013

85 bytes added ,  10 years ago
m
more description, correct error handling
m (shorten by one line)
m (more description, correct error handling)
Line 60:
=={{header|Applesoft BASIC}}==
The error code for FILE NOT FOUND is 6.
<lang ApplesoftBasic>1100100 F$ = "THAT FILE"
110 T$(0) = "DOES NOT EXIST."
120 T$(1) = "EXISTS."
Line 67:
150 END
 
200 EREM =FILE 1EXISTS?
220210 REM TRY▼
210220 ON ERR GOTO 250300"CATCH
▲220 REM TRY
230 PRINT CHR$(4); "VERIFY "; F$
240 POKE 216, 0 : GOTOREM 280"ENDONERR TRYOFF
250 REM CATCH E = 1
260 EGOTO =350"END PEEK(222) <> 6TRY
300 REM CATCH
270 POKE 216, 0 : IF E THEN RESUME▼
310 E = PEEK(222) <> 6
280 REM END TRY▼
290320 CALL - 3288POKE 216, 0 : REM RECOVERONERR OFF
▲270330 POKE 216, 0 : IF E THEN RESUME : REM THROW
299 RETURN</lang>▼
340 CALL - 3288 : REM RECOVER
▲280350 REM END TRY
▲299360 RETURN</lang>
</lang>
 
=={{header|AutoHotkey}}==
Mmphosis
413

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/29215"