'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
'
'
DECLARE SUB ventana (fila1%, col1%, fila2%, col2%, papel%, borde%, letra%, fondotxt%, titulo$)
PALETTE 4, 36
PALETTE 3, 63

COLOR 15, 3: CLS


ventana 2, 20, 12, 59, 3, 4, 15, 4, " HECHO EN RONDA "

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'VENTANA CON BARRA DE TITULO MODO TEXTO
'
'
'
'
SUB ventana (fila1, col1, fila2, col2, papel, borde, letra, fondotxt, titulo$) STATIC
COLOR borde, papel
ancho = col2 - col1 + 1
LOCATE fila1, col1
PRINT "É"; STRING$(ancho - 2, "Í"); "»";
FOR A = fila1 + 1 TO fila2 - 1
   LOCATE A, col1
   PRINT "º"; SPACE$(ancho - 2); "º"
NEXT
LOCATE fila2, col1
PRINT "È"; STRING$(ancho - 2, "Í"); "¼";
COLOR letra, fondotxt
LOCATE fila1, (col1 + (ancho / 2)) - (LEN(titulo$) / 2): PRINT titulo$
END SUB