' Aktueller Pfad auslesen
DECLARE FUNCTION AktuellerPfad$ ()

PRINT "Wir befinden uns in "; AktuellerPfad$

FUNCTION AktuellerPfad$
  SHELL "cd >" + ENVIRON$("TEMP") + "\~PFAD.TMP"
  OPEN ENVIRON$("TEMP") + "\~PFAD.TMP" FOR INPUT AS 1
  LINE INPUT #1, p$
  CLOSE 1
  KILL ENVIRON$("TEMP") + "\~PFAD.TMP"
  AktuellerPfad$ = p$
END FUNCTION