BCX Console Demonstration Program S57.bas
DIM
a$ GetCurrentDirectory
(
256
, a$
)
? a$