BCX Console Demonstration Program S57.bas

 DIM a$
 
 GetCurrentDirectory(256, a$)
 
 ? a$