Code:
Start:

serin PORTA.3,0,100,time,["READY"],timeset,b1 'Read receiver
gosub disply

time:
b2 = b2 + 1
if b2 > 200 and timeset > 0 and b1 = 1 then
timeset = timeset - 1
b2 = 0
endif
if timeset = 0 then b1 = 0
goto start


try

Start:

'serin PORTA.3,0,100,time,["READY"],timeset,b1 'Read receiver
serin PORTA.3, 0, 100, time, next, ["READY"], timeset, b1 'Read receiver
gosub disply

time:
b2 = b2 + 1
if b2 > 200 and timeset > 0 and b1 = 1 then
timeset = timeset - 1
b2 = 0
endif
if timeset = 0 then b1 = 0

next:
goto start