投稿プログラム : サンプル2改造スーパーニコチャン

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:04
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/A5-B9-A1-BC-A5-D1-A1-BC-A5-CB-A5-B3-A5-C1-A5-E3-A5-F3-20-28-A5-B5-A5-F3-A5-D7-A5-EB-2B2-FE-C2-A4-29-.html
概要
QRコード
プログラムリスト
CHECKER FLAG (ひとことコメント)
2012年07月07日投稿 / 投稿者 : Uxtuno_ / タグ : 投稿プログラム QRコードサンプルツールインタプリタ
概要

プチコンの「SAMPLE2」を改造して自由に計算式を入れられるようにしました。
プチコンで使用可能な演算子は大体使えると思います。
関数には対応してません。
ちょっと計算している雰囲気を出すためにあえてウエイトをかけています。
QRコード

PRG:UX_SMPL2
1/5	2/5

3/5	4/5

5/5
プログラムリスト

’┌─────────────────┐
’│ＳＡＭＰＬＥ２（カイソ゛ウ）　　　│
’└─────────────────┘
ＶＩＳＩＢＬＥ　１，１，０，０，０，０
ＣＬＳ：ＣＯＬＯＲ　０：ＣＬＥＡＲ
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＩＮＩＴ
ＰＲＩＮＴ”┌───────────────────────────┐”
ＰＲＩＮＴ”│ケイサンＣＯＭＰＵＴＥＲ（ス－ハ゜－ニコチャンлЖк）│”
ＰＲＩＮＴ”└───────────────────────────┘”
ＰＲＩＮＴ”Ж：コンニチハ　ニコチャンテ゛ス”
ＰＲＩＮＴ”Ж：ホ゛クノシツモンニ　コタエテネ”
’－－－
＠ＬＯＯＰ
ＰＲＩＮＴ
ＣＯＬＯＲ　９
ＩＮＰＵＴ”Ж：ケイサンシキ　ヲ　ニュウリョクシテネ”；Ｓ＄
Ｆ２＝ＴＲＵＥ
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ

’－－－
＠ＭＡＲＫ
ＣＯＬＯＲ　０
ＰＲＩＮＴ”Ж：ケイサンチュウ　テ゛ス”
ＷＡＩＴ　６０
ＣＯＬＯＲ　０
ＩＦ　！ＥＲ　ＴＨＥＮ　ＰＲＩＮＴ”Ж：オコタエシマス・・・”
’－－－
ＩＦ　ＥＲ　ＴＨＥＮ　ＧＯＴＯ　＠ＳＫＩＰ
ＣＯＬＯＲ　７
？Ｒ＄
ＧＯＴＯ　＠ＬＯＯＰ

＠ＳＫＩＰ
ＢＥＥＰ　４
ＰＲＩＮＴ”Ё：ワカリマセン・・”
ＰＲＩＮＴ
ＧＯＴＯ　＠ＬＯＯＰ
’－－－
＠ＰＬＵＳ
ＰＲＩＮＴ　ＮＯ１；”＋”；ＮＯ２；”＝”；ＮＯ１＋ＮＯ２
ＧＯＴＯ　＠ＬＯＯＰ
’－－－
＠ＭＩＮＵＳ
ＰＲＩＮＴ　ＮＯ１；”－”；ＮＯ２；”＝”；ＮＯ１－ＮＯ２
ＧＯＴＯ　＠ＬＯＯＰ
’－－－
＠ＤＩＶ
ＰＲＩＮＴ　ＮＯ１；”／”；ＮＯ２；”＝”；ＮＯ１／ＮＯ２
ＧＯＴＯ　＠ＬＯＯＰ
’－－－
＠ＭＯＤ
ＰＲＩＮＴ　ＮＯ１；”％”；ＮＯ２；”＝”；ＮＯ１％ＮＯ２
ＧＯＴＯ　＠ＬＯＯＰ
’－－－
＠ＭＵＬ
ＰＲＩＮＴ　ＮＯ１；”ｘ”；ＮＯ２；”＝”；ＮＯ１＊ＮＯ２
ＧＯＴＯ　＠ＬＯＯＰ

ＣＬＥＡＲ：ＡＣＬＳ
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＩＮＩＴ

ＵＸ＿ＶＡＲ＿ＮＡＭＥ＄（０）＝”Ｖ１”
ＵＸ＿ＶＡＲ＿ＮＡＭＥ＄（１）＝”Ｖ２”
ＵＸ＿ＶＡＲ＄（０）＝”３０”
ＵＸ＿ＶＡＲ＄（１）＝”２３”
ＵＸ＿ＶＡＲ＄（２）＝”２”

ＦＯＲ　Ｉ＝０　ＴＯ　１
Ｉ＝０
Ｆ１＝ＴＲＵＥ
ＩＮＰＵＴ　”ケイサンシキ”；Ｓ＄
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ
ＮＥＸＴ


＠ＵＸ＿ＧＹＰ＿ＩＮＩＴ
’－－－エンサ゛ンシ
ＵＸ＿ＯＰＭＡＸ＝１２
ＤＩＭ　ＵＸ＿ＧＹＰ＿ＯＰ＄（ＵＸ＿ＯＰＭＡＸ）
ＤＩＭ　ＵＸ＿ＧＹＰ＿ＯＰ＿ＰＲＩＯ（ＵＸ＿ＯＰＭＡＸ）
ＲＥＳＴＯＲＥ　＠ＵＸ＿ＧＹＰ＿ＩＮＩＴ
ＦＯＲ　ＵＸ＿Ｉ＝０　ＴＯ　ＵＸ＿ＯＰＭＡＸ－１
ＲＥＡＤ　ＵＸ＿ＧＹＰ＿ＯＰ＄（ＵＸ＿Ｉ），ＵＸ＿ＧＹＰ＿ＯＰ＿ＰＲＩＯ（ＵＸ＿Ｉ）
ＮＥＸＴ

’－－－ヘンスウ
ＵＸ＿ＶＡＲＭＡＸ＝２００
ＤＩＭ　ＵＸ＿ＶＡＲ＄（ＵＸ＿ＶＡＲＭＡＸ），ＵＸ＿ＶＡＲ＿ＮＡＭＥ＄（ＵＸ＿ＶＡＲＭＡＸ）
ＦＯＲ　ＵＸ＿Ｉ＝０　ＴＯ　ＵＸ＿ＶＡＲＭＡＸ－１
ＲＥＡＤ　ＵＸ＿Ａ＄
ＩＦ　ＵＸ＿Ａ＄＝＝””　ＴＨＥＮ　ＵＸ＿Ｉ＝９９９：ＥＬＳＥ　ＵＸ＿ＶＡＲ＿ＮＡＭＥ＄（ＵＸ＿Ｉ）＝ＵＸ＿Ａ＄
ＮＥＸＴ

’－－－スタック
ＤＩＭ　ＳＴ＄（２，６４）
ＤＩＭ　ＳＰ（２）
ＲＥＴＵＲＮ
ＤＡＴＡ　＝＝，１
ＤＡＴＡ　！＝，２
ＤＡＴＡ　＜＝，３
ＤＡＴＡ　＞＝，４
ＤＡＴＡ　＜，５
ＤＡＴＡ　＞，６
ＤＡＴＡ　＋，１０
ＤＡＴＡ　－，１１
ＤＡＴＡ　＊，２０
ＤＡＴＡ　／，２１
ＤＡＴＡ　％，２２
ＤＡＴＡ　＾，２５

ＤＡＴＡ　

’Ｎ＝ツカウ　スタック
’Ｓ２＄＝イレルモシ゛
＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ
ＳＴ＄（Ｎ，ＳＰ（Ｎ））＝Ｓ２＄
ＳＰ（Ｎ）＝ＳＰ（Ｎ）＋１
ＲＥＴＵＲＮ

’Ｎ＝ツカウ　スタック
’－モト゛リ
’Ｒ＄＝トリタ゛シタモシ゛
＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ
ＩＦ　ＳＰ（Ｎ）＝＝０　ＴＨＥＮ　Ｒ＄＝””：ＲＥＴＵＲＮ
ＳＰ（Ｎ）＝ＳＰ（Ｎ）－１
Ｒ＄＝ＳＴ＄（Ｎ，ＳＰ（Ｎ））
ＳＴ＄（Ｎ，ＳＰ（Ｎ））＝””
ＲＥＴＵＲＮ


’－－－キ゛ャクホ゜－ラント゛　ヘンカン
’ＳＴ＄（０，）＝ヘンカン　ケッカ
＠ＵＸ＿ＧＹＰ＿ＣＡＬＣ

ＩＦ　ＵＸ＿Ｃ＄＝＝””　ＴＨＥＮ　ＧＯＳＵＢ　＠ＡＬＬＰＵＳＨ：ＲＥＴＵＲＮ
ＩＦ　ＵＸ＿Ｎ５＝＝１　ＴＨＥＮ　Ｎ＝０：Ｓ２＄＝ＵＸ＿Ｃ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：ＧＯＴＯ　＠ＳＬ
ＩＦ　ＵＸ＿Ｎ５＝＝４　ＴＨＥＮ　：ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＰＯＰ：ＧＯＴＯ　＠ＳＬ
ＩＦ　ＵＸ＿Ｎ５＝＝３　ＴＨＥＮ　Ｎ＝１：Ｓ２＄＝ＵＸ＿Ｃ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：ＧＯＴＯ　＠ＳＬ

＠Ｌ
ＩＦ　ＳＰ（１）＝＝０　ＴＨＥＮ　Ｎ＝１：Ｓ２＄＝ＵＸ＿Ｃ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：ＧＯＴＯ　＠ＳＬ：

Ｃ＄＝ＵＸ＿Ｃ＄
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＥＺ
Ａ１＝ＵＸ＿Ｒ
Ｃ＄＝ＳＴ＄（１，ＳＰ（１）－１）
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＥＺ
Ａ２＝ＵＸ＿Ｒ
ＩＦ　Ａ１＜Ａ２　ＴＨＥＮ　Ｎ＝１：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ：Ｎ＝０：Ｓ２＄＝Ｒ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：ＧＯＴＯ　＠Ｌ
Ｎ＝１
Ｓ２＄＝ＵＸ＿Ｃ＄
ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ

＠ＳＬ
ＵＸ＿ＴＫＳ＝ＵＸ＿ＴＫＳ＋１：ＵＸ＿ＢＣ＄＝ＵＸ＿Ｃ＄
ＵＸ＿Ｃ＄＝””
ＲＥＴＵＲＮ

＠ＤＩＳＰ＿ＧＹＰ
ＦＯＲ　ＵＸ＿Ｊ＝０　ＴＯ　ＳＰ（０）－１
？ＳＴ＄（０，ＵＸ＿Ｊ）；”　”；
ＮＥＸＴ
？
ＲＥＴＵＲＮ

＠ＡＬＬＰＵＳＨ
ＩＦ　ＳＰ（１）＝＝０　ＴＨＥＮ　ＩＦ　Ｆ１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＤＩＳＰ＿ＧＹＰ
ＩＦ　ＳＰ（１）＝＝０　ＴＨＥＮ　ＵＸ＿Ｐ＝０：ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＥＮＺＡＮ：ＲＥＴＵＲＮ

Ｎ＝１：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ
Ｎ＝０：Ｓ２＄＝Ｒ＄
ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ
ＧＯＴＯ　＠ＡＬＬＰＵＳＨ

＠ＵＸ＿ＧＹＰ＿ＥＮＺＡＮ
ＩＦ　ＵＸ＿Ｐ＝＝ＳＰ（０）　ＴＨＥＮ　ＳＰ（０）＝０：Ｎ＝１：Ｓ２＄＝ＳＴＲ＄（Ｒ）：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ
ＩＦ　ＳＰ（０）＝＝０　ＴＨＥＮ　Ｎ＝１：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ：ＲＥＴＵＲＮ
Ｎ＝０

Ｒ＄＝ＳＴ＄（０，ＵＸ＿Ｐ）
ＵＸ＿Ｐ＝ＵＸ＿Ｐ＋１
ＵＸ＿Ｎ４＝０
ＩＦ　ＭＩＤ＄（Ｒ＄，ＬＥＮ（Ｒ＄）－１，１）＞＝”０”ＡＮＤ　ＭＩＤ＄（Ｒ＄，ＬＥＮ（Ｒ＄）－１，１）＜＝”９”　ＴＨＥＮ　ＵＸ＿Ｎ４＝１：
ＩＦ　！ＵＸ＿Ｎ４　ＴＨＥＮ　ＵＸ＿Ｎ４＝２

Ｒ２＄＝Ｒ＄

ＩＦ　ＵＸ＿Ｎ４＝＝１　ＴＨＥＮ　Ｎ＝１：Ｓ２＄＝Ｒ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：’？Ｒ＄
’？ＳＰ（１）
ＩＦ　ＵＸ＿Ｎ４＝＝２　ＴＨＥＮ　Ｎ＝１：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ：Ａ１＄＝Ｒ＄
ＩＦ　ＵＸ＿Ｎ４＝＝２　ＴＨＥＮ　Ｎ＝１：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ：Ａ２＄＝Ｒ＄
Ａ１＝ＶＡＬ（Ａ２＄）
Ａ２＝ＶＡＬ（Ａ１＄）
ＩＦ　Ｒ２＄＝＝”＋”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ１
ＩＦ　Ｒ２＄＝＝”－”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ２
ＩＦ　Ｒ２＄＝＝”＊”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ３
ＩＦ　Ｒ２＄＝＝”／”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ４
ＩＦ　Ｒ２＄＝＝”＝＝”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ５
ＩＦ　Ｒ２＄＝＝”！＝”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ６
ＩＦ　Ｒ２＄＝＝”＜”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ７
ＩＦ　Ｒ２＄＝＝”＞”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ８
ＩＦ　Ｒ２＄＝＝”＜＝”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ９
ＩＦ　Ｒ２＄＝＝”＞＝”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ１０
ＩＦ　Ｒ２＄＝＝”％”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ１１
ＩＦ　Ｒ２＄＝＝”＾”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＥＺ１２

ＩＦ　ＵＸ＿Ｎ４＝＝２　ＴＨＥＮ　ＩＦ　Ｆ１　ＴＨＥＮ　？Ａ１，Ａ２，Ｒ２＄
’ＩＦ　ＳＴ＄（１，０）＝＝Ｓ＄　ＴＨＥＮ　Ｎ＝１：Ｓ２＄＝Ｓ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：Ｒ＝ＶＡＬ（Ｓ＄）　
ＩＦ　ＵＸ＿Ｎ４＝＝２　ＴＨＥＮ　Ｎ＝１：Ｓ２＄＝ＳＴＲ＄（Ｒ）：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ
ＣＯＬＯＲ　１３
’？ＳＴ＄（１，０）
ＣＯＬＯＲ　０
ＧＯＴＯ　＠ＵＸ＿ＧＹＰ＿ＥＮＺＡＮ


＠ＥＺ１
Ｒ＝Ａ１＋Ａ２
ＲＥＴＵＲＮ
＠ＥＺ２
Ｒ＝Ａ１－Ａ２
ＲＥＴＵＲＮ
＠ＥＺ３
Ｒ＝Ａ１＊Ａ２
ＲＥＴＵＲＮ
＠ＥＺ４
Ｒ＝Ａ１／Ａ２
ＲＥＴＵＲＮ
＠ＥＺ５
Ｒ＝Ａ１＝＝Ａ２
ＲＥＴＵＲＮ
＠ＥＺ６
Ｒ＝Ａ１！＝Ａ２
ＲＥＴＵＲＮ
＠ＥＺ７
Ｒ＝Ａ１＜Ａ２
ＲＥＴＵＲＮ
＠ＥＺ８
Ｒ＝Ａ１＞Ａ２
ＲＥＴＵＲＮ
＠ＥＺ９
Ｒ＝Ａ１＜＝Ａ２
ＲＥＴＵＲＮ
＠ＥＺ１０
Ｒ＝Ａ１＞＝Ａ２
ＲＥＴＵＲＮ
＠ＥＺ１１
Ｒ＝Ａ１％Ａ２
ＲＥＴＵＲＮ
＠ＥＺ１２
Ｒ＝ＰＯＷ（Ａ１，Ａ２）
ＲＥＴＵＲＮ



＠ＵＸ＿ＧＹＰ＿ＥＺ
ＦＯＲ　ＵＸ＿Ｊ＝０　ＴＯ　ＵＸ＿ＯＰＭＡＸ－１
ＩＦ　Ｃ＄＝＝ＵＸ＿ＧＹＰ＿ＯＰ＄（ＵＸ＿Ｊ）　ＴＨＥＮ　ＵＸ＿Ｒ＝ＵＸ＿ＧＹＰ＿ＯＰ＿ＰＲＩＯ（ＵＸ＿Ｊ）
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＵＸ＿ＧＹＰ＿ＰＯＰ
ＩＦ　ＳＰ（１）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
Ｎ＝１
ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＯＰ

ＩＦ　Ｒ＄！＝”（”　ＴＨＥＮ　Ｎ＝０：Ｓ２＄＝Ｒ＄：ＧＯＳＵＢ　＠ＵＸ＿ＳＴＡＣＫ＿ＰＵＳＨ：ＧＯＴＯ　＠ＵＸ＿ＧＹＰ＿ＰＯＰ
ＲＥＴＵＲＮ


’－－－キ゛ャクホ゜－ラント゛　ヘンカン
＠ＵＸ＿ＧＹＰ
ＥＲ＝０
ＥＲＭ＄＝””：ＥＲＭ２＄＝””
Ｒ＝０
Ｒ＄＝”０”
ＳＰ（０）＝０：ＳＰ（１）＝０
ＵＸ＿ＯＮ５＝０
’ＩＦ　Ｆ１　ＴＨＥＮ　？Ｓ＄
’カッコ　ノ　カス゛
ＵＸ＿ＫＮ＝０
’ヨミコンタ゛ト－クンノ　カス゛
ＵＸ＿ＴＫＳ＝０
ＵＸ＿Ｇ＄＝Ｓ＄：ＵＸ＿Ｎ５＝０
ＵＸ＿Ｎ＝０：ＵＸ＿Ｎ２＝０：ＵＸ＿Ｃ＄＝””
ＦＯＲ　ＵＸ＿Ｉ＝０　ＴＯ　ＬＥＮ（ＵＸ＿Ｇ＄）
ＵＸ＿ＯＡ＄＝ＵＸ＿Ａ＄
ＵＸ＿Ａ＄＝ＭＩＤ＄（ＵＸ＿Ｇ＄，ＵＸ＿Ｉ，１）
ＵＸ＿Ｂ＄＝ＭＩＤ＄（ＵＸ＿Ｇ＄，ＵＸ＿Ｉ＋１，１）
ＩＦ　ＵＸ＿Ｎ２＝＝０　ＴＨＥＮ　ＵＸ＿Ｎ＝１：ＥＬＳＥ　ＵＸ＿Ｎ＝０
ＩＦ　ＵＸ＿Ｎ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ２
ＵＸ＿ＯＮ＝ＵＸ＿Ｎ２
ＩＦ　ＵＸ＿Ｎ２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３
ＩＦ　ＵＸ＿Ｎ３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ４
ＮＥＸＴ
ＵＸ＿ＢＣ＄＝ＭＩＤ＄（ＵＸ＿ＢＣ＄，ＬＥＮ（ＵＸ＿ＢＣ＄）－１，１）
ＵＸ＿Ｎ４＝０
ＩＦ　ＵＸ＿ＢＣ＄＞＝”０”　ＡＮＤ　ＵＸ＿ＢＣ＄＜＝”９”　ＴＨＥＮ　ＵＸ＿Ｎ４＝１
ＩＦ　ＵＸ＿ＢＣ＄＝＝”）”　ＴＨＥＮ　ＵＸ＿Ｎ４＝１
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ４＝＝０　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”ケイサンテ゛キマセンテ゛シタ”：ＢＥＥＰ　２：ＣＯＬＯＲ　０：ＳＴＯＰ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ４＝＝０　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄

ＥＲＭ＄＝”カッコニ　タイシテ　トシ゛カッコカ゛スクナイテ゛ス”
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿ＫＮ＞０　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”ケイサンテ゛キマセンテ゛シタ”：？ＥＲＭ＄：ＢＥＥＰ　２：ＣＯＬＯＲ　０：ＳＴＯＰ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿ＫＮ＞０　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄
ＥＲＭ＄＝”カッコ　カ゛ナイノニ　トシ゛カッコカ゛アリマス”
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿ＫＮ＜０　ＴＨＥＮ　ＣＯＬＯＲ　１３：？”ケイサンテ゛キマセンテ゛シタ”：？ＥＲＭ＄：ＢＥＥＰ　２：ＣＯＬＯＲ　０：ＳＴＯＰ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿ＫＮ＜０　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＣＡＬＣ

ＩＦ　ＵＸ＿ＴＫＳ＝＝１　ＴＨＥＮ　Ａ１＄＝ＳＴ＄（０，０）：Ｒ＝ＶＡＬ（Ａ１＄）：ＳＴ＄（０，０）＝””
ＣＯＬＯＲ　７
ＩＦ　！ＥＲ　ＴＨＥＮ　ＩＦ　Ｆ１　ＴＨＥＮ　？Ｒ
ＣＯＬＯＲ　０
Ｒ＄＝ＳＴＲ＄（Ｒ）
ＩＦ　ＥＲ　ＴＨＥＮ　Ｒ＄＝ＥＲＭ２＄：ＩＦ　Ｆ１　ＴＨＥＮ　？ＥＲＭ２＄：
Ｆ１＝０
Ｆ２＝０
ＲＥＴＵＲＮ

’－－－サイショノ　モシ゛カラ　シュルイ　ハンヘ゛ツ
＠ＵＸ＿ＴＯＫＥＮ２
ＩＦ　ＵＸ＿Ａ＄＝＝””　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＵＸ＿Ａ＄＝＝”　”　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＡＳＣ（ＵＸ＿Ａ＄）＞＝ＡＳＣ（”０”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ａ＄）＜＝ＡＳＣ（”９”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝１
ＩＦ　ＡＳＣ（ＵＸ＿Ａ＄）＞＝ＡＳＣ（”Ａ”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ａ＄）＜＝ＡＳＣ（”Ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝２
ＩＦ　ＡＳＣ（ＵＸ＿Ａ＄）＞＝ＡＳＣ（”ａ”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ａ＄）＜＝ＡＳＣ（”ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝２
ＦＯＲ　ＵＸ＿Ｊ＝０　ＴＯ　ＵＸ＿ＯＰＭＡＸ－１
ＩＦ　ＵＸ＿Ａ＄＝＝ＭＩＤ＄（ＵＸ＿ＧＹＰ＿ＯＰ＄（ＵＸ＿Ｊ），０，１）　ＴＨＥＮ　ＵＸ＿Ｎ２＝３
ＮＥＸＴ
ＩＦ　ＵＸ＿Ａ＄＝＝”（”　ＴＨＥＮ　ＵＸ＿Ｎ２＝４：ＵＸ＿ＫＮ＝ＵＸ＿ＫＮ＋１
ＩＦ　ＵＸ＿Ａ＄＝＝”）”　ＴＨＥＮ　ＵＸ＿Ｎ２＝５：ＵＸ＿ＫＮ＝ＵＸ＿ＫＮ－１

ＩＦ　ＵＸ＿ＯＮ！＝３　ＡＮＤ　ＵＸ＿ＯＮ！＝０　ＡＮＤ　ＵＸ＿ＯＮ！＝４　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＵＸ＿Ａ＄＝＝”－”　ＡＮＤ　（ＵＸ＿Ｂ＄＞＝”Ａ”　ＡＮＤ　ＵＸ＿Ｂ＄＜＝”Ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝６
ＩＦ　ＵＸ＿Ａ＄＝＝”－”　ＡＮＤ　（ＵＸ＿Ｂ＄＞＝”ａ”　ＡＮＤ　ＵＸ＿Ｂ＄＜＝”ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝６
ＩＦ　ＵＸ＿Ａ＄＝＝”－”　ＡＮＤ　（ＵＸ＿Ｂ＄＞＝”０”　ＡＮＤ　ＵＸ＿Ｂ＄＜＝”９”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝７

ＩＦ　ＵＸ＿Ａ＄＝＝”＊”　ＡＮＤ　（ＵＸ＿Ｂ＄＞＝”Ａ”　ＡＮＤ　ＵＸ＿Ｂ＄＜＝”Ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝８
ＩＦ　ＵＸ＿Ａ＄＝＝”＊”　ＡＮＤ　（ＵＸ＿Ｂ＄＞＝”ａ”　ＡＮＤ　ＵＸ＿Ｂ＄＜＝”ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝８
ＩＦ　ＵＸ＿Ａ＄＝＝”＊”　ＡＮＤ　（ＵＸ＿Ｂ＄＞＝”０”　ＡＮＤ　ＵＸ＿Ｂ＄＜＝”９”）　ＴＨＥＮ　ＵＸ＿Ｎ２＝９
ＲＥＴＵＲＮ

’ＵＸ＿Ｎ５＝１　スウチ、２　エンサ゛ンシ　３　（、４　）
’－－－ソレソ゛レノシュルイコ゛トニ　ワケル
＠ＵＸ＿ＴＯＫＥＮ３
ＵＸ＿Ｎ５＝０
ＩＦ　ＵＸ＿Ｎ２＝＝１　ＴＨＥＮ　ＵＸ＿Ｎ５＝１
ＩＦ　ＵＸ＿Ｎ２＝＝２　ＴＨＥＮ　ＵＸ＿Ｎ５＝１
ＩＦ　ＵＸ＿Ｎ２＝＝３　ＴＨＥＮ　ＵＸ＿Ｎ５＝２
ＩＦ　ＵＸ＿Ｎ２＝＝４　ＴＨＥＮ　ＵＸ＿Ｎ５＝３
ＩＦ　ＵＸ＿Ｎ２＝＝５　ＴＨＥＮ　ＵＸ＿Ｎ５＝４
ＵＸ＿Ｎ６＝ＵＸ＿Ｎ２
ＩＦ　ＵＸ＿Ｎ２＝＝６　ＴＨＥＮ　ＵＸ＿Ｎ５＝１：ＵＸ＿Ｎ６＝２
ＩＦ　ＵＸ＿Ｎ２＝＝７　ＴＨＥＮ　ＵＸ＿Ｎ５＝１：
ＩＦ　ＵＸ＿Ｎ２＝＝８　ＴＨＥＮ　ＵＸ＿Ｎ５＝１：ＵＸ＿Ｎ６＝２
ＩＦ　ＵＸ＿Ｎ２＝＝９　ＴＨＥＮ　ＵＸ＿Ｎ５＝１：

ＩＦ　ＵＸ＿Ｂ＄＝＝””　ＴＨＥＮ　ＵＸ＿Ｎ３＝ＴＲＵＥ：ＵＸ＿Ｎ２＝０：
ＩＦ　ＵＸ＿Ｂ＄＝＝”　”　ＴＨＥＮ　ＵＸ＿Ｎ３＝ＴＲＵＥ：ＵＸ＿Ｎ２＝０：
ＩＦ　ＵＸ＿Ｎ２＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿１
ＩＦ　ＵＸ＿Ｎ２＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿２
ＩＦ　ＵＸ＿Ｎ２＝＝３　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿３
ＩＦ　ＵＸ＿Ｎ２＝＝４　ＴＨＥＮ　ＵＸ＿Ｎ３＝１：ＵＸ＿Ｎ２＝０
ＩＦ　ＵＸ＿Ｎ２＝＝５　ＴＨＥＮ　ＵＸ＿Ｎ３＝１：ＵＸ＿Ｎ２＝０
ＩＦ　ＵＸ＿Ｎ２＝＝７　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿１
ＩＦ　ＵＸ＿Ｎ２＝＝６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿２
ＩＦ　ＵＸ＿Ｎ２＝＝９　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿１
ＩＦ　ＵＸ＿Ｎ２＝＝８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＴＯＫＥＮ３＿２

ＵＸ＿Ｃ＄＝ＵＸ＿Ｃ＄＋ＵＸ＿Ａ＄
ＲＥＴＵＲＮ
’－－－１モシ゛サキカ゛　スウシ゛テ゛ハナカッタラ
’－－－ＵＸ＿Ｎ３＝ＴＲＵＥ
＠ＵＸ＿ＴＯＫＥＮ３＿１
ＩＦ　ＡＳＣ（ＵＸ＿Ｂ＄）＞＝ＡＳＣ（”０”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ｂ＄）＜＝ＡＳＣ（”９”）　ＴＨＥＮ　ＥＬＳＥ　ＵＸ＿Ｎ２＝０：ＵＸ＿Ｎ３＝ＴＲＵＥ
ＲＥＴＵＲＮ

’－－－１モシ゛サキカ゛　アルファヘ゛ット　テ゛ハナカッタラ
’－－－ＵＸ＿Ｎ３＝ＴＲＵＥ
＠ＵＸ＿ＴＯＫＥＮ３＿２
ＵＸ＿Ｎ４＝０
ＩＦ　ＡＳＣ（ＵＸ＿Ｂ＄）＞＝ＡＳＣ（”０”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ｂ＄）＜＝ＡＳＣ（”９”）　ＴＨＥＮ　ＵＸ＿Ｎ４＝ＴＲＵＥ
ＩＦ　ＡＳＣ（ＵＸ＿Ｂ＄）＞＝ＡＳＣ（”Ａ”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ｂ＄）＜＝ＡＳＣ（”Ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ４＝ＴＲＵＥ
ＩＦ　ＡＳＣ（ＵＸ＿Ｂ＄）＞＝ＡＳＣ（”ａ”）ＡＮＤ　ＡＳＣ（ＵＸ＿Ｂ＄）＜＝ＡＳＣ（”ｚ”）　ＴＨＥＮ　ＵＸ＿Ｎ４＝ＴＲＵＥ
ＩＦ　ＡＳＣ（ＵＸ＿Ｂ＄）＝＝ＡＳＣ（”＄”）　ＴＨＥＮ　ＵＸ＿Ｎ４＝ＴＲＵＥ
ＩＦ　ＵＸ＿Ｎ４　ＴＨＥＮ　ＥＬＳＥ　ＵＸ＿Ｎ２＝０：ＵＸ＿Ｎ３＝ＴＲＵＥ
ＲＥＴＵＲＮ

’－－－１モシ゛サキカ゛エンサ゛ンシ　テ゛ハナカッタラ
’－－－ＵＸ＿Ｎ３＝ＴＲＵＥ
＠ＵＸ＿ＴＯＫＥＮ３＿３
ＵＸ＿Ｎ４＝０
ＦＯＲ　ＵＸ＿Ｊ＝０　ＴＯ　ＵＸ＿ＯＰＭＡＸ－１
ＦＯＲ　ＵＸ＿Ｋ＝０　ＴＯ　１
ＩＦ　ＵＸ＿Ｂ＄＝＝ＭＩＤ＄（ＵＸ＿ＧＹＰ＿ＯＰ＄（ＵＸ＿Ｊ），ＵＸ＿Ｋ，１）　ＴＨＥＮ　ＵＸ＿Ｎ４＝ＴＲＵＥ
ＩＦ　ＵＸ＿Ｂ＄＝＝”－”　ＴＨＥＮ　ＵＸ＿Ｎ４＝０
ＩＦ　ＵＸ＿Ｂ＄＝＝”＊”　ＴＨＥＮ　ＵＸ＿Ｎ４＝０
ＮＥＸＴ
ＮＥＸＴ
ＩＦ　ＵＸ＿Ｎ４　ＴＨＥＮ　ＥＬＳＥ　ＵＸ＿Ｎ２＝０：ＵＸ＿Ｎ３＝ＴＲＵＥ
ＲＥＴＵＲＮ

＠ＵＸ＿ＥＲ
ＣＯＬＯＲ　１３：？”ケイサンテ゛キマセンテ゛シタ”：？ＥＲＭ＄
ＢＥＥＰ　２：ＣＯＬＯＲ　０：ＳＴＯＰ
ＲＥＴＵＲＮ

’－－－エラ－　ハンヘ゛ツ、ヘンスウヘンカン　コ゛　ケイサン　ヘ
＠ＵＸ＿ＴＯＫＥＮ４
ＥＲＭ＄＝”スウシ゛　マタハ　エンサ゛ンシ　カ゛ツツ゛ケテ　カカレテイル　カノウセイカ゛アリマス”
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝ＵＸ＿ＯＮ５　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＜３　ＴＨＥＮ　
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝ＵＸ＿ＯＮ５　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＜３　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄：ＲＥＴＵＲＮ
ＥＲＭ＄＝””
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝３　ＡＮＤ　ＵＸ＿ＯＮ５＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＥＲ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝３　ＡＮＤ　ＵＸ＿ＯＮ５＝＝１　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄：ＲＥＴＵＲＮ
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝１　ＡＮＤ　ＵＸ＿ＯＮ５＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＥＲ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝１　ＡＮＤ　ＵＸ＿ＯＮ５＝＝４　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄：ＲＥＴＵＲＮ
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝３　ＡＮＤ　ＵＸ＿ＯＮ５＝＝４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＥＲ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝３　ＡＮＤ　ＵＸ＿ＯＮ５＝＝４　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄：ＲＥＴＵＲＮ


ＥＲＭ＄＝”エンサ゛ンシ　ノ　イチカ゛オカシイ　テ゛ス”
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝２　ＡＮＤ　ＵＸ＿ＯＮ５＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＥＲ
ＩＦ　Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ５＝＝２　ＡＮＤ　ＵＸ＿ＯＮ５＝＝０　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄：ＲＥＴＵＲＮ
ＵＸ＿Ｎ４＝０
ＥＲＭ＄＝”ソンサ゛イシナイ　エンサ゛ンシカ゛カカレテイル　カノウセイカ゛アリマス”
ＩＦ　ＵＸ＿Ｎ６＝＝３　ＴＨＥＮ　ＦＯＲ　ＵＸ＿Ｊ＝０　ＴＯ　ＵＸ＿ＯＰＭＡＸ－１
ＩＦ　ＵＸ＿Ｎ６＝＝３　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｃ＄＝＝ＵＸ＿ＧＹＰ＿ＯＰ＄（ＵＸ＿Ｊ）　ＴＨＥＮ　ＵＸ＿Ｎ４＝ＴＲＵＥ
ＩＦ　ＵＸ＿Ｎ６＝＝３　ＴＨＥＮ　ＮＥＸＴ：
ＩＦ　！Ｆ２　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ６＝＝３　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ４＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＥＲ
ＩＦ　Ｆ２　　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ６＝＝３　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｎ４＝＝０　ＴＨＥＮ　ＥＲ＝ＴＲＵＥ：ＥＲＭ２＄＝ＥＲＭ＄：ＲＥＴＵＲＮ
’－－－アト゛レス　ヲ　スウチヘ
’？”　　”；ＵＸ＿Ｃ＄
ＩＦ　ＵＸ＿Ｎ６＝＝９　ＴＨＥＮ　ＵＸ＿Ｃ＄＝ＳＴＲ＄（ＶＡＬ（ＵＸ＿ＶＡＲ＄（ＶＡＬ（ＭＩＤ＄（ＵＸ＿Ｃ＄，１，２５５）））））

ＵＸ＿Ｍ２＝ＦＡＬＳＥ：’マイナス
ＵＸ＿Ｍ３＝ＦＡＬＳＥ：’＊
ＩＦ　ＵＸ＿Ｎ６＝＝２　ＴＨＥＮ　ＧＯＳＵＢ　＠ＵＸ＿ＶＡＲ
ＩＦ　ＵＸ＿Ｍ２　ＴＨＥＮ　ＵＸ＿Ｃ＄＝ＳＴＲ＄（－１＊ＶＡＬ（ＵＸ＿Ｃ＄））
ＩＦ　ＵＸ＿Ｍ３　ＴＨＥＮ　ＵＸ＿Ｃ＄＝ＵＸ＿ＶＡＲ＄（ＶＡＬ（ＵＸ＿Ｃ＄））

ＵＸ＿ＯＮ５＝ＵＸ＿Ｎ５
ＧＯＳＵＢ　＠ＵＸ＿ＧＹＰ＿ＣＡＬＣ
ＵＸ＿Ｎ３＝０
ＵＸ＿Ｃ＄＝””
ＲＥＴＵＲＮ

’－－－ヘンスウ　ヲ　スウチニ　ヘンカン
＠ＵＸ＿ＶＡＲ
ＵＸ＿Ｍ＝ＦＡＬＳＥ
ＩＦ　ＭＩＤ＄（ＵＸ＿Ｃ＄，ＬＥＮ（ＵＸ＿Ｃ＄）－１，１）＝＝”＄”　ＴＨＥＮ　ＵＸ＿Ｍ＝ＴＲＵＥ
ＩＦ　ＭＩＤ＄（ＵＸ＿Ｃ＄，０，１）＝＝”－”　ＴＨＥＮ　ＵＸ＿Ｍ２＝ＴＲＵＥ：ＵＸ＿Ｃ＄＝ＭＩＤ＄（ＵＸ＿Ｃ＄，１，２５６）
ＩＦ　ＭＩＤ＄（ＵＸ＿Ｃ＄，０，１）＝＝”＊”　ＴＨＥＮ　ＵＸ＿Ｍ３＝ＴＲＵＥ：ＵＸ＿Ｃ＄＝ＭＩＤ＄（ＵＸ＿Ｃ＄，１，２５６）
ＦＯＲ　ＵＸ＿Ｊ＝０　ＴＯ　ＵＸ＿ＶＡＲＭＡＸ－１
ＩＦ　ＵＸ＿Ｍ　ＴＨＥＮ　ＩＦ　ＭＩＤ＄（ＵＸ＿Ｃ＄，０，ＬＥＮ（ＵＸ＿Ｃ＄）－１）＝＝ＵＸ＿ＶＡＲ＿ＮＡＭＥ＄（ＵＸ＿Ｊ）　ＴＨＥＮ　ＵＸ＿Ｃ＄＝ＵＸ＿ＶＡＲ＄（ＵＸ＿Ｊ）：ＲＥＴＵＲＮ
ＩＦ　！ＵＸ＿Ｍ　ＴＨＥＮ　ＩＦ　ＵＸ＿Ｃ＄＝＝ＵＸ＿ＶＡＲ＿ＮＡＭＥ＄（ＵＸ＿Ｊ）　ＴＨＥＮ　ＵＸ＿Ｃ＄＝ＳＴＲ＄（ＶＡＬ（ＵＸ＿ＶＡＲ＄（ＵＸ＿Ｊ）））：ＵＸ＿Ｊ＝９９９：ＮＥＸＴ：ＲＥＴＵＲＮ
ＮＥＸＴ
ＩＦ　ＵＸ＿Ｍ　ＴＨＥＮ　ＵＸ＿Ｃ＄＝””
ＩＦ　！ＵＸ＿Ｍ　ＴＨＥＮ　ＵＸ＿Ｃ＄＝ＳＴＲ＄（０）
ＲＥＴＵＲＮ
CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
Uxtuno_ : っていうかプログラムの大部分が変わっちゃってるからこれ改造って言うのかな？ (2012/07/20 (金) 22:57:12)
Uxtuno_ : 小数の計算には対応しません。 (2012/07/27 (金) 16:02:34)
名無しさん : ウエイトがまたまたいいっす。 (2012/07/28 (土) 16:07:52)
Uxtuno_ : 言い忘れてました。累乗の計算する「＾」演算子も使えるはずです。 (2012/09/25 (火) 22:10:51)
名無しさん : わあ、スパニコじゃん (2012/09/25 (火) 23:39:04)
石井　洸 : ブチ3で作った。　公開キー　DKEEVENV (2015/10/09 (金) 21:35:43)
プチコンまとめArchive

投稿プログラム : サンプル2改造スーパーニコチャン

パンくずリスト

概要

QRコード

プログラムリスト

CHECKER FLAG (ひとことコメント)

メニュー

外部リンク

プチコン4

プチコン3号&BIG

プチコン初代&mkII

プチコンまとめArchive

投稿プログラム : サンプル2改造 スーパーニコチャン

パンくずリスト

概要

QRコード

プログラムリスト

CHECKER FLAG (ひとことコメント)

メニュー

外部リンク

プチコン4

プチコン3号&BIG

プチコン初代&mkII

投稿プログラム : サンプル2改造スーパーニコチャン
