; 鉄道模型プログラム(リモコン操作)
; リモコンの設定(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)

; 速度
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,=,V26,FWD)
JUMPIF(V130,=,V28,TPOINT1)
JUMPIF(V130,=,V30,BPOINT1)
JUMPIF(V130,=,V33,TPOINT3)
JUMPIF(V130,=,V31,BPOINT3)
JUMPIF(V130,=,V32,BACK)
JUMPIF(V130,=,V29,STOP)
JUMPIF(V130,=,V43,SOUND1)
JUMPIF(V130,=,V44,SOUND2)
JUMPIF(V130,=,V45,SOUND3)
CALL(ERRBEEP)
JUMP(LOOP)

:STOP
; 停止
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)

:FWD
; 前進
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)
JUMP(LOOP)

:BACK
; 前進
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)
JUMP(LOOP)

:TPOINT1
; ポイント1,2直進
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,800,800,X,X,V101)
JUMP(LOOP)

:BPOINT1
; ポイント1,2分岐
MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,-1000,-1000,X,X,V101)
JUMP(LOOP)

:TPOINT3
; ポイント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)
JUMP(LOOP)

:BPOINT3
; ポイント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)
JUMP(LOOP)

:SOUND1
; サウンド1
V01=0
V03=47
JUMP(PLAYSOUND)

:SOUND2
; サウンド2
V01=68
V03=68
JUMP(PLAYSOUND)

:SOUND3
; サウンド3
V01=154
V03=171
JUMP(PLAYSOUND)

:PLAYSOUND
V00=51
V02=0
V04=0
SOUND
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

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