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