Procedimiento: Mostrar un cuadro de diálogo con borde simple.

Mostrar un cuadro de diálogo con borde simple.

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 PintaCuadroBordeSimple(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:

PintaCuadroBordeSimple(10,10,20,40)