=begin
 
堀江伸一
casio basic language
FX-CG50グラフ電卓で動く、足して10を作るスライドパズル。
 
一桁の数字が7*7マスに49個並んでるので、スライドして数字を合計して１０を作るゲームです。
１０ができると数字が消えて得点が入ります。
 
操作方法
マス目選択モードと足し算モードがあります。
マス目選択モード（選択マスが緑）
2，4，6，8キーで上下左右移動、数字のあるマスで5キーを押すと足し算モードになります。
 
足し算モード（選択マスが赤）
赤色の選択マスの数字を2，4，6，8キーで上下左右に移動して１０を作ります。
移動先と選択マスの数字の和が11以上なら移動できません。
和が10なら数字が消えて得点が入ります。
和が９以下なら移動先でその数字になります。
空白マスは0として扱います。
５キーを押すとマス目選択モードに戻ります。
 
数字を合計10にして消してスコアを獲得し盤面の数字全消し１９０点を目指してください。
１０が作れないかの判定は行ってないので、作れなくなったらexeキーを押すとゲーム終了できます。
 
 
'ProgramMode:RUN
5->X
4->Y
0->T
0->K
0->S
0->A
0->B
 
[[10,9,8,4,2,3,5,4,10][10,1,5,1,2,2,1,1,10][10,2,7,2,6,6,9,3,10][10,2,8,2,4,5,3,2,10][10,1,1,1,7,1,4,4,10][10,7,8,2,5,2,3,5,10][10,3,4,3,5,7,3,5,10]]->Mat M
 
For 1->I To 7
For 1->J To 9
 
If Mat M[I,J]=10
Then 
 
Locate J,I,"_#E6A6_"
 
Else 
 
Locate J,I,Mat M[I,J]
 
IfEnd
 
Next
Next
Green Locate X,Y,Mat M[Y,X]
Locate 12,3,"SCORE"
Locate 12,4,0
While K<>31
 
If 16<T
Then 
0->T
 
Goto 0
Lbl 1
 
If A=0
Then 
 
Goto 2
Lbl 3
 
Else 
 
Goto 4
Lbl 5
 
IfEnd
Locate 12,4,S
0->K
IfEnd
 
If K=0
Then 
Getkey->K
IfEnd
 
T+1->T
 
WhileEnd
Goto 9
 
Lbl 0
 
X->V
Y->W
 
If K=53
Then 
X+1->X
IfEnd
 
If K=73
Then 
X-1->X
IfEnd
 
If K=62
Then 
Y+1->Y
IfEnd
 
If K=64
Then 
Y-1->Y
IfEnd
 
If (K=63) And (0<Mat M[W,V]) And (A=0)
Then 
1->A
 
Else 
 
If K=63 And A=1
Then 
0->A
IfEnd
IfEnd
 
If X<2 Or 8<X
Then 
V->X
IfEnd
 
If Y<1 Or 7<Y
Then 
W->Y
IfEnd
 
Goto 1
 
Lbl 2
 
Mat M[W,V]->P
Mat M[Y,X]->Q
 
If P=0
Then 
Locate V,W," "
Else 
Locate V,W,P
IfEnd
 
If Q=0
Then 
Green Locate X,Y,"_#E6A6_"
Else 
Green Locate X,Y,Q
IfEnd
 
Goto 3
 
Lbl 4
 
Mat M[W,V]->P
0->Mat M[W,V]
Mat M[Y,X]->Q
P+Q->R
Locate V,W," "
If R=10
Then 
Green Locate X,Y,"_#E6A6_"
0->Mat M[Y,X]
0->A
S+10->S
Else 
 
If 10<R
Then 
V->X
W->Y
P->Mat M[Y,X]
Red Locate X,Y,P
Else 
R->Mat M[Y,X]
Red Locate X,Y,R
IfEnd
 
IfEnd
 
 
 
Goto 5
 
Lbl 9
ClrText
Locate 3,3,"GAME CLEAR"
Locate 3,4,"SCORE"
Locate 3,5,S
=end
puts "casio basic language FX-CG50 グラフ電卓で動くスライドパズル"
 

PWJlZ2luCgrloIDmsZ/kvLjkuIAKY2FzaW8gYmFzaWMgbGFuZ3VhZ2UKRlgtQ0c1MOOCsOODqeODlembu+WNk+OBp+WLleOBj+OAgei2s+OBl+OBpjEw44KS5L2c44KL44K544Op44Kk44OJ44OR44K644Or44CCCgrkuIDmoYHjga7mlbDlrZfjgYw3Kjfjg57jgrnjgas0OeWAi+S4puOCk+OBp+OCi+OBruOBp+OAgeOCueODqeOCpOODieOBl+OBpuaVsOWtl+OCkuWQiOioiOOBl+OBpu+8ke+8kOOCkuS9nOOCi+OCsuODvOODoOOBp+OBmeOAggrvvJHvvJDjgYzjgafjgY3jgovjgajmlbDlrZfjgYzmtojjgYjjgablvpfngrnjgYzlhaXjgorjgb7jgZnjgIIKCuaTjeS9nOaWueazlQrjg57jgrnnm67pgbjmip7jg6Ljg7zjg4njgajotrPjgZfnrpfjg6Ljg7zjg4njgYzjgYLjgorjgb7jgZnjgIIK44Oe44K555uu6YG45oqe44Oi44O844OJ77yI6YG45oqe44Oe44K544GM57eR77yJCjLvvIw077yMNu+8jDjjgq3jg7zjgafkuIrkuIvlt6blj7Pnp7vli5XjgIHmlbDlrZfjga7jgYLjgovjg57jgrnjgac144Kt44O844KS5oq844GZ44Go6Laz44GX566X44Oi44O844OJ44Gr44Gq44KK44G+44GZ44CCCgrotrPjgZfnrpfjg6Ljg7zjg4nvvIjpgbjmip7jg57jgrnjgYzotaTvvIkK6LWk6Imy44Gu6YG45oqe44Oe44K544Gu5pWw5a2X44KSMu+8jDTvvIw277yMOOOCreODvOOBp+S4iuS4i+W3puWPs+OBq+enu+WLleOBl+OBpu+8ke+8kOOCkuS9nOOCiuOBvuOBmeOAggrnp7vli5XlhYjjgajpgbjmip7jg57jgrnjga7mlbDlrZfjga7lkozjgYwxMeS7peS4iuOBquOCieenu+WLleOBp+OBjeOBvuOBm+OCk+OAggrlkozjgYwxMOOBquOCieaVsOWtl+OBjOa2iOOBiOOBpuW+l+eCueOBjOWFpeOCiuOBvuOBmeOAggrlkozjgYzvvJnku6XkuIvjgarjgonnp7vli5XlhYjjgafjgZ3jga7mlbDlrZfjgavjgarjgorjgb7jgZnjgIIK56m655m944Oe44K544GvMOOBqOOBl+OBpuaJseOBhOOBvuOBmeOAggrvvJXjgq3jg7zjgpLmirzjgZnjgajjg57jgrnnm67pgbjmip7jg6Ljg7zjg4njgavmiLvjgorjgb7jgZnjgIIKCuaVsOWtl+OCkuWQiOioiDEw44Gr44GX44Gm5raI44GX44Gm44K544Kz44Ki44KS542y5b6X44GX55uk6Z2i44Gu5pWw5a2X5YWo5raI44GX77yR77yZ77yQ54K544KS55uu5oyH44GX44Gm44GP44Gg44GV44GE44CCCu+8ke+8kOOBjOS9nOOCjOOBquOBhOOBi+OBruWIpOWumuOBr+ihjOOBo+OBpuOBquOBhOOBruOBp+OAgeS9nOOCjOOBquOBj+OBquOBo+OBn+OCiWV4ZeOCreODvOOCkuaKvOOBmeOBqOOCsuODvOODoOe1guS6huOBp+OBjeOBvuOBmeOAggoKCidQcm9ncmFtTW9kZTpSVU4KNS0+WAo0LT5ZCjAtPlQKMC0+SwowLT5TCjAtPkEKMC0+QgoKW1sxMCw5LDgsNCwyLDMsNSw0LDEwXVsxMCwxLDUsMSwyLDIsMSwxLDEwXVsxMCwyLDcsMiw2LDYsOSwzLDEwXVsxMCwyLDgsMiw0LDUsMywyLDEwXVsxMCwxLDEsMSw3LDEsNCw0LDEwXVsxMCw3LDgsMiw1LDIsMyw1LDEwXVsxMCwzLDQsMyw1LDcsMyw1LDEwXV0tPk1hdCBNCgpGb3IgMS0+SSBUbyA3CkZvciAxLT5KIFRvIDkKCklmIE1hdCBNW0ksSl09MTAKVGhlbiAKCkxvY2F0ZSBKLEksIl8jRTZBNl8iCgpFbHNlIAoKTG9jYXRlIEosSSxNYXQgTVtJLEpdCgpJZkVuZAoKTmV4dApOZXh0CkdyZWVuIExvY2F0ZSBYLFksTWF0IE1bWSxYXQpMb2NhdGUgMTIsMywiU0NPUkUiCkxvY2F0ZSAxMiw0LDAKV2hpbGUgSzw+MzEKCklmIDE2PFQKVGhlbiAKMC0+VAoKR290byAwCkxibCAxCgpJZiBBPTAKVGhlbiAKCkdvdG8gMgpMYmwgMwoKRWxzZSAKCkdvdG8gNApMYmwgNQoKSWZFbmQKTG9jYXRlIDEyLDQsUwowLT5LCklmRW5kCgpJZiBLPTAKVGhlbiAKR2V0a2V5LT5LCklmRW5kCgpUKzEtPlQKCldoaWxlRW5kCkdvdG8gOQoKTGJsIDAKClgtPlYKWS0+VwoKSWYgSz01MwpUaGVuIApYKzEtPlgKSWZFbmQKCklmIEs9NzMKVGhlbiAKWC0xLT5YCklmRW5kCgpJZiBLPTYyClRoZW4gClkrMS0+WQpJZkVuZAoKSWYgSz02NApUaGVuIApZLTEtPlkKSWZFbmQKCklmIChLPTYzKSBBbmQgKDA8TWF0IE1bVyxWXSkgQW5kIChBPTApClRoZW4gCjEtPkEKCkVsc2UgCgpJZiBLPTYzIEFuZCBBPTEKVGhlbiAKMC0+QQpJZkVuZApJZkVuZAoKSWYgWDwyIE9yIDg8WApUaGVuIApWLT5YCklmRW5kCgpJZiBZPDEgT3IgNzxZClRoZW4gClctPlkKSWZFbmQKCkdvdG8gMQoKTGJsIDIKCk1hdCBNW1csVl0tPlAKTWF0IE1bWSxYXS0+UQoKSWYgUD0wClRoZW4gCkxvY2F0ZSBWLFcsIiAiCkVsc2UgCkxvY2F0ZSBWLFcsUApJZkVuZAoKSWYgUT0wClRoZW4gCkdyZWVuIExvY2F0ZSBYLFksIl8jRTZBNl8iCkVsc2UgCkdyZWVuIExvY2F0ZSBYLFksUQpJZkVuZAoKR290byAzCgpMYmwgNAoKTWF0IE1bVyxWXS0+UAowLT5NYXQgTVtXLFZdCk1hdCBNW1ksWF0tPlEKUCtRLT5SCkxvY2F0ZSBWLFcsIiAiCklmIFI9MTAKVGhlbiAKR3JlZW4gTG9jYXRlIFgsWSwiXyNFNkE2XyIKMC0+TWF0IE1bWSxYXQowLT5BClMrMTAtPlMKRWxzZSAKCklmIDEwPFIKVGhlbiAKVi0+WApXLT5ZClAtPk1hdCBNW1ksWF0KUmVkIExvY2F0ZSBYLFksUApFbHNlIApSLT5NYXQgTVtZLFhdClJlZCBMb2NhdGUgWCxZLFIKSWZFbmQKCklmRW5kCgoKCkdvdG8gNQoKTGJsIDkKQ2xyVGV4dApMb2NhdGUgMywzLCJHQU1FIENMRUFSIgpMb2NhdGUgMyw0LCJTQ09SRSIKTG9jYXRlIDMsNSxTCj1lbmQKcHV0cyAiY2FzaW8gYmFzaWMgbGFuZ3VhZ2UgRlgtQ0c1MCDjgrDjg6njg5Xpm7vljZPjgafli5XjgY/jgrnjg6njgqTjg4njg5Hjgrrjg6siCg==