erro ao tentar tela cheia

[porter]

olá pessoal, ao executar o sistema, está dando erro, quero fazer com que a tela fique cheia, já conferi o script.exe.xbp e todos os includes estão lá, o que pode ser ?

Error BASE/1075 Erro nos parƒmetros: >
Called from Menus.prg->MENUA(22)
Called from demo.prg->MAIN(136)
HwGUI 2.17 xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6633)
Date:20/10/2016
Time:13:25:03

Código: Selecionar todos

FUNC MENUA
#Include "visual2.ch"
#include "inkey.ch"
#include "hbgtinfo.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

HB_LANGSELECT("PT")
HB_SETCODEPAGE( "PT850" )

REQUEST WVT_SETCODEPAGE
WVT_SETTITLE(HB_OEMTOANSI("S.A.G.I"))

wvt_setfont("courier new",10,0)

WVT_SETCODEPAGE(255)
SET EVENTMASK TO 159

ALTD()
 do case  // Identifica a resolucao do video
    case hb_gtinfo(GTI_DESKTOPWIDTH) > 1023  [b] <--- erro nessa linha[/b]
         hb_gtinfo(GTI_FONTWIDTH, 12) // 12 anterior   //   13  //   12
         hb_gtinfo(GTI_FONTSIZE, 27)  // 28 anterior   //   29  //   27
    case hb_gtinfo(GTI_DESKTOPWIDTH) > 799
         hb_gtinfo(GTI_FONTWIDTH, 10 ) // 10 anterior  //   10
         hb_gtinfo(GTI_FONTSIZE, 22 )  // 20 anterior  //   22
    otherwise
         hb_gtinfo(GTI_FONTWIDTH, 8)
         hb_gtinfo(GTI_FONTSIZE, 17)
 endcase

[porter]

Estava faltando esse include, agora não da mais erro na execução, mas a tela inicial não fica em tela cheia, a altura fica legal, mas a largura não.
#include "wvtwin.ch"