just randomly made this, its of no use but im happy with it got any suggestions let me know

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem res change by matt neal
rem 2nd dbp script =\

sync

do

cls

print "Current display mode is ";screen width();"x";screen height()
wait key

cls
print "Enter a number to change the display mode:"
print "1.  800x600"
print "2.  1024x768"
print "3.  1152x864"
input "Enter your selection... ",reschange$

if reschange$ = "1"
cls
set display mode 800,600,32
endif

if reschange$ = "2"
cls
set display mode 1024,768,32
endif

if reschange$ = "3"
cls
set display mode 1152,864,32
endif

cls
print "Resolution set..."

loop