AN #Reset //initial
JC A01
R #Timeout
L 0
T MD 0
T #Index
L 63
T #Endlamp

L 63
next: T MD 100
R M [MD 100]
L MD 100
LOOP next
JU A02

A01: A #Timeout //if timeout=0 restart the timer
JCN A02
R #Timeout

L #Endlamp //the last unlighted lamp
L 0
==I
JCN A04 //if endlamp=1, end the whole circulation
JU A02

A04: L #Index //the present lamp to be lighted
L #Endlamp
==I
JC A03

L #Index
L 0
==I
FP M 11.0
JCN A05
ITD
T MD 100
S M [MD 100]
JU A02


A05: L #Index
ITD
T MD 100
R M [MD 100]
L 1
+I
T #Index
ITD
T MD 100
S M [MD 100]
JU A02

A03: SET
L #Endlamp
L 1
-I
T #Endlamp
L 0
T #Index
ITD
T MD 100
S M [MD 100]
JU A02

A02: CLR


程序长了点，不过是好用的
In：reset
InOut: timeout
Stat:Index Endlamp