BCX Console Demonstration Program S96.bas

 '  **************************************************
 '      Pass this program any filename and it will
 '    return its' SHORT NAME.  Works with 8.3 or LFN
 '  **************************************************
 
 DIM ShortName$
 
 GetShortPathName(COMMAND$, ShortName$, 256)
 
 PRINT ShortName$