BCX Console Demonstration Program s43.bas

 
DIM i

FOR i = 1 TO 5
  PRINT FetchDir$()
NEXT i

FUNCTION FetchDir$ ()
  DIM a$
  GetCurrentDirectory(256, a$)
  FUNCTION = a$
END FUNCTION

Result:

D:\Dev\BCX
D:\Dev\BCX
D:\Dev\BCX
D:\Dev\BCX
D:\Dev\BCX