ScreenSize >>
 Max_width : Integer
 Max_height : Integer
;

/* * */

ScreenSize WPage ->
Arg S : &ScreenSize, Rq : HTTPRequest

S.
 Max_width = 1024
 Max_height = 768
;

Rq.Cookies.
 If SW && SH then
  S.
   Max_width = Round (SW * 0.80)
   Max_height = Round (SH * 0.80)
  ;
 ;
;

/

JScript WPage ->

Say '<script>'                                          ,
    'if (screen.width) {'                               ,
    '    document.cookie = "sw" + "=" + screen.width;'  ,
    '    document.cookie = "sh" + "=" + screen.height;' ,
    '}'                                                 ,
    '</script>'

/