PSQQST;Questoes Propostas;sys_tbbrow; 9; 0;20;79;psq_brow;;
:SKEL
VARIAVEL Z_XTELA = SAVESCREEN(3,0,7,79)
VARIAVEL z_blkPpo =            "Z_COR := SetColor('B/W'),"
VARIAVEL z_blkPpo = z_blkPpo + "Scroll(3,0,9,79,0),DispBox(3,0,9,79),"
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(4,2), DevOut(memoline(obs,76,1)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(5,2), DevOut(memoline(obs,76,2)),'
VARIAVEL z_blkPpo = z_blkPpo + 'DevPos(6,2), DevOut(memoline(obs,76,3)),'
VARIAVEL z_blkPpo = z_blkPpo + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_blkPpo )
COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,9,79,Z_XTELA)
:TBFI
CodQst;Rec_Del();P;X99999;  6;N;
Obs;Alltrim(memoline(obs,76,1));C;@s70;70;;
