投稿プログラム : フリーセル
2012年4月8日投稿 / 投稿者 : わかん / タグ : 投稿プログラム ゲーム トランプゲーム QRコード mkII専用
概要
普通のフリーセルです。フリーセルが分からない方はググってね。
残念ながらWindows付属のフリーセルのゲーム番号には対応していませんが、あらゆるカード配置でゲームが遊べます。
注意点
- 中断データ用にMEMファイルを2つ使います。また、プログラムの最初の方でLOADします。 ファイルの読み込み失敗のダイアログが煩わしい方は、空のファイルをFILE0$のファイル名（初期はMEM:FREECELL）でSAVEしておいてください。
- プログラム中にも注意書きがありますが、一部フォントをいじってます。上書きする際はパッケージパラメータ文字列に"80001000"を入れておくとよいでしょう。
遊び方
起動すると下画面に説明が出てきますのでそれを読んでください。
GAME IDについて
プログラム中に説明がありませんが、GAME IDはカードの初期配置を左上から横に読んで、各カードを下のように変換した文字列になります。
- │Ａ２３４５６７８９гＪＱＫ
- ─┼─────────────
- Я│〜。「」、・ヲアイウエオカ
- а│キクケコサシスセソタチツテ
- в│トナニヌネノハヒフヘホマミ
- б│ムメモヤユヨラリルレロワン
上記に無い文字列は無視されますのでSELECT GAMEで入力する際は分かりやすくスペースを挟むとよいでしょう。
ちなみに、SELECT GAMEで入力する時に出る分数は目安ですので、守らなくても、併せてちゃんとしたGAME IDになれば通ります。
ちなみにちなみに、SELECT GAMEの1つ目の入力で"ランダム"と入れればRANDOM GAMEが始まります。
スクリーンショット・動画
動作しているところを撮影した写真や動画があれば貼り付けてください。
QR コード
プチコンmkII 向けの QR コードです。
| 1/14 | 2/14 | 3/14 | 4/14 |
|---|---|---|---|
 |  |  |  |
| 5/14 | 6/14 | 7/14 | 8/14 |
 |  |  |  |
| 9/14 | 10/14 | 11/14 | 12/14 |
 |  |  |  |
| 13/14 | 14/14 | ||
 |  |
プログラムリスト
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＠ＴＩＴＬＥ
- ＣＬＥＡＲ：ＡＣＬＳ：ＰＮＬＴＹＰＥ”ＯＦＦ”
- ＬＯＣＡＴＥ ４，８
- ′””””””””””””””””””””””””””
- ？”┻┏┏┻┏┫┻┏┏┻┏┏┳┏┫┻┏┏┻ ┻ ”：？” ”；
- ？”┻┠┓┻┠┗┻┠┓┻┠┓┻ ┻┠┓┻ ┻ ”：？” ”；
- ？”┻ ┻┃┓┻ ┻ ┻ ┳┻ ┻ ┻ ”：？” ”；
- ？”┃ ┃ ┃┃┏┏┃┏┏ ┏━┃┏┏┃┏┏┃┏┏”
- ′””””””””””””””””””””””””””
- ′（Ｃ）ワカン
- ′カイヘン・リュウヨウ ハ コ゛シ゛ユウニ。
- ′チュウタ゛ン テ゛ータ セーフ゛ヨウノ
- ′ファイルヲ ２ツ シテイ。
- ＦＩＬＥ０＄＝”ＭＥＭ：ＦＲＥＥＣＥＬＬ”
- ＦＩＬＥ１＄＝”ＭＥＭ：ＦＲＥＥＣＥＬＵ”
- ′イチフ゛ テ゛フォルトトハ
- ′コトナル フォントカ゛ アリマス。
- ′ＣＨＲ＄（２２４）＝”■”′ミキ゛ムキ”▲”
- ′ＣＨＲ＄（２２５）＝”●”′ミキ゛ムキ ニシ゛ュウ”△”
- ′ＣＨＲ＄（２２７）＝”▼”′ニシ゛ュウ”△”
- ′ＣＨＲ＄（２２８）＝”□”′ミキ゛ムキ”△”
- ′ＣＨＲ＄（２４４）＝”г”′ヒトモシ゛テ゛”１０”
- ′ВВВВВВВВВВВВВВВВВ
- ′В ヘンスウ ナト゛ テイキ゛ В
- ′ВВВВВВВВВВВВВВВВВ
- ′ ０１２３４５６７８９ＡＢＣＤＥＦ
- Ｓ＄＝” Яавб”
- Ｒ＄＝” Ａ２３４５６７８９гＪＱＫ”
- ′┌────────────────────────┐
- ′│ソレソ゛レノ カ−ト゛ヲ ２ケタノ │
- ′│１６シンスウ（カ−ト゛コ−ト゛）テ゛ アラワス。│
- ′│＆Ｈ１０ ノ クライハ ス−ト、 │
- ′│＆Ｈ０１ ノ クライハ ランクヲ アラワス。 │
- ′│ＥＸ．”аＫ”＝＆Ｈ２Ｄ │
- ′└────────────────────────┘
- ＤＩＭ Ｆ［９，１９］：ＤＩＭ Ｐ［９］
- ′┌──────────────────┐
- ′│フィ−ルト゛ヲ アラワス ハイレツ。│
- ′│Ｆ［０］カ゛ フリ−セルヲ、 │
- ′│Ｆ［１］カラ Ｆ［９］マテ゛ カ゛ │
- ′│ソレソ゛レノ レツヲ アラワス。 │
- ′│ナカミハ カ−ト゛コ−ト゛。 │
- ′│スタックトシテ アツカウタメ、 │
- ′│Ｐ［］ニ ソレソ゛レノ レツノ │
- ′│スタックホ゜インタ ヲ カクノウ。 │
- ′└──────────────────┘
- ＤＩＭ Ｈ［４］
- ′┌─────────────────┐
- ′│ホ−ムセルヲ アラワス ハイレツ。│
- ′│ナカミハ イチハ゛ン ウエノ │
- ′│カ−ト゛ノ カ−ト゛コ−ト゛。 │
- ′└─────────────────┘
- ＵＬ＝１２９
- ＤＩＭ Ｕ［ＵＬ，３］
- ′┌─────────────────────────┐
- ′│ＵＮＤＯキノウノ タメノ ハイレツ。 │
- ′│Ｕ［？］ニ、 │
- ′│イト゛ウモト・イト゛ウサキ・イト゛ウマイスウ ノ │
- ′│クミヲ カクノウ。 │
- ′│イッハ゜イニ ナルト フルイ ホウカラ ウワカ゛キ│
- ′│シ゛ュンカン スルヨウニ ツカウ。 │
- ′│ＵＬハ キオクスル サイタ゛イノ ＵＮＤＯカイスウ│
- ′│（＋１）ヲ キメル テイスウ。 │
- ′└─────────────────────────┘
- ＧＯＳＵＢ＠ＩＮＩＴＩＡＬＩＺＥ
- ＧＯＴＯ＠ＭＥＮＵ
- ＠ＩＮＩＴＩＡＬＩＺＥ ′┐
- ′│ヘンスウ ショキカ。 │
- ′└────────────┘
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＦＯＲ Ｊ＝０ ＴＯ １８
- Ｆ［Ｉ，Ｊ］＝０
- ＮＥＸＴ
- Ｐ［Ｉ］＝０
- ＮＥＸＴ
- ＦＯＲ Ｉ＝０ ＴＯ ３
- Ｈ［Ｉ］＝１６＊Ｉ＋１６
- ＮＥＸＴ
- Ｃ＝１：Ｈ＝０
- ′┌─────────────────────┐
- ′│Ｃハ カ−ソル。 │
- ′│Ｈハ ツカンテ゛イル カ−ト゛。 │
- ′│イス゛レモ セイノ カス゛カ゛ レツヲ、 │
- ′│フノ カス゛カ゛ フリ−セルヲ アラワス。│
- ′│タタ゛シ Ｈ＝＝０ハ ツカンテ゛イル │
- ′│カ−ト゛カ゛ ナイコトヲ アラワス。 │
- ′└─────────────────────┘
- Ｍ＝３０
- ′┌───────────────────┐
- ′│ＢＧＭＰＬＡＹノ キョクハ゛ンコ゛ウ。│
- ′│タタ゛シ ３０ハ ＢＧＭＳＴＯＰ。 │
- ′└───────────────────┘
- Ｓ＝０
- ′┌─────────────────┐
- ′│テカス゛。 フリ−セルト レツノ │
- ′│ナカテ゛ イト゛ウスルト フエル。│
- ′└─────────────────┘
- Ｔ＝０
- ′┌──────────────────┐
- ′│ケ゛−ム スタ−トシ゛ノ シ゛コク。│
- ′└──────────────────┘
- Ｕ＝０：Ｒ＝０：Ｄ＝０
- ′┌───────────────────┐
- ′│Ｕハ ＵＮＤＯノ ケ゛ンカイ。 │
- ′│Ｒハ ＲＥＤＯノ ケ゛ンカイ。 │
- ′│Ｄハ ト゛コマテ゛ ＵＮＤＯ シタカ。│
- ′└───────────────────┘
- ＲＥＴＵＲＮ
- ′ВВВВВВВВВВВВВВВВВ
- ′В フ゜ロク゛ラム ホンリュウ В
- ′ВВВВВВВВВВВВВВВВВ
- ＠ＭＥＮＵ ′─────────┐
- ′│ケ゛−ム モ−ト゛ センタク。│
- ′└───────────────┘
- ＬＯＣＡＴＥ １０，１５：？”А：ＲＡＮＤＯＭ ＧＡＭＥ”
- ＬＯＣＡＴＥ １０，１６：？”Б：ＳＥＬＥＣＴ ＧＡＭＥ”
- Ａ＝０：ＧＯＳＵＢ＠ＭＡＮＵＡＬ
- ＳＹＳＢＥＥＰ＝０
- ＬＯＡＤ ＦＩＬＥ０＄，０
- ＳＹＳＢＥＥＰ＝１
- ＩＦ ＬＥＮ（ＭＥＭ＄）＝＝２３９ ＴＨＥＮ ＬＯＣＡＴＥ １０，１７：？”Ф：ＳＵＳＰＥＮＤＥＤ ＧＡＭＥ”
- ＠ＭＥＮＵ＿ＬＯＯＰ
- ＷＡＩＴ １０
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ ５ ＴＨＥＮ Ａ＝（Ａ＋３）％４：ＧＯＳＵＢ＠ＭＡＮＵＡＬ
- ＩＦ Ｂ ＡＮＤ １０ ＴＨＥＮ Ａ＝（Ａ＋１）％４：ＧＯＳＵＢ＠ＭＡＮＵＡＬ
- ＩＦ Ｂ ＡＮＤ １６ ＧＯＴＯ＠ＲＧＡＭＥ
- ＩＦ Ｂ ＡＮＤ ３２ ＧＯＴＯ＠ＳＧＡＭＥ
- ＩＦ ＬＥＮ（ＭＥＭ＄）＝＝２３９ ＴＨＥＮ ＩＦ Ｂ ＡＮＤ ６４ ＧＯＴＯ＠ＳＵＳＧＡＭＥ
- ＧＯＴＯ＠ＭＥＮＵ＿ＬＯＯＰ
- ＠ＲＧＡＭＥ ′───────────────┐
- ′│カ−ト゛ ハイチヲ ランタ゛ムテ゛ カイシ。│
- ′└──────────────────────┘
- Ｇ＄＝ ”〜。「」、・ヲアイウエオカ”
- Ｇ＄＝Ｇ＄＋”キクケコサシスセソタチツテ”
- Ｇ＄＝Ｇ＄＋”トナニヌネノハヒフヘホマミ”
- Ｇ＄＝Ｇ＄＋”ムメモヤユヨラリルレロワン”
- ＦＯＲ Ｉ＝０ ＴＯ ５０
- Ａ＝ＲＮＤ（５２−Ｉ）
- Ｇ＄＝ＬＥＦＴ＄（Ｇ＄，Ａ）＋ＭＩＤ＄（Ｇ＄，Ａ＋１，５１−Ａ）＋ＭＩＤ＄（Ｇ＄，Ａ，１）
- ＮＥＸＴ Ｉ
- ＧＯＴＯ＠ＤＥＡＬ
- ＠ＳＧＡＭＥ ′─────────────┐
- ′│カ−ト゛ ハイチヲ シテイシテ カイシ。│
- ′└────────────────────┘
- ＢＥＥＰ ３
- ＣＬＳ：ＰＮＬＴＹＰＥ”ＫＹＫ”
- ＠ＳＧＡＭＥ０
- ＩＮＰＵＴ”ＧＡＭＥ ＩＤ（２６／５２）”；Ｉ＄
- Ｇ＄＝Ｉ＄
- ＩＦ Ｇ＄＝＝”ランタ゛ム” ＧＯＴＯ＠ＲＧＡＭＥ
- ＩＮＰＵＴ”ＧＡＭＥ ＩＤ（５２／５２）”；Ｉ＄
- Ｇ＄＝Ｇ＄＋Ｉ＄＋” ”
- ＦＯＲ Ｉ＝０ ＴＯ ＬＥＮ（Ｇ＄）−１
- Ａ＝ＡＳＣ（ＭＩＤ＄（Ｇ＄，Ｉ，１））
- ＩＦ １５９＜Ａ ＡＮＤ Ａ＜１６７ ＴＨＥＮ ＮＥＸＴ
- ＩＦ １７６＜Ａ ＡＮＤ Ａ＜２２２ ＴＨＥＮ ＮＥＸＴ
- Ｇ＄＝ＬＥＦＴ＄（Ｇ＄，Ｉ）＋ＲＩＧＨＴ＄（Ｇ＄，ＬＥＮ（Ｇ＄）−１−Ｉ）
- Ｉ＝Ｉ−１
- ＮＥＸＴ
- ＩＦ ＬＥＮ（Ｇ＄）＜５２ ＴＨＥＮ ？”ＩＮＰＵＴ ＡＧＡＩＮ”：ＧＯＴＯ＠ＳＧＡＭＥ０
- ＦＯＲ Ｉ＝ＬＥＮ（Ｇ＄）−１ ＴＯ ０ ＳＴＥＰ −１
- ＩＦ ＩＮＳＴＲ（Ｇ＄，ＭＩＤ＄（Ｇ＄，Ｉ，１））！＝Ｉ ＴＨＥＮ Ｉ＝−１
- ＮＥＸＴ
- ＩＦ Ｉ＝＝−２ ＴＨＥＮ ？”ＩＮＰＵＴ ＡＧＡＩＮ”：ＧＯＴＯ＠ＳＧＡＭＥ０
- ＧＯＴＯ＠ＤＥＡＬ
- ＠ＳＵＳＧＡＭＥ ′───────────┐
- ′│チュウタ゛ンシタ ケ゛−ムヲ サイカイ。│
- ′└────────────────────┘
- Ｇ＄＝ＭＩＤ＄（ＭＥＭ＄，０，５２）
- ＦＯＲ Ｉ＝０ ＴＯ ３
- Ｋ＄＝ＭＩＤ＄（ＭＥＭ＄，Ｉ＋５２，１）
- ＩＦ Ｋ＄＝＝”０”ＴＨＥＮ ＣＣ＝１６＊Ｉ＋１６ ＥＬＳＥ ＧＯＳＵＢ＠ＫＡＮＡＴＯＣＣ
- Ｈ［Ｉ］＝ＣＣ
- ＮＥＸＴ
- ＦＯＲ Ｉ＝０ ＴＯ ８
- Ｘ＝Ｉ
- ＦＯＲ Ｊ＝０ ＴＯ １８
- Ｋ＄＝ＭＩＤ＄（ＭＥＭ＄，５６＋Ｉ＊１９＋Ｊ，１）
- ＧＯＳＵＢ＠ＫＡＮＡＴＯＣＣ
- ＩＦ ＣＣ＞０ ＴＨＥＮ Ｖ＝ＣＣ：ＧＯＳＵＢ＠ＰＵＳＨ
- ＮＥＸＴ
- ＮＥＸＴ
- Ｓ＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，２２７，６））
- Ｔ＝ＶＡＬ（ＭＩＤ＄（ＭＥＭ＄，２３３，６））
- ＳＹＳＢＥＥＰ＝０
- ＬＯＡＤ ＦＩＬＥ１＄，０
- ＳＹＳＢＥＥＰ＝１
- ＦＯＲ Ｉ＝０ ＴＯ ＬＥＮ（ＭＥＭ＄）−２ ＳＴＥＰ ２
- Ａ＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，Ｉ，１））
- Ｕ［Ｉ／２，０］＝ＦＬＯＯＲ（Ａ／１６）−８＋（Ａ＞１２７）
- Ｕ［Ｉ／２，１］＝Ａ％１６−８＋（Ａ％１６＞７）
- Ｕ［Ｉ／２，２］＝ＡＳＣ（ＭＩＤ＄（ＭＥＭ＄，Ｉ＋１，１））
- ＮＥＸＴ
- Ｒ＝Ｉ／２：Ｄ＝Ｒ
- ＧＯＴＯ＠ＳＴＡＲＴ
- ＠ＤＥＡＬ ′─────────────┐
- ′│Ｇ＄カラ カ−ト゛ ハイチヲ モトメ │
- ′│Ｆ［］ニ カ−ト゛コ−ト゛ヲ ハイチ。│
- ′└───────────────────┘
- ＰＮＬＴＹＰＥ”ＯＦＦ”
- ＦＯＲ Ｉ＝０ ＴＯ ５１
- Ｘ＝Ｉ％８＋１
- Ｋ＄＝ＭＩＤ＄（Ｇ＄，Ｉ，１）
- ＧＯＳＵＢ＠ＫＡＮＡＴＯＣＣ
- Ｖ＝ＣＣ
- ＧＯＳＵＢ＠ＰＵＳＨ
- ＮＥＸＴ
- ＠ＳＴＡＲＴ ′─────────┐
- ′│ヒョウシ゛ ナト゛ │
- ′│ケ゛−ム カイシ シ゛ュンヒ゛。│
- ′└────────────────┘
- ＢＧＭＰＬＡＹ ４：ＷＡＩＴ ２０
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＡＳＥ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＵＮＤＯ
- Ｔ＝ＭＡＩＮＣＮＴＬ−Ｔ
- ＠ＭＡＩＮ ′────────────┐
- ′│メインル−フ゜。 │
- ′│オシタ ホ゛タンニ ヨッテ センイ。│
- ′└──────────────────┘
- ＧＯＳＵＢ＠ＰＲＩＮＴＴＩＭＥ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＬＯＣＫ
- ＦＯＲ Ｉ＝０ ＴＯ ９
- ＮＥＸＴ
- ＷＡＩＴ １０
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １ ＧＯＴＯ＠ＵＰ
- ＩＦ Ｂ ＡＮＤ ２ ＧＯＴＯ＠ＤＯＷＮ
- ＩＦ Ｂ ＡＮＤ ４ ＧＯＴＯ＠ＬＥＦＴ
- ＩＦ Ｂ ＡＮＤ ８ ＧＯＴＯ＠ＲＩＧＨＴ
- ＩＦ Ｂ ＡＮＤ １６ ＧＯＴＯ＠ＡＢＴＮ
- ＩＦ Ｂ ＡＮＤ ３２ ＧＯＴＯ＠ＣＡＮＣＥＬ
- ＩＦ Ｂ ＡＮＤ ６４ ＧＯＴＯ＠ＴＯＨＣ
- ＩＦ Ｂ ＡＮＤ １２８ ＧＯＴＯ＠ＴＯＦＣ
- ＩＦ Ｂ ＡＮＤ ２５６ ＧＯＴＯ＠ＵＮＤＯ
- ＩＦ Ｂ ＡＮＤ ５１２ ＧＯＴＯ＠ＲＥＤＯ
- ＩＦ Ｂ ＡＮＤ １０２４ ＧＯＴＯ＠ＳＭＥＮＵ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＣＬＥＡＲ ′────────┐
- ′│クリア スルト トンテ゛クル。│
- ′└───────────────┘
- ＢＧＭＰＬＡＹ ５
- ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ １０，１１：？”Ｃ Ｌ Ｅ Ａ Ｒ ！！”
- ＬＯＣＡＴＥ １１，１３：？”А：ＮＥＷ ＧＡＭＥ”
- ＬＯＣＡＴＥ １１，１４：？”Б：ＥＮＤ ＧＡＭＥ”
- ＠ＣＬＥＡＲ＿ＬＯＯＰ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＬＯＣＫ
- ＷＡＩＴ １０
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １６ ＧＯＴＯ＠ＴＩＴＬＥ
- ＩＦ Ｂ ＡＮＤ ３２ ＧＯＴＯ＠ＦＩＮＩＳＨ
- ＧＯＴＯ＠ＣＬＥＡＲ＿ＬＯＯＰ
- ＠ＦＩＮＩＳＨ ′──────┐
- ′│フ゜ロク゛ラムヲ トシ゛ル。│
- ′└──────────────┘
- ＡＣＬＳ
- ＷＡＩＴ １０：ＢＧＭＳＴＯＰ
- ＥＮＤ
- ′ВВВВВВВВВВВВВ
- ′В ホ゛タン ハンノウ В
- ′ВВВВВВВВВВВВВ
- ＠ＵＰ ′↑──────────────────────
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＧＯＴＯ＠ＵＰ０
- ＩＦ ！Ｐ［０］ ＧＯＴＯ＠ＭＡＩＮ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｃ＝−（Ｃ＞Ｐ［０］）＊Ｐ［０］−（Ｃ＜＝Ｐ［０］）＊Ｃ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＵＰ０
- ＧＯＳＵＢ＠ＥＲＡＳＥＢＬＵＥＣＡＲＤＳ
- Ｎ＝Ｎ％Ｌ＋１
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＬＵＥＣＡＲＤＳ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＤＯＷＮ ′↓────────────────────
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＧＯＴＯ＠ＤＯＷＮ０
- ＩＦ ！Ｐ［０］ ＧＯＴＯ＠ＭＡＩＮ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｃ＝−（Ｃ＞Ｐ［０］）＊Ｐ［０］−（Ｃ＜＝Ｐ［０］）＊Ｃ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＤＯＷＮ０
- ＧＯＳＵＢ＠ＥＲＡＳＥＢＬＵＥＣＡＲＤＳ
- Ｎ＝（Ｎ＋Ｌ−２）％Ｌ＋１
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＬＵＥＣＡＲＤＳ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＬＥＦＴ ′←────────────────────
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＴＨＥＮ ＧＯＳＵＢ＠ＥＲＡＳＥＢＬＵＥＣＡＲＤＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- ＩＦ Ｃ＝＝−１ＴＨＥＮ Ｃ＝−Ｐ［０］−１
- ＩＦ Ｃ＝＝１ ＴＨＥＮ Ｃ＝９
- Ｃ＝Ｃ−ＳＧＮ（Ｃ）
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＧＯＴＯ＠ＣＨＥＣＫＢＬＵＥ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＲＩＧＨＴ ′→───────────────────
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＴＨＥＮ ＧＯＳＵＢ＠ＥＲＡＳＥＢＬＵＥＣＡＲＤＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｃ＝Ｃ＋ＳＧＮ（Ｃ）
- ＩＦ Ｃ＝＝−Ｐ［０］−１ ＴＨＥＮ Ｃ＝−１
- ＩＦ Ｃ＝＝９ ＴＨＥＮ Ｃ＝１
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＧＯＴＯ＠ＣＨＥＣＫＢＬＵＥ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＣＨＥＣＫＢＬＵＥ
- ＧＯＳＵＢ＠ＳＨＩＦＴＬＩＭＩＴ
- Ｎ＝１
- ＠ＣＨＥＣＫＢＬＵＥ＿ＬＯＯＰ
- ＩＦ Ｎ＞＝Ｌ ＧＯＴＯ＠ＣＨＥＣＫＢＬＵＥ＿ＯＵＴ
- Ｘ１＝Ｈ：Ｙ１＝Ｐ［Ｈ］−Ｎ−１
- Ｘ２＝Ｈ：Ｙ２＝Ｐ［Ｈ］−Ｎ
- ＧＯＳＵＢ＠ＪＵＤＧＥ
- ＩＦ ！Ｆ ＧＯＴＯ＠ＣＨＥＣＫＢＬＵＥ＿ＯＵＴ
- Ｎ＝Ｎ＋１
- ＧＯＴＯ＠ＣＨＥＣＫＢＬＵＥ＿ＬＯＯＰ
- ＠ＣＨＥＣＫＢＬＵＥ＿ＯＵＴ
- Ｌ＝Ｎ
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＬＵＥＣＡＲＤＳ
- ＧＯＴＯ＠ＭＯＶＥＥＮＤ
- ＠ＭＯＶＥＥＮＤ
- ＢＥＥＰ ２
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＡＢＴＮ ′А────────────────────
- ＧＯＴＯ”＠ＡＢＴＮ”＋ＳＴＲ＄（ＳＧＮ（Ｈ）＋１）
- ＠ＡＢＴＮ１ ′Ｈ＝＝０
- ＩＦ Ｃ＞０ＴＨＥＮ ＩＦ ！Ｐ［Ｃ］ＧＯＴＯ＠ＭＩＳＳ
- ＢＥＥＰ ３
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｈ＝Ｃ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＡＢＴＮ０ ′Ｈ＜０
- ＩＦ Ｃ＜０ ＧＯＴＯ＠ＭＩＳＳ
- Ｘ１＝Ｃ：Ｙ１＝Ｐ［Ｃ］−１：Ｘ２＝０：Ｙ２＝−Ｈ−１
- ＩＦ Ｐ［Ｃ］ ＴＨＥＮ ＧＯＳＵＢ＠ＪＵＤＧＥ：ＩＦ ！Ｆ ＧＯＴＯ＠ＭＩＳＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｕ０＝Ｈ：Ｕ１＝Ｃ：Ｕ２＝１
- ＧＯＳＵＢ＠ＭＡＲＫＵＮＤＯ
- Ｘ＝Ｘ２：Ｙ＝Ｙ２：ＧＯＳＵＢ＠ＩＮＴＥＲＣＥＰＴ
- Ｘ＝Ｘ１：ＧＯＳＵＢ＠ＰＵＳＨ
- ＧＯＴＯ＠ＥＮＤＡＢＴＮ
- ＠ＡＢＴＮ２ ′Ｈ＞０
- ＩＦ Ｃ＜０ ＧＯＴＯ＠ＭＩＳＳ
- ＩＦ ！Ｐ［Ｃ］ ＧＯＴＯ＠ＡＢＴＮ２＿ＯＵＴ
- ＧＯＳＵＢ＠ＳＨＩＦＴＬＩＭＩＴ
- Ｎ＝１
- ＠ＡＢＴＮ２＿ＬＯＯＰ
- Ｘ１＝Ｃ：Ｙ１＝Ｐ［Ｃ］−１：Ｘ２＝Ｈ：Ｙ２＝Ｐ［Ｈ］−Ｎ
- ＧＯＳＵＢ＠ＪＵＤＧＥ
- ＩＦ Ｆ ＧＯＴＯ＠ＡＢＴＮ２＿ＯＵＴ
- ＩＦ Ｎ＞＝Ｌ ＧＯＴＯ＠ＭＩＳＳ
- Ｘ１＝Ｘ２：Ｙ１＝Ｙ２−１
- ＧＯＳＵＢ＠ＪＵＤＧＥ
- ＩＦ ！Ｆ ＧＯＴＯ＠ＭＩＳＳ
- Ｎ＝Ｎ＋１
- ＧＯＴＯ＠ＡＢＴＮ２＿ＬＯＯＰ
- ＠ＡＢＴＮ２＿ＯＵＴ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｕ０＝Ｈ：Ｕ１＝Ｃ：Ｕ２＝Ｎ
- ＧＯＳＵＢ＠ＭＡＲＫＵＮＤＯ
- Ｘ１＝Ｈ：Ｘ２＝Ｃ：Ｋ＝Ｎ：ＧＯＳＵＢ＠ＳＨＩＦＴ
- ＠ＥＮＤＡＢＴＮ
- ＢＥＥＰ ３
- Ｎ＝０：Ｈ＝０
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- Ｓ＝Ｓ＋１：ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＣＡＮＣＥＬ ′Б──────────────────
- ＩＦ ！Ｈ ＧＯＴＯ＠ＭＡＩＮ
- ＢＥＥＰ ４
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＴＨＥＮ ＧＯＳＵＢ＠ＥＲＡＳＥＢＬＵＥＣＡＲＤＳ
- Ｈ＝０
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＴＯＨＣ ′Ф────────────────────
- ＧＯＴＯ”＠ＴＯＨＣ”＋ＳＴＲ＄（ＳＧＮ（Ｃ）＋１）
- ＠ＴＯＨＣ０ ′Ｃ＜０
- Ａ＝Ｆ［０，−Ｃ−１］：ＧＯＴＯ＠ＴＯＨＣ＿ＭＡＩＮ
- ＠ＴＯＨＣ２ ′Ｃ＞０
- ＩＦ Ｐ［Ｃ］＜１ ＧＯＴＯ＠ＭＩＳＳ
- Ａ＝Ｆ［Ｃ，Ｐ［Ｃ］−１］
- ＧＯＴＯ＠ＴＯＨＣ＿ＭＡＩＮ
- ＠ＴＯＨＣ１ ′Ｃ＝＝０
- ＧＯＴＯ＠ＭＩＳＳ
- ＠ＴＯＨＣ＿ＭＡＩＮ
- ＩＦ Ａ−Ｈ［Ａ／１６−１］！＝１ ＧＯＴＯ＠ＭＩＳＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｕ０＝Ｃ：Ｕ１＝−４−ＦＬＯＯＲ（Ａ／１６）：Ｕ２＝１
- ＧＯＳＵＢ＠ＭＡＲＫＵＮＤＯ
- Ｘ＝（Ｃ＞０）＊Ｃ
- ＩＦ Ｘ ＴＨＥＮ Ｙ＝Ｐ［Ｃ］ ＥＬＳＥ Ｙ＝−Ｃ−１
- ＧＯＳＵＢ＠ＩＮＴＥＲＣＥＰＴ
- Ｈ［Ａ／１６−１］＝Ｈ［Ａ／１６−１］＋１
- ＢＥＥＰ ７
- ＩＦ Ｃ＜−Ｐ［０］ ＴＨＥＮ Ｃ＝Ｃ＋２＋ＳＧＮ（Ｃ＋１）
- Ｈ＝０
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＩＦ Ｈ［０］＋Ｈ［１］＋Ｈ［２］＋Ｈ［３］＞２１１ ＧＯＴＯ＠ＣＬＥＡＲ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＴＯＦＣ ′Х────────────────────
- ＩＦ Ｐ［０］＞３ ＧＯＴＯ＠ＭＩＳＳ
- ＩＦ Ｃ＜１ ＧＯＴＯ＠ＭＩＳＳ
- ＩＦ ！Ｐ［Ｃ］ ＧＯＴＯ＠ＭＩＳＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- Ｕ０＝Ｃ：Ｕ１＝−Ｐ［０］−１：Ｕ２＝１
- ＧＯＳＵＢ＠ＭＡＲＫＵＮＤＯ
- Ｘ＝Ｃ：ＧＯＳＵＢ＠ＰＯＰ
- Ｘ＝０：ＧＯＳＵＢ＠ＰＵＳＨ
- ＢＥＥＰ ３
- Ｈ＝０
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- Ｓ＝Ｓ＋１：ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＵＮＤＯ ′К────────────────────
- ′レツ←レツ ＠ＵＮＤＯ→１→ ＠ＥＮＤＵＮＤＯ
- ′レツ←ＦＣ ＠ＵＮＤＯ→１→２→３→＠ＥＮＤＵＮＤＯ
- ′レツ←ＨＣ ＠ＵＮＤＯ→０→ ＠ＥＮＤＵＮＤＯ
- ′ＦＣ←レツ ＠ＵＮＤＯ→ ＠ＥＮＤＵＮＤＯ
- ′ＦＣ←ＨＣ ＠ＵＮＤＯ→０→３→ ＠ＥＮＤＵＮＤＯ
- ＩＦ Ｄ＝＝Ｕ ＧＯＴＯ＠ＭＩＳＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- ＢＥＥＰ ６
- Ｄ＝（Ｄ＋ＵＬ−１）％ＵＬ
- ＩＦ Ｕ［Ｄ，１］＜−４ ＧＯＴＯ＠ＵＮＤＯ０
- ＩＦ ０＜Ｕ［Ｄ，１］ ＧＯＴＯ＠ＵＮＤＯ１
- Ｘ＝０：ＧＯＳＵＢ＠ＰＯＰ
- Ｘ＝Ｕ［Ｄ，０］：ＧＯＳＵＢ＠ＰＵＳＨ
- Ｃ＝Ｕ［Ｄ，０］
- ＧＯＴＯ＠ＥＮＤＵＮＤＯ
- ＠ＵＮＤＯ０
- Ｖ＝Ｈ［−Ｕ［Ｄ，１］−５］
- Ｈ［−Ｕ［Ｄ，１］−５］＝Ｖ−１
- ＩＦ Ｕ［Ｄ，０］＜０ ＧＯＴＯ＠ＵＮＤＯ３
- Ｘ＝Ｕ［Ｄ，０］：ＧＯＳＵＢ＠ＰＵＳＨ
- ＧＯＴＯ＠ＥＮＤＵＮＤＯ
- ＠ＵＮＤＯ１
- ＩＦ Ｕ［Ｄ，０］＜０ ＧＯＴＯ＠ＵＮＤＯ２
- Ｘ１＝Ｕ［Ｄ，１］：Ｘ２＝Ｕ［Ｄ，０］：Ｋ＝Ｕ［Ｄ，２］
- ＧＯＳＵＢ＠ＳＨＩＦＴ
- Ｃ＝Ｕ［Ｄ，０］
- ＧＯＴＯ＠ＥＮＤＵＮＤＯ
- ＠ＵＮＤＯ２
- Ｘ＝Ｕ［Ｄ，１］：ＧＯＳＵＢ＠ＰＯＰ
- Ｃ＝Ｕ［Ｄ，０］
- ＠ＵＮＤＯ３
- Ｘ＝０：Ｙ＝−Ｕ［Ｄ，０］−１
- ＧＯＳＵＢ＠ＩＮＳＥＲＴ
- ＧＯＴＯ＠ＥＮＤＵＮＤＯ
- ＠ＥＮＤＵＮＤＯ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＧＯＳＵＢ＠ＰＲＩＮＴＵＮＤＯ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＲＥＤＯ ′н────────────────────
- ′レツ→レツ ＠ＲＥＤＯ→ ＠ＥＮＤＲＥＤＯ
- ′レツ→ＦＣ ＠ＲＥＤＯ→０→ ＠ＥＮＤＲＥＤＯ
- ′レツ→ＨＣ ＠ＲＥＤＯ→０→１→＠ＥＮＤＲＥＤＯ
- ′ＦＣ→レツ ＠ＲＥＤＯ→２→３→＠ＥＮＤＲＥＤＯ
- ′ＦＣ→ＨＣ ＠ＲＥＤＯ→２→１→＠ＥＮＤＲＥＤＯ
- ＩＦ Ｄ＝＝Ｒ ＧＯＴＯ＠ＭＩＳＳ
- ＧＯＳＵＢ＠ＥＲＡＳＥＣＵＲＳＯＲ
- ＢＥＥＰ ５
- ＩＦ Ｕ［Ｄ，０］＜０ ＧＯＴＯ＠ＲＥＤＯ２
- ＩＦ Ｕ［Ｄ，１］＜０ ＧＯＴＯ＠ＲＥＤＯ０
- Ｘ１＝Ｕ［Ｄ，０］：Ｘ２＝Ｕ［Ｄ，１］：Ｋ＝Ｕ［Ｄ，２］
- ＧＯＳＵＢ＠ＳＨＩＦＴ
- Ｃ＝Ｕ［Ｄ，１］
- Ｓ＝Ｓ＋１
- ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＴＯ＠ＥＮＤＲＥＤＯ
- ＠ＲＥＤＯ０
- Ｘ＝Ｕ［Ｄ，０］：ＧＯＳＵＢ＠ＰＯＰ
- ＩＦ Ｕ［Ｄ，１］＜−４ ＧＯＴＯ＠ＲＥＤＯ１
- Ｘ＝０：ＧＯＳＵＢ＠ＰＵＳＨ
- Ｃ＝Ｕ［Ｄ，１］
- Ｓ＝Ｓ＋１
- ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＴＯ＠ＥＮＤＲＥＤＯ
- ＠ＲＥＤＯ１
- Ｈ［−Ｕ［Ｄ，１］−５］＝Ｖ
- ＩＦ Ｃ＜＝−Ｐ［０］ ＴＨＥＮ Ｃ＝Ｃ＋２＋ＳＧＮ（Ｃ＋１）
- ＧＯＴＯ＠ＥＮＤＲＥＤＯ
- ＠ＲＥＤＯ２
- Ｘ＝０：Ｙ＝−Ｕ［Ｄ，０］−１
- ＧＯＳＵＢ＠ＩＮＴＥＲＣＥＰＴ
- ＩＦ ０＜Ｕ［Ｄ，１］ ＧＯＴＯ＠ＲＥＤＯ３
- ＧＯＴＯ＠ＲＥＤＯ１
- ＠ＲＥＤＯ３
- Ｘ＝Ｕ［Ｄ，１］：ＧＯＳＵＢ＠ＰＵＳＨ
- Ｃ＝Ｕ［Ｄ，１］
- Ｓ＝Ｓ＋１
- ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＴＯ＠ＥＮＤＲＥＤＯ
- ＠ＥＮＤＲＥＤＯ
- Ｄ＝（Ｄ＋１）％ＵＬ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- ＧＯＳＵＢ＠ＰＲＩＮＴＵＮＤＯ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＭＩＳＳ ′─────────────────────
- ＢＥＥＰ ４
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＳＭＥＮＵ ′ＳＴＡＲＴ───────────────
- Ｔ０＝ＭＡＩＮＣＮＴＬ
- ＢＥＥＰ １２
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＡＳＥ
- ＧＯＳＵＢ＠ＰＲＩＮＴＳＴＥＰＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＴＩＭＥ
- ＧＯＳＵＢ＠ＰＲＩＮＴＵＮＤＯ
- ＰＮＬＳＴＲ ２２，８，”←”，９
- ＰＮＬＳＴＲ ２６，８，”→”，９
- Ａ＝０
- ＠ＳＭＥＮＵ＿ＬＯＯＰ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＬＯＣＫ
- ＰＮＬＳＴＲ １８，９＋Ａ， ”А”，９
- ＰＮＬＳＴＲ １８，９＋（Ａ＋１）％６，”↓”，９
- ＰＮＬＳＴＲ １８，９＋（Ａ＋２）％６，” ”
- ＰＮＬＳＴＲ １８，９＋（Ａ＋３）％６，” ”
- ＰＮＬＳＴＲ １８，９＋（Ａ＋４）％６，” ”
- ＰＮＬＳＴＲ １８，９＋（Ａ＋５）％６，”↑”，９
- ＷＡＩＴ １０
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １ＴＨＥＮ ＢＥＥＰ ２：Ａ＝（Ａ＋５）％６
- ＩＦ Ｂ ＡＮＤ ２ＴＨＥＮ ＢＥＥＰ ２：Ａ＝（Ａ＋１）％６
- ＩＦ Ｂ ＡＮＤ ４ＴＨＥＮ Ｍ＝（Ｍ＋３０）％３１：ＧＯＳＵＢ＠ＢＧＭ
- ＩＦ Ｂ ＡＮＤ ８ＴＨＥＮ Ｍ＝（Ｍ＋１）％３１：ＧＯＳＵＢ＠ＢＧＭ
- ＩＦ Ｂ ＡＮＤ １６ＴＨＥＮ＠ＳＭＥＮＵ０
- ＧＯＴＯ＠ＳＭＥＮＵ＿ＬＯＯＰ
- ＠ＳＭＥＮＵ０
- ＢＥＥＰ １２
- ＩＦ Ａ ＴＨＥＮ＠ＳＭＥＮＵ１
- ＰＮＬＳＴＲ ２２，８，” ”
- ＰＮＬＳＴＲ ２６，８，” ”
- ＦＯＲ Ｉ＝９ ＴＯ １４
- ＰＮＬＳＴＲ １８，Ｉ，” ”
- ＮＥＸＴ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＡＲＤＳ
- ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- Ｔ＝Ｔ−Ｔ０＋ＭＡＩＮＣＮＴＬ
- ＠ＳＭＥＮＵ１
- ＯＮ Ａ ＧＯＴＯ＠ＲＥＴＭＡＩＮ，＠ＳＭＡＮＵＡＬ，＠ＲＥＴＲＹ，＠ＴＩＴＬＥ，＠ＳＵＳＰＥＮＤ，＠ＦＩＮＩＳＨ
- ＠ＢＧＭ
- ＩＦ Ｍ＝＝３０ ＴＨＥＮ ＢＧＭＳＴＯＰ ＥＬＳＥ ＢＧＭＰＬＡＹ Ｍ
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＧＭ
- ＧＯＴＯ＠ＳＭＥＮＵ＿ＬＯＯＰ
- ＠ＲＥＴＭＡＩＮ
- ＧＯＳＵＢ＠ＳＨＩＦＴＴＯＥＭＰＴＹ
- ＩＦ Ｆ ＴＨＥＮ ＧＯＳＵＢ＠ＰＲＩＮＴＢＬＵＥＣＡＲＤＳ
- ＧＯＴＯ＠ＭＡＩＮ
- ＠ＳＭＡＮＵＡＬ
- Ａ＝０：ＧＯＳＵＢ＠ＭＡＮＵＡＬ
- ＠ＳＭＡＮＵＡＬ＿ＬＯＯＰ
- ＰＮＬＳＴＲ １，２３，”ＰＵＳＨ Б ＴＯ ＲＥＴＵＲＮ”，９
- ＷＡＩＴ １０
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ ５ ＴＨＥＮ Ａ＝（Ａ＋３）％４：ＧＯＳＵＢ＠ＭＡＮＵＡＬ
- ＩＦ Ｂ ＡＮＤ １０ ＴＨＥＮ Ａ＝（Ａ＋１）％４：ＧＯＳＵＢ＠ＭＡＮＵＡＬ
- ＩＦ Ｂ ＡＮＤ ３２ ＧＯＴＯ＠ＳＭＥＮＵ
- ＧＯＴＯ＠ＳＭＡＮＵＡＬ＿ＬＯＯＰ
- ＠ＲＥＴＲＹ
- ＧＯＳＵＢ＠ＩＮＩＴＩＡＬＩＺＥ
- ＧＯＴＯ＠ＤＥＡＬ
- ＠ＳＵＳＰＥＮＤ
- ′ケ゛−ムキロク
- ＭＥＭ＄＝Ｇ＄
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＣＣ＝Ｈ［Ｉ］
- ＩＦ ＣＣ％１６＝＝０ ＴＨＥＮ Ｋ＄＝”０” ＥＬＳＥ ＧＯＳＵＢ＠ＣＣＴＯＫＡＮＡ
- ＭＥＭ＄＝ＭＥＭ＄＋Ｋ＄
- ＮＥＸＴ
- ＦＯＲ Ｉ＝０ ＴＯ ８
- ＦＯＲ Ｊ＝０ ＴＯ １８
- ＣＣ＝Ｆ［Ｉ，Ｊ］
- ＧＯＳＵＢ＠ＣＣＴＯＫＡＮＡ
- ＭＥＭ＄＝ＭＥＭ＄＋Ｋ＄
- ＮＥＸＴ
- ＮＥＸＴ
- ＭＥＭ＄＝ＭＥＭ＄＋ＲＩＧＨＴ＄（”０００００”＋ＳＴＲ＄（Ｓ），６）
- Ｔ＝Ｔ０−Ｔ
- ＭＥＭ＄＝ＭＥＭ＄＋ＲＩＧＨＴ＄（”０００００”＋ＳＴＲ＄（Ｔ），６）
- ＳＡＶＥ ＦＩＬＥ０＄
- ′ＵＮＤＯキロク
- ＭＥＭ＄＝””
- ＠ＳＵＳＰＥＮＤ＿ＬＯＯＰ
- ＩＦ Ｄ＝＝Ｕ ＧＯＴＯ＠ＳＵＳＰＥＮＤ＿ＯＵＴ
- ＩＦ ＬＥＮ（ＭＥＭ＄）＝＝２５６ ＧＯＴＯ＠ＳＵＳＰＥＮＤ＿ＯＵＴ
- Ｄ＝（Ｄ＋ＵＬ−１）％ＵＬ
- Ａ＝Ｕ［Ｄ，０］＋８−（Ｕ［Ｄ，０］＞０）
- Ａ＝Ｕ［Ｄ，１］＋８−（Ｕ［Ｄ，１］＞０）＋Ａ＊１６
- ＭＥＭ＄＝ＣＨＲ＄（Ａ）＋ＣＨＲ＄（Ｕ［Ｄ，２］）＋ＭＥＭ＄
- ＧＯＴＯ＠ＳＵＳＰＥＮＤ＿ＬＯＯＰ
- ＠ＳＵＳＰＥＮＤ＿ＯＵＴ
- ＳＡＶＥ ＦＩＬＥ１＄
- ＧＯＴＯ＠ＦＩＮＩＳＨ
- ′ВВВВВВВВВВВ
- ′В サフ゛ル−チン В
- ′ВВВВВВВВВВВ
- ＠ＫＡＮＡＴＯＣＣ ′────────────┐
- ′│ＧＡＭＥ ＩＤヨウノ カナ Ｋ＄ヲ イレルト│
- ′│カ−ト゛コ−ト゛ＣＣヲ ハク。 │
- ′└──────────────────────┘
- ＣＣ＝ＡＳＣ（Ｋ＄）−１７０
- ＣＣ＝ＣＣ＋（ＣＣ＜０）＊１０
- ＣＣ＝ＦＬＯＯＲ（ＣＣ／１３）＊１６＋ＣＣ％１３＋１７
- ＲＥＴＵＲＮ
- ＠ＣＣＴＯＫＡＮＡ ′───────────┐
- ′│カ−ト゛コ−ト゛ＣＣヲ イレルト │
- ′│ＧＡＭＥ ＩＤヨウノ カナ Ｋ＄ヲ ハク。│
- ′└─────────────────────┘
- ＣＣ＝ＣＣ−１７
- ＣＣ＝ＦＬＯＯＲ（ＣＣ／１６）＊１３＋ＣＣ％１６
- Ｋ＄＝ＣＨＲ＄（ＣＣ＋１７０−（ＣＣ＜７）＊１０）
- ＲＥＴＵＲＮ
- ′╂╂╂╂╂╂╂╂╂╂╂╂
- ′╂ スタック ソウサ ╂
- ′╂╂╂╂╂╂╂╂╂╂╂╂
- ＠ＰＵＳＨ ′───────────────┐
- ′│Ｖヲ スタック Ｆ［Ｘ］ノ ウエニ オク。│
- ′└─────────────────────┘
- Ｆ［Ｘ，Ｐ［Ｘ］］＝Ｖ
- Ｐ［Ｘ］＝Ｐ［Ｘ］＋１
- ＲＥＴＵＲＮ
- ＠ＰＯＰ ′───────────┐
- ′│スタック Ｆ［Ｘ］ノ ウエカラ │
- ′│ヒトツ トッテ Ｖニ イレル。 │
- ′└────────────────┘
- Ｐ［Ｘ］＝Ｐ［Ｘ］−１
- Ｖ＝Ｆ［Ｘ，Ｐ［Ｘ］］
- Ｆ［Ｘ，Ｐ［Ｘ］］＝０
- ＲＥＴＵＲＮ
- ＠ＩＮＳＥＲＴ ′────────────────┐
- ′│Ｖヲ スタック Ｆ［Ｘ］ノ Ｙハ゛ンメニ オク。│
- ′└────────────────────────┘
- ＦＯＲ Ｉ＝Ｐ［Ｘ］−１ ＴＯ Ｙ ＳＴＥＰ −１
- Ｆ［Ｘ，Ｉ＋１］＝Ｆ［Ｘ，Ｉ］
- ＮＥＸＴ
- Ｆ［Ｘ，Ｙ］＝Ｖ
- Ｐ［Ｘ］＝Ｐ［Ｘ］＋１
- ＲＥＴＵＲＮ
- ＠ＩＮＴＥＲＣＥＰＴ ′────────┐
- ′│スタック Ｆ［Ｘ］ノ Ｙハ゛ンメカラ │
- ′│ヒトツ トッテ Ｖニ イレル。 │
- ′└───────────────────┘
- Ｖ＝Ｆ［Ｘ，Ｙ］
- ＦＯＲ Ｉ＝Ｙ ＴＯ Ｐ［Ｘ］−２
- Ｆ［Ｘ，Ｉ］＝Ｆ［Ｘ，Ｉ＋１］
- ＮＥＸＴ
- Ｐ［Ｘ］＝Ｐ［Ｘ］−１
- Ｆ［Ｘ，Ｐ［Ｘ］］＝０
- ＲＥＴＵＲＮ
- ＠ＳＨＩＦＴ ′────────────┐
- ′│Ｘ１カラ Ｘ２ヘ Ｋマイ ウコ゛カス。│
- ′└───────────────────┘
- ＦＯＲ Ｉ＝Ｋ ＴＯ １ ＳＴＥＰ −１
- Ｖ＝Ｆ［Ｘ１，Ｐ［Ｘ１］−Ｉ］：Ｘ＝Ｘ２
- ＧＯＳＵＢ＠ＰＵＳＨ
- Ｆ［Ｘ１，Ｐ［Ｘ１］−Ｉ］＝０
- ＮＥＸＴ
- Ｐ［Ｘ１］＝Ｐ［Ｘ１］−Ｋ
- ＲＥＴＵＲＮ
- ′╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂
- ′╂ イト゛ウ ハンテイ カンケイ ╂
- ′╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂╂
- ＠ＳＨＩＦＴＴＯＥＭＰＴＹ ′────────┐
- ′│カ−ト゛ヲ カラノ レツニ イト゛ウシヨウト│
- ′│シタトキ Ｆカ゛ ＴＲＵＥ。 │
- ′│ソノトキタ゛ケ イト゛ウ マイスウノ │
- ′│センタクカ゛ ヒツヨウナ タメ。 │
- ′└──────────────────────┘
- Ｆ＝ＦＡＬＳＥ
- ＩＦ Ｃ＜１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｈ＜１ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ Ｐ［Ｃ］ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｆ＝ＴＲＵＥ
- ＲＥＴＵＲＮ
- ＠ＳＨＩＦＴＬＩＭＩＴ ′───────┐
- ′│サイタ゛イ ナンマイ ウコ゛カセルカヲ│
- ′│Ｌニ イレル。 │
- ′│カ−ト゛カ゛ ツナカ゛ルカハ │
- ′│ココテ゛ハ カンカ゛エナイ。 │
- ′└───────────────────┘
- Ｌ＝１
- ＦＯＲ Ｉ＝１ ＴＯ ８
- Ｌ＝Ｌ＊（１＋！Ｐ［Ｉ］）
- Ｉ＝Ｉ＋（Ｉ＝＝Ｃ−１）
- ＮＥＸＴ
- Ｌ＝Ｌ＊（５−Ｐ［０］）
- ＩＦ Ｌ＞Ｐ［Ｈ］ ＴＨＥＮ Ｌ＝Ｐ［Ｈ］
- ＲＥＴＵＲＮ
- ＠ＪＵＤＧＥ ′─────────────────┐
- ′│Ｆ［Ｘ１，Ｙ１］ ト Ｆ［Ｘ２，Ｙ２］ ノ │
- ′│カ−ト゛カ゛ ツナカ゛ルカ ヲ Ｆ ニ イレル。│
- ′└────────────────────────┘
- Ｆ＝（Ｆ［Ｘ１，Ｙ１］−Ｆ［Ｘ２，Ｙ２］＋６４）％３２＝＝１７
- ＲＥＴＵＲＮ
- ＠ＭＡＲＫＵＮＤＯ ′────────┐
- ′│Ｕ０，Ｕ１，Ｕ２ヲ Ｕ［］ニ イレテ│
- ′│Ｕ，Ｒ，Ｄヲ チョウセイ。 │
- ′└──────────────────┘
- Ｕ［Ｄ，０］＝Ｕ０：Ｕ［Ｄ，１］＝Ｕ１：Ｕ［Ｄ，２］＝Ｕ２
- Ｄ＝（Ｄ＋１）％ＵＬ：Ｒ＝Ｄ
- ＩＦ Ｕ＝＝Ｒ ＴＨＥＮ Ｕ＝（Ｕ＋１）％ＵＬ
- ＧＯＳＵＢ＠ＰＲＩＮＴＵＮＤＯ
- ＲＥＴＵＲＮ
- ′╂╂╂╂╂╂╂╂╂
- ′╂ ヒョウシ゛ ╂
- ′╂╂╂╂╂╂╂╂╂
- ＠ＰＲＩＮＴＢＡＳＥ ′────────────────
- ＣＬＳ：ＬＯＣＡＴＥ １６，０
- ＣＯＬＯＲ ０
- ？”［ ］［ ］［ ］［ ］”；
- ？”└ ↑Х ＦＲＥＥＣＥＬＬＳ ┘└ ↑Ф ＨＯＭＥＣＥＬＬＳ ┘”；
- ？”┌──────────────────────────────┐”
- ＬＯＣＡＴＥ ０，２３
- ？”└──────────────────────────────┘”；
- ＲＥＳＴＯＲＥ＠ＭＡＩＮＰＡＮＥＬ
- ＧＯＳＵＢ＠ＰＲＩＮＴＰＡＮＥＬ
- ＧＯＳＵＢ＠ＰＲＩＮＴＧＡＭＥＩＤ
- ＧＯＳＵＢ＠ＰＲＩＮＴＢＧＭ
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＰＡＮＥＬ ′───────────────
- ＦＯＲ Ｉ＝０ ＴＯ ２３
- ＲＥＡＤ Ａ＄
- ＰＮＬＳＴＲ ０，Ｉ，Ａ＄
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＭＡＮＵＡＬ ′───────────────────
- ＢＥＥＰ ９
- ＲＥＳＴＯＲＥ”＠ＨＯＷＴＯ”＋ＳＴＲ＄（Ａ）
- ＧＯＳＵＢ＠ＰＲＩＮＴＰＡＮＥＬ
- ＰＮＬＳＴＲ １８，２３，”←”，９
- ＰＮＬＳＴＲ ３１，２３，”→”，９
- ＲＥＴＵＲＮ
- ＠ＭＡＩＮＰＡＮＥＬ
- ＤＡＴＡ”К───ＵＮＤＯ ＲＥＤＯ───н”
- ＤＡＴＡ” ＴＯ ＨＯＭＥＣＥＬＬ──Ф ”
- ＤＡＴＡ” П──ＣＵＲＳＯＲ ＴＯ ＦＲＥＥＣＥＬＬ─Х А”
- ＤＡＴＡ” ＣＡＮＣＥＬ ＨＯＬＤ──Б│”
- ＤＡＴＡ” ＨＯＬＤ／ＳＨＩＦＴ ───┘”
- ＤＡＴＡ” ＣＡＲＤＳ ”
- ＤＡＴＡ” ”
- ＤＡＴＡ” ┌ＧＡＭＥ ＩＤ──┐ ┌ＳＴＡＲＴ────┐ ”
- ＤＡＴＡ” │ │ │ＢＧＭ │ ”
- ＤＡＴＡ” │ │ │ ＣＯＮＴＩＮＵＥ│ ”
- ＤＡＴＡ” │ │ │ ＨＯＷ ＴＯ │ ”
- ＤＡＴＡ” │ │ │ ＲＥＴＲＹ │ ”
- ＤＡＴＡ” │ │ │ ＮＥＷ ＧＡＭＥ│ ”
- ＤＡＴＡ” │ │ │ ＳＵＳＰＥＮＤ │ ”
- ＤＡＴＡ” │ │ │ ＥＮＤ ＧＡＭＥ│ ”
- ＤＡＴＡ” └─────────┘ └─────────┘ ”
- ＤＡＴＡ” ┌ＳＴＥＰＳ────┐ ┌ＴＩＭＥ─────┐ ”
- ＤＡＴＡ” │ │ │ │ ”
- ＤＡＴＡ” └─────────┘ └─────────┘ ”
- ＤＡＴＡ” ┌ＵＮＤＯ─────┐ ┌ＣＬＯＣＫ────┐ ”
- ＤＡＴＡ” │ к │ │ │ ”
- ＤＡＴＡ” └─────────┘ └─────────┘ ”
- ＤＡＴＡ” ”
- ＤＡＴＡ” ”
- ＠ＨＯＷＴＯ０
- ＤＡＴＡ”┌┤ＨＯＷ ＴＯ ＰＬＡＹ├─────────────────┐”
- ＤＡＴＡ”│＊モクテキ │”
- ＤＡＴＡ”│ スヘ゛テノ カ−ト゛ヲ カ゛メン ミキ゛ウエノ ホ−ムセ│”
- ＤＡＴＡ”│ ルニ イト゛ウ スルト クリア テ゛ス。 │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”│＊ケ゛−ムノ ハシ゛メカタ │”
- ＤＡＴＡ”│ タイトル カ゛メンテ゛ Аヲ オスト ランタ゛ムナ カ−│”
- ＤＡＴＡ”│ ト゛ ハイチテ゛ ケ゛−ムカ゛ ハシ゛マリマス。 │”
- ＤＡＴＡ”│ Бヲ オスト スキナ ケ゛−ムヲ フ゜レイ テ゛キマス。│”
- ＤＡＴＡ”│ カ−ト゛ ハイチヲ キメル ５２モシ゛ノ カナ モシ゛レツ│”
- ＤＡＴＡ”│ （ＧＡＭＥ ＩＤ）ヲ キ−ホ゛−ト゛カラ ニュウリョク シ│”
- ＤＡＴＡ”│ テクタ゛サイ。 │”
- ＤＡＴＡ”│ チュウタ゛ン テ゛−タカ゛ アル ハ゛アイ、 Фテ゛ ツ│”
- ＤＡＴＡ”│ ツ゛キヲ アソヘ゛マス。 │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”│＊カ−ト゛ノ ランク │”
- ＤＡＴＡ”│ Ｋ＞Ｑ＞Ｊ＞г＞９＞８＞７＞６＞５＞４＞３＞２＞Ａ │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”│＊カ−ト゛ノ ウコ゛カシカタ │”
- ＤＡＴＡ”│ レツハ キホンテキニ イチハ゛ンシタノ カ−ト゛ ノミ │”
- ＤＡＴＡ”│ イト゛ウ テ゛キマス。 │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”└──────────────────┐１┌┬─┬┬─┬┬─┬┘”
- ＤＡＴＡ” └─┘└─┘└─┘└─┘ ”
- ＠ＨＯＷＴＯ１
- ＤＡＴＡ”┌┤ＨＯＷ ＴＯ ＰＬＡＹ├─────────────────┐”
- ＤＡＴＡ”│１．ホ−ムセルニ イト゛ウ │”
- ＤＡＴＡ”│ ホ−ムセルニハ Ａカラ ランクノ チイサイ シ゛ュンニ │”
- ＤＡＴＡ”│ ス−ト コ゛トニ カ−ト゛ヲ オイテ イキマス。 シ゛ョウ│”
- ＤＡＴＡ”│ ケンヲ ミタシタ レツ マタハ フリ−セルノ カ−ト゛ニ │”
- ＤＡＴＡ”│ カ−ソルヲ アワセ Фヲ オスト、 ホ−ムセルニ イト゛ウ│”
- ＤＡＴＡ”│ テ゛キマス。 │”
- ＤＡＴＡ”│２．フリ−セルニ イト゛ウ │”
- ＤＡＴＡ”│ フリ−セルハ イチシ゛テキナ カ−ト゛ オキハ゛トシテ │”
- ＤＡＴＡ”│ ４マイマテ゛ カ−ト゛ヲ オケマス。 スキナ レツノ カ−│”
- ＤＡＴＡ”│ ト゛ニ カ−ソルヲ アワセ Хヲ オスト、 フリ−セルニ │”
- ＤＡＴＡ”│ イト゛ウ テ゛キマス。 │”
- ＤＡＴＡ”│３．レツニ イト゛ウ │”
- ＤＡＴＡ”│ レツノ イチハ゛ンシタノ カ−ト゛ト ス−トカ゛ イロチ│”
- ＤＡＴＡ”│ カ゛イ（Явナラаб、абナラЯв）テ゛ ランクカ゛ ヒト│”
- ＤＡＴＡ”│ ツ チイサイ カ−ト゛ヲ、 ホカノ レツヤ フリ−セルカラ│”
- ＤＡＴＡ”│ ソノ レツノ シタニ イト゛ウ テ゛キマス。 イト゛ウ シ│”
- ＤＡＴＡ”│ タイ カ−ト゛ニ カ−ソルヲ アワセ Аヲ オスト、 ソノ│”
- ＤＡＴＡ”│ カ−ト゛カ゛ センタク サレマス。 ソノ シ゛ョウタイテ゛│”
- ＤＡＴＡ”│ イト゛ウ サキノ レツニ カ−ソルヲ アワセ Аヲ オスト│”
- ＤＡＴＡ”│ カ−ト゛カ゛ イト゛ウ シマス。 ナオ、 Бヲ オスト セ│”
- ＤＡＴＡ”│ ンタクカ゛ キャンセル サレマス。 │”
- ＤＡＴＡ”└──────────────────┬─┬┐２┌┬─┬┬─┬┘”
- ＤＡＴＡ” └─┘└─┘└─┘└─┘ ”
- ＠ＨＯＷＴＯ２
- ＤＡＴＡ”┌┤ＨＯＷ ＴＯ ＰＬＡＹ├─────────────────┐”
- ＤＡＴＡ”│ レツカラ レツヘノ イト゛ウテ゛、 フリ−セルヤ カラノ│”
- ＤＡＴＡ”│ レツヲ リヨウスルト オナシ゛ レツニ スウマイヲ イト゛│”
- ＤＡＴＡ”│ ウ テ゛キル ハ゛アイ、 ソノ カテイヲ ショウリャクシテ│”
- ＤＡＴＡ”│ イチト゛ニ イト゛ウ テ゛キマス。 │”
- ＤＡＴＡ”│ マタ、 カラノ レツニハ シ゛ユウニ カ−ト゛ヲ イト゛│”
- ＤＡＴＡ”│ ウ テ゛キマス。 カ−ト゛ヲ センタクチュウニ カラノ レ│”
- ＤＡＴＡ”│ ツニ カ−ソルヲ アワセルト イト゛ウ テ゛キル カ−ト゛│”
- ＤＡＴＡ”│ カ゛ アオク ヒョウシ゛ サレマスノテ゛、 Пノ ↑↓テ゛│”
- ＤＡＴＡ”│ イト゛ウ マイスウヲ エランテ゛ Аヲ オシテ クタ゛サ │”
- ＤＡＴＡ”│ イ。 │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”│＊アント゛ゥ キノウニ ツイテ │”
- ＤＡＴＡ”│ Кヲ オスト イッテ モト゛セマス（アント゛ゥ）。 │”
- ＤＡＴＡ”│ нヲ オスト アント゛ゥ スルマエノ テヲ フタタヒ゛ │”
- ＤＡＴＡ”│ クリカエシマス（リト゛ゥ）。 │”
- ＤＡＴＡ”│ アント゛ゥハ １２８カイ マテ゛ キロク テ゛キマス。 │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”│＊スタ−ト メニュ− │”
- ＤＡＴＡ”│ ケ゛−ムチュウ ＳＴＡＲＴヲ オスト シタカ゛メンノ メ│”
- ＤＡＴＡ”│ ニュ−ヲ ソウサ テ゛キマス。 │”
- ＤＡＴＡ”│ ［ＢＧＭ］ Пノ ←→テ゛ ＢＧＭヲ エラヘ゛マス。 │”
- ＤＡＴＡ”└──────────────────┬─┬┬─┬┐３┌┬─┬┘”
- ＤＡＴＡ” └─┘└─┘└─┘└─┘ ”
- ＠ＨＯＷＴＯ３
- ＤＡＴＡ”┌┤ＨＯＷ ＴＯ ＰＬＡＹ├─────────────────┐”
- ＤＡＴＡ”│ ［ＣＯＮＴＩＮＵＥ］ ケ゛−ムヲ ツツ゛ケマス。 │”
- ＤＡＴＡ”│ ［ＨＯＷ ＴＯ］ ＨＯＷ ＴＯ ＰＬＡＹ ヲ ヒョウシ゛。│”
- ＤＡＴＡ”│ ［ＲＥＴＲＹ］ イマノ ケ゛−ムヲ サイショカラ ヤリナオ│”
- ＤＡＴＡ”│ シマス。 │”
- ＤＡＴＡ”│ ［ＮＥＷ ＧＡＭＥ］ イマノ ケ゛−ムヲ ヤメテ アタラシ│”
- ＤＡＴＡ”│ イ ケ゛−ムヲ ハシ゛メマス。 │”
- ＤＡＴＡ”│ ［ＳＵＳＰＥＮＤ］ イマノ ケ゛−ムヲ キロクシテ フ゜ロ│”
- ＤＡＴＡ”│ ク゛ラムヲ トシ゛マス。 │”
- ＤＡＴＡ”│ ［ＥＮＤ ＧＡＭＥ］ ケ゛−ムヲ ヤメテ フ゜ロク゛ラムヲ│”
- ＤＡＴＡ”│ トシ゛マス。 │”
- ＤＡＴＡ”│ │”
- ＤＡＴＡ”│＊ＳＴＥＰＳ ト ＴＩＭＥ │”
- ＤＡＴＡ”│ レツト ホ−ムセルノ アイタ゛テ゛ カ−ト゛ヲ イト゛ウ│”
- ＤＡＴＡ”│ シタ カイスウ（リト゛ゥヲ フクム）ヲ ＳＴＥＰＳ トシテ│”
- ＤＡＴＡ”│ ヒョウシ゛ シテイマス。 ヨリ スクナイ ＳＴＥＰＳ ヲ │”
- ＤＡＴＡ”│ メサ゛シマショウ。 │”
- ＤＡＴＡ”│ ケ゛−ム カイシ カラノ ヒ゛ョウスウヲ ＴＩＭＥ トシ│”
- ＤＡＴＡ”│ テ ヒョウシ゛ シテイマス。 ヨリ スクナイ ＴＩＭＥ ヲ│”
- ＤＡＴＡ”│ メサ゛シマショウ。 スタ−ト メニュ−ヲ ヒライテイル ア│”
- ＤＡＴＡ”│ イタ゛ハ ＴＩＭＥ カ゛ トマリマスカ゛ カ−ト゛モ ヒョ│”
- ＤＡＴＡ”│ ウシ゛ サレナクナリマス。 │”
- ＤＡＴＡ”└──────────────────┬─┬┬─┬┬─┬┐４┌┘”
- ＤＡＴＡ” └─┘└─┘└─┘└─┘ ”
- ＠ＰＲＩＮＴＣＡＲＤＳ ′───────────────
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＬＯＣＡＴＥ ４＊Ｉ＋１，０
- ＣＣ＝Ｆ［０，Ｉ］：ＧＯＳＵＢ＠ＰＲＩＮＴＡＣＡＲＤ
- ＮＥＸＴ Ｉ
- ＦＯＲ Ｉ＝０ ＴＯ ３
- ＬＯＣＡＴＥ ４＊Ｉ＋１７，０
- ＣＣ＝Ｈ［Ｉ］：ＧＯＳＵＢ＠ＰＲＩＮＴＡＣＡＲＤ
- ＮＥＸＴ Ｉ
- ＦＯＲ Ｉ＝１ ＴＯ ８
- ＦＯＲ Ｊ＝０ ＴＯ １８
- ＬＯＣＡＴＥ ４＊Ｉ−３，Ｊ＋３
- ＣＣ＝Ｆ［Ｉ，Ｊ］：ＧＯＳＵＢ＠ＰＲＩＮＴＡＣＡＲＤ
- ＮＥＸＴ Ｊ
- ＮＥＸＴ Ｉ
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＢＬＵＥＣＡＲＤＳ
- ＢＬＵＥ＝ＴＲＵＥ
- ＦＯＲ Ｉ＝１ ＴＯ Ｎ
- ＬＯＣＡＴＥ ４＊Ｃ−３，Ｎ−Ｉ＋４
- ＣＣ＝Ｆ［Ｈ，Ｐ［Ｈ］−Ｉ］：ＧＯＳＵＢ＠ＰＲＩＮＴＡＣＡＲＤ
- ＮＥＸＴ
- ＢＬＵＥ＝ＦＡＬＳＥ
- ＲＥＴＵＲＮ
- ＠ＥＲＡＳＥＢＬＵＥＣＡＲＤＳ
- ＦＯＲ Ｉ＝１ ＴＯ １３
- ＬＯＣＡＴＥ ４＊Ｃ−３，Ｉ＋３：？” ”
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＡＣＡＲＤ
- Ｃ＄＝ＭＩＤ＄（Ｓ＄，ＣＣ／１６，１）＋ＭＩＤ＄（Ｒ＄，ＣＣ％１６，１）
- ＩＦ ＣＣ ＡＮＤ １６ＴＨＥＮ ＣＯＬＯＲ ０ ＥＬＳＥ ＣＯＬＯＲ １２
- ＩＦ ＢＬＵＥ ＴＨＥＮ ＣＯＬＯＲ ９
- ？Ｃ＄；
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＣＵＲＳＯＲ ′──────────────
- ＣＯＬＯＲ ９
- ＧＯＴＯ”＠ＰＲＩＮＴＣＵＲＳＯＲ”＋ＳＴＲ＄（ＳＧＮ（Ｈ）＋１）
- ＠ＰＲＩＮＴＣＵＲＳＯＲ０ ′Ｈ＜０
- ＬＯＣＡＴＥ −４＊Ｈ−４，０
- ＩＦ Ｅ ＴＨＥＮ？” ” ＥＬＳＥ？”□”
- ＧＯＴＯ＠ＰＲＩＮＴＣＵＲＳＯＲ１
- ＠ＰＲＩＮＴＣＵＲＳＯＲ２ ′Ｈ＞０
- ＬＯＣＡＴＥ ４＊Ｈ−３，Ｐ［Ｈ］＋３
- ＩＦ Ｅ ＴＨＥＮ？” ” ＥＬＳＥ？”△”
- ＠ＰＲＩＮＴＣＵＲＳＯＲ１
- ＧＯＴＯ”＠ＰＲＩＮＴＣＵＲＳＯＲ”＋ＳＴＲ＄（ＳＧＮ（Ｃ）＋４）
- ＠ＰＲＩＮＴＣＵＲＳＯＲ３ ′Ｃ＞０
- ＬＯＣＡＴＥ −４＊Ｃ−４，０
- ＩＦ Ｅ ＴＨＥＮ？” ” ＥＬＳＥ？ＣＨＲ＄（２２４＋（Ｃ＝＝Ｈ））
- ＧＯＴＯ＠ＰＲＩＮＴＣＵＲＳＯＲ４
- ＠ＰＲＩＮＴＣＵＲＳＯＲ５ ′Ｃ＜０
- ＬＯＣＡＴＥ ４＊Ｃ−３，Ｐ［Ｃ］＋３
- ＩＦ Ｅ ＴＨＥＮ？” ” ＥＬＳＥ？ＣＨＲ＄（２２６＋（Ｃ＝＝Ｈ））
- ＠ＰＲＩＮＴＣＵＲＳＯＲ４
- ＲＥＴＵＲＮ
- ＠ＥＲＡＳＥＣＵＲＳＯＲ ′──────────────
- Ｅ＝ＴＲＵＥ：ＧＯＳＵＢ＠ＰＲＩＮＴＣＵＲＳＯＲ
- Ｅ＝ＦＡＬＳＥ：ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＧＡＭＥＩＤ ′──────────────
- ＦＯＲ Ｉ＝０ ＴＯ ６
- ＰＮＬＳＴＲ ５，８＋Ｉ，ＭＩＤ＄（Ｇ＄，８＊Ｉ ，４）
- ＰＮＬＳＴＲ １０，８＋Ｉ，ＭＩＤ＄（Ｇ＄，８＊Ｉ＋４，４）
- ＮＥＸＴ
- ＠ＰＲＩＮＴＢＧＭ ′─────────────────
- ＩＦ Ｍ＝＝３０ ＴＨＥＮ ＰＮＬＳＴＲ ２３，８，”ＯＦＦ”，０：ＲＥＴＵＲＮ
- ＰＮＬＳＴＲ ２３，８，” ”＋ＲＩＧＨＴ＄（”０”＋ＳＴＲ＄（Ｍ），２），０
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＳＴＥＰＳ ′───────────────
- ＰＮＬＳＴＲ ８，１７，ＲＩＧＨＴ＄（” ”＋ＳＴＲ＄（Ｓ），６），０
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＴＩＭＥ ′────────────────
- Ｔ＄＝ＳＴＲ＄（ＦＬＯＯＲ（（ＭＡＩＮＣＮＴＬ−Ｔ）／６０））
- Ｔ＄＝ＲＩＧＨＴ＄（” ”＋Ｔ＄，６）
- ＰＮＬＳＴＲ ２１，１７，Ｔ＄，０
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＵＮＤＯ ′────────────────
- ＰＮＬＳＴＲ ６，２０，ＲＩＧＨＴ＄（” ”＋ＳＴＲ＄（（Ｄ−Ｕ＋ＵＬ）％ＵＬ），３），０
- ＰＮＬＳＴＲ １１，２０，ＲＩＧＨＴ＄（” ”＋ＳＴＲ＄（（Ｒ−Ｕ＋ＵＬ）％ＵＬ），３），０
- ＲＥＴＵＲＮ
- ＠ＰＲＩＮＴＣＬＯＣＫ ′───────────────
- ＰＮＬＳＴＲ １９，２０，ＴＩＭＥ＄，０
- ＲＥＴＵＲＮ
CHECKER FLAG (ひとことコメント)
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
- 名無しさん : ＳUＧeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee (2012/04/12 (木) 21:12:42)
- 名無しさん : 何でこんなに綺麗にSS取れたの？もしかしてエミュ？ (2012/04/14 (土) 07:49:34)
- 名無しさん : ↑↑は? (2012/04/14 (土) 12:23:15)
- 名無しさん : すご(；・∀・) トランプのマークあるからなぁ トランプ作りたいって思ってたけど挫折してたから (2012/04/14 (土) 12:44:12)
- わかん : ただ単にペイントでポチポチ描き写しただけです＞SS (2012/04/15 (日) 23:45:35)
- 名無しさん : なんというww (2012/04/16 (月) 20:01:06)
- わぁぃ@ : ↑↑GRPに撮影するプログラムありますけどね。 (2012/04/16 (月) 21:10:05)
- わぁぃ@ : それにしても正確なSSですね。DSiブラウザーで見ると大きさがぴったりです。 (2012/04/16 (月) 21:13:27)
- 名無しさん : 1033行ｗｗｗｗｗうわあああああ (2012/08/27 (月) 09:00:45)
- かつみ : GAME IDを聞かれる際に、 GAME ID (26/52)？ ンワロレルリラヨユヤモメムミマホヘフヒハノネヌニナト GAME ID (52/52) テツチタソセスシサコケクキカオエウイアヲ・、」「。〜 と入力すると？ (2013/12/01 (日) 14:44:49)
- キャラクター製作所 : ↑*６その手があったとは・・・ (2014/11/14 (金) 20:28:35)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.175 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:20 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30