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