プチコン・チューンズ2
説明
プチコン・チューンズ2は、プチコンmkIIに収録されているBGMと効果音(BEEP命令で発する音声)を聞くプログラムです。 『プチコン・チューンズ』は、その原形となったプログラムです。
注意：実際のリストには、半角カタカナを含んでいます。
半角カタカナは機種依存文字のため、本サイトでは、カタカナ・濁点・半濁点・句読点は全て全角に変換しています。
- カタカナ・濁点・半濁点・句読点→全角
- 丸で囲まれた白抜きのA・B・X・Y→ⒶⒷⓍⓎ
リスト
@START
CLS
PRINT "┏━━━━━━━━━━━━━━━━━━━━━━━━━━┓"
PRINT "┃ プチコン・チューンズ 2 ┃"
PRINT "┃ PetitComputer Tunes 2 ┃"
PRINT "┃(C)2012 ┃"
PRINT "┃ Icy Metropolitan Software.┃"
PRINT "┗━━━━━━━━━━━━━━━━━━━━━━━━━━┛"
PRINT ""
BGMSTOP 0,3
PRINT "サウンドノ シュルイヲ エランデクダサイ。"
PRINT "Ⓐ:BGM"
PRINT "Ⓑ:コウカオン"
PRINT "Ⓨ:シュウリョウ"
@SLCTKIND
KINDBTN=BUTTON(0)
IF KINDBTN==128 THEN @ENDING
IF KINDBTN==16 THEN SKIND=0
IF KINDBTN==32 THEN SKIND=1
'ショウライノタメノ ヨヤク
IF KINDBTN==64 THEN SKIND=2
IF KINDBTN<=15 OR KINDBTN/256>=1 THEN @SLCTKIND
PRINT "トラックNo.ヲ ニュウリョクシテクタ゛サイ。"
ON SKIND GOTO @BGMNO,@BEEPNO
@BGMNO
PRINT "(0~29テ゛ BGM";
GOTO @PRNTCMN
@BEEPNO
PRINT "(0~69テ゛ コウカオン";
@PRNTCMN
PRINT "カ゛ナカ゛レマス。)"
PRINT "(-1イカテ゛ シュウリョウシマス。)"
@SELECT
INPUT "トラックNo.=";TRACKNO
IF TRACKNO<0 THEN @ENDING
IF (SKIND==0 AND TRACKNO>=30) OR TARCKNO>=70 THEN @SELECT
ON SKIND GOTO @PLAYBGM,@PLAYBEEP
@PLAYBGM
BGMPLAY TRACKNO
PRINT "Ⓑテ゛ ストッフ゜"
PRINT ""
@PLAYING
IF BUTTON()==32 THEN @START
IF BGMCHK(0)==TRUE THEN @PLAYING ELSE @START
@PLAYBEEP
BEEP TRACKNO
WAIT 60
GOTO @START
@ENDING
END
更新履歴
- 初公開
-
- BIGLOBE館に移転
- プチコンフォントに対応