Single button function

[amgen]

I did a setup to check for...... short press, then 2 second or 5 second then long press to enter program mode, for next for the timing, then go on to next check and goto's

 FOR A1= 1 TO 5        '<.1 SECONDS FOR TIMER
 PAUSE 3 
 GOSUB RDSW
 if SWCH=0 then start
 NEXT A1
 HIGH 2
read 1,A4 :PAUSE 10: C1=60*A4:C2=C1      
                    
 FOR A1 = 1 TO 100       '2 SECONDS FOR 8 HR
 PAUSE 8
 GOSUB RDSW
 if SWCH=0 then TIMER
 NEXT A1
 C1=28800      '8 HRS
 HIGH 5                       
 
 FOR A1 = 1 TO 100        'CHECK FOR PROGRAM 5 SEC TOTAL
 PAUSE 40
 GOSUB RDSW
 if SWCH=0 then TIMER
 NEXT A1 
 LOW 2:GOTO PROGRAM

[Ioannis]

All the above methods block the program execution. If this is not a problem then it I guess ok.

But if the PIC must do other things, it is better to have a ticker in a timer interrupt routine and count up when a key is pressed. Periodically check the ticker for the required value and decide what to do.

That way, program does not stay in a closed loop until button release.

Ioannis