BCX Console Demonstration Program s57.bas

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