7 > BLib.extension 1.00 - Ensure filename extension : $ݤext(n$,t%):e%,xt$:n$<10:=n$ (0A%=0:e%=A%:A%=n$,"/",e%+1):A%=0:e%<8:=n$ 2xt$=lc(n$,e%+1)) <xt$="a":t%=&DDC:xt$="arc" Fxt$="a":xt$="asm" Pxt$="ar":xt$="arc" Zxt$="as":xt$="asm" dxt$="b":t%=&1C7:xt$="bbc" nxt$="b":t%=&FDA:xt$="bat" xxt$="b":xt$="bbc" xt$="ba":t%=&FDA:xt$="bat" xt$="ba":xt$="bas" xt$="bb":xt$="bbc" xt$="c":t%=&FFD:xt$="crc" xt$="c":t%=&201:xt$="com" xt$="c":t%=&FD8:xt$="com" xt$="c":t%=&FFF:xt$="c" xt$="c":t%<>&FFF:xt$="com" xt$="co":xt$="com" xt$="d":xt$="doc" xt$="de":xt$="def" xt$="df":xt$="dfs" xt$="do":xt$="doc" xt$="ds":xt$="dsd" xt$="e":xt$="exe" xt$="ex":xt$="exe" "xt$="f":xt$="fon" ,xt$="fn":xt$="fnt" 6xt$="fo":xt$="fon" @xt$="g":xt$="gif" Jxt$="gi":xt$="gif" Txt$="h":t%=&FFF:xt$="hex" ^xt$="h":t%=&FAF:xt$="htm" hxt$="he":xt$="hex" rxt$="ht":xt$="htm" |xt$="i":t%=&FFF:xt$="ini"  xt$="i":t%<>&FFF:xt$="ico" xt$="in":xt$="ini" xt$="ic":xt$="ico" xt$="j":xt$="jpg" xt$="jp":xt$="jpg" xt$="l":t%=&FFF:xt$="lst" xt$="l":xt$="lbr" xt$="lb":xt$="lbr" xt$="ls":xt$="lst" xt$="m":xt$="mac" xt$="ma":xt$="mac" xt$="mo":xt$="mod" xt$="o":xt$="ovr" xt$="ov":xt$="ovr" xt$="p":t%=&1C5:xt$="pdp" xt$="p":xt$="pdf" & xt$="pd":t%=&1C5:xt$="pdp" 0xt$="pd":xt$="pdf" :xt$="r":t%=&BBC:xt$="rom" Dxt$="r":t%=&700:xt$="rom" Nxt$="r":t%=&FFF:xt$="reg" Xxt$="r":xt$="rtf" bxt$="re":xt$="reg" lxt$="ro":xt$="rom" vxt$="rt":xt$="rtf" xt$="s":t%=&BA1:xt$="sna" xt$="s":t%=&FFF:xt$="src" xt$="s":t%=&FFD:xt$="sys" xt$="s":t%=&B22:xt$="ssd" xt$="s":t%=&702:xt$="ssn" xt$="s":t%=&701:xt$="sta" xt$="s":xt$="src" xt$="sn":xt$="sna" xt$="sp":xt$="spl"  xt$="ss":t%=&B22:xt$="ssd"  xt$="ss":t%=&702:xt$="ssn" xt$="st":xt$="sta" xt$="sr":xt$="src" xt$="sy":xt$="sys"  xt$="t":t%=&FFF:xt$="txt" xt$="t":t%=&11D:xt$="tap"  xt$="t":t%=&FF0:xt$="tif" *xt$="t":xt$="txt" 4xt$="ta":xt$="tap" >xt$="ti":xt$="tif" Hxt$="tx":xt$="txt" Rxt$="u":xt$="url" \xt$="ur":xt$="url" fxt$="w":xt$="wks" pxt$="wk":xt$="wks" zxt$="x":xt$="xls" xt$="xl":xt$="xls" xt$="z":t%=&DDC:xt$="zip" xt$="z":t%=&FFF:xt$="z80" xt$="z":t%=&BA0:xt$="z80" xt$="z":xt$="zip" xt$="z8":xt$="z80" xt$="zi":xt$="zip" n$,1)<="_":xt$=uc(xt$) =n$,e%-1)+"/"+xt$ :