PC Toledo

Código: Selecionar todos

#include "inkey.ch"
#include "hbgtinfo.ch"

REQUEST HB_CODEPAGE_PTISO
HB_CDPSELECT("PTISO")

function main()

*altd()
CLS
setmode(25,80)
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )  // fonte
HB_GtInfo( HB_GTI_CLOSABLE, .F. )   // nÆo permite fechar pelo X
HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )
HB_GtInfo( HB_GTI_WINTITLE, "MNF - Sistemas" )
// Ativa as ações do mouse
SET( _SET_EVENTMASK, 255 )

// Ativa cores intensas no fundo
SetBlink(.f.)

// Torna o cursor do mouse visivel
mSetCursor(.T.)


CLS
SET BELL OFF
SET SCORE OFF
SET EPOCH TO 1960
SET CENTURY ON
SET DELETED ON
SET DATE BRITISH
SET EXCLUSIVE OFF
SET PROCEDURE TO CEPC00
SET WRAP ON
PUBLIC BRANCOS

nomep=space(40)
anoletp=str(year(date()),4,0)

@ 10,10 say "Ano Letivo"get anoletp pict '9999'
@ 12,10 say "Nome Aluno"get nomep pict "@!"
read
return nil

Código: Selecionar todos

*- ROTINA PRINCIPAL

#include "inkey.ch"
#include "hbgtinfo.ch"

REQUEST HB_CODEPAGE_PTISO

function main()
HB_CDPSELECT("PTISO")

*altd()
CLS
setmode(25,80)
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )  // fonte
HB_GtInfo( HB_GTI_CLOSABLE, .F. )   // nÆo permite fechar pelo X
HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )
HB_GtInfo( HB_GTI_WINTITLE, "MNF - Sistemas" )
// Ativa as ações do mouse
SET( _SET_EVENTMASK, 255 )

// Ativa cores intensas no fundo
SetBlink(.f.)

// Torna o cursor do mouse visivel
mSetCursor(.T.)


CLS
SET BELL OFF
SET SCORE OFF
SET EPOCH TO 1960
SET CENTURY ON
SET DELETED ON
SET DATE BRITISH
SET EXCLUSIVE OFF
SET PROCEDURE TO CEPC00
SET WRAP ON
PUBLIC BRANCOS

nomep=space(40)
anoletp=str(year(date()),4,0)

@ 10,10 say "Ano Letivo"get anoletp pict '9999'
@ 12,10 say "Nome Aluno"get nomep pict "@!"
read
return nil