COLOR 15:X=4:Y=4:FOR I=0TO 255 LOCATE X+I MOD 16,Y+I DIV 16 ?MID$("0123456789ABCDEF",I DIV 17,1):NEXT