Aimed at showing people a more professional way of loading media into dark basic and how to use it.
sync on
cls 0
sync
blue = Load_An_Image("c:\images\blue.bmp")
red = Load_An_Image("C:\images\red.bmp")
paste image blue, 100, 100
paste image red, 200, 100
sync
wait key
delete image blue
delete image red
end
Function Load_An_Image(File as string)
count = 0
found = 0
repeat
count = count + 1
found = image exist(count)
until found = 0
Load image File, count
endfunction count
A realy usefull function that can be amended to load any type of media.
