; 鉄道模型プログラム(自動走行)
; リモコンの設定(Aモードのみ対応)
V25=0-5120
V00=21
V01=25
V02=26
:KEYDATASETLOOP
(V02=(V01 + 1
V01=V01 + 1
V02=V02 + 1
V00=V00 - 1
JUMPIF(V00,>,0,KEYDATASETLOOP)

:START
; 速度
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,0,X,760)
CALL(OKBEEP)

:LOOP
V130=0
:MAINKEYWAITLOOP
JUMPIF(V130,#,0,MAINKEYANZ)
JUMP(MAINKEYWAITLOOP)

:MAINKEYANZ
JUMPIF(V130,=,V27,EXIT)
JUMPIF(V130,=,V29,START)
JUMPIF(V130,=,V34,PROGRAM1)
CALL(ERRBEEP)
JUMP(LOOP)

:PROGRAM1
V130=0
; 前進
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=8
CALL(WAITLOOP)
; ポイント1分岐
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,800,X,X,V101)
V100=5
CALL(WAITLOOP)
; ポイント2分岐
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,800,X,X,X,V101)
V100=15
CALL(WAITLOOP)
; ポイント1直進
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,-1000,X,X,V101)
V100=5
CALL(WAITLOOP)
; ポイント2直進
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,-1000,X,X,X,V101)
V100=10
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=10
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)
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)
V100=5
CALL(WAITLOOP)
; サウンド3
V00=51
V01=154
V02=0
V03=171
V04=0
SOUND
V100=9
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=10
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
;============================ 
:OKBEEP
V00=62
V01=192
V02=0
V03=20
V04=0
SOUND
WAIT(100)
RETURN

:ERRBEEP
V00=62
V01=213
V02=0
V03=20
V04=0
SOUND
RETURN

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

:EXIT
V0=0
V1=0
V2=0
V3=0
V4=0
SOUND
V00=5
FJUMP