define OSC 4
arF var byte
bigArf var word
blinK var byte
output portc.6
output portd.0
clear 'sets variables to 0
main:
if blink < 4 then
high portd.0
pause 200
low portd.0
pause 200
blink = blink + 1
endif
arf = arf + 1
bigarf = bigarf + 1
serout2 portc.6, 16468, ["arf = ", dec arf, " bigarf = ", dec bigarf, 13, 10]
goto main