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$