プチコン：プログラムリスト


’┌──────────────────────────┐
’│ＤＯＴ－ＲＡＣＥＲ　ｖ１．０　　　　　　　　　　　　│
’└──────────────────────────┘
ＶＩＳＩＢＬＥ　１，１，０，０，０，１
ＣＬＳ：ＣＯＬＯＲ　０
ＧＰＡＧＥ　０：ＧＣＯＬＯＲ　０：ＧＣＬＳ
ＣＬＥＡＲ
ＤＩＭ　ＭＹＣＨＲ＄（４），ＶＸ（４），ＶＹ（４），ＣＬ（４）
ＤＡＴＡ　”Ь”，１，０，１４
ＤＡＴＡ　”Э”，０，１，８
ＤＡＴＡ　”Ю”，－１，０，７
ＤＡＴＡ　”Ы”，０，－１，３
ＦＯＲ　Ｉ＝０　ＴＯ　３
　ＲＥＡＤ　ＭＹＣＨＲ＄（Ｉ），ＶＸ（Ｉ），ＶＹ（Ｉ），ＣＬ（Ｉ）
　ＶＸ（Ｉ）＝ＳＧＮ（ＶＸ（Ｉ））
　ＶＹ（Ｉ）＝ＳＧＮ（ＶＹ（Ｉ））
　ＰＲＩＮＴ　ＭＹＣＨＲ＄（Ｉ），ＶＸ（Ｉ），ＶＹ（Ｉ）
ＮＥＸＴ
’－－－
ＤＩＭ　Ｅ（１６，１６）
＿Ｘ＝０：＿Ｙ＝１：＿Ｃ＝２：＿Ｄ＝３
＿Ｗ＝４：＿ＷＭ＝５

’－－－
ＦＬ＝０：ＲＱ＝ＦＬ：ＢＧＭＷ＝ＦＡＬＳＥ
ＧＯＳＵＢ　＠ＴＩＴＩＮＩＴ

’－－－
＠ＬＯＯＰ
　ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
　’
　ＧＯＳＵＢ　＠ＦＬＯＷ
　’
　ＶＳＹＮＣ（１）
ＧＯＴＯ　＠ＬＯＯＰ
ＥＮＤ

’───────────────────────────
＠ＦＬＯＷ　’カ゛メンセンイ
’───────────────────────────
ＩＦ　ＲＱ＝＝ＦＬ　ＧＯＴＯ　＠ＦＬＪＵＭＰ
ＩＦ　ＢＧＭＷ　ＡＮＤ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
ＢＧＭＷ＝ＦＡＬＳＷ
’－－－　アタラシイ　カ゛メンヘ
ＯＮ　ＲＱ　ＧＯＳＵＢ　＠ＴＩＴＩＮＩＴ，＠ＳＳＩＮＩＴ，＠ＧＡＭＥＩＮＩＴ，＠ＧＯＶＩＮＩＴ，＠ＳＣＩＮＩＴ
ＦＬ＝ＲＱ
’－－－　カ゛メンコ゛トノショリヘ
＠ＦＬＪＵＭＰ
ＯＮ　ＦＬ　ＧＯＴＯ　＠ＴＩＴ，＠ＳＳＴＡＲＴ，＠ＧＡＭＥ，＠ＧＯＶＥＲ，＠ＳＣＬＥＡＲ
ＲＥＴＵＲＮ

’───────────────────────────
’
’───────────────────────────
＠ＡＮＹＢＵＴ
Ｒ＝ＦＡＬＳＥ
ＩＦ　ＯＬＤＢ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　Ｂ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
Ｒ＝ＴＲＵＥ
ＲＥＴＵＲＮ

’－－－
＠ＳＥ
Ｐ＝（１２８／２３）＊Ｘ
Ｖ＝（１００／２３）＊Ｙ＋２７
ＢＥＥＰ　Ｂ，Ｆ，Ｖ，Ｐ
ＲＥＴＵＲＮ

’───────────────────────────
＠ＴＩＴ
’───────────────────────────
ＧＯＳＵＢ　＠ＴＩＴＰＵＴ
ＧＯＳＵＢ　＠ＡＮＹＢＵＴ
ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＢＧＭＳＴＯＰ
ＲＱ＝１
ＲＥＴＵＲＮ

’－－－
＠ＴＩＴＩＮＩＴ
ＣＬＳ：ＢＧＭＰＬＡＹ　１４
ＳＴＧ＝０
＠ＴＩＴＰＵＴ
Ｉ＝（Ｃ／４）　ＡＮＤ　７
ＩＦ　Ｉ＞３　ＴＨＥＮ　Ｉ＝７－Ｉ
ＣＯＬＯＲ　ＣＬ（Ｉ）：Ｃ＝Ｃ＋１
Ｘ＝６：Ｙ＝８
ＬＯＣＡＴＥ　Ｘ，Ｙ＋０：ＰＲＩＮＴ”┣┫┳┏┗╋┏　┻┏┓┗┫┳┏━┣┏┻┏┓”
ＬＯＣＡＴＥ　Ｘ，Ｙ＋１：ＰＲＩＮＴ”┛┻┻　┛┻　┏┻┠━┯┨┻　　┣┏┻┠━”
ＬＯＣＡＴＥ　Ｘ，Ｙ＋２：ＰＲＩＮＴ”┯┗┃┠━┻　　┻┃┓┛┻┃┠┓┯┠┻┃┓”
ＣＯＬＯＲ　９：Ｘ＝８：Ｙ＝Ｙ＋７
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＯＮ！”
ＣＯＬＯＲ　２：Ｘ＝４：Ｙ＝Ｙ＋５
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”（Ｃ）２０１１　ＳｍｉｌｅＢｏｏｍ　Ｃｏ．Ｌｔｄ．”
ＲＥＴＵＲＮ

’───────────────────────────
＠ＳＳＴＡＲＴ
’───────────────────────────
Ｗ＝Ｗ－１：ＩＦ　Ｗ＜０　ＧＯＴＯ　＠＿ＳＩＥＮＤ
ＧＯＳＵＢ　＠ＡＮＹＢＵＴ
ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
＠＿ＳＩＥＮＤ
ＲＱ＝２
ＲＥＴＵＲＮ
’－－－
＠ＳＳＩＮＩＴ
ＣＬＳ：ＢＧＭＳＴＯＰ
Ｘ＝１３：Ｙ＝１１：Ｗ＝６０＊１
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”Ｒｅａｄｙ？”
ＲＥＴＵＲＮ

’───────────────────────────
＠ＳＣＬＥＡＲ
’───────────────────────────
ＧＯＳＵＢ　＠ＡＮＹＢＵＴ
ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＲＱ＝３
ＲＥＴＵＲＮ
’
＠ＳＣＩＮＩＴ
ＣＬＳ：ＢＧＭＰＬＡＹ　９
Ｘ＝１３：Ｙ＝１１：Ｗ＝６０＊１
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ＣＬＥＡＲ！”
ＲＥＴＵＲＮ

’───────────────────────────
＠ＧＯＶＥＲ
’───────────────────────────
ＧＬＩＮＥ　ＭＸ＊８，ＭＹ＊８，ＲＮＤ（２５６），ＲＮＤ（２５６），ＲＮＤ（２５６）
ＧＣＩＲＣＬＥ　ＭＸ＊８，ＭＹ＊８，ＲＮＤ（１００）＋２，ＲＮＤ（２５６）
ＩＦ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
ＧＯＳＵＢ　＠ＡＮＹＢＵＴ
ＩＦ　Ｒ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＧＣＬＳ
ＲＱ＝０
ＲＥＴＵＲＮ
’－－－
＠ＧＯＶＩＮＩＴ
ＣＬＳ：ＢＧＭＰＬＡＹ　６：ＢＧＭＷ＝ＴＲＵＥ
Ｘ＝１１：Ｙ＝１１
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ＧＡＭＥ　ＯＶＥＲ”
ＲＥＴＵＲＮ

’───────────────────────────
＠ＧＡＭＥ
’───────────────────────────
ＧＯＳＵＢ　＠ＭＹＣＡＲ
ＧＯＳＵＢ　＠ＥＮＥＭＹ
ＧＯＳＵＢ　＠ＰＵＴＳＣＯ
ＩＦ　ＤＯＴ＝＝０　ＧＯＴＯ　＠ＭＹＣＬＲ
ＲＥＴＵＲＮ

’－－－
＠ＭＹＣＡＲ
ＭＷ＝ＭＷ＋１
ＩＦ　ＭＷ＜ＷＭＡＸ　ＴＨＥＮ　ＲＥＴＵＲＮ
ＭＷ＝０
ＬＯＣＡＴＥ　ＭＸ，ＭＹ：ＰＲＩＮＴ”　”
＠＿ＭＹＲＥＴＲＹ
Ｘ＝ＭＸ＋ＶＸ（ＭＤ）：Ｙ＝ＭＹ＋ＶＹ（ＭＤ）：Ｄ＝ＭＤ
ＩＦ　ＭＳ　ＴＨＥＮ　ＭＳ＝ＦＡＬＳＥ：ＧＯＴＯ　＠＿ＭＹＳＶＥＣ
’－－－　ニュウリョクカクニン
ＧＯＳＵＢ　＠ＧＥＴＶＥＣ
’－－－
＠＿ＭＹＳＶＥＣ
Ｘ＝Ｘ＋ＫＸ：Ｙ＝Ｙ＋ＫＹ
ＧＯＳＵＢ　＠ＣＨＫＤＯＴ
ＩＦ　Ｃ＝＝ＡＳＣ（”Е”）　ＧＯＴＯ　＠ＤＥＡＤ
ＩＦ　Ｒ　ＧＯＴＯ　＠＿ＭＹＭＯＶＥ
’－－－　ホウコウチョウセイ
ＭＤ＝Ｄ
ＧＯＴＯ　＠＿ＭＹＲＥＴＲＹ
’－－－　イト゛ウ
＠＿ＭＹＭＯＶＥ
ＩＦ　Ｃ！＝ＡＳＣ（”・”）　ＧＯＴＯ　＠＿ＭＹＭＯＶ２
’－－－　ト゛ットケ゛ット
Ｂ＝６２：Ｆ＝－４０００：ＧＯＳＵＢ　＠ＳＥ
ＤＯＴ＝ＤＯＴ－１
ＳＣＯ＝ＳＣＯ＋１０
ＧＯＳＵＢ　＠ＳＰＤＵＰ
’－－－
＠＿ＭＹＭＯＶ２
ＭＸ＝Ｘ：ＭＹ＝Ｙ
ＧＯＳＵＢ　＠ＰＵＴＭＣＡＲ
ＲＥＴＵＲＮ

’－－－
＠ＭＹＣＬＲ
ＢＥＥＰ　３２
ＳＴＧ＝ＳＴＧ＋１
ＩＦ　ＳＴＧ＝＝４　ＴＨＥＮ　ＲＱ＝４：ＲＥＴＵＲＮ
’－－－
ＢＧＭＰＬＡＹ　４
ＢＧＭＷ＝ＴＲＵＥ
ＲＱ＝１
ＲＥＴＵＲＮ

’－－－
＠ＧＥＴＶＥＣ
ＫＸ＝０：ＫＹ＝０：
ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＫＹ＝－１：Ｏ＝３
ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＫＹ＝１：Ｏ＝１
ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＫＸ＝－１：Ｏ＝２
ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＫＸ＝１：Ｏ＝０
’－－－
ＩＦ　Ｄ＝＝Ｏ　ＧＯＴＯ　＠ＧＶＯＦＦ
Ｏ＝Ｏ＋２：Ｏ＝Ｏ　ＡＮＤ　３
ＩＦ　Ｄ＝＝Ｏ　ＧＯＴＯ　＠ＧＶＯＦＦ
’－－－
ＯＸ＝Ｘ＋ＫＸ：ＯＹ＝Ｙ＋ＫＹ
Ｃ＝ＣＨＫＣＨＲ（ＯＸ，ＯＹ）
ＭＳ＝ＴＲＵＥ
ＩＦ　Ｃ＝＝ＡＳＣ（”・”）　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　Ｃ＝＝ＡＳＣ（”　”）　ＴＨＥＮ　ＲＥＴＵＲＮ
＠ＧＶＯＦＦ
ＫＸ＝０：ＫＹ＝０：ＭＳ＝ＦＡＬＳＥ
ＲＥＴＵＲＮ

’－－－
＠ＳＰＤＵＰ
ＷＭＡＸ＝ＷＭＡＸ－０．０５
ＩＦ　ＷＭＡＸ＜０．０１　ＴＨＥＮ　ＷＭＡＸ＝０．０１
ＲＥＴＵＲＮ

’－－－
＠ＤＥＡＤ
ＢＥＥＰ　５５，－２０００
ＲＱ＝３
ＲＥＴＵＲＮ

’－－－
＠ＥＮＥＭＹ
ＩＦ　ＥＣＮＴ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＮＴ－１
　ＷＭ＝Ｅ（Ｉ，＿ＷＭ）
　Ｗ＝Ｅ（Ｉ，＿Ｗ）：Ｗ＝Ｗ＋１
　ＩＦ　Ｗ＜ＷＭ　ＧＯＴＯ　＠＿ＥＳＫＩＰ
　Ｗ＝０
＠＿ＥＲＥＴＲＹ
　Ｘ＝Ｅ（Ｉ，＿Ｘ）：Ｙ＝Ｅ（Ｉ，＿Ｙ）：Ｄ＝Ｅ（Ｉ，＿Ｄ）
　ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　ＣＨＲ＄（Ｅ（Ｉ，＿Ｃ））
　Ｘ＝Ｘ＋ＶＸ（Ｄ）：Ｙ＝Ｙ＋ＶＹ（Ｄ）
　ＧＯＳＵＢ　＠ＣＨＫＤＯＴ
　ＩＦ　Ｒ　ＧＯＴＯ　＠＿ＥＭＯＶＥ
　Ｅ（Ｉ，＿Ｄ）＝Ｄ
　ＧＯＴＯ　＠＿ＥＲＥＴＲＹ
＠＿ＥＭＯＶＥ
　Ｅ（Ｉ，＿Ｘ）＝Ｘ：Ｅ（Ｉ，＿Ｙ）＝Ｙ
　Ｅ（Ｉ，＿Ｃ）＝ＣＨＫＣＨＲ（Ｘ，Ｙ）
　ＧＯＳＵＢ　＠ＰＵＴＥＮＥ
＠＿ＥＳＫＩＰ
　Ｅ（Ｉ，＿Ｗ）＝Ｗ
ＮＥＸＴ
ＲＥＴＵＲＮ

’－－－
＠ＣＨＫＤＯＴ
Ｃ＝ＣＨＫＣＨＲ（Ｘ，Ｙ）：Ｒ＝ＴＲＵＥ
ＩＦ　Ｃ＝＝ＡＳＣ（”・”）　ＴＨＥＮ　ＲＥＴＵＲＮ
ＩＦ　Ｃ＝＝ＡＳＣ（”　”）　ＴＨＥＮ　ＲＥＴＵＲＮ
Ｄ＝Ｄ－１：Ｄ＝Ｄ　ＡＮＤ　３
Ｒ＝ＦＡＬＳＥ
ＲＥＴＵＲＮ

’－－－
＠ＰＵＴＳＣＯ
Ｘ＝２５：Ｙ＝２
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”　　　　　”
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　ＳＣＯ
Ｙ＝Ｙ＋３
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”　　　　　”
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　ＷＴＯＰ－ＷＭＡＸ
Ｙ＝Ｙ＋３
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”　　　　　”
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　ＤＯＴ
ＲＥＴＵＲＮ

’－－－
＠ＧＡＭＥＩＮＩＴ
ＣＬＳ
ＢＧＭＰＬＡＹ　１３
’－－－
ＣＯＬＯＲ　７
Ｘ＝２４：Ｙ＝１
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ＳＣＯＲＥ”；
Ｙ＝Ｙ＋３
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ＳＰＥＥＤ”；
Ｙ＝Ｙ＋３
ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ”ＲＥＳＴ”；
ＬＯＣＡＴＥ　０，２３：ＰＲＩＮＴ”ＳＴＡＧＥ：”；
ＰＲＩＮＴ　ＳＴＧ＋１；
ＣＯＬＯＲ　０

’－－－
ＭＷ＝０：ＷＴＯＰ＝８：ＷＭＡＸ＝ＷＴＯＰ
ＭＳ＝ＦＡＬＳＥ
ＳＣＯ＝０

’－－－
＠ＳＴＡＧＥ１
’－－－
ＤＡＴＡ”┌─────────────────────┐”
ＤＡＴＡ”│・・・・・・・・・・・・・・・・・・・・・│”
ＤＡＴＡ”│・┌───────　　　───────┐・│”
ＤＡＴＡ”│・│・・・・・・・・・・・・・・・・・│・│”
ＤＡＴＡ”│・│・┌─────　　　─────┐・│・│”
ＤＡＴＡ”│・│・│・・・・・・・・・・・・・│・│・│”
ＤＡＴＡ”│・│・│・┌───　　　───┐・│・│・│”
ＤＡＴＡ”│・│・│・│・・・・・・・・・│・│・│・│”
ＤＡＴＡ”│・│・│・│・┌─　　　─┐・│・│・│・│”
ＤＡＴＡ”│・│・│・│・│・・・・・│・│・│・│・│”
ＤＡＴＡ”│・　・　・　・　・┌─┐・　・　・　・　・│”
ＤＡＴＡ”│・　・　・　・　・│Ч│・　・　・　・　・│”
ＤＡＴＡ”│・　・　・　・　・└─┘・　・　・　・　・│”
ＤＡＴＡ”│・│・│・│・│・・・・・│・│・│・│・│”
ＤＡＴＡ”│・│・│・│・└─　　　─┘・│・│・│・│”
ＤＡＴＡ”│・│・│・│・・・・・・・・・│・│・│・│”
ＤＡＴＡ”│・│・│・└───　　　───┘・│・│・│”
ＤＡＴＡ”│・│・│・・・・・・・・・・・・・│・│・│”
ＤＡＴＡ”│・│・└─────　　　─────┘・│・│”
ＤＡＴＡ”│・│・・・・・・・・・・・・・・・・・│・│”
ＤＡＴＡ”│・└───────　　　───────┘・│”
ＤＡＴＡ”│・・・・・・・・・・　・・・・・・・・・・│”
ＤＡＴＡ”└─────────────────────┘”
ＤＡＴＡ　１１，２１，０
ＤＡＴＡ　３
ＤＡＴＡ　１１，１，２
ＤＡＴＡ　１１，５，２
ＤＡＴＡ　１１，７，２
’－－－
ＲＥＳＴＯＲＥ　＠ＳＴＡＧＥ１
ＦＯＲ　Ｉ＝０　ＴＯ　２２
　ＲＥＡＤ　Ｃ＄
　ＬＯＣＡＴＥ　０，Ｉ
　ＰＲＩＮＴ　Ｃ＄
ＮＥＸＴ
’－－－　ト゛ットヲカソ゛エル
ＤＯＴ＝０
ＦＯＲ　Ｙ＝０　ＴＯ　２２
　ＦＯＲ　Ｘ＝０　ＴＯ　２２
　　ＩＦ　ＣＨＫＣＨＲ（Ｘ，Ｙ）＝＝ＡＳＣ（”・”）　ＴＨＥＮ　ＤＯＴ＝ＤＯＴ＋１
　ＮＥＸＴ
ＮＥＸＴ
’－－－　シ゛フ゛ン
ＲＥＡＤ　ＭＸ，ＭＹ，ＭＤ
ＧＯＳＵＢ　＠ＰＵＴＭＣＡＲ
’－－－　テキノハッセイ
ＲＥＡＤ　ＥＣＮＴ
ＥＣＮＴ＝ＳＴＧ
ＩＦ　ＳＴＧ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
ＦＯＲ　Ｉ＝０　ＴＯ　ＥＣＮＴ－１
　ＲＥＡＤ　Ｘ，Ｙ，Ｄ
　Ｅ（Ｉ，＿Ｘ）＝Ｘ：Ｅ（Ｉ，＿Ｙ）＝Ｙ：Ｅ（Ｉ，＿Ｄ）＝Ｄ
　Ｅ（Ｉ，＿Ｃ）＝ＣＨＫＣＨＲ（Ｘ，Ｙ）
　Ｅ（Ｉ，＿ＷＭ）＝４＋ＲＮＤ（６０）
　ＧＯＳＵＢ　＠ＰＵＴＥＮＥ
ＮＥＸＴ
’－－－
ＲＥＴＵＲＮ

’－－－
＠ＰＵＴＭＣＡＲ
ＬＯＣＡＴＥ　ＭＸ，ＭＹ
ＰＲＩＮＴ　ＭＹＣＨＲ＄（ＭＤ）
ＲＥＴＵＲＮ
’－－－
＠ＰＵＴＥＮＥ
ＬＯＣＡＴＥ　Ｅ（Ｉ，＿Ｘ），Ｅ（Ｉ，＿Ｙ）
ＰＲＩＮＴ　”Е”
ＲＥＴＵＲＮ
動作ムービーを見る