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

Code:
 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