BCX Console Demonstration Program S58.bas

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