PSQQST;Questoes Propostas;sys_tbbrow; 8; 0;21;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL w_colsep = " "+chr(176)
VARIAVEL Z_XTELA = SAVESCREEN(3,0,7,79)
VARIAVEL z_blkPpo =            "Z_COR := SetColor('B/W'),"
VARIAVEL z_blkPpo = z_blkPpo + "Scroll(3,0,7,79,0),DispBox(3,0,7,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,7,79,Z_XTELA)
:TBFI
CodQst;Rec_Del();P;X99999;  6;N;
Obs;questao;C;@s60;60;;
