関 ハチミツ農園
プログラムの仕組み
１３００行までがメインルーチンで、あとはサブルーチンです。
@主な変数
Ｘ（６４） 蜂の巣の１から６４までのＸ座標
Ｙ（６４） Ｙ座標
ＸＸ（６４） コンピュータが、その番号の蜂の巣をとると
いくつの蜂の巣を落とすことができるか判定する
ための配列（Ｘ（６４）を移して使う）
Ｔ（１０） 蜂が入る蜂の巣の番号
Ｚ（２１９） 蜂のグラフィックが入る（GET@、PUT@用）
Ｓ１ あなたの落とした蜂の巣の数
Ｓ２ コンピュータの落とした蜂の巣の数
Ｌ コンピュータが落とせる蜂の巣の数を考える
蜂の巣の番号の最小値（スピードアップの為）
Ｇ 同上 最大値
Ａ 自分で落とそうとする蜂の巣の番号
ＨＮ コンピュータが考えた、自分で落とそうとする
番号（次に、Ａに代入される）
Ｚ 支えがなくなって落ちていく蜂の巣の数
ＣＳ 同上 （コンピュータが考え中に使用）
Ｒ フラグ
Ｕ 面の数（蜂の数と同じ）
ＵＵ 評価で面の数の増減をセット
Ｌ１，Ｌ２ 蜂の巣を書くときに利用
□□％ マウスで使用
Aフローチャート（もどき）
１ 準備（マウスの準備も含む）
２ タイトル画面 １９９０
３ 蜂を表示 １７４０
４ マウスを表示 ２２４０
５ あなたの番です
@ 落とす番号をマウスで入力
A 蜂を落としたか判断（蜂−＞評価） １５２０
B 落とす蜂の巣を消す １５５０
C 落ちていく蜂の巣を消す １６００
６ あなたとコンピュータの蜂の巣の数が６４なら評価へ
７ コンピュータ考え中
@ どれを落とすとたくさん落ちるか考える１３３０
A 蜂を落としたか判断（蜂−＞評価） １５２０
B 落とす蜂を消す １５５０
C 落ちていく蜂の巣を消す １６００
８ あなたとコンピュータの蜂の巣の数が６４未満なら５へ
９ 再挑戦？（Ｙ−＞２ Ｎ−＞終了）
Bデータの説明
１．２２７０行から２４８０行まで
１番の蜂の巣から６４番の蜂の巣まで、自分のまわりは何番の蜂の巣があるかというデータです。０は壁です。
例えば、２４００行の最初のは、
３２，４７，３３，４６，４１，３９ですが、これは４０番の蜂の巣のまわりには、この６つの番号の蜂の巣があることを表わしています。
これは、その蜂の巣が支えられているか、支えられていまいかを判断するときに使用します。
２．２４９０行から２６４０行まで
下手な絵ですが、蜂の絵です。
C改造のアドバイス
サブルーチン毎にまとまっているので、フローチャート（もどき）を参考にして、変えたいところをさがして変えてください。
@ 蜂の数を変えるには、１７５０行のＦＯＲ Ｉ＝１ ＴＯ Ｕ：…
Ｕに数字をプラスしてください。（例 Ｕ−＞Ｕ＋３）
A はじめに落ちる蜂の数の数を変えるには、１８００行の
ＦＯＲ Ｉ＝１ ＴＯ ５＋Ｕ の５＋Ｕを
０にすれば、１つも落ちない。数字にすれば、どの面でもその数字の分だけ落ちる。３＋Ｕにすれば、面の数たす３だけ落ちる。
B 蜂を落としてしまったときに、減点される数を１０から変更するには、１１４０行、１２２０行、１４９０行、１７００行の
□＝□−１０の１０を変えてください。
C 蜂の巣の落ちるスピードの遅速は、１５８０行の５００という数字を、大きくすれば遅く、小さくすれば速くなります。