BCX Console Demonstration Program s58.bas

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