' Prfen, ob Datei vorhanden
DECLARE FUNCTION DateiExistiert% (d$)

INPUT "Dateiname"; dn$

IF DateiExistiert(dn$) THEN
  PRINT dn$; " ist vorhanden"
ELSE
  PRINT dn$; " gibt es nicht"
END IF

END

Fehler:
f% = ERR
RESUME NEXT

FUNCTION DateiExistiert% (d$)
  f% = -1
  ON ERROR GOTO Fehler
  OPEN d$ FOR INPUT AS 1
  CLOSE 1
  ON ERROR GOTO 0
  IF f% = -1 THEN
    DateiExistiert% = -1
  ELSE
    DateiExistiert% = 0
  END IF
END FUNCTION