Declare Pfad$,zeichen$,pos%,pos2%,ext%,ext2%,datei$,ext$
CLS
let ext$=".BMP"	'auf Großschreibung achten!
let PFAD$="C:\windows\himmel.bmp"
let pfad$=@UPPER$(PFAD$)
'bewusst auf Instr(x,x) verzichtet!
pos%=1
zeichen$=@mid$(pfad$,pos%,1)
Whilenot equ$(zeichen$,"")
zeichen$=@mid$(pfad$,pos%,1)
case equ$(zeichen$,"\"):pos2%=pos%
inc pos%
wend
let ext%=add(instr(ext$,pfad$),4)
let ext2%=sub(ext%,pos2%)
let Datei$=mid$(pfad$,add(pos2%,1),ext2%)
Print datei$
WAITINPUT