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

パンくずリスト

• トップ
• Toukou
• エクスプローラー

Ittan EXPLORER

2012年6月24日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ツール QRコード mkII専用

概要 Summary

様々なファイルの整理をするプログラムです。
フォルダ分けができたり、見出しの名前を作れたりします。
その他、FILES命令からファイルを作成したり。名前や削除の手続きをプログラム上でできたりします。
キャラなどはプレビュー機能もあるので便利なのではないでしょうか。
質問、バグ報告、改善点などありましたらぜひコメントしてください。
特にバグ調査は万全でないのでご注意ください。見つけ次第直していきます。

更新履歴

只今ｖ3.2です（12/17更新）

次回更新予定：特になし。

6/30更新
バグ修正・SORT機能を追加したv1.1を投稿しました。
修正内容：PUTGRPの仕組みを修正,文字の綴り修正,アンダーバーができないところを修正

7/2更新
バグ修正をしました。 これまでのプログラムではGRPの書き込みにバグがありました。
下のプログラムを使うと必要な部分以外が消されて整理されるようになっています。

手順

1. 下にあるFEREPAIRを実行する。
2. ファイルを入力
3. 修正（時間がかかります。）の後に保存するファイルを入力
   

10/14更新
バグ修正をしました。(詳細はプログラム内に）
コピー・ペースト機能（挿入可能）、
フォルダへのショートカットを追加しました。
なんとなく起動音をwindows98っぽくしました。
ファイルエディター→エクスプローラーに変更。

11/22更新
日本語バージョンを追加しました。
バグを修正しました。
修正内容：フォルダ作成の時、無限ループするバグ,バージョン変数,SORT時のショートカットがファイルになるバグを修正

12/17更新
バグの修正、全文に英語での説明を追加、プチコンのファイルへの変更機能の追加、バージョン情報の追加、FILESから作成モードを追加
注意！v3.0以降で作成したGRPはこれまでのものでは使えません。

バグ情報

今のところありません。

基本操作

• 　X、Bボタンでセーブ、終了ができます。
• その他の作業は基本タッチで行います。以下説明

  タッチ項目	タッチ項目（日本語版）	内容
  フォルダ表示中
  Ｎａｍｅ	ナマエヘンコウ	今のフォルダの名前変更、ショートカットの名前変更
  Ｂａｃｋ	モト゛ル	一つ前のフォルダに戻る
  Ｎｅｗ	シンキ	ファイル、フォルダ、ショートカットの新規作成のメニューを出します。
  ｆｏｌｄｅｒ	フォルタ゛	今のフォルダに新しくフォルダを作ります。
  ｆｉｌｅ	ファイル	今のフォルダに新しくファイルを作ります。
  ｆｍ　ｆｉｌｅｓ	なし	今のフォルダに新しくファイルをFILES命令から作ります。
  ｓｈｏｒｔｃｕｔ	ショートカット	今のフォルダに新しくフォルダのショートカットを作ります。
  Ｄｅｌｅｔｅｆｏｌｄｅｒ	フォルタ゛ヲショウキョ	今のフォルダを削除します。
  Ｐａｓｔｅ	ヘ゜ースト	クリップボードに貼り付けているファイルを指定位置にコピーします。
  Ｓｏｒｔ	ナラヒ゛カエ	ファイルを文字列コードの昇順に並び替え
  ▲	▲	ページ送り
  ▼	▼	ページ送り
  ファイル名	ファイル名	そのファイルを選択
  ファイル表示中
  Ｄｅｌｅｔｅｆｉｌｅ	ーショウキョスルー	選択中のファイルを削除します。
  Ｃｈａｎｇｅ	ーヘンコウー	その段の項目を編集します。
  Ｅｘｅｃｕｔｅ	ーヨミコミ　ー	ファイル実行
  Ｃｏｐｙ	コヒ゜ー	クリップボードにファイルの情報を書き込みます（複数選択可能）
  ▲	▲	読み込みタイプのページ送り
  ▼	▼	読み込みタイプのページ送り

  わからないことがあったら聞いてください。

最初の操作

最初に読み込むグラフィックを聞かれます。 @Nで新しくファイルを作成できます。

また、プログラムに直接データ文で記述することもできます。

• その場合は書いてある注意事項を読んでから書いてください

投票

常識の範囲内で項目を増やしてもOKです。

選択肢	投票
すごい！	20
まあまあ	1
いまいち	0
操作しにくい	4
便利	3
参考になった	1
もう少し変えたほうがいいかも	3

スクリーンショット・動画

以下はv1.2の時のものです。ですのでかなり違うと思います。

QR コード

プチコンmkII 向けの QR コードです。 v3.1eまたはv2.2jです。ｖ2.1から前の方はぜひ読みなおしてください。
QRコード(通常版v3.1e)

+

QRコード(日本語版ｖ2.2j)

PRG:EXPLRJ 1/12 2/12 3/12 4/12 5/12 6/12 7/12 8/12 9/12 10/12 11/12 12/12

GRPを整理するプログラムです。V1.1より前の人はこれを実行することで処理が早くなります。（やらなくてもOK）
v3.1にも対応しています。

プログラムリスト

v3.1のプログラムリストです。

+

プログラムリスト

’Ｅｘｐｌｏｒｅｒ　ｖ３．１Ｅｎｇｌｉｓｈ ’（Ｃ）２０１２　Ｉｔｔａｎ　ｐｒｏｇｒａｍｓ ’　　　　　　Ｄｅｖｅｌｏｐｅｄ　ｂｙ　Ｉｔｔａｎ ’　　　　　　　Ｃｏｍｐｏｓｅｄ　ｂｙ　Ｆｒａｓａｔｉｅ ’ ’ハ゛ク゛＆カイセ゛ンテン　ナト゛ ’ホウコクシテイタタ゛クト　アリカ゛タイテ゛ス。 ’　Ｉ｀ｍ　ｇｌａｄ　ｗｈｅｎ　ｙｏｕ　ｒｅｐｏｒｔ　 ’ｂｕｇｓ　ｏｒ　ｉｍｐｒｏｖｅｍｅｎｔｓ ’，ｓｕｃｈ　ａｓ． ’ ’テ゛−タフ゛ン　ショウサイハ　ＬＩＳＴ　＠ＵＳＥＲ ’Ｆｏｒ　ｍｏｒｅ　ｉｎｆｏｍａｔｉｏｎ　ａｂｏｕｔ ’ｄａｔａ　：ＬＩＳＴ　＠ＵＳＥＲ ’ ’Ｈｉｓｔｏｒｙ ’６／１ ’カイハツ　チャクシュ ’６／１６ ’システム　ケ゛ンケイ　カンセイ ’６／２２ ’ヨミコミケイ　カンセイ ’６／２８ ’コ゛シ゛シュウセイ ’６／２９ ’Ｓｏｒｔ　キノウ　ツイカ ’７／１ ’ク゛ラフィックカキコミ　ノ　ハ゛ク゛　シュウセイ ’９／１３ ’ファイルヲケストキノ　ハ゛ク゛，フリ−ス゛ハ゛ク゛ ’シュウセイ ’９／２０ ’ＦＩＬＥ　ＥＤＩＴＯＲ　→　ＥＸＰＬＯＲＥＲ ’９／２４ ’Ｃｏｐｙ＆Ｐａｓｔｅ　ツイカ ’１０／１４ ’ショ−トカット　ツイカ ’１１／２２ ’ハ゛ク゛　シュウセイ ’１２／１０ ’ハ゛ク゛　シュウセイ ’ＦＩＬＥＳ　モ−ト゛　ツイカ ’１２／１６ ’セ゛ンフ゛ン　エイコ゛カ ’フ゜チコンノファイル　ヘノ　カンショウキノウ　ツイカ ’ｖｅｒｓｉｏｎ　ｉｎｆｏ　ツイカ ’−−− ＩＦ　ＮＦＳＦＬＧ　ＴＨＥＮ　＠ＮＦＳＲＴＮＢＲＫ ＧＰＡＧＥ　１，２，２：ＧＣＬＳ　０ ＧＰＡＧＥ　０，３，３：ＧＣＬＳ　０：ＡＣＬＳ ＧＰＲＩＯ　０ ＣＬＥＡＲ ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ ＤＩＭ　Ｆ＄（５００，４） ＤＩＭ　ＯＦ＄（１００） ＤＩＭ　ＯＸ（１００），ＯＹ（１００） ＤＩＭ　ＦＬＣＸ（５００），ＦＬＣＹ（５００） ＤＩＭ　ＳＴ＄（２００） ＤＩＭ　ＣＬＩＰＢＯＲＤ＄（３２） ＤＩＭ　ＧＲＰ（２４０，４） ＤＩＭ　ＰＵＴＦＬＩＥＳ＄（５） ＭＡＸＴ＝３２ ＦＤＶＥＲ＄＝”３．１Ｅ” ＤＩＭ　ＴＹＰＥ＄（ＭＡＸＴ） ＭＦＩＬＥ＄＝”ＦＩＬＥ” 　　　　　　　’↑↑ココニ　イツモツカウファイル 　　　　　　　’ヲ　カキ　нカХ　ヲオシテキト゛ウ 　　　　　　　’スレハ゛　スク゛　ヨミコム。 　　　　　　　’Ｔｈｉｓ　ｉｓ　ｓｈｏｒｔｃｕｔ　ｋｅｙ． ＯＦＬ＝０ ＯＦ＄（０）＝”Ｌｉｂｒａｒｙ” ＰＮＬＴＹＰＥ　”ＯＦＦ” ＬＣ＝０ ＲＥＳＴＯＲＥ　＠ＴＹＰＥＤＡＴＡ ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸＴ−１ ＲＥＡＤ　ＴＹＰＥ＄（Ｉ） ＮＥＸＴ ＣＬＳ ＧＯＳＵＢ　＠ＯＮ ＧＯＳＵＢ　＠ＬＯＡＤＧＲＰ ＣＨＫ＄＝”Ｌｉｂｒａｌｙ”：ＧＯＳＵＢ　＠ＢＵＧＣＨＫ ＣＨＫ＄＝”Ｌｉｂｒａｒｙ” ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＯＴ＝ＴＲＵＥ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＴＳＴ＝ＮＯＴ（ＯＴ）　ＡＮＤ　ＴＣＨＳＴ ＯＴ＝ＴＣＨＳＴ ＩＦ　ＴＳＴ　ＴＨＥＮ　　＠ＴＯＵＣＨ ＰＮＬＳＴＲ　２４，０，ＴＩＭＥ＄，１ ＶＳＹＮＣ　１ ＢＴ＝ＢＴＲＩＧ（） ＩＦ　ＢＴ　ＴＨＥＮ　＠ＢＴＮ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＢＴＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＩＦ　ＢＴ　ＡＮＤ　１２８　ＴＨＥＮ　＠ＶＥＲＩＮＦＯ ＩＦ　ＢＴ　ＡＮＤ　６４　ＴＨＥＮ　＠＿ＥＮＤ ＩＦ　ＢＴ　ＡＮＤ　３２　ＴＨＥＮ　ＧＯＳＵＢ　＠＿ＳＡＶＥ ’ＩＦ　ＢＴ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＥＳＴ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＴＯＵＣＨ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ ＴＸ＝ＦＬＯＯＲ（ＴＸ／８）：ＴＹ＝ＦＬＯＯＲ（ＴＹ／８） ＩＦ　ＴＹ＝＝２０　ＴＨＥＮ　＠ＴＯＵ０ ＩＦ　ＴＹ＝＝２１　ＴＨＥＮ　＠ＴＯＵ１ ＩＦ　ＴＹ＝＝０　ＡＮＤ　ＴＸ＞１７　ＡＮＤ　ＴＸ＜２２　ＴＨＥＮ　＠ＣＨＦＲＮ ＩＦ　ＴＹ＝＝２　ＡＮＤ　ＴＸ＞２６　ＡＮＤ　ＴＸ＜３２　ＴＨＥＮ　＠ＳＯＲＴ ＩＦ　ＴＹ＝＝２　ＡＮＤ　ＴＸ＞１９　ＡＮＤ　ＴＸ＜２５　ＴＨＥＮ　＠ＰＡＳＴＥ ＩＦ　ＰＡＧＥ＞０　ＡＮＤ　ＴＸ＝＝６　ＡＮＤ　ＴＹ＝＝２　ＧＯＴＯ＠ＢＥＦＯＲＥ ＴＩ＝ＣＡＮＣＥＬ ＴＩ２＝ＣＡＮＣＥＬ ＦＯＲ　Ｉ＝０　ＴＯ　７ ＩＦ　Ｆ＄（ＰＡＧＥ＊８＋Ｉ，０）＝＝”−”　ＴＨＥＮ　Ｉ＝８：ＧＯＴＯ＠ＴＣＨＮＴ ＩＦ　ＴＹ！＝Ｉ＊２＋４　ＴＨＥＮ　＠ＴＣＨＮＴ ＩＦ　ＴＸ＜２　ＴＨＥＮ　＠ＴＣＨＮＴ ＩＦ　Ｆ＄（Ｉ＋ＰＡＧＥ＊８，０）＝＝”２”　ＡＮＤ　ＴＸ＞２６　ＡＮＤ　ＴＸ＜３２　ＴＨＥＮ　ＴＩ２＝Ｉ＋ＰＡＧＥ＊８ ＩＦ　ＴＸ＞（２＋ＬＥＮ（Ｆ＄（Ｉ＋ＰＡＧＥ＊８，１）））　ＴＨＥＮ　＠ＴＣＨＮＴ ＴＩ＝Ｉ＋ＰＡＧＥ＊８ ＠ＴＣＨＮＴ ＮＥＸＴ ＩＦ　ＴＩ２！＝ＣＡＮＣＥＬ　ＴＨＥＮ　＠ＴＣＨＳＣＳ ＩＦ　ＴＩ＝＝ＣＡＮＣＥＬ　ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＩＦ　Ｆ＄（ＴＩ，０）＝＝”１”　ＴＨＥＮ　＠ＴＣＨＦＬ ＩＦ　Ｆ＄（ＴＩ，０）＝＝”２”　ＴＨＥＮ　＠ＴＣＨＳＣ ’−−− ＠ＴＣＨＦＤ ＢＥＥＰ　９ ＯＬＣＸ＝ＦＬＣＸ（ＴＩ） ＯＬＣＹ＝ＦＬＣＹ（ＴＩ） ＣＨＫ＄＝Ｆ＄（ＴＩ，１） ＯＦ＄（ＯＦＬ）＝ＦＦ＄ ＯＦＬ＝ＯＦＬ＋１ ＯＦ＄（ＯＦＬ）＝ＣＨＫ＄ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＴＣＨＳＣ ＴＣＨＳＣＦ＝ＴＲＵＥ ＧＯＴＯ＠ＴＣＨＦＤ ’−−− ＠ＴＣＨＳＣＳ ＢＥＥＰ　９ Ｉ＄＝”” ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＬＯＣＡＴＥ　０，１０ ？”ＮｅｗＳｈｏｒｔｃｕｔ　Ｎａｍｅ？（Ф→Ｄｅｌｅｔｅ）” ＰＮＬＴＹＰＥ　”ＫＹＡ” ＠ＴＳＳＬＰ Ｐ＄＝ＩＮＫＥＹ＄（） ＬＯＣＡＴＥ　０，１１：？Ｉ＄＋”　”； ＩＦ　ＢＴＲＩＧ（）　ＡＮＤ　６４　ＴＨＥＮ　＠ＴＳＳＥＣ２ ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　Ｉ＄＝ＬＥＦＴ＄（Ｉ＄，ＬＥＮ（Ｉ＄）−１＋（Ｉ＄＝＝””））：ＢＥＥＰ ＩＦ　Ｐ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　＠ＴＳＳＥＣ ＶＳＹＮＣ　１ ＩＦ　Ｐ＄＝＝””　ＴＨＥＮ　＠ＴＳＳＬＰ ＰＣＨＫ＄＝Ｐ＄ ＧＯＳＵＢ　＠ＰＲＧＣＨＫ２ ＩＦ　ＥＲ　ＴＨＥＮ　ＢＥＥＰ　２：Ｐ＄＝”” Ｉ＄＝Ｉ＄＋Ｐ＄ ＧＯＴＯ＠ＴＳＳＬＰ ＠ＴＳＳＥＣ ＩＦ　Ｉ＄＝＝”Ｌｉｂｒａｒｙ”　ＴＨＥＮ　Ｉ＄＝””：ＢＥＥＰ　２ ＩＦ　Ｉ＄＝＝ＯＦ＄（ＯＦＬ）　ＴＨＥＮ　Ｉ＄＝””：ＢＥＥＰ　２ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＬＯＣＡＴＥ　０，１０：？”　”＊１８ ＩＦ　Ｉ＄＝＝””　ＴＨＥＮ　＠ＴＳ２ＥＣ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．” ＦＸ＝（ＦＬＣＸ（ＴＩ２）＋１） ＦＹ＝ＦＬＣＹ（ＴＩ２）＋ＦＬＯＯＲ（ＦＸ／２５６） ＦＸ＝ＦＸ　ＡＮＤ　２５５ ＤＥＬＬ＝ＬＥＮ（Ｆ＄（ＴＩ２，１）） ＤＥＬＸ＝ＦＸ ＤＥＬＹ＝ＦＹ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＦＸ ＰＵＴＹ＝ＦＹ ＰＵＴ＄＝Ｉ＄ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＠ＴＳ２ＥＣ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’− ＠ＴＳＳＥＣ２ ＣＬＳ：ＬＯＣＡＴＥ　０，０ ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＣＯＬＯＲ　１３ ？”Ｄｅｌｅｔｅ　ｓｈｏｒｔｃｕｔ” ＣＯＬＯＲ　０ ？ ？”Й◇”；Ｆ＄（ＴＩ２，１）；”ヲ　フォルタ゛カラ ？”サクシ゛ョ　シマス。 ？ ？”Й◇”；Ｆ＄（ＴＩ２，１）；”　ｗｉｌｌ　ｒｅｍｏｖｅｄ” ？”ｆｒｏｍ　ｔｈｅ　ｆｏｌｄｅｒ” ＩＮＰＵＴ”（Ｙ／Ｎ）”；Ｉ＄ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＩＦ　Ｉ＄！＝”Ｙ”　ＴＨＥＮ　ＧＯＴＯ＠ＴＳＳＥＣ３ ＤＥＬＸ＝ＦＬＣＸ（ＴＩ２） ＤＥＬＹ＝ＦＬＣＹ（ＴＩ２） ＤＥＬＬ＝ＬＥＮ（Ｆ＄（ＴＩ２，１）） ＤＥＬＬ＝ＤＥＬＬ＋３ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＣＨＫ＄＝ＯＦ＄（ＯＦＬ） ＠ＴＳＳＥＣ３ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−− ＠ＴＣＨＦＬ ＣＬＳ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＢＥＥＰ　９ ＬＯＣＡＴＥ　０，０ ？ＣＨＲ＄（０）＊９６； ＰＮＬＳＴＲ　０，０，”・”＋Ｆ＄（ＴＩ，１）＋”．”＋Ｆ＄（ＴＩ，３），１ ＰＮＬＳＴＲ　１，２，”ＦｉｌｅＮａｍｅ：”＋Ｆ＄（ＴＩ，１），１ ＰＮＬＳＴＲ　２５，２，”Ｃｈａｎｇｅ”，１１ ＰＮＬＳＴＲ　１，４，”ＲｅａｄＮａｍｅ：”＋Ｆ＄（ＴＩ，２），１ ＰＮＬＳＴＲ　２５，４，”Ｃｈａｎｇｅ”，１１ ＰＮＬＳＴＲ　１，６，”ＦｉｌｅＴｙｐｅ：”＋Ｆ＄（ＴＩ，３），１ ＰＮＬＳＴＲ　２５，６，”Ｃｈａｎｇｅ”，１１ ＰＮＬＳＴＲ　１，８，”Ｅｘｅｃｕｔｅ”，１３ ＰＮＬＳＴＲ　１，２０，”Ｂａｃｋ”，１１ ＰＮＬＳＴＲ　８，２０，”ＤｅｌｅｔｅＦｉｌｅ”，１１ ＰＮＬＳＴＲ　２１，２０，”Ｃｏｐｙ”，１１ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＦＩＬＥＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＩＦ　ＧＯＦＬ　ＴＨＥＮ　ＧＯＦＬ＝０：ＧＯＴＯ＠ＴＣＨＦＬ ＴＳＴ＝ＮＯＴ（ＯＴ）　ＡＮＤ　ＴＣＨＳＴ ＯＴ＝ＴＣＨＳＴ ＰＮＬＳＴＲ　２４，０，ＴＩＭＥ＄，１ ＶＳＹＮＣ　１ ＩＦ　ＴＳＴ＝＝０　ＴＨＥＮ　　＠ＦＩＬＥＬＯＯＰ ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ ＴＸ＝ＦＬＯＯＲ（ＴＸ／８）：ＴＹ＝ＦＬＯＯＲ（ＴＹ／８） ＩＦ　ＴＹ＝＝２０　ＡＮＤ　ＴＸ＞０　ＡＮＤ　ＴＸ＜５　ＴＨＥＮ　ＧＯＴＯ＠ＦＩＬＥＥＣ ＩＦ　ＴＹ＝＝８　ＡＮＤ　ＴＸ＞０　ＡＮＤ　ＴＸ＜８　ＴＨＥＮ　ＧＯＴＯ＠ＥＸＥＣＦ ＩＦ　ＴＸ＞８　ＡＮＤ　ＴＸ＜１８　ＡＮＤ　ＴＹ＝＝２０　ＴＨＥＮ　ＧＯＴＯ＠ＤＥＬＦＩＬＥ ＩＦ　ＴＸ＞２０　ＡＮＤ　ＴＸ＜２５　ＡＮＤ　ＴＹ＝＝２０　ＴＨＥＮ　ＧＯＴＯ＠ＦＩＬＥＣＯＰＹ ＩＦ　ＴＸ＞３１　ＯＲ　ＴＸ＜２６　ＴＨＥＮ　ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ＩＦ　ＴＹ＝＝２　ＴＨＥＮ　＠ＣＨＮＡＭＥ ＩＦ　ＴＹ＝＝４　ＴＨＥＮ　＠ＣＨＲＥＡＤ ＩＦ　ＴＹ＝＝６　ＴＨＥＮ　＠ＣＨＴＹＰＥ ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ’−−− ＠ＤＥＬＦＩＬＥ ＣＬＳ：ＬＯＣＡＴＥ　０，０ ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＣＯＬＯＲ　１３ ？”Ｄｅｌｅｔｅ　ｆｉｌｅ” ＣＯＬＯＲ　０ ？ ？Ｆ＄（ＴＩ，１）；”ヲ　フォルタ゛カラ ？”サクシ゛ョ　シマス。 ？”フ゜チコンカラモ　サクシ゛ョシマスカ？ ？ ？Ｆ＄（ＴＩ，１）；”　ｗｉｌｌ　ｒｅｍｏｖｅｄ　 ？”ｆｒｏｍ　ｔｈｅ　ｆｏｌｏｄｅｒ． ？”Ｄｏ　ｙｏｕ　ｒｅｍｏｖｅ　ｉｔ　ｆｒｏｍ　 ？”Ｐｅｔｉｔ　Ｃｏｍｐｕｔｅｒ？” ？ ？”　ハイ　　　　　イイエ　　　　キャンセル ？”　　　　　（フォルタ゛ノミ）（ナニモシナイ） ？”　Ｙｅｓ　　　　Ｎｏ　　　　　Ｃａｎｃｅｌ ＤＥＦＩ＝０ ＠ＤＬＦＬＰ ＬＯＣＡＴＥ　ＤＥＦＩ＊７，１３：？”→” ＩＦ　ＢＴＲＩＧ（）　ＡＮＤ　８　ＴＨＥＮ　ＬＯＣＡＴＥ　ＤＥＦＩ＊７，１３：？”　”：ＤＥＦＩ＝ＤＥＦＩ＋１ ＩＦ　ＢＴＲＩＧ（）　ＡＮＤ　４　ＴＨＥＮ　ＬＯＣＡＴＥ　ＤＥＦＩ＊７，１３：？”　”：ＤＥＦＩ＝ＤＥＦＩ−１ ＩＦ　ＢＴＲＩＧ（）　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＴＯ＠ＤＬＦＥＣ ＤＥＦＩ＝ＤＥＦＩ＋（ＤＥＦＩ＜０）＊３−（ＤＥＦＩ＞２）＊３ ＶＳＹＮＣ　１ ＧＯＴＯ＠ＤＬＦＬＰ ＠ＤＬＦＥＣ ＢＥＥＰ　９ ＩＦ　ＤＥＦＩ＝＝２　ＴＨＥＮ　ＧＯＴＯ＠ＤＬＦＥＣ２ ＤＥＬＸ＝ＦＬＣＸ（ＴＩ） ＤＥＬＹ＝ＦＬＣＹ（ＴＩ） ＤＥＬＬ＝ＬＥＮ（Ｆ＄（ＴＩ，１）＋Ｆ＄（ＴＩ，２）＋Ｆ＄（ＴＩ，３）） ＤＥＬＬ＝ＤＥＬＬ＋４ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＩＦ　ＤＥＦＩ＝＝１　ＴＨＥＮ　ＧＯＴＯ＠ＤＬＦＥＣ２ ＰＣＨＫ＄＝Ｆ＄（ＴＩ，２） ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　ＥＲ！＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＤＦＬＥＲ ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＰＲＧ”　ＴＨＥＮ　ＤＦ＄＝”ＰＲＧ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＧＲＰ”　ＴＨＥＮ　ＤＦ＄＝”ＧＲＰ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＭＥＭ”　ＴＨＥＮ　ＤＦ＄＝”ＭＥＭ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＳＣＵ”　ＴＨＥＮ　ＤＦ＄＝”ＳＣＵ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＣＯＬ”　ＴＨＥＮ　ＤＦ＄＝”ＣＯＬ：” ＩＦ　ＤＦ＄＝＝””　ＴＨＥＮ　ＤＦ＄＝”ＣＨＲ：” ＤＦ＄＝ＤＦ＄＋Ｆ＄（ＴＩ，２） ＣＬＳ ？”ファイルサクシ゛ョ　” ＤＥＬＥＴＥ　ＤＦ＄ ＩＦ　ＲＥＳＵＬＴ＝＝０　ＴＨＥＮ　＠ＤＦＬＥＲ ＠ＤＬＦＥＣ２ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＠ＤＦＬＥＲ ＢＥＥＰ　２ ？”Ｅｒｒｏｒ！！” ？ ？”ソノ　ファイルハ　ソンサ゛イシマセン。 ？”Ｓｏｒｒｙ．　Ｉｔ　ｄｏｅｓ　ｎｏｔ　ｅｘｉｓｔ． ？” ＷＡＩＴ　６０ ＧＯＴＯ＠ＤＬＦＥＣ２ ’−−− ＠ＣＨＮＡＭＥ Ｉ＄＝”” ＢＥＥＰ　９ ＧＰＡＧＥ　０：ＧＣＬＳ　０：ＣＬＳ ＬＯＣＡＴＥ　０，０ ？”ＮｅｗＮａｍｅ？” ＰＮＬＴＹＰＥ　”ＫＹＡ” ＠ＣＨＮＬＰ ＧＯＦＬ＝ＴＲＵＥ Ｐ＄＝ＩＮＫＥＹ＄（） ＬＯＣＡＴＥ　０，１１：？Ｉ＄＋”　”； ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　Ｉ＄＝ＬＥＦＴ＄（Ｉ＄，ＬＥＮ（Ｉ＄）−１＋（Ｉ＄＝＝””））：ＢＥＥＰ ＩＦ　Ｐ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　＠ＣＨＮＥＣ ＶＳＹＮＣ　１ ＩＦ　Ｐ＄＝＝””　ＴＨＥＮ　＠ＣＨＮＬＰ ＰＣＨＫ＄＝Ｐ＄ ＧＯＳＵＢ　＠ＰＲＧＣＨＫ２ ＩＦ　ＥＲ　ＴＨＥＮ　ＢＥＥＰ　２：Ｐ＄＝”” Ｉ＄＝Ｉ＄＋Ｐ＄ ＧＯＴＯ＠ＣＨＮＬＰ ＠ＣＨＮＥＣ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＬＯＣＡＴＥ　０，０：？”　　　　　　　　　” ＩＦ　Ｉ＄＝＝””　ＴＨＥＮ　＠ＴＣＨＦＬ ＬＯＣＡＴＥ　０，１２：？”Ｐｌｅｓｅ　ｗａｉｔ．．．”； ＦＸ＝ＦＬＣＸ（ＴＩ）＋１　ＡＮＤ　２５５ ＦＹ＝ＦＬＣＹ（ＴＩ）＋（ＦＸ＝＝０） ＤＥＬＬ＝ＬＥＮ（Ｆ＄（ＴＩ，１）） ＤＥＬＸ＝ＦＸ ＤＥＬＹ＝ＦＹ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＦＸ ＰＵＴＹ＝ＦＹ ＰＵＴ＄＝Ｉ＄ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＰＡＧＥ＝ＮＰ ＢＥＥＰ　３ ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ’−−− ＠ＣＨＲＥＡＤ ＧＯＦＬ＝ＴＲＵＥ Ｉ＄＝”” ＢＥＥＰ　９ ＧＰＡＧＥ　０：ＧＣＬＳ　０：ＣＬＳ ？”ＮｅｗＲｅａｄＮａｍｅ？” ＰＮＬＴＹＰＥ　”ＫＹＡ” ＠ＣＨＲＬＰ Ｐ＄＝ＩＮＫＥＹ＄（） ＬＯＣＡＴＥ　０，１：？Ｉ＄＋”　”； ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　Ｉ＄＝ＬＥＦＴ＄（Ｉ＄，ＬＥＮ（Ｉ＄）−１＋（Ｉ＄＝＝””））：ＢＥＥＰ ＩＦ　Ｐ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　＠ＣＨＲＥＣ ＶＳＹＮＣ　１ ＰＣＨＫ＄＝Ｐ＄：ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　Ｐ＄＝＝””　ＴＨＥＮ　ＥＲ＝０ ＩＦ　ＬＥＮ（Ｉ＄）＞＝８　ＡＮＤ　Ｐ＄！＝””　ＴＨＥＮ　ＥＲ＝１ ＩＦ　ＥＲ　ＴＨＥＮ　Ｐ＄＝””：ＢＥＥＰ　２ ＩＦ　Ｐ＄＝＝””　ＴＨＥＮ　＠ＣＨＲＬＰ Ｉ＄＝Ｉ＄＋Ｐ＄ ＧＯＴＯ＠ＣＨＲＬＰ ＠ＣＨＲＥＣ ＣＬＳ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＩＦ　Ｉ＄＝＝””　ＴＨＥＮ　＠ＦＩＬＥＬＯＯＰ ？”フ゜チコン　テ゛ノ　ナマエモ　カエマスカ？” ？”Ｄｏ　ｙｏｕ　ａｌｓｏ　ｃｈａｎｇｅ　ｔｈｅ　ｎａｍｅ　 ？”ｉｎ　Ｐｅｔｉｔ　Ｃｏｍｐｕｔｅｒ？” ？”（Ｙ／Ｎ） ＩＮＰＵＴ　ＹＮ＄ ？ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； ＦＸ＝（ＦＬＣＸ（ＴＩ）＋ＬＥＮ（Ｆ＄（ＴＩ，１））＋２） ＦＹ＝ＦＬＣＹ（ＴＩ）＋ＦＬＯＯＲ（ＦＸ／２５６） ＦＸ＝ＦＸ　ＡＮＤ　２５５ ＤＥＬＬ＝ＬＥＮ（Ｆ＄（ＴＩ，２）） ＤＥＬＸ＝ＦＸ ＤＥＬＹ＝ＦＹ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＦＸ ＰＵＴＹ＝ＦＹ ＰＵＴ＄＝Ｉ＄ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＩＦ　ＹＮ＄！＝”Ｙ”　ＧＯＴＯ＠ＣＨＲＥＣ２ ＰＣＨＫ＄＝Ｆ＄（ＴＩ，２） ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　ＥＲ！＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＤＦＬＥＲ ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＰＲＧ”　ＴＨＥＮ　ＤＦ＄＝”ＰＲＧ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＧＲＰ”　ＴＨＥＮ　ＤＦ＄＝”ＧＲＰ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＭＥＭ”　ＴＨＥＮ　ＤＦ＄＝”ＭＥＭ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＳＣＵ”　ＴＨＥＮ　ＤＦ＄＝”ＳＣＵ：” ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３）＝＝”ＣＯＬ”　ＴＨＥＮ　ＤＦ＄＝”ＣＯＬ：” ＩＦ　ＤＦ＄＝＝””　ＴＨＥＮ　ＤＦ＄＝”ＣＨＲ：” ＤＦ＄＝ＤＦ＄＋Ｆ＄（ＴＩ，２） ＣＬＳ ？”ファイルメイヘンコウ” ＲＥＮＡＭＥ　ＤＦ＄，Ｉ＄ ＠ＣＨＲＥＣ２ ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＰＡＧＥ＝ＮＰ ＢＥＥＰ　３ ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ’−−− ＠ＣＨＴＹＰＥ ＴＰＡＧＥ＝０ ＰＮＬＳＴＲ　１３，９，”▲”，１１ ＰＮＬＳＴＲ　１３，１９，”▼”，１１ ＠ＣＨＴＬＰ０ ＦＯＲ　Ｉ＝０　ＴＯ　８ Ｐ＝ＴＰＡＧＥ＊９＋Ｉ ＩＦ　Ｐ＞＝３２　ＴＨＥＮ　Ｐ＄＝ＣＨＲ＄（０）＊５：ＧＯＴＯ＠ＣＨＴＮＴ Ｐ＄＝ＴＹＰＥ＄（Ｐ）＋ＣＨＲ＄（０）＊５ ＠ＣＨＴＮＴ Ｐ＄＝ＬＥＦＴ＄（Ｐ＄，５） ＰＮＬＳＴＲ　１１，Ｉ＋１０，Ｐ＄，１１ ＮＥＸＴ　Ｉ ＠ＣＨＴＬＰ ＴＳＴ＝ＮＯＴ（ＯＴ）　ＡＮＤ　ＴＣＨＳＴ ＯＴ＝ＴＣＨＳＴ ＰＮＬＳＴＲ　２４，０，ＴＩＭＥ＄，１ ＶＳＹＮＣ　１ ＩＦ　ＴＳＴ＝＝０　ＴＨＥＮ　　＠ＣＨＴＬＰ ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ ＴＸ＝ＦＬＯＯＲ（ＴＸ／８）：ＴＹ＝ＦＬＯＯＲ（ＴＹ／８） ＩＦ　ＴＸ＝＝１３　ＡＮＤ　ＴＹ＝＝９　ＴＨＥＮ　ＴＰＡＧＥ＝ＴＰＡＧＥ−１＋（ＴＰＡＧＥ＝＝０）：ＢＥＥＰ　９：ＧＯＴＯ＠ＣＨＴＬＰ０ ＩＦ　ＴＸ＝＝１３　ＡＮＤ　ＴＹ＝＝１９　ＴＨＥＮ　ＴＰＡＧＥ＝ＴＰＡＧＥ＋１−（ＴＰＡＧＥ＝＝３）：ＢＥＥＰ　９：ＧＯＴＯ＠ＣＨＴＬＰ０ ＩＦ　ＴＸ＜１１　ＯＲ　ＴＸ＞１５　ＴＨＥＮ　ＧＯＴＯ＠ＣＨＴＬＰ ＩＦ　ＴＹ＜１０　ＯＲ　ＴＹ＞１８　ＴＨＥＮ　ＧＯＴＯ＠ＣＨＴＬＰ ＩＦ　ＴＰＡＧＥ＝＝３　ＡＮＤ　ＴＹ＞１４　ＴＨＥＮ　ＧＯＴＯ＠ＣＨＴＬＰ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； Ｉ＄＝ＴＹＰＥ＄（（ＴＹ−１０）＋ＴＰＡＧＥ＊９） ＦＸ＝ＦＬＣＸ（ＴＩ） ＦＸ＝ＦＸ＋ＬＥＮ（Ｆ＄（ＴＩ，１）） ＦＸ＝ＦＸ＋ＬＥＮ（Ｆ＄（ＴＩ，２）） ＦＸ＝ＦＸ＋３ ＦＹ＝ＦＬＣＹ（ＴＩ）＋ＦＬＯＯＲ（ＦＸ／２５６） ＦＸ＝ＦＸ　ＡＮＤ　２５５ ＤＥＬＸ＝ＦＸ ＤＥＬＹ＝ＦＹ ＤＥＬＬ＝ＬＥＮ（Ｆ＄（ＴＩ，３）） ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＦＸ ＰＵＴＹ＝ＦＹ ＰＵＴ＄＝Ｉ＄ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＰＡＧＥ＝ＮＰ ＧＯＦＬ＝ＴＲＵＥ ＢＥＥＰ　３ ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＥＸＥＣＦ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＢＧＭＰＬＡＹ”Ｌ１６＠１４４Ｖ６０ＣＧ ＰＣＨＫ＄＝Ｆ＄（ＴＩ，２） ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　ＥＲ＝＝１　ＴＨＥＮ　＠ＥＸＥＣＥＲＲ Ａ＄＝”” ＦＡ＄＝ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），３） ＩＦ　ＦＡ＄＝＝”ＧＲＰ”　ＴＨＥＮ　Ａ＄＝”＠ＥＸＧＲＰ” ＩＦ　ＦＡ＄＝＝”ＭＥＭ”　ＴＨＥＮ　Ａ＄＝”＠ＥＸＭＥＭ” ＩＦ　ＦＡ＄＝＝”ＰＲＧ”　ＴＨＥＮ　Ａ＄＝”＠ＥＸＰＲＧ” ＩＦ　ＦＡ＄＝＝”ＣＯＬ”　ＴＨＥＮ　Ａ＄＝”＠ＥＸＣＯＬ” ＩＦ　ＦＡ＄＝＝”ＳＣＵ”　ＴＨＥＮ　Ａ＄＝”＠ＥＸＳＣＵ” ＩＦ　Ａ＄＝＝””　ＴＨＥＮ　Ａ＄＝”＠ＥＸＣＨＲ” ＧＯＳＵＢ　Ａ＄ ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ’−−− ＠ＥＸＳＣＵ ＲＥＡＤＦＩＬＥ＄＝Ｆ＄（ＴＩ，３）＋”：”＋Ｆ＄（ＴＩ，２） ＬＯＡＤ　ＲＥＡＤＦＩＬＥ＄，ＦＡＬＳＥ ＬＯＣＡＴＥ　０，０ ？”ヨミコミカ゛　カンリョウ　シマシタ。 ？”Ｃｏｍｐｌｅｔｅ　ｌｏａｄｉｎｇ” ＢＧＰＡＧＥ　０ ＢＧＯＦＳ　０，０，０ ＢＧＯＦＳ　１，０，０ ＲＥＴＵＲＮ ’−−− ＠ＥＸＣＯＬ ＬＯＣＡＴＥ　０，０ ＦＯＲ　Ｉ＝０ＴＯ　３？ＣＨＲ＄（０）＊２５６；：ＮＥＸＴ ＧＰＡＧＥ　０ ＲＥＡＤＦＩＬＥ＄＝”ＣＯＬ２：”＋Ｆ＄（ＴＩ，２） ＬＯＡＤ　ＲＥＡＤＦＩＬＥ＄，０ ＧＣＬＳ　０ ＦＯＲ　Ｉ＝０　ＴＯ　２５５ Ｘ＝ＦＬＯＯＲ（Ｉ％１６）＊８ Ｙ＝ＦＬＯＯＲ（Ｉ／１６）＊８ ＧＦＩＬＬ　Ｘ，Ｙ，Ｘ＋７，Ｙ＋７，Ｉ ＮＥＸＴ ＲＥＴＵＲＮ ’−−− ＠ＥＸＧＲＰ ＬＯＣＡＴＥ　０，０ ＦＯＲ　Ｉ＝０ＴＯ　３？ＣＨＲ＄（０）＊２５６；：ＮＥＸＴ ＧＰＡＧＥ　０ ＲＥＡＤＦＩＬＥ＄＝”ＧＲＰ０：”＋Ｆ＄（ＴＩ，２） ＬＯＡＤ　ＲＥＡＤＦＩＬＥ＄，０ ＩＦ　ＢＵＴＴＯＮ（）＝＝３２　ＴＨＥＮ　ＲＥＡＤＦＩＬＥ＄＝”ＣＯＬ２：”＋Ｆ＄（ＴＩ，２）：ＬＯＡＤ　ＲＥＡＤＦＩＬＥ＄，０ ＲＥＴＵＲＮ ’−−− ＠ＥＸＰＲＧ ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＣＬＳ ＣＯＬＯＲ　１３ ？”ＰＲＧヨミコミ ＣＯＬＯＲ　０ ？ ？”ＰＲＧ：”＋Ｆ＄（ＴＩ，２）”　ヲ　ヨミコミマス。” ？”イマノテ゛−タヲＧＲＰニホソ゛ンシマス。” ？ ？”ＰＲＧ：”＋Ｆ＄（ＴＩ，２）”　ｗｉｌｌ　ｌｏａｄｅｄ．” ？”Ｄａｔａ　ｗｉｌｌ　ｂｅ　ｓａｖｅｄ　ｔｏ　ＧＲＰ ？ Ｓ＄＝”ＧＲＰ２：”＋ＦＩＬＥ＄ ＳＡＶＥ　Ｓ＄ ＡＣＬＳ Ｌ＄＝”ＰＲＧ：”＋Ｆ＄（ＴＩ，２） ＥＸＥＣ　Ｌ＄ ＢＥＥＰ　２ ＣＬＳ ？”ｅｒｒｏｒ！” ？”コ゛シテイノファイルハ　ミツカリマセンテ゛シタ。 ？”Ｓｏｒｒｙ．　Ｉｔ　ｄｏｅｓ　ｎｏｔ　ｅｘｉｓｔ． ＷＡＩＴ　６０ ＧＯＦＬ＝ＴＲＵＥ ＲＥＴＵＲＮ ’−−− ＠ＥＸＣＨＲ ＬＯＣＡＴＥ　０，０ ＦＯＲ　Ｉ＝０ＴＯ　３？ＣＨＲ＄（０）＊２５６；：ＮＥＸＴ ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＲＥＡＤＦＩＬＥ＄＝Ｆ＄（ＴＩ，３）＋”：”＋Ｆ＄（ＴＩ，２） ＬＯＡＤ　ＲＥＡＤＦＩＬＥ＄，ＦＡＬＳＥ ＩＦ　ＬＥＦＴ＄（Ｆ＄（ＴＩ，３），２）＝＝”ＳＰ”　ＴＨＥＮ　＠ＥＸＣＳＰ ＩＦ　ＲＩＧＨＴ＄（Ｆ＄（ＴＩ，３），１）＝＝”Ｕ”　ＴＨＥＮ　ＢＧＰＡＧＥ　０ ＩＦ　ＲＩＧＨＴ＄（Ｆ＄（ＴＩ，３），１）＝＝”Ｌ”　ＴＨＥＮ　ＢＧＰＡＧＥ　１ ＦＯＲ　Ｉ＝０　ＴＯ　２５５ Ｘ＝（Ｉ％３２）＊８ Ｙ＝ＦＬＯＯＲ（Ｉ／３２）＊８ ＧＰＵＴＣＨＲ　Ｘ，Ｙ，Ｆ＄（ＴＩ，３），Ｉ，０，１ ＮＥＸＴ ＲＥＴＵＲＮ ’− ＠ＥＸＣＳＰ ＦＯＲ　Ｉ＝０　ＴＯ　２５５ Ｘ＝（Ｉ％２）＊８＋ＦＬＯＯＲ（（Ｉ％６４）／４）＊１６ Ｙ＝ＦＬＯＯＲ（Ｉ％４／２）＊８＋ＦＬＯＯＲ（Ｉ／６４）＊１６ ＧＰＵＴＣＨＲ　Ｘ，Ｙ，Ｆ＄（ＴＩ，３），Ｉ，０，１ ＮＥＸＴ ＲＥＴＵＲＮ ’−−− ＠ＥＸＭＥＭ ＬＯＣＡＴＥ　０，０ ＦＯＲ　Ｉ＝０ＴＯ　３？ＣＨＲ＄（０）＊２５６；：ＮＥＸＴ ＬＯＣＡＴＥ　０，０ ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＲＥＡＤＦＩＬＥ＄＝”ＭＥＭ：”＋Ｆ＄（ＴＩ，２） ＬＯＡＤ　ＲＥＡＤＦＩＬＥ＄，ＦＡＬＳＥ ？ＭＥＭ＄ ＲＥＴＵＲＮ ’−−− ＠ＥＸＥＣＥＲＲ ＧＰＡＧＥ　０：ＧＣＬＳ　０ ＣＬＳ：ＢＥＥＰ　７ ？”Ｍｅｓｅｅａｇｅ” ？”ヨミコミメイカ゛　シヨウフカノウナモシ゛ ？”ヲフクンテ゛イル、 ？”モシクハ　ヨミコミメイカ゛ナイ　タメニ ？”ヨミコミヲ　チュウタ゛ンシマシタ。 ？”＝＝タイショ＝＝ ？”ヨミコミメイヲ　カエテ　タメシテネ。 ？ ？”ホ゛タンヲオスト　モト゛リマス。 ？ ？”Ｓｐｅｃｉｆｉｅｄ　ｎａｍｅ　ｉｓ　ｃａｎ｀ｔ　ｕｓｅ． ？”Ｐｌｅａｓｅ　ｃｈａｎｇｅ　ｔｈｅ　ｎａｍｅ． ？ ？”Ｐｌｅａｓｅ　ｐｒｅｓｓ　ａｎｙ　ｂｕｔｔｏｎ． ＦＯＲ　Ｉ＝０ＴＯ　１：Ｉ＝ＢＴＲＩＧ（）：ＮＥＸＴ ＧＯＴＯ＠ＴＣＨＦＬ ’−−− ＠ＦＩＬＥＣＯＰＹ ＣＬＩＰＢＯＲＤ＄（ＣＢ）＝”・”＋Ｆ＄（ＴＩ，１）＋”：”＋Ｆ＄（ＴＩ，２）＋”．”＋Ｆ＄（ＴＩ，３）＋”，” ＢＥＥＰ　７５ ＢＥＥＰ　７５，２３８９．３３３ ？ＣＬＩＰＢＯＲＤ＄（ＣＢ） ＣＢ＝ＣＢ＋１　ＡＮＤ　３１ ＧＯＴＯ＠ＦＩＬＥＬＯＯＰ ’−−− ＠ＦＩＬＥＥＣ ＢＧＰＡＧＥ　０ ＢＧＣＬＲ ＢＥＥＰ　９ ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＰＡＧＥ＝ＮＰ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＴＯＵ０ ＩＦ　ＴＸ＞０　ＡＮＤ　ＴＸ＜５　ＴＨＥＮ　ＧＯＴＯ＠ＢＡＣＫ ＩＦ　ＮＥＸＴＦ＝＝ＴＲＵＥ　ＡＮＤ　ＴＸ＝＝６　ＧＯＴＯ＠ＡＦＴＥＲ ＩＦ　ＴＸ＞７　ＡＮＤ　ＴＸ＜２０　ＴＨＥＮ　ＧＯＴＯ＠ＤＥＬＦＯＬＤＥＲ ＩＦ　ＴＸ＞２２　ＡＮＤ　ＴＸ＜２６　ＴＨＥＮ　ＧＯＴＯ＠ＮＥＷＭＡＤＥ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＴＯＵ１ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＮＥＷＭＡＤＥ ＢＥＥＰ　９ ＰＮＬＳＴＲ　２０，１４，”┌────────┐”，１１ ＰＮＬＳＴＲ　２０，１５，”│ｆｍ　ｆｉｌｅｓ│”，１１ ＰＮＬＳＴＲ　２０，１６，”│　ｆｏｌｄｅｒ　│”，１１ ＰＮＬＳＴＲ　２０，１７，”│　　ｆｉｌｅ　　│”，１１ ＰＮＬＳＴＲ　２０，１８，”│ｓｈｏｒｔｃｕｔ│”，１１ ＰＮＬＳＴＲ　２０，１９，”└───┬┬───┘”，１１ ＮＩ＝０ ＠ＮＷＭＬＰ ＰＮＬＳＴＲ　２４，０，ＴＩＭＥ＄，１ ＶＳＹＮＣ　１ ＴＸ＝ＦＬＯＯＲ（ＴＣＨＸ／８） ＴＹ＝ＦＬＯＯＲ（ＴＣＨＹ／８） ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠ＮＷＭＬＰ ＩＦ　ＴＸ＞３０　ＯＲ　ＴＸ＜２０　ＯＲ　ＴＹ＜１４　ＯＲ　ＴＹ＞２１　ＴＨＥＮ　ＮＩ＝０：ＧＯＴＯ＠ＮＷＭＥＣ ＩＦ　ＴＸ＞２１　ＡＮＤ　ＴＸ＜２９　ＡＮＤ　ＴＹ＝＝１５　ＴＨＥＮ　ＮＩ＝４：ＧＯＴＯ＠ＮＷＭＥＣ ＩＦ　ＴＸ＞２２　ＡＮＤ　ＴＸ＜２８　ＡＮＤ　ＴＹ＝＝１６　ＴＨＥＮ　ＮＩ＝１：ＧＯＴＯ＠ＮＷＭＥＣ ＩＦ　ＴＸ＞２３　ＡＮＤ　ＴＸ＜２７　ＡＮＤ　ＴＹ＝＝１７　ＴＨＥＮ　ＮＩ＝２：ＧＯＴＯ＠ＮＷＭＥＣ ＩＦ　ＴＸ＞２１　ＡＮＤ　ＴＸ＜２９　ＡＮＤ　ＴＹ＝＝１８　ＴＨＥＮ　ＮＩ＝３：ＧＯＴＯ＠ＮＷＭＥＣ ＧＯＴＯ＠ＮＷＭＬＰ ＠ＮＷＭＥＣ ＧＯＳＵＢ＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ＠ＰＲＩＮＴＦＬ ＯＮ　ＮＩ　ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ，＠ＮＥＷＦＤ，＠ＮＥＷＦＬ，＠ＮＥＷＳＣ，＠ＮＥＷＦＩＬＥＳ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＢＡＣＫ ＢＥＥＰ　９ ＩＦ　ＯＦＬ＝＝０　ＴＨＥＮ　ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＯＦＬ＝ＯＦＬ−１ ＣＨＫ＄＝ＯＦ＄（ＯＦＬ） ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＢＥＦＯＲＥ ＢＥＥＰ　９ ＰＡＧＥ＝ＰＡＧＥ−１ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＡＦＴＥＲ ＢＥＥＰ　９ ＰＡＧＥ＝ＰＡＧＥ＋１ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＮＥＷＦＬ ＢＥＥＰ　９ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； ？” ＰＵＴＸ＝ＧＲＰＸ：ＰＵＴＹ＝ＧＲＰＹ ＰＵＴ＄＝”・ＮＥＷＦＩＬＥ：ＦＩＬＥ．ＰＲＧ，” ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＰＡＧＥ＝ＮＰ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＮＥＷＦＤ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； ＧＰＡＧＥ　１，２，１ ＢＥＥＰ　９ ＮＰ＝ＰＡＧＥ Ｘ＝ＧＲＰＸ：Ｙ＝ＧＲＰＹ ＠ＮＦＤＬＰ Ｇ＝ＧＳＰＯＩＴ（Ｘ，Ｙ） ＩＦ　Ｇ＝＝０　ＴＨＥＮ　ＮＸ＝Ｘ：ＮＹ＝Ｙ：ＧＯＴＯ＠ＮＦＤＥＣ Ｙ＝Ｙ＋（Ｘ＝＝２５５） Ｘ＝Ｘ＋１　ＡＮＤ　２５５ ＧＯＴＯ＠ＮＦＤＬＰ ＠ＮＦＤＥＣ ＮＵＭ＝０ ＠ＮＦＤＬＰ２ ＣＨＫ＄＝”ＮＥＷＦＯＬＤＥＲ”＋ＳＴＲ＄（ＮＵＭ）＊（ＮＵＭ！＝０） ＣＨＫＤ＝１ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＩＦ　ＦＩＮＤ＝＝１　ＴＨＥＮ　ＮＵＭ＝ＮＵＭ＋１：ＧＯＴＯ＠ＮＦＤＬＰ２ ＣＨＫＤ＝０ ＣＨＫ＄＝ＯＦ＄（ＯＦＬ） ＰＵＴＸ＝ＮＸ：ＰＵＴＹ＝ＮＹ ＰＵＴ＄＝”＠ＮＥＷＦＯＬＤＥＲ”＋ＳＴＲ＄（ＮＵＭ）＊（ＮＵＭ！＝０）＋”｛｝” ’−−− ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＰＵＴＸ＝ＧＲＰＸ：ＰＵＴＹ＝ＧＲＰＹ ＰＵＴ＄＝”◇ＮＥＷＦＯＬＤＥＲ”＋ＳＴＲ＄（ＮＵＭ）＊（ＮＵＭ！＝０）＋”：，” ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＰＡＧＥ＝ＮＰ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＮＥＷＳＣ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； ＧＰＡＧＥ　１，２，１ ＢＥＥＰ　９ ＰＵＴＸ＝ＧＲＰＸ：ＰＵＴＹ＝ＧＲＰＹ ＰＵＴ＄＝”〜Ｓｈｏｒｔｃｕｔ：，” ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＰＡＧＥ＝ＮＰ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−− ＠ＮＥＷＦＩＬＥＳ ＣＬＳ ＮＰ＝ＰＡＧＥ ＬＯＣＡＴＥ　０，０ ＣＯＬＯＲ　１３ ？”ＦＩＬＥＳヨリ　ファイル　サクセイ” ？”Ｍａｋｅ　ｎｅｗ　ｆｉｌｅ　ｆｒｏｍ　［ＦＩＬＥＳ］” ＣＯＬＯＲ　０ ？”コノフォルタ゛ニ　ＦＩＬＥＳカラノ　ナイヨウヲ　コヒ゜−シマス。 ？” ？”ＳＴＥＰ１：カクチョウシヲ　エランテ゛クタ゛サイ ？”　　　　　　ｓｅｌｅｃｔ　ｅｘｔｅｎｓｉｏｎ． ？”　↑ ？”　　　　А ？”　↓ Ｌ＝０：ＡＲＧ＄＝”” ＠ＮＦＳＬＰ０ ＬＯＣＡＴＥ　０，８ Ｌ＝Ｌ＋（（ＢＴＲＩＧ（）ＡＮＤ　２）＝＝２） Ｌ＝Ｌ−（（ＢＴＲＩＧ（）ＡＮＤ　１）＝＝１） ＩＦ　Ｌ＜０　ＴＨＥＮ　Ｌ＝６ ＩＦ　Ｌ＞６　ＴＨＥＮ　Ｌ＝０ ＩＦ　Ｌ＝＝０　ＴＨＥＮ　？”ＡＬＬ”：ＡＲＧ＄＝”” ＩＦ　Ｌ＝＝１　ＴＨＥＮ　？”ＰＲＧ”：ＡＲＧ＄＝ＣＨＲ＄（３４）＋”ＰＲＧ”＋ＣＨＲ＄（３４） ＩＦ　Ｌ＝＝２　ＴＨＥＮ　？”ＣＨＲ”：ＡＲＧ＄＝ＣＨＲ＄（３４）＋”ＣＨＲ”＋ＣＨＲ＄（３４） ＩＦ　Ｌ＝＝３　ＴＨＥＮ　？”ＧＲＰ”：ＡＲＧ＄＝ＣＨＲ＄（３４）＋”ＧＲＰ”＋ＣＨＲ＄（３４） ＩＦ　Ｌ＝＝４　ＴＨＥＮ　？”ＳＣＲ”：ＡＲＧ＄＝ＣＨＲ＄（３４）＋”ＳＣＲ”＋ＣＨＲ＄（３４） ＩＦ　Ｌ＝＝５　ＴＨＥＮ　？”ＭＥＭ”：ＡＲＧ＄＝ＣＨＲ＄（３４）＋”ＭＥＭ”＋ＣＨＲ＄（３４） ＩＦ　Ｌ＝＝６　ＴＨＥＮ　？”ＣＯＬ”：ＡＲＧ＄＝ＣＨＲ＄（３４）＋”ＣＯＬ”＋ＣＨＲ＄（３４） ＶＳＹＮＣ　１ ＩＦ　ＢＴＲＩＧ（）！＝１６　ＧＯＴＯ＠ＮＦＳＬＰ０ ＶＳＹＮＣ　２ Ｌ＝０ ＠ＮＦＳＬＰ ＣＬＳ ？ ？”ＳＴＥＰ２：ツキ゛ノ　サキ゛ョウ ？”　　　　　　Ｎｅｘｔ　ｗｏｒｋ． ？ ？”　１．Ａ　テ゛　ＰＲＧヲ　イッタン　テイシ。　Аｘ１” ？”　２．ＥＮＴＥＲ　ヲ　２カイ。　　　　　　　　Аｘ２” ？”　３．ＥＮＴＥＲ　ヲ　”Ｌ”カイ　　　　　　　Аｘ”；Ｌ ？”　４．ＳＥＬＥＣＴホ゛タンヲ　オス　　　　　　ＳＥＬＥＣＴ” ？”　５．ＳＴＡＲＴホ゛タンヲ　オス　　　　　　　ＳＴＡＲＴ” ＦＯＲ　Ｉ＝０　ＴＯ　１　Ｉ＝ＢＴＲＩＧ（）　ＡＮＤ　１６ ＮＥＸＴ ＮＦＳＦＬＧ＝ＴＲＵＥ ＣＬＳ ＬＯＣＡＴＥ　０，２ ？”ＦＩＬＥＳ”＋ＡＲＧ＄ ＬＯＣＡＴＥ　０，０ ＥＮＤ ＠ＮＦＳＲＴＮＢＲＫ ＮＦＳＦＬＧ＝ＦＡＬＳＥ：ＮＦＳＥＮＤ＝ＦＡＬＳＥ ＦＬ＄＝””： ＰＵＴＦＩＬＥＳ＄（０）＝””：ＰＵＴＦＩＬＥＳ＄（１）＝”” ＰＵＴＦＩＬＥＳ＄（２）＝”” ＦＯＲ　Ｙ＝０　ＴＯ　２２ ＦＬ＄＝”” 　ＦＯＲ　Ｘ＝０　ＴＯ　３１ 　Ｇ＄＝ＣＨＲ＄（ＣＨＫＣＨＲ（Ｘ，Ｙ）） 　ＩＦ　Ｇ＄＝＝””　ＴＨＥＮ　Ｘ＝３１ 　ＩＦ　Ｇ＄＝＝ＣＨＲ＄（０）　ＴＨＥＮ　Ｇ＄＝””：Ｘ＝３１ 　ＩＦ　Ｇ＄＝＝”　”　ＴＨＥＮ　Ｇ＄＝”” 　ＩＦ　Ｘ＝＝０　ＡＮＤ　Ｇ＄＝＝”−”　ＴＨＥＮ　Ｇ＄＝””：ＰＵＴＦＩＬＥＳ＄（０）＝””：ＰＵＴＦＩＬＥＳ＄（１）＝””：ＰＵＴＦＩＬＥＳ＄（２）＝””：Ｘ＝３１：ＮＦＳＥＮＤ＝ＴＲＵＥ 　ＦＬ＄＝ＦＬ＄＋Ｇ＄ 　ＮＥＸＴ ＩＦ　ＦＬ＄！＝””　ＴＨＥＮ　ＧＯＳＵＢ　＠ＮＦＳＰＵＴ ＮＥＸＴ ＦＯＲ　ＮＦＳ＝０　ＴＯ　２ ＰＵＴ＄＝ＰＵＴＦＩＬＥＳ＄（ＮＦＳ） ＰＵＴＸ＝ＧＲＰＸ：ＰＵＴＹ＝ＧＲＰＹ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＲＰＹ＝ＧＲＰＹ＋ＦＬＯＯＲ（（ＧＲＰＸ＋ＬＥＮ（ＰＵＴＦＩＬＥＳ＄（ＮＦＳ）））／２５６） ＧＲＰＸ＝ＧＲＰＸ＋ＬＥＮ（ＰＵＴＦＩＬＥＳ＄（ＮＦＳ））　ＡＮＤ　２５５ ＮＥＸＴ Ｌ＝Ｌ＋１ ＩＦ　ＮＦＳＥＮＤ＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＮＦＳＥＣ ＧＯＴＯ　＠ＮＦＳＬＰ ＠ＮＦＳＥＣ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＰＡＧＥ＝ＮＰ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＰＮＬＴＹＰＥ”ＯＦＦ” ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＠ＮＦＳＰＵＴ ＩＦ　ＦＬ＄＝＝”ＯＫ”　ＴＨＥＮ　ＮＦＳＥＮＤ＝ＴＲＵＥ：ＲＥＴＵＲＮ ＩＦ　ＦＬ＄＝＝””　ＴＨＥＮ　ＮＦＳＥＮＤ＝ＴＲＵＥ：ＲＥＴＵＲＮ ＩＦ　ＬＥＦＴ＄（ＦＬ＄，５）＝＝”ＦＩＬＥＳ”　ＴＨＥＮ　ＮＦＳＥＮＤ＝ＴＲＵＥ：ＲＥＴＵＲＮ ＦＡ＄＝””：ＦＢ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＦＬ＄） Ｇ＄＝ＭＩＤ＄（ＦＬ＄，Ｉ，１） ＩＦ　Ｇ＄＝＝”：”　ＴＨＥＮ　Ｇ＄＝””：ＦＢ＄＝ＦＡ＄：ＦＡ＄＝”” ＦＡ＄＝ＦＡ＄＋Ｇ＄ ＮＥＸＴ ＩＦ　ＦＢ＄＝＝”ＣＨＲ”　ＴＨＥＮ　ＦＢ＄＝”ＢＧＵ０Ｕ” ＩＦ　ＦＢ＄＝＝”ＣＯＬ”　ＴＨＥＮ　ＦＢ＄＝”ＣＯＬ０Ｕ” ＩＦ　ＦＢ＄＝＝”ＳＣＲ”　ＴＨＥＮ　ＦＢ＄＝”ＳＣＵ０Ｕ” ＰＵＴＦＩＬＥＳ＄（Ｙ／８）＝ＰＵＴＦＩＬＥＳ＄（Ｙ／８）＋”・”＋ＦＡ＄＋”：”＋ＦＡ＄＋”．”＋ＦＢ＄＋”，” ＲＥＴＵＲＮ ’−−− ＠ＤＥＬＦＯＬＤＥＲ ＣＬＳ：ＬＯＣＡＴＥ　０，０ ＩＦ　ＴＣＨＳＣＦ＝＝ＴＲＵＥ　ＴＨＥＮ　＠ＤＦＲＥＲ２ ＩＦ　ＯＦＬ＝＝０　ＴＨＥＮ　＠ＤＦＲＥＲ ＣＯＬＯＲ　１３ ？”ファルタ゛−サクシ゛ョ” ？”Ｄｅｌｅｔｅ　ｆｏｌｄｅｒ ＣＯＬＯＲ　０ ？ ？”フォルタ゛−ヲサクシ゛ョスルト ？”ナカノファイルモ　スヘ゛テ　ケサレマス ？”イイテ゛スカ？ ？”Ｉｆ　ｙｏｕ　ｄｅｌｅｔｅ　ｔｈｉｓ　ｆｏｌｄｅｒ， ？”ｆｉｌｅｓ　ａｒｅ　ｄｅｌｅｔｅｄ　ｆｒｏｍ　 ？”ｔｈｅ　ｆｏｌｄｅｒ． ？”ＯＫ？ ？ ＩＮＰＵＴ”（Ｙ／Ｎ）”；Ｉ＄ ＩＦ　Ｉ＄！＝”Ｙ”　ＴＨＥＮ　＠ＤＦＲＥＣ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； Ｌ＝ＧＲＰＸ−ＧＲＰＳＸ＋（ＧＲＰＹ−ＧＲＰＳＹ）＊２５６＋１ ＤＥＬＸ＝ＧＲＰＳＸ ＤＥＬＹ＝ＧＲＰＳＹ ＤＥＬＬ＝Ｌ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＯＦＬ＝ＯＦＬ−１ ＣＨＫ＄＝ＯＦ＄（ＯＦＬ） ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ Ｉ０＝０ ＠ＤＦＲＬＰ ＩＦ　Ｆ＄（Ｉ０，１）＝＝ＯＦ＄（ＯＦＬ＋１）　ＴＨＥＮ　＠ＤＦＲＥＣ１ Ｉ０＝Ｉ０＋１ ＩＦ　Ｉ０＞＝ＭＡＸＦ　ＴＨＥＮ　ＢＥＥＰ ＧＯＴＯ＠ＤＦＲＬＰ ＠ＤＦＲＥＣ１ ＤＥＬＸ＝ＦＬＣＸ（Ｉ０） ＤＥＬＹ＝ＦＬＣＹ（Ｉ０） ＤＥＬＬ＝ＬＥＮ（Ｆ＄（Ｉ０，１））＋３＋ＬＥＮ（Ｆ＄（ＩＯ，２）） ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＠ＤＦＲＥＣ ＣＨＫ＄＝ＯＦ＄（ＯＦＬ） ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＠ＤＦＲＥＲ ？”＠Ｌｉｂｒａｒｙハ　サクシ゛ョテ゛キマセン。” ？”Ｙｏｕ　ｃａｎ｀ｔ　ｄｅｌｅｔｅ　［＠Ｌｉｂｒａｒｙ］” ＷＡＩＴ　６０ ＧＯＴＯ＠ＤＦＲＥＣ ＠ＤＦＲＥＲ２ ？”ショ−トカットカラハ　サクシ゛ョテ゛キマセン。 ？”Ｙｏｕ　ｃａｎ｀ｔ　ｄｅｌｅｔｅ　ｉｆ ？”ｙｏｕ　ｃａｍｅ　ｈｅｒｅ　ｂｙ ？”ｓｈｏｒｔｃｕｔ．” ＷＡＩＴ　６０ ＧＯＴＯ＠ＤＦＲＥＣ ’−−− ＠ＣＨＦＲＮ ＣＬＳ ＬＯＣＡＴＥ　０，０ ＩＦ　ＯＦＬ＝＝０　ＴＨＥＮ　＠ＣＨＦＥＲ ＰＮＬＴＹＰＥ　”ＫＹＡ” ？”ＮｅｗＦｏｌｄｅｒＮａｍｅ？” Ｉ＄＝”” ＠ＣＨＦＬＰ Ｐ＄＝ＩＮＫＥＹ＄（） ＬＯＣＡＴＥ　０，１１：？Ｉ＄＋”　”； ＩＦ　ＫＥＹＢＯＡＲＤ＝＝１５　ＴＨＥＮ　Ｉ＄＝ＬＥＦＴ＄（Ｉ＄，ＬＥＮ（Ｉ＄）−１＋（Ｉ＄＝＝””））：ＢＥＥＰ ＩＦ　Ｐ＄＝＝ＣＨＲ＄（１３）　ＴＨＥＮ　＠ＣＨＦＥＣ０ ＶＳＹＮＣ　１ ＩＦ　Ｐ＄＝＝””　ＴＨＥＮ　＠ＣＨＦＬＰ ＰＣＨＫ＄＝Ｐ＄ ＧＯＳＵＢ　＠ＰＲＧＣＨＫ２ ＩＦ　ＥＲ　ＴＨＥＮ　ＢＥＥＰ　２：Ｐ＄＝”” Ｉ＄＝Ｉ＄＋Ｐ＄ ＧＯＴＯ＠ＣＨＦＬＰ ’− ＠ＣＨＦＥＣ０ ？：？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； ＰＮＬＴＹＰＥ　”ＯＦＦ” ＩＦ　Ｉ＄＝＝””　ＴＨＥＮ　＠ＣＨＦＥＣ ＯＣＫ＄＝ＯＦ＄（ＯＦＬ）：ＣＨＫ＄＝Ｉ＄：ＣＨＫＤ＝１ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＩＦ　ＦＩＮＤ＝＝１　ＴＨＥＮ　Ｉ＄＝Ｉ＄＋”＋”：ＧＯＴＯ＠ＣＨＦＥＣ０ ＣＨＫＤ＝０：ＣＨＫ＄＝ＯＣＫ＄ ＦＸ＝ＯＬＣＸ ＦＹ＝ＯＬＣＹ ＤＥＬＸ＝ＦＸ ＤＥＬＹ＝ＦＹ ＤＥＬＬ＝ＬＥＮ（ＯＦ＄（ＯＦＬ））＋１ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＦＸ ＰＵＴＹ＝ＦＹ ＰＵＴ＄＝”◇”＋Ｉ＄ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＦＸ＝ＧＲＰＳＸ＋１　ＡＮＤ　２５５ ＦＹ＝ＧＲＰＳＹ＋（ＦＸ＝＝０） ＤＥＬＸ＝ＦＸ ＤＥＬＹ＝ＦＹ ＤＥＬＬ＝ＬＥＮ（ＯＦ＄（ＯＦＬ）） ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＦＸ ＰＵＴＹ＝ＦＹ ＰＵＴ＄＝Ｉ＄ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＯＦ＄（ＯＦＬ）＝Ｉ＄ ＣＨＫ＄＝Ｉ＄ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＠ＣＨＦＥＣ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＠ＣＨＦＥＲ ？”＠Ｌｉｂｒａｒｙノ　ナマエハ　” ？”カエルコトカ゛　テ゛キマセン。” ？ ？”Ｙｏｕ　ｃａｎ｀ｔ　ｃｈａｎｇｅ　ｎａｍｅ　ｏｆ ？”＠Ｌｉｂｒａｒｙ ？ ＷＡＩＴ　６０ ＧＯＴＯ＠ＣＨＦＥＣ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＳＯＲＴ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− Ｉ＝０ ＢＥＥＰ　９ ？”Ｐｌｅａｓｅ　ｗａｉｔ．．．”； ＠ＳＲＴＬＰ ＩＦ　Ｆ＄（Ｉ，０）＝＝”−”　ＴＨＥＮ　＠ＳＲＴＥＣ Ｓ＄＝”” ＩＦ　Ｆ＄（Ｉ，０）＝＝”０”　ＴＨＥＮ　ＳＡ＄＝”◇” ＩＦ　Ｆ＄（Ｉ，０）＝＝”１”　ＴＨＥＮ　ＳＡ＄＝”・” ＩＦ　Ｆ＄（Ｉ，０）＝＝”２”　ＴＨＥＮ　ＳＡ＄＝”〜” Ｓ＄＝ＳＡ＄＋Ｆ＄（Ｉ，１）＋”：” ＩＦ　ＳＡ＄＝＝”・”　ＴＨＥＮ　Ｓ＄＝Ｓ＄＋Ｆ＄（Ｉ，２）＋”．”＋Ｆ＄（Ｉ，３） Ｓ＄＝Ｓ＄＋”，” ＳＴ＄（Ｉ）＝Ｓ＄ Ｉ＝Ｉ＋１ ＧＯＴＯ＠ＳＲＴＬＰ ＠ＳＲＴＥＣ ＳＯＲＴ　０，Ｉ，ＳＴ＄ Ｉ２＝Ｉ ＤＥＬＸ＝ＦＬＣＸ（０） ＤＥＬＹ＝ＦＬＣＹ（０） ＤＥＬＬ＝（ＧＲＰＹ−ＤＥＬＹ）＊２５６ ＤＥＬＬ＝ＤＥＬＬ＋ＧＲＰＸ−ＤＥＬＸ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＦＯＲ　ＳＩ＝Ｉ２−１　ＴＯ　０　ＳＴＥＰ　−１ ＰＵＴ＄＝”” ＰＵＴＸ＝ＦＬＣＸ（０） ＰＵＴＹ＝ＦＬＣＹ（０） ＠ＳＲＴＬＰ２ ＰＵＴ＄＝ＳＴ＄（ＳＩ）＋ＰＵＴ＄ ＩＦ　ＳＩ＝＝０　ＴＨＥＮ　＠ＳＲＴＥＣ２ ＩＦ　ＬＥＮ（ＰＵＴ＄）＋ＬＥＮ（ＳＴ＄（ＳＩ−１））＞２５６　ＴＨＥＮ　＠ＳＲＴＥＣ２ ＳＩ＝ＳＩ−１ ＧＯＴＯ＠ＳＲＴＬＰ２ ＠ＳＲＴＥＣ２ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＮＥＸＴ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＰＡＳＴＥ ’−−−−−−−−−−−−−−−−−−−−−−−−−−− ＬＯＣＡＴＥ　０，０ ？”↑↓コヒ゜−ファイルセンタク：Ｃｈｏｏｓｅ　ｃｏｐｙ　ｆｉｌｅ” ？ ？”Аテ゛　ケッテイ：А→ＯＫ　　　　　　　　　　　　　　　　　　” ＠ＰＳＴＬＰ ＬＯＣＡＴＥ　０，１ ？ＬＥＦＴ＄（ＣＬＩＰＢＯＲＤ＄（ＢＣ）＋”　”＊３２，３２） ＶＳＹＮＣ　１ ＢＴ＝ＢＴＲＩＧ（） ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＢＣ＝ＢＣ−１＋（ＢＣ＝＝０）＊３２ ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＢＣ＝ＢＣ＋１−（ＢＣ＝＝３１）＊３２ ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　＠ＰＳＴＥＣ ＩＦ　ＢＴ　ＡＮＤ　２０２８　ＴＨＥＮ　ＮＰ＝ＰＡＧＥ：ＧＯＴＯ＠ＰＳＴＥＣ２ ＧＯＴＯ＠ＰＳＴＬＰ ＠ＰＳＴＥＣ ？”↑↓テ゛ソウニュウスルトコロヲ　エランテ゛クタ゛サイ ？”↑↓Ｐｌｅａｓｅ　ｃｈｏｏｓｅ　ｌｏｃａｔｉｏｎ　 ？”　　ｏｆ　ｉｎｓｅｒｔｉｏｎ ＢＣ２＝−１ ＶＳＹＮＣ　１ ＣＯＬＯＲ　１１，１５ ＠ＰＳＴＬＰ２ ＬＯＣＡＴＥ　０，６ ＩＦ　ＢＣ２＝＝−１　ＴＨＥＮ　？”　”＊２１：ＧＯＴＯ　＠ＰＳＴＳＫ ＩＦ　Ｆ＄（ＢＣ２，０）＝＝”０”　ＴＨＥＮ　？”◇”； ＩＦ　Ｆ＄（ＢＣ２，０）＝＝”１”　ＴＨＥＮ　？”・”； ＩＦ　Ｆ＄（ＢＣ２，０）＝＝”２”　ＴＨＥＮ　？”Й”； ？ＬＥＦＴ＄（Ｆ＄（ＢＣ２，１）＋”　”＊３２，２０） ＠ＰＳＴＳＫ ？”ココニ　コヒ゜−　　А　Ｃｏｐｙ　ｈｅｒｅ” ＩＦ　ＢＣ２＝＝ＭＡＸＦ　ＴＨＥＮ　？”　”＊２１：ＧＯＴＯ　＠ＰＳＴＳＫ２ ＩＦ　Ｆ＄（ＢＣ２＋１，０）＝＝”２”　ＴＨＥＮ　？”Й”； ＩＦ　Ｆ＄（ＢＣ２＋１，０）＝＝”１”　ＴＨＥＮ　？”・”； ＩＦ　Ｆ＄（ＢＣ２＋１，０）＝＝”０”　ＴＨＥＮ　？”◇”； ？ＬＥＦＴ＄（Ｆ＄（ＢＣ２＋１，１）＋”　”＊３２，２０） ＠ＰＳＴＳＫ２ ＢＴ＝ＢＴＲＩＧ（） ＩＦ　ＢＴ　ＡＮＤ　１　ＴＨＥＮ　ＢＣ２＝ＢＣ２−１＋（ＢＣ２＝＝−１）＊（ＭＡＸＦ＋２） ＩＦ　ＢＴ　ＡＮＤ　２　ＴＨＥＮ　ＢＣ２＝ＢＣ２＋１−（ＢＣ２＝＝ＭＡＸＦ）＊ＭＡＸＦ ＩＦ　ＢＴ　ＡＮＤ　１６　ＴＨＥＮ　＠ＰＳＴＥＣ３ ＶＳＹＮＣ　１ ＧＯＴＯ＠ＰＳＴＬＰ２ ＠ＰＳＴＥＣ３ ＣＯＬＯＲ　０，０ ＰＵＴＸ＝ＦＬＣＸ（ＢＣ２＋１）：ＰＵＴＹ＝ＦＬＣＹ（ＢＣ２＋１） ＰＵＴ＄＝ＣＬＩＰＢＯＲＤ＄（ＢＣ） ＮＰ＝ＰＡＧＥ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＳＵＢ　＠ＧＲＰＲＥＡＤ ＠ＰＳＴＥＣ２ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＰＡＧＥ＝ＮＰ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＢＥＥＰ　３ ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＶＥＲＩＮＦＯ ＶＳＹＮＣ　１ ＣＯＬＯＲ　４，０ ＣＬＳ：ＧＰＡＧＥ　０：ＧＣＬＳ ＰＮＬＴＹＰＥ”ＰＮＬ” ？，”　┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠┠” ？，”┻ＩＴＴＡＮ　ＥＸＰＬＯＲＥＲ　　　　　　　┛” ？，”┻　ｖｅｒｓｉｏｎ　３．１．１．０Ｅ　　　　┛” ？，”┻　　　　　　　　　　　　　　　　　　　　　┛” ？，”┻（Ｃ）２０１２　　　　　　　　　　　　　　┛” ？，”┻　　　　Ｉｔｔａｎ　ｐｒｏｇｒａｍｓ　　　┛” ？，”┻　　　　　　　　　　　　　　　　　　　　　┛” ？，”┻　Ｄｅｖｅｌｏｐｅｄ　ｂｙ　Ｉｔｔａｎ　　┛” ？，”┻　　　　　　　　　　　　　　　　　　　　　┛” ？，”┻　Ｃｏｍｐｏｓｅｄ　ｂｙ　Ｆｒａｓａｔｉｅ┛” ？，”┻　　　　　　　　　　　　　　　　　　　　　┛” ？，”┻コノ　フ゜ロク゛ラムノ　　　　　　　　　　┛” ？，”┻・カイソ゛ウ　　　　　　　　　　　　　　　┛” ？，”┻・サイハイフ　　　　　　　　　　　　　　　┛” ？，”┻　　ヲキンシ゛マス。　　　　　　　　　　　┛” ？，”┻　　　　　　　　　　　　　　　　　　　　　┛” ？，”┻　　　　　　　　　　А　　　　　　　　　　┛” ？，”　┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏” ＣＯＬＯＲ　０，０ ＦＯＲ　Ｉ＝０　ＴＯ　１ Ｉ＝ＢＴＲＩＧ（）　ＡＮＤ　１６ ＶＳＹＮＣ　１ ＮＥＸＴ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＰＲＩＮＴＢＫ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＣＬＳ：ＧＰＡＧＥ　０：ＧＣＬＳ ？”Ф：Ｓａｖｅ　ａｎｄ　Ｅｎｄ ？”Б：Ｓａｖｅ ？”Х：ｖｅｒｓｉｏｎ　ｉｎｆｏ：ハ゛−シ゛ョン　シ゛ョウホウ ＢＧＰＡＧＥ　１ ＢＧＦＩＬＬ　０，０，０，３１，２３，１５，０，０，０ ＰＮＬＳＴＲ　０，１，”┌──────────────────────────────┐”，１： ＦＯＲ　Ｉ＝２　ＴＯ　２２ ＰＮＬＳＴＲ　０，Ｉ，”│”＋”　”＊３０＋”│”，１ ＮＥＸＴ ＰＮＬＳＴＲ　０，２３，”└──────────────────────────────┘”，１ ＰＮＬＳＴＲ　１，２２，”ＥＸＰＬＯＲＥＲ　ｖ”＋ＦＤＶＥＲ＄＋”　ｂｙ　Ｉｔｔａｎ”，１５ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＰＲＩＮＴＦＬ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’ファイルヒョウシ゛ ＮＥＸＴＦ＝０ Ｉ０＝ＰＡＧＥ＊８ ＰＮＬＳＴＲ　１，２，”Ｐ：”＋ＳＴＲ＄（ＰＡＧＥ＋１），１ ＰＮＬＳＴＲ　０，０，”◇”＋ＦＦ＄，１ ＰＮＬＳＴＲ　１８，０，”Ｎａｍｅ”，１１ ＰＮＬＳＴＲ　２７，２，”Ｓｏｒｔ”，１１ ＰＮＬＳＴＲ　２０，２，”Ｐａｓｔｅ”，１１ ＩＦ　ＰＡＧＥ＞０　ＴＨＥＮ　　ＰＮＬＳＴＲ　６，２，”▲”，１１ ＠ＰＦＬＬＰ Ｉ１＄＝Ｆ＄（Ｉ０，０） ＩＦ　Ｉ１＄＝＝”−”　ＴＨＥＮ　＠ＰＦＬＥＣ ＩＦ　Ｉ０＞＝８＋（ＰＡＧＥ＊８）　ＴＨＥＮ　　ＰＮＬＳＴＲ　６，２０，”▼”，１１：ＮＥＸＴＦ＝ＴＲＵＥ：ＧＯＴＯ＠ＰＦＬＥＣ ＩＦ　Ｉ１＄＝＝”２”　ＴＨＥＮ　ＧＯＴＯ＠ＳＣＵＴ ＩＦ　Ｉ１＄＝＝”１”　ＴＨＥＮ　ＧＯＴＯ＠ＦＩＬＥ ＩＦ　Ｉ１＄！＝”０”　ＴＨＥＮ　＠ＰＦＬＥＣ ＰＮＬＳＴＲ　２，（Ｉ０％８）＊２＋４，”◇”＋Ｆ＄（Ｉ０，１），１１ Ｉ０＝Ｉ０＋１ ＧＯＴＯ＠ＰＦＬＬＰ ＠ＦＩＬＥ ＰＮＬＳＴＲ　２，（Ｉ０％８）＊２＋４，”・”＋Ｆ＄（Ｉ０，１）＋”．”＋Ｆ＄（Ｉ０，３），１１ Ｉ０＝Ｉ０＋１ ＧＯＴＯ＠ＰＦＬＬＰ ＠ＳＣＵＴ ＰＮＬＳＴＲ　２，（Ｉ０％８）＊２＋４，”Й◇”＋Ｆ＄（Ｉ０，１），１１ ＰＮＬＳＴＲ　２７，（Ｉ０％８）＊２＋４，”Ｎａｍｅ”，１１ Ｉ０＝Ｉ０＋１ ＧＯＴＯ＠ＰＦＬＬＰ ＠ＰＦＬＥＣ ＰＮＬＳＴＲ　１，２０，”Ｂａｃｋ”，１１ ＰＮＬＳＴＲ　８，２０，”ＤｅｌｅｔｅＦｏｌｄｅｒ”，１１ ＰＮＬＳＴＲ　２３，２０，”Ｎｅｗ”，１１ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＧＲＰＲＥＡＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’ＣＨＫ＄ ’ク゛ラフィックヨミコミ Ｉ０＝０：ＦＦＬＧ＝０：ＦＦ＝０ Ｘ＝０：Ｙ＝０：ＰＡＧＥ＝０ ＧＳ＄＝”” ＦＩＮＤ＝ＴＲＵＥ ＧＰＡＧＥ　１，２，１ ’−−− ＠ＧＲＰＬＰ Ｇ＄＝ＣＨＲ＄（ＧＳＰＯＩＴ（Ｘ，Ｙ）） ＩＦ　Ｇ＄＝＝ＣＨＲ＄（０）　ＴＨＥＮ　＠ＧＲＰＥＲ ＩＦ　Ｇ＄＝＝”＠”　ＴＨＥＮ　ＦＦ＝１：Ｇ＄＝””：ＩＦ　ＣＨＫＤ＝＝０　ＴＨＥＮ　ＧＲＰＳＹ＝Ｙ：ＧＲＰＳＸ＝Ｘ Ｙ＝Ｙ＋（Ｘ＝＝２５５） Ｘ＝Ｘ＋１　ＡＮＤ　２５５ ＩＦ　Ｇ＄＝＝”｛”　ＡＮＤ　ＦＦ　ＴＨＥＮ　＠ＣＨＫＧ ＩＦ　ＦＦ　ＴＨＥＮ　ＧＳ＄＝ＧＳ＄＋Ｇ＄ ＧＯＴＯ＠ＧＲＰＬＰ ’−−− ＠ＧＲＰＥＣ Ｇ＄＝ＣＨＲ＄（ＧＳＰＯＩＴ（Ｘ，Ｙ）） Ｙ＝Ｙ＋（Ｘ＝＝２５５） Ｘ＝Ｘ＋１　ＡＮＤ　２５５ ＩＦ　Ｇ＄＝＝”〜”　ＴＨＥＮ　ＧＣ＄＝”２”：Ｇ＄＝””：ＧＳ＄＝”” ＩＦ　Ｇ＄＝＝”・”　ＴＨＥＮ　ＧＣ＄＝”１”：Ｇ＄＝””：ＧＳ＄＝”” ＩＦ　Ｇ＄＝＝”◇”　ＴＨＥＮ　ＧＣ＄＝”０”：Ｇ＄＝””：ＧＳ＄＝”” ＩＦ　Ｇ＄＝＝”：”　ＴＨＥＮ　ＧＡ＄＝ＧＳ＄：Ｇ＄＝””：ＧＳ＄＝”” ＩＦ　Ｇ＄＝＝”．”　ＴＨＥＮ　ＧＢ＄＝ＧＳ＄：Ｇ＄＝””：ＧＳ＄＝”” ＩＦ　Ｇ＄＝＝”，”　ＴＨＥＮ　ＧＯＳＵＢ＠ＧＲＰＰＴ ＩＦ　Ｇ＄＝＝”｝”　ＴＨＥＮ　ＧＯＳＵＢ＠ＧＲＰＰＴ：ＧＯＴＯ＠ＧＲＰＥＣ２ ＧＳ＄＝ＧＳ＄＋Ｇ＄ ’？ＧＳ＄：ＷＡＩＴ　５ ＧＯＴＯ＠ＧＲＰＥＣ ’−−− ＠ＧＲＰＰＴ ＩＦ　ＧＡ＄＝＝””　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＧＣ＄＝＝””　ＴＨＥＮ　ＧＣ＄＝”１” Ｆ＄（Ｉ０，０）＝ＧＣ＄ Ｆ＄（Ｉ０，１）＝ＧＡ＄ Ｆ＄（Ｉ０，２）＝ＧＢ＄ Ｆ＄（Ｉ０，３）＝ＧＳ＄ ＦＬＣＸ（Ｉ０＋１）＝Ｘ：ＦＬＣＹ（Ｉ０＋１）＝Ｙ ＧＡ＄＝””：ＧＢ＄＝””：ＧＣ＄＝”” ＧＳ＄＝””：Ｇ＄＝”” Ｉ０＝Ｉ０＋１ ＲＥＴＵＲＮ　 ＠ＧＲＰＥＣ２ Ｆ＄（Ｉ０，０）＝”−” ＧＲＰＹ＝Ｙ−（Ｘ＝＝０） ＧＲＰＸ＝Ｘ−１＋（Ｘ＝＝０）＊２５６ ＦＦ＄＝ＣＨＫ＄ ＭＡＸＦ＝Ｉ０−１ ＲＥＴＵＲＮ ’−−− ＠ＣＨＫＧ ＩＦ　ＧＳ＄！＝ＣＨＫ＄　ＴＨＥＮ　ＦＦ＝０：ＧＳ＄＝””：ＧＯＴＯ＠ＧＲＰＬＰ ＩＦ　ＣＨＫＤ　ＴＨＥＮ　ＦＩＮＤ＝１：ＲＥＴＵＲＮ ＰＸ＝Ｘ：ＰＹ＝Ｙ ＦＬＣＸ（０）＝ＰＸ：ＦＬＣＹ（０）＝ＰＹ ＧＳ＄＝”” ＦＦ＝０ ＧＯＴＯ＠ＧＲＰＥＣ ’−−− ＠ＧＲＰＥＲ ＦＩＮＤ＝０ ＩＦ　ＴＣＨＳＣＦ　ＴＨＥＮ　＠ＧＲＥＳＣ ＩＦ　ＣＨＫＤ　ＴＨＥＮ　ＲＥＴＵＲＮ ＢＥＥＰ　７ ＣＬＳ：ＣＯＬＯＲ　０ ？”Ｍｅｓｅｅａｇｅ” ？”ケンサクフォルタ゛カ゛ミツカラナカッタヨ。” ？”ホ゛タンヲオスト　モト゛リマス。 ？”Ｓｏｒｒｙ．　Ｉｔ　ｄｏｅｓ　ｎｏｔ　ｅｘｉｓｔ． ？”Ｐｌｅａｓｅ　ｐｒｅｓｓ　ａｎｙ　ｂｕｔｔｏｎ． ？ ＯＦＬ＝ＯＦＬ−１ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝ＢＴＲＩＧ（）：ＮＥＸＴ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ ＠ＧＲＥＳＣ ＴＣＨＳＣＦ＝ＦＡＬＳＥ ＢＥＥＰ　７ ＣＬＳ：ＣＯＬＯＲ　０ ？”Ｍｅｓｅｅａｇｅ” ？”ケンサクフォルタ゛カ゛ミツカラナカッタヨ。” ？”ホ゛タンヲオスト　モト゛リマス。 ？”Ｐｌｅａｓｅ　ｐｒｅｓｓ　ａｎｙ　ｂｕｔｔｏｎ． ？”Ｓｏｒｒｙ．　Ｉｔ　ｄｏｅｓ　ｎｏｔ　ｅｘｉｓｔ． ？ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝ＢＴＲＩＧ（）：ＮＥＸＴ ＧＯＳＵＢ　＠ＰＲＩＮＴＢＫ ＧＯＳＵＢ　＠ＰＲＩＮＴＦＬ ＯＦＬ＝ＯＦＬ−１ ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ ＠ＢＵＧＣＨＫ ＧＰＡＧＥ　１，２，１ Ｘ＝０：Ｙ＝０：ＰＡＧＥ＝０ ＦＦ＝０ ＧＳ＄＝”” ＠ＢＧＣＬＰ Ｇ＄＝ＣＨＲ＄（ＧＳＰＯＩＴ（Ｘ，Ｙ）） ＩＦ　Ｇ＄＝＝ＣＨＲ＄（０）　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　Ｇ＄＝＝”＠”　ＴＨＥＮ　ＦＦ＝１：Ｇ＄＝””：ＩＦ　ＣＨＫＤ＝＝０　ＴＨＥＮ　ＧＲＰＳＹ＝Ｙ：ＧＲＰＳＸ＝Ｘ Ｙ＝Ｙ＋（Ｘ＝＝２５５） Ｘ＝Ｘ＋１　ＡＮＤ　２５５ ＩＦ　Ｇ＄＝＝”｛”　ＡＮＤ　ＦＦ　ＴＨＥＮ　＠ＢＧＣＣＨＫＧ ＩＦ　ＦＦ　ＴＨＥＮ　ＧＳ＄＝ＧＳ＄＋Ｇ＄ ＧＯＴＯ＠ＢＧＣＬＰ ＠ＢＧＣＣＨＫＧ ＩＦ　ＧＳ＄＝＝”Ｌｉｂｒａｒｙ”　ＴＨＥＮ　ＲＥＴＵＲＮ ＩＦ　ＧＳ＄！＝ＣＨＫ＄　ＴＨＥＮ　ＦＦ＝０：ＧＳ＄＝””：ＧＯＴＯ＠ＢＧＣＬＰ ＤＥＬＸ＝ＧＲＰＳＸ ＤＥＬＹ＝ＧＲＰＳＹ ＤＥＬＬ＝ＬＥＮ（ＧＳ＄）＋１ ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝ＧＲＰＳＸ ＰＵＴＹ＝ＧＲＰＳＹ ＰＵＴ＄＝”＠Ｌｉｂｒａｒｙ” ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠＿ＳＡＶＥ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ？”セ−フ゛シマス。” ？”ＳＡＶＥ　ＧＲＰ” Ｓ＄＝”ＧＲＰ２：”＋ＦＩＬＥ＄ ＳＡＶＥ　Ｓ＄ ＬＯＣＡＴＥ　０，ＣＳＲＹ−２ ？ＣＨＲ＄（０）＊８ ？ＣＨＲ＄（０）＊８ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠＿ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＧＯＳＵＢ　＠＿ＳＡＶＥ ＧＰＡＧＥ　０，２，２：ＧＣＬＳ　０ ＧＰＡＧＥ　１，３，３：ＧＣＬＳ　０ ＡＣＬＳ：ＣＬＥＡＲ ？”コ゛リヨウ　アリカ゛トウコ゛サ゛イマシタ。 ？”Ｓｈａｎｋ　ｙｏｕ　ｆｏｒ　ｕｓｅｉｎｇ． ＥＮＤ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＬＯＡＤＧＲＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＣＬＳ ＣＯＬＯＲ　０ ＰＮＬＴＹＰＥ　”ＫＹＡ” ？”ヨミコミテ゛−タニュウリョク：Ｉｎｐｕｔ　ｌｏａｄ　ｎａｍｅ” ？ ？”＠Ｎ：シンキサクセイ：ｎｅｗ　ｆｉｌｅ” ？”＠Ｒ：テ゛−タニヨル　ヨミコミ：ｒｅａｄ　ｔｏ　ｄａｔａ” ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　５１２＋１２８　ＴＨＥＮ　Ｉ＄＝ＭＦＩＬＥ＄：ＧＯＴＯ＠ＬＧＲＳＫ ＩＮＰＵＴ　Ｉ＄ ＩＦ　Ｉ＄＝＝”＠Ｎ”　ＴＨＥＮ　＠ＮＥＷ ＩＦ　Ｉ＄＝＝”＠Ｒ”　ＴＨＥＮ　＠ＲＥＡＤＤＡＴＡ ＰＣＨＫ＄＝Ｉ＄：ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　ＥＲ　ＴＨＥＮ　＠ＲＧＲＥＲ ＠ＬＧＲＳＫ ＩＦ　ＬＥＮ（Ｉ＄）＞８　ＴＨＥＮ　＠ＲＧＲＥＲ ＦＩＬＥ＄＝Ｉ＄ Ｉ＄＝”ＧＲＰ２：”＋Ｉ＄ ＬＯＡＤ　Ｉ＄，０ ＩＦ　ＲＥＳＵＬＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　＠ＬＯＡＤＧＲＰ ＠ＲＧＲＬＰ Ｉ＄＝”［ＥＸＰＬＯＲＥＲ］”：Ｇ＄＝”” ＧＰＡＧＥ　０，２，０ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｉ＄）−１ Ｇ＄＝Ｇ＄＋ＣＨＲ＄（ＧＳＰＯＩＴ（Ｉ，０）） ＮＥＸＴ ＧＰＡＧＥ　０，０，０ ＩＦ　Ｇ＄＝＝Ｉ＄　ＴＨＥＮ　ＰＮＬＴＹＰＥ　”ＯＦＦ”：ＲＥＴＵＲＮ Ｉ＄＝”［ＦＩＬＥＥＤＴ］”：Ｇ＄＝”” ＧＰＡＧＥ　０，２，０ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｉ＄）−１ Ｇ＄＝Ｇ＄＋ＣＨＲ＄（ＧＳＰＯＩＴ（Ｉ，０）） ＮＥＸＴ ＧＰＡＧＥ　０，０，０ ＩＦ　Ｇ＄＝＝Ｉ＄　ＴＨＥＮ　＠ＲＧＲＢＵＧ ＠ＲＧＲＥＲ ＣＬＳ ＢＥＥＰ　２ ？”ｅｒｒｏｒ！” ？”ヨミコンタ゛ファイルハ　 ？”コノ　フ゜ロク゛ラム　ニハ　ツカエマセン。 ？”＝＝カイケツホウホウ＝＝ ？”・アタラシク　ファイルヲ　ツクル。 ？”・ヨミコム　ファイルヲ　カエル。 ？ ？”Ｓｏｒｒｙ． ？”Ｉｔ　ｃａｎ｀ｔ　ｕｓｅ　ｆｏｒ　ｔｈｉｓ　ｓｏｆｔ． ？ ？”ホ゛タンヲオスト　モト゛リマス。 ？”Ｐｌｅａｓｅ　Ｐｒｅｓｓ　ａｎｙ　ｂｕｔｔｏｎ．” ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝ＢＴＲＩＧ（）ＮＥＸＴ ＧＯＴＯ＠ＬＯＡＤＧＲＰ ＠ＲＧＲＢＵＧ ＤＥＬＸ＝０：ＤＥＬＹ＝０ ＤＥＬＬ＝ＬＥＮ（”［ＦＩＬＥＥＤＴ］”） ＧＯＳＵＢ　＠ＤＥＬＧＲＰ ＰＵＴＸ＝０：ＰＵＴＹ＝０ ＰＵＴ＄＝”［ＥＸＰＬＯＲＥＲ］” ＧＯＳＵＢ　＠ＰＵＴＧＲＰ ＧＯＴＯ＠ＲＧＲＬＰ ’−−− ＠ＮＥＷ ＩＮＰＵＴ”シンファイルメイ：Ｎｅｗ　ｆｉｌｅ　ｎａｍｅ”；Ｉ＄ ＰＣＨＫ＄＝Ｉ＄：ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　ＥＲ！＝０　ＴＨＥＮ　ＢＥＥＰ　２：ＣＬＳ：ＧＯＴＯ　＠ＮＥＷ ＦＩＬＥ＄＝Ｉ＄ ＰＵＴ＄＝”［ＥＸＰＬＯＲＥＲ］＠Ｌｉｂｒａｒｙ｛｝” ＰＵＴＸ＝０：ＰＵＴＹ＝０ ＧＯＳＵＢ　＠ＰＵＴＧＲＰ Ｉ＄＝”ＧＲＰ２：”＋ＦＩＬＥ＄ ＳＡＶＥ　Ｉ＄ ＰＮＬＴＹＰＥ　”ＯＦＦ” ＲＥＴＵＲＮ ’−−− ＠ＲＥＡＤＤＡＴＡ ＩＮＰＵＴ”ヨミコミラヘ゛ル：ｒｅａｄ　ｌａｂｅｌ”；Ｉ＄ ＰＣＨＫ＄＝Ｉ＄：ＧＯＳＵＢ　＠ＰＲＧＣＨＫ ＩＦ　ＥＲ！＝０　ＴＨＥＮ　ＢＥＥＰ　２：ＣＬＳ：ＧＯＴＯ　＠ＲＥＡＤＤＡＴＡ ＦＩＬＥ＄＝ＬＥＦＴ＄（Ｉ＄，８） ＰＮＬＴＹＰＥ　”ＯＦＦ” ＲＥＳＴＯＲＥ”＠”＋Ｉ＄ Ｘ＝０：Ｙ＝０ ＧＰＡＧＥ　０，２，０ ＠ＲＤＬＰ ＲＥＡＤ　Ｉ０＄ ＩＦ　Ｉ０＄＝＝”−”　ＴＨＥＮ　＠ＲＤＥＣ ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｉ０＄）−１ Ｉ１＄＝ＭＩＤ＄（Ｉ０＄，Ｉ，１） ＧＰＳＥＴ　Ｘ，Ｙ，ＡＳＣ（Ｉ１＄） Ｙ＝Ｙ＋（Ｘ＝＝２５５） Ｘ＝Ｘ＋１　ＡＮＤ　２５５ ＮＥＸＴ ＧＯＴＯ＠ＲＤＬＰ ＠ＲＤＥＣ ＧＰＡＧＥ　０，０，０ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＰＵＴＧＲＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＬＯＣＡＴＥ　０，０：ＣＬＳ ？”Ｗｒｉｔｉｎｇ（ｐｕｔ）” ？”Ｐｌｅａｓｅ　ｗａｉｔ．．． ？ ？”Ｉｎｆｏ” ？”　ｘ　：”ＰＵＴＸ ？”　ｙ　：”ＰＵＴＹ ？”ｓｔｒ：”；ＣＨＲ＄（３４）；ＰＵＴ＄；ＣＨＲ＄（３４） ＧＰＡＧＥ　１，２，１ ’ＰＵＴＸ：ＰＵＴＹ：ＰＵＴ＄ ＰＬ＝ＬＥＮ（ＰＵＴ＄） Ｘ＝ＰＵＴＸ：Ｙ＝ＰＵＴＹ 　＠ＰＧＲＬＰ 　Ｉ０＄＝”” 　ＰＸ＝Ｘ：ＰＹ＝Ｙ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＰＬ−１ 　　Ｇ＄＝ＣＨＲ＄（ＧＳＰＯＩＴ（Ｘ，Ｙ）） 　　ＩＦ　Ｇ＄＝＝ＣＨＲ＄（０）　ＴＨＥＮ　Ｇ＄＝”” 　　Ｉ０＄＝Ｉ０＄＋Ｇ＄ 　　Ｙ＝Ｙ＋（Ｘ＝＝２５５） 　　Ｘ＝Ｘ＋１　ＡＮＤ　２５５ 　ＮＥＸＴ 　Ｘ＝ＰＸ：Ｙ＝ＰＹ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＰＬ−１ 　　Ｉ１＄＝ＭＩＤ＄（ＰＵＴ＄，Ｉ，１） 　　Ｉ１＝０ 　　ＩＦ　Ｉ１＄！＝””　ＴＨＥＮ　Ｉ１＝ＡＳＣ（Ｉ１＄） 　　ＧＰＳＥＴ　Ｘ，Ｙ，Ｉ１ 　　Ｙ＝Ｙ＋（Ｘ＝＝２５５） 　　Ｘ＝Ｘ＋１　ＡＮＤ　２５５ 　ＮＥＸＴ 　ＩＦ　Ｉ０＄＝＝””　ＴＨＥＮ　＠ＰＧＲＥＣ 　ＰＵＴ＄＝Ｉ０＄ 　ＧＯＴＯ＠ＰＧＲＬＰ 　＠ＰＧＲＥＣ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＤＥＬＧＲＰ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＬＯＣＡＴＥ　０，０：ＣＬＳ ？”Ｗｒｉｔｉｎｇ（ｄｅｌｅｔｅ）” ？”Ｐｌｅａｓｅ　ｗａｉｔ．．． ？ ？”Ｉｎｆｏ” ？”　ｘ　：”ＤＥＬＸ ？”　ｙ　：”ＤＥＬＹ ？”ｓｔｒ：”ＤＥＬＬ ＧＰＡＧＥ　１，２，１ ’ＤＥＬＸ，ＤＥＬＹ，ＤＥＬＬ ＩＦ　ＤＥＬＬ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ Ｌ＝ＦＬＯＯＲ（（ＤＥＬＬ−１）／２５６） ＤＥＬＬ２＝ＤＥＬＬ ＦＯＲ　ＩＩ＝０　ＴＯ　Ｌ Ｘ＝ＤＥＬＸ：Ｙ＝ＤＥＬＹ ＤＥＬＬ＝ＤＥＬＬ２ ＩＦ　ＤＥＬＬ＞２５６　ＴＨＥＮ　ＤＥＬＬ＝２５６ ＠ＤＧＲＬＰ ＬＯＣＡＴＥ　０，２ 　Ｉ０＄＝”” 　ＰＸ０＝Ｘ：ＰＹ０＝Ｙ 　ＰＹ１＝Ｙ＋ＦＬＯＯＲ（（Ｘ＋ＤＥＬＬ）／２５６） 　ＰＸ１＝Ｘ＋ＤＥＬＬ　ＡＮＤ　２５５ 　Ｘ＝ＰＸ１：Ｙ＝ＰＹ１ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＤＥＬＬ−１ 　　Ｇ＄＝ＣＨＲ＄（ＧＳＰＯＩＴ（Ｘ，Ｙ）） 　　ＩＦ　Ｇ＄＝＝ＣＨＲ＄（０）　ＴＨＥＮ　Ｇ＄＝”” 　　Ｉ０＄＝Ｉ０＄＋Ｇ＄ 　　Ｙ＝Ｙ＋（Ｘ＝＝２５５） 　　Ｘ＝Ｘ＋１　ＡＮＤ　２５５ 　ＮＥＸＴ 　Ｘ＝ＰＸ０：Ｙ＝ＰＹ０ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＤＥＬＬ−１ 　　Ｉ１＄＝ＭＩＤ＄（Ｉ０＄，Ｉ，１） 　　Ｉ１＝０ 　　ＩＦ　Ｉ１＄！＝””　ＴＨＥＮ　Ｉ１＝ＡＳＣ（Ｉ１＄） 　　ＧＰＳＥＴ　Ｘ，Ｙ，Ｉ１ 　　Ｙ＝Ｙ＋（Ｘ＝＝２５５） 　　Ｘ＝Ｘ＋１　ＡＮＤ　２５５ 　ＮＥＸＴ 　ＩＦ　Ｉ０＄＝＝””　ＴＨＥＮ　＠ＤＧＲＥＣ 　ＰＵＴ＄＝Ｉ０＄ 　ＧＯＴＯ＠ＤＧＲＬＰ 　＠ＤＧＲＥＣ ＤＥＬＬ２＝ＤＥＬＬ２−２５６ ＮＥＸＴ　ＩＩ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＰＲＧＣＨＫ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’ＰＣＨＫ＄ ＰＣＬ＝ＬＥＮ（ＰＣＨＫ＄） ＥＲ＝ＰＣＬ＝＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＰＣＬ−１ Ｇ＄＝ＭＩＤ＄（ＰＣＨＫ＄，Ｉ，１） ＩＦ　Ｇ＄＞＝”Ａ”　ＡＮＤ　Ｇ＄＜＝”Ｚ”ＴＨＥＮ　＠ＲＧＣＮＴ ＩＦ　Ｇ＄＞＝”０”　ＡＮＤ　Ｇ＄＜＝”９”ＴＨＥＮ　＠ＲＧＣＮＴ ＩＦ　Ｇ＄＝＝”＿”　ＴＨＥＮ　＠ＲＧＣＮＴ ＥＲ＝ＴＲＵＥ ＠ＲＧＣＮＴ ＮＥＸＴ ＲＥＴＵＲＮ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＰＲＧＣＨＫ２ ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’ＰＣＨＫ＄ ＰＣＬ＝ＬＥＮ（ＰＣＨＫ＄） ＥＲ＝ＰＣＬ＝＝０ ＦＯＲ　Ｉ＝０　ＴＯ　ＰＣＬ−１ Ｇ＄＝ＭＩＤ＄（ＰＣＨＫ＄，Ｉ，１） ＩＦ　Ｇ＄＝＝”：”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”，”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”．”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”＠”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”｛”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”｝”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”・”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”◇”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＩＦ　Ｇ＄＝＝”〜”　ＴＨＥＮ　ＥＲ＝ＥＲ＋１ ＮＥＸＴ ＲＥＴＵＲＮ ＠ＯＮ ＢＧＭＳＴＯＰ ＢＧＭＳＥＴＤ　１２８，＠ＭＭＬＤＡＴＡ ＢＧＭＰＬＡＹ　０，１２８ ＬＯＣＡＴＥ　２，１０ ＣＯＬＯＲ　１ ？”Ｅｘｐｌｏｒｅｒ　ｐｒｏｇｒａｍｍｅｄ　ｂｙ　Ｉｔｔａｎ ＰＮＬＳＴＲ　７，１２，”ｐｒｅｓｓ　А　ｏｒ　н　ｂｕｔｔｏｎ．”，１５ ＦＯＲ　Ｉ＝０　ＴＯ　５１２　ＳＴＥＰ　２ ＩＦ　Ｉ％３２＝＝０　ＴＨＥＮ　ＧＲＰ（Ｉ／３２，０）＝ＲＮＤ（２５６）：ＧＲＰ（Ｉ／３２，１）＝ＲＮＤ（１９２）：ＧＲＰ（Ｉ／３２，２）＝１７６＋ＲＮＤ（１６） ＦＯＲ　Ｊ＝０　ＴＯ　Ｉ／３２ ＧＲＰ（Ｊ，３）＝ＧＲＰ（Ｊ，３）＋２ ＩＦ　ＧＲＰ（Ｊ，３）＞２５６　ＴＨＥＮ　ＧＯＴＯ＠ＳＫＩＰ ＧＣＩＲＣＬＥ　ＧＲＰ（Ｊ，０），ＧＲＰ（Ｊ，１），ＧＲＰ（Ｊ，３）−２，０ ＧＣＩＲＣＬＥ　ＧＲＰ（Ｊ，０），ＧＲＰ（Ｊ，１），ＧＲＰ（Ｊ，３）−１，０ ＧＣＩＲＣＬＥ　ＧＲＰ（Ｊ，０），ＧＲＰ（Ｊ，１），ＧＲＰ（Ｊ，３），ＧＲＰ（Ｊ，２） ＧＣＩＲＣＬＥ　ＧＲＰ（Ｊ，０），ＧＲＰ（Ｊ，１），ＧＲＰ（Ｊ，３）＋１，ＧＲＰ（Ｊ，２） ＠ＳＫＩＰ ＮＥＸＴ ＶＳＹＮＣ　１ ＣＯＬ＄＝ＨＥＸ＄（Ｉ−（Ｉ＞２５５）＊（Ｉ−２５５），２）＊３ ＣＯＬＳＥＴ　”ＢＧ”，３１，ＣＯＬ＄ ＶＳＹＮＣ　２ ＩＦ　（ＢＵＴＴＯＮ（）　ＡＮＤ　５１２＋１６）　ＴＨＥＮ　Ｉ＝５１２ ＮＥＸＴ　Ｉ ＧＣＬＳ ＢＧＭＳＴＯＰ　０，１ ＲＥＴＵＲＮ ＠ＭＭＬＤＡＴＡ ＤＡＴＡ”Ｔ６０ ＤＡＴＡ”｛Ｒ＝＠Ｅ１２７，０，０，１００｝ ＤＡＴＡ”｛Ｅ＝＠Ｅ１２７，２０，０，７０｝ ＤＡＴＡ”：０｛Ｒ｝Ｖ１２７＠４９Ｏ１Ｃ１＆Ｃ１ ＤＡＴＡ”：１｛Ｒ｝Ｖ１２７＠４９Ｏ２Ｃ１＆Ｃ１ ＤＡＴＡ”：２｛Ｅ｝Ｖ１２７＠４８　　　　　　ＲＥＤ　　Ａ＜Ａ１ ＤＡＴＡ”：３｛Ｅ｝Ｖ１２７Ｒ６４＠４８　　　ＲＧＧ　　Ｂ＜Ｂ１ ＤＡＴＡ”：４｛Ｅ｝Ｖ１２７Ｒ３２＠４８　　　ＲＢＡ　＜Ｄ＜Ｄ１ ＤＡＴＡ”：５｛Ｅ｝Ｖ１２７Ｒ３２．＠４８　　ＲＲ＜Ｄ　Ａ＜Ｆ＋１ ＤＡＴＡ”：６｛Ｅ｝Ｖ１２７Ｒ１６＠４８　　　ＲＲ＜Ｆ＋＜ＤＡ１ ＤＡＴＡ”：７｛Ｅ｝Ｖ１２７Ｒ１６Ｒ６４＠４８ＲＲ＜＜ＤＦ＋Ｒ１ ＤＡＴＡ　０ ＠ＴＥＳＴ ’テ゛ハ゛ック゛ヨウ ＬＯＣＡＴＥ　０，０：ＣＯＬＯＲ　０ ＧＰＡＧＥ　１，２，０ ＦＯＲ　ＹＹ＝０　ＴＯ　１９１ 　ＦＯＲ　ＸＸ＝０　ＴＯ　２５５ 　ＧＧ＄＝ＣＨＲ＄（ＧＳＰＯＩＴ（ＸＸ，ＹＹ）） 　？ＧＧ＄； 　ＶＳＹＮＣ　１ 　ＩＦ　ＧＧ＄＝＝ＣＨＲ＄（０）　ＴＨＥＮ　ＸＸ＝８００：ＹＹ＝８００ 　ＮＥＸＴ　ＸＸ ＮＥＸＴ　ＹＹ ＷＡＩＴ　１２０ ＲＥＴＵＲＮ ＠ＴＹＰＥＤＡＴＡ ’カクチョウシヨウ ＤＡＴＡ”ＰＲＧ”，”ＧＲＰ”，”ＭＥＭ” ＤＡＴＡ”ＳＣＵ０Ｕ”，”ＳＣＵ１Ｕ” ＤＡＴＡ”ＳＣＵ０Ｌ”，”ＳＣＵ１Ｌ” ＤＡＴＡ”ＣＯＬ０Ｕ”，”ＣＯＬ１Ｕ”，”ＣＯＬ２Ｕ” ＤＡＴＡ”ＣＯＬ０Ｌ”，”ＣＯＬ１Ｌ”，”ＣＯＬ２Ｌ” ＤＡＴＡ”ＢＧＦ０Ｕ”，”ＢＧＦ０Ｌ” ＤＡＴＡ”ＢＧＵ０Ｕ”，”ＢＧＵ１Ｕ” ＤＡＴＡ”ＢＧＵ２Ｕ”，”ＢＧＵ３Ｕ” ＤＡＴＡ”ＢＧＵ０Ｌ”，”ＢＧＵ１Ｌ” ＤＡＴＡ”ＢＧＵ２Ｌ”，”ＢＧＵ３Ｌ” ＤＡＴＡ”ＳＰＵ０”，”ＳＰＵ１”，”ＳＰＵ２” ＤＡＴＡ”ＳＰＵ３”，”ＳＰＵ４”，”ＳＰＵ５” ＤＡＴＡ”ＳＰＵ６”，”ＳＰＳ０”，”ＳＰＳ１” ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ＠ＵＳＥＲ　−−−−−−−−−−−−−−−−−−−−−−− ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’−−−−−−−−−−−−−−−−−−−−−−−−−−−− ’テ゛−タ゛フ゛ンサクセイニツイテ ’１：テ゛−タ゛フ゛ンノ　サイショニ ’　　カナラス゛セントウニ”［ＥＸＰＬＯＲＥＲ］　ヲ ’　　イレテ　クタ゛サイ。 ’　　（ホカノ　ＧＲＰヲ　アヤマッテ　ヨミコマナイヨウ。） ’　　サイコ゛ハ　ＤＡＴＡ”−”　ヲカク ’２：フォルタ゛テイキ゛ ’　　＠＋フォルタ゛メイ ’　　フォルタ゛ノ　ナカミハ　｛｝　テ゛ククル。 ’　　＊１：（・◇：，．＠｛｝）ハ　ツカエマセン。 ’　　＊２：サイサョニハ　＠Ｌｉｂｒａｒｙ　ヲ ’　　イレテクタ゛サイ。 ’３：ファイルサクセイ ’　　（ファイルメイ）：［（ヨミコムナマエ）． ’　　（ヨミコムシュルイ）］， ’　　［］ナイ　ショウリャクカノウ。 ’　　 ’　　ファイルメイ ’　　フォルタ゛ナラ（◇） ’　　ショ−トカットナラ（〜） ’　　ファイルナラ　（・）ヲセントウニツケル。 ’　　（ナイト　ナマエヲ　カエルトキニ　ハ゛ク゛ル。） ’ ’　　ヨミコムナマエ ’　　ヨミコムトキニ　ツカイマス　 ’　　セイカクニ　カイテ　クタ゛サイ ’　　 ’　　ヨミコムシュルイ ’　　ＰＲＧトカＧＲＰトカＳＰＵ０トカテ゛ス。 ’　　 ’Ｓａｍｐｌｅ ＠ＤＡＴＡ０ ＤＡＴＡ”［ＥＸＰＬＯＲＥＲ］” ＤＡＴＡ”＠Ｌｉｂｒａｒｙ｛” ＤＡＴＡ”◇キャラクタ：， ＤＡＴＡ”◇フ゜ロク゛ラム：， ＤＡＴＡ”｝ ＤＡＴＡ”＠キャラクタ｛ ＤＡＴＡ”・ニンケ゛ン：ＮＩＮＧＥＮ．ＳＰＵ０， ＤＡＴＡ”・ハイケイ：ＢＧＲＯＵＮＤ．ＳＣＵ０Ｕ， ＤＡＴＡ”〜キャラクタ：， ＤＡＴＡ”｝ ＤＡＴＡ”＠フ゜ロク゛ラム｛ ＤＡＴＡ”・サンカクハ：ＣＯＳＴＥＳＴ．ＰＲＧ， ＤＡＴＡ”・ＳＴＧ：ＧＡＭＥ４．ＰＲＧ， ＤＡＴＡ”〜キャラクタ：， ＤＡＴＡ”｝ ＤＡＴＡ”−” ’［ＥＯＦ］

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• 名無しさん : CangeではなくChangeでは？　もしくはEditにするのはどうでしょう。 (2012/06/24 (日) 22:35:38)
• いったん(投稿者) : ありがとうございます。次回治したいと思います。 (2012/06/24 (日) 22:42:20)
• 名無しさん : ドラッグ&ドロップできたら最高 (2012/06/25 (月) 15:51:44)
• 名無しさん : _アンダーバーできない (2012/06/25 (月) 15:55:40)
• 名無しさん : ファイルエディタっていうか、ファイルマネージャとかファイルエクスプローラっていうんじゃないか？ (2012/06/25 (月) 23:32:05)
• 名無しさん : あと、FolderがForderになってるところがあるｗ (2012/06/25 (月) 23:44:39)
• チェストォ : なかなか( ´ ▽ ` )ﾉ (2012/06/27 (水) 17:44:54)
• 名も無き名無し : QRが４〜表示されない (2012/07/02 (月) 19:30:09)
• hatena : 名前を変更する時何も入力せずにEnterキーを押すとバグ発生します。 (2012/07/02 (月) 20:09:38)
• いったん(投稿者) : hatenaさんありがとうございます。次の更新で修正したいと思います。 (2012/07/02 (月) 21:46:33)
• hatena : プログラムリスト書きましたよ〜。このページにあります。載せるまではいかなくてもリンクしておけばどうでしょうか？ (2012/07/05 (木) 20:24:51)
• いったん(投稿者) : hatenaさんありがとうございます。リンク貼っときました。 (2012/07/07 (土) 17:00:00)
• hatena : プログラムリストに行数を付け加えました。 (2012/07/07 (土) 20:05:34)
• 名も無き名無し : なんでかな？プログラムリスト開くと文字化けすごいｗちなみにOSはWin7です (2012/07/07 (土) 23:24:18)
• わぁぃ@ : ↑フォントが反映されてないのかな？ファイヤフォックス(スペルが分からないorz)かな？初代プチコンの公式サイトからDLしよう。 (2012/07/08 (日) 09:21:47)
• 名無しさん : メニューバーの 表示>エンコード>EUC でどうですか？ (2012/07/08 (日) 09:30:06)
• 名無しさん : 多分半角カナが文字化けしているだけだと思う。 (2012/07/08 (日) 09:56:36)
• 名無しさん : 今見たら全部全角になってたからエンコードをeucにしないと文字化けがひどい。 (2012/07/08 (日) 13:25:13)
• hatena : プログラムリストはEUC-JPです。 (2012/07/08 (日) 16:52:28)
• hatena : プログラムリストをShift_JISにしてmetaタグを入れ、プチコンフォントにしました。 (2012/09/04 (火) 19:26:21)
• hatena : 俺の書いたプログラムリストのリンクを削除してください。俺は編集できないです。 (2012/10/15 (月) 22:41:37)
• いったん(投稿者) : hatenaさん。対応しました。 (2012/10/15 (月) 23:32:13)
• が : 英語をカタカナに…。 (2012/11/21 (水) 16:07:12)
  • いったん(投稿者) : ↑しました。(2012/11/22 (木) 17:45:00)
• バグ発生 : フォルダの名前変更で何も入力せずに改行すると発生する。 (2012/12/01 (土) 19:35:03)
• バグ発生2 : ショートカットが削除できない (2012/12/01 (土) 21:49:56)
• いったん : ↑わかりました。近いうちに対策します。 (2012/12/01 (土) 22:55:34)
• nao112641433 : osに組み込んでいいですか? (2013/02/10 (日) 10:56:00)
• いったん : いいですけど・・・変数とかラベルとかたくさん使ってますし、そもそもメインルーチンがあってないようなものなのでランチャ的な使い方しかできないと思いますが、それでもよければどうぞ。 (2013/04/01 (月) 20:44:49)
• 道産子(dosankosoft) : @Rでラベル名を入力するとUndefined labelになります。 (2013/08/25 (日) 20:07:35)
• 道産子(dosankosoft) : すみません。自己解決しました。 (2013/08/25 (日) 20:10:45)
• Tachesci : 懐かしい起動音。Windows95か98だったっけ。 (2014/11/15 (土) 20:33:01)

お名前: