Declare Sub UpdateScreen()
Dim Shared ScreenBuff as String
ScreenBuff = "Hello"+Chr(255, 5)+" World!"+Chr(255, 14)+!"\nIt's it cool how it works?"

UpdateScreen
sleep

Sub UpdateScreen
    For X as Integer = 0 to Len(ScreenBuff)
        If ScreenBuff[X] = 255 Then
            Color ScreenBuff[X+1]
            X += 1
        Else
            Print Chr(ScreenBuff[X]);
        End If
    Next X
End Sub

sleep