xed=56*8:yed=56*8
setdisplay(xed,yed,32,1):paper(8^8-1):ink(0):pen(0):cls
dim palv[256]
palv[00]=0x7d7d7d:palv[01]=0xbebebe:palv[02]=0xfbfbfb:palv[03]=0xffffff
palv[04]=0x0000FF:palv[05]=0x0079FB:palv[06]=0x3CBEFF:palv[07]=0xA6E7FF
palv[08]=0x0000BE:palv[09]=0x0059FB:palv[10]=0x698AFF:palv[11]=0xBABAFB
palv[12]=0x4528BE:palv[13]=0x6945FF:palv[14]=0x9A79FB:palv[15]=0xDBBAFB
palv[16]=0x960086:palv[17]=0xDB00CF:palv[18]=0xFB79FB:palv[19]=0xFBBAFB
palv[20]=0xAA0020:palv[21]=0xE70059:palv[22]=0xFB599A:palv[23]=0xFBA6C3
palv[24]=0xAA1000:palv[25]=0xFB3800:palv[26]=0xFB7959:palv[27]=0xF3D3B2
palv[28]=0x8A1400:palv[29]=0xE75D10:palv[30]=0xFFA245:palv[31]=0xFFE3AA
palv[32]=0x513000:palv[33]=0xAE7D00:palv[34]=0xFBBA00:palv[35]=0xFBDB79
palv[36]=0x007900:palv[37]=0x00BA00:palv[38]=0xBAFB18:palv[39]=0xDBFB79
palv[40]=0x006900:palv[41]=0x00AA00:palv[42]=0x59DB55:palv[43]=0xBAFBBA
palv[44]=0x005900:palv[45]=0x00AA45:palv[46]=0x59FB9A:palv[47]=0xBAFBDB
palv[48]=0x004159:palv[49]=0x008A8A:palv[50]=0x00EBDB:palv[51]=0x00FFFF
palv[52]=0x000000:palv[52]=0x000000:palv[54]=0x797979:palv[55]=0xdbdbdb
function hexvl(a$)
  e=asc(ucase$(a$))
  hexvl=abs(((e>=48 and e<=57)*(e-48))+((e>=65 and e<=70)*(e-55)))
  end function
function bytefromhexdump(a$,byteadr)
  i=(byteadr*2)+1
  m1$=mid$(a$,i,1):m2$=mid$(a$,i+1,1)
  tmpr=(hexvl(m1$)*16)+hexvl(m2$)
  bytefromhexdump=tmpr
  end function
sub hexdumpplot(x,y,a$,i,p)
  for e=0 to (len(a$)/2)-1
    v=bytefromhexdump(a$,e)
    for z=0 to 7:ik=p:z2=7-z
      if (((int(v/(2^z2)))mod 2) and (2^z2)) then:ik=i:end if
      ink(ik):dot(x+z,y+e):next:next
  end sub
for y=0 to 55:for x=0 to 55
  hx$="001C3663637F6363"
  Hexdumpplot (x*8,y*8,hx$,palv[x],palv[y])
  next:next
grab (1,0,0,xed,yed):saveimage ("nescomb.bmp",1)
shell("convert nescomb.bmp nescomb.png && rm nescomb.bmp")
waitkey