hi,
i did try to erase it... many times.
i am using the internal rc osc.
and here is my code:

upin var porta.0
dwnin var porta.1
upout var porta.4
dwnout var portc.4
ledout var porta.5

adcon0 = 0
ansel = 0
cmcon = 7

onbit var bit
i var byte
onbit = 0

main:
if upin = 1 then
low dwnout
onbit = 0
high upout
endif
if upin = 0 then low upout
if dwnin = 1 then goto float
goto main





float:
if onbit = 1 then goto main

for i = 1 to 100
if dwnin = 0 then
low dwnout
goto main
endif
next i
onbit = 1
high dwnout
goto main

dont laugh at my code. im not a (very good) programmer.
any ideas?