Kenn zwar kein Bascom, aber müsste man nicht was in der Art
Code:
do
  pin=pinx.x
  if (pin=1) and (pinold=0) then
    ...
  end if
  pinold=pin
loop
schreiben?