конвертер картинок для БК-0010

Таки ручки дошли - взял .jpg картинку, убрал артефакты и свел до 4х цветов. Картинку перегнал mtPaint в .xpm и написал программу конверсии. Взлетело хз с какой попытки

pen1.txt - тот же .xpm без заголовка и кавычек, одни данные

Dim m.a(3)
m(3)=0 ;black
m(2)=255;red
m(0)=$55;green
m(1)=170;blue
ReadFile(0,"pen1.txt")
CreateFile(1,"pen.bin")

WriteWord(1,16384)
WriteWord(1,16320)

For y=1 To 255
  s.s=ReadString(0)
  
  For x=0 To 63
    ma.a=3
    va.a=0
    For k=0 To 3
      t.a=Val( Mid(s,k+x*4,1) )
      va=va|(ma&m(t))
      ma<<2
    Next k
    WriteAsciiCharacter(1,va)
  Next x
  
Next y

CloseFile(0)
CloseFile(1)
; IDE Options = PureBasic 5.30 (Windows - x86)
; CursorPosition = 4
; EnableUnicode
; EnableXP
; Watchlist = va

шлак тут