Sure no problem Nano.
I did a search on the forum and found a code someone wrote that lets you select different screen resolutions, and I simply inserted into the code I had before.
So it looks like this,
Sync On
Sync Rate 30
Hide Mouse
rem let the user select his/her resolution
rem by TheComet
rem --------------------------------------
backdrop on
color backdrop 0
rem loop
exitloop=0
do
rem get a checklist of the different resolutions
perform checklist for display modes
rem print
y=20
for t=1 to checklist quantity()
text 0,0,"Please select your favourite resolution(the bigger, the slower)"
inc y,15
width=checklist value a(t)
height=checklist value b(t)
depth=checklist value c(t)
ink rgb(255,255,255),0
text 0,y,str$(width)+"*"+str$(height)+"*"+str$(depth)
rem select with mouse
if mousex()<text width(str$(width)+"*"+str$(height)+"*"+str$(depth))
if mousey()>y and mousey()<y+15
ink rgb(255,0,0),0
text 0,y,str$(width)+"*"+str$(height)+"*"+str$(depth)
if mouseclick()=1 then exitloop=1:exit
endif
endif
next t
rem exit
if exitloop=1 then exit
rem refresh screen
sync
rem end of loop
loop
rem set display mode
set display mode width,height,depth
set camera view 0,0,screen width(),screen height()
color backdrop 0
Set camera range 1,5000
load object "test2.x",1
do
if upkey() then move camera 2
if downkey() then move camera -2
rotate camera camera angle x()+mousemovey()/8,camera angle y()+mousemovex()/8,0
YROTATE OBJECT 1,OBJECT ANGLE Y(1)+0.5
sync
loop
Its good for checking to see if your *.x model loads in DBPro (and also see how the textures look as well. But note, set your model's X,Y,Z axis to zeros (if and when you export it to the DirectX format) ..... also, since you'll be using your mouse to pick the screen resolution .... this will make your model go off the screen ... so after you pick your desired resolution, move your mouse around until your model is in the center of the screen.