Procedimiento: Mostrar un cuadro de diálogo con borde doble

Mostrar un cuadro de diálogo con borde doble.

Teniendo en cuenta que los simbolos del cuadro de diálogo, se obtienen manteniendo pulsada la tecla "Alt + código ASCII". Con el procedimiento que a continuación se detalla obtendremos la un cuadro de diálogo con el borde simple, tal y como muestra el ejemplo:

Proc PintaCuadroBordeDoble(Cuadro_Columna#,Cuadro_Posinicial#,Cuadro_Posfinal#,Cuadro_Ancho#)
FIELD=M
DCL Cuadro_bucle%
ENDLOC

PRINT=1:TAB(Cuadro_Columna,Cuadro_Posinicial),"╔",GENER(Cuadro_Ancho,"═"),PAINT(0,GRIS),"╗",PAINT(NEGRO,GRIS)
Cuadro_Posinicial=Cuadro_Posinicial+1
FOR Cuadro_bucle=Cuadro_Posinicial to Cuadro_PosFinal
PRINT=1:TAB(Cuadro_Columna,Cuadro_Bucle),"║",GENER(Cuadro_Ancho," "),PAINT(0,GRIS),"║",PAINT(NEGRO,GRIS)
NEXT Cuadro_bucle
Cuadro_PosFinal=Cuadro_PosFinal+1
PRINT=1:TAB(Cuadro_Columna,Cuadro_PosFinal),"╚",PAINT(0,GRIS),GENER(Cuadro_Ancho,"═"),"╝",PAINT(NEGRO,GRIS)
EndProc

Sintaxix:

PintaCuadroBordeDoble(10,10,20,40)