Jump to content

Check that file exists: Difference between revisions

Check that file exists (view source)

Revision as of 21:38, 29 September 2013

11 bytes removed ,  10 years ago
m
shorten by one line
(Applesoft BASIC)
m (shorten by one line)
Line 60:
=={{header|Applesoft BASIC}}==
The error code for FILE NOT FOUND is 6.
<lang ApplesoftBasic>1001100 F$ = "THAT FILE"
110 DT$(0) = CHR$(4)"DOES NOT EXIST."
120 T$(01) = "DOES NOT EXISTEXISTS."
130 T$(1)GOSUB =200"FILE "EXISTS."?
140 GOSUBPRINT F$; " 200"FILE; EXISTS?T$(E)
160150 END▼
150 PRINT F$; " "; T$(E)
▲160 END
 
200 E = 1
210 ON ERR GOTO 250"CATCH
220 REM TRY
230 PRINT DCHR$(4); "VERIFY "; F$
240 POKE 216, 0 : GOTO 280"END TRY
250 REM CATCH
Mmphosis
413

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/29214"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information