SETPIN 33,INTL,SUB1,PULLUP

SUB SUB1
'Do your immediate button push stuff here
TIMER=0 'Ensure timer is zero before we start timing
DO
IF PIN(33) THEN 'Button released
FLAG=0 'Clear flag
EXIT DO 'Hop out of this loop
ENDIF
FLAG=1 'Set flag if button NOT released
LOOP UNTIL TIMER=2000 'End loop after two seconds
IF FLAG THEN 'We get here cos the button was held down for two seconds...
'Do your two-second code here
ENDIF
END SUB

SETPIN 14, INTL, sub1, PULLUP 'Button pressed once
'
DO
' do something
LOOP

SUB sub1
LOCAL cnt% = 0
DO
PAUSE 100
IF PIN(14) = 1 THEN EXIT DO
cnt% = cnt% + 1
LOOP UNTIL cnt% = 25
'
IF cnt% < 21 THEN
sub2
ELSE
sub3
END IF
END SUB

SUB sub2
PRINT "Switch on for less than 2 seconds"
END SUB

SUB sub3
PRINT "Switch on for more than 2 seconds"
END SUB