%
;Ext1 output 'running light'
;  M64 arguments:
;    M64 H<ssel> Q<value> [L<length>]

#<loop> = 0
o20 repeat [2]

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

#<pin> = 0
o100 while [#<pin> LT 31]
  M64 H1 Q[2 ** #<pin>] L4
  G04 P0.1
  #<pin> = [#<pin> + 1]
o100 endwhile

o100 while [#<pin> GE 1]
  M64 H1 Q[2 ** #<pin>] L4
  G04 P0.1
  #<pin> = [#<pin> - 1]
o100 endwhile

o20 endrepeat
M64 H1 Q0 L4
%
