プチコンまとめArchive

投稿プログラム : BINGO 1画面

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:08
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/BINGO1B2-E8-CC-CC-.html

2012年04月13日投稿 / 投稿者 : ＠hpn / タグ : 投稿プログラム 1画面プログラム QRコード

概要

Tyksさんが投稿されていたBINGO抽選機と同様の物を、別の仕組みで作ってみました。

工夫した点

  • １画面に入るように小細工
  • 抽選結果が終了後でも一覧できる
  • 最初の4行で、抽選の乱数は完了
  • ↑そのため、デモの数字表示回数が安定
  • まだ4行余ってるので、もうちょっと修飾可能

QR コード

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

qr000.png

プログラムリスト

  1. ＣＬＥＡＲ：Ｓ＝１：Ｍ＝７５：ＤＩＭ　Ｋ（Ｍ＋１）
  2. ＣＬＳ：ＦＯＲ　Ｉ＝Ｓ　ＴＯ　Ｍ：Ｋ（Ｉ）＝Ｉ：ＮＥＸＴ
  3. ＦＯＲ　Ｉ＝Ｓ　ＴＯ　Ｍ：Ｒ＝ＲＮＤ（Ｍ－Ｓ＋１）＋Ｓ
  4. Ｅ＝Ｋ（Ｉ）：Ｋ（Ｉ）＝Ｋ（Ｒ）：Ｋ（Ｒ）＝Ｅ：ＮＥＸＴ
  5. ＰＮＬＴＹＰＥ　”ＯＦＦ”：ＧＰＡＧＥ　１：ＧＣＬＳ　
  6. ＰＮＬＳＴＲ　１０，１８，”－－－　ＢＩＮＧＯ　－－－”
  7. ＰＮＬＳＴＲ　１０，２０，”Ａテ゛　ツキ゛ノ　スウシ゛”
  8. ＦＯＲ　Ｉ＝Ｓ　ＴＯ　Ｍ＋１：ＦＯＲ　Ｊ＝０ＴＯ　１
  9. Ｊ＝ＳＧＮ（ＢＵＴＴＯＮ（１））：ＶＳＹＮＣ　１：ＮＥＸＴ
  10. ＩＦ　Ｉ＞Ｍ　ＴＨＥＮ　？”ＥＮＤ．”：ＥＮＤ
  11. ＦＯＲ　Ｊ＝０ＴＯ　５：Ｒ＝ＲＮＤ（Ｍ－Ｓ＋１）＋Ｓ
  12. Ａ＝Ｋ（Ｒ）：ＢＥＥＰ　２：ＧＯＳＵＢ　＠１
  13. ＶＳＹＮＣ　５：ＮＥＸＴ：Ａ＝Ｋ（Ｉ）：ＢＥＥＰ　７
  14. ＧＯＳＵＢ　＠１：？Ａ＄；”，”；：ＮＥＸＴ：ＥＮＤ
  15. ＠１
  16. ＧＣＬＳ：Ａ＄＝”００”＋ＳＴＲ＄（Ａ）
  17. Ａ＄＝ＲＩＧＨＴ＄（Ａ＄，３）：ＦＯＲ　Ｋ＝１ＴＯ　３
  18. Ｘ＝Ｋ－０．５：Ａ＝ＡＳＣ（ＭＩＤ＄（Ａ＄，Ｋ－１，１））
  19. ＧＰＵＴＣＨＲ　６４＊Ｘ，４８，”ＢＧＦ０”，Ａ，０，８
  20. ＮＥＸＴ：ＲＥＴＵＲＮ

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

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

  • TNN : 使用しました！ 上画面と下画面の表示を逆にしていただければと… (2013/06/10 (月) 20:31:53)