This is my code i could do with a proper file loader like your's is if I knew how
print "Press the returnkey to clear the screen"
print "to load a file like Kanagroo 2beta's .q3d file or .dbm files press control"
print "Press ... to load a .x or .3ds file"
print "Enjoy"
wait 10000
Rem ***** Main Source File *****
make matrix 1, 1000, 1000, 100, 100
position matrix 1, 0, 0, 0
rotate camera 20, 0, 0
position camera 0, 70, 0
do
control camera using arrowkeys 0, 3, 3
if spacekey()=1 then cls
if controlkey()=1 then input "Load(Can be .q3d or.dbm) :", load$:open to read 1, load$
if SHIFTKEY()=1 then input "Load(.x or .3ds): ", obj$,: input "To slot number? ", num$: load object obj$, val(num$)
loop
Edit:
That loads any file if you use open to read i just loaded a c4d file up in it
Experienced DB http://www.greatgames3d.com (work in progress site)