<-- Previous || Up || Next -->

Baudot Encode Sample Sub
Codes Ciphers Class

Private Sub BaudotEncodeSample()
    ' Sample of the BaudotEncode function which illustrates the portion of the ANSI Windows character set that
    ' the Baudot code supports.

    Dim intCurAsc As Integer
    For intCurAsc = 0 To 255
        Dim strANSI As String
        strANSI = Chr$(intCurAsc)
        Dim strBaudot As String
        strBaudot = BaudotEncode(Chr$(intCurAsc))

        If Len(strBaudot) Then
            Debug.Print IllustrateValue(strANSI) & " --> " & IllustrateValue(strBaudot)
        End If
    Next intCurAsc
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.