Here's an example, ripped from one of my games.
rem ----------------------------------------------------------------------
rem choose resolution
rem ----------------------------------------------------------------------
rem try to use desktop resolution
load dll "user32.dll",1
scw=call dll(1,"GetSystemMetrics",0)
sch=call dll(1,"GetSystemMetrics",1)
scd=call dll(1,"GetSysColor",0)
if scd=13160664 then scd=16
if scd=13158600 then scd=32
if scd=13160660 then scd=32
delete dll 1
rem setup screen
set display mode scw , sch , scd
sync on
sync rate 0
backdrop on
color backdrop 0
show mouse
autocam off
position mouse scw/2,sch/2
TheComet

Level 91 Forumer - 9600 health, 666'666 keystroke power (*2 coffee)
Abilities: sophisticated troll, rage