monitor:
LCDOUT $FE,$80, " No Alarms"
LCDOUT $FE,$C0, " "
if alarm = 1 then
goto light
endif

if PORTA.0 = 0 thEN
alarm = 1
GOsub warning
endif
GOto monitor


This might be better.