Define character on SCREEN4 and color them

Hello,
 
I have understand how to define the characters and to print them on SCREEN4, 
but I don't know how to color them using VPOKE,  
how can I do?  

 
This program define one character and then print on screen4.
 
10 SCREEN 4:CLS:COLOR,4,15
20 REM DEFINE WALL
30 FOR A=0 TO 7:READ B:VPOKE128*8+A,B:NEXT A
40 DATA 0,251,251,251,0,127,127,127
50 FORA=32TO255:VPOKE6144+A,128:NEXTA
60 GOTO60
 
Bye
Andrea from Italy

 


[Se han eliminado los trozos de este mensaje que no contenían texto]