投稿プログラム : SchoolOS 2.0

パンくずリスト

説明
使い方
アプリケーションの開発方法
プログラムリスト
CHR
QRコード
コメント

2014年05月07日投稿 /タグ : 投稿プログラム OSもどき mkII専用 /投稿者:ありふれた

説明

未来の学習用OSです。

使い方

学習ソフトは、鉛筆マークです。

アプリケーションの開発方法

開発したサブルーチンに

ＧＯＳＵＢ　＠ＭＯＵＳＥ
’~ココカラハ、シ゛ユウ~
ＩＦ　ＢＡＳＨ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭＭＡＮＤ
ＧＰＡＧＥ　０，Ｍ，！Ｍ：Ｍ＝（Ｍ＋１）％２：ＧＣＬＳ　ＣＮＫ：ＢＵ３＝０

と、入れるだけです。

プログラムリスト

ＡＣＬＳ：ＣＬＥＡＲ：ＬＯＡＤ”ＳＰＵ：ＰＴＸＣＨＲ”，０：ＳＰＳＥＴ　０，５，１，０，０，０：ＧＯＳＵＢ　＠ＳＴＡＲＴＩＮＧ：ＣＮＫ＝１：Ｘ＝１２３：Ｙ＝８５：ＳＨＥＬＬＯＮ＝１
ＢＧＭＳＥＴＤ　１２８，＠ＭＩＤＩＢＧＭ０１：ＤＩＭ　ＦＬＭ＄（２０）
ＣＨＲＳＥＴ　”ＢＧＵ”，１，”６６６６６６６６６ＦＦＦＦＦＦ６６ＦＦＦＦＦＦ６６ＦＦＦＦＦＦ６６ＦＦＦＦＦＦ６６６６６６６６６６６６６６６６６００００００００”ＤＳＫＰ＝１
＠ＤＥＳＫＴＯＰ
ＦＯＲ　Ｉ＝０　ＴＯ　１
ＧＯＳＵＢ　＠ＭＯＵＳＥ
ＩＦ　ＢＵ３＝＝１　　ＴＨＥＮ　ＳＨＥＬＬＯＮ＝１
ＩＦ　ＢＡＳＨ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭＭＡＮＤ
ＧＰＡＧＥ　０，Ｍ，！Ｍ：Ｍ＝（Ｍ＋１）％２：ＧＣＬＳ　ＣＮＫ：ＢＵ３＝０
ＩＦ　Ｍ＝＝０　ＴＨＥＮ　ＶＳＹＮＣ　１
ＩＦ　ＤＳＫＰ＝＝１　ＴＨＥＮ　ＮＥＸＴ　ＥＬＳＥ　Ｉ＝０：ＮＥＸＴ
ＧＯＴＯ　＠ＫＩＤＳＤＥＳＫＴＯＰ
＠ＭＯＵＳＥ
ＢＵ３＝０：ＣＬＩＣＫ＝０
ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　１　　ＴＨＥＮ　Ｙ＝Ｙ－１
ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　２　　ＴＨＥＮ　Ｙ＝Ｙ＋１
ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　４　　ＴＨＥＮ　Ｘ＝Ｘ－１
ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　８　　ＴＨＥＮ　Ｘ＝Ｘ＋１
ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　２５６ＴＨＥＮ　ＢＵ３＝１：ＣＬＩＣＫ＝１
ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　５１２ＴＨＥＮ　ＢＵ３＝２
ＩＦ　ＳＨＥＬＬＯＮ＝＝０ＡＮＤ　ＫＥＹＢＯＡＲＤ＝＝１５　　　ＴＨＥＮ　ＣＬＳ：ＧＯＴＯ　＠ＤＥＳＫＴＯＰ
ＳＰＯＦＳ　０，Ｘ，Ｙ：ＭＸ＝Ｘ：ＭＹ＝Ｙ
ＲＥＴＵＲＮ
＠ＣＯＭＭＡＮＤ
ＩＦ　Ｘ＞＝ＣＭＤＸ－２　ＡＮＤ　Ｘ＜＝ＣＭＤＸ２　ＡＮＤ　Ｙ＞＝ＣＭＤＹ－２　ＡＮＤ　Ｙ＜＝ＣＭＤＹ２　ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＳＨＥＬＬＯＮ＝１
ＩＦ　ＣＯＬ１＝＝１５　ＴＨＥＮ　ＣＯＬ＝１
ＩＦ　ＣＯＬ１＝＝０　　ＴＨＥＮ　ＣＯＬ１＝１６
ＧＦＩＬＬ　ＣＭＤＸ，ＣＭＤＹ，ＣＭＤＸ２，ＣＭＤＹ２，ＣＯＬ１
ＩＦ　ＳＨＥＬＬＯＮ＝＝１　ＴＨＥＮ　ＧＢＯＸ　　ＣＭＤＸ，ＣＭＤＹ－１，ＣＭＤＸ２，ＣＭＤＹ２＋１，７　ＥＬＳＥ　ＧＢＯＸ　　ＣＭＤＸ，ＣＭＤＹ－１，ＣＭＤＸ２，ＣＭＤＹ２＋１，１６＋７
ＩＦ　ＳＨＥＬＬＯＮ＝＝１　ＴＨＥＮ　ＧＦＩＬＬ　ＣＭＤＸ，ＣＭＤＹ，ＣＭＤＸ２，ＣＭＤＹ＋８，１６＋７　ＥＬＳＥ　ＧＦＩＬＬ　ＣＭＤＸ，ＣＭＤＹ，ＣＭＤＸ２，ＣＭＤＹ＋８，７
ＷＩＮＴＴＬ＄（０）＝”ｘｔｅｒｍ”
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＷＩＮＴＴＬ＄（０））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋１０８／２＋Ｇ＊６，ＣＭＤＹ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＷＩＮＴＴＬ＄（０），Ｇ，１）），０，１：ＮＥＸＴ
ＩＦ　ＳＨＥＬＬＯＮ＝＝１　ＴＨＥＮ　ＧＢＯＸ　ＣＭＤＸ，ＣＭＤＹ，ＣＭＤＸ２，ＣＭＤＹ＋８，７　ＥＬＳＥ　ＧＢＯＸ　ＣＭＤＸ，ＣＭＤＹ，ＣＭＤＸ２，ＣＭＤＹ＋８，７＋１６
ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１，ＣＭＤＹ，”ＢＧＵ”，１，０，１
’アタリハンテイ
ＩＦ　Ｘ＞＝ＣＭＤＸ－２　ＡＮＤ　Ｘ＜＝ＣＭＤＸ２　ＡＮＤ　Ｙ＞＝ＣＭＤＹ－８　ＡＮＤ　Ｙ＜＝ＣＭＤＹ＋８　ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＣＭＤＩ＝１
ＩＦ　ＶＩＥＤＩＴＯＲ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＶＩ＿ＴＡＲ
’ＡＡＡ
ＩＦ　ＵＳＥＲ＄（ＰＡＳＳ）＝＝”ＲＯＯＴ”　ＴＨＥＮ　ＰＭＴ＄＝”＃”：ＲＯＯＴ＝１　ＥＬＳＥ　ＰＭＴ＄＝”＄”：ＲＯＯＴ＝０
Ｇ＄（ＳＨＥＬＬ）＝ＵＳＥＲ＄（ＰＡＳＳ）＋”＠”＋ＣＤ＄＋ＰＭＴ＄＋ＩＮＫ＄（ＳＨＥＬＬ）＋ＰＰＰ＄
ＰＰＰ＝ＰＰＰ＋１
ＩＦ　ＰＰＰ＞＝２０　ＴＨＥＮ　ＰＰＰ＄＝ＣＨＲ＄（１３）
ＩＦ　ＰＰＰ＞＝４０　ＴＨＥＮ　ＰＰＰ＄＝””：ＰＰＰ＝０
＠ＣＯＮ＿ＢＡＳＨ
ＩＦ　ＳＨＥＬＬＯＮ＝＝１　ＴＨＥＮ　ＩＮＫ＄（ＳＨＥＬＬ）＝ＩＮＫ＄（ＳＨＥＬＬ）＋ＩＮＫＥＹ＄（）
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（０））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊１，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（０），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（１））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊２，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（１），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（２））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊３，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（２），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（３））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊４，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（３），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（４））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊５，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（４），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（５））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊６，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（５），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（６））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊７，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（６），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（７））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊８，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（７），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（８））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊９，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（８），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（Ｇ＄（９））－１：ＧＰＵＴＣＨＲ　ＣＭＤＸ＋１＋Ｇ＊６，ＣＭＤＹ＋８＊１０，”ＢＧＵ１”，ＡＳＣ（ＭＩＤ＄（Ｇ＄（９），Ｇ，１）），ＣＯＬ，１：ＮＥＸＴ
ＩＦ　ＳＨＥＬＬＯＮ＝＝１　ＴＨＥＮ　ＩＮＫ＄（ＳＨＥＬＬ）＝ＩＮＫ＄（ＳＨＥＬＬ）＋ＩＮＫＥＹ＄（）
ＩＦ　ＶＩＥＤＩＴＯＲ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
ＳＬ＝ＳＨＥＬＬ
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ＋１
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＬＥＡＲ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＦＯＲ　Ｉ＝０　ＴＯ　９：Ｇ＄（Ｉ）＝””：ＩＮＫ＄（Ｉ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＬＥＡＲ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ－ＳＨＥＬＬ：ＮＥＸＴ：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＰＡＳＳ＞＝１ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＳＵＤＯ”ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＡＳＳ（０）＝ＰＡＳＳ：ＰＡＳＳ＝０：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＰＡＳＳ＝＝０ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＳＵＤＯ”ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＡＳＳ＝ＰＡＳＳ（０）：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＰＡＳＳ＞＝１ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＳＵ”ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＡＳＳ（０）＝ＰＡＳＳ：ＰＡＳＳ＝０：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＰＡＳＳ＝＝０ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＳＵ”ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＡＳＳ＝ＰＡＳＳ（０）：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＰＡＳＳ＞＝１ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＳＵＤＯ　ＳＵ”ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＡＳＳ（０）＝ＰＡＳＳ：ＰＡＳＳ＝０：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＰＡＳＳ＝＝０ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＳＵＤＯ　ＳＵ”ＣＨＲ＄（１３）　ＴＨＥＮ　ＰＡＳＳ＝ＰＡＳＳ（０）：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＤＡＴＥ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ＋１）＝ＤＡＴＥ＄：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＴＩＭＥ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ＋１）＝ＴＩＭＥ＄：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＱＵＩＴ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＢＡＳＨ＝０：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＶＥＲ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ＋１）＝”ＨｉｒｏＬｉｎｕｘ　１．００”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＬＳ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＤＩＲ：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＳＨＵＴＤＯＷＮ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＡＣＬＳ：ＦＯＲ　Ｉ＝０　ＴＯ　３：ＣＨＲＩＮＩＴ　”ＢＧＵ”＋ＳＴＲ＄（Ｉ）：ＮＥＸＴ：ＥＮＤ：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＲＥＢＯＯＴ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＧＯＴＯ　＠ＳＴＡＲＴ
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　ＬＩＮＵＸ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＣＤ＄＋”Ｌｉｎｕｘ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　ＸＢＩＮ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＣＤ＄＋”\ＸＢＩＮ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　ＢＩＮ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＣＤ＄＋”\ＢＩＮ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　ＲＯＯＴ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＣＤ＄＋”ＲＯＯＴ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　ＳＣＨＯＯＬ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＣＤ＄＋”ＳＣＨＯＯＬ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　ＳＹＳＴＥＭ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＣＤ＄＋”\ＳＹＳＴＥＭ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＳＹＳＴＥＭ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄）－７）
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＳＹＳＴＥＭ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＸＢＩＮ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄）－５）
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＸＢＩＮ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＢＩＮ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄）－４）
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＢＩＮ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＣＤ＄＝＝”ＲＯＯＴ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄）－４）
ＩＦ　ＣＤ＄＝＝”ＲＯＯＴ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＣＤ＄＝＝”ＳＣＨＯＯＬ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄）－６）
ＩＦ　ＣＤ＄＝＝”ＳＣＨＯＯＬ”ＡＮＤ　ＩＮＫ＄（ＳＬ）＝＝”ＣＤ　．．”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＰＷＤ”＋ＣＨＲ＄（１３）　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ＋１）＝ＣＤ＄：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　０”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　２”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　３”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　４”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　５”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　６”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　７”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　８”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　９”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１０”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１１”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１２”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１３”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１４”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＫ＄（ＳＬ）＝＝”ＣＯＬＯＲ　１５”＋ＣＨＲ＄（１３）　ＴＨＥＮ　ＣＯＬ＝ＶＡＬ（ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，２５５）））：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＩＮＫ＄（ＳＬ）＝””
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＥＣＨＯ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＥＣＨＯ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＳＨ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＳＨ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＤＥＶ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＤＥＶ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＶＩ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＶＩ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＳＴＡＲＴ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＲＵＮ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”．／”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＴＡＲＲＵＮ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＣＮＫ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＣＮＫ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＲＭ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＲＭ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），”ＢＡＴＴＲＹ　”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭ＿ＢＡＴ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　Ｇ＄（ＳＬ＋１）＝”Ｂａｄ　Ｃｏｍｍａｎｄ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２
ＩＦ　ＬＥＮ（ＩＮＫ＄（ＳＬ））＞＝１ＡＮＤ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　ＩＮＫ＄（ＳＬ）＝ＬＥＦＴ＄（ＩＮＫ＄（ＳＬ），ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
’ｘ
ＩＦ　ＣＤ＄＝＝”\ＳＹＳＴＥＭ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＣＤ＄＝ＫＮＯ＄
ＩＦ　ＣＤ＄＝＝”\ＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＣＤ＄＝ＫＮＯ＄
ＩＦ　ＣＤ＄＝＝”\ＸＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＣＤ＄＝ＫＮＯ＄
ＩＦ　ＣＤ＄＝＝”ＬｉｎｕｘＳＣＨＯＯＬ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＮＯＴ２＝２
ＩＦ　ＣＤ＄＝＝”ＬｉｎｕｘＲＯＯＴ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＮＯＴ２＝３
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＳＹＳＴＥＭＬｉｎｕｘ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＮＯＴ２＝１
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＳＹＳＴＥＭＳＣＨＯＯＬ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＮＯＴ　Ｄｉｒｅｃｔｒｙ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＮＯＴ２＝２
ＩＦ　ＮＯＴ２＝＝１　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄－６））
ＩＦ　ＮＯＴ２＝＝２　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄－７））
ＩＦ　ＮＯＴ２＝＝３　ＴＨＥＮ　ＣＤ＄＝ＬＥＦＴ＄（ＣＤ＄，ＬＥＮ（ＣＤ＄－４））
ＧＰＵＴＣＨＲ　ＣＭＤＸ２－８，ＣＭＤＹ，”ＢＧＦ”，ＡＳＣ（”ｘ”），１，１
ＩＦ　Ｘ＞＝ＣＭＤＸ２－８　ＡＮＤ　Ｘ＜＝ＣＭＤＸ２　ＡＮＤ　Ｙ＞＝ＣＭＤＹ　ＡＮＤ　Ｙ＜＝ＣＭＤＹ＋８　ＡＮＤ　ＢＵ３＝＝１ＴＨＥＮ　ＢＡＳＨ＝０：ＶＩＥＤＩＴＯＲ＝０
ＩＦ　ＣＭＤＩ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＭＤＩ
ＮＯＴ２＝０
ＲＥＴＵＲＮ
＠ＣＭＤＩ
ＣＭＤＸ＝Ｘ：ＣＭＤＹ＝Ｙ
ＣＭＤＸ＝Ｘ＋１８＊８：ＣＭＤＹ＝Ｙ＋８８
ＣＭＤＩ＝ＢＵ３
ＲＥＴＵＲＮ

＠ＣＯＭ＿ＲＵＮ
ＧＰＡＧＥ　０，０，０：ＳＴＡＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），６，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＧＯＳＵＢ　”＠”＋ＬＥＦＴ＄（ＳＴＡＲＴ＄，ＬＥＮ（ＳＴＡＲＴ＄）－１）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＴＡＲＲＵＮ
ＧＰＡＧＥ　０，０，０：ＳＴＡＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），３，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＧＯＳＵＢ　”＠”＋ＬＥＦＴ＄（ＳＴＡＲＴ＄，ＬＥＮ（ＳＴＡＲＴ＄）－１）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ
＠ＥＣＨＯ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），５，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＬＥＦＴ＄（ＰＲＴ＄，ＬＥＮ（ＰＲＴ＄）－１）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＣＮＫ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），４，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＬＥＦＴ＄（ＰＲＴ＄，ＬＥＮ（ＰＲＴ＄）－１）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＲＭ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），３，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＬＥＦＴ＄（ＰＲＴ＄，ＬＥＮ（ＰＲＴ＄）－１）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＶＩ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），３，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＩＦ　ＰＲＴ＄＝＝””　ＴＨＥＮ　：ＥＬＳＥ　ＬＯＡＤ”ＭＥＭ：”＋ＬＥＦＴ＄（ＰＲＴ＄，ＬＥＮ（ＰＲＴ＄）－１）：Ｇ＄（０）＝ＭＥＭ＄
ＶＩＥＤＩＴＯＲ＝１：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＢＡＴＴＲＹ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），７，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＢＡＴＴＲＹ＝ＶＡＬ（ＰＲＴ＄）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＤＥＶ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），４，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＤＥＶ＝ＶＡＬ（ＰＲＴ＄）：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ
＠ＣＯＭ＿ＳＨ
ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），４，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＩＦ　ＩＮＳＴＲ（ＰＲＴ＄，”．ＳＨ”）＞＝０　ＴＨＥＮ　ＬＯＡＤ”ＭＥＭ：”＋ＬＥＦＴ＄（ＰＲＴ＄，ＬＥＮ（ＰＲＴ＄）－４）
ＩＮＫ＄（ＳＬ＋１）＝ＭＥＭ＄：ＩＮＫ＄（ＳＬ）＝””：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１：ＲＥＴＵＲＮ

＠ＣＯＭ＿ＤＩＲ
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＳＹＳＴＥＭ／　ＰＡＩＮＴ．ＰＳＡ　ＢＩＮ／”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＸＢＩＮ／”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＳＹＳＴＥＭ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＢＯＯＴ．ＴＡＲ　ＫＥＲＮＥＬ．ＴＡＲ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＬＳ　ＶＥＲ　ＤＡＴＥ　ＴＩＭＥ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＣＤ　ＱＵＩＴ　ＳＨＵＴＤＯＷＮ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＲＥＢＯＯＴ　ＰＷＤ　ＣＯＬＯＲ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＳＵ　ＳＵＤＯ　ＢＡＴＴＲＹ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２
ＩＦ　ＣＤ＄＝＝”Ｌｉｎｕｘ\ＸＢＩＮ”　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＶＩ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２
ＩＦ　ＣＤ＄＝＝””　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＳＣＨＯＯＬ／　Ｌｉｎｕｘ／　ＳＨＥＬＬ．ＴＡＲ”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋１
ＩＦ　ＣＤ＄＝＝””　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝”ＲＯＯＴ／”：ＳＨＥＬＬ＝ＳＨＥＬＬ＋２
ＲＥＴＵＲＮ

＠ＳＴＡＲＴＩＮＧ
ＦＯＲ　Ｉ＝３２　ＴＯ　１２７：ＣＨＲＲＥＡＤ　（”ＢＧＦ”，Ｉ），Ｃ＄：ＣＨＲＳＥＴ　”ＢＧＵ１”，Ｉ，Ｃ＄：ＮＥＸＴ
ＣＨＲＲＥＡＤ　（”ＢＧＦ”，１２７），Ｃ＄：ＣＨＲＳＥＴ　”ＢＧＵ１”，９２，Ｃ＄：ＣＨＲＲＥＡＤ　（”ＢＧＦ”，３２），Ｃ＄：ＣＨＲＳＥＴ　”ＢＧＵ１”，１２７，Ｃ＄
ＣＨＲＲＥＡＤ　（”ＳＰＳ１”，１７６），Ｃ＄：ＣＨＲＳＥＴ　”ＢＧＵ１”，１３，Ｃ＄
Ｘ＝０：Ｙ＝１：ＧＯＳＵＢ　＠ＣＭＤＩ：ＣＤ＄＝”Ｌｉｎｕｘ”：ＵＳＥＲ＄（０）＝”ＲＯＯＴ”：ＲＥＴＵＲＮ

＠ＶＩ＿ＴＡＲ
ＶＩＥＤＩＴＯＲ＝１
ＰＰＰ＝ＰＰＰ＋１
ＩＦ　ＰＰＰ＞＝２０　ＴＨＥＮ　ＰＰＰ＄＝ＣＨＲ＄（１３）
ＩＦ　ＰＰＰ＞＝４０　ＴＨＥＮ　ＰＰＰ＄＝””：ＰＰＰ＝０
ＧＯＳＵＢ　＠ＣＯＮ＿ＢＡＳＨ
Ｇ＄（ＥＤ）＝ＩＮＫ＄（ＳＨＥＬＬ）＋ＰＰＰ＄
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（ＳＨＥＬＬ），ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＳＨＥＬＬ＝ＳＨＥＬＬ－１：Ｇ＝Ｇ＋１：ＥＤ＝ＥＤ＋１：ＷＡＩＴ　２０
ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１　ＴＨＥＮ　ＣＯＭＭＯＤＥ＝１
ＩＦ　ＩＮＫ＄（ＳＨＥＬＬ）＝＝””ＡＮＤ　ＣＯＭＭＯＤＥ＝＝１　ＴＨＥＮ　Ｇ＄（９）＝”－　ＩＮＳＥＲＴ　－”
ＩＦ　ＣＯＭＭＯＤＥ＝＝１　ＴＨＥＮ　Ｇ＄（９）＝ＩＮＫ＄（ＳＨＥＬＬ）
ＩＦ　ＣＯＭＭＯＤＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭＭＡＮＤＭＯＤＥＶＩ
ＦＯＲ　Ｉ＝ＥＤ　ＴＯ　８：Ｇ＄（Ｉ）＝”~”：ＮＥＸＴ
Ｇ＄（９）＝”－　”＋ＦＩＬＥ＄＋”　１／１　１００％”
ＩＦ　ＦＩＬＥ＄＝＝””　ＴＨＥＮ　ＦＩＬＥ＄＝”Ｎｏ　ｆｉｌｅ”
ＩＦ　ＬＥＮ（Ｇ＄（ＥＤ））＞＝１ＡＮＤ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　ＩＮＫ＄（ＳＨＥＬＬ）＝ＬＥＦＴ＄（ＩＮＫ＄（ＳＨＥＬＬ），ＬＥＮ（ＩＮＫ＄（ＳＨＥＬＬ））－１）
ＩＦ　ＬＥＮ（Ｇ＄（ＥＤ））＞＝１ＡＮＤ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　Ｇ＄（ＳＨＥＬＬ）＝ＬＥＦＴ＄（Ｇ＄（ＳＨＥＬＬ），ＬＥＮ（Ｇ＄（ＳＨＥＬＬ））－１）
ＧＰＵＴＣＨＲ　ＣＭＤＸ２－８，ＣＭＤＹ，”ＢＧＦ”，ＡＳＣ（”ｘ”），１，１
ＩＦ　Ｘ＞＝ＣＭＤＸ２－８　ＡＮＤ　Ｘ＜＝ＣＭＤＸ２　ＡＮＤ　Ｙ＞＝ＣＭＤＹ　ＡＮＤ　Ｙ＜＝ＣＭＤＹ＋８　ＡＮＤ　ＢＵ３＝＝１ＴＨＥＮ　ＢＡＳＨ＝０
ＩＦ　ＣＭＤＩ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＭＤＩ
ＲＥＴＵＲＮ
＠ＣＯＭＭＡＮＤＭＯＤＥＶＩ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：Ｑ”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄，ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＳＡＶＥ　”ＭＥＭ：”＋ＦＩＬＥ＄
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：Ｑ！”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄，ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＶＩＥＤＩＴＯＲ＝０
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：Ｗ”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄，ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｗ＿ＶＩ＿ＢＡＳＨ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：ＷＱ”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄，ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｗ＿ＶＩ＿ＢＡＳＨ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：Ｘ”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄，ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　Ｇ＄（Ｇ）＝ＬＥＦＴ＄（Ｇ＄，ＬＥＮ（Ｇ＄）－１
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：Ｘ”）＞＝０ＡＮＤ　ＩＮＳＴＲ（ＩＮＫ＄，ＣＨＲ＄（１３））＞＝１　ＴＨＥＮ　Ｇ＄（Ｇ）＝””



ＲＥＴＵＲＮ
＠Ｗ＿ＶＩ＿ＢＡＳＨ
ＦＯＲ　Ｉ＝０　ＴＯ　８
ＭＥＭ＄＝Ｇ＄（Ｉ）＋Ｇ＄（Ｉ）
ＮＥＸＴ
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：Ｗ”）＞＝１　ＴＨＥＮ　ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），３，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＩＦ　ＩＮＳＴＲ（ＩＮＫ＄（Ｇ），”：ＷＱ”）＞＝１　ＴＨＥＮ　ＰＲＴ＄＝ＭＩＤ＄（ＩＮＫ＄（ＳＬ），４，ＬＥＮ（ＩＮＫ＄（ＳＬ））－１）
ＳＡＶＥ”ＭＥＭ：”＋ＬＥＦＴ＄（ＰＲＴ＄，ＬＥＮ（ＰＲＴ＄）－１）
ＲＥＴＵＲＮ

＠ＫＩＤＳＤＥＳＫＴＯＰ
ＧＯＳＵＢ　＠ＭＯＵＳＥ
ＧＯＳＵＢ　＠ＫＳＤＥＳＫＴＯＰ


ＩＦ　ＢＵ３＝＝１　　ＴＨＥＮ　ＳＨＥＬＬＯＮ＝１
ＩＦ　ＢＡＳＨ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＣＯＭＭＡＮＤ
ＩＦ　Ｍ＝＝０　ＴＨＥＮ　ＶＳＹＮＣ　１
ＧＰＡＧＥ　０，Ｍ，！Ｍ：Ｍ＝（Ｍ＋１）％２：ＧＣＬＳ　ＣＮＫ：ＢＵ３＝０
ＧＯＴＯ　＠ＫＩＤＳＤＥＳＫＴＯＰ

＠ＫＳＤＥＳＫＴＯＰ
ＧＯＳＵＢ　”ＫＤＳ＿”＋ＤＩＲ＄：ＧＣＬＳ　ＣＮＫ
ＧＦＩＬＬ　０，０，２５５，１６，１３
ＧＰＵＴＣＨＲ　１，０１，”ＢＧＵ”，００１，０，２
ＧＰＵＴＣＨＲ　１８，１，”ＢＧＦ”，２３２，１，２
ＩＦ　ＳＨＥＬＬＯＮ＝＝０ＡＮＤ　Ｘ＞＝１ＡＮＤ　Ｘ＜＝１７ＡＮＤ　Ｙ＞＝１ＡＮＤ　Ｙ＜＝１５ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＢＡＳＨ＝１
ＩＦ　ＳＨＥＬＬＯＮ＝＝０ＡＮＤ　Ｘ＞＝１８ＡＮＤ　Ｘ＜＝１８＋１６ＡＮＤ　Ｙ＞＝１ＡＮＤ　Ｙ＜＝１６ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＨＯＭＥ＝１
ＩＦ　ＢＧＭＣＨＫ（）＝＝１　ＴＨＥＮ　ＧＰＵＴＣＨＲ　１８＋１６，１，”ＢＧＦ”，２２８，１，２
ＩＦ　ＳＨＥＬＬＯＮ＝＝０ＡＮＤ　ＢＧＭＣＨＫ（）＝＝１ＡＮＤ　Ｘ＞＝１８＋１６＊１ＡＮＤ　Ｘ＜＝１８＋１６＊２ＡＮＤ　Ｙ＞＝１ＡＮＤ　Ｙ＜＝１６ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＢＧＭＳＴＯＰ　０
ＦＬＭ＝０
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＩＦ　Ｙ＞＝ＦＬＭ＊８＋１６　ＡＮＤ　Ｙ＜＝ＦＬＭ＊８＋１６＋８ＡＮＤ　ＢＵ３＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＦＬＭＣＬＫ
ＦＯＲ　Ｇ＝０　ＴＯ　ＬＥＮ（ＦＬＭ＄（ＦＬＭ））－１：ＧＰＵＴＣＨＲ　Ｇ＊６，１７＋８＊ＦＬＭ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＦＬＭ＄（ＦＬＭ），Ｇ，１）），０，１：ＮＥＸＴ：ＦＬＭ＝ＦＬＭ＋１
ＦＬＭ＝０
ＦＬＭ＄（１）＝””：ＦＬＭ＄（０）＝””：ＦＬＭ＄（２）＝””：ＦＬＭ＄（３）＝””：ＦＬＭ＄（４）＝””：ＦＬＭ＄（５）＝””：ＦＬＭ＄（６）＝””：ＦＬＭ＄（７）＝””：ＦＬＭ＄（８）＝””
ＦＬＭ＄（９）＝””：ＦＬＭ＄（１０）＝””：ＦＬＭ＄（１１）＝””：ＦＬＭ＄（１２）＝””
ＩＦ　ＨＯＭＥ＝＝１　ＴＨＥＮ　ＤＩＲ＄＝””：ＨＯＭＥ＝０
’＝＝＝ＲＯＯＴＦ＝＝＝
＠ＫＤＳ＿ＲＯＯＴ
ＦＬＭ＄（０）＝”ＹＡＳＥＩＮＯＫＯＫＯＲＯ．ＭＩＤ”
ＲＥＴＵＲＮ
’＝＝＝ＦＩＬＥＳ＝＝＝
＠ＫＤＳ＿ＳＣＨＯＯＬ
ＲＥＴＵＲＮ
＠ＫＤＳ＿
ＦＬＭ＄（０）＝”ＳＣＨＯＯＬ／”
ＦＬＭ＄（１）＝”ＬＩＮＵＸ／”
ＦＬＭ＄（２）＝”ＲＯＯＴ／”
ＦＬＭ＄（３）＝”ＸＴＥＲＭ．ＴＡＲ”
ＲＥＴＵＲＮ

＠ＫＤＳ＿ＬＩＮＵＸ
ＦＬＭ＄（０）＝”ＸＢＩＮ／”
ＦＬＭ＄（１）＝”ＢＩＮ／”
ＦＬＭ＄（２）＝”ＳＹＳＴＥＭ／”
ＦＬＭ＄（３）＝”ＰＡＩＮＴ．ＰＳＡ”
ＲＥＴＵＲＮ

＠ＫＤＳ＿ＬＩＮＵＸＢＩＮ
ＦＬＭ＄（０）＝”ＬＳ”
ＦＬＭ＄（１）＝”ＶＥＲ”
ＦＬＭ＄（２）＝”ＱＵＩＴ”
ＦＬＭ＄（３）＝”ＲＥＢＯＯＴ”
ＦＬＭ＄（４）＝”ＤＡＴＥ”
ＦＬＭ＄（５）＝”ＴＩＭＥ”
ＦＬＭ＄（６）＝”ＳＨＵＴＤＯＷＮ”
ＦＬＭ＄（７）＝”ＣＤ”
ＦＬＭ＄（８）＝”ＰＷＤ”
ＦＬＭ＄（９）＝”ＣＯＬＯＲ”
ＦＬＭ＄（１０）＝”ＳＵ”
ＦＬＭ＄（１１）＝”ＳＵＤＯ”
ＦＬＭ＄（１２）＝”ＢＡＴＴＲＹ”
ＲＥＴＵＲＮ

＠ＫＤＳ＿ＬＩＮＵＸＸＢＩＮ
ＦＬＭ＄（０）＝”ＶＩ”
ＲＥＴＵＲＮ

＠ＫＤＳ＿ＬＩＮＵＸＳＹＳＴＥＭ
ＦＬＭ＄（０）＝”ＢＯＯＴ．ＴＡＲ”
ＦＬＭ＄（１）＝”ＫＥＲＮＥＬ．ＴＡＲ”
ＲＥＴＵＲＮ

＠ＦＬＭＣＬＫ
ＩＦ　ＳＨＥＬＬＯＮ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　ＦＬＭ＄（ＦＬＭ）＝＝”ＸＴＥＲＭ．ＴＡＲ”　ＴＨＥＮ　ＢＡＳＨ＝１
ＩＦ　ＤＩＲ＄＝＝””ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＬＩＮＵＸ／”　　ＴＨＥＮ　ＤＩＲ＄＝”ＬＩＮＵＸ”：ＷＡＩＴ　１０
ＩＦ　ＤＩＲ＄＝＝””ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＳＣＨＯＯＬ／”　ＴＨＥＮ　ＤＩＲ＄＝”ＳＣＨＯＯＬ”：ＷＡＩＴ１０
ＩＦ　ＤＩＲ＄＝＝””ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＲＯＯＴ／”　　　ＴＨＥＮ　ＤＩＲ＄＝”ＲＯＯＴ”：ＷＡＩＴ１０
ＩＦ　ＤＩＲ＄＝＝”ＬＩＮＵＸ”ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＳＹＳＴＥＭ／”　ＴＨＥＮ　ＤＩＲ＄＝”ＬＩＮＵＸＳＹＳＴＥＭ”：ＷＡＩＴ１０
ＩＦ　ＤＩＲ＄＝＝”ＬＩＮＵＸ”ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＢＩＮ／”　ＴＨＥＮ　ＤＩＲ＄＝”ＬＩＮＵＸＢＩＮ”：ＷＡＩＴ１０
ＩＦ　ＤＩＲ＄＝＝”ＬＩＮＵＸ”ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＸＢＩＮ／”　ＴＨＥＮ　ＤＩＲ＄＝”ＬＩＮＵＸＸＢＩＮ”：ＷＡＩＴ１０
ＩＦ　ＤＩＲ＄＝＝”ＬＩＮＵＸ”ＡＮＤ　ＦＬＭ＄（ＦＬＭ）＝＝”ＰＡＩＮＴ．ＰＳＡ”　ＴＨＥＮ　ＧＯＴＯ　＠ＰＡＩＮＴ：ＷＡＩＴ１０
ＧＯＳＵＢ　＠ＳＣＨＯＯＬＯＳ＿ＭＵＳＩＣ

＠ＡＰＰＩＮＩＴ
ＧＰＡＧＥ　０，０，０：ＧＣＬＳ　ＢＣ：ＣＬＳ
ＲＥＴＵＲＮ

＠ＰＡＩＮＴ
ＢＣ＝１９：ＳＨＥＬＬＯＮ＝０
ＧＯＳＵＢ　＠ＡＰＰＩＮＩＴ
？”タタ゛ノ　　Ｖｅｒ１．００　　　　　　　　　┨┠　┨┠”
？”　┌──┐　┌──┐　│　├──┐　　│┃　┻┃　┻”
？”　│　　│　┌──┤　　　│　　│　─┼─　┳┠┓　”
？”　├──┘　│　　│　│　│　　│　　│　　┠┨┠　　”
？”　│　　　　└──└　│　│　　│　　└─　┠┗┫┓”
ＧＦＩＬＬ　０，５０，２００，１９２，１５
ＦＯＲ　Ｚ＝０　ＴＯ　１５
ＺＩ＝Ｚ＊１０
ＧＦＩＬＬ　２０５，３０＋ＺＩ，２１５，４０＋ＺＩ，Ｚ
ＮＥＸＴ
ＬＯＣＡＴＥ　０，５？”Ф：ケス

＠ＰＬＯＯＰ
ＧＯＳＵＢ　＠ＭＯＵＳＥ
ＦＯＲ　Ｚ＝０　ＴＯ　１５
ＺＩ＝Ｚ＊１０
ＩＦ　ＣＬＩＣＫ＝＝ＴＲＵＥ　ＡＮＤ　ＭＸ＞２０５　ＡＮＤ　ＭＸ＜２１５　ＡＮＤ　ＭＹ＞３０＋ＺＩ　ＡＮＤ　ＭＹ＜４０＋ＺＩ　ＴＨＥＮ　ＰＥＮＣ＝Ｚ
ＮＥＸＴ
ＩＦ　ＣＬＩＣＫ＝＝ＴＲＵＥ　ＡＮＤ　ＭＸ＞０　ＡＮＤ　ＭＸ＜２００　ＡＮＤ　ＭＹ＞５０　ＡＮＤ　ＭＹ＜１９２　ＴＨＥＮ　ＧＣＩＲＣＬＥ　ＭＸ，ＭＹ，１，ＰＥＮＣ：ＧＰＡＩＮＴ　ＭＸ，ＭＹ，ＰＥＮＣ
ＬＯＣＡＴＥ　１５，５？ヘ゜ンノイロハ”：ＰＥＮＣ
ＩＦ　（ＢＵＴＴＯＮ（）　ＡＮＤ　６４）　ＴＨＥＮ　＠ＰＡＩＮＴ
ＶＳＹＮＣ　１
ＧＯＴＯ　＠ＰＬＯＯＰ

＠ＳＣＨＯＯＬＯＳ＿ＭＵＳＩＣ
ＩＦ　ＦＬＭ＄（ＦＬＭ）＝＝”ＹＡＳＥＩＮＯＫＯＫＯＲＯ．ＭＩＤ”　ＴＨＥＮ　ＢＧＭＰＬＡＹ　１２８
ＲＥＴＵＲＮ
＠ＭＩＤＩＢＧＭ０１
ＤＡＴＡ”：０
ＤＡＴＡ”［＠１４７＠Ｖ７０
ＤＡＴＡ”Ｏ４Ｌ１６Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｐ１２７Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｂ＜Ｄ＃Ｆ＃Ｂ
ＤＡＴＡ”Ｐ６４Ｃ＃ＥＧ＃＜Ｃ＃＞Ｃ＃ＥＧ＃＜Ｃ＃＞Ｐ０Ｃ＃ＥＧ＃＜Ｃ＃＞Ｄ＃Ｆ＃Ａ＃＜Ｄ＃Ｏ４
ＤＡＴＡ”Ｐ６４Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｐ１２７Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｂ＜Ｄ＃Ｆ＃Ｂ＞Ｐ６４Ｆ＃Ａ＃＜Ｃ＃Ｆ＃＞Ｆ＃Ａ＃＜Ｃ＃Ｆ＃＞Ｐ０Ｄ＃Ｆ＃Ａ＃＜Ｄ＃＞Ｆ＃Ａ＃＜Ｃ＃Ｆ＃Ｒ１
ＤＡＴＡ”Ｐ６４Ｒ１Ｒ１Ｂ８．Ｒ１６Ｇ＃４Ｅ４Ｄ＃４Ｌ１］
ＤＡＴＡ”：１Ｐ０＠Ｖ８０
ＤＡＴＡ”［＠８１Ｏ４Ｌ１６Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＤ＃＞Ｇ＃Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＥ＞Ｂ
ＤＡＴＡ”Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＤ＃＞Ｇ＃Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＥ＞ＢＢＲ８＜Ｂ８Ａ＃８Ｂ８Ｅ８
ＤＡＴＡ”Ｅ８Ｒ１６ＥＤ＃＞Ｂ＜Ｃ＃８Ｃ＃８Ｅ８Ｅ８Ｅ８Ｅ８Ｆ＃８Ｆ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃ＥＦ＃８Ｆ＃８Ｄ＃８Ｅ８Ｆ＃８Ｆ＃８Ｇ＃８Ｇ＃８Ｒ８Ｂ８Ａ＃８
ＤＡＴＡ”Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃＞Ｂ＜Ｃ＃８Ｃ＃８Ｅ８Ｅ８Ｅ８Ｅ８Ｆ＃８Ｆ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＦ＃Ｇ＃Ａ＃８Ｄ＃８Ａ＃８Ｄ＃＜Ｃ＃８＞Ｂ８Ａ＃８Ｆ＃Ｇ＃
ＤＡＴＡ”Ａ＃Ｂ２Ｇ＃４Ａ＃４Ｂ８Ｅ８Ｂ８Ｅ＜Ｅ８Ｄ＃８Ｃ＃８＞Ｂ＜Ｃ＃＞ＢＡ＃１Ｒ１］
ＤＡＴＡ”：２Ｐ０＠Ｖ８０
ＤＡＴＡ”［＠８７Ｏ２Ｌ１６Ｒ１Ｒ１Ｒ１Ｒ１ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜Ｃ＃Ｃ＃Ｃ＃Ｃ＃Ｃ＃＞Ｇ＃＜Ｃ＃＞Ｇ＃＜Ｃ＃Ｃ＃Ｃ＃＞Ｇ＃＜Ｄ＃Ｄ＃Ｄ＃＞Ｂ＜
ＤＡＴＡ”ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜Ｆ＃Ｆ＃Ｆ＃Ｆ＃Ｆ＃Ｃ＃Ｆ＃Ｃ＃Ｄ＃Ｄ＃Ｄ＃Ｄ＃Ｆ＃Ｆ＃Ｆ＃Ｆ＃ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜ＥＥＥＥＥ＞Ｂ＜
ＤＡＴＡ”Ｅ＞Ｂ＜Ｃ＃Ｃ＃Ｃ＃Ｃ＃Ｃ＃＞Ｇ＃＜Ｃ＃＞Ｇ＃＜Ｃ＃Ｃ＃Ｃ＃＞Ｇ＃＜Ｄ＃Ｄ＃Ｄ＃＞Ｂ＜ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜ＥＥＥＥＥ＞Ｂ＜Ｅ＞Ｂ＜Ｆ＃Ｆ＃Ｆ＃Ｆ＃Ｆ＃
ＤＡＴＡ”Ｃ＃Ｆ＃Ｃ＃Ｄ＃Ｄ＃Ｄ＃Ｄ＃Ｆ＃Ｆ＃Ｆ＃Ｆ＃Ｇ＃Ｇ＃Ｇ＃Ｇ＃Ｇ＃Ｇ＃Ｇ＃Ｇ＃ＥＥＥＥＦ＃Ｆ＃Ｆ＃Ｆ＃ＢＢＢＢＢＦ＃ＢＦ＃ＥＥＤ＃Ｄ＃Ｃ＃Ｃ＃＞ＢＢＡ＃
ＤＡＴＡ”Ａ＃Ａ＃Ａ＃Ａ＃Ｆ＃Ａ＃Ｆ＃Ａ＃Ａ＃Ａ＃Ａ＃ＢＢ＜Ｃ＃Ｃ＃ＢＢＢＢＧ＃Ｇ＃Ｇ＃Ｇ＃ＥＥＥＥＤ＃Ｄ＃Ｄ＃Ｄ＃］
ＤＡＴＡ”：３Ｐ１２７＠Ｖ８０
ＤＡＴＡ”［＠９６Ｏ６Ｌ８Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ１Ｒ８ＢＡ＃ＢＥＥＲ１６Ｅ１６Ｄ＃１６＞Ｂ１６＜Ｃ＃Ｃ＃ＥＥＥＥＦ＃Ｆ＃Ｒ８ＢＡ＃ＢＥＥＲ１６Ｅ１６Ｆ＃１６Ｇ＃１６Ａ＃Ｄ＃Ａ＃Ｄ＃１６＜Ｃ＃
ＤＡＴＡ”＞ＢＡ＃Ｆ＃１６Ｇ＃１６Ａ＃１６Ｂ２Ｇ＃４Ａ＃４Ｄ＃＞Ｇ＃＜Ｄ＃＞Ｇ＃１６＜Ｇ＃Ｆ＃ＥＤ＃１６Ｅ１６Ｄ＃１６Ｃ＃１Ｒ１］
ＤＡＴＡ”：４Ｐ１２７＠Ｖ８０Ｒ６４
ＤＡＴＡ”［＠８０Ｏ４Ｌ１６Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＤ＃＞Ｇ＃Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＥ＞ＢＢ＜Ｃ＃＞Ｇ＃Ｂ＜
ＤＡＴＡ”Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＤ＃＞Ｇ＃Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＥ＞ＢＢＲ８＜Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃＞Ｂ＜Ｃ＃
ＤＡＴＡ”８Ｃ＃８Ｅ８Ｅ８Ｅ８Ｅ８Ｆ＃８Ｆ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃ＥＦ＃８Ｆ＃８Ｄ＃８Ｅ８Ｆ＃８Ｆ＃８Ｇ＃８Ｇ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃＞Ｂ＜Ｃ＃
ＤＡＴＡ”８Ｃ＃８Ｅ８Ｅ８Ｅ８Ｅ８Ｆ＃８Ｆ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＦ＃Ｇ＃Ａ＃８Ｄ＃８Ａ＃８Ｄ＃＜Ｃ＃８＞Ｂ８Ａ＃８Ｆ＃Ｇ＃Ａ＃Ｂ２Ｇ＃４Ａ＃４Ｂ８Ｅ８Ｂ８Ｅ＜
ＤＡＴＡ”Ｅ８Ｄ＃８Ｃ＃８＞Ｂ＜Ｃ＃＞ＢＡ＃１Ｒ１］
ＤＡＴＡ”：５＠７３Ｐ０＠Ｖ８０
ＤＡＴＡ”［Ｏ６Ｌ４Ｒ１Ｒ１Ｒ１Ｒ１Ｅ２Ｅ２Ｃ＃２ＥＦ＃Ｅ２Ｅ２Ｃ＃２ＥＦ＃Ｒ８Ｂ８Ａ＃８Ｂ８ＥＲ１６Ｅ１６Ｄ＃１６＞Ｂ１６＜Ｃ＃Ｅ８Ｅ８ＥＦ＃Ｒ８Ｂ８Ａ＃８Ｂ８ＥＲ１６Ｅ１６
ＤＡＴＡ”Ｆ＃１６Ｇ＃１６Ａ＃８Ｄ＃８Ａ＃８Ｄ＃１６
ＤＡＴＡ”＜Ｃ＃８＞Ｂ８Ａ＃８Ｆ＃１６Ｇ＃１６Ａ＃１６Ｂ２Ｇ＃Ａ＃Ｒ１Ｒ１Ｏ５ＢＧ＃ＥＤ＃］
ＤＡＴＡ”：６＠７１Ｐ９６＠Ｖ８０
ＤＡＴＡ”［Ｏ４Ｌ８Ｒ１Ｒ１Ｒ１Ｒ１Ｇ＃２Ｇ＃２Ｃ＃２Ｃ＃＞Ａ＃１６＜Ｃ＃１６Ｄ＃Ｆ＃Ｇ＃２Ｇ＃２Ｄ＃４＞ＢＢ＜Ｄ＃４Ｅ４Ｒ２Ｒ８ＢＡ＃ＢＥ２Ｃ＃４Ｄ＃４Ｒ２Ｒ８ＢＡ＃Ｂ
ＤＡＴＡ”Ａ＃Ｄ＃Ａ＃Ｄ＃１６Ｇ＃Ｇ＃Ｆ＃Ｄ＃１６Ｅ１６Ｆ＃１６Ｆ＃４．＞Ｂ＜Ｂ４Ｇ＃Ａ＃ＢＥＢＥＲ１６＜Ｄ＃Ｃ＃＞Ｂ１６＜Ｃ＃１６＞Ｂ１６Ａ＃１Ｒ１］
ＤＡＴＡ”：７＠５７＠Ｖ８０
ＤＡＴＡ”［Ｏ３Ｌ１６Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＤ＃＞Ｇ＃Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＥ＞ＢＢ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８
ＤＡＴＡ”＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＤ＃＞Ｇ＃Ｂ＜Ｃ＃＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃８＞Ｇ＃Ｂ＜Ｃ＃ＥＥ＞ＢＢＲ８＜Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃＞Ｂ＜Ｃ＃８Ｃ＃８
ＤＡＴＡ”Ｅ８Ｅ８Ｅ８Ｅ８Ｆ＃８Ｆ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃ＥＦ＃８Ｆ＃８Ｄ＃８Ｅ８Ｆ＃８Ｆ＃８Ｇ＃８Ｇ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＤ＃＞Ｂ＜Ｃ＃８Ｃ＃８Ｅ８
ＤＡＴＡ”Ｅ８Ｅ８Ｅ８Ｆ＃８Ｆ＃８Ｒ８Ｂ８Ａ＃８Ｂ８Ｅ８Ｅ８Ｒ１６ＥＦ＃Ｇ＃Ａ＃８Ｄ＃８Ａ＃８Ｄ＃＜Ｃ＃８＞Ｂ８Ａ＃８Ｆ＃Ｇ＃Ａ＃Ｂ２Ｇ＃４Ａ＃４Ｂ８Ｅ８Ｂ８Ｅ＜Ｅ８Ｄ＃８
ＤＡＴＡ”Ｃ＃８＞Ｂ＜Ｃ＃＞ＢＡ＃１Ｒ１］
ＤＡＴＡ”：８Ｏ２＠１２８＠Ｖ１２７
ＤＡＴＡ”［Ｌ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８
ＤＡＴＡ”Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２
ＤＡＴＡ”ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８
ＤＡＴＡ”Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６
ＤＡＴＡ”Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２
ＤＡＴＡ”ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２
ＤＡＴＡ”ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２
ＤＡＴＡ”ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２ＣＲ８Ｒ１６Ｒ３２ＣＲ３２ＣＲ８Ｒ３２ＣＲ８Ｒ３２ＣＲ１６Ｒ３２ＣＲ８Ｒ３２］
ＤＡＴＡ”：９＠１２８＠Ｖ１２７［Ｏ２Ｌ３２Ｒ８ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２
ＤＡＴＡ”ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ３２
ＤＡＴＡ”ＥＲ３２ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２
ＤＡＴＡ”ＥＲ１６Ｒ３２ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６
ＤＡＴＡ”Ｒ３２ＥＲ３２ＥＲ３２ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２
ＤＡＴＡ”ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６
ＤＡＴＡ”Ｒ３２ＥＲ１６Ｒ３２ＥＲ３２ＥＲ３２ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８
ＤＡＴＡ”Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ３２ＥＲ８Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２ＥＲ８Ｒ１６Ｒ３２
ＤＡＴＡ”ＥＲ８Ｒ１６Ｒ３２ＥＲ１６Ｒ３２ＥＲ３２ＥＲ３２ＥＲ３２ＥＲ３２］
ＤＡＴＡ”：１０＠Ｖ０＠１２８［Ｏ２Ｌ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃
ＤＡＴＡ”Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２
ＤＡＴＡ”Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃
ＤＡＴＡ”Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６
ＤＡＴＡ”Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２
ＤＡＴＡ”Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃
ＤＡＴＡ”Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６
ＤＡＴＡ”Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２
ＤＡＴＡ”Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃
ＤＡＴＡ”Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６Ｒ３２Ａ＃Ｒ１６．］
ＤＡＴＡ”：１１＠１２８＠Ｖ１２７
ＤＡＴＡ”［Ｏ３Ｌ３２Ｃ＃Ｒ１Ｒ１Ｒ１Ｒ２Ｒ４Ｒ８Ｒ１６Ｒ３２Ｃ＃Ｒ１Ｒ１Ｒ１Ｒ２Ｒ４Ｒ８Ｒ１６Ｒ３２Ｃ＃Ｒ１Ｒ１Ｒ１Ｒ２Ｒ４Ｒ８Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃
ＤＡＴＡ”Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６
ＤＡＴＡ”Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｃ＃Ｒ１６Ｒ３２Ｒ１］
ＤＡＴＡ　０

CHR

CHR:PTXCHR
1/2	2/2

QRコード

PRG:SCHOOLO2

1/7	2/7	3/7	4/7	5/7	6/7	7/7

カービィ★KIRBY : びょ (2014/05/08 (木) 19:34:48)
cmk、 : ページを編集しておきました (2014/05/08 (木) 19:56:33)
名無しさん : 400行打ち込めとか辛すぎ (2014/05/08 (木) 20:06:58)
ありふれた : QRコード公開お願いします。(野生の心入りで) (2014/05/08 (木) 21:24:57)
かずえもん : QR掲載完了かな・・・？ (2014/05/14 (水) 14:37:22)
95代目 : illegal function call(3,CHRSET)が出ます (2014/05/22 (木) 22:04:07)
名無しさん : 3行目のキャラクターデータが63文字しか無いためにエラーが出てますね。 (2014/05/23 (金) 00:48:45)
@0918nobita : 待ってました！！ (2014/05/23 (金) 15:41:29)
ありふれた : プログラムリスト直しました。 (2014/05/25 (日) 17:18:35)
ありふれた : 3行目の変数の前の、CHRの最後の「00000000」の前に「6」を追加。 (2014/05/25 (日) 17:24:50)
ありふれた : 39行目の「PMT$="$"」の、次に「:ROOT=0」を、追加。 (2014/05/25 (日) 17:36:08)
ありふれた : PUTIXS用アプリケーションが、使用可能です。(方法:アプリを、「APPEND」するだけ。) (2014/05/25 (日) 17:41:29)
名無しさん : 46行目から56行目までのCMDX$ の$をとり、BGU1からBGF (2014/05/26 (月) 19:38:42)
名無しさん : 172行目から181行目までのIF CD をIF CD$ に変更 (2014/05/27 (火) 12:14:29)
ありふれた : リスト直しました。 (2014/05/27 (火) 14:09:29)
ありふれた : QR更新しました。 (2014/06/01 (日) 06:50:13)
名無しさん : xtermってウインドウの中でいくつかコマンドを実行してウインドウの下までくると「Subscript out range」エラーが出ますね。SHELL変数の数値の管理が必要かと (2014/06/10 (火) 09:26:11)
名無しさん : SHELL=SHELL＋１を実行してINK$(SHELL)を参照する前にSHELLが9を越えていたらSHELLの値を0～9の範囲にしないとSubscript out rangeのエラーが出ます。SHELLの値をどうするのが正しい動作なのかまでは分かりませんので後は作者さんが考えて下さい。 (2014/07/12 (土) 12:06:33)

メニュー【mkII】

プチコン3号まとめWiki

ヘルプ

リンク

Petit Computer Wiki

プチコンリンク集

オンライン情報

現在同時に 1 人がこのサイトを見ています

ページの先頭に戻る

プチコンまとめWiki (初代/mkII)

投稿プログラム : SchoolOS 2.0

パンくずリスト

説明

使い方

アプリケーションの開発方法

プログラムリスト

CHR

QRコード

コメント

メニュー【mkII】

ヘルプ

リンク

最近の更新

2022/08/29

2022/07/29

2022/05/18

2022/05/01

2022/03/18

オンライン情報

プチコンまとめWiki (初代/mkII)

投稿プログラム : SchoolOS 2.0

パンくずリスト

説明

使い方

アプリケーションの開発方法

プログラムリスト

CHR

QRコード

コメント

メニュー 【mkII】

ヘルプ

リンク

最近の更新

2022/08/29

2022/07/29

2022/05/18

2022/05/01

2022/03/18

オンライン情報

メニュー【mkII】