Const vh_scrwidth = 1024
Const vh_scrheight = 768
Const vh_scrdepth = 0
Const vh_scrmode = 0
If GfxModeExists(vh_scrwidth,vh_scrheight,vh_scrdepth) Then
Goto vh_exit
Else
Graphics vh_scrwidth,vh_scrheight,vh_scrdepth,vh_scrmode
EndIf
.....
.....
....
.vh_exit: end
Const vh_scrheight = 768
Const vh_scrdepth = 0
Const vh_scrmode = 0
If GfxModeExists(vh_scrwidth,vh_scrheight,vh_scrdepth) Then
Goto vh_exit
Else
Graphics vh_scrwidth,vh_scrheight,vh_scrdepth,vh_scrmode
EndIf
.....
.....
....
.vh_exit: end