MENS;Mensagens do Descanso de Tela;sys_tbbrow;9; 0;21;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL Z_XTELA = SAVESCREEN(0,38,8,79)
VARIAVEL z_xblkPpo =            "Z_COR:=SetColor('w/n,w/n,,,w/n'),"
VARIAVEL z_xblkPpo = z_xblkPpo + "Scroll(0,38,8,79,0),DispBox(0,38,8,79),"
VARIAVEL z_xblkPpo = z_xblkPpo + "memoedit(MENSAGEM,1,39,7,78,.f.,.f.,40),"
VARIAVEL z_xblkPpo = z_xblkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_xblkPpo )
VARIAVEL z_xblkPpo = ""
COMANDO DEPOIS Z_NIL = RESTSCREEN(0,38,8,79,Z_XTELA)
:TBMT
 13;tb_update(D_OB);Enter-Altera ;
 22;tb_insert(D_OB);Ins-Inclui ;
  7;tb_del(D_ob);DEL-DELeta ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
:TBFI
MENSAGEM;MemoLine(mensagem,78,1);C;@s78;78;N;
