Not sure...but I think the code might be hanging here
I do not see anything else at the moment.
Code:
goto nice

tag_correct
low porta.4
high porta.5

freqout porta.5,2000*/$100,880*/$100
lcdout $FE,1,"Correct take"
lcdout $FE,$c0,"Medicine!!"
high portc.3
second = second + 1
pause 3000

goto mainloop