;For Choosing the highest avail GraphicsMode

intModes=CountGfxModes() 
Graphics(GfxModeWidth(intModes-1),GfxModeHeight(intModes-1),GfxModeDepth(intModes-1),1)
Print "FullScreenMode set to:"+ GfxModeWidth(intModes-1)+"x"+GfxModeHeight(intModes-1)+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key for the Max windowed Mode"
WaitKey
;Max Windowed Mode
x=GfxModeWidth(intModes-1)-5
y=GfxModeHeight(intModes-1)-25
Graphics(x,y,GfxModeDepth(intModes-1),2)
Print "Max. WindowedMode set to:"+x+"x"+y+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key for the Big windowed mode"
WaitKey
;Big Windowed Mode
x=((GfxModeWidth(intModes-1)/6)*5)
y=((GfxModeHeight(intModes-1)/6)*5)
Graphics(x,y,GfxModeDepth(intModes-1),2)
Print "Big WindowedMode set to:"+x+"x"+y+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key for the medium windowed mode"
WaitKey
;Medium Windowed Mode
x=GfxModeWidth (intModes-1)-(GfxModeWidth (intModes-1)/3)
y=GfxModeHeight(intModes-1)-(GfxModeHeight(intModes-1)/3)
Graphics(x,y,GfxModeDepth(intModes-1),2)
Print "Medium WindowedMode set to:"+x+"x"+y+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key for the small-medium windowed mode"
WaitKey
;Small-Medium Windowed Mode
x=GfxModeWidth (intModes-1)-(GfxModeWidth (intModes-1)/2)
y=GfxModeHeight(intModes-1)-(GfxModeHeight(intModes-1)/2)
Graphics(x,y,GfxModeDepth(intModes-1),2)
Print "Small-Medium WindowedMode set to:"+x+"x"+y+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key for the small windowed mode"
WaitKey
;Small Windowed Mode
x=((GfxModeWidth (intModes-1)/4)*1.5)
y=((GfxModeHeight(intModes-1)/4)*1.5)
Graphics(x,y,GfxModeDepth(intModes-1),2)
Print "Small WindowedMode set to:"+x+"x"+y+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key for the very small windowed mode"
WaitKey
;Very Small Windowed Mode
x=(GfxModeWidth (intModes-1)/4)
y=(GfxModeHeight (intModes-1)/4)
Graphics(x,y,GfxModeDepth(intModes-1),2)
Print "Very Small WindowedMode set to:"+x+"x"+y+"x"+GfxModeDepth(intModes-1)
Print "Done"
Print "Please press a key to End"