私はこう見えても結構律儀なのである。今回は「ｓｏｎｇｚｈａｏのボケ封じ数学講座第１６講」で勝手に約束した暦に関するプログラムに挑戦したいと思う。
それでは、我が珠玉の作品をポケコンにプログラミングしてくれたまえ！。イモ兄ちゃんの匂いがするというか手作りの粘土細工の趣がある。
副題；Ｐａｄｒｅ Ｇｒｅｇｏｒｉｕｓ ａｓｋｓ”Ｈｏｗ ｏｌｄ ａｒｅ ｙｏｕ？”
１０ ＣＬＥＡＲ：ＣＬＳ：ＰＲＩＮＴ”Ｐａｄｒｅ Ｇｒｅｇｏｒｉｕｓ ａｓｋｓ”，”Ｈｏｗ ｏｌｄ ａｒｅ ｙｏｕ？”，
２０ ＰＲＩＮＴ ”＜ｂｙ ｓｏｎｇｚｈａｏ＞”；
３０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ３０
１００ ＲＥＭ＊＊＊メイン プログラム
１１０ ＤＩＭ Ａ＄（４），Ｂ（３），Ｃ＄（１），Ｗ＄（１４），Ｍ（１２）
１２０ ＲＥＳＴＯＲＥ １２５：ＦＯＲ Ｊ＝０ ＴＯ ４：ＲＥＡＤ Ａ＄（Ｊ）：ＮＥＸＴ Ｊ
１２５ ＤＡＴＡ セイレキ，メイジ，タイショウ，ショウワ，ヘイセイ
１３０ Ｂ（０）＝１８６７：Ｂ（１）＝１９１１：Ｂ（２）＝１９２５：Ｂ（３）＝１９８８：Ｃ＄（０）＝”タンジョウ”：Ｃ＄（１）＝”ゲンザイ”
１４０ ＲＥＳＴＯＲＥ １６０：ＦＯＲ Ｊ＝１ ＴＯ ７：ＲＥＡＤ Ｗ＄（Ｊ）：ＮＥＸＴ Ｊ
１５０ ＲＥＳＴＯＲＥ １６０：ＦＯＲ Ｊ＝８ ＴＯ １４：ＲＥＡＤ Ｗ＄（Ｊ）：ＮＥＸＴ Ｊ
１６０ ＤＡＴＡ ＳＵＮ．，ＭＯＮ．，ＴＵＥ．，ＷＥＤ．，ＴＨＵＥＳ．，ＦＲＩ．，ＳＡＴ．
１７０ ＲＥＳＴＯＲＥ １９０：ＦＯＲ Ｊ＝１ ＴＯ １２：ＲＥＡＤ Ｍ（Ｊ）：ＮＥＸＴ Ｊ
１９０ ＤＡＴＡ ３１，２８，３１，３０，３１，３０，３１，３１，３０，３１，３０，３１
２００ Ｑ＝０：ＧＯＳＵＢ ５００：Ｋ＝Ｊ：Ａ＝Ｙ：Ｈ＝Ｙ：Ｂ＝Ｍ：Ｃ＝Ｄ：Ｑ＝１：ＧＯＳＵＢ ５００：Ｌ＝Ｊ：Ｅ＝Ｙ：Ｉ＝Ｙ：Ｆ＝Ｍ：Ｇ＝Ｄ
２１０ ＩＦ Ｋ＜＞０ ＴＨＥＮ Ａ＝Ａ＋Ｂ（Ｋ－１）ＥＬＳＥ Ｙ＝Ａ：ＧＯＳＵＢ ６００：Ｋ＝Ｒ：Ｈ＝Ｈ－Ｂ（Ｋ－１）
２２０ ＩＦ Ｌ＜＞０ ＴＨＥＮ Ｅ＝Ｅ＋Ｂ（Ｌ－１）ＥＬＳＥ Ｙ＝Ｅ：ＧＯＳＵＢ ６００：Ｌ＝Ｒ：Ｉ＝Ｉ－Ｂ（Ｌ－１）
２３０ ＧＯＳＵＢ ７００
２４０ Ｎ＝Ｅ－Ａ：Ｏ＝Ｆ－Ｂ：Ｐ＝Ｇ－Ｃ：ＩＦ Ｏ＜０ ＴＨＥＮ Ｏ＝Ｏ＋１２：Ｎ＝Ｎ－１
２５０ ＧＯＳＵＢ ８００
２６０ ＣＬＳ：ＰＲＩＮＴ”ネンレイ”；Ｎ；”サイ”；Ｏ；”ツキ ”；Ｐ；”ニチ”
２７０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ２７０
２８０ ＣＬＳ：ＰＲＩＮＴ Ｃ＄（０），”（”；Ａ；”）”；ＬＥＦＴ＄（Ａ＄（Ｋ），２）；Ｈ；Ｂ；Ｃ
２９０ ＰＲＩＮＴ Ｃ＄（１），”（”；Ｅ；”）”；ＬＥＦＴ＄（Ａ＄（Ｌ），２）；Ｉ；Ｆ；Ｇ；
３００ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ３００
３１０ ＣＬＳ：ＰＲＩＮＴ”Ｉ ｌｉｖｅ ｆｏｒ”；ＤＴ；”ｄａｙｓ”，”ｂｏｒｎ ｏｎ”；Ｗ＄（ＷＩ）；”ｄａｙ”；
３２０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ３２０ ＥＬＳＥ １０
５００ ＲＥＭ＊＊＊データ ニュウリョク ルーチン
５１０ ＦＯＲ Ｊ＝０ ＴＯ ４：ＣＬＳ：ＰＲＩＮＴ Ｃ＄（Ｑ），”＜ｙｅｓ ｏｎ Ｙ＞”，Ａ＄（Ｊ）
５２０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ５２０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｙ”ＴＨＥＮ ５４０
５３０ ＮＥＸＴ Ｊ：ＧＯＴＯ ５１０
５４０ ＣＬＳ：ＰＲＩＮＴ Ａ＄（Ｊ）：ＩＮＰＵＴ”ナンネン ”；Ｙ，”ナンガツ”；Ｍ，”ナンニチ ”；Ｄ：ＲＥＴＵＲＮ
６００ ＲＥＭ＊＊＊ケイスウＲケンシュツ ルーチン
６１０ ＩＦ（Ｙ－１８６８）＊（Ｙ－１９１１）＜＝０ ＴＨＥＮ Ｒ＝１：ＧＯＴＯ ６４０
６２０ ＩＦ（Ｙ－１９１２）＊（Ｙ－１９２５）＜＝０ ＴＨＥＮ Ｒ＝２：ＧＯＴＯ ６４０
６３０ ＩＦ（Ｙ－１９２６）＊（Ｙ－１９８８）＜＝０ ＴＨＥＮ Ｒ＝３ ＥＬＳＥ Ｒ＝４
６４０ ＲＥＴＵＲＮ
７００ ＲＥＭ＊＊＊ゲンザイ ノ ヨウビ ニュウリョク ルーチン
７１０ ＦＯＲ Ｊ＝１ ＴＯ ７：ＣＬＳ：ＰＲＩＮＴ”キョウ ナニヨウビ？”，”＜ｙｅｓ ｏｎ Ｙ＞”，Ｗ＄（Ｊ）
７２０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ７２０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｙ” ＴＨＥＮ ７４０
７３０ ＮＥＸＴ Ｊ：ＧＯＴＯ ７１０
７４０ ＷＷ＝Ｊ：ＲＥＴＵＲＮ
８００ ＲＥＭ＊＊＊ニッスウ ケイサン ルーチン
８１０ ＤＴ＝０：ＩＦ Ａ＝Ｅ ＴＨＥＮ ８２０ ＥＬＳＥ ８７０
８２０ ＩＦ ＦＲＡＣ（Ａ／４００）＜＞０ ＴＨＥＮ ８４０ ＥＬＳＥ ＩＦ ＦＲＡＣ（Ａ／４）＜＞０ ＴＨＥＮ ８４０
８３０ Ｍ（２）＝２９
８４０ ＩＦ Ｂ＝Ｆ ＴＨＥＮ ８６０
８５０ ＦＯＲ Ｊ＝Ｂ ＴＯ Ｆ－１：ＤＴ＝ＤＴ＋Ｍ（Ｊ）：ＮＥＸＴ Ｊ
８６０ ＤＴ＝ＤＴ－Ｃ＋Ｇ＋１：ＧＯＴＯ １０００
８７０ ＩＦ ＦＲＡＣ（Ａ／４００）＜＞０ ＴＨＥＮ ８９０ ＥＬＳＥ ＩＦ ＦＲＡＣ（Ａ／４）＜＞０ ＴＨＥＮ ８９０
８８０ Ｍ（２）＝２９
８９０ ＦＯＲ Ｊ＝Ｂ ＴＯ １２：ＤＴ＝ＤＴ＋Ｍ（Ｊ）：ＮＥＸＴ Ｊ：Ｍ（２）＝２８
９００ ＩＦ ＦＲＡＣ（Ｅ／４００）＜＞０ ＴＨＥＮ ９２０ ＥＬＳＥ ＩＦ ＦＲＡＣ（Ｅ／４）＜＞０ ＴＨＥＮ ９２０
９１０ Ｍ（２）＝２９
９２０ ＩＦ Ｆ＝１ ＴＨＥＮ ９３０ ＥＬＳＥ ＦＯＲ Ｊ＝１ ＴＯ Ｆ－１：ＤＴ＝ＤＴ＋Ｍ（Ｊ）：ＮＥＸＴ Ｊ
９３０ ＩＦ Ｅ＝Ａ＋１ ＴＨＥＮ ＤＴ＝ＤＴ－Ｃ＋Ｇ＋１：ＧＯＴＯ １０００
９４０ Ｕ＝０：ＦＯＲ Ｊ＝Ａ＋１ ＴＯ Ｅ－１
９５０ ＩＦ ＦＲＡＣ（Ｊ／４）＝０ ＴＨＥＮ Ｕ＝Ｕ＋１
９６０ ＩＦ ＦＲＡＣ（Ｊ／４００）＜＞０ ＴＨＥＮ Ｕ＝Ｕ－１
９７０ ＮＥＸＴ Ｊ
９８０ ＤＴ＝ＤＴ－Ｃ＋Ｇ＋１＋３６５＊（Ｅ－Ａ－１）＋Ｕ
１０００ ＷＴ＝ＤＴ－ＩＮＴ（ＤＴ／７）＊７
１０１０ ＩＦ ＷＷ－ＷＴ＜０ ＴＨＥＮ ＷＷ＝ＷＷ＋７
１０２０ ＷＩ＝ＷＷ－ＷＴ＋１
１０３０ ＲＥＴＵＲＮ
まず、このプログラムをＲＵＮすると
Ｐａｄｒｅ Ｇｒｅｇｏｒｉｕｓ ａｓｋｓ Ｈｏｗ ｏｌｄ ａｒｅ ｙｏｕ？ ＜ｂｙ ｓｏｎｇｚｈａｏ＞という表示が現れる。ＲＥＴＵＲＮ キーを押すと、
ウマレ
＜ｙｅｓ ｏｎ Ｙ＞
セイレキ
という表示に変わります。もし西暦で年数を求めたければ、Ｙキーを押すと、ナンネン ？と聞いてくるので、１９９０ リターンとしてみる。すると、ナンガツ？ときいてくるので、３ リターンと打ち込んでみる。すると今度はナンニチ ？ときいてくる。４ リターンとリターンキーを押してみよう。すると、
ゲンザイ
＜ｙｅｓ ｏｎ Ｙ＞
セイレキ
このように表示されます。ここで大切なことは、Ｙキー以外のキーと押すと、セイレキ・・・メイジ・・・タイショウ・・・ショウワ・・・ヘイセイ・・・セイレキという具合に表示が次々に変わります。ある表示のときＹキーを押したところが入力年代の選択肢となります。・・・・同じ要領で、２００６年１０月１日を入力してください。・・・すると今度は、
キョウ ナニヨウビ？
＜ｙｅｓ ｏｎ Ｙ＞
ＳＵＮ．
このように表示されます。例によって、Ｙ以外のキーを押して曜日を選択し、Ｙキーを押すことによって、曜日を決定してください。この日は日曜日であったのでＳＵＮ．を選択決定してください。すると、ネンレイ １６サイ ７ツキ －３ニチと表示されます。ここでリターンキーを押します。すると、
ウマレ
（ １９９０）ヘイ ２ ３ ４
ゲンザイ
（ ２００６）ヘイ １８ １０ １ ・・・という表示に変わります。
もう一度、リターンキーを押すと、
Ｉ ｌｉｖｅ ｆｏｒ ６０４２ ｄａｙｓ
ｂｏｒｎ ｏｎ ＳＵＮ．ｄａｙ
・・・・ とこのように回答が示されます。いろいろとさまざまに試してみて下さい。私もこのプログラムを検証しないまま表ざたにするのは気が引けるのであるが、まあ正常に機能すると思います。
それでは、我が珠玉の作品をポケコンにプログラミングしてくれたまえ！。イモ兄ちゃんの匂いがするというか手作りの粘土細工の趣がある。
副題；Ｐａｄｒｅ Ｇｒｅｇｏｒｉｕｓ ａｓｋｓ”Ｈｏｗ ｏｌｄ ａｒｅ ｙｏｕ？”
１０ ＣＬＥＡＲ：ＣＬＳ：ＰＲＩＮＴ”Ｐａｄｒｅ Ｇｒｅｇｏｒｉｕｓ ａｓｋｓ”，”Ｈｏｗ ｏｌｄ ａｒｅ ｙｏｕ？”，
２０ ＰＲＩＮＴ ”＜ｂｙ ｓｏｎｇｚｈａｏ＞”；
３０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ３０
１００ ＲＥＭ＊＊＊メイン プログラム
１１０ ＤＩＭ Ａ＄（４），Ｂ（３），Ｃ＄（１），Ｗ＄（１４），Ｍ（１２）
１２０ ＲＥＳＴＯＲＥ １２５：ＦＯＲ Ｊ＝０ ＴＯ ４：ＲＥＡＤ Ａ＄（Ｊ）：ＮＥＸＴ Ｊ
１２５ ＤＡＴＡ セイレキ，メイジ，タイショウ，ショウワ，ヘイセイ
１３０ Ｂ（０）＝１８６７：Ｂ（１）＝１９１１：Ｂ（２）＝１９２５：Ｂ（３）＝１９８８：Ｃ＄（０）＝”タンジョウ”：Ｃ＄（１）＝”ゲンザイ”
１４０ ＲＥＳＴＯＲＥ １６０：ＦＯＲ Ｊ＝１ ＴＯ ７：ＲＥＡＤ Ｗ＄（Ｊ）：ＮＥＸＴ Ｊ
１５０ ＲＥＳＴＯＲＥ １６０：ＦＯＲ Ｊ＝８ ＴＯ １４：ＲＥＡＤ Ｗ＄（Ｊ）：ＮＥＸＴ Ｊ
１６０ ＤＡＴＡ ＳＵＮ．，ＭＯＮ．，ＴＵＥ．，ＷＥＤ．，ＴＨＵＥＳ．，ＦＲＩ．，ＳＡＴ．
１７０ ＲＥＳＴＯＲＥ １９０：ＦＯＲ Ｊ＝１ ＴＯ １２：ＲＥＡＤ Ｍ（Ｊ）：ＮＥＸＴ Ｊ
１９０ ＤＡＴＡ ３１，２８，３１，３０，３１，３０，３１，３１，３０，３１，３０，３１
２００ Ｑ＝０：ＧＯＳＵＢ ５００：Ｋ＝Ｊ：Ａ＝Ｙ：Ｈ＝Ｙ：Ｂ＝Ｍ：Ｃ＝Ｄ：Ｑ＝１：ＧＯＳＵＢ ５００：Ｌ＝Ｊ：Ｅ＝Ｙ：Ｉ＝Ｙ：Ｆ＝Ｍ：Ｇ＝Ｄ
２１０ ＩＦ Ｋ＜＞０ ＴＨＥＮ Ａ＝Ａ＋Ｂ（Ｋ－１）ＥＬＳＥ Ｙ＝Ａ：ＧＯＳＵＢ ６００：Ｋ＝Ｒ：Ｈ＝Ｈ－Ｂ（Ｋ－１）
２２０ ＩＦ Ｌ＜＞０ ＴＨＥＮ Ｅ＝Ｅ＋Ｂ（Ｌ－１）ＥＬＳＥ Ｙ＝Ｅ：ＧＯＳＵＢ ６００：Ｌ＝Ｒ：Ｉ＝Ｉ－Ｂ（Ｌ－１）
２３０ ＧＯＳＵＢ ７００
２４０ Ｎ＝Ｅ－Ａ：Ｏ＝Ｆ－Ｂ：Ｐ＝Ｇ－Ｃ：ＩＦ Ｏ＜０ ＴＨＥＮ Ｏ＝Ｏ＋１２：Ｎ＝Ｎ－１
２５０ ＧＯＳＵＢ ８００
２６０ ＣＬＳ：ＰＲＩＮＴ”ネンレイ”；Ｎ；”サイ”；Ｏ；”ツキ ”；Ｐ；”ニチ”
２７０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ２７０
２８０ ＣＬＳ：ＰＲＩＮＴ Ｃ＄（０），”（”；Ａ；”）”；ＬＥＦＴ＄（Ａ＄（Ｋ），２）；Ｈ；Ｂ；Ｃ
２９０ ＰＲＩＮＴ Ｃ＄（１），”（”；Ｅ；”）”；ＬＥＦＴ＄（Ａ＄（Ｌ），２）；Ｉ；Ｆ；Ｇ；
３００ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ３００
３１０ ＣＬＳ：ＰＲＩＮＴ”Ｉ ｌｉｖｅ ｆｏｒ”；ＤＴ；”ｄａｙｓ”，”ｂｏｒｎ ｏｎ”；Ｗ＄（ＷＩ）；”ｄａｙ”；
３２０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ３２０ ＥＬＳＥ １０
５００ ＲＥＭ＊＊＊データ ニュウリョク ルーチン
５１０ ＦＯＲ Ｊ＝０ ＴＯ ４：ＣＬＳ：ＰＲＩＮＴ Ｃ＄（Ｑ），”＜ｙｅｓ ｏｎ Ｙ＞”，Ａ＄（Ｊ）
５２０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ５２０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｙ”ＴＨＥＮ ５４０
５３０ ＮＥＸＴ Ｊ：ＧＯＴＯ ５１０
５４０ ＣＬＳ：ＰＲＩＮＴ Ａ＄（Ｊ）：ＩＮＰＵＴ”ナンネン ”；Ｙ，”ナンガツ”；Ｍ，”ナンニチ ”；Ｄ：ＲＥＴＵＲＮ
６００ ＲＥＭ＊＊＊ケイスウＲケンシュツ ルーチン
６１０ ＩＦ（Ｙ－１８６８）＊（Ｙ－１９１１）＜＝０ ＴＨＥＮ Ｒ＝１：ＧＯＴＯ ６４０
６２０ ＩＦ（Ｙ－１９１２）＊（Ｙ－１９２５）＜＝０ ＴＨＥＮ Ｒ＝２：ＧＯＴＯ ６４０
６３０ ＩＦ（Ｙ－１９２６）＊（Ｙ－１９８８）＜＝０ ＴＨＥＮ Ｒ＝３ ＥＬＳＥ Ｒ＝４
６４０ ＲＥＴＵＲＮ
７００ ＲＥＭ＊＊＊ゲンザイ ノ ヨウビ ニュウリョク ルーチン
７１０ ＦＯＲ Ｊ＝１ ＴＯ ７：ＣＬＳ：ＰＲＩＮＴ”キョウ ナニヨウビ？”，”＜ｙｅｓ ｏｎ Ｙ＞”，Ｗ＄（Ｊ）
７２０ Ｚ＄＝ＩＮＫＥＹ＄：ＩＦ Ｚ＄＝””ＴＨＥＮ ７２０ ＥＬＳＥ ＩＦ Ｚ＄＝”Ｙ” ＴＨＥＮ ７４０
７３０ ＮＥＸＴ Ｊ：ＧＯＴＯ ７１０
７４０ ＷＷ＝Ｊ：ＲＥＴＵＲＮ
８００ ＲＥＭ＊＊＊ニッスウ ケイサン ルーチン
８１０ ＤＴ＝０：ＩＦ Ａ＝Ｅ ＴＨＥＮ ８２０ ＥＬＳＥ ８７０
８２０ ＩＦ ＦＲＡＣ（Ａ／４００）＜＞０ ＴＨＥＮ ８４０ ＥＬＳＥ ＩＦ ＦＲＡＣ（Ａ／４）＜＞０ ＴＨＥＮ ８４０
８３０ Ｍ（２）＝２９
８４０ ＩＦ Ｂ＝Ｆ ＴＨＥＮ ８６０
８５０ ＦＯＲ Ｊ＝Ｂ ＴＯ Ｆ－１：ＤＴ＝ＤＴ＋Ｍ（Ｊ）：ＮＥＸＴ Ｊ
８６０ ＤＴ＝ＤＴ－Ｃ＋Ｇ＋１：ＧＯＴＯ １０００
８７０ ＩＦ ＦＲＡＣ（Ａ／４００）＜＞０ ＴＨＥＮ ８９０ ＥＬＳＥ ＩＦ ＦＲＡＣ（Ａ／４）＜＞０ ＴＨＥＮ ８９０
８８０ Ｍ（２）＝２９
８９０ ＦＯＲ Ｊ＝Ｂ ＴＯ １２：ＤＴ＝ＤＴ＋Ｍ（Ｊ）：ＮＥＸＴ Ｊ：Ｍ（２）＝２８
９００ ＩＦ ＦＲＡＣ（Ｅ／４００）＜＞０ ＴＨＥＮ ９２０ ＥＬＳＥ ＩＦ ＦＲＡＣ（Ｅ／４）＜＞０ ＴＨＥＮ ９２０
９１０ Ｍ（２）＝２９
９２０ ＩＦ Ｆ＝１ ＴＨＥＮ ９３０ ＥＬＳＥ ＦＯＲ Ｊ＝１ ＴＯ Ｆ－１：ＤＴ＝ＤＴ＋Ｍ（Ｊ）：ＮＥＸＴ Ｊ
９３０ ＩＦ Ｅ＝Ａ＋１ ＴＨＥＮ ＤＴ＝ＤＴ－Ｃ＋Ｇ＋１：ＧＯＴＯ １０００
９４０ Ｕ＝０：ＦＯＲ Ｊ＝Ａ＋１ ＴＯ Ｅ－１
９５０ ＩＦ ＦＲＡＣ（Ｊ／４）＝０ ＴＨＥＮ Ｕ＝Ｕ＋１
９６０ ＩＦ ＦＲＡＣ（Ｊ／４００）＜＞０ ＴＨＥＮ Ｕ＝Ｕ－１
９７０ ＮＥＸＴ Ｊ
９８０ ＤＴ＝ＤＴ－Ｃ＋Ｇ＋１＋３６５＊（Ｅ－Ａ－１）＋Ｕ
１０００ ＷＴ＝ＤＴ－ＩＮＴ（ＤＴ／７）＊７
１０１０ ＩＦ ＷＷ－ＷＴ＜０ ＴＨＥＮ ＷＷ＝ＷＷ＋７
１０２０ ＷＩ＝ＷＷ－ＷＴ＋１
１０３０ ＲＥＴＵＲＮ
まず、このプログラムをＲＵＮすると
Ｐａｄｒｅ Ｇｒｅｇｏｒｉｕｓ ａｓｋｓ Ｈｏｗ ｏｌｄ ａｒｅ ｙｏｕ？ ＜ｂｙ ｓｏｎｇｚｈａｏ＞という表示が現れる。ＲＥＴＵＲＮ キーを押すと、
ウマレ
＜ｙｅｓ ｏｎ Ｙ＞
セイレキ
という表示に変わります。もし西暦で年数を求めたければ、Ｙキーを押すと、ナンネン ？と聞いてくるので、１９９０ リターンとしてみる。すると、ナンガツ？ときいてくるので、３ リターンと打ち込んでみる。すると今度はナンニチ ？ときいてくる。４ リターンとリターンキーを押してみよう。すると、
ゲンザイ
＜ｙｅｓ ｏｎ Ｙ＞
セイレキ
このように表示されます。ここで大切なことは、Ｙキー以外のキーと押すと、セイレキ・・・メイジ・・・タイショウ・・・ショウワ・・・ヘイセイ・・・セイレキという具合に表示が次々に変わります。ある表示のときＹキーを押したところが入力年代の選択肢となります。・・・・同じ要領で、２００６年１０月１日を入力してください。・・・すると今度は、
キョウ ナニヨウビ？
＜ｙｅｓ ｏｎ Ｙ＞
ＳＵＮ．
このように表示されます。例によって、Ｙ以外のキーを押して曜日を選択し、Ｙキーを押すことによって、曜日を決定してください。この日は日曜日であったのでＳＵＮ．を選択決定してください。すると、ネンレイ １６サイ ７ツキ －３ニチと表示されます。ここでリターンキーを押します。すると、
ウマレ
（ １９９０）ヘイ ２ ３ ４
ゲンザイ
（ ２００６）ヘイ １８ １０ １ ・・・という表示に変わります。
もう一度、リターンキーを押すと、
Ｉ ｌｉｖｅ ｆｏｒ ６０４２ ｄａｙｓ
ｂｏｒｎ ｏｎ ＳＵＮ．ｄａｙ
・・・・ とこのように回答が示されます。いろいろとさまざまに試してみて下さい。私もこのプログラムを検証しないまま表ざたにするのは気が引けるのであるが、まあ正常に機能すると思います。