プチコン3号&BIGまとめWiki

投稿プログラム : ファイルをロードするプログラム

2014年12月7日投稿 / 投稿者 : 名無しさん / タグ : 実用ツール

概要

このプログラムを使えばファイル名をいちいち入力しなくてもロードやセーブができます。

といっても・・・いちいちこのプログラムを起動しなくてはならないので、使うならスマイルボタンに割り当てることを推奨します。

あと、一言にファイルと言いましたが、テキスト形式のファイルにしか対応してないのでご注意ください。

◆操作方法

 ・ボタン上下でカーソル移動

 ・Aボタンで決定

 ・Bボタンで戻る

 まず0〜3のスロットが選択肢として表示されるので選んでください。

 スロットを選ぶと、選んだスロットに対して選択肢がでます。

 ◇ロード

  この選択肢を選ぶと、自分のつくったプログラムが一覧で表示されるので、1つ選んでロードしてください。

 ◇セーブ

  PRGNAME$()関数を利用して、選んだスロットのプログラムをセーブします。

  いわゆる上書き保存です。

 ※選んだスロットが何のプログラムもロードされてない状態だと強制的にロード画面に移ります。

◆更新履歴

 2014/12/18

  初期バージョンでは「名前を付けて保存」と「実行」という機能がありましたが消しました。

  ファイル名を「FILELOADER」にしました。

  その他細かい変更

公開キー

プチコン3号用の公開キーです。トップメニューの「作品公開とダウンロード」から公開キーを入力すると、作品をダウンロードすることができます。

プチコン3号/BIG 公開キー
X58332AE

プログラムリスト

  1. OPTION STRICT
  2. VAR A    ’FOR NEXT
  3. VAR B    ’BUTTON()
  4. VAR C    ’SLOT
  5. VAR D    ’
  6. VAR E    ’LOAD/SAVE
  7. VAR F=25 ’
  8. VAR G    ’FILE
  9. VAR H$[1]’FILES
  10. VAR I    ’ON GOSUB
  11. ACLS
  12. FOR A=0 TO 3
  13.  BREPEAT A,18,4
  14. NEXT
  15. BREPEAT 4
  16. BREPEAT 5
  17. FILES ”TXT:”,H$
  18. IF F>LEN(H$) THEN F=LEN(H$)
  19. FOR A=0 TO LEN(H$)−1
  20.   H$[A]=MID$(H$[A],1,14)
  21. NEXT
  22. WHILE 1
  23.  FOR A=0 TO 3
  24.   COLOR ,(C==A)*3
  25.   LOCATE 0,A
  26.   PRINT ”スロット”;A;”:”;
  27.   PRINT LEFT$(PRGNNAME$(A)+” ”*14,14)
  28.  NEXT
  29.  IF I>=1 THEN
  30.   COLOR ,(E==0)*3:LOACATE 21,C+0:PRINT ”ロード”
  31.   COLOR ,(E==1)*3:LOACATE 21,C+1:PRINT ”セーブ”
  32.  ENDIF
  33.  IF I==2 THEN
  34.   FOR A=0 TO F−1
  35.    COLOR ,(D+A==G)*3
  36.    LOCATE 25,C+A
  37.    PRINT FOMAT$(”%03D”,1+D+A);”:”;
  38.    PRINT LEFT$(H$[D+A]+” ”*14,14)
  39.   NEXT
  40.  ENDIF
  41.  VSYNC 1
  42.  B=BUTTON(1)
  43.  ON I GOSUB @0,@1,@2
  44. WEND
  45. @0
  46.  IF B==1 THEN BEEP2:DEC C
  47.  IF B==2 THEN BEEP2:INC C
  48.  IF C<0 THEN C=3
  49.  IF C>3 THEN C=0
  50.  IF B==16 THEN
  51.   BEEP 3
  52.   IF PRGNAME$(C)==”” THEN I=2 ELSE I=1
  53.  ENDIF
  54. RETURN
  55. @1
  56.  IF B==1 THEN BEEP 2:DEC E
  57.  IF B==2 THEN BEEP 2:INC E
  58.  IF E<0 THEN E=1
  59.  IF E>1 THEN E=0
  60.  IF B==16 THEN
  61.   BEEP 3
  62.   IF E==0 THEN I=2
  63.   IF E==1 THEN
  64.    SAVE ”PRG”+STR(C)+”:”+PRGNAME$(C)
  65.   ENDIF
  66.  ENDIF
  67.  IF B==32 THEN
  68.   BEEP 4
  69.   E=0
  70.   I=0
  71.   COLOR ,0:CLS
  72.  ENDIF
  73. RETURN
  74. @2
  75.  IF B==1 THEN BEEP 2:DEC G
  76.  IF B==2 THEN BEEP 2:INC G
  77.  IF G<0         THEN G=LEN(H$)−1
  78.  IF G>LEN(H$)−1 THEN G=0
  79.  IF G<D     THEN D=G
  80.  IF G>D+F−1 THEN D=G−(F−1)
  81.  IF B==16 THEN
  82.   BEEP 3
  83.   LOAD ”PRG”+STR$(C)+”:”+H$[G]
  84.  ENDIF
  85.  IF B==32 THEN
  86.   BEEP 4
  87.   G=0
  88.   D=0
  89.   IF PRGNAME$(C)==”” THEN I=0 ELSE I=1
  90.   COLOR ,0:CLS
  91.  ENDIF
  92. RETURN

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

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

  • Shiftキー : 名前はシンプルに「File Loader」はどうですか (2014/12/14 (日) 10:09:12)
  • 作者 : ご提案いたただきありがとうございます。さっそく次にこの作品を更新するときにはファイル名をそれにしようと思います。このページのタイトルはこのままのほうが良いかな〜と思うのですいません・・・ (2014/12/14 (日) 16:47:36)

メニュー 【3号】

ヘルプ

リンク

最近の更新

最近の人気ページ

オンライン情報

  • 現在同時に 1 人がこのサイトを見ています
  • このページはこれまでに 1062 回、本日は 1 回、昨日は 0 回閲覧されました

ページの先頭に戻る

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