// 値の代入
--| SM402 |--[MOV K0 Z1]
-------------[FOR K801]
-+-| SM402 |--[+ Z1 K1 D0]
|
|-----[MOV D0 D3000Z1]
|
|-----[INC Z1]
-------------[NEXT]
// D3000～D3800で999の値を探す
--| SM400 |--[MOV K0 Z1]
--| SM402 |--[RST M0]
-------------[FOR K801]
--| SM400 |--[= D3000Z1 K999]--(M0)
--| M0 |--[BREAK D100 P1]
--| SM400 |--[INC Z1]
-------------[NEXT]
P1
--| SM400 |--| M0 |--(Y0)
-------------------------------[END]