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

Input A
N = A

Print A

Bild   Johannes