CALL(OKBEEP)
:WAIT1
V130=0
V120=0
V121=0
:WAIT2
V130=V120*256+V121+V130
JUMPIF(V130,=,0,WAIT2)
JUMPIF(V130,=,V34,KEY1)
JUMPIF(V130,=,V35,KEY2)
JUMPIF(V130,=,V36,KEY3)
JUMPIF(V130,=,V37,KEY4)
JUMPIF(V130,=,V38,KEY5)
JUMPIF(V130,=,V39,KEY6)
JUMPIF(V130,=,V40,KEY7)
JUMPIF(V130,=,V41,KEY8)
JUMPIF(V130,=,V42,KEY9)
JUMPIF(V130,=,2050,KEY1)
;v押したままのR1で前転
JUMPIF(V130,=,4098,KEY2)
;v押したままのR2で後転
JUMPIF(V130,=,514,KEY3)
;v押したままのL1でほふく前進
;
CALL(ERRBEEP)
JUMP(WAIT1)
:KEY1
;前転
MOVE(172,-384,888,413,1430,-32,2,2,2,3,-6,-1,4,3,2,-4,2,-3,0,-1406,-272,-754,348,-200,1500)
MOVE(330,-365,891,382,1428,-62,71,776,996,-941,47,-701,461,59,837,-1188,-845,52,21,-1405,-96,-757,326,-249,1500)
MOVE(635,-362,888,-352,1428,-684,54,874,1042,-1025,3,-676,627,20,962,-1111,-951,43,4,-1414,439,-979,351,-598,1500)
MOVE(1031,-412,966,-1013,1428,-1008,34,597,597,-878,3,-693,412,-26,802,-845,-670,0,-3,-1412,1000,-940,392,-1052,1500)
MOVE(1508,-410,962,-1015,1428,-1021,29,566,23,-418,-2,142,-239,-33,417,-124,-588,-10,-5,-1415,1001,-907,396,-1522,1500)
MOVE(1642,-409,957,-1016,1428,-940,33,-225,592,68,7,63,-242,-33,123,-51,-702,-8,1,-1414,1002,-908,396,-1654,1500)
MOVE(1648,-406,951,-1015,1428,-911,-71,-230,637,11,28,-195,-298,-31,-126,-698,60,59,-11,-1414,1002,-907,396,-1661,2400)
MOVE(1648,-406,951,-1015,1428,-911,-71,-20,637,11,28,155,-298,-31,-126,-698,60,59,-11,-1414,1002,-907,396,-1661,1500)
MOVE(1665,-410,934,-1015,1429,134,39,-159,898,37,-32,-75,-288,-59,-155,-1137,169,2,-45,-1415,1001,-884,394,-1678,3000)
MOVE(1937,-445,875,-234,1428,146,19,-226,933,-330,-24,-83,-30,-63,330,-1033,231,-27,-33,-1414,107,-928,394,-1932,3000)
MOVE(2078,-423,919,68,1423,158,14,-227,869,-759,-6,-436,450,-59,762,-847,232,-33,-40,-1406,-227,-956,361,-2182,3000)
MOVE(2400,-418,923,55,1423,159,52,-225,879,-986,4,-429,459,-30,998,-844,232,10,-39,-1405,-226,-955,361,-2400,3000)
MOVE(920,-418,923,55,1423,159,52,-225,879,-986,4,-429,459,-30,998,-844,232,10,-39,-1405,-226,-955,361,-920,1500)
MOVE(442,-445,925,-382,1423,-360,15,-225,870,-918,-6,-441,450,-58,928,-846,233,-32,-27,-1416,149,-849,359,-590,1500)
MOVE(-14,-445,925,-381,1423,265,-21,549,896,-893,-7,-531,452,-59,885,-931,-527,-57,-11,-1416,148,-849,361,-191,1500)
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)
V00=5
FJUMP
:KEY2
;こうてん
MOVE(-171,-272,896,-23,0,9,5,-6,6,-6,-7,-9,6,4,-8,-3,-5,-4,4,0,-54,-884,223,44,2400)
MOVE(-172,-272,896,-22,0,-380,-122,596,969,-600,-134,-391,186,109,517,-1151,-680,104,-4,1,-56,-884,224,51,2400)
MOVE(1921,-441,930,-258,0,-230,-145,586,1017,-617,-133,-434,254,123,526,-1161,-671,113,25,0,336,-1023,382,-1802,2400)
MOVE(1764,-446,924,-966,1,96,-15,-225,701,-197,6,-289,94,-7,202,-889,217,-47,-4,0,844,-863,420,-1799,2400)
MOVE(1705,-445,925,-966,0,83,-36,918,-202,94,5,-216,154,15,65,-881,210,-54,-10,0,885,-937,432,-1794,2400)
MOVE(1954,-454,893,-365,1,149,-42,857,-203,91,7,-214,31,10,813,-981,214,-51,-12,-3,440,-932,394,-1888,2400)
MOVE(1301,-450,925,-807,1,-18,-1,948,-165,63,0,-266,-312,7,-133,-236,-947,-34,19,-2,764,-876,442,-1354,2400)
MOVE(1658,-451,915,-650,1,-714,-2,894,-149,31,9,208,-310,10,-59,132,-885,-60,-5,0,642,-929,440,-1665,2400)
MOVE(1322,-453,963,-152,1,-453,12,883,-157,253,-7,231,-235,-14,-233,144,-872,-60,-38,-1,219,-933,427,-1308,2400)
MOVE(1573,-342,902,279,0,-905,2,746,-154,254,-7,-31,40,5,-232,127,-755,-11,13,0,-337,-893,386,-1613,2400)
MOVE(801,-295,903,279,1,-1012,-25,196,-172,254,-9,-17,-183,-7,-232,-121,-279,-28,-11,1,-332,-784,329,-907,2400)
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,2400)
V00=5
FJUMP
:KEY3
;ほふくぜんしん
MOVE(862,86,-112,-278,0,0,4,-2,6,5,-4,-10,6,8,-8,-8,4,-5,-1,0,170,-30,-44,-1280,2400)
MOVE(823,-353,-117,-280,0,-9,1,5,-6,-7,-9,3,-5,13,7,2,-7,-1,-1,1,86,-67,321,-992,2400)
MOVE(817,-352,-120,-278,-1,-27,-24,984,920,-695,-27,-738,812,-4,759,-869,-948,-22,9,2,83,-67,318,-991,2400)
MOVE(824,-360,-111,-287,-1,135,-29,1095,952,-1022,4,-400,366,0,1017,-960,-1056,-11,-4,1,84,-62,318,-984,2400)
MOVE(818,-371,-114,-296,0,194,-247,371,210,-1022,-7,-379,363,1,1019,-340,-433,181,-6,0,87,-66,325,-996,2400)
MOVE(988,343,-11,-641,0,69,-246,371,211,-1022,-7,-379,364,0,1019,-340,-433,181,-336,1,54,-151,382,-871,2400)
MOVE(1238,-305,105,-115,0,112,-243,372,209,-1012,-9,-383,372,-5,1015,-353,-427,178,-291,1,264,3,275,-486,2400)
MOVE(1147,-172,207,-41,0,74,-238,365,217,-1010,-9,-391,370,-2,1018,-364,-416,176,361,0,328,-81,-81,-483,2400)
MOVE(468,-217,243,-347,0,46,-235,334,234,-1012,-29,-400,374,3,1011,-367,-421,177,361,-1,-42,-317,335,-1176,2400)
MOVE(621,-37,110,-239,2,-131,-235,333,241,-1012,-36,-409,375,3,1009,-375,-414,178,-328,0,29,-468,406,-1063,2400)
MOVE(988,343,-11,-641,0,69,-246,371,211,-1022,-7,-379,364,0,1019,-340,-433,181,-336,1,54,-151,382,-871,2400)
MOVE(1238,-305,105,-115,0,112,-243,372,209,-1012,-9,-383,372,-5,1015,-353,-427,178,-291,1,264,3,275,-486,2400)
MOVE(1147,-172,207,-41,0,74,-238,365,217,-1010,-9,-391,370,-2,1018,-364,-416,176,361,0,328,-81,-81,-483,2400)
MOVE(468,-217,243,-347,0,46,-235,334,234,-1012,-29,-400,374,3,1011,-367,-421,177,361,-1,-42,-317,335,-1176,2400)
MOVE(621,-37,110,-239,2,-131,-235,333,241,-1012,-36,-409,375,3,1009,-375,-414,178,-328,0,29,-468,406,-1063,2400)
MOVE(988,343,-11,-641,0,69,-246,371,211,-1022,-7,-379,364,0,1019,-340,-433,181,-336,1,54,-151,382,-871,2400)
MOVE(1238,-305,105,-115,0,112,-243,372,209,-1012,-9,-383,372,-5,1015,-353,-427,178,-291,1,264,3,275,-486,2400)
MOVE(1147,-172,207,-41,0,74,-238,365,217,-1010,-9,-391,370,-2,1018,-364,-416,176,361,0,328,-81,-81,-483,2400)
MOVE(468,-217,243,-347,0,46,-235,334,234,-1012,-29,-400,374,3,1011,-367,-421,177,361,-1,-42,-317,335,-1176,2400)
MOVE(621,-37,110,-239,2,-131,-235,333,241,-1012,-36,-409,375,3,1009,-375,-414,178,-328,0,29,-468,406,-1063,2400)
MOVE(988,343,-11,-641,0,69,-246,371,211,-1022,-7,-379,364,0,1019,-340,-433,181,-336,1,54,-151,382,-871,2400)
MOVE(1238,-305,105,-115,0,112,-243,372,209,-1012,-9,-383,372,-5,1015,-353,-427,178,-291,1,264,3,275,-486,2400)
MOVE(1147,-172,207,-41,0,74,-238,365,217,-1010,-9,-391,370,-2,1018,-364,-416,176,361,0,328,-81,-81,-483,2400)
MOVE(468,-217,243,-347,0,46,-235,334,234,-1012,-29,-400,374,3,1011,-367,-421,177,361,-1,-42,-317,335,-1176,2400)
MOVE(621,-37,110,-239,2,-131,-235,333,241,-1012,-36,-409,375,3,1009,-375,-414,178,-328,0,29,-468,406,-1063,2400)
MOVE(356,-433,913,-667,1,196,-235,333,241,-1012,-36,-409,375,3,1009,-375,-414,178,-28,1,652,-899,371,-370,2400)
MOVE(805,-435,898,-117,1,-786,-251,278,359,-962,-179,-599,255,129,873,-759,-402,99,-50,0,191,-973,368,-737,2400)
MOVE(804,-435,898,-117,1,-867,-17,673,660,-1022,-16,-1005,939,10,996,-736,-693,-5,-50,0,190,-973,368,-737,2400)
MOVE(155,-338,1005,426,1,36,-17,674,660,-1021,-17,-1005,939,10,996,-736,-694,-4,14,-1,-352,-968,333,-103,2400)
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,2400)
V00=5
FJUMP
:KEY4
:KEY5
:KEY6
:KEY7
:KEY8
:KEY9
CALL(ERRBEEP)
JUMP(WAIT1)
;
: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
WAIT(30)
SOUND
WAIT(30)
RETURN