2014年12月7日投稿 / 投稿者 : 名無しさん / タグ : 実用ツール
このプログラムを使えばファイル名をいちいち入力しなくてもロードやセーブができます。
といっても・・・いちいちこのプログラムを起動しなくてはならないので、使うならスマイルボタンに割り当てることを推奨します。
あと、一言にファイルと言いましたが、テキスト形式のファイルにしか対応してないのでご注意ください。
◆操作方法
・ボタン上下でカーソル移動
・Aボタンで決定
・Bボタンで戻る
まず0〜3のスロットが選択肢として表示されるので選んでください。
スロットを選ぶと、選んだスロットに対して選択肢がでます。
◇ロード
この選択肢を選ぶと、自分のつくったプログラムが一覧で表示されるので、1つ選んでロードしてください。
◇セーブ
PRGNAME$()関数を利用して、選んだスロットのプログラムをセーブします。
いわゆる上書き保存です。
※選んだスロットが何のプログラムもロードされてない状態だと強制的にロード画面に移ります。
◆更新履歴
2014/12/18
初期バージョンでは「名前を付けて保存」と「実行」という機能がありましたが消しました。
ファイル名を「FILELOADER」にしました。
その他細かい変更
プチコン3号用の公開キーです。トップメニューの「作品公開とダウンロード」から公開キーを入力すると、作品をダウンロードすることができます。
- OPTION STRICT
- VAR A ’FOR NEXT
- VAR B ’BUTTON()
- VAR C ’SLOT
- VAR D ’
- VAR E ’LOAD/SAVE
- VAR F=25 ’
- VAR G ’FILE
- VAR H$[1]’FILES
- VAR I ’ON GOSUB
- ACLS
- FOR A=0 TO 3
- BREPEAT A,18,4
- NEXT
- BREPEAT 4
- BREPEAT 5
- FILES ”TXT:”,H$
- IF F>LEN(H$) THEN F=LEN(H$)
- FOR A=0 TO LEN(H$)−1
- H$[A]=MID$(H$[A],1,14)
- NEXT
- WHILE 1
- FOR A=0 TO 3
- COLOR ,(C==A)*3
- LOCATE 0,A
- PRINT ”スロット”;A;”:”;
- PRINT LEFT$(PRGNNAME$(A)+” ”*14,14)
- NEXT
- IF I>=1 THEN
- COLOR ,(E==0)*3:LOACATE 21,C+0:PRINT ”ロード”
- COLOR ,(E==1)*3:LOACATE 21,C+1:PRINT ”セーブ”
- ENDIF
- IF I==2 THEN
- FOR A=0 TO F−1
- COLOR ,(D+A==G)*3
- LOCATE 25,C+A
- PRINT FOMAT$(”%03D”,1+D+A);”:”;
- PRINT LEFT$(H$[D+A]+” ”*14,14)
- NEXT
- ENDIF
- VSYNC 1
- B=BUTTON(1)
- ON I GOSUB @0,@1,@2
- WEND
- @0
- IF B==1 THEN BEEP2:DEC C
- IF B==2 THEN BEEP2:INC C
- IF C<0 THEN C=3
- IF C>3 THEN C=0
- IF B==16 THEN
- BEEP 3
- IF PRGNAME$(C)==”” THEN I=2 ELSE I=1
- ENDIF
- RETURN
- @1
- IF B==1 THEN BEEP 2:DEC E
- IF B==2 THEN BEEP 2:INC E
- IF E<0 THEN E=1
- IF E>1 THEN E=0
- IF B==16 THEN
- BEEP 3
- IF E==0 THEN I=2
- IF E==1 THEN
- SAVE ”PRG”+STR(C)+”:”+PRGNAME$(C)
- ENDIF
- ENDIF
- IF B==32 THEN
- BEEP 4
- E=0
- I=0
- COLOR ,0:CLS
- ENDIF
- RETURN
- @2
- IF B==1 THEN BEEP 2:DEC G
- IF B==2 THEN BEEP 2:INC G
- IF G<0 THEN G=LEN(H$)−1
- IF G>LEN(H$)−1 THEN G=0
- IF G<D THEN D=G
- IF G>D+F−1 THEN D=G−(F−1)
- IF B==16 THEN
- BEEP 3
- LOAD ”PRG”+STR$(C)+”:”+H$[G]
- ENDIF
- IF B==32 THEN
- BEEP 4
- G=0
- D=0
- IF PRGNAME$(C)==”” THEN I=0 ELSE I=1
- COLOR ,0:CLS
- ENDIF
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・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