'--- test if files exist
dim flgsprit as integer
dim flgsdcard as integer
dim numtyp as integer

flgsprit=0
flgsdcard=0
numtyp=0
if MM.INFO$(SDCARD)="Ready" then flgsdcard=1
if MM.device$="Pi-cromite" and instr(MM.INFO$(LCDPANEL),"HDMI")=0 then numtyp=9   'if pi and lcd on SPI no sprites and no texte transparent

ON error ignore  'this also raz errno
txt1$=dir$("image4c.bmp",file)  'files "Image4c.*"
ON error ABORT
if mm.errno=0 then
flgsprit=1
end if
ON error ignore
txt1$=dir$("logom4.png",file)  'files "Image4c.*"
ON error ABORT
if mm.errno=0 then
flgsprit=flgsprit+1
end if  
if flgsprit<2 then
if (flgsprit<=0 and flgsdcard=0) then print "*** SdCard for Sprite function is not present ***":txt="No files for Sprites"
if flgsprit=1 then print "*** 1 File missing for Sprite function ***":txt="1 file need for Sprites"
print "*** Function Sprite NOT aviable ***"
else
if numtyp=9 then
print "- Function SPRITE not aviable on Rpi with SPI LCD "
txt="Sprites NO"
else
print "- Function SPRITE aviable "
txt="Sprites OK"
end if
end if