LCDOUT - to display single bit?

Function rtty_txtbyte(chr As Byte) As Byte
Lcdcmdout LcdLine1Pos(1)
Lcdout "Char = " chr

Call rtty_txbit(0)  'start Bit

'send bits For For char lsb first

For j = 0 To 7  'change this here 7 Or 8 For ascii-7 / ascii-8
	Lcdcmdout LcdLine3Pos(1)
	Lcdout "Bit = " chr(j)
	If chr.0 Then
		Call rtty_txbit(1)
	Else
		Call rtty_txbit(0)
	Endif
chr = ShiftRight(chr, 1)
Next j

Call rtty_txbit(1)  'stop Bit
Call rtty_txbit(1)  'stop Bit

End Function

Function pow(x1 As Byte, t As Byte) As Byte
Dim x2 As Byte
   t = LookUp(1, 2, 4, 8, 16, 32, 64, 128), t
   x2 = x1 And t
   pow = 0x31
   If x2 = 0 Then pow = 0x30
End Function

Lcdout "bit = " pow(chr,j)

Function convert_char(chr As Byte) As Byte
Lcdcmdout LcdLine1Pos(pos)
Lcdout chr

Call rtty_txbit(0)  'start Bit

For j = 0 To 7  'ascii-7 / ascii-8
	'Lcdcmdout LcdLine3Pos(1)
	'Lcdout "Bit ", #j,
	If chr.0 Then
		'Lcdcmdout LcdLine3Pos(8)
		'Lcdout "= HIGH" ' -- Use the scope to see this is true!
		Call rtty_txbit(1)
	Else
		'Lcdcmdout LcdLine3Pos(8)
		'Lcdout "= LOW "
		Call rtty_txbit(0)
	Endif
chr = ShiftRight(chr, 1)
Next j

Call rtty_txbit(1)  'stop Bit
Call rtty_txbit(1)  'stop Bit

End Function

Lcdout "bit = " , pow(chr,j)