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

投稿プログラム : 簡易ランチャ

パンくずリスト

2011年05月03日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール

概要

簡易ランチャです。
プログラムは自分でリストをいじって追加/削除する必要があります。

呼び出し先のプログラムから、このランチャをEXECで呼び出すようにすれば、行き来が可能となります。

使い方

実行すると、プログラム一覧が表示されますので、十字キーでプログラムを選択し、Aボタンで起動します。 Xボタンを押すと、選択されたプログラムをSENDFILEで送信します(下画面のダイアログに従って下さい) Yボタンを押すと、受信するファイル名を聞いてくるので、入力するとRECVFILEでの受信が行われます(下画面のダイアログに従って下さい)

特にRECVFILEでは、変なファイル名を入力した際のエラー処理はしていないため、プログラムが止まる可能性があります。

プログラムリスト

プログラムリストではサンプルファイルを項目として記述しています。

  1. CLS:CLEAR:COLOR 0
  2. CPP=20:’1ヘ゜ーシ゛ノヒョウシ゛スウ 20マテ゛
  3. DIM F$(13):’コウモクスウタ゛ケ ハイレツヲ ヨウイ
  4. CNT=13:’コウモクスウ
  5. PAGE=FLOOR(CNT/CPP)+1:’ヘ゜ーシ゛スウ
  6. F$(0)=”SAMPLE1”
  7. F$(1)=”SAMPLE2”
  8. F$(2)=”SAMPLE3”
  9. F$(3)=”SAMPLE4”
  10. F$(4)=”SAMPLE5”
  11. F$(5)=”SAMPLE6”
  12. F$(6)=”SAMPLE7”
  13. F$(7)=”CHRED”
  14. F$(8)=”SCRED”
  15. F$(9)=”GRPED”
  16. F$(10)=”GAME1”
  17. F$(11)=”GAME2”
  18. F$(12)=”GAME3”
  19. CUR=0
  20. OFS=0:’ケ゛ンサ゛イヘ゜ーシ゛
  21. @LOOP
  22. OK=NOT K:K=BUTTON():OK=OK AND K
  23. IF(OK AND 1) THEN GOSUB@UP
  24. IF(OK AND 2) THEN GOSUB@DOWN
  25. IF(OK AND 4) THEN GOSUB@LEFT
  26. IF(OK AND 8) THEN GOSUB@RIGHT
  27. IF(OK AND 16) THEN GOSUB@A
  28. IF(OK AND 64) THEN GOSUB@X
  29. IF(OK AND 128) THEN GOSUB@Y
  30. VSYNC 1:GOSUB@DRAW
  31. GOTO@LOOP
  32. @UP
  33. IF CUR==0 THEN GOSUB@LEFT
  34. CUR=(CUR+CPP−1)%CPP
  35. IF CUR+OFS*CPP>=CNT THEN CUR=(CNT−1)%CPP
  36. RETURN
  37. @DOWN
  38. IF CUR+OFS*CPP==CNT−1 THEN CUR=−1
  39. CUR=(CUR+1)%CPP
  40. IF CUR==0 THEN GOSUB@RIGHT
  41. RETURN
  42. @LEFT
  43. OFS=(OFS+PAGE−1)%PAGE
  44. RETURN
  45. @RIGHT
  46. OFS=(OFS+1)%PAGE
  47. RETURN
  48. @A
  49. EXEC F$(CUR+OFS*CPP)
  50. @X
  51. SENDFILE F$(CUR+OFS*CPP)
  52. RETURN
  53. @Y
  54. LOCATE 0,21:INPUT”RECVFILE NAME”;RF$
  55. RECVFILE RF$
  56. CLS
  57. RETURN
  58. @DRAW
  59. FOR I=0 TO CPP−1
  60.  LOCATE 2,2+I
  61.  IF OFS*CPP+I>=CNT THEN @DELSE
  62.   ?”  ”F$(OFS*CPP+I)”          ”
  63.   GOTO@DEND
  64.  @DELSE
  65.   ?”                ”
  66.  @DEND
  67. NEXT
  68. LOCATE 2,2+CUR:?”>”
  69. RETURN

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

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

  • バイカウントメルビル : これは便利ですね!! (2011/11/11 (金) 18:36:39)
  • 名無しさん : でも、mk2では、、、 (2012/04/05 (木) 12:51:15)

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