; 転車台プログラム ; リモコンの設定(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=0 V102=0 ; 速度係数 V103=10 ; 正回転補正 V104=0 ; 逆回転補正 V105=0-20 MOVE(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3000) CALL(OKBEEP) :LOOP V130=0 :MAINKEYWAITLOOP JUMPIF(V130,#,0,MAINKEYANZ) JUMP(MAINKEYWAITLOOP) :MAINKEYANZ JUMPIF(V130,=,V29,EXIT) JUMPIF(V130,=,V34,KEY1) JUMPIF(V130,=,V35,KEY2) JUMPIF(V130,=,V36,KEY3) JUMPIF(V130,=,V37,KEY4) JUMPIF(V130,=,V38,KEY5) JUMPIF(V130,=,V43,KEYA) JUMPIF(V130,=,V44,KEYB) CALL(ERRBEEP) JUMP(LOOP) :KEY1 ; 1番正転 V100=285 JUMPIF(V102,=,0,TURN) ; 1番反転 V100=0-1515 JUMP(TURN) :KEY2 ; 2番正転 V100=15 JUMPIF(V102,=,0,TURN) ; 2番反転 V100=0-1785 JUMP(TURN) :KEY3 ; 3番正転 V100=495 JUMPIF(V102,=,0,TURN) ; 3番反転 V100=0-1315 JUMP(TURN) :KEY4 ; 4番正転 V100=360 JUMPIF(V102,=,0,TURN) ; 4番反転 V100=0-1440 JUMP(TURN) :KEY5 ; 5番正転 V100=580 JUMPIF(V102,=,0,TURN) ; 5番反転 V100=0-1230 JUMP(TURN) :KEYA ; 正転 V102=0 CALL(OKBEEP) JUMP(LOOP) :KEYB ; 反転 V102=1 CALL(OKBEEP) JUMP(LOOP) :TURN V106=V100 JUMPIF(V100,<,V101,RTURN) V106=V106+V104 V107=V100 V107=V107-V101 JUMP(DOTURN) :RTURN V106=V106+V105 V107=V101 V107=V107-V100 :DOTURN V107=V107*V103 MOVE(X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,V106,V107) V101=V100 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