' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' ' PONE FONDO DE COLOR A LAS LETRAS DE SCREEN 12 QUE SI NO SERIA NEGRO ' DECLARE SUB TEXTO (LV!, LH!, TEXT$, C!, CF!) SCREEN 12 PAINT (1, 1), 14 TEXTO 10, 2, "ABCDEFGHIJKMN¥OPQRSTUVWXYZabcdefghijklmn¤opqrstuvwxyz§23456890'­‡€¦!ú$%&/()=?¨", 14, 15 TEXTO 2, 18, "ESTAMOS EN SCREEN 12", 1, 14 TEXTO 15, 8, "HOLA, QHE HAY", 4, 15 TEXTO 20, 38, "COLOR DE FONDO EN TEXTOS", 15, 9 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' ' Escribe en texto en la pantalla de SCREEN 12 y da color al fondo ' negro que queda detr s, cosa imposible con la instrucci¢n PRINT. ' ' LV.......Linea (1 a 30) (valido normalmente s¢lo 1 a 28) ' LH.......Columna (1 a 80) ' TEXT$....Texto (m ximo 80 caracteres) ' C........Color de letra del texto (1 a 15) ' CF.......­ Color de fondo detr s del texto ! (1 a 15) ' ' No se puede poner la letra negra: En ese caso se produce ' un error controlado y se sale de la SUB para continuar el prugrama. ' ' SUB TEXTO (LV, LH, TEXT$, C, CF) LOCATE LV, LH: COLOR C: PRINT TEXT$ IF CF = 0 THEN : PLAY "a": EXIT SUB LINE (((LH - 1) * 8) - 1, (LV - 1) * 16)-STEP(7 + (8 * (LEN(TEXT$) - 1)) + 1, 15), C, B PAINT (((LH - 1) * 8) + 1, ((LV - 1) * 16) + 1), CF, C LINE (((LH - 1) * 8) - 1, (LV - 1) * 16)-STEP(7 + (8 * (LEN(TEXT$) - 1)) + 1, 15), CF, B LH = LH - 1 FOR LETRAS = 1 TO LEN(TEXT$) LH = LH + 1 FOR H = ((LH - 1) * 8) TO ((LH - 1) * 8) + 7 FOR V = ((LV - 1) * 16) + 3 TO ((LV - 1) * 16) + 10 IF POINT(H, V) = 0 THEN : PSET (H, V), CF NEXT NEXT NEXT END SUB