Ich habe selber eine Lösung gefunden
Dim N as Eram Byte
Dim A as Byte

Input A
N = A

Print A

Johannes