' ' © 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