if (file.exists("/image1.bmp") = 0) then
  file.frombase64 "/T3_16_Bold10pt7b.bin.txt", "/T3_16_Bold10pt7b.bin"
  file.frombase64 "/FreeSerifBold12pt7b.bin.txt", "/FreeSerifBold12pt7b.bin"
  file.frombase64 "/stop_sign.bmp.txt", "/stop_sign.bmp"
endif
data "Good Morning", "rgbyMrgbyMrgbyM", 1
data "How are you?", "rgbyMrgbyM", 10
data "ANNEX AND NEOPIXELS", "rgbyMvkwbrgbyM", 11
data "WORKS VERY WELL TOGETHER", "rgbyMrgbyMrgMrgMrgMrgbyM", 1

dim msg$(10)
dim col$(10)
dim myfont(10)
for z = 0 to 3
  read msg$(z), col$(z), myfont(z)
next z
seq = 0
nb_messages = z
wlog ramfree
neoscroll.setup 16, 2, 13, 0, 512, 32
neoscroll.brightness 255
neoscroll.text.brightness 255
neoscroll.show 0, 0

tft.loadfont "/T3_16_Bold10pt7b.bin", 1
tft.loadfont "/FreeSerifBold12pt7b.bin", 2
neoscroll.spritesheet "/stop_sign.bmp"
set_message
neoscroll.sprite neoscroll.x, 0, 16, 16, 0, 0
neoscroll.sync

neoscroll.mode 0'horizontal

timer0 50, scrolla
wait


sub set_message
  neoscroll.fill 0  
  neoscroll.text.pos 0, 15
  neoscroll.text.font myfont(seq)
  neoscroll.print msg$(seq), col$(seq)
  wlog "dim", neoscroll.x, neoscroll.y
  neoscroll.sprite neoscroll.x, 0, 16, 16, 0, 0
  neoscroll.sync
  seq = seq + 1
  if seq >= nb_messages then seq = 0
end sub

scrolla:
a = neoscroll.oscillate
if (a = 1) then set_message
return

'