プチコンmkII


’┌──────────────────┐
’│ＧＡＭＥ６　　　　　　　　　　　　　│
’│　カイワケ゛－ム　　　　　　　　　　│
’└──────────────────┘

ＧＯＳＵＢ　＠ＩＮＩＴ

Ａ＄＝”カイワケ゛－ム”
ＧＯＳＵＢ　＠ＧＰＵＴＳＴＲ
ＢＥＥＰ　３７

ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
ＢＥＥＰ　３
ＷＡＩＴ　３０

ＨＯＵＲ＝ＶＡＬ（ＬＥＦＴ＄（ＴＩＭＥ＄，２））
ＩＦ　ＨＯＵＲ＜１０　ＴＨＥＮ　Ａ＄＝”オハヨウコ゛サ゛イマス”
ＩＦ　ＨＯＵＲ＞＝１０　ＡＮＤ　ＨＯＵＲ＜１９　ＴＨＥＮ　Ａ＄＝”コンニチワ”
ＩＦ　ＨＯＵＲ＞＝１９　ＴＨＥＮ　Ａ＄＝”コンハ゛ンワ”
ＧＯＳＵＢ　＠ＨＡＮＡＳＵ

Ａ＄＝”スタ－トホ゛タンテ゛　シュウリョウテ゛キマス”
ＧＯＳＵＢ　＠ＨＡＮＡＳＵ

’－－－　メインル－フ゜
＠ＭＡＩＮ
ＩＦ　ＲＮＤ（１０）＝＝０　ＴＨＥＮ　＠ＣＯＭＥＮＴ
ＩＦ　ＲＮＤ（１０）＝＝０　ＴＨＥＮ　＠ＵＲＡＮＡＩ

’－－－シツモンモート゛
ＴＭＯＤＥ＝ＲＮＤ（４）
ＯＮ　ＴＭＯＤＥ　ＧＯＳＵＢ　＠ＢＵＮＰＯ１，＠ＢＵＮＰＯ２，＠ＢＵＮＰＯ３，＠ＢＵＮＰＯ４
＠ＲＥＴＲＹ
ＧＯＳＵＢ　＠ＨＡＮＡＳＵ

ＧＯＳＵＢ　＠ＹＥＳＮＯ
ＩＦ　ＢＴ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＹＵＲＹＯ：ＧＯＴＯ　＠ＲＥＴＲＹ

ＩＦ　ＡＮＳ＝＝ＴＲＵＥ　　ＴＨＥＮ　Ｐ＄＝ＯＫ＄
ＩＦ　ＡＮＳ＝＝ＦＡＬＳＥ　ＴＨＥＮ　Ｐ＄＝ＮＧ＄
ＧＯＳＵＢ　＠ＬＯＧＩＮＧ

ＧＯＴＯ　＠ＭＡＩＮ

’－－－コメントモ－ト゛
＠ＣＯＭＥＮＴ

ＲＥＳＴＯＲＥ　＠ＣＭＴＤＡＴ
ＮＵＭ＝ＲＮＤ（１１）
ＦＯＲ　Ｉ＝０　ＴＯ　ＮＵＭ
　ＲＥＡＤ　Ａ＄
ＮＥＸＴ

ＧＯＳＵＢ　＠ＨＡＮＡＳＵ
ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
ＩＦ　ＢＴ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＹＵＲＹＯ
ＧＯＴＯ　＠ＭＡＩＮ

＠ＣＭＴＤＡＴ
ＤＡＴＡ　”コノフ゜ロク゛ラム　ハ　ワタシカ゛　ランタ゛ムニ　シャヘ゛ッテイマス”
ＤＡＴＡ　”カイワノ　ケッカ　ハ　シタカ゛メンニ　キロクシテイマス”
ＤＡＴＡ　”フ゜ロク゛ラムヲ　トメルト　カイワノ　キロク　ハ　キエテシマイマス”
ＤＡＴＡ　”コノフ゜ロク゛ラム　ハ　イツテ゛モ　シュウリョウテ゛キマス”
ＤＡＴＡ　”コマッタコトニ　コノフ゜ロク゛ラム　ハ　オワリカ゛　アリマセン”
ＤＡＴＡ　”コノフ゜ロク゛ラム　ハ　ト－クメイレイヲ　ツカッテ　シャヘ゛ッテイマス”
ＤＡＴＡ　”ワタシ　ハ　アタラシイ　タンコ゛ヲ　オホ゛エルコト　ハ　テ゛キマセン”
ＤＡＴＡ　”タマニ　ヘンナコトヲ　シャヘ゛リマスカ゛　オオメニミテクタ゛サイ”
ＤＡＴＡ　”カタカナテ゛　ヨミニククテ　スミマセン”
ＤＡＴＡ　”コノフ゜ロク゛ラム　ハ　シ゛ョ－クソフト　テ゛ス”
ＤＡＴＡ　”フ゜ロク゛ラムヲ　カキカエルト　コエシツヲ　カエルコトカ゛　テ゛キマス”

＠ＵＲＡＮＡＩ
ＧＯＳＵＢ　＠ＭＥＳＩＧＥＴ
Ａ＄＝”アナタノ　ラッキ－アイテム　ハ　”＋Ｒ＄＋”　テ゛ス”
ＧＯＳＵＢ　＠ＨＡＮＡＳＵ
ＷＡＩＴ　６０
Ａ＄＝”ナンチャッテ”
ＧＯＳＵＢ　＠ＨＡＮＡＳＵ
ＧＯＳＵＢ　＠ＨＩＴＡＮＹ
ＩＦ　ＢＴ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＳＹＵＲＹＯ
ＧＯＴＯ　＠ＭＡＩＮ

’－－－ロク゛　ニ　キロク
＠ＬＯＧＩＮＧ
ＧＰＡＧＥ　１
ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｐ＄）
　Ｃ＝０
　ＩＦ　Ｉ＜ＬＥＮ（Ｐ＄）　ＴＨＥＮ　Ｃ＝ＡＳＣ（ＭＩＤ＄（Ｐ＄，Ｉ，１））
　ＰＸ＝ＬＯＧＰＴＲ　％　２５６
　ＰＹ＝ＦＬＯＯＲ（ＬＯＧＰＴＲ　／　２５６）
　ＧＰＳＥＴ　ＰＸ，ＰＹ，Ｃ
　ＬＯＧＰＴＲ＝（ＬＯＧＰＴＲ＋１）％（２５６＊６４）
ＮＥＸＴ
ＧＰＡＧＥ　０
ＲＥＴＵＲＮ

’－－－ロク゛　カラ　トリタ゛シ
＠ＬＯＧＧＥＴ
ＧＰＡＧＥ　１
Ｒ＄＝””
Ｉ＝０
＠ＬＯＧＧＥＴ２
ＬＯＧＰＴＲ２＝ＲＮＤ（２５６＊６４）
ＰＸ＝ＬＯＧＰＴＲ２　％　２５６
ＰＹ＝ＦＬＯＯＲ（ＬＯＧＰＴＲ２　／　２５６）
ＬＯＧＰＴＲ２＝（ＬＯＧＰＴＲ２＋１）％（２５６＊６４）
Ｃ＝ＧＳＰＯＩＴ（ＰＸ，ＰＹ）
ＩＦ　Ｃ！＝０　ＴＨＥＮ　＠ＬＯＧＧＥＴ２

＠ＬＯＧＧＥＴ３
ＰＸ＝ＬＯＧＰＴＲ２　％　２５６
ＰＹ＝ＦＬＯＯＲ（ＬＯＧＰＴＲ２　／　２５６）
Ｃ＝ＧＳＰＯＩＴ（ＰＸ，ＰＹ）
ＬＯＧＰＴＲ２＝（ＬＯＧＰＴＲ２＋１）％（２５６＊６４）
ＩＦ　Ｃ＝＝０　ＴＨＥＮ　＠ＬＯＧＧＥＴ５
Ｒ＄＝Ｒ＄＋ＣＨＲ＄（Ｃ）
ＧＯＴＯ　＠ＬＯＧＧＥＴ３

＠ＬＯＧＧＥＴ５
ＩＦ　Ｒ＄！＝””　ＴＨＥＮ　＠ＬＯＧＧＥＴ４
Ｉ＝Ｉ＋１
ＩＦ　Ｉ＜１２００　ＴＨＥＮ　＠ＬＯＧＧＥＴ２

＠ＬＯＧＧＥＴ４
ＧＰＡＧＥ　０
ＲＥＴＵＲＮ

’－－－　メイシ　トリタ゛シ
＠ＭＥＳＩＧＥＴ
ＩＦ　ＲＮＤ（７）＝＝０　ＴＨＥＮ　＠ＭＥＳＩＧＥＴ２

ＧＯＳＵＢ　＠ＬＯＧＧＥＴ
ＩＦ　ＬＥＮ（Ｒ＄）＞２２　ＴＨＥＮ　＠ＭＥＳＩＧＥＴ２　　’ナカ゛スキ゛
ＩＦ　Ｒ＄！＝””　ＴＨＥＮ　ＲＥＴＵＲＮ

’ミツカラナイ
＠ＭＥＳＩＧＥＴ２
ＩＤＮ＝ＩＤＭＥＳＩ：ＧＯＳＵＢ　＠ＲＤＤＡＴ　　’メイシ
ＲＥＴＵＲＮ

’－－－
＠ＢＵＮＰＯ１
ＧＯＳＵＢ　＠ＭＥＳＩＧＥＴ
Ａ１＄＝Ｒ＄

ＩＤＮ＝ＩＤＫＥＩ：ＧＯＳＵＢ　＠ＲＤＤＡＴ　　　’ケイヨウシ
Ａ２＄＝Ｒ＄

Ａ＄＝Ａ１＄＋”　ハ　”＋Ａ２＄＋”　テ゛スカ”
ＯＫ＄＝Ａ２＄＋”　”＋Ａ１＄
ＮＧ＄＝ＬＥＦＴ＄（Ａ２＄，ＬＥＮ（Ａ２＄）－１）＋”クナイ　”＋Ａ１＄
ＲＥＴＵＲＮ

’－－－
＠ＢＵＮＰＯ２
ＧＯＳＵＢ　＠ＭＥＳＩＧＥＴ
Ａ１＄＝Ｒ＄

ＩＤＮ＝ＩＤＤＯＳＩ：ＧＯＳＵＢ　＠ＲＤＤＡＴ　　’ト゛ウシ
Ａ２＄＝Ｒ＄
Ａ＄＝Ａ１＄＋”　ヲ　”＋Ａ２＄＋”コト　ハ　アリマスカ”
ＯＫ＄＝Ａ２＄＋”　”＋Ａ１＄
ＮＧ＄＝Ａ２＄＋”コトカ゛ナイ　”＋Ａ１＄
ＲＥＴＵＲＮ

’－－－
＠ＢＵＮＰＯ３
ＧＯＳＵＢ　＠ＭＥＳＩＧＥＴ
Ａ１＄＝Ｒ＄

ＩＤＮ＝ＩＤＫＥＤＯ：ＧＯＳＵＢ　＠ＲＤＤＡＴ　　’
Ａ２＄＝Ｒ＄

Ａ＄＝Ａ１＄＋”　ハ　”＋Ａ２＄＋”　テ゛スカ”
ＯＫ＄＝Ａ２＄＋”ナ　”＋Ａ１＄
ＮＧ＄＝Ａ２＄＋”テ゛ナイ　”＋Ａ１＄
ＲＥＴＵＲＮ

’－－－
＠ＢＵＮＰＯ４
ＧＯＳＵＢ　＠ＭＥＳＩＧＥＴ
Ａ１＄＝Ｒ＄

ＧＯＳＵＢ　＠ＭＥＳＩＧＥＴ
Ａ２＄＝Ｒ＄

Ａ＄＝Ａ１＄＋”　ハ　”＋Ａ２＄＋”　ノ　ヨウナモノ　テ゛スカ”
ＯＫ＄＝Ａ２＄＋”　ノ　ヨウナ　”＋Ａ１＄
ＮＧ＄＝Ａ２＄＋”　ノ　ヨウテ゛ナイ　”＋Ａ１＄
ＲＥＴＵＲＮ

’－－－ランタ゛ム　ヨミコミ
＠ＲＤＤＡＴ
ＮＵＭ＝ＩＤ（ＩＤＮ）＋ＲＮＤ（ＩＤＭＡＸ（ＩＤＮ））

＠ＲＤＤＡＴ２
ＲＥＳＴＯＲＥ　＠ＫＯＴＯＢＡ
ＦＯＲ　Ｉ＝０　ＴＯ　ＮＵＭ
　ＲＥＡＤ　Ｒ＄
ＮＥＸＴ
ＲＥＴＵＲＮ

’－－－　
＠ＨＡＮＡＳＵ
Ｔ＄＝””
Ｔ＄＝Ｔ＄＋”＠Ｓ”＋ＳＴＲ＄（ＷＡＳＹＡ）　’ワシャ（０－１１）
Ｔ＄＝Ｔ＄＋”＠Ｅ”＋ＳＴＲ＄（ＫＡＮＪＯ）　’カンシ゛ョウ（０－１６）
Ｔ＄＝Ｔ＄＋”＠Ｈ０”　　　　　　　　　　’イントネ－ション（０－３）
Ｔ＄＝Ｔ＄＋”＠Ｔ”＋ＳＴＲ＄（ＳＰＤ）　’ソクト゛（０－１０００）
Ｔ＄＝Ｔ＄＋”＠Ｖ８０”　　　　　　　　　’ホ゛リュ－ム（０－８０）
Ｔ＄＝Ｔ＄＋Ａ＄

＠ＨＡＮＡＳＵ２
Ｐ＝ＩＮＳＴＲ（Ｔ＄，”　ハ　”）
ＩＦ　Ｐ＝＝－１　ＴＨＥＮ　＠ＨＡＮＡＳＵ３
Ｔ＄＝ＳＵＢＳＴ＄（Ｔ＄，Ｐ，３，”　ワ　”）
ＧＯＴＯ　＠ＨＡＮＡＳＵ２

＠ＨＡＮＡＳＵ３
ＴＡＬＫ　Ｔ＄
ＧＯＳＵＢ　＠ＧＰＵＴＳＴＲ
ＧＯＳＵＢ　＠ＡＮＩＭＥ
ＷＡＩＴ　３０
ＲＥＴＵＲＮ

’－－－　カオ　アニメ
＠ＡＮＩＭＥ
ＦＯＲ　Ｉ＝１　ＴＯ　ＬＥＮ（Ａ＄）
　ＣＯＬＯＲ　３
　ＬＯＣＡＴＥ　ＡＡＸ，ＡＡＹ
　ＰＲＩＮＴ　ＡＮＩＡ＄（ＲＮＤ（ＡＡＭＡＸ））
　ＣＯＬＯＲ　１２
　ＬＯＣＡＴＥ　ＡＢＸ，ＡＢＹ
　ＰＲＩＮＴ　ＡＮＩＢ＄（ＲＮＤ（ＡＢＭＡＸ））
　ＷＡＩＴ　８
ＮＥＸＴ
ＲＥＴＵＲＮ

＠ＡＮＩＭＥ２
ＩＦ　ＲＮＤ（３０）　ＴＨＥＮ　ＲＥＴＵＲＮ
ＣＯＬＯＲ　３
ＬＯＣＡＴＥ　ＡＡＸ，ＡＡＹ
ＰＲＩＮＴ　ＡＮＩＡ＄（ＲＮＤ（ＡＡＭＡＸ））
ＲＥＴＵＲＮ

’－－－　シュウリョウ
＠ＳＹＵＲＹＯ
ＡＢＡＫ＄＝Ａ＄　　’ＢＡＣＫＵＰ

Ａ＄＝”シュウリョウ　シマスカ”：ＧＯＳＵＢ　＠ＨＡＮＡＳＵ
ＧＯＳＵＢ　＠ＹＥＳＮＯ
ＩＦ　ＡＮＳ　ＴＨＥＮ　＠ＳＹＵＲＹＯ２
Ａ＄＝”ツツ゛ケマス”：ＧＯＳＵＢ　＠ＨＡＮＡＳＵ

Ａ＄＝ＡＢＡＫ＄　　’ＢＡＣＫＵＰ
ＲＥＴＵＲＮ

＠ＳＹＵＲＹＯ２
Ａ＄＝”オツキアイイタタ゛キ　マコトニアリカ゛トウコ゛サ゛イマシタ”：ＧＯＳＵＢ　＠ＨＡＮＡＳＵ
Ａ＄＝”サヨウナラ”：ＧＯＳＵＢ　＠ＨＡＮＡＳＵ
ＡＣＬＳ
ＥＮＤ

’－－－ＹＥＳ／ＮＯニュウリョク
＠ＹＥＳＮＯ
ＧＯＳＵＢ　＠ＫＥＹＯＦＦ
ＣＯＬＯＲ　３
ＡＮＳ＝ＦＡＬＳＥ
Ｂ＄＝”［Ａ］＝ＹＥＳ　／　［Ｂ］＝ＮＯ”
ＧＯＳＵＢ　＠ＰＲＴＢ

＠ＹＥＳＮＯ２
ＶＳＹＮＣ　２
ＢＴ＝ＢＵＴＴＯＮ（）
ＩＦ　ＢＴ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＹＥＳＮＯ３
ＩＦ　ＢＴ　ＡＮＤ　３２　ＴＨＥＮ　ＡＮＳ＝ＦＡＬＳＥ　’ＮＯ
ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　ＡＮＳ＝ＴＲＵＥ　　’ＹＥＳ
ＧＯＳＵＢ　＠ＡＮＩＭＥ２
ＩＦ　ＢＴ＝＝０　ＴＨＥＮ　＠ＹＥＳＮＯ２
Ｂ＄＝”　　　　　　　　　　　　　　　　　　　　”
ＧＯＳＵＢ　＠ＰＲＴＢ
ＩＦ　ＡＮＳ＝＝１　ＴＨＥＮ　Ｂ＄＝”ＹＥＳ”：ＢＥＥＰ　７：ＣＯＬＯＲ　９
ＩＦ　ＡＮＳ＝＝０　ＴＨＥＮ　Ｂ＄＝”ＮＯ”　：ＢＥＥＰ　４：ＣＯＬＯＲ　１３
ＧＯＳＵＢ　＠ＰＲＴＢ
ＷＡＩＴ　３０
＠ＹＥＳＮＯ３
Ｂ＄＝”　　　　　　　　　　　　　　　　　　　　　　　”
ＧＯＳＵＢ　＠ＰＲＴＢ
ＲＥＴＵＲＮ

’－－－　キ－ニュウリョクマチ
＠ＨＩＴＡＮＹ

ＧＯＳＵＢ　＠ＫＥＹＯＦＦ
ＣＯＬＯＲ　９
ＢＹ＝２３
Ｂ＄＝”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＯＮ”
ＧＯＳＵＢ　＠ＰＲＴＢ

＠ＨＩＴＡＮＹ２
ＶＳＹＮＣ　２
ＢＴ＝ＢＵＴＴＯＮ（）
ＧＯＳＵＢ　＠ＡＮＩＭＥ２
ＩＦ　ＢＴ　ＡＮＤ　（１６＋３２＋１０２４）　ＴＨＥＮ　＠ＨＩＴＡＮＹ３
ＧＯＴＯ　＠ＨＩＴＡＮＹ２

＠ＨＩＴＡＮＹ３
Ｂ＄＝”　　　　　　　　　　　　　　　　　　　　　　　”
ＧＯＳＵＢ　＠ＰＲＴＢ
ＲＥＴＵＲＮ

’－－－　モシ゛ヒョウシ゛
＠ＰＲＴＢ
ＬＯＣＡＴＥ　１６－ＬＥＮ（Ｂ＄）／２，ＢＹ
ＰＲＩＮＴ　Ｂ＄；
ＲＥＴＵＲＮ

’－－－　ホ゛タン　ハナス
＠ＫＥＹＯＦＦ
ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　＠ＫＥＹＯＦＦ
ＲＥＴＵＲＮ

’－－－　カクタ゛イ　モシ゛　ヒョウシ゛
＠ＧＰＵＴＳＴＲ
ＰＴＲ＝０

＠ＧＰＵＴＳＴＲ２
ＩＦ　ＰＴＲ＝＝ＬＥＮ（Ａ＄）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＫＡＩＧＹＯ：ＲＥＴＵＲＮ
ＮＵＭ＝ＡＳＣ（ＭＩＤ＄（Ａ＄，ＰＴＲ，１））
ＧＰＵＴＣＨＲ　Ｘ＋１，Ｙ＋１，”ＢＧＦ０”，ＮＵＭ，１４，ＳＺ
ＧＰＵＴＣＨＲ　Ｘ　　，Ｙ　　，”ＢＧＦ０”，ＮＵＭ，　０，ＳＺ
Ｘ＝Ｘ＋ＳＺＷ
ＩＦ　Ｘ＞２５５　ＴＨＥＮ　ＧＯＳＵＢ　＠ＫＡＩＧＹＯ
ＰＴＲ＝ＰＴＲ＋１
ＧＯＴＯ　＠ＧＰＵＴＳＴＲ２

’－－－　カイキ゛ョウ
＠ＫＡＩＧＹＯ
Ｘ＝０
Ｙ＝Ｙ＋ＳＺＷ
ＩＦ　Ｙ＜（１９１）　ＴＨＥＮ　ＲＥＴＵＲＮ
Ｙ＝Ｙ－ＳＺＷ

ＧＸ１＝０
ＧＹ１＝１９１－７７
ＧＸ２＝２５５
ＧＹ２＝１９１
ＧＸ３＝０
ＧＹ３＝ＧＹ１－１
ＦＯＲ　Ｉ＝１　ＴＯ　ＳＺＷ
　ＧＣＯＰＹ　０，ＧＸ１，ＧＹ１，ＧＸ２，ＧＹ２，ＧＸ３，ＧＹ３，１
　ＧＬＩＮＥ　０，１９１，２５５，１９１，１０
　ＷＡＩＴ　１
ＮＥＸＴ
ＲＥＴＵＲＮ

’－－－　ハイケイ　テキスト
＠ＰＲＴＤＡＴ
Ｉ＝０
＠ＰＲＴＤＡＴ２
ＲＥＡＤ　Ａ＄
ＩＦ　Ａ＄＝＝””　ＴＨＥＮ　ＲＥＴＵＲＮ
ＦＯＲ　Ｊ＝０　ＴＯ　ＬＥＮ（Ａ＄）－１
　Ｂ＄＝ＭＩＤ＄（Ａ＄，Ｊ，１）
　ＬＯＣＡＴＥ　ＬＸ＋Ｊ，ＬＹ＋Ｉ
　ＩＦ　Ｂ＄！＝”　”　ＯＲ　ＭＯＤＥ　ＴＨＥＮ　ＰＲＩＮＴ　Ｂ＄；
ＮＥＸＴ
Ｉ＝Ｉ＋１
ＧＯＴＯ　＠ＰＲＴＤＡＴ２

’－－－　ショキカ
＠ＩＮＩＴ
ＣＬＥＡＲ

ＡＡＸ＝５＋８：ＡＡＹ＝７　：ＡＡＭＡＸ＝２
ＡＢＸ＝７＋８：ＡＢＹ＝１１：ＡＢＭＡＸ＝３
ＤＩＭ　ＡＮＩＡ＄（ＡＡＭＡＸ）
ＤＩＭ　ＡＮＩＢ＄（ＡＢＭＡＸ）

ＡＮＩＡ＄（０）＝”╋┣　　╋┣”
ＡＮＩＡ＄（１）＝”┬┬　　┬┬”

ＡＮＩＢ＄（０）＝”──”
ＡＮＩＢ＄（１）＝”┿┿”
ＡＮＩＢ＄（２）＝”┥┸”

’－－－
ＩＤＳＹＧＯ＝０　　’シュコ゛
ＩＤＭＥＳＩ＝１　　’メイシ
ＩＤＤＯＳＩ＝２　　’ト゛ウシ
ＩＤＫＥＩ　＝３　　’ケイヨウシ
ＩＤＫＥＤＯ＝４　　’ケイヨウト゛ウシ

ＬＯＧＰＴＲ＝１

’－－－テキスト　カ゛メン
ＡＣＬＳ
ＰＮＬＴＹＰＥ　”ＯＦＦ”
ＧＰＡＧＥ　１
ＧＣＬＳ
ＧＰＡＧＥ　０
ＧＦＩＬＬ　０，０，２５５，１９１－８０，１
ＧＦＩＬＬ　０，１９１－７８，２５５，１９１，１０

ＣＯＬＯＲ　９
ＦＯＲ　Ｉ＝０　ＴＯ　１３
　ＦＯＲ　Ｊ＝０　ＴＯ　３１
　　ＩＦ　Ｉ＞＝１０　ＴＨＥＮ　ＣＯＬＯＲ　１１
　　ＬＯＣＡＴＥ　Ｊ，Ｉ
　　ＰＲＩＮＴ　”┿”；
　ＮＥＸＴ
ＮＥＸＴ

ＭＯＤＥ＝０　　　’コヒ゜－モ－ト゛
ＣＯＬＯＲ　４
ＲＥＳＴＯＲＥ　＠ＷＯＯＤ
ＬＸ＝　２：ＬＹ＝３：ＧＯＳＵＢ　＠ＰＲＴＤＡＴ
ＬＸ＝２６：ＬＹ＝３：ＧＯＳＵＢ　＠ＰＲＴＤＡＴ

ＭＯＤＥ＝１　　　’コヒ゜－モ－ト゛
ＣＯＬＯＲ　３
ＲＥＳＴＯＲＥ　＠ＨＩＴＯ
ＬＸ＝９：ＬＹ＝１：ＧＯＳＵＢ　＠ＰＲＴＤＡＴ

’－－－　ＴＡＬＫ
ＷＡＳＹＡ＝１　　　’ワカイ　シ゛ョセイ
ＫＡＮＪＯ＝２　　　’ナコ゛ヤカ　ニ
ＳＰＤ＝１００　　　’ソクト゛

ＳＺ＝２　　　　　　’テキスト　ハ゛イリツ
ＳＺＷ＝８＊ＳＺ　　’テキスト　ヒ゜クセル
Ｘ＝０
Ｙ＝１９２－ＳＺＷ＊３　’カ－ソルサ゛ヒョウ

’－－－　インテ゛ックス　サクセイ
ＤＩＭ　ＩＤＭＡＸ（５）
ＤＩＭ　ＩＤ（５）

ＲＥＳＴＯＲＥ　＠ＫＯＴＯＢＡ
Ｊ＝０
ＩＤＸ＝０
＠ＩＮＩＴ３
ＩＤ（Ｊ）＝ＩＤＸ
Ｉ＝０
＠ＩＮＩＴ２
ＲＥＡＤ　Ｒ＄
ＩＤＸ＝ＩＤＸ＋１
Ｉ＝Ｉ＋１
ＩＦ　Ｒ＄！＝””　ＴＨＥＮ　＠ＩＮＩＴ２
ＩＤＭＡＸ（Ｊ）＝Ｉ－１
Ｊ＝Ｊ＋１
ＩＦ　Ｊ＜５　ＴＨＥＮ　＠ＩＮＩＴ３
ＲＥＴＵＲＮ

’－－－　ヒョウシ゛テ゛－タ
＠ＷＯＯＤ
ＤＡＴＡ　”　бб　”
ＤＡＴＡ　”бббб”
ＤＡＴＡ　”　б○б”
ＤＡＴＡ　”　○│　”
ＤＡＴＡ　”б││　”
ＤＡＴＡ　”б└┤　”
ＤＡＴＡ　”　　│б”
ＤＡＴＡ　”　　├┘”
ＤＡＴＡ　”　　│　”
ＤＡＴＡ　”　　│　”
ＤＡＴＡ　”　　│　”
ＤＡＴＡ　””

ＤＡＴＡ　”　бб　”
ＤＡＴＡ　”бббб”
ＤＡＴＡ　”　○б　”
ＤＡＴＡ　”б│○б”
ＤＡＴＡ　”└┤│б”
ＤＡＴＡ　”　││　”
ＤＡＴＡ　”　││　”
ＤＡＴＡ　”　├┘　”
ＤＡＴＡ　”　│　　”
ＤＡＴＡ　”　│　　”
ＤＡＴＡ　”　│　　”
ＤＡＴＡ　””

＠ＨＩＴＯ
ＤＡＴＡ　”　　　┝┿┿┿┿┿┿┰　　　”
ＤＡＴＡ　”　　┝┸　　　　　　┥┰　　”
ＤＡＴＡ　”　　┿┝┿┿┿┿┿┿┰┿з　”
ＤＡＴＡ　”　　┿┿┸┥┿┿┸┥┿┿з　”
ＤＡＴＡ　”　　┥┸　　┥┸　　┥┸з　”
ＤＡＴＡ　”　　УУжж　　жж　Уз　”
ＤＡＴＡ　”　　УУ╋┣　　╋┣　Уз　”
ＤＡＴＡ　”　┝┰У　　　　　　　┝┰　”
ＤＡＴＡ　”　┿┿У　　　У　　　┿┿з”
ＤＡＴＡ　”　┿┿┰　　　　　　┝┿┿з”
ＤＡＴＡ　”　┿┿┸л　──　к┥┿┿з”
ＤＡＴＡ　”┝┿┸л　л　　к　к┥┿┰”
ＤＡＴＡ　”┥┸л　л　жж　как┥┸”
ＤＡＴＡ　””

’－－－　カイワテ゛－タ
＠ＫＯＴＯＢＡ
’－－－ニンショウタ゛イメイシ
ＤＡＴＡ　”ワタシ”
ＤＡＴＡ　”アナタ”
ＤＡＴＡ　””

’－－－メイシ
ＤＡＴＡ　”ケ゛－ム”，”フ゜チコン”，”オンカ゛ク”，”ト゛ウロ”
ＤＡＴＡ　”マチ”，”エキ”，”イス”，”ツクエ”，”ト゛ア”
ＤＡＴＡ　”トウキョウ”，”オオサカ”，”ホッカイト゛ウ”，”アキハハ゛ラ”
ＤＡＴＡ　”チキュウ”，”イント゛”，”イキ゛リス”，”シンシ゛ュク”
ＤＡＴＡ　”インタ－ネット”，”ケ－フ゛ル”，”トランシ゛スタ”
ＤＡＴＡ　”シ゛ンコウチノウ”，”タッキュウ”，”サッカ－”，”ヤキュウ”
ＤＡＴＡ　”クルマ”，”ハ゛イク”，”シ゛テンシャ”，”オチャ”
ＤＡＴＡ　”シ゛ト゛ウシャ”，”トラック”，”ハ゛－コ－ト゛”，”シャシン”
ＤＡＴＡ　”ケイタイテ゛ンワ”，”スフ゜－ン”，”ネッタイキ゛ョ”
ＤＡＴＡ　”トシ”，”ウタ”，”ワリハ゛シ”，”テカ゛ミ”
ＤＡＴＡ　”カ゛ラス”，”テ゛ンシャ”，”メカ゛ネ”，”ホン”
ＤＡＴＡ　”テ゛ンカセイヒン”，”テレヒ゛”，”エアコン”，”ソウシ゛キ”，”センタクキ”
ＤＡＴＡ　”ハ゜ソコン”，”フ゜リンタ”，”ケイコウトウ”
ＤＡＴＡ　”テ゛ンキ”，”ホンタ゛ナ”，”ライト”，”カメラ”
ＤＡＴＡ　”コンヒ゛ニ”，”イエ”，”ヒ゛ル”，”オタマ”，”オカネ”
ＤＡＴＡ　”テ゛ンキ”，”ニク”，”ヌカ”，”ネント゛”，”イヌ”，”ネコ”
ＤＡＴＡ　”セ゛イキン”，”ナットウ”，”ニンシ゛ン”，”ネンカ゛シ゛ョウ”
ＤＡＴＡ　”フ゛ンホ゛ウク゛”，”ヤンハ゛ルクイナ”，”タンチョウツ゛ル”
ＤＡＴＡ　”エンヒ゜ツ”，”ホ゛－ルヘ゜ン”，”ハサミ”，”ケシコ゛ム”
ＤＡＴＡ　”カミ”，”ナイフ”，”ノ－ト”，”ソ－メン”，”ケ－キ”
ＤＡＴＡ　”タヘ゛モノ”，”コ゛ハン”，”タコヤキ”，”タイヤキ”，”ハ゜ン”
ＤＡＴＡ　”オカシ”，”チョコレ－ト”，”ラ－メン”，”スキヤキ”
ＤＡＴＡ　”ヤサイ”，”モヤシ”，”ヒ゜－マン”，”センメンキ”
ＤＡＴＡ　”タ゛イコン”，”ニンシ゛ン”，”チクワ”，”コンフ゛”
ＤＡＴＡ　”ミカン”，”スイカ”，”リンコ゛”，”カキ”
ＤＡＴＡ　”エレヘ゛－タ”，”エスカレ－タ”，”カイタ゛ン”
ＤＡＴＡ　”カ゛ラス”，”コンクリ－ト”，”キン”，”テツ”
ＤＡＴＡ　”キ゛ョウサ゛”，”クシ゛ラ”，”シメサハ゛”，”オニキ゛リ”
ＤＡＴＡ　”ウチュウ”，”ハクサイ”，”マネキン”，”マント゛リル”
ＤＡＴＡ　”コ－ヒ－”，”ミス゛”，”コッフ゜”，”ロウソク”
ＤＡＴＡ　”サトウ”，”シオ”，”コショウ”，”ショウユ”
ＤＡＴＡ　”ソ゛ウ”，”キリン”，”オオカミ”，”イルカ”，”サル”
ＤＡＴＡ　”エイカ゛”，”メモヨウシ”，”シシャモ”，”サンマ”
ＤＡＴＡ　””

’－－－ト゛ウシ
ＤＡＴＡ　”アソフ゛”，”ソソク゛”
ＤＡＴＡ　”タタク”，”ノハ゛ス”
ＤＡＴＡ　”オホ゛エル”，”タス゛ネル”
ＤＡＴＡ　”ワル”，”キル”
ＤＡＴＡ　”トル”，”ネムル”
ＤＡＴＡ　”ツカウ”，”ムスフ゛”
ＤＡＴＡ　”カウ”，”ウル”
ＤＡＴＡ　”ウチコム”，”トリカエル”
ＤＡＴＡ　”ウツ”，”アテル”
ＤＡＴＡ　”ウコ゛カス”
ＤＡＴＡ　”ツナク゛”，”キソウ”
ＤＡＴＡ　”テ゛ル”，”マモル”
ＤＡＴＡ　”トメル”，”アルク”
ＤＡＴＡ　”ハシル”，”オクル”
ＤＡＴＡ　”ハル”，”メサ゛ス”
ＤＡＴＡ　”ヒロウ”，”オトス”
ＤＡＴＡ　”ミル”，”キク”，”ハナス”
ＤＡＴＡ　”ナオス”，”シメス”
ＤＡＴＡ　””

’－－－ケイヨウシ
ＤＡＴＡ　”カタイ”，”ヤワラカイ”
ＤＡＴＡ　”タカイ”，”ヒクイ”
ＤＡＴＡ　”アツイ”，”サムイ”
ＤＡＴＡ　”アタタカイ”，”ツメタイ”
ＤＡＴＡ　”オモイ”，”カルイ”
ＤＡＴＡ　”トオイ”，”チカイ”
ＤＡＴＡ　”シカクイ”，”ココチヨイ”
ＤＡＴＡ　”マルイ”，”モロイ”
ＤＡＴＡ　”キタナイ”，”ハカナイ”
ＤＡＴＡ　”オモシロイ”，”キョウミフ゛カイ”
ＤＡＴＡ　”ツマラナイ”，”タノシイ”
ＤＡＴＡ　”アカルイ”，”クライ”
ＤＡＴＡ　”ハヤイ”，”オソイ”
ＤＡＴＡ　”コマカイ”，”メス゛ラシイ”
ＤＡＴＡ　”アタラシイ”，”フルイ”
ＤＡＴＡ　”アリカ゛タイ”
ＤＡＴＡ　”ウルサイ”
ＤＡＴＡ　””

’－－－ケイヨウト゛ウシ
ＤＡＴＡ　”キレイ”，”シンセツ”，”ハナヤカ”
ＤＡＴＡ　”スキ”，”キライ”，”ヒ゛ンホ゛ウ”
ＤＡＴＡ　”イッショ”，”オタ゛ヤカ”，”フシキ゛”
ＤＡＴＡ　”ケンコウ”，”カンタン”，”シセ゛ン”
ＤＡＴＡ　”シス゛カ”，”ケ゛ンキ”，”フシセ゛ン”
ＤＡＴＡ　”セイカク”，”サイコウ”
ＤＡＴＡ　”カラフル”，”トウメイ”
ＤＡＴＡ　””