%
;ExtInOut output 'running light'

#<loop> = 0
o20 repeat [20000]

#<loop> = [#<loop> + 1]
(status,Loop: #<loop,0>)

#<pinlast> = 0
#<pin> = 1
o100 while [#<pin> LT 32]
  #<_extout1|#<pinlast>> = 0
  #<_extout1|#<pin>> = 1
  G04 P0.02
  #<pinlast> = #<pin>
  #<pin> = [#<pin> + 1]
o100 endwhile

o100 while [#<pin> GT 1]
  #<_extout1|#<pinlast>> = 0
  #<_extout1|#<pin>> = 1
  G04 P0.02
  #<pinlast> = #<pin>
  #<pin> = [#<pin> - 1]
o100 endwhile

o20 endrepeat
#<_extout1> = 0
%
