include "window.inc"

Window " o_o ", 640,480, 1 
Font 12,48,0,""

Sub ShowVideoMode()
    sys x, fw, fh,ff, string fn
    fw = Font_Width
    fh = Font_Height
    ff = Font_Flag
    fn = Font_Name
    Font 10,14,0,"times"
    For x=0 to 15
     Text((Width-100)/2, 84+x*12, str(xReso(x)) + " x " + str(yReso(x)),255,255,255)       
    next 
    Font fw, fh, ff, fn
End Sub    
    
While Key(27)=0 
ClsColor 0,0,0
Text 220,0, "Video Modes", 220,220,248
ShowVideoMode
FlipBuffer
WaitFPS 60
Wend
WinEnd