define OSC 4
arF var byte
bigArf var word
blinK var byte
output portc.6
output portd.0
input portb.7
clear 'sets variables to 0
main:
if blink < 4 then
high portd.0
pause 200
low portd.0
pause 200
blink = blink + 1
endif
if portb.7 =1 then
bigarf = 0
high portd.0
endif
if bigarf > 65000 then
low portd.0
else
bigarf = bigarf + 1
endif
goto main