hallo, auf den ersten blick seh ich nen fehler im source:

On Int0 Rad 1

sollte On Int0 Rad1 sein, deine subs heisen auch so auserdem geht es in Bascom soweit ich weis nicht mit leerzeichen zwischendrin