題名：座標のマジック
これは私の備忘録といった類のもので、測量のカテゴリーに属するプログラムです。入っているデータは昔私が測量して地形を座標表記したものです。側点の数の要求に対して５８と入力すれば、プログラムの目的とするところがご理解いただけると思います。使用しているのはカシオ計算機のＦＸ－８９０Ｐです。
１ ＤＡＴＡ ０．６１８，－３２．０５０
２ ＤＡＴＡ－９．４７１，－２６．０７６
３ ＤＡＴＡ－１５．６６７，－１８．３２２
４ ＤＡＴＡ－１７．９９３，－１３．６２１
５ ＤＡＴＡ－２０．０５８，－６．８５８
６ ＤＡＴＡ－１９．５５４，５．３７１
７ ＤＡＴＡ－１８．７０５，８．２１８
８ ＤＡＴＡ－１６．７６６，１０．６７７
９ ＤＡＴＡ ７．２８９，１６．１１０
１０ ＤＡＴＡ １３．７４４，１４．７６５
１１ ＤＡＴＡ ２２．７４７，１４．８２５
１２ ＤＡＴＡ ３２．０００，１８．９４１
１３ ＤＡＴＡ ３６．４６２，２７．０８３
１４ ＤＡＴＡ ４２．７２８，３０．５７５
１５ ＤＡＴＡ ５１．１３８，２４．５９４
１６ ＤＡＴＡ ５５．３８５，１７．４２３
１７ ＤＡＴＡ ５４．３４７，１２．０９９
１８ ＤＡＴＡ ７４．１８３，９．６９９
１９ ＤＡＴＡ ８０．３２２，８．４７２
２０ ＤＡＴＡ ８７．０１７，５．１０８
２１ ＤＡＴＡ ９５．６８０，－０．８１５
２２ ＤＡＴＡ １０４．３３９，－１４．３９２
２３ ＤＡＴＡ １０８．７１９，－１９．３５０
２４ ＤＡＴＡ １１３．０００，－２３．３９４
２５ ＤＡＴＡ １１６．１９２，－２５．６２８
２６ ＤＡＴＡ １３１．６８７，－３２．９４１
２７ ＤＡＴＡ １３２．２９０，－３６．８９７
２８ ＤＡＴＡ １３５．７８６，－５８．０４５
２９ ＤＡＴＡ １４４．４２５，－１０７．８６５
３０ ＤＡＴＡ １４５．４０３，－１１２．６５８
３１ ＤＡＴＡ １３３．１４４，－１６６．４２７
３２ ＤＡＴＡ １１３．７４７，－１０９．９１５
３３ ＤＡＴＡ １１３．０１１，－１０９．２２２
３４ ＤＡＴＡ １１１．７５６，－９８．６７８
３５ ＤＡＴＡ ７８．８３３，－８６．４８４
３６ ＤＡＴＡ ７３．５２５，－８７．２３０
３７ ＤＡＴＡ ７１．１０６，－８３．９２５
３８ ＤＡＴＡ ６８．１２４，－６７．５６５
３９ ＤＡＴＡ ４５．１９５，－５３．５６５
４０ ＤＡＴＡ ３８．１８７，－４７．４９９
４１ ＤＡＴＡ ３１．１７７，－４３．１３３
４２ ＤＡＴＡ ２７．４１８，－４１．４９０
４３ ＤＡＴＡ ２３．４８３，４０．２１７
４４ ＤＡＴＡ ９．７０２，－３６．２３８
４５ ＤＡＴＡ ５．７２０，－３４．６４１
４６ ＤＡＴＡ ５８．７１６，１５．６５９
４７ ＤＡＴＡ ５９．９０５，１３．５９３
４８ ＤＡＴＡ ７６．４０４，１６．１７８
４９ ＤＡＴＡ ８８．４３１，１３．８９９
５０ ＤＡＴＡ １００．２６９，６．１５２
５１ ＤＡＴＡ １１１．４８０，－１１．５２０
５２ ＤＡＴＡ １１４．２６３，－１４．６２７
５３ ＤＡＴＡ １１８．８６２，－１８．７５０
５４ ＤＡＴＡ １３３．１８６，－２４．８７３
５５ ＤＡＴＡ １４４．４５５，－２９．５６３
５６ ＤＡＴＡ １５７．６８１，－１０４．１９１
５７ ＤＡＴＡ １５３．９７３，－１０８．６５７
５８ ＤＡＴＡ １４６．８３７，－１１２．２１７
３００ ＲＥＭ＊＊＊ザヒョウノマジック ｂｙ ｓｏｎｇｚｈａｏ
３１０ ＣＬＥＡＲ：ＣＬＳ：ＩＮＰＵＴ”ソクテン ノ スウ＝ ”；Ｎ
３２０ ＤＩＭ Ｓ（Ｎ＋１０），Ａ（Ｎ＋１０，１），Ｃ（Ｎ＋１０），Ｌ（３），Ｄ（１），Ｚ（１）
３３０ ＦＯＲ Ｊ＝１ ＴＯ Ｎ：ＦＯＲ Ｋ＝０ ＴＯ １：ＲＥＡＤ Ａ（Ｊ，Ｋ）：ＮＥＸＴ Ｋ，Ｊ
３４０ ＣＬＳ：ＰＲＩＮＴ”（ＭＥＮＵ） キョリ＝１： メンセキ＝２： ヘンコウ＝３： カニュウ＝４： サンシャ＝５： ヘイコウ＝６： ヘイコウハバ＝７： メンセキハバ＝８： サクジョ＝９： リスト＝１０： ヘイコウイドウ＝１１ ＥＮＤ＝１２ ”；：ＩＮＰＵＴ ＤＴ
３６０ ＯＮ ＤＴ ＧＯＴＯ ４００，５００，６００，７００，８００，９００，１０００，１１００，１２００，１３００，１４００，３９０
３９０ ＣＬＳ：ＰＲＩＮＴ”ＡＤＩＯＳ”：ＥＮＤ
４００ ＲＥＭ＊＊＊キョリ
４１０ ＣＬＳ：ＩＮＰＵＴ”テン Ｎｏ．＝ ”；Ａ，”テン Ｎｏ．＝ ”；Ｂ
４２０ Ｌ＝ＳＱＲ（（Ａ（Ａ，０）－Ａ（Ｂ，０））＾２＋（Ａ（Ａ，１）－Ａ（Ｂ，１））＾２）
４３０ ＣＬＳ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＆＆＃＃＃”；”テン”；Ａ；” －”；Ｂ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＃＃＃＃．＃＃＃”；”キョリ＝”；ＲＯＵＮＤ（Ｌ，－４）；：ＬＯＣＡＴＥ ２０，０：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
４４０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ４４０
４５０ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ ＧＯＴＯ ４１０
５００ ＲＥＭ＊＊＊メンセキ
５１０ ＣＬＳ：Ｉ＝１：ＰＲＩＮＴ”テン ニュウリョク ＜－ デ ケッテイ＞”，
５２０ ＩＮＰＵＴ”Ｎｏ．＝ ”；Ｃ＄：ＩＦ Ｃ＄＝”－”ＴＨＥＮ Ｉ＝Ｉ－１：ＧＯＴＯ ５４０
５３０ Ｃ（Ｉ）＝ＶＡＬ（Ｃ＄）：Ｉ＝Ｉ＋１：ＧＯＴＯ ５２０
５４０ Ｖ＝０：ＦＯＲ Ｊ＝１ ＴＯ Ｉ
５５０ Ｋ＝Ｊ－１：Ｌ＝Ｊ＋１：ＩＦ Ｊ＝１ ＴＨＥＮ Ｋ＝Ｉ ＥＬＳＥ ＩＦ Ｊ＝Ｉ ＴＨＥＮ Ｌ＝１
５６０ Ｓ（Ｊ）＝Ａ（Ｃ（Ｊ），０）＊（Ａ（Ｃ（Ｋ），１）－Ａ（Ｃ（Ｌ），１））：Ｖ＝Ｖ＋Ｓ（Ｊ）：ＮＥＸＴ Ｊ
５７０ ＣＬＳ：ＰＲＩＮＴ”メンセキ ＝”；ＡＢＳ（Ｖ／２）：ＬＯＣＡＴＥ ２０，１：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
５８０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ５８０ ＥＬＳＥ ＩＦ Ａ＄＜＞”Ｚ” ＴＨＥＮ ５１０ ＥＬＳＥ ３４０
６００ ＲＥＭ＊＊＊ヘンコウ
６１０ ＣＬＳ：ＩＮＰＵＴ”キテン ＝ ”；Ａ，”ヘンコウテン ＝ ”；Ｂ，”ヘンコウキョリ＝ ”；Ｒ
６２０ Ｐ＝Ａ：Ｑ＝Ｂ：ＧＯＳＵＢ ２０１０
６３０ Ｘ＝Ａ（Ｂ，０）－Ｒ＊Ｇ／Ｌ：Ｙ＝Ａ（Ｂ，１）－Ｒ＊Ｈ／Ｌ：Ａ（Ｂ，０）＝ＲＯＵＮＤ（Ｘ，－４）：Ａ（Ｂ，１）＝ＲＯＵＮＤ（Ｙ，－４）
６４０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｂ；” ＜ヘンコウキョリ＞”；Ｒ，”Ｘ＝”；Ａ（Ｂ，０），”Ｙ＝”；Ａ（Ｂ，１）：ＬＯＣＡＴＥ ２０，１：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
６５０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ６５０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０
６６０ ＧＯＴＯ ６１０
７００ ＲＥＭ＊＊＊テン カニュウ
７１０ ＣＬＳ：ＩＮＰＵＴ”キテン ＝ ”；Ａ，”タイテン ＝ ”；Ｂ：ＩＦ Ｂ＜＝０ ＴＨＥＮ ７１０ ＥＬＳＥ ＩＮＰＵＴ”キョリ ＝ ”；Ｒ
７２０ Ｐ＝Ａ：Ｑ＝Ｂ：ＧＯＳＵＢ ２０１０：ＩＦ Ｒ＞＝Ｌ ＴＨＥＮ ＢＥＥＰ：ＢＥＥＰ：ＧＯＴＯ ７１０
７３０ Ｘ＝Ａ（Ａ，０）－Ｒ＊Ｇ／Ｌ：Ｙ＝Ａ（Ａ，１）－Ｒ＊Ｈ／Ｌ：Ｘ＝ＲＯＵＮＤ（Ｘ，－４）：Ｙ＝ＲＯＵＮＤ（Ｙ，－４）
７４０ ＩＦ ＡＢＳ（Ａ－Ｂ）＜＞１ ＴＨＥＮ Ｎ＝Ｎ＋１：Ｃ＝Ｎ：ＧＯＴＯ ７７０
７５０ Ｃ＝Ａ：ＩＦ Ａ＜Ｂ ＴＨＥＮ Ｃ＝Ｂ
７６０ Ｎ＝Ｎ＋１：ＦＯＲ Ｈ＝Ｎ ＴＯ Ｃ＋１ ＳＴＥＰ－１：ＦＯＲ Ｉ＝Ｏ ＴＯ １：Ａ（Ｈ，Ｉ）＝Ａ（Ｈ－１，Ｉ）：ＮＥＸＴ Ｉ，Ｈ
７７０ Ａ（Ｃ，０）＝Ｘ；Ａ（Ｃ，１）＝Ｙ
７８０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｃ，：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｘ＝”；Ｘ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｙ＝”；Ｙ：ＬＯＣＡＴＥ： ２０，２：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
７９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ７９０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ ７１０
８００ ＲＥＭ＊＊＊サンシャ
８１０ ＣＬＳ：ＦＯＲ Ｊ＝１ ＴＯ ３：ＩＮＰＵＴ”テン Ｎｏ．＝”；Ｃ（Ｊ）：ＮＥＸＴ Ｊ：ＦＯＲ Ｊ＝１ ＴＯ ３：ＩＦ Ｊ＜３ ＴＨＥＮ Ｋ＝Ｊ＋１ ＥＬＳＥ Ｋ＝１
８２０ Ｌ（Ｊ）＝ＳＱＲ（（Ａ（Ｃ（Ｊ），０）－Ａ（Ｃ（Ｋ），０））＾２＋（Ａ（Ｃ（Ｊ），１）－Ａ（Ｃ（Ｋ），１））＾２）：ＮＥＸＴ Ｊ
８３０ Ｄ＝Ｌ（Ｊ）：ＦＯＲ Ｊ＝２ ＴＯ ３：ＩＦ Ｄ＜Ｌ（Ｊ） ＴＨＥＮ Ｄ＝Ｌ（Ｊ）
８４０ ＮＥＸＴ Ｊ：Ｕ＝０：ＦＯＲ Ｊ＝１ ＴＯ ３：Ｋ＝Ｊ－１：Ｌ＝Ｊ＋１：ＩＦ Ｊ＝１ ＴＨＥＮ Ｋ＝３ ＥＬＳＥ ＩＦ Ｊ＝３ ＴＨＥＮ Ｌ＝１
８５０ Ｔ＝Ａ（Ｃ（Ｊ），０）＊（Ａ（Ｃ（Ｋ），１）－Ａ（Ｃ（Ｌ），１））：Ｕ＝Ｕ＋Ｔ
８６０ ＮＥＸＴ Ｊ：Ｄ＝ＲＯＵＮＤ（Ｄ，－４）：Ｈ＝ＡＢＳ（Ｕ）／Ｄ：Ｈ＝ＲＯＵＮＤ（Ｈ，－４）：Ｖ＝Ｈ＊Ｄ
８７０ ＣＬＳ：ＰＲＩＮＴ”テン”；Ｃ（１）；” －”；Ｃ（２）；”－”；Ｃ（３），：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃”；”テイヘン ＝”；Ｄ
８８０ ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃”；” タカサ＝”；Ｈ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃＃＃＃”；”メンセキ＝”；Ｖ／２；
８９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ８９０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ ８１０
９００ ＲＥＭ＊＊＊ヘイコウテン
９１０ ＣＬＳ：ＩＮＰＵＴ”イドウ ヘン ”；Ａ：ＬＯＣＡＴＥ １３，０：ＩＮＰＵＴ”－ ”；Ｂ：ＩＮＰＵＴ”イドウ ホウコウ”；Ｃ
９２０ ＬＯＣＡＴＥ １３，１：ＩＮＰＵＴ”－ ”；Ｄ：ＩＮＰＵＴ”イドウ リョウ ”；Ｒ
９３０ Ｊ＝０：Ｉ＝０：Ｃ（０）＝Ａ：Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＳＵＢ ２０１０：ＩＦ Ｒ＞Ｌ ＴＨＥＮ ＢＥＥＰ：ＢＥＥＰ：ＧＯＴＯ ９１０
９４０ ＧＯＳＵＢ １６２０：ＧＯＳＵＢ ２５１０：ＧＯＴＯ ３４０
１０００ ＲＥＭ＊＊＊ヘイコウ ハバ
１０１０ ＣＬＳ：ＩＮＰＵＴ”イドウ ヘン ”；Ａ：ＬＯＣＡＴＥ １３，０：ＩＮＰＵＴ”－ ”；Ｂ：ＩＮＰＵＴ”イドウ ホウコウ”；Ｃ
１０２０ ＬＯＣＡＴＥ １３，１：ＩＮＰＵＴ”－ ”；Ｄ：ＩＮＰＵＴ”イドウ ハバ ”；Ｗ
１０３０ ＧＯＳＵＢ １８１０：ＧＯＳＵＢ ２５１０：ＧＯＴＯ ３４０
１１００ ＲＥＭ＊＊＊メンセキ シテイ ハバ
１１１０ ＣＬＳ：ＩＮＰＵＴ”イドウ ヘン ”Ａ：ＬＯＣＡＴＥ １３，０：ＩＮＰＵＴ”－ ”；Ｂ：ＩＮＰＵＴ”イドウ ホウコウ”；Ｃ
１１２０ ＬＯＣＡＴＥ １３，１：ＩＮＰＵＴ”－ ”；Ｄ：ＩＮＰＵＴ”メンセキ ”；ＭＮ，”カリノ ハバ ”；Ｗ
１１３０ ＧＯＳＵＢ １８１０：Ｖ１＝Ｖ：ＭＮ＝ＭＮ－Ｖ１：Ｗ＝Ｗ＋０．１：ＧＯＳＵＢ １８１０：Ｖ２＝Ｖ：Ｗ＝Ｗ＋０．１：ＧＯＳＵＢ １８１０：Ｖ３＝Ｖ
１１４０ Ｅ＝Ｖ３－２＊Ｖ２＋Ｖ１：Ｆ＝Ｖ２－Ｖ１：ＩＦ Ｅ＝０ ＴＨＥＮ Ｚ＝ＭＮ／Ｆ：ＧＯＴＯ １１６０
１１５０ Ｚ＝（－２＊Ｆ＋Ｅ＋ＳＱＲ（（２＊Ｆ－Ｅ）＾２＋８＊Ｅ＊ＭＮ））／（２＊Ｅ）
１１６０ Ｗ＝Ｗ－０．２＋０．１＊Ｚ：ＧＯＳＵＢ １８１０：ＧＯＳＵＢ ２５１０：ＰＲＩＮＴ”（Ｚ イガイ モウイチド）”
１１７０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １１７０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ Ｎ＝Ｎ－２：ＧＯＴＯ １１１０
１２００ ＲＥＭ＊＊＊サクジョ
１２１０ ＣＬＳ：ＰＲＩＮＴ”＜オオキイ ジュン＞（Ｚデ オワリ）”，
１２２０ ＩＮＰＵＴ”サクジョテン ”；Ｚ：ＩＦ Ｚ＝Ｎ ＴＨＥＮ Ｎ＝Ｎ－１：ＧＯＴＯ １２５０
１２４０ ＦＯＲ Ｊ＝Ｚ ＴＯ Ｎ－１：ＦＯＲ Ｋ＝０ ＴＯ １：Ａ（Ｊ，Ｋ）＝Ａ（Ｊ＋１，Ｋ）：ＮＥＸＴ Ｋ，Ｊ：Ｎ＝Ｎ－１
１２５０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １２５０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０
１２６０ ＧＯＴＯ １２２０
１３００ ＲＥＭ＊＊＊リスト
１３１０ ＣＬＳ：ＦＯＲ Ｊ＝１ ＴＯ Ｎ：ＰＲＩＮＴ”Ｎｏ．”；Ｊ，”Ｘ＝”；：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃．＃＃＃”；Ａ（Ｊ，０）
１３２０ ＰＲＩＮＴ”Ｙ＝”；：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃．＃＃＃”；Ａ（Ｊ，１）；
１３３０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３３０ ＥＬＳＥ ＣＬＳ：ＮＥＸＴ Ｊ
１３４０ ＦＯＲ Ｊ＝１ ＴＯ Ｉ：Ｋ＝Ｊ－１：Ｌ＝Ｊ＋１：ＩＦ Ｊ＝１ ＴＨＥＮ Ｋ＝Ｉ ＥＬＳＥ ＩＦ Ｊ＝Ｉ ＴＨＥＮ Ｌ＝１
１３５０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｃ（Ｊ）：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃．＃＃＃＆＆”；Ａ（Ｃ（Ｊ），０）；” ＊”；：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃＆＆＃＃＃＃．＃＃＃＆＆”；”（”；Ａ（Ｃ（Ｋ），１）；”－”；Ａ（Ｃ（Ｌ），１）；”）”；
１３６０ ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃＃＃．＃＃＃＃＃＃”；”＝”；Ｓ（Ｊ）
１３８０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３８０ ＥＬＳＥ ＮＥＸＴ Ｊ：ＣＬＳ：ＰＲＩＮＴ”メンセキ ＝”；ＡＢＳ（Ｖ／２）
１３９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３９０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ １３１０
１４００ ＲＥＭ＊＊＊ヘイコウ イドウ
１４１０ ＣＬＳ：ＩＮＰＵＴ”Ｘ＝０，Ｙ＝０ トスル テン ノ Ｎｏ．”；ＮＮ
１４２０ Ｘ＝－Ａ（ＮＮ，Ｏ）：Ｙ＝－Ａ（ＮＮ，１）
１４３０ ＦＯＲ Ｊ＝１ ＴＯ Ｎ：ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｊ：ＬＯＣＡＴＥ ７，１：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｘ＝”；Ａ（Ｊ，０）＋Ｘ：ＬＯＣＡＴＥ ７，２：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｙ＝”；Ａ（Ｊ，１）＋Ｙ
１４４０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １４４０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０
１４５０ ＮＥＸＴ Ｊ：ＧＯＴＯ １４１０
１６００ ＲＥＭ＊＊＊サブ ルーチン
１６２０ ＩＦ Ａ（Ａ，Ｊ）＝Ａ（Ｂ，Ｊ） ＴＨＥＮ Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＴＯ １６４０ ＥＬＳＥ ＩＦ Ｊ＝０ ＴＨＥＮ Ｊ＝１：ＧＯＴＯ １６２０
１６３０ Ｍ１＝（Ａ（Ａ，０）－Ａ（Ｂ，０））／（Ａ（Ａ，１）－Ａ（Ｂ，１））：ＧＯＴＯ １６８０
１６４０ ＧＯＳＵＢ ２０１０：Ｙ１＝Ａ（Ｐ，１）－Ｈ＊Ｒ／Ｌ：Ｘ１＝Ａ（Ｐ，０）－Ｇ＊Ｒ／Ｌ：ＸＹ＝Ｘ１：ＩＦ Ｊ＝１ ＴＨＥＮ ＸＹ＝Ｙ１
１６５０ Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２２１０：Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ：ＩＦ Ｊ＝１ ＴＨＥＮ １６７０
１６６０ Ｘ２＝Ｘ１：Ｙ２＝Ｙ：ＧＯＴＯ １７１０
１６７０ Ｙ２＝Ｙ１：Ｘ２＝Ｘ：ＧＯＴＯ １７１０
１６８０ ＩＦ Ａ（Ａ，１）＝Ａ（Ｃ，１） ＴＨＥＮ Ｐ＝Ａ：Ｑ＝Ｂ：ＧＯＳＵＢ ２０１０：Ｙ１＝Ａ（Ａ，１）：Ｘ１＝Ａ（Ａ，０）＋ＳＧＮ（Ｇ＊Ｒ）：ＧＯＴＯ １７００
１６９０ Ｘ１＝Ａ（Ａ，０）－Ｒ＊Ｇ／Ｌ：Ｙ１＝Ａ（Ａ，１）－Ｒ＊Ｈ／Ｌ
１７００ ＸＸ＝Ｘ１：ＹＹ＝Ｙ１：Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２１１０：Ｘ２＝Ｘ：Ｙ２＝Ｙ
１７１０ ＧＯＳＵＢ ２４１０：ＲＥＴＵＲＮ
１８００ ＲＥＭ＊＊＊サブルーチン
１８１０ Ｊ＝０：Ｉ＝０：Ｃ（０）＝Ａ
１８２０ ＩＦ Ａ（Ａ，Ｊ）＝Ａ（Ｂ，Ｊ） ＴＨＥＮ １８４０ ＥＬＳＥ ＩＦ Ｊ＝０ ＴＨＥＮ Ｊ＝１：ＧＯＴＯ １８２０
１８３０ ＧＯＴＯ １９００
１８４０ ＸＹ＝Ａ（Ａ，Ｊ）＋ＳＧＮ（Ａ（Ｃ，Ｊ）－Ａ（Ａ，Ｊ））＊Ｗ：Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＳＵＢ ２２１０：Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ
１８５０ ＩＦ Ｊ＝１ ＴＨＥＮ １８７０
１８６０ Ｘ１＝ＸＹ：Ｘ２＝ＸＹ：Ｙ１＝Ｙ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２２１０：Ｙ２＝Ｙ：ＧＯＴＯ １８８０
１８７０ Ｙ１＝ＸＹ：Ｙ２＝ＸＹ：Ｘ１＝Ｘ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２２１０：Ｘ２＝Ｘ
１８８０ ＧＯＴＯ １９７０
１９００ Ｇ＝Ａ（Ａ，０）－Ａ（Ｂ，０）：Ｈ＝Ａ（Ａ，１）－Ａ（Ｂ，１）
１９１０ Ｍ１＝Ｇ／Ｈ：ＭＲ＝－Ｈ／Ｇ
１９２０ Ｙ＝（Ａ（Ａ，０）－Ｍ１＊Ａ（Ａ，１）－Ａ（Ｃ，０）＋ＭＲ＊Ａ（Ｃ，１））／（ＭＲ－Ｍ１）：Ｘ＝Ｍ１＊Ｙ＋Ａ（Ａ，０）－Ｍ１＊Ａ（Ａ，１）
１９３０ Ｓ＝ＳＱＲ（（Ｘ－Ａ（Ｃ，０））＾２＋（Ｙ－Ａ（Ｃ，１））＾２）：ＸＸ＝－Ｗ＊（Ｘ－Ａ（Ｃ，０））／Ｓ＋Ｘ
１９４０ ＹＹ＝－Ｗ＊（Ｙ－Ａ（Ｃ，１））／Ｓ＋Ｙ：Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＳＵＢ ２１１０：Ｘ１＝Ｘ：Ｙ１＝Ｙ
１９５０ Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２１１０：Ｘ２＝Ｘ：Ｙ２＝Ｙ
１９７０ ＧＯＳＵＢ ２４１０：ＲＥＴＵＲＮ
２０００ ＲＥＭ＊＊＊サブルーチン
２０１０ Ｇ＝Ａ（Ｐ，０）－Ａ（Ｑ，０）：Ｈ＝Ａ（Ｐ，１）－Ａ（Ｑ，１）：Ｌ＝ＳＱＲ（Ｇ＾２＋Ｈ＾２）：ＲＥＴＵＲＮ
２１００ ＲＥＭ＊＊＊サブルーチン
２１１０ Ｇ＝Ａ（Ｐ，０）－Ａ（Ｑ，０）：Ｈ＝Ａ（Ｐ，１）－Ａ（Ｑ，１）
２１２０ ＩＦ Ｇ＝０ ＴＨＥＮ Ｘ＝Ａ（Ｐ，０）：Ｙ＝（Ｘ－ＸＸ）／Ｍ１＋ＹＹ：ＧＯＴＯ ２１６０
２１３０ ＩＦ Ｈ＝０ ＴＨＥＮ Ｙ＝Ａ（Ｐ，１）：Ｘ＝Ｍ１＊（Ｙ－ＹＹ）＋ＸＸ：ＧＯＴＯ ２１６０
２１４０ Ｍ２＝Ｇ／Ｈ：Ｙ＝（Ｍ２＊Ａ（Ｐ，１）－Ａ（Ｐ，０）＋ＸＸ－Ｍ１＊ＹＹ）／（Ｍ２－Ｍ１）
２１５０ Ｘ＝Ｍ２＊（Ｙ－Ａ（Ｐ，１））＋Ａ（Ｐ，０）
２１６０ Ｚ（０）＝Ｘ：Ｚ（１）＝Ｙ：ＧＯＳＵＢ ２３１０：ＩＦ Ｅ＄＝”１”ＴＨＥＮ ２１１０
２１７０ ＲＥＴＵＲＮ
２２００ ＲＥＭ＊＊＊サブルーチン
２２１０ ＩＦ（ＸＹ－Ａ（Ｐ，Ｊ））＊（ＸＹ－Ａ（Ｑ，Ｊ））＜＝０ ＴＨＥＮ ２２２０ ＥＬＳＥ ＧＯＳＵＢ ２３５Ｏ：ＧＯＴＯ ２２１０
２２２０ Ｇ＝Ａ（Ｐ，０）－Ａ（Ｑ，０）：Ｈ＝Ａ（Ｐ，１）－Ａ（Ｑ，１）：ＩＦ Ｊ＝１ ＴＨＥＮ ２２５０
２２３０ Ｙ＝Ｈ＊（ＸＹ－Ａ（Ｐ，Ｊ））／Ｇ＋Ａ（Ｐ，１）：ＲＥＴＵＲＮ
２２５０ Ｘ＝Ｇ＊（ＸＹ－Ａ（Ｐ，Ｊ））／Ｈ＋Ａ（Ｐ，０）：ＲＥＴＵＲＮ
２３００ ＲＥＭ＊＊＊ヘン チェック
２３１０ Ｅ＄＝””：Ｋ＝０：ＩＦ Ａ（Ｐ，Ｋ）＝Ａ（Ｇ，Ｋ） ＴＨＥＮ Ｋ＝１
２３３０ ＩＦ （Ｚ（Ｋ）－Ａ（Ｐ，Ｋ））＊（Ｚ（Ｋ）－Ａ（Ｑ，Ｋ））＜＝０ ＴＨＥＮ ＲＥＴＵＲＮ
２３４０ Ｅ＄＝”１”
２３５０ Ｕ＝Ｑ－Ｐ＋Ｑ：Ｐ＝Ｑ：Ｑ＝Ｕ：ＩＦ Ｑ＞Ｎ ＴＨＥＮ Ｑ＝Ｑ－Ｎ ＥＬＳＥ ＩＦ Ｑ＜１ ＴＨＥＮ Ｑ＝Ｑ－Ｎ ＥＬＳＥ ＩＦ Ｑ＜１ ＴＨＥＮ Ｑ＝Ｑ＋Ｎ
２３６０ Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｐ：ＲＥＴＵＲＮ
２４００ ＲＥＭ＊＊＊メンセキ
２４１０ ＤＩＭ Ｂ（１０，１）：Ｘ１＝ＲＯＵＮＤ（Ｘ１，－４）：Ｙ１＝ＲＯＵＮＤ（Ｙ１，－４）：Ｘ２＝ＲＯＵＮＤ（Ｘ２，－４）：Ｙ２＝ＲＯＵＮＤ（Ｙ２，－４）
２４２０ Ｊ＝０：Ｂ（Ｊ，０）＝Ｘ１：Ｂ（Ｊ，１）＝Ｙ１：ＦＯＲ Ｋ＝Ｏ ＴＯ ０ ＳＴＥＰ－１：Ｊ＝Ｊ＋１：ＦＯＲ Ｈ＝０ ＴＯ １：Ｂ（Ｊ，Ｈ）＝Ａ（Ｃ（Ｋ），Ｈ）
２４３０ ＮＥＸＴ Ｈ，Ｋ：ＦＯＲ Ｋ＝Ｏ＋１ ＴＯ Ｉ：Ｊ＝Ｊ＋１：ＦＯＲ Ｈ＝０ ＴＯ １：Ｂ（Ｊ，Ｋ）＝Ａ（Ｃ（Ｋ），Ｈ）：ＮＥＸＴ Ｈ，Ｋ
２４４０ Ｊ＝Ｊ＋１：Ｂ（Ｊ，０）＝Ｘ２：Ｂ（Ｊ，１）＝Ｙ２：Ｖ＝０：ＦＯＲ Ｉ＝０ ＴＯ Ｊ：Ｋ＝Ｉ－１：Ｌ＝Ｌ＋１
２４５０ ＩＦ Ｉ＝Ｏ ＴＨＥＮ Ｋ＝Ｊ ＥＬＳＥ ＩＦ Ｉ＝Ｊ ＴＨＥＮ Ｌ＝０
２４６０ Ｖ＝Ｖ＋Ｂ（Ｉ，０）＊（Ｂ（Ｋ，１）－Ｂ（Ｌ，１））：ＮＥＸＴ Ｉ：Ｖ＝ＡＢＳ（Ｖ／２）：ＲＥＴＵＲＮ
２５００ ＲＥＭ＊＊＊サブルーチン
２５１０ Ｎ＝Ｎ＋１：Ａ（Ｎ，０）＝Ｘ１：Ａ（Ｎ，１）＝Ｙ１
２５２０ Ｎ＝Ｎ＋１：Ａ（Ｎ，０）＝Ｘ２：Ａ（Ｎ，１）＝Ｙ２：ＣＬＳ
２５３０ ＦＯＲ Ｊ＝Ｎ－１ ＴＯ Ｎ：ＰＲＩＮＴ”Ｎｏ．”；Ｊ；：ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＃＃＃＃．＃＃＃”；”Ｘ＝”；Ａ（Ｊ，０），
２５４０ ＬＯＣＡＴＥ ７，１：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＃＃＃＃．＃＃＃”；”Ｙ＝”；Ａ（Ｊ，１）
２５５０ ＬＯＣＡＴＥ ４，２：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃＃＃＃”；”メンセキ＝”；Ｖ，：ＩＦ Ｗ＝０ ＴＨＥＮ ２５６０ ＥＬＳＥ ＬＯＣＡＴＥ ４，３：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃＃＃＃”；” ハバ＝”；Ｗ；
２５６０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ２５６０ ＥＬＳＥ ＣＬＳ：ＮＥＸＴ Ｊ：ＲＥＴＵＲＮ
これは私の備忘録といった類のもので、測量のカテゴリーに属するプログラムです。入っているデータは昔私が測量して地形を座標表記したものです。側点の数の要求に対して５８と入力すれば、プログラムの目的とするところがご理解いただけると思います。使用しているのはカシオ計算機のＦＸ－８９０Ｐです。
１ ＤＡＴＡ ０．６１８，－３２．０５０
２ ＤＡＴＡ－９．４７１，－２６．０７６
３ ＤＡＴＡ－１５．６６７，－１８．３２２
４ ＤＡＴＡ－１７．９９３，－１３．６２１
５ ＤＡＴＡ－２０．０５８，－６．８５８
６ ＤＡＴＡ－１９．５５４，５．３７１
７ ＤＡＴＡ－１８．７０５，８．２１８
８ ＤＡＴＡ－１６．７６６，１０．６７７
９ ＤＡＴＡ ７．２８９，１６．１１０
１０ ＤＡＴＡ １３．７４４，１４．７６５
１１ ＤＡＴＡ ２２．７４７，１４．８２５
１２ ＤＡＴＡ ３２．０００，１８．９４１
１３ ＤＡＴＡ ３６．４６２，２７．０８３
１４ ＤＡＴＡ ４２．７２８，３０．５７５
１５ ＤＡＴＡ ５１．１３８，２４．５９４
１６ ＤＡＴＡ ５５．３８５，１７．４２３
１７ ＤＡＴＡ ５４．３４７，１２．０９９
１８ ＤＡＴＡ ７４．１８３，９．６９９
１９ ＤＡＴＡ ８０．３２２，８．４７２
２０ ＤＡＴＡ ８７．０１７，５．１０８
２１ ＤＡＴＡ ９５．６８０，－０．８１５
２２ ＤＡＴＡ １０４．３３９，－１４．３９２
２３ ＤＡＴＡ １０８．７１９，－１９．３５０
２４ ＤＡＴＡ １１３．０００，－２３．３９４
２５ ＤＡＴＡ １１６．１９２，－２５．６２８
２６ ＤＡＴＡ １３１．６８７，－３２．９４１
２７ ＤＡＴＡ １３２．２９０，－３６．８９７
２８ ＤＡＴＡ １３５．７８６，－５８．０４５
２９ ＤＡＴＡ １４４．４２５，－１０７．８６５
３０ ＤＡＴＡ １４５．４０３，－１１２．６５８
３１ ＤＡＴＡ １３３．１４４，－１６６．４２７
３２ ＤＡＴＡ １１３．７４７，－１０９．９１５
３３ ＤＡＴＡ １１３．０１１，－１０９．２２２
３４ ＤＡＴＡ １１１．７５６，－９８．６７８
３５ ＤＡＴＡ ７８．８３３，－８６．４８４
３６ ＤＡＴＡ ７３．５２５，－８７．２３０
３７ ＤＡＴＡ ７１．１０６，－８３．９２５
３８ ＤＡＴＡ ６８．１２４，－６７．５６５
３９ ＤＡＴＡ ４５．１９５，－５３．５６５
４０ ＤＡＴＡ ３８．１８７，－４７．４９９
４１ ＤＡＴＡ ３１．１７７，－４３．１３３
４２ ＤＡＴＡ ２７．４１８，－４１．４９０
４３ ＤＡＴＡ ２３．４８３，４０．２１７
４４ ＤＡＴＡ ９．７０２，－３６．２３８
４５ ＤＡＴＡ ５．７２０，－３４．６４１
４６ ＤＡＴＡ ５８．７１６，１５．６５９
４７ ＤＡＴＡ ５９．９０５，１３．５９３
４８ ＤＡＴＡ ７６．４０４，１６．１７８
４９ ＤＡＴＡ ８８．４３１，１３．８９９
５０ ＤＡＴＡ １００．２６９，６．１５２
５１ ＤＡＴＡ １１１．４８０，－１１．５２０
５２ ＤＡＴＡ １１４．２６３，－１４．６２７
５３ ＤＡＴＡ １１８．８６２，－１８．７５０
５４ ＤＡＴＡ １３３．１８６，－２４．８７３
５５ ＤＡＴＡ １４４．４５５，－２９．５６３
５６ ＤＡＴＡ １５７．６８１，－１０４．１９１
５７ ＤＡＴＡ １５３．９７３，－１０８．６５７
５８ ＤＡＴＡ １４６．８３７，－１１２．２１７
３００ ＲＥＭ＊＊＊ザヒョウノマジック ｂｙ ｓｏｎｇｚｈａｏ
３１０ ＣＬＥＡＲ：ＣＬＳ：ＩＮＰＵＴ”ソクテン ノ スウ＝ ”；Ｎ
３２０ ＤＩＭ Ｓ（Ｎ＋１０），Ａ（Ｎ＋１０，１），Ｃ（Ｎ＋１０），Ｌ（３），Ｄ（１），Ｚ（１）
３３０ ＦＯＲ Ｊ＝１ ＴＯ Ｎ：ＦＯＲ Ｋ＝０ ＴＯ １：ＲＥＡＤ Ａ（Ｊ，Ｋ）：ＮＥＸＴ Ｋ，Ｊ
３４０ ＣＬＳ：ＰＲＩＮＴ”（ＭＥＮＵ） キョリ＝１： メンセキ＝２： ヘンコウ＝３： カニュウ＝４： サンシャ＝５： ヘイコウ＝６： ヘイコウハバ＝７： メンセキハバ＝８： サクジョ＝９： リスト＝１０： ヘイコウイドウ＝１１ ＥＮＤ＝１２ ”；：ＩＮＰＵＴ ＤＴ
３６０ ＯＮ ＤＴ ＧＯＴＯ ４００，５００，６００，７００，８００，９００，１０００，１１００，１２００，１３００，１４００，３９０
３９０ ＣＬＳ：ＰＲＩＮＴ”ＡＤＩＯＳ”：ＥＮＤ
４００ ＲＥＭ＊＊＊キョリ
４１０ ＣＬＳ：ＩＮＰＵＴ”テン Ｎｏ．＝ ”；Ａ，”テン Ｎｏ．＝ ”；Ｂ
４２０ Ｌ＝ＳＱＲ（（Ａ（Ａ，０）－Ａ（Ｂ，０））＾２＋（Ａ（Ａ，１）－Ａ（Ｂ，１））＾２）
４３０ ＣＬＳ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＆＆＃＃＃”；”テン”；Ａ；” －”；Ｂ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＃＃＃＃．＃＃＃”；”キョリ＝”；ＲＯＵＮＤ（Ｌ，－４）；：ＬＯＣＡＴＥ ２０，０：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
４４０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ４４０
４５０ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ ＧＯＴＯ ４１０
５００ ＲＥＭ＊＊＊メンセキ
５１０ ＣＬＳ：Ｉ＝１：ＰＲＩＮＴ”テン ニュウリョク ＜－ デ ケッテイ＞”，
５２０ ＩＮＰＵＴ”Ｎｏ．＝ ”；Ｃ＄：ＩＦ Ｃ＄＝”－”ＴＨＥＮ Ｉ＝Ｉ－１：ＧＯＴＯ ５４０
５３０ Ｃ（Ｉ）＝ＶＡＬ（Ｃ＄）：Ｉ＝Ｉ＋１：ＧＯＴＯ ５２０
５４０ Ｖ＝０：ＦＯＲ Ｊ＝１ ＴＯ Ｉ
５５０ Ｋ＝Ｊ－１：Ｌ＝Ｊ＋１：ＩＦ Ｊ＝１ ＴＨＥＮ Ｋ＝Ｉ ＥＬＳＥ ＩＦ Ｊ＝Ｉ ＴＨＥＮ Ｌ＝１
５６０ Ｓ（Ｊ）＝Ａ（Ｃ（Ｊ），０）＊（Ａ（Ｃ（Ｋ），１）－Ａ（Ｃ（Ｌ），１））：Ｖ＝Ｖ＋Ｓ（Ｊ）：ＮＥＸＴ Ｊ
５７０ ＣＬＳ：ＰＲＩＮＴ”メンセキ ＝”；ＡＢＳ（Ｖ／２）：ＬＯＣＡＴＥ ２０，１：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
５８０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ５８０ ＥＬＳＥ ＩＦ Ａ＄＜＞”Ｚ” ＴＨＥＮ ５１０ ＥＬＳＥ ３４０
６００ ＲＥＭ＊＊＊ヘンコウ
６１０ ＣＬＳ：ＩＮＰＵＴ”キテン ＝ ”；Ａ，”ヘンコウテン ＝ ”；Ｂ，”ヘンコウキョリ＝ ”；Ｒ
６２０ Ｐ＝Ａ：Ｑ＝Ｂ：ＧＯＳＵＢ ２０１０
６３０ Ｘ＝Ａ（Ｂ，０）－Ｒ＊Ｇ／Ｌ：Ｙ＝Ａ（Ｂ，１）－Ｒ＊Ｈ／Ｌ：Ａ（Ｂ，０）＝ＲＯＵＮＤ（Ｘ，－４）：Ａ（Ｂ，１）＝ＲＯＵＮＤ（Ｙ，－４）
６４０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｂ；” ＜ヘンコウキョリ＞”；Ｒ，”Ｘ＝”；Ａ（Ｂ，０），”Ｙ＝”；Ａ（Ｂ，１）：ＬＯＣＡＴＥ ２０，１：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
６５０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ６５０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０
６６０ ＧＯＴＯ ６１０
７００ ＲＥＭ＊＊＊テン カニュウ
７１０ ＣＬＳ：ＩＮＰＵＴ”キテン ＝ ”；Ａ，”タイテン ＝ ”；Ｂ：ＩＦ Ｂ＜＝０ ＴＨＥＮ ７１０ ＥＬＳＥ ＩＮＰＵＴ”キョリ ＝ ”；Ｒ
７２０ Ｐ＝Ａ：Ｑ＝Ｂ：ＧＯＳＵＢ ２０１０：ＩＦ Ｒ＞＝Ｌ ＴＨＥＮ ＢＥＥＰ：ＢＥＥＰ：ＧＯＴＯ ７１０
７３０ Ｘ＝Ａ（Ａ，０）－Ｒ＊Ｇ／Ｌ：Ｙ＝Ａ（Ａ，１）－Ｒ＊Ｈ／Ｌ：Ｘ＝ＲＯＵＮＤ（Ｘ，－４）：Ｙ＝ＲＯＵＮＤ（Ｙ，－４）
７４０ ＩＦ ＡＢＳ（Ａ－Ｂ）＜＞１ ＴＨＥＮ Ｎ＝Ｎ＋１：Ｃ＝Ｎ：ＧＯＴＯ ７７０
７５０ Ｃ＝Ａ：ＩＦ Ａ＜Ｂ ＴＨＥＮ Ｃ＝Ｂ
７６０ Ｎ＝Ｎ＋１：ＦＯＲ Ｈ＝Ｎ ＴＯ Ｃ＋１ ＳＴＥＰ－１：ＦＯＲ Ｉ＝Ｏ ＴＯ １：Ａ（Ｈ，Ｉ）＝Ａ（Ｈ－１，Ｉ）：ＮＥＸＴ Ｉ，Ｈ
７７０ Ａ（Ｃ，０）＝Ｘ；Ａ（Ｃ，１）＝Ｙ
７８０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｃ，：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｘ＝”；Ｘ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｙ＝”；Ｙ：ＬＯＣＡＴＥ： ２０，２：ＰＲＩＮＴ”＜Ｚデ オワリ＞”
７９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ７９０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ ７１０
８００ ＲＥＭ＊＊＊サンシャ
８１０ ＣＬＳ：ＦＯＲ Ｊ＝１ ＴＯ ３：ＩＮＰＵＴ”テン Ｎｏ．＝”；Ｃ（Ｊ）：ＮＥＸＴ Ｊ：ＦＯＲ Ｊ＝１ ＴＯ ３：ＩＦ Ｊ＜３ ＴＨＥＮ Ｋ＝Ｊ＋１ ＥＬＳＥ Ｋ＝１
８２０ Ｌ（Ｊ）＝ＳＱＲ（（Ａ（Ｃ（Ｊ），０）－Ａ（Ｃ（Ｋ），０））＾２＋（Ａ（Ｃ（Ｊ），１）－Ａ（Ｃ（Ｋ），１））＾２）：ＮＥＸＴ Ｊ
８３０ Ｄ＝Ｌ（Ｊ）：ＦＯＲ Ｊ＝２ ＴＯ ３：ＩＦ Ｄ＜Ｌ（Ｊ） ＴＨＥＮ Ｄ＝Ｌ（Ｊ）
８４０ ＮＥＸＴ Ｊ：Ｕ＝０：ＦＯＲ Ｊ＝１ ＴＯ ３：Ｋ＝Ｊ－１：Ｌ＝Ｊ＋１：ＩＦ Ｊ＝１ ＴＨＥＮ Ｋ＝３ ＥＬＳＥ ＩＦ Ｊ＝３ ＴＨＥＮ Ｌ＝１
８５０ Ｔ＝Ａ（Ｃ（Ｊ），０）＊（Ａ（Ｃ（Ｋ），１）－Ａ（Ｃ（Ｌ），１））：Ｕ＝Ｕ＋Ｔ
８６０ ＮＥＸＴ Ｊ：Ｄ＝ＲＯＵＮＤ（Ｄ，－４）：Ｈ＝ＡＢＳ（Ｕ）／Ｄ：Ｈ＝ＲＯＵＮＤ（Ｈ，－４）：Ｖ＝Ｈ＊Ｄ
８７０ ＣＬＳ：ＰＲＩＮＴ”テン”；Ｃ（１）；” －”；Ｃ（２）；”－”；Ｃ（３），：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃”；”テイヘン ＝”；Ｄ
８８０ ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃”；” タカサ＝”；Ｈ：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃＃＃＃”；”メンセキ＝”；Ｖ／２；
８９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ８９０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ ８１０
９００ ＲＥＭ＊＊＊ヘイコウテン
９１０ ＣＬＳ：ＩＮＰＵＴ”イドウ ヘン ”；Ａ：ＬＯＣＡＴＥ １３，０：ＩＮＰＵＴ”－ ”；Ｂ：ＩＮＰＵＴ”イドウ ホウコウ”；Ｃ
９２０ ＬＯＣＡＴＥ １３，１：ＩＮＰＵＴ”－ ”；Ｄ：ＩＮＰＵＴ”イドウ リョウ ”；Ｒ
９３０ Ｊ＝０：Ｉ＝０：Ｃ（０）＝Ａ：Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＳＵＢ ２０１０：ＩＦ Ｒ＞Ｌ ＴＨＥＮ ＢＥＥＰ：ＢＥＥＰ：ＧＯＴＯ ９１０
９４０ ＧＯＳＵＢ １６２０：ＧＯＳＵＢ ２５１０：ＧＯＴＯ ３４０
１０００ ＲＥＭ＊＊＊ヘイコウ ハバ
１０１０ ＣＬＳ：ＩＮＰＵＴ”イドウ ヘン ”；Ａ：ＬＯＣＡＴＥ １３，０：ＩＮＰＵＴ”－ ”；Ｂ：ＩＮＰＵＴ”イドウ ホウコウ”；Ｃ
１０２０ ＬＯＣＡＴＥ １３，１：ＩＮＰＵＴ”－ ”；Ｄ：ＩＮＰＵＴ”イドウ ハバ ”；Ｗ
１０３０ ＧＯＳＵＢ １８１０：ＧＯＳＵＢ ２５１０：ＧＯＴＯ ３４０
１１００ ＲＥＭ＊＊＊メンセキ シテイ ハバ
１１１０ ＣＬＳ：ＩＮＰＵＴ”イドウ ヘン ”Ａ：ＬＯＣＡＴＥ １３，０：ＩＮＰＵＴ”－ ”；Ｂ：ＩＮＰＵＴ”イドウ ホウコウ”；Ｃ
１１２０ ＬＯＣＡＴＥ １３，１：ＩＮＰＵＴ”－ ”；Ｄ：ＩＮＰＵＴ”メンセキ ”；ＭＮ，”カリノ ハバ ”；Ｗ
１１３０ ＧＯＳＵＢ １８１０：Ｖ１＝Ｖ：ＭＮ＝ＭＮ－Ｖ１：Ｗ＝Ｗ＋０．１：ＧＯＳＵＢ １８１０：Ｖ２＝Ｖ：Ｗ＝Ｗ＋０．１：ＧＯＳＵＢ １８１０：Ｖ３＝Ｖ
１１４０ Ｅ＝Ｖ３－２＊Ｖ２＋Ｖ１：Ｆ＝Ｖ２－Ｖ１：ＩＦ Ｅ＝０ ＴＨＥＮ Ｚ＝ＭＮ／Ｆ：ＧＯＴＯ １１６０
１１５０ Ｚ＝（－２＊Ｆ＋Ｅ＋ＳＱＲ（（２＊Ｆ－Ｅ）＾２＋８＊Ｅ＊ＭＮ））／（２＊Ｅ）
１１６０ Ｗ＝Ｗ－０．２＋０．１＊Ｚ：ＧＯＳＵＢ １８１０：ＧＯＳＵＢ ２５１０：ＰＲＩＮＴ”（Ｚ イガイ モウイチド）”
１１７０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １１７０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ Ｎ＝Ｎ－２：ＧＯＴＯ １１１０
１２００ ＲＥＭ＊＊＊サクジョ
１２１０ ＣＬＳ：ＰＲＩＮＴ”＜オオキイ ジュン＞（Ｚデ オワリ）”，
１２２０ ＩＮＰＵＴ”サクジョテン ”；Ｚ：ＩＦ Ｚ＝Ｎ ＴＨＥＮ Ｎ＝Ｎ－１：ＧＯＴＯ １２５０
１２４０ ＦＯＲ Ｊ＝Ｚ ＴＯ Ｎ－１：ＦＯＲ Ｋ＝０ ＴＯ １：Ａ（Ｊ，Ｋ）＝Ａ（Ｊ＋１，Ｋ）：ＮＥＸＴ Ｋ，Ｊ：Ｎ＝Ｎ－１
１２５０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １２５０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０
１２６０ ＧＯＴＯ １２２０
１３００ ＲＥＭ＊＊＊リスト
１３１０ ＣＬＳ：ＦＯＲ Ｊ＝１ ＴＯ Ｎ：ＰＲＩＮＴ”Ｎｏ．”；Ｊ，”Ｘ＝”；：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃．＃＃＃”；Ａ（Ｊ，０）
１３２０ ＰＲＩＮＴ”Ｙ＝”；：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃．＃＃＃”；Ａ（Ｊ，１）；
１３３０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３３０ ＥＬＳＥ ＣＬＳ：ＮＥＸＴ Ｊ
１３４０ ＦＯＲ Ｊ＝１ ＴＯ Ｉ：Ｋ＝Ｊ－１：Ｌ＝Ｊ＋１：ＩＦ Ｊ＝１ ＴＨＥＮ Ｋ＝Ｉ ＥＬＳＥ ＩＦ Ｊ＝Ｉ ＴＨＥＮ Ｌ＝１
１３５０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｃ（Ｊ）：ＰＲＩＮＴ ＵＳＩＮＧ”＃＃＃＃．＃＃＃＆＆”；Ａ（Ｃ（Ｊ），０）；” ＊”；：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃＆＆＃＃＃＃．＃＃＃＆＆”；”（”；Ａ（Ｃ（Ｋ），１）；”－”；Ａ（Ｃ（Ｌ），１）；”）”；
１３６０ ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃＃＃．＃＃＃＃＃＃”；”＝”；Ｓ（Ｊ）
１３８０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３８０ ＥＬＳＥ ＮＥＸＴ Ｊ：ＣＬＳ：ＰＲＩＮＴ”メンセキ ＝”；ＡＢＳ（Ｖ／２）
１３９０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３９０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０ ＥＬＳＥ １３１０
１４００ ＲＥＭ＊＊＊ヘイコウ イドウ
１４１０ ＣＬＳ：ＩＮＰＵＴ”Ｘ＝０，Ｙ＝０ トスル テン ノ Ｎｏ．”；ＮＮ
１４２０ Ｘ＝－Ａ（ＮＮ，Ｏ）：Ｙ＝－Ａ（ＮＮ，１）
１４３０ ＦＯＲ Ｊ＝１ ＴＯ Ｎ：ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；Ｊ：ＬＯＣＡＴＥ ７，１：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｘ＝”；Ａ（Ｊ，０）＋Ｘ：ＬＯＣＡＴＥ ７，２：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＃＃＃＃．＃＃＃”；”Ｙ＝”；Ａ（Ｊ，１）＋Ｙ
１４４０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １４４０ ＥＬＳＥ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ３４０
１４５０ ＮＥＸＴ Ｊ：ＧＯＴＯ １４１０
１６００ ＲＥＭ＊＊＊サブ ルーチン
１６２０ ＩＦ Ａ（Ａ，Ｊ）＝Ａ（Ｂ，Ｊ） ＴＨＥＮ Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＴＯ １６４０ ＥＬＳＥ ＩＦ Ｊ＝０ ＴＨＥＮ Ｊ＝１：ＧＯＴＯ １６２０
１６３０ Ｍ１＝（Ａ（Ａ，０）－Ａ（Ｂ，０））／（Ａ（Ａ，１）－Ａ（Ｂ，１））：ＧＯＴＯ １６８０
１６４０ ＧＯＳＵＢ ２０１０：Ｙ１＝Ａ（Ｐ，１）－Ｈ＊Ｒ／Ｌ：Ｘ１＝Ａ（Ｐ，０）－Ｇ＊Ｒ／Ｌ：ＸＹ＝Ｘ１：ＩＦ Ｊ＝１ ＴＨＥＮ ＸＹ＝Ｙ１
１６５０ Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２２１０：Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ：ＩＦ Ｊ＝１ ＴＨＥＮ １６７０
１６６０ Ｘ２＝Ｘ１：Ｙ２＝Ｙ：ＧＯＴＯ １７１０
１６７０ Ｙ２＝Ｙ１：Ｘ２＝Ｘ：ＧＯＴＯ １７１０
１６８０ ＩＦ Ａ（Ａ，１）＝Ａ（Ｃ，１） ＴＨＥＮ Ｐ＝Ａ：Ｑ＝Ｂ：ＧＯＳＵＢ ２０１０：Ｙ１＝Ａ（Ａ，１）：Ｘ１＝Ａ（Ａ，０）＋ＳＧＮ（Ｇ＊Ｒ）：ＧＯＴＯ １７００
１６９０ Ｘ１＝Ａ（Ａ，０）－Ｒ＊Ｇ／Ｌ：Ｙ１＝Ａ（Ａ，１）－Ｒ＊Ｈ／Ｌ
１７００ ＸＸ＝Ｘ１：ＹＹ＝Ｙ１：Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２１１０：Ｘ２＝Ｘ：Ｙ２＝Ｙ
１７１０ ＧＯＳＵＢ ２４１０：ＲＥＴＵＲＮ
１８００ ＲＥＭ＊＊＊サブルーチン
１８１０ Ｊ＝０：Ｉ＝０：Ｃ（０）＝Ａ
１８２０ ＩＦ Ａ（Ａ，Ｊ）＝Ａ（Ｂ，Ｊ） ＴＨＥＮ １８４０ ＥＬＳＥ ＩＦ Ｊ＝０ ＴＨＥＮ Ｊ＝１：ＧＯＴＯ １８２０
１８３０ ＧＯＴＯ １９００
１８４０ ＸＹ＝Ａ（Ａ，Ｊ）＋ＳＧＮ（Ａ（Ｃ，Ｊ）－Ａ（Ａ，Ｊ））＊Ｗ：Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＳＵＢ ２２１０：Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ
１８５０ ＩＦ Ｊ＝１ ＴＨＥＮ １８７０
１８６０ Ｘ１＝ＸＹ：Ｘ２＝ＸＹ：Ｙ１＝Ｙ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２２１０：Ｙ２＝Ｙ：ＧＯＴＯ １８８０
１８７０ Ｙ１＝ＸＹ：Ｙ２＝ＸＹ：Ｘ１＝Ｘ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２２１０：Ｘ２＝Ｘ
１８８０ ＧＯＴＯ １９７０
１９００ Ｇ＝Ａ（Ａ，０）－Ａ（Ｂ，０）：Ｈ＝Ａ（Ａ，１）－Ａ（Ｂ，１）
１９１０ Ｍ１＝Ｇ／Ｈ：ＭＲ＝－Ｈ／Ｇ
１９２０ Ｙ＝（Ａ（Ａ，０）－Ｍ１＊Ａ（Ａ，１）－Ａ（Ｃ，０）＋ＭＲ＊Ａ（Ｃ，１））／（ＭＲ－Ｍ１）：Ｘ＝Ｍ１＊Ｙ＋Ａ（Ａ，０）－Ｍ１＊Ａ（Ａ，１）
１９３０ Ｓ＝ＳＱＲ（（Ｘ－Ａ（Ｃ，０））＾２＋（Ｙ－Ａ（Ｃ，１））＾２）：ＸＸ＝－Ｗ＊（Ｘ－Ａ（Ｃ，０））／Ｓ＋Ｘ
１９４０ ＹＹ＝－Ｗ＊（Ｙ－Ａ（Ｃ，１））／Ｓ＋Ｙ：Ｐ＝Ａ：Ｑ＝Ｃ：ＧＯＳＵＢ ２１１０：Ｘ１＝Ｘ：Ｙ１＝Ｙ
１９５０ Ｏ＝Ｉ：Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｂ：Ｐ＝Ｂ：Ｑ＝Ｄ：ＧＯＳＵＢ ２１１０：Ｘ２＝Ｘ：Ｙ２＝Ｙ
１９７０ ＧＯＳＵＢ ２４１０：ＲＥＴＵＲＮ
２０００ ＲＥＭ＊＊＊サブルーチン
２０１０ Ｇ＝Ａ（Ｐ，０）－Ａ（Ｑ，０）：Ｈ＝Ａ（Ｐ，１）－Ａ（Ｑ，１）：Ｌ＝ＳＱＲ（Ｇ＾２＋Ｈ＾２）：ＲＥＴＵＲＮ
２１００ ＲＥＭ＊＊＊サブルーチン
２１１０ Ｇ＝Ａ（Ｐ，０）－Ａ（Ｑ，０）：Ｈ＝Ａ（Ｐ，１）－Ａ（Ｑ，１）
２１２０ ＩＦ Ｇ＝０ ＴＨＥＮ Ｘ＝Ａ（Ｐ，０）：Ｙ＝（Ｘ－ＸＸ）／Ｍ１＋ＹＹ：ＧＯＴＯ ２１６０
２１３０ ＩＦ Ｈ＝０ ＴＨＥＮ Ｙ＝Ａ（Ｐ，１）：Ｘ＝Ｍ１＊（Ｙ－ＹＹ）＋ＸＸ：ＧＯＴＯ ２１６０
２１４０ Ｍ２＝Ｇ／Ｈ：Ｙ＝（Ｍ２＊Ａ（Ｐ，１）－Ａ（Ｐ，０）＋ＸＸ－Ｍ１＊ＹＹ）／（Ｍ２－Ｍ１）
２１５０ Ｘ＝Ｍ２＊（Ｙ－Ａ（Ｐ，１））＋Ａ（Ｐ，０）
２１６０ Ｚ（０）＝Ｘ：Ｚ（１）＝Ｙ：ＧＯＳＵＢ ２３１０：ＩＦ Ｅ＄＝”１”ＴＨＥＮ ２１１０
２１７０ ＲＥＴＵＲＮ
２２００ ＲＥＭ＊＊＊サブルーチン
２２１０ ＩＦ（ＸＹ－Ａ（Ｐ，Ｊ））＊（ＸＹ－Ａ（Ｑ，Ｊ））＜＝０ ＴＨＥＮ ２２２０ ＥＬＳＥ ＧＯＳＵＢ ２３５Ｏ：ＧＯＴＯ ２２１０
２２２０ Ｇ＝Ａ（Ｐ，０）－Ａ（Ｑ，０）：Ｈ＝Ａ（Ｐ，１）－Ａ（Ｑ，１）：ＩＦ Ｊ＝１ ＴＨＥＮ ２２５０
２２３０ Ｙ＝Ｈ＊（ＸＹ－Ａ（Ｐ，Ｊ））／Ｇ＋Ａ（Ｐ，１）：ＲＥＴＵＲＮ
２２５０ Ｘ＝Ｇ＊（ＸＹ－Ａ（Ｐ，Ｊ））／Ｈ＋Ａ（Ｐ，０）：ＲＥＴＵＲＮ
２３００ ＲＥＭ＊＊＊ヘン チェック
２３１０ Ｅ＄＝””：Ｋ＝０：ＩＦ Ａ（Ｐ，Ｋ）＝Ａ（Ｇ，Ｋ） ＴＨＥＮ Ｋ＝１
２３３０ ＩＦ （Ｚ（Ｋ）－Ａ（Ｐ，Ｋ））＊（Ｚ（Ｋ）－Ａ（Ｑ，Ｋ））＜＝０ ＴＨＥＮ ＲＥＴＵＲＮ
２３４０ Ｅ＄＝”１”
２３５０ Ｕ＝Ｑ－Ｐ＋Ｑ：Ｐ＝Ｑ：Ｑ＝Ｕ：ＩＦ Ｑ＞Ｎ ＴＨＥＮ Ｑ＝Ｑ－Ｎ ＥＬＳＥ ＩＦ Ｑ＜１ ＴＨＥＮ Ｑ＝Ｑ－Ｎ ＥＬＳＥ ＩＦ Ｑ＜１ ＴＨＥＮ Ｑ＝Ｑ＋Ｎ
２３６０ Ｉ＝Ｉ＋１：Ｃ（Ｉ）＝Ｐ：ＲＥＴＵＲＮ
２４００ ＲＥＭ＊＊＊メンセキ
２４１０ ＤＩＭ Ｂ（１０，１）：Ｘ１＝ＲＯＵＮＤ（Ｘ１，－４）：Ｙ１＝ＲＯＵＮＤ（Ｙ１，－４）：Ｘ２＝ＲＯＵＮＤ（Ｘ２，－４）：Ｙ２＝ＲＯＵＮＤ（Ｙ２，－４）
２４２０ Ｊ＝０：Ｂ（Ｊ，０）＝Ｘ１：Ｂ（Ｊ，１）＝Ｙ１：ＦＯＲ Ｋ＝Ｏ ＴＯ ０ ＳＴＥＰ－１：Ｊ＝Ｊ＋１：ＦＯＲ Ｈ＝０ ＴＯ １：Ｂ（Ｊ，Ｈ）＝Ａ（Ｃ（Ｋ），Ｈ）
２４３０ ＮＥＸＴ Ｈ，Ｋ：ＦＯＲ Ｋ＝Ｏ＋１ ＴＯ Ｉ：Ｊ＝Ｊ＋１：ＦＯＲ Ｈ＝０ ＴＯ １：Ｂ（Ｊ，Ｋ）＝Ａ（Ｃ（Ｋ），Ｈ）：ＮＥＸＴ Ｈ，Ｋ
２４４０ Ｊ＝Ｊ＋１：Ｂ（Ｊ，０）＝Ｘ２：Ｂ（Ｊ，１）＝Ｙ２：Ｖ＝０：ＦＯＲ Ｉ＝０ ＴＯ Ｊ：Ｋ＝Ｉ－１：Ｌ＝Ｌ＋１
２４５０ ＩＦ Ｉ＝Ｏ ＴＨＥＮ Ｋ＝Ｊ ＥＬＳＥ ＩＦ Ｉ＝Ｊ ＴＨＥＮ Ｌ＝０
２４６０ Ｖ＝Ｖ＋Ｂ（Ｉ，０）＊（Ｂ（Ｋ，１）－Ｂ（Ｌ，１））：ＮＥＸＴ Ｉ：Ｖ＝ＡＢＳ（Ｖ／２）：ＲＥＴＵＲＮ
２５００ ＲＥＭ＊＊＊サブルーチン
２５１０ Ｎ＝Ｎ＋１：Ａ（Ｎ，０）＝Ｘ１：Ａ（Ｎ，１）＝Ｙ１
２５２０ Ｎ＝Ｎ＋１：Ａ（Ｎ，０）＝Ｘ２：Ａ（Ｎ，１）＝Ｙ２：ＣＬＳ
２５３０ ＦＯＲ Ｊ＝Ｎ－１ ＴＯ Ｎ：ＰＲＩＮＴ”Ｎｏ．”；Ｊ；：ＬＯＣＡＴＥ ７，０：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＃＃＃＃．＃＃＃”；”Ｘ＝”；Ａ（Ｊ，０），
２５４０ ＬＯＣＡＴＥ ７，１：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＃＃＃＃．＃＃＃”；”Ｙ＝”；Ａ（Ｊ，１）
２５５０ ＬＯＣＡＴＥ ４，２：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃＃＃＃”；”メンセキ＝”；Ｖ，：ＩＦ Ｗ＝０ ＴＨＥＮ ２５６０ ＥＬＳＥ ＬＯＣＡＴＥ ４，３：ＰＲＩＮＴ ＵＳＩＮＧ”＆＆＆＆＆＆＃＃＃＃．＃＃＃＃＃＃”；” ハバ＝”；Ｗ；
２５６０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ ２５６０ ＥＬＳＥ ＣＬＳ：ＮＥＸＴ Ｊ：ＲＥＴＵＲＮ