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

投稿プログラム : ログイン画面

パンくずリスト

2013年01月02日投稿 / 投稿者 : BASIC-Ishida / タグ : 投稿プログラム 実用ツール QRコード mkII専用

概要(Ver2)

パソコンのログイン画面を再現しました。
起動すると設定かログインか選ぶ画面が表示されます。
MEMを暗号化するのにＡｍａｋｏＳｏｆｔさんの暗号くん(Ver2.2)の一部をサブルーチンとして使わせていただきました。

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

QR コード

ＰＲＧ：ＬＯＧＩＮ２
qr0.png

プログラムリスト

  1. ’ＬＯＧＩＮ　Ｖｅｒ２
  2. ＠ＬＯＧＩＮ
  3. ＡＣＬＳ
  4. ＣＬＥＡＲ
  5. ＧＯＳＵＢ　＠ＳＴＡＲＴ
  6. ＭＥＭ＄＝””
  7. ＣＨＲＩＮＩＴ　”ＢＧＦ”
  8. ’Ｓｉｍｐｌｅ：ＳＵＢ＄＝”＠ＯＰＥＮＩＮＧ”
  9. Ａ＄＝”ＰｅｔｉｔＣｏｍｐｕｔｅｒ”：ＡＺ＝２：ＡＸ＝２５：ＡＹ＝７０：ＡＣ＝０
  10. Ｂ＄＝”ＳｍｉｌｅＢＡＳＩＣ”　　　：ＢＺ＝１：ＢＸ＝１４５：ＢＹ＝９０：ＢＣ＝０
  11. ’Ｗｉｎｄｏｗｓ８：ＳＵＢ＄＝”ＬＯＧＯ”
  12. ＧＸ＝１１５：ＧＹ＝６０：ＧＣ＝６　＋９：ＢＣ＝０　＋６：ＧＰ＝０．３
  13. ＦＸ＝１００：ＦＹ＝１１０：ＦＶ＝１：ＦＣ＝９　−９：ＴＥＸＴ＄＝”Ｗｉｎｄｏｗｓ８”
  14. ＳＵＢ＄＝”＠ＯＰＥＮＩＮＧ”
  15. ＠ＬＯＯＰ
  16. ＠ＢＧＦＳＥＴ
  17. ＧＯＳＵＢ　ＳＵＢ＄
  18. ＠ＰＲＩＮＴ
  19. ＷＡＩＴ　１
  20. ＩＦ　０！＝ＲＮＤ（２）　ＡＮＤ　Ｘ＜２３３　ＴＨＥＮ　Ｘ＝Ｘ＋１
  21. ＧＦＩＬＬ　１１＋Ｘ，１７１，２４４，１８９，０
  22. ＦＯＲ　ＨＨ＝０　ＴＯ　４
  23. ＧＦＩＬＬ　１１，１７１＋ＨＨ＊４，１１＋Ｘ，１７４＋ＨＨ＊４，ＨＨ＋２４２
  24. ＮＥＸＴ
  25. ＦＯＲ　Ｍ＝０　ＴＯ　３
  26. Ｍ＄＝ＭＩＤ＄（（”０”＊（３−ＬＥＮ（ＳＴＲ＄（ＦＬＯＯＲ（Ｘ／２．３３）））））＋ＳＴＲ＄（ＦＬＯＯＲ（Ｘ／２．３３））＋”％”，Ｍ，１）
  27. ＧＰＵＴＣＨＲ　１１５＋Ｍ＊８，１７７，”ＢＧＦ”，ＡＳＣ（Ｍ＄），０，１
  28. ＮＥＸＴ
  29. ＧＢＯＸ　１０，１７０，２４５，１９０，１５
  30. ＩＦ　Ｘ＜２３３　ＴＨＥＮ　＠ＰＲＩＮＴ
  31. ＷＡＩＴ　６０＊ＲＮＤ（１０）
  32. ＧＣＬＳ
  33. ＠ＳＥＴ
  34. ＬＯＣＡＴＥ　０，０
  35. ？”Ｓ：ＳＥＴＵＰ”
  36. ？”Ｉ：ＩＮＰＵＴ”
  37. ？”Ｅ：ＥＮＤ”
  38. ？”−−−−−−−”
  39. ＩＮＰＵＴ　Ａ＄
  40. ＩＦ　Ａ＄＝＝”Ｓ”　ＧＯＴＯ　＠ＳＥＴＵＰ
  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. ＧＣＬＳ
  73. ＷＡＩＴ　１２５＋ＲＮＤ（１０）
  74. ＧＯＴＯ　＠ＬＯＧＩＮ
  75. ＠ＩＮＰＵＴ
  76. ＣＬＳ
  77. ＬＯＣＡＴＥ　０，０：？”ユ−サ゛−ロク゛インシマス。”
  78. ＠Ｉ＿ＵＳＥＲ
  79. ’ＩＮＰＵＴ　”ユ−サ゛−メイハ”；Ｕ＄
  80. ＩＦ　ＩＮＫＥＹ＄（）！＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＩＮＬ＝１５：ＩＮＸ＝０：ＩＮＹ＝１：Ｚ＄＝”ＵＳＥＲ：”：Ｋ＝１：ＧＯＳＵＢ　＠ＩＮＰ：Ｕ＄＝Ａ＄（１）：ＵＮ＝１
  81. ＩＦ　ＵＮ＝＝１　ＴＨＥＮ　ＬＯＡＤ　”ＭＥＭ：”＋Ｕ＄
  82. ＩＦ　ＲＥＳＵＬＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　？”エラ−：ユ−サ゛−メイ　ニュウリョクミス”：？”フ゜ロク゛ラム「”Ｕ＄”」ハ　ソンサ゛イシテイマセン。”：ＧＯＴＯ　＠Ｉ＿ＵＳＥＲ
  83. ＠Ｉ＿ＰＡＳＳ
  84. ’ＩＮＰＵＴ　”ハ゜スワ−ト゛ハ”；Ｐ＄
  85. ＩＦ　ＩＮＫＥＹ＄（）！＝ＣＨＲ＄（１３）　ＴＨＥＮ　ＩＮＬ＝１５：ＩＮＸ＝０：ＩＮＹ＝２：Ｚ＄＝”ＰＡＳＳ：”：Ｋ＝０：ＧＯＳＵＢ　＠ＩＮＰ：Ｐ＄＝Ａ＄（１）：ＰＮ＝１
  86. ＩＦ　ＰＮ＝＝１　ＴＨＥＮ　Ｓ＄＝ＭＥＭ＄：ＰＡＳＳ＄＝Ｐ＄：ＧＯＳＵＢ　＠ＦＵＫＵＧＯＵ：ＰＲＧ＄＝Ｋ＄：ＧＯＴＯ　＠ＬＯＡＤ＿ＰＲＧ
  87. ＧＯＴＯ　＠Ｉ＿ＰＡＳＳ
  88. ＠ＬＯＡＤ＿ＰＲＧ
  89. ＥＸＥＣ　ＰＲＧ＄
  90. ＩＦ　ＲＥＳＵＬＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　？”エラ−：”：？”フ゜ロク゛ラム「”ＰＲＧ＄”」ハ　ソンサ゛イシテイマセン。”
  92. ＠ＬＯＧＯ
  93. ＧＰＡＩＮＴ　　　　　　　　　０，　　　　　　　　０，　　　　　　　　　　　　　　　　　　　　ＢＣ
  94. ＧＬＩＮＥ　　　　０＊ＧＰ＋ＧＸ，　２０＊ＧＰ＋ＧＹ，１００＊ＧＰ＋ＧＸ，　　０＊ＧＰ＋ＧＹ，ＧＣ
  95. ＧＬＩＮＥ　　　　０＊ＧＰ＋ＧＸ，　２０＊ＧＰ＋ＧＹ，　　０＊ＧＰ＋ＧＸ，１００＊ＧＰ＋ＧＹ，ＧＣ
  96. ＧＬＩＮＥ　　　　０＊ＧＰ＋ＧＸ，１００＊ＧＰ＋ＧＹ，１００＊ＧＰ＋ＧＸ，１５０＊ＧＰ＋ＧＹ，ＧＣ
  97. ＧＬＩＮＥ　　１００＊ＧＰ＋ＧＸ，　　０＊ＧＰ＋ＧＹ，１００＊ＧＰ＋ＧＸ，１５０＊ＧＰ＋ＧＹ，ＧＣ
  98. ＧＰＡＩＮＴ　　　５＊ＧＰ＋ＧＸ，　２５＊ＧＰ＋ＧＹ，　　　　　　　　　　　　　　　　　　　　ＧＣ
  99. ＧＦＩＬＬ　　　４４＊ＧＰ＋ＧＸ，　　０＊ＧＰ＋ＧＹ，　４６＊ＧＰ＋ＧＸ，１５０＊ＧＰ＋ＧＹ，ＢＣ
  100. ＧＬＩＮＥ　　　　０＊ＧＰ＋ＧＸ，　５９＊ＧＰ＋ＧＹ，１００＊ＧＰ＋ＧＸ，　７９＊ＧＰ＋ＧＹ，ＢＣ
  101. ＧＬＩＮＥ　　　　０＊ＧＰ＋ＧＸ，　６０＊ＧＰ＋ＧＹ，１００＊ＧＰ＋ＧＸ，　８０＊ＧＰ＋ＧＹ，ＢＣ
  102. ＧＬＩＮＥ　　　　０＊ＧＰ＋ＧＸ，　６１＊ＧＰ＋ＧＹ，１００＊ＧＰ＋ＧＸ，　８１＊ＧＰ＋ＧＹ，ＢＣ
  103. ＦＯＲ　Ｆ＝０　ＴＯ　ＬＥＮ（ＴＥＸＴ＄）−１
  104. 　ＧＰＵＴＣＨＲ　８＊Ｆ＊ＦＶ＋ＦＸ，ＦＹ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＴＥＸＴ＄，Ｆ，１）），ＦＣ，ＦＶ
  105. ＮＥＸＴ
  106. ＲＥＴＵＲＮ
  108. ＠ＯＰＥＮＩＮＧ
  109. ＦＯＲ　Ａ＝０　ＴＯ　ＬＥＮ（Ａ＄）−１
  110. 　ＧＰＵＴＣＨＲ　ＡＸ＋（Ａ＊８＊ＡＺ），ＡＹ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ａ＄，Ａ，Ａ＋１）），ＡＣ，ＡＺ
  111. ＮＥＸＴ
  112. ＦＯＲ　Ｂ＝０　ＴＯ　ＬＥＮ（Ｂ＄）−１
  113. 　ＧＰＵＴＣＨＲ　ＢＸ＋（Ｂ＊８＊ＢＺ），ＢＹ，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ｂ＄，Ｂ，Ｂ＋１）），ＢＣ，ＢＺ
  114. ＮＥＸＴ
  115. ＲＥＴＵＲＮ
  117. ＠ＩＮＰ
  118. ＳＹＳＢＥＥＰ＝０
  119. Ａ＄（０）＝””
  120. Ａ＄（１）＝””
  121. ＠ＬＩＮ
  122. ＷＡＩＴ　１
  123. Ｂ＝ＢＵＴＴＯＮ（１）
  124. Ｔ＝Ｔ＋０．０５
  125. ＫＢ＝ＫＥＹＢＯＡＲＤ
  126. ＩＦ　ＩＮＳＴＲ（”１３５７９”，ＲＩＧＨＴ＄（ＳＴＲ＄（ＦＬＯＯＲ（Ｔ）），１））！＝−１　ＴＨＥＮ　Ｆ＄＝”　”　ＥＬＳＥ　Ｆ＄＝”＿”
  127. ＩＦ　ＫＢ＝＝１５　ＯＲ　Ｂ＝＝１２８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＳ
  128. ＩＦ　ＫＢ＝＝６０　ＯＲ　Ｂ＝＝１６　ＴＨＥＮ　ＢＥＥＰ　９：ＳＹＳＢＥＥＰ＝１：ＬＯＣＡＴＥ　ＩＮＸ，ＩＮＹ：？Ｚ＄＋Ａ＄（Ｋ）＋”　”：ＲＥＴＵＲＮ
  129. ＩＦ　ＫＢ！＝０　ＡＮＤ　ＫＢ！＝１５　ＡＮＤ　ＫＢ！＝６０　ＡＮＤ　ＬＥＮ（Ａ＄（ｋ））＜ＩＮＬ　ＴＨＥＮ　ＢＥＥＰ　９：Ａ＄（１）＝Ａ＄（１）＋ＩＮＫＥＹ＄（）
  130. ＩＦ　ＫＢ！＝０　ＡＮＤ　ＫＢ！＝１５　ＡＮＤ　ＫＢ！＝６０　ＡＮＤ　ＬＥＮ（Ａ＄（ｋ））＝＝ＩＮＬ　ＴＨＥＮ　ＢＥＥＰ　２
  131. Ａ＄（０）＝”＊”＊ＬＥＮ（Ａ＄（１））
  132. ＬＯＣＡＴＥ　ＩＮＸ，ＩＮＹ：？Ｚ＄＋Ａ＄（Ｋ）＋Ｆ＄＋”　”＊（３１−ＬＥＮ（Ｍ＄＋Ａ＄（Ｋ）＋Ｆ＄））
  133. ＧＯＴＯ　＠ＬＩＮ
  134. ＠ＢＳ
  135. ＩＦ　ＬＥＮ（Ａ＄（１））！＝０　ＴＨＥＮ　Ａ＄（１）＝ＬＥＦＴ＄（Ａ＄（１），ＬＥＮ（Ａ＄（１））−１）：ＢＥＥＰ　９
  136. ＩＦ　ＬＥＮ（Ａ＄（１））＝＝０　ＴＨＥＮ　ＢＥＥＰ　２
  137. ＲＥＴＵＲＮ
  139. ＠ＳＴＡＲＴ
  140. ＤＩＭ　Ｄ＄（８）
  141. ＤＩＭ　ＰＡＷ（３２）
  142. ＦＯＲ　Ｉ＝０　ＴＯ　８−１
  143. Ｄ＄（Ｉ）＝””
  144. ＮＥＸＴ
  145. ＲＥＴＵＲＮ
  147. ’Ｓ＄：モシ゛レツ（ヘンカンマエ）
  148. ’Ｆ＄：モシ゛レツ（ヘンカンコ゛）
  149. ’ＰＡＳＳ＄：ハ゜スワ−ト゛
  150. ＠ＡＮＧＯＵ
  151. Ｆ＄＝””
  152. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＰＡＳＳ＄）−１
  153. ＰＡＷ（Ｉ）＝ＡＳＣ（ＭＩＤ＄（ＰＡＳＳ＄，Ｉ，１））
  154. ＮＥＸＴ
  155. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｓ＄）−１
  156. Ｄ＝ＡＳＣ（ＭＩＤ＄（Ｓ＄，Ｉ，１））
  157. ＩＦ　Ｄ＝＝０　ＴＨＥＮ　Ｄ＝ＡＳＣ（”・”）
  158. Ｉ＄＝ＨＥＸ＄（Ｄ，２）
  159. Ｌ＄＝ＬＥＦＴ＄（Ｉ＄，１）：Ｒ＄＝ＲＩＧＨＴ＄（Ｉ＄，１）
  160. ＳＷＡＰ　Ｌ＄，Ｒ＄
  161. Ｄ＝ＶＡＬ（”＆Ｈ”＋Ｌ＄＋Ｒ＄）＋１
  162. ＦＯＲ　Ｇ＝０　ＴＯ　ＰＡＷ（（Ｉ＋１）％ＬＥＮ（ＰＡＳＳ＄））−１
  163. Ｄ＝Ｄ＋１
  164. ＩＦ　Ｄ＞２５５　ＴＨＥＮ　Ｄ＝０
  165. ＮＥＸＴ
  166. Ｆ＄＝Ｆ＄＋ＣＨＲ＄（Ｄ）
  167. Ｄ＝０
  168. ＮＥＸＴ
  169. ＲＥＴＵＲＮ
  171. ’Ｓ＄：モシ゛レツ（ヘンカンマエ）
  172. ’Ｋ＄：モシ゛レツ（ヘンカンコ゛）
  173. ’ＰＡＳＳ＄：ハ゜スワ−ト゛
  174. ＠ＦＵＫＵＧＯＵ
  175. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＰＡＳＳ＄）−１
  176. ＰＡＷ（Ｉ）＝ＡＳＣ（ＭＩＤ＄（ＰＡＳＳ＄，Ｉ，１））＋１
  177. ＮＥＸＴ
  178. Ｋ＄＝””
  179. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｓ＄）−１
  180. Ｄ＝ＡＳＣ（ＭＩＤ＄（Ｓ＄，Ｉ，１））
  181. ＦＯＲ　Ｇ＝０　ＴＯ　ＰＡＷ（（Ｉ＋１）％ＬＥＮ（ＰＡＳＳ＄））−１
  182. Ｄ＝Ｄ−１
  183. ＩＦ　Ｄ＜０　ＴＨＥＮ　Ｄ＝２５５
  184. ＮＥＸＴ
  185. Ｉ＄＝ＨＥＸ＄（Ｄ，２）
  186. Ｌ＄＝ＬＥＦＴ＄（Ｉ＄，１）：Ｒ＄＝ＲＩＧＨＴ＄（Ｉ＄，１）
  187. ＳＷＡＰ　Ｌ＄，Ｒ＄
  188. Ｄ＝ＶＡＬ（”＆Ｈ”＋Ｌ＄＋Ｒ＄）
  189. ＩＦ　Ｄ＝＝ＡＳＣ（”・”）　ＴＨＥＮ　Ｄ＝０
  190. Ｋ＄＝Ｋ＄＋ＣＨＲ＄（Ｄ）
  191. ＮＥＸＴ
  192. ＲＥＴＵＲＮ
  194. ＠ＥＮＤ
  195. ＡＣＬＳ
  196. ？”アリカ゛トウコ゛サ゛イマシタ。”
  197. ＥＮＤ

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

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

  • 名無しさん : いらねー (2013/01/04 (金) 09:37:31)
  • 名無しさん : *1 そこまで言わなくても (2013/01/04 (金) 09:39:20)
  • 名無しさん : ｻｲｷﾄﾞｳｼﾏﾃﾞとは？ (2013/01/20 (日) 00:35:44)
  • ロックマンワールド : コレヤルトバグル (2013/05/30 (木) 16:40:04)
  • プーチナルコンピューター？ : プチコンPCみたいな (2013/07/13 (土) 17:52:44)
  • 名無しさん : どうやって使うの？ (2013/09/07 (土) 14:07:50)
  • TCC : 現在開発中のTCCOSのログイン画面に使ってもいいですか？ (2013/09/07 (土) 20:57:27)
  • 名無しさん : 全然できませんでした。 (2013/10/25 (金) 21:14:41)

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