%
;ExtInOut output 'running light'

#<loop> = 0
o20 repeat [20000]

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

#<pin> = 0
o100 while [#<pin> LT 31]
  #<_extout1> = [2 ** #<pin>]
  G04 P0.02
  #<pin> = [#<pin> + 1]
o100 endwhile

o100 while [#<pin> GE 1]
  #<_extout1> =[2 ** #<pin>]
  G04 P0.02
  #<pin> = [#<pin> - 1]
o100 endwhile

o20 endrepeat
#<_extout1> = 0
%
