' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' DECLARE SUB VENTANA (LIN%, COL%, ANCHO%, ALTO%, TEXT$) SCREEN 12 PAINT (1, 1), 7 VENTANA 8, 8, 60, 18, " HECHO EN RONDA" ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' VENTANA MODO GRAFICO BARRA TITULO ' ' SUB VENTANA (LIN%, COL%, ANCHO%, ALTO%, TEXT$) STATIC PSET ((COL% - 1) * 8, (LIN% - 1) * 16) LINE STEP(-19, -4)-STEP(22 + (ANCHO% * 8), 6 + (ALTO% * 16)), 1, BF LINE STEP(-3, -3)-STEP(-(16 + (ANCHO% * 8)), -(ALTO% * 16)), 15, BF LOCATE LIN%, COL%: PRINT SPACE$(ANCHO%) LINE STEP(1, 1)-STEP(15, 15), 7, BF LINE STEP(-4, -7)-STEP(-8, -1), 0, B COLOR 15: LOCATE LIN%, COL%: PRINT TEXT$ END SUB