10 COLOR 15,0,0:SCREEN 4,1
20 DATA 255,255,255,255,255,255,255,255
30 READ A:FOR I=0 TO 7:Y$=Y$+CHR$(A):NEXT
40 SPRITE$(1)=Y$
50 PUT SPRITE 1,(110,80),13,1
60 E$="1"
70 A$=INKEY$:IF A$="" THEN 70
80 COLOR SPRITE$(1)=E$
90 IF LEN(E$)<=8 THEN E$=E$+"0":GOTO 70 ELSE 50