Strange happenings PBP and 12F683

[Jerson]

Wouldn't this work? You have it in Erase already.

MAIN:   IF TRIGR=1 THEN     
            PAUSE 10
            GOSUB PLAY
            while TRIGR=1:wend                   'block till the key is released
            ENDIF
        IF CONTROL=0 THEN   
            PAUSE 10
            GOSUB RECORD
            while CONTROL=0:wend                   'block till the key is released
            ENDIF
        IF ACTIVE=0 THEN    
            PAUSE 10
            GOSUB MANUAL
            while ACTIVE=0:wend                   'block till the key is released
            ENDIF
        GOTO MAIN