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

投稿プログラム : プチコン版Wind●ws8

パンくずリスト

2013年10月24日投稿 / 投稿者 : sou51 / タグ : 投稿プログラム ネタ ツール QRコード ランチャ mkII専用

概要

Windows8.1が発売されましたが、プチコンにもなんか出たようです。

使い方

Windows8のスタート画面風のジョークソフトです。
プログラム末尾のDATA文を編集することで、パネルを変更できます。

DATA文の内容は、サイズ、色、ラベル、動作定義　となっています。
サイズは1,2,4が指定可能で、2を指定すると2x1(横2倍)サイズ、4を指定すると2x2サイズになります。
DATA文は8個ごとに1セットとなっており、2や4を指定したパネルがあるとその分末尾のDATAは非表示となります。
動作定義の箇所に文字列を入れておくと、EXEC命令が実行されます。
また動作定義を"@"で始まる文字列にすると、そのラベルへGOTOでジャンプします。
最大で8x3=24個のパネルを配置できます。

ジョークソフトとして早急に作ったので、"@"の動作などかなり荒い作りになっていますがご了承ください。

ペイントを選択するとCHREDが起動します。
ミュージックを選択するとプログラム内でBGMPLAYテスト用のソフトが起動されます。
それ以外のパネルは全てダミーです。

パネル部分はBG1枚分で作っています。
これをループするようにすればもっと登録できてランチャとしても実用的になるのかもしれません。

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

QR コード

プチコンmkII向けのインストール用画像データです。3枚組となっています。

S51WIN8.PNG

プログラムリスト

  1. ＠ＳＴＡＲＴ
  2. ＡＣＬＳ：ＣＬＥＡＲ
  3. ＧＰＡＧＥ　１：ＢＧＰＡＧＥ　１
  4. ＰＮＬＴＹＰＥ”ＯＦＦ”
  5. ＤＩＭ　ＰＮＬＳ（３，８），ＰＮＬＣ（３，８）
  6. ＤＩＭ　ＰＮＬＮ＄（３，８），ＰＮＬＦ＄（３，８）
  7. ＤＩＭ　ＢＧＰ＄（６７，２４）
  9. ＰＮＬＳＴＲ　１，１，”スタ−ト”，０
  10. ＰＮＬＳＴＲ　２４，１，”ｓｏｕ５１　Ж”
  12. ＧＰＡＩＮＴ　０，０，６
  13. Ｘ＝０
  14. ＰＸ１＝０：ＰＸ２＝６６
  15. ＰＹ１＝０：ＰＹ２＝２３
  16. ＰＮ＄＝””：ＧＯＳＵＢ＠ＳＥＴＡＲ
  18. ＧＯＳＵＢ＠ＬＤＤＡＴＡ
  19. ＦＯＲ　Ｉ＝０　ＴＯ　２
  20. 　ＰＸ＝０：ＰＹ＝０
  21. 　ＦＯＲ　Ｊ＝０　ＴＯ　７
  22. 　　Ｎ＝ＰＮＬＳ（Ｉ，Ｊ）
  23. 　　ＰＸ１＝３＋Ｉ＊２１＋ＰＸ＊１０
  24. 　　ＰＹ１＝４＋ＰＹ＊５
  25. 　　ＰＸ２＝ＰＸ１＋８＋（Ｎ％２＝＝０）＊１０
  26. 　　ＰＹ２＝ＰＹ１＋３＋（Ｎ＞２）＊５
  27. 　　ＰＮ＄＝ＰＮＬＦ＄（Ｉ，Ｊ）
  28. 　　ＧＯＳＵＢ＠ＳＥＴＡＲ
  29. 　　ＢＧＦＩＬＬ　１，ＰＸ１，ＰＹ１，ＰＸ２，ＰＹ２，６，ＰＮＬＣ（Ｉ，Ｊ），０，０
  30. 　　Ｎ２＝ＬＥＮ（ＰＮＬＮ＄（Ｉ，Ｊ））
  31. 　　ＩＦ　Ｎ２＞８　ＴＨＥＮ　Ｎ２＝８
  32. 　　ＦＯＲ　Ｋ＝０　ＴＯ　Ｎ２−１
  33. 　　　ＢＧＰＵＴ　０，ＰＸ１＋Ｋ，ＰＹ１＋３，２５６＋ＡＳＣ（ＭＩＤ＄（ＰＮＬＮ＄（Ｉ，Ｊ），Ｋ，１）），０，０，０
  34. 　　ＮＥＸＴ
  35. 　　ＰＸ＝（ＰＸ＋（Ｎ％２））％２
  36. 　　ＰＹ＝ＰＹ＋（ＰＸ＝＝０）＋（Ｎ＞２）
  37. 　　ＩＦ　ＰＹ＞３　ＴＨＥＮ　Ｊ＝９９
  38. 　ＮＥＸＴ
  39. ＮＥＸＴ
  41. ＴＦ＝ＴＣＨＳＴ：ＴＦ０＝ＴＦ
  42. ＴＯＸ＝ＴＣＨＸ：ＴＯＹ＝ＴＣＨＹ
  43. ＢＸ＝０：Ｔ０＝ＭＡＩＮＣＮＴＬ
  44. ＠ＬＰ
  45. 　ＴＣＨ＝ＴＦ０　ＸＯＲ　ＴＦ
  46. 　ＩＦ　ＴＣＨ　ＡＮＤ　ＴＦ　ＴＨＥＮ　ＴＯＸ＝ＴＣＨＸ：ＴＸ０＝ＴＣＨＸ：Ｔ０＝ＭＡＩＮＣＮＴＬ：ＳＷＰ＝０
  47. 　ＩＦ　！ＴＦ　ＴＨＥＮ　＠ＬＰ０
  48. 　ＩＦ　ＡＢＳ（ＴＣＨＸ−ＴＸ０）＜４　ＴＨＥＮ　＠ＥＬＰ
  49. 　　ＴＸ＝ＴＣＨＸ−ＴＯＸ
  50. 　　ＢＸ＝ＢＸ−ＴＸ
  51. 　　ＴＯＸ＝ＴＣＨＸ
  52. 　　ＩＦ　ＢＸ＜０　ＴＨＥＮ　ＢＸ＝０
  53. 　　ＩＦ　ＢＸ＞２７９　ＴＨＥＮ　ＢＸ＝２７９
  54. 　　ＢＧＯＦＳ　０，ＢＸ，０
  55. 　　ＢＧＯＦＳ　１，ＢＸ，０
  56. 　　ＳＷＰ＝ＳＷＰ　ＯＲ（ＡＢＳ（ＴＯＸ−ＴＸ０）＞８）
  57. 　　ＧＯＴＯ　＠ＥＬＰ
  58. 　＠ＬＰ０
  59. 　　ＩＦ　！ＴＣＨ　ＴＨＥＮ　＠ＥＬＰ
  60. 　　ＩＦ　ＳＷＰ　ＴＨＥＮ　＠ＥＬＰ
  61. 　　　ＴＢＸ＝ＦＬＯＯＲ（（ＢＸ＋ＴＣＨＸ）／８）
  62. 　　　ＴＢＹ＝ＦＬＯＯＲ（ＴＣＨＹ／８）
  63. 　　　Ｆ＄＝ＢＧＰ＄（ＴＢＸ，ＴＢＹ）
  64. 　　　？ＴＢＸ”，”ＴＢＹ”，”ＣＨＲ＄（３４）；Ｆ＄；ＣＨＲ＄（３４）
  65. 　　　ＩＦ　Ｆ＄＝＝””　ＴＨＥＮ　＠ＥＬＰ
  66. 　　　ＩＦ　ＬＥＦＴ＄（Ｆ＄，１）！＝”＠”　ＴＨＥＮ　ＡＣＬＳ：ＥＸＥＣ　Ｆ＄
  67. 　　　ＧＯＴＯ　Ｆ＄
  68. ＠ＥＬＰ
  69. ＴＦ０＝ＴＦ
  70. ＴＦ＝ＴＣＨＳＴ
  71. ＧＯＴＯ＠ＬＰ
  72. ＥＮＤ
  74. ＠ＳＥＴＡＲ
  75. ＦＯＲ　ＡＸ＝ＰＸ１　ＴＯ　ＰＸ２
  76. 　ＦＯＲ　ＡＹ＝ＰＹ１　ＴＯ　ＰＹ２
  77. 　　ＢＧＰ＄（ＡＸ，ＡＹ）＝ＰＮ＄
  78. 　ＮＥＸＴ
  79. ＮＥＸＴ
  80. ＲＥＴＵＲＮ
  82. ＠ＭＵＳＩＣ
  83. 　ＡＣＬＳ：ＧＰＡＧＥ　１：ＢＧＰＡＧＥ　１
  84. 　ＧＰＡＩＮＴ　０，０，６
  86. 　ＧＦＩＬＬ　８，３２，７１，９６，１３
  87. 　ＧＢＯＸ　１２，３６，１５，９２，１５
  88. 　ＧＬＩＮＥ　１６，６４，４１，３６，１５：ＧＬＩＮＥ　１６，６５，４１，９２，１５：ＧＬＩＮＥ　４１，３６，４１，９２，１５
  89. 　ＧＬＩＮＥ　４２，６４，６７，３６，１５：ＧＬＩＮＥ　４２，６５，６７，９２，１５：ＧＬＩＮＥ　６７，３６，６７，９２，１５
  91. 　ＧＦＩＬＬ　１８４，３２，２４７，９６，１３
  92. 　ＧＢＯＸ　２４０，３６，２４３，９２，１５
  93. 　ＧＬＩＮＥ　２３９，６４，２１３，３６，１５：ＧＬＩＮＥ　２３９，６５，２１３，９２，１５：ＧＬＩＮＥ　２１３，３６，２１３，９２，１５
  94. 　ＧＬＩＮＥ　２１３，６４，１８７，３６，１５：ＧＬＩＮＥ　２１３，６５，１８７，９２，１５：ＧＬＩＮＥ　１８７，３６，１８７，９２，１５
  96. 　ＧＦＩＬＬ　７６，３２，１８０，９６，１３
  97. 　ＧＬＩＮＥ　７８，３６，７８，９２，１５
  98. 　ＧＬＩＮＥ　７８，３６，１１８，６４，１５
  99. 　ＧＬＩＮＥ　７８，９２，１１８，６５，１５
  100. 　ＧＢＯＸ　１２８，３６，１７６，９２，１５
  102. 　ＧＦＩＬＬ　４，４，２０，２０，１３
  103. 　ＧＬＩＮＥ　６，１２，１０，６，１５
  104. 　ＧＬＩＮＥ　６，１２，１０，１８，１５
  105. 　ＧＬＩＮＥ　６，１２，１８，１２，１５
  107. 　ＭＮ＝０：ＭＰ＝０
  108. ＠ＭＵＳＩＣＬＰ
  109. Ｔ０＝ＴＣＨＳＴ
  110. ＶＳＹＮＣ　１
  111. ＩＦ　！（ＴＣＨＳＴ　ＸＯＲ　Ｔ０）ＯＲ　！ＴＣＨＳＴ　ＴＨＥＮ　ＧＯＴＯ＠ＭＵＳＩＣＬＰ
  112. 　ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ：Ｔ０＝ＴＣＨＳＴ
  113. 　ＩＦ　ＴＸ＞７　ＡＮＤ　ＴＸ＜７２　ＡＮＤ　ＴＹ＞３１　ＡＮＤ　ＴＹ＜９７　ＴＨＥＮ　ＭＮ＝（ＭＮ＋２８）％２９：ＧＯＴＯ＠ＭＵＳＩＣＬＰ
  114. 　ＩＦ　ＴＸ＞１８３　ＡＮＤ　ＴＸ＜２４８　ＡＮＤ　ＴＹ＞３１　ＡＮＤ　ＴＹ＜９７　ＴＨＥＮ　ＭＮ＝（ＭＮ＋１）％２９：ＧＯＴＯ＠ＭＵＳＩＣＬＰ
  115. 　ＩＦ　ＴＸ＞７５　ＡＮＤ　ＴＸ＜１８１　ＡＮＤ　ＴＹ＞３１　ＡＮＤ　ＴＹ＜９７　ＡＮＤ　！ＭＰ　ＴＨＥＮ　ＢＧＭＰＬＡＹ　ＭＮ：ＭＰ＝１：ＧＯＴＯ＠ＭＵＳＩＣＬＰ
  116. 　ＩＦ　ＴＸ＞７５　ＡＮＤ　ＴＸ＜１８１　ＡＮＤ　ＴＹ＞３１　ＡＮＤ　ＴＹ＜９７　ＡＮＤ　ＭＰ　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＭＰ＝０：ＧＯＴＯ＠ＭＵＳＩＣＬＰ
  117. 　ＩＦ　ＴＸ＞３　ＡＮＤ　ＴＸ＜２１　ＡＮＤ　ＴＹ＞３　ＡＮＤ　ＴＹ＜２１　ＴＨＥＮ　＠ＭＵＳＩＣＥＮＤ
  118. ＧＯＴＯ＠ＭＵＳＩＣＬＰ
  119. ＠ＭＵＳＩＣＥＮＤ
  120. ＢＧＭＳＴＯＰ
  121. ＧＯＴＯ＠ＳＴＡＲＴ
  123. ＠ＬＤＤＡＴＡ
  124. ＲＥＳＴＯＲＥ＠ＬＤＤＡＴＡ
  125. ＦＯＲ　Ｉ＝０　ＴＯ　２
  126. 　ＦＯＲ　Ｊ＝０　ＴＯ　７
  127. 　　ＲＥＡＤ　ＰＮＬＳ（Ｉ，Ｊ），ＰＮＬＣ（Ｉ，Ｊ），ＰＮＬＮ＄（Ｉ，Ｊ），ＰＮＬＦ＄（Ｉ，Ｊ）
  128. 　ＮＥＸＴ
  129. ＮＥＸＴ
  131. ＦＯＲ　Ｉ＝０　ＴＯ　２５５
  132. 　ＣＨＲＲＥＡＤ（”ＢＧＦ”，Ｉ），Ｓ＄
  133. 　ＣＨＲＳＥＴ　”ＢＧＵ１”，Ｉ，Ｓ＄
  134. ＮＥＸＴ
  136. ＲＥＴＵＲＮ
  138. ＤＡＴＡ　２，１，”テ゛スクトッフ゜”，””
  139. ＤＡＴＡ　１，２，”メ−ル”，””
  140. ＤＡＴＡ　１，３，”フォト”，””
  141. ＤＡＴＡ　２，４，”Ｐｅｏｐｌｅ”，””
  142. ＤＡＴＡ　１，５，”メッセ−シ゛”，””
  143. ＤＡＴＡ　１，６，”テンキ”，””
  144. ＤＡＴＡ　１，０，””，””
  145. ＤＡＴＡ　１，０，””，””
  146. ＤＡＴＡ　１，８，”ケ゛−ム”，””
  147. ＤＡＴＡ　１，９，”ＩＥ”，””
  148. ＤＡＴＡ　１，１１，”ストア”，””
  149. ＤＡＴＡ　１，１２，”Ｍａｐ”，””
  150. ＤＡＴＡ　１，１３，”ＳｋｙＤｒｉｖｅ”，””
  151. ＤＡＴＡ　１，１４，”ニュ−ス”，””
  152. ＤＡＴＡ　１，１５，”ミュ−シ゛ック”，”＠ＭＵＳＩＣ”
  153. ＤＡＴＡ　１，０，””，””
  154. ＤＡＴＡ　１，６，”ｉＣｌｏｕｄ”，””
  155. ＤＡＴＡ　１，１，”Ｄｒｏｐｂｏｘ”，””
  156. ＤＡＴＡ　１，２，”Ｗｏｒｄ”，””
  157. ＤＡＴＡ　１，３，”Ｅｘｃｅｌ”，””
  158. ＤＡＴＡ　１，４，”ヘ゜イント”，”ＣＨＲＥＤ”
  159. ＤＡＴＡ　１，５，”ＯｎｅＮｏｔｅ”，””
  160. ＤＡＴＡ　１，６，”カレンタ゛−”，””
  161. ＤＡＴＡ　１，８，”Ａｄｄｒｅｓｓ”，””

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

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

  • しゃしゃつー : すげえ、それっぽいｗ (2013/10/26 (土) 17:30:38)
  • かずえもん : このソフトといろいろなプログラムを組み合わせて、OSを作って公開してもいいですか？ (2013/10/28 (月) 15:03:33)
  • 道産子(dosankosoft) : ランチャーが作れそうだな・・・ (2013/10/28 (月) 22:05:23)
  • sou51 : ネタで作っただけなので好きに使ってくれでいいですよ (2013/11/03 (日) 20:37:08)
  • 暁 : 予想してたものと違った、あれかと思った (2013/11/04 (月) 19:21:15)
  • nao20010128nao : 超そっくり！8の本物を持っている私は、大爆笑しちゃいました！ (2014/03/25 (火) 14:12:34)
  • 名無しさん : おぉぉぉ (2014/03/25 (火) 15:42:36)
  • しょうま : すごいいいいいいい！！！！！ (2014/09/22 (月) 18:05:02)
  • Shun8 : タブレット見たいなOSを作ります。 (2017/10/23 (月) 21:38:57)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.116 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:04 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30