Check that file exists: Difference between revisions

Content added Content deleted

Inline

@@ Line 60: / Line 60: @@
 =={{header|Applesoft BASIC}}==
 The error code for FILE NOT FOUND is 6.
-<lang ApplesoftBasic>100 F$ = "THAT FILE"
+<lang ApplesoftBasic>1100 F$ = "THAT FILE"
-D$ = CHR$(4)
+T$(0) = "DOES NOT EXIST."
-T$(0) = "DOES NOT EXIST."
+T$(1) = "EXISTS."
-T$(1) = "EXISTS."
+GOSUB 200"FILE EXISTS?
-GOSUB 200"FILE EXISTS?
+PRINT F$; " "; T$(E)
+END
-PRINT F$; " "; T$(E)
-END
 E = 1
 ON ERR GOTO 250"CATCH
 REM TRY
-PRINT D$; "VERIFY "; F$
+PRINT CHR$(4); "VERIFY "; F$
 POKE 216, 0 : GOTO 280"END TRY
 REM CATCH