Hallo paul-stanley,

also, ich weiß nicht so ganz genau, was du da machen willst.
PA1 scheint einmal ein Eingang, dann wieder Ausgang zu sein, zumindest in deinem Code-Fragment.

Aber zu deiner eigentlichen Frage:
Das Speichern von Werten (z.B. in Test1) im EEPROM geht ja in Bascom leicht:
Dim Eeprom_test1 as Eram Byte
Dim Test1 As Byte

Am Programmanfang:
Test1 = Eeprom_test1
If Test1 = 255 Then 'EEPROM leer: Standardwerte annehmen!
Test1 = Standardwert
Eeprom_test1 = Standardwert
End If

Am Programmende bzw. da, wo Test1 gesichert werden soll:
Eeprom_test1 = Test1

Gruß Dirk