Et oui, dans le cas de certains modes décran graphiques, vous ne pouvez écrire que sur fond noir. Gênant, non? J'ai justement écrit une SUB pour corriger cela:

SUB ecrit (row%, col%, texte$, couleurTexte%, couleurFond%)

COLOR couleurTexte%

FOR car% = 1 TO LEN(texte$)
LOCATE row%, col% - 1 + car%
PRINT MID$(texte$, car%, 1)

x1% = (col% - 2 + car%) * 8
y1% = (row% - 1) * 16
x2% = (col% - 1 + car%) * 8
y2% = row% * 16

FOR i = x1% TO x2%
FOR j = y1% TO y2%
IF POINT(i, j) <> couleurTexte% THEN PSET (i, j), couleurFond%
NEXT j
NEXT i

NEXT car%

END SUB

Je ne pense pas avoir besoins d'expliquer le rôle des variables d'arguments, cela me semble assez clair. Attention tout de même à la vitesse d'éxécution décevante sur un ordinateur de moins de 100 Mhz (non, non, ces machines là ne sont pas toutes à la casse).