ON ERROR GOTO Errori
Path$ = ENVIRON$("CURRDIR")
IF Path$ = "" GOTO Errori
IF UCASE$(Path$) = "NORESTORE" THEN END
Drive$ = LEFT$(Path$, 2)
CHDIR Path$
SHELL Drive$
END

Errori:
IF ERR <> 57 OR LEN(COMMAND$) THEN
   SCREEN 12: COLOR 10: SOUND 6000, 5
   LINE (0, 0)-(639, 479), 13, B
END IF
IF Path$ = "" THEN LOCATE 16, 15: PRINT "Non Š stata trovata la variabile d'ambiente CURRDIR!"
IF ERR = 57 THEN
   IF LEN(COMMAND$) THEN
      LOCATE 16, 5: PRINT "La variabile d'ambiente CURRDIR punta ad un dispositivo non disponibile!"
   ELSE
      END
   END IF
ELSE
   LOCATE 16, 8: PRINT "La variabile d'ambiente CURRDIR contiene un percorso inesistente!"
END IF
SLEEP 4
END