S1=0,0,0  'I/O setup GP,LOW Active Sinking
S2=0,0,0
S3=0,0,0

PG 1           'Call subs based on input
LB aa
CL zx, I1=1
CL zy, I2=1
CL zz, I3=1
BR aa

LB zx          'perfom move on input 1=true
MR 51200
H
MR -51200
H
PR "Been there"
RT

LB zy          'perform series of moves: input 2=true
MR 20000
H
MR 50000
H
MR 70000
H
PR "Done that"
RT

LB zz          'perform series of moves: input 3=true
MR -20000
H
MR -50000
H
MR -70000
H
PR "Don't Need Tshirt..GOT MOD!"
RT

E
PG