Declare Sub UpdateScreen()
Dim Shared ScreenBuff as String
ScreenBuff = _
"Hello#F World#O" !"\n" _
"It's it cool how it works?"

UpdateScreen
sleep

Sub UpdateScreen
    var iStart = 1 'start position
    color 7 'start color?
    do
      var iPosi = instr(iStart,ScreenBuff,"#")
      if iPosi then 'found color change
        print mid$(ScreenBuff,iStart,iPosi-iStart);
        color ScreenBuff[iPosi]-asc("A")
        iStart = iPosi+2 'skip color symbol and number
      else 'no more color change just print rest of the buffer
        print mid$(ScreenBuff,iStart);
        exit do 'and it's done
      end if
    loop
End Sub