; 鉄道模型プログラム(センサーテスト3)
;サーボ切替速度(最速)
V101=10
; 前進、全ポイント直進
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,600,-1000,-1000,900,X,760)
V100=5
CALL(WAITLOOP)
; ポイント3分岐
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,-1200,X,X,X,X,V101)
:SENSORLOOP
V111=INPUTADC(3)
JUMPIF(V111,=,255,SENSORLOOP)
; 停止
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,0,X,V101)
V100=5
CALL(WAITLOOP)
; 後進
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,-900,X,V101)
V100=4
CALL(WAITLOOP)
; ポイント3直進
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,600,X,X,X,X,V101)
V100=5
CALL(WAITLOOP)
; 停止
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,0,X,V101)

JUMP(LOOP)

;============================
;SUBROUTINE
;============================ 
:WAITLOOP
;V100秒WAIT
WAIT(200)
V100=V100-1
JUMPIF(V100,>,0,WAITLOOP)
RETURN