Was sollen pina, pinc, pind ?
Ansonsten kannst Du es wie folgt machen:

Initlcd

Cls
Cursor Off

Dim Gray As Word
Dim Lobyte As Word
Dim Hibyte As Word
Config Pind.4 = Input
Umschalter Alias Pind.4
Dim Zahl As Byte
Dim Zahl1 As Byte
Dim Zahl2 As Byte
Dim Code1 As Word
Dim Code2 As Word

Do
If Umschalter = 1 Then
Gosub Code1
Else
Gosub Code2
End If

Loop

Code1:
Locate 1 , 1
Lcd "P.G.Tester(GRAY)"
Locate 4 , 1
Lcd "Ausbildung EGS05"

Locate 2 , 5
Lcd "*-"
Locate 2 , 10
Lcd "-*"
Locate 3 , 3
Lcd "------------"

Lobyte = Pina
Hibyte = Pinc
Hibyte = Hibyte And &B0000000000001111

Rotate Hibyte , Left , 8

Gray = Lobyte + Hibyte

Gray = Gray2bin(gray)



Locate 2 , 7
Lcd Gray

Waitms 200
Locate 2 , 7
Lcd " "

Return


Code2:

Locate 1 , 1
Lcd "P.G.Tester(BCD)"
Locate 4 , 1
Lcd "Ausbildung EGS05"


Locate 2 , 5
Lcd "*-"
Locate 2 , 10
Lcd "-*"
Locate 3 , 3
Lcd "------------"

Zahl = Pina
Zahl = Zahl And &B00001111
Locate 2 , 9
Lcd Zahl

Zahl1 = Pind
Zahl1 = Zahl1 And &B00001111
Locate 2 , 8
Lcd Zahl1

Zahl2 = Pinc
Zahl2 = Zahl2 And &B00001111
Locate 2 , 7
Lcd Zahl2

Waitms 150
Locate 2 , 7
Lcd " -"

Return


End