Deine Soft schaut ein wenig 'grausam aus....gosub....gosub usw.
Aber egal.

Im Kopf:
Config Pinc.0 = Input 'Taster 1

Im Programstart/Init:
Portc.0 = 1 'Taster 1 Pullup auf + setzen.

Das klappt bei mir und sollte auch bei Dir gehen.

Gento