mindの研究 その72

# 概要
mindが、謎なので調べてみた。
練習問題やってみた。

# 練習問題
mindで、ブロック崩しを書け。

# サンプルコード

```

場は　３０８個の　変数。


バイト化とは
　変換後は　文字列実体
　数１は　変数
　数１に　入れ
　変換後を　クリア
　数１を　０ＦＦＨと　ANDし　変換後に　一文字追加し
　変換後を　返すこと
。

メインとは
　数１は　変数
　数２は　変数
　数３は　変数
　数４は　変数
　数５は　変数
　数９は　変数
　数１０は　変数
　数１１は　変数
　数１２は　変数
　数１３は　変数
　結果は　変数
　ターゲットは　変数
　結果xは　変数
　結果yは　変数
　-11をつみ
　"kernel32"と　"GetStdHandle"で　ＡＰＩ呼出し１　結果に　入れ
　エラー？
　ならば
　　エラー文字列を　一行表示し　終り
　つぎに
　結果を　ターゲットに　入れ
　結果を　数値表示し　改行し
　ターゲットをつみ
　結果xの　アドレスをつみ
　"kernel32"と　"GetConsoleMode"で　ＡＰＩ呼出し２　結果に　入れ
　エラー？
　ならば
　　エラー文字列を　一行表示し　終り
　つぎに
　結果xを　００４Ｈと　ORし　結果xに　入れ
　結果xを　数値表示し　改行し
　ターゲットをつみ
　結果xをつみ
　"kernel32"と　"SetConsoleMode"で　ＡＰＩ呼出し２　結果に　入れ
　エラー？
　ならば
　　エラー文字列を　一行表示し　終り
　つぎに
※____________________________
※[  ww  ww  ww  ww  ww  ww  ]
※[  ww  ww  ww  ww  ww  ww  ]
※[                          ]
※[                          ]
※[                          ]
※[               o          ]
※[                          ]
※[                          ]
※[       __                 ]
※[__________________________]

　２８を　回数指定し
　　回数を　数１に　入れ
　　場(数１)に　１を　入れ
　繰り返し

　２６を　回数指定し
　　回数に　２８１を　加え　数１に　入れ
　　場(数１)に　１を　入れ
　繰り返し

　１０を　回数指定し
　　回数に　２８を　掛け　１を　加え　数１に　入れ
　　場(数１)に　２を　入れ
　　数１に　２７を　加え　数１に　入れ
　　場(数１)に　３を　入れ
　繰り返し

　６を　回数指定し
　　回数に　４を　掛け　２８を　加え　数１に　入れ
　　場(数１)に　４を　入れ
　　数１に　１を　加え　数１に　入れ
　　場(数１)に　４を　入れ
　　数１に　２７を　加え　数１に　入れ
　　場(数１)に　４を　入れ
　　数１に　１を　加え　数１に　入れ
　　場(数１)に　４を　入れ
　繰り返し
　場(２７０)に　５を　入れ
　場(２７１)に　５を　入れ
　場(１５６)に　６を　入れ
　数９に　２９を　入れ
　数１０に　２７０を　入れ
　数１１に　２７１を　入れ
　数１２に　１５６を　入れ
　数１３に　０を　入れ

　　ここから
　　27を　バイト化し　表示し　「[1;1H」を　表示し
　　27を　バイト化し　表示し　「[2J」を　表示し
　　１１を　回数指定し
　　　回数を　数１に　入れ
　　　２８を　回数指定し
　　　　数１に　２８を　掛け　回数を　加え　２８を　引き　数２に　入れ
　　　　もし　場（数２）が　０に　等しい
　　　　ならば
　　　　　「 」を　表示し
　　　　つぎに
　　　　もし　場（数２）が　１に　等しい
　　　　ならば
　　　　　「_」を　表示し
　　　　つぎに
　　　　もし　場（数２）が　２に　等しい
　　　　ならば
　　　　　「[」を　表示し
　　　　つぎに
　　　　もし　場（数２）が　３に　等しい
　　　　ならば
　　　　　「]」を　表示し
　　　　つぎに
　　　　もし　場（数２）が　４に　等しい
　　　　ならば
　　　　　「w」を　表示し
　　　　つぎに
　　　　もし　場（数２）が　５に　等しい
　　　　ならば
　　　　　「-」を　表示し
　　　　つぎに
　　　　もし　場（数２）が　６に　等しい
　　　　ならば
　　　　　「o」を　表示し
　　　　つぎに
　　　繰り返し
　　　改行し
　　繰り返し

　　37をつみ
　　"user32"と　"GetKeyState"で　ＡＰＩ呼出し１　結果に　入れ
　　エラー？
　　ならば
　　　「エラー文字列」を　一行表示し　終り
　　つぎに
　　結果が　１より　大きい　かつ　数１０が　２５４より　大きい
　　ならば
　　　場(数１０)に　０を　入れ
　　　場(数１１)に　０を　入れ
　　　数１０から　２を　引き　数１０に　入れ
　　　数１１から　２を　引き　数１１に　入れ
　　　場(数１０)に　５を　入れ
　　　場(数１１)に　５を　入れ
　　つぎに

　　39をつみ
　　"user32"と　"GetKeyState"で　ＡＰＩ呼出し１　結果に　入れ
　　エラー？
　　ならば
　　　「エラー文字列」を　一行表示し　終り
　　つぎに
　　結果が　１より　大きい　かつ　数１０が　２７８より　小さい
　　ならば
　　　場(数１０)に　０を　入れ
　　　場(数１１)に　０を　入れ
　　　数１０に　２を　加え　数１０に　入れ
　　　数１１に　２を　加え　数１１に　入れ
　　　場(数１０)に　５を　入れ
　　　場(数１１)に　５を　入れ
　　つぎに

　　場(数１２)に　数１３を　入れ
　　数１２に　数９を　加え　数１２に　入れ
　　数１３に　場(数１２)を　入れ
　　場(数１２)に　６を　入れ

※+ +  -29 -27
※ o
※+ +  27  29

　　もし　数１３が　１に　等しい　かつ　数１２が　２７０より　大きい
　　ならば
　　　打ち切り
　　つぎに

　　もし　数１３が　１に　等しい
　　ならば
　　　もし　数９が　－２９に　等しい
　　　ならば
　　　　数９に　２７を　入れ
　　　さもなければ
　　　　数９に　２９を　入れ
　　　つぎに
　　つぎに

　　もし　数１３が　２に　等しい
　　ならば
　　　もし　数９が　－２９に　等しい
　　　ならば
　　　　数９に　－２７を　入れ
　　　さもなければ
　　　　数９に　２９を　入れ
　　　つぎに
　　つぎに

　　もし　数１３が　３に　等しい
　　ならば
　　　もし　数９が　－２７に　等しい
　　　ならば
　　　　数９に　－２９を　入れ
　　　さもなければ
　　　　数９に　２７を　入れ
　　　つぎに
　　つぎに

　　もし　数１３が　４に　等しい
　　ならば
　　　数１３に　０を　入れ
　　　数１２から　１を　引き　数３に　入れ
　　　もし　場(数３)が　４に　等しい
　　　ならば
　　　　場(数３)に　０を　入れ
　　　つぎに
　　　数１２に　１を　加え　数３に　入れ
　　　もし　場(数３)が　４に　等しい
　　　ならば
　　　　場(数３)に　０を　入れ
　　　つぎに
　　つぎに

　　もし　数１２が　数１０に　等しい
　　ならば
　　　もし　数９が　２７に　等しい
　　　ならば
　　　　数９に　－２９を　入れ
　　　さもなければ
　　　　数９に　－２７を　入れ
　　　つぎに
　　つぎに

　　もし　数１２が　数１１に　等しい
　　ならば
　　　　もし　数９が　２７に　等しい
　　　ならば
　　　　数９に　－２９を　入れ
　　　さもなければ
　　　　数９に　－２７を　入れ
　　　つぎに
　　つぎに

　　一秒待つ
　繰り返し
「game over」を　一行表示
。






```

# 実行結果

```
____________________________
[  ww  ww  ww  ww  ww  ww  ]
[  ww  ww  ww  ww  ww      ]
[                          ]
[                          ]
[                          ]
[                          ]
[                          ]
[                          ]
[                o --      ]
[__________________________]
game over

```

以上。