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

パンくずリスト

• トップ
• Toukou
• hTML

2012年11月11日投稿 / 投稿者 : hatena / タグ : 投稿プログラム QRコード mkII専用 ツール

概要

hTMLです。HTMLでなくhTMLです。
hTMLとはhatena Text Markup Languageの略です。
hTMLは、HTML記法と全く似ていなくWiki記法の方が似ています。
一文字ずつタグではないかチェックしているためか非常に動作は遅いです。
スクロール機能がありプチコンが許す限り何行でも表示できます。

実行すると＠ＰＵＴＤＡＴＡ下のデータが表示されます。
データは必ず＃＃＃ＥＮＤＰＵＴＤＡＴＡＨＥＲＥ＃＃＃で終わるようにしてください。

記法

引数無し

• ​＆ＢＲ； - 改行
• ​＆ＡＭＰ； - &の表示
• ​＆ＦＲＥＥＭＥＭ； - システム変数FREEMEMの中身を表示します。
• ​＆ＦＲＥＥＶＡＲ； - システム変数FREEVARの中身を表示します。
• ​＆ＤＡＴＥ； - システム変数DATE$の中身を表示します。
• ​＆ＴＩＭＥ； - システム変数TIME$の中身を表示します。

引数有り

• ​＆ＣＨＲ（ASCII-code = 0~255​）； - アスキーコードに対応する文字を表示します。
• ​＆ＣＯＬＯＲ（color-number = 0~15​）； - 文字色の指定。
• ​＆ＨＲ（str = 1 letter​）； - 水平線の描画。

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

プログラムリスト

＠ＰＵＴＤＡＴＡ ＤＡＴＡ”＆ＣＯＬＯＲ（５）；＆ＨＲ（─）；＆ＣＯＬＯＲ（０）；” ＤＡＴＡ”＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┛　　　┷┷┷┷┷┷┷　┷　　　　　┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┛　　　　　　┷　　　　┷┷　　　┷┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┛　　　　　　┷　　　　┷　┷　┷　┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┯┠┠　　　　┷　　　　┷　┷　┷　┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┣┏┷　　　　┷　　　　┷　┷　┷　┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┛　┷　　　　┷　　　　┷　┷　┷　┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┛　┷　　　　┷　　　　┷　┷　┷　┷　┷　　　　　　＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；　　┻┛　┷　　　　┷　　　　┷　　┷　　┷　┷┷┷┷┷┷┷＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（０）；” ＤＡＴＡ”＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；ｈ＆ＣＯＬＯＲ（０）；ａｔｅｎａ　” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；Ｔ＆ＣＯＬＯＲ（０）；ｅｘｔ　” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；Ｍ＆ＣＯＬＯＲ（０）；ａｒｋｕｐ　” ＤＡＴＡ”＆ＣＯＬＯＲ（１１）；Ｌ＆ＣＯＬＯＲ（０）；ａｎｇｕａｇｅ＆ＢＲ；” ＤＡＴＡ”　Ｖｅｒｓｉｏｎ　　１．００＆ＢＲ；” ＤＡＴＡ”　ＦｉｌｅＮａｍｅ　ＰＲＧ：ＨＮ＿ＨＴＭＬ＆ＢＲ；” ＤＡＴＡ”　Ａｕｔｈｅｒ　　　ｈａｔｅｎａ” ＤＡＴＡ”＆ＣＯＬＯＲ（５）；＆ＨＲ（─）；＆ＣＯＬＯＲ（０）；” ＤＡＴＡ”＆ＣＯＬＯＲ（１３）；・＆ＣＯＬＯＲ（０）；Ｔｈａｎｋｓ　ｆｏｒ　ｕｓｉｎｇ　＆ＣＯＬＯＲ（１１）；ｈＴＭＬ＆ＣＯＬＯＲ（０）；．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１３）；・＆ＣＯＬＯＲ（０）；＆ＣＯＬＯＲ（１１）；ｈＴＭＬ＆ＣＯＬＯＲ（０）；　ａｎｄ　ＨＴＭＬ　ａｒｅｎ’ｔ　ｔｈｅ　ｓａｍｅ．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１３）；・＆ＣＯＬＯＲ（０）；＆ＣＯＬＯＲ（１１）；ｈＴＭＬ＆ＣＯＬＯＲ（０）；　ｉｓ　ｆｏｒ　ｏｎｌｙ　フ゜チコンｍｋＩＩ．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（１３）；・＆ＣＯＬＯＲ（０）；Ｉｆ　ｙｏｕ　ｈａｖｅ　ｔｒｏｕｂｌｅｓ，＆ＢＲ； ＤＡＴＡ”　　　　　　　　　　　　ｔｅｌｌ　ｈａｔｅｎａ，ｐｌｅａｓｅ．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（３）；・＆ＣＯＬＯＲ（０）；Ｗｈｅｎ　ｙｏｕ　ｐｕｓｈ　ｔｈｅ　↑　ｂｕｔｔｏｎ，＆ＢＲ；” ＤＡＴＡ”　　　　　　　　　　　　　　ｉｔ’ｓ　ｓｃｒｏｌｌ　ｕｐ．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（３）；・＆ＣＯＬＯＲ（０）；Ｗｈｅｎ　ｙｏｕ　ｐｕｓｈ　ｔｈｅ　↓　ｂｕｔｔｏｎ，＆ＢＲ；” ＤＡＴＡ”　　　　　　　　　　　　　　ｉｔ’ｓ　ｓｃｒｏｌｌ　ｄｏｗｎ．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（３）；・＆ＣＯＬＯＲ（０）；Ｗｈｅｎ　ｙｏｕ　ｐｕｓｈ　ｔｈｅ　А　ｂｕｔｔｏｎ，＆ＢＲ；” ＤＡＴＡ”　　　　　　　　　　　　　　ｉｔ’ｓ　ｒｅｌｏａｄ．＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（５）；＆ＨＲ（─）；＆ＣＯＬＯＲ（０）；” ＤＡＴＡ”　　　＆ＣＨＲ（６８）；ａｔｅ　：　＆ＣＯＬＯＲ（９）；＆ＤＡＴＥ；＆ＣＯＬＯＲ（０）；＆ＢＲ；” ＤＡＴＡ”　　　＆ＣＨＲ（８４）；ｉｍｅ　：　＆ＣＯＬＯＲ（９）；＆ＴＩＭＥ；＆ＣＯＬＯＲ（０）；＆ＢＲ；” ＤＡＴＡ”Ｆｒｅｅｍｅｍ　：　＆ＣＯＬＯＲ（９）；＆ＦＲＥＥＭＥＭ；＆ＣＯＬＯＲ（０）；＆ＢＲ；” ＤＡＴＡ”Ｆｒｅｅｖａｒ　：　＆ＣＯＬＯＲ（９）；＆ＦＲＥＥＶＡＲ；＆ＣＯＬＯＲ（０）；＆ＢＲ；” ＤＡＴＡ”＆ＣＯＬＯＲ（５）；＆ＨＲ（─）；＆ＣＯＬＯＲ（０）；” ＤＡＴＡ”＃＃＃ＥＮＤＰＵＴＤＡＴＡＨＥＲＥ＃＃＃” ＧＯＳＵＢ＠ＩＮＩ ＧＯＳＵＢ＠ＳＥＴ ＧＯＳＵＢ＠ＰＵＴ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＥＮＤ ＠ＭＡＩＮＬＯＯＰ 　ＰＧＥＴ＝ＧＥＴ−ＣＳＲＸＭＡＸ−３ 　ＩＦ　（ＢＵＴＴＯＮ（）　ＡＮＤ　　２）　ＴＨＥＮ　ＰＵＴＳＴ＝ＰＵＴＳＴ＋１：　ＰＵＴＳＴ＝ＰＵＴＳＴ＊！（ＰＵＴＳＴ＞ＰＧＥＴ）＋（ＰＧＥＴ）＊（ＰＵＴＳＴ＞ＰＧＥＴ）：ＧＯＳＵＢ＠ＰＵＴ 　ＩＦ　（ＢＵＴＴＯＮ（）　ＡＮＤ　　１）　ＴＨＥＮ　ＰＵＴＳＴ＝ＰＵＴＳＴ−１：　ＰＵＴＳＴ＝ＰＵＴＳＴ＊！（ＰＵＴＳＴ＜０）：ＧＯＳＵＢ＠ＰＵＴ 　ＩＦ　（ＢＵＴＴＯＮ（）　ＡＮＤ　１６）　ＴＨＥＮ　ＧＯＳＵＢ＠ＰＵＴ 　ＶＳＹＮＣ　１ ＧＯＴＯ＠ＭＡＩＮＬＯＯＰ ＠ＩＮＩ 　ＣＬＥＡＲ 　ＰＵＴＭＡＸ＝１００００ 　　ＤＩＭ　ＰＵＴ＄（ＰＵＴＭＡＸ） 　ＥＰＤＨ＄＝”＃＃＃ＥＮＤＰＵＴＤＡＴＡＨＥＲＥ＃＃＃” 　ＣＳＲＸＭＡＸ＝２４ 　ＣＳＲＹＭＡＸ＝３２ ＲＥＴＵＲＮ ＠ＳＥＴ 　ＡＣＬＳ 　ＲＥＳＴＯＲＥ＠ＰＵＴＤＡＴＡ 　ＦＯＲ　Ｉ＝０　ＴＯ　ＰＵＴＭＡＸ−１ 　　ＲＥＡＤ　ＢＰＵＴ＄ 　　ＩＦ　ＢＰＵＴ＄＝＝ＥＰＤＨ＄　ＴＨＥＮ　ＧＥＴ＝Ｉ：Ｉ＝ＰＵＴＭＡＸ−１　ＥＬＳＥ　ＰＵＴ＄（Ｉ）＝ＢＰＵＴ＄ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＰＵＴ 　ＣＬＳ 　ＦＯＲ　Ｉ＝ＰＵＴＳＴ　ＴＯ　ＰＵＴＳＴ＋ＣＳＲＸＭＡＸ＋２ 　　ＦＯＲ　Ｊ＝０　ＴＯ　ＬＥＮ（ＰＵＴ＄（Ｉ））−１ 　　　ＣＰＵＴ＄＝ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，１） 　　　ＩＦ　ＣＰＵＴ＄＝＝”＆”　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＰＣＨＥＣＫ　ＥＬＳＥ　？　ＣＰＵＴ＄； 　　ＮＥＸＴ 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＳＰＣＨＥＣＫ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，４）＝＝”ＡＭＰ；”　ＴＨＥＮ　Ｊ＝Ｊ＋４：？”＆”；：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，３）＝＝”ＢＲ；”　ＴＨＥＮ　Ｊ＝Ｊ＋３：？””：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，５）＝＝”ＤＡＴＥ；”　ＴＨＥＮ　Ｊ＝Ｊ＋５：？　ＤＡＴＥ＄；：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，５）＝＝”ＴＩＭＥ；”　ＴＨＥＮ　Ｊ＝Ｊ＋５：？　ＴＩＭＥ＄；：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，８）＝＝”ＦＲＥＥＭＥＭ；”　ＴＨＥＮ　Ｊ＝Ｊ＋８：？　ＦＲＥＥＭＥＭ；：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，８）＝＝”ＦＲＥＥＶＡＲ；”　ＴＨＥＮ　Ｊ＝Ｊ＋８：？　ＦＲＥＥＶＡＲ；：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，５）＝＝”ＣＯＬＯＲ”　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＰ＿ＣＯＬＯＲ：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，２）＝＝”ＨＲ”　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＰ＿ＨＲ：ＲＥＴＵＲＮ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ＋１，３）＝＝”ＣＨＲ”　ＴＨＥＮ　ＧＯＳＵＢ＠ＳＰ＿ＣＨＲ：ＲＥＴＵＲＮ 　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆，Ｓｙｎｔａｘ］”：ＥＮＤ ＲＥＴＵＲＮ ＠ＳＰ＿ＣＯＬＯＲ 　Ｊ＝Ｊ＋６ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，１）！＝”（”　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＯＬＯＲ，Ｓｙｎｔａｘ］”：ＥＮＤ 　Ｊ＝Ｊ＋１ 　ＣＰＵＴ＄＝ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，２） 　ＩＦ　ＬＥＮ（ＳＴＲ＄（ＶＡＬ（ＣＰＵＴ＄）））＝＝２　ＴＨＥＮ　Ｊ＝Ｊ＋１ 　ＩＦ　ＶＡＬ（ＣＰＵＴ＄）＜０　　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＯＬＯＲ，ＣＯＬＯＲ＜０］”：ＥＮＤ 　ＩＦ　ＶＡＬ（ＣＰＵＴ＄）＞１５　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＯＬＯＲ，ＣＯＬＯＲ＞１５］”：ＥＮＤ 　ＣＯＬＯＲ　ＶＡＬ（ＣＰＵＴ＄） 　Ｊ＝Ｊ＋１ 　ＣＰＵＴ＄＝ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，２） 　ＩＦ　ＣＰＵＴ＄＝＝”）；”　ＴＨＥＮ　Ｊ＝Ｊ＋１：ＲＥＴＵＲＮ　ＥＬＳＥ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＯＬＯＲ，Ｓｙｎｔａｘ］”：ＥＮＤ ＲＥＴＵＲＮ ＠ＳＰ＿ＨＲ 　Ｊ＝Ｊ＋３ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，１）！＝”（”　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＨＲ，Ｓｙｎｔａｘ］”：ＥＮＤ 　Ｊ＝Ｊ＋１ 　ＩＦ　ＣＳＲＸ　ＴＨＥＮ　？”” 　？　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，１）＊（ＣＳＲＹＭＡＸ−１） 　Ｊ＝Ｊ＋１ 　ＣＰＵＴ＄＝ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，２） 　ＩＦ　ＣＰＵＴ＄＝＝”）；”　ＴＨＥＮ　Ｊ＝Ｊ＋１：ＲＥＴＵＲＮ　ＥＬＳＥ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＨＲ，Ｓｙｎｔａｘ］”：ＥＮＤ ＲＥＴＵＲＮ ＠ＳＰ＿ＣＨＲ 　Ｊ＝Ｊ＋４ 　ＩＦ　ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，１）！＝”（”　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＨＲ，Ｓｙｎｔａｘ］”：ＥＮＤ 　Ｊ＝Ｊ＋１ 　ＣＰＵＴ＄＝ＳＴＲ＄（ＶＡＬ（ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，３））） 　ＩＦ　ＶＡＬ（ＣＰＵＴ＄）＜０　　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＨＲ，ＡＳＣＩＩ＜０］”：ＥＮＤ 　ＩＦ　ＶＡＬ（ＣＰＵＴ＄）＞２５５　　ＴＨＥＮ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＨＲ，ＡＳＣＩＩ＞２５５］”：ＥＮＤ 　Ｊ＝Ｊ＋（２＊（ＬＥＮ（ＣＰＵＴ＄）＝＝３））＋（１＊（ＬＥＮ（ＣＰＵＴ＄）＝＝２））＋１ 　？　ＣＨＲ＄（ＶＡＬ（ＣＰＵＴ＄））； 　ＣＰＵＴ＄＝ＭＩＤ＄（ＰＵＴ＄（Ｉ），Ｊ，２） 　ＩＦ　ＣＰＵＴ＄＝＝”）；”　ＴＨＥＮ　Ｊ＝Ｊ＋１：ＲＥＴＵＲＮ　ＥＬＳＥ　？”Ｅｒｒｏｒ［”；Ｉ＋１；”，＆ＣＨＲ，Ｓｙｎｔａｘ］”：ＥＮＤ ＲＥＴＵＲＮ

開発情報

2012/11/11現在の最新バージョンは1.00です。

バグ情報

バグを発見された方はCHECKER FLAG (ひとことコメント)にてご報告お願いします。

• (無し)

開発履歴

• 2012/11/11 ver1.00公開

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

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

• 涼季遊 : 個人的にCHR形式のhTMLを読み込むバージョンを作ってみたんですが、公開してOK？ (2012/11/20 (火) 08:30:14)
  • hatena(投稿者) : はい。CHR形式のhTMLを読み込むバージョンの公開を許可致します。 (2012/12/03 (月) 20:22:18)
• nao112641433 : 似たようなものでpplを出す予定ｗ (2013/01/24 (木) 16:47:15)

お名前: