cuadro en lpp

PROCEDIMIENTO RECUADRO(ENTERO X1, ENTERO Y1, ENTERO X2, ENTERO Y2, ENTERO COLOR, CARACTER SIMBOLO)

ENTERO J

INICIO

LLAMAR COLOR_TEXTO(COLOR)

//DIBUJANDO LAS LINEAS HORIZONTALES

PARA J<- X1 HASTA X2 HAGA

LLAMAR POSICIONAR_CURSOR(J, Y1)

ESCRIBA SIMBOLO

LLAMAR POSICIONAR_CURSOR(J, Y2)

ESCRIBA SIMBOLO

FIN PARA

//DIBUJANDO LAS LINEAS VERTICALES

PARA J<- Y1 HASTA Y2 HAGA

LLAMAR POSICIONAR_CURSOR(X1, J)

ESCRIBA SIMBOLO

LLAMAR POSICIONAR_CURSOR(X2,J)

ESCRIBA SIMBOLO

FIN PARA

LLAMAR COLOR_TEXTO(15)//15 BLANCO

FIN

//----------------------------------------------

INICIO

LLAMAR RECUADRO(2,2,70,15,11,CAR(219))

LLAMAR RECUADRO(4,6,65,11,14,CAR(178))

FIN