'pianta

cond
  *310
  6000
  >
start
  50
  .repro
  store
  20
  .aimdx
  store
stop

cond
  *.shup
  -1
  =
start
  20
  .dx
  store
stop

cond
  *.shdn
  -1
  =
start
  20
  .sx
  store
stop

cond
  *.shsx
  -1
  =
start
  20
  .up
  store
stop

cond
  *.shdx
  -1
  =
start
  20
  .dn
  store
stop
end
