Visual Basic

Function doSyntax()<br />
    Dim input = RichTextBox1.Text.ToString<br />
    Dim thenew As String() = Split(input, vbCrLf)<br />
    Dim keywords As String() = {"Dim", "As", "Integer"}<br />
    For Each Item As String In thenew<br />
        For Each keys As String In keywords<br />
            If Item = keys Then<br />
                RichTextBox1.SelectionStart = RichTextBox1.Find(Item)<br />
                RichTextBox1.SelectionLength = Item.Length<br />
                RichTextBox1.SelectionColor = Color.Blue<br />
                RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(Item) + Item.Length + 1<br />
                RichTextBox1.SelectionLength = 0<br />
                RichTextBox1.SelectionColor = Color.Black<br />
            End If<br />
        Next<br />
    Next<br />
End Function

Dim Fn As String
 Fn = FreeFile
  
 Open Printer.Port For Output As #Fn
 
    Print #Fn, "Some Text"; Tab(35); "Some Text"
    Print #Fn, "Some Text"; Tab(35); "Some Text"

    Print #Fn, "Some Text"; Tab(35); "Some Text"

    Close (Fn)