DIM i FOR i = 1 TO 5 PRINT FetchDir$() NEXT i FUNCTION FetchDir$() DIM a$ GetCurrentDirectory(256, a$) FUNCTION = a$ END FUNCTION