/* WinPos.lxl                                                                       */
/*   written by Eric Pence                                                          */
/* Set window position centered on first open, offset position on subsequent opens. */
/* Window position parms = left / bottom / width / height                           */

'extract doctype'
'extract documents'
'extract global.opencount into opnct'
if opnct = "" then
    opnct = 0
if (doctype < "A") then
    opnct = 0
else do
    opnct = opnct + 1
end
'set global.opencount 'opnct

if (doctype < "A") then
  'windowpos 125 75 600 500'
else if ((documents = 1) | (opnct = 1)) then
  'windowpos 175 50 600 500'
else
  'windowpos 125 75 600 500'