2011年05月03日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 実用ツール
簡易ランチャです。
プログラムは自分でリストをいじって追加/削除する必要があります。
呼び出し先のプログラムから、このランチャをEXECで呼び出すようにすれば、行き来が可能となります。
実行すると、プログラム一覧が表示されますので、十字キーでプログラムを選択し、Aボタンで起動します。 Xボタンを押すと、選択されたプログラムをSENDFILEで送信します(下画面のダイアログに従って下さい) Yボタンを押すと、受信するファイル名を聞いてくるので、入力するとRECVFILEでの受信が行われます(下画面のダイアログに従って下さい)
特にRECVFILEでは、変なファイル名を入力した際のエラー処理はしていないため、プログラムが止まる可能性があります。
プログラムリストではサンプルファイルを項目として記述しています。
- CLS:CLEAR:COLOR 0
- CPP=20:’1ヘ゜ーシ゛ノヒョウシ゛スウ 20マテ゛
- DIM F$(13):’コウモクスウタ゛ケ ハイレツヲ ヨウイ
- CNT=13:’コウモクスウ
- PAGE=FLOOR(CNT/CPP)+1:’ヘ゜ーシ゛スウ
- F$(0)=”SAMPLE1”
- F$(1)=”SAMPLE2”
- F$(2)=”SAMPLE3”
- F$(3)=”SAMPLE4”
- F$(4)=”SAMPLE5”
- F$(5)=”SAMPLE6”
- F$(6)=”SAMPLE7”
- F$(7)=”CHRED”
- F$(8)=”SCRED”
- F$(9)=”GRPED”
- F$(10)=”GAME1”
- F$(11)=”GAME2”
- F$(12)=”GAME3”
- CUR=0
- OFS=0:’ケ゛ンサ゛イヘ゜ーシ゛
- @LOOP
- OK=NOT K:K=BUTTON():OK=OK AND K
- IF(OK AND 1) THEN GOSUB@UP
- IF(OK AND 2) THEN GOSUB@DOWN
- IF(OK AND 4) THEN GOSUB@LEFT
- IF(OK AND 8) THEN GOSUB@RIGHT
- IF(OK AND 16) THEN GOSUB@A
- IF(OK AND 64) THEN GOSUB@X
- IF(OK AND 128) THEN GOSUB@Y
- VSYNC 1:GOSUB@DRAW
- GOTO@LOOP
- @UP
- IF CUR==0 THEN GOSUB@LEFT
- CUR=(CUR+CPP−1)%CPP
- IF CUR+OFS*CPP>=CNT THEN CUR=(CNT−1)%CPP
- RETURN
- @DOWN
- IF CUR+OFS*CPP==CNT−1 THEN CUR=−1
- CUR=(CUR+1)%CPP
- IF CUR==0 THEN GOSUB@RIGHT
- RETURN
- @LEFT
- OFS=(OFS+PAGE−1)%PAGE
- RETURN
- @RIGHT
- OFS=(OFS+1)%PAGE
- RETURN
- @A
- EXEC F$(CUR+OFS*CPP)
- @X
- SENDFILE F$(CUR+OFS*CPP)
- RETURN
- @Y
- LOCATE 0,21:INPUT”RECVFILE NAME”;RF$
- RECVFILE RF$
- CLS
- RETURN
- @DRAW
- FOR I=0 TO CPP−1
- LOCATE 2,2+I
- IF OFS*CPP+I>=CNT THEN @DELSE
- ?” ”F$(OFS*CPP+I)” ”
- GOTO@DEND
- @DELSE
- ?” ”
- @DEND
- NEXT
- LOCATE 2,2+CUR:?”>”
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.101 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:10 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30